[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-194-g6dc8c
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-194-g6dc8c13 |
Date: |
Thu, 26 Jan 2012 12:15: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=6dc8c138f902abeeabde23dc6fb29bd11e29da3b
The branch, stable-2.0 has been updated
via 6dc8c138f902abeeabde23dc6fb29bd11e29da3b (commit)
via f9685f437312ea790981373ddc375b2a26ba9c4f (commit)
via 4496c9c1e8c5620fd3b4eaacc7f1f8e35829b32d (commit)
via d062a8c1eeeb55264c1a2fd8f4fbe765f1dcc6d9 (commit)
from f5e772b2bac149c854b9b003e7a96632af7f8760 (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 6dc8c138f902abeeabde23dc6fb29bd11e29da3b
Author: Andy Wingo <address@hidden>
Date: Thu Jan 26 12:02:42 2012 +0100
more readable gensyms
* module/language/tree-il/peval.scm (peval):
* module/language/tree-il/primitives.scm (dynamic-wind): When you make a
gensym that just has to be compared against other gensyms, it will be
unique if the prefix doesn't end in something that can be interpreted
as a number. There's no reason to make that character something
difficult like " ". So change to use a dash in that case.
* module/ice-9/psyntax-pp.scm: Regenerate. More readable now.
commit f9685f437312ea790981373ddc375b2a26ba9c4f
Author: Andy Wingo <address@hidden>
Date: Thu Jan 26 11:52:06 2012 +0100
globally unique marks and labels using syntax-session-id
* libguile/macros.c (scm_init_macros): Add definition of new
syntax-session-id helper.
* module/ice-9/psyntax.scm: Capture a reference to syntax-session-id at
boot time. Uniquify marks and labels using the session id.
* module/ice-9/boot-9.scm: Shunt syntax-session-id off to (system
syntax) once we finished booting.
* module/ice-9/compile-psyntax.scm: Override syntax-session-id when
remaking psyntax to avoid spurious diffs.
* module/ice-9/psyntax-pp.scm: Regenerate.
commit 4496c9c1e8c5620fd3b4eaacc7f1f8e35829b32d
Author: Andy Wingo <address@hidden>
Date: Thu Jan 26 11:00:55 2012 +0100
Revert "Universally-unique gensyms"
This reverts commit ad432bc8317c33899efc29854550b67f3d7babf7.
Not all gensyms need to be universally-unique: most of them just need to
be unique within some portion of a Guile session. We'll take a
different tack on this problem in the next commit.
commit d062a8c1eeeb55264c1a2fd8f4fbe765f1dcc6d9
Author: Andy Wingo <address@hidden>
Date: Tue Jan 3 04:02:08 2012 -0500
Implement `local-eval', `local-compile', and `the-environment'
* module/ice-9/local-eval.scm: New module (ice-9 local-eval) which
exports `the-environment', `local-eval', and `local-compile'.
* libguile/debug.c (scm_local_eval): New C function that calls the
Scheme implementation of `local-eval' in (ice-9 local-eval).
* libguile/debug.h (scm_local_eval): Add prototype.
* doc/ref/api-evaluation.texi (Local Evaluation): Add documentation.
* test-suite/tests/eval.test (local evaluation): Add tests.
* test-suite/standalone/test-loose-ends.c (test_scm_local_eval):
Add test.
* module/Makefile.am: Add ice-9/local-eval.scm.
Based on a patch by Mark H Weaver <address@hidden>.
-----------------------------------------------------------------------
Summary of changes:
doc/ref/api-evaluation.texi | 34 +
libguile/debug.c | 13 +-
libguile/debug.h | 4 +-
libguile/macros.c | 34 +
libguile/symbols.c | 50 +-
libguile/threads.c | 1 -
libguile/threads.h | 4 -
module/Makefile.am | 5 +-
module/ice-9/boot-9.scm | 3 +-
module/ice-9/compile-psyntax.scm | 9 +-
module/ice-9/local-eval.scm | 251 +
module/ice-9/psyntax-pp.scm |24573 ++++++++++++++-----------------
module/ice-9/psyntax.scm | 22 +-
module/language/tree-il/peval.scm | 10 +-
module/language/tree-il/primitives.scm | 12 +-
test-suite/standalone/test-loose-ends.c | 16 +-
test-suite/tests/eval.test | 95 +-
17 files changed, 11946 insertions(+), 13190 deletions(-)
create mode 100644 module/ice-9/local-eval.scm
diff --git a/doc/ref/api-evaluation.texi b/doc/ref/api-evaluation.texi
index ef3e602..cc62270 100644
--- a/doc/ref/api-evaluation.texi
+++ b/doc/ref/api-evaluation.texi
@@ -20,6 +20,7 @@ loading, evaluating, and compiling Scheme code at run time.
* Load Paths:: Where Guile looks for code.
* Character Encoding of Source Files:: Loading non-ASCII Scheme code from file.
* Delayed Evaluation:: Postponing evaluation until it is needed.
+* Local Evaluation:: Evaluation in a local lexical environment.
@end menu
@@ -980,6 +981,39 @@ value.
@end deffn
address@hidden Local Evaluation
address@hidden Local Evaluation
+
address@hidden syntax the-environment
+Captures and returns a lexical environment for use with
address@hidden or @code{local-compile}.
address@hidden deffn
+
address@hidden {Scheme Procedure} local-eval exp env
address@hidden {C Function} scm_local_eval (exp, env)
+Evaluate the expression @var{exp} in the lexical environment @var{env}.
+This mostly behaves as if @var{exp} had been wrapped in a lambda
+expression @code{`(lambda () ,@var{exp})} and put in place of
address@hidden(the-environment)}, with the resulting procedure called by
address@hidden In other words, @var{exp} is evaluated within the
+lexical environment of @code{(the-environment)}, but within the dynamic
+environment of the call to @code{local-eval}.
address@hidden deffn
+
address@hidden {Scheme Procedure} local-compile exp env [opts=()]
+Compile the expression @var{exp} in the lexical environment @var{env}.
+If @var{exp} is a procedure, the result will be a compiled procedure;
+otherwise @code{local-compile} is mostly equivalent to
address@hidden @var{opts} specifies the compilation options.
address@hidden deffn
+
+Note that the current implementation of @code{(the-environment)} does
+not capture local syntax transformers bound by @code{let-syntax},
address@hidden or non-top-level @code{define-syntax} forms. Any
+attempt to reference such captured syntactic keywords via
address@hidden or @code{local-compile} produces an error.
+
+
@c Local Variables:
@c TeX-master: "guile.texi"
@c End:
diff --git a/libguile/debug.c b/libguile/debug.c
index 88a01d6..b1a90d8 100644
--- a/libguile/debug.c
+++ b/libguile/debug.c
@@ -1,5 +1,5 @@
/* Debugging extensions for Guile
- * Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2006, 2008,
2009, 2010, 2011 Free Software Foundation
+ * Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2006, 2008,
2009, 2010, 2011, 2012 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 License
@@ -208,6 +208,17 @@ SCM_DEFINE (scm_debug_hang, "debug-hang", 0, 1, 0,
#undef FUNC_NAME
#endif
+SCM
+scm_local_eval (SCM exp, SCM env)
+{
+ static SCM local_eval_var = SCM_BOOL_F;
+
+ if (scm_is_false (local_eval_var))
+ local_eval_var = scm_c_public_variable ("ice-9 local-eval", "local-eval");
+
+ return scm_call_2 (SCM_VARIABLE_REF (local_eval_var), exp, env);
+}
+
static void
init_stack_limit (void)
{
diff --git a/libguile/debug.h b/libguile/debug.h
index d862aba..4155d19 100644
--- a/libguile/debug.h
+++ b/libguile/debug.h
@@ -3,7 +3,7 @@
#ifndef SCM_DEBUG_H
#define SCM_DEBUG_H
-/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2004,2008,2009,2010
+/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2004,2008,2009,2010,2012
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@@ -41,6 +41,8 @@ typedef union scm_t_debug_info
+SCM_API SCM scm_local_eval (SCM exp, SCM env);
+
SCM_API SCM scm_reverse_lookup (SCM env, SCM data);
SCM_API SCM scm_procedure_source (SCM proc);
SCM_API SCM scm_procedure_name (SCM proc);
diff --git a/libguile/macros.c b/libguile/macros.c
index 556e60f..a0b1401 100644
--- a/libguile/macros.c
+++ b/libguile/macros.c
@@ -177,12 +177,46 @@ SCM_DEFINE (scm_macro_binding, "macro-binding", 1, 0, 0,
#undef FUNC_NAME
+static SCM syntax_session_id;
+
+#define SESSION_ID_LENGTH 22 /* bytes */
+#define BASE64_RADIX_BITS 6
+#define BASE64_RADIX (1 << (BASE64_RADIX_BITS))
+#define BASE64_MASK (BASE64_RADIX - 1)
+
+static SCM
+fresh_syntax_session_id (void)
+{
+ static const char base64[BASE64_RADIX] =
+ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789$@";
+
+ unsigned char digit_buf[SESSION_ID_LENGTH];
+ char char_buf[SESSION_ID_LENGTH];
+ size_t i;
+
+ scm_i_random_bytes_from_platform (digit_buf, SESSION_ID_LENGTH);
+ for (i = 0; i < SESSION_ID_LENGTH; ++i)
+ char_buf[i] = base64[digit_buf[i] & BASE64_MASK];
+
+ return scm_from_latin1_stringn (char_buf, SESSION_ID_LENGTH);
+}
+
+static SCM
+scm_syntax_session_id (void)
+{
+ return syntax_session_id;
+}
+
+
void
scm_init_macros ()
{
scm_tc16_macro = scm_make_smob_type ("macro", 0);
scm_set_smob_print (scm_tc16_macro, macro_print);
#include "libguile/macros.x"
+
+ syntax_session_id = fresh_syntax_session_id();
+ scm_c_define_gsubr ("syntax-session-id", 0, 0, 0, scm_syntax_session_id);
}
/*
diff --git a/libguile/symbols.c b/libguile/symbols.c
index 840a458..59aca00 100644
--- a/libguile/symbols.c
+++ b/libguile/symbols.c
@@ -31,7 +31,6 @@
#include "libguile/variable.h"
#include "libguile/alist.h"
#include "libguile/fluids.h"
-#include "libguile/threads.h"
#include "libguile/strings.h"
#include "libguile/vectors.h"
#include "libguile/hashtab.h"
@@ -341,9 +340,7 @@ SCM_DEFINE (scm_string_ci_to_symbol, "string-ci->symbol",
1, 0, 0,
/* The default prefix for `gensym'd symbols. */
static SCM default_gensym_prefix;
-#define GENSYM_LENGTH 22 /* bytes */
-#define GENSYM_RADIX_BITS 6
-#define GENSYM_RADIX (1 << (GENSYM_RADIX_BITS))
+#define MAX_PREFIX_LENGTH 30
SCM_DEFINE (scm_gensym, "gensym", 0, 1, 0,
(SCM prefix),
@@ -354,47 +351,22 @@ SCM_DEFINE (scm_gensym, "gensym", 0, 1, 0,
"resetting the counter.")
#define FUNC_NAME s_scm_gensym
{
- static const char base64[GENSYM_RADIX] =
- "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789$@";
- static const char base4[4] = "_.-~";
-
- unsigned char *digit_buf = SCM_I_CURRENT_THREAD->gensym_counter;
- char char_buf[GENSYM_LENGTH];
+ static int gensym_counter = 0;
+
SCM suffix, name;
- int i;
+ int n, n_digits;
+ char buf[SCM_INTBUFLEN];
if (SCM_UNBNDP (prefix))
prefix = default_gensym_prefix;
- if (SCM_UNLIKELY (digit_buf == NULL))
- {
- /* This is the first time gensym has been called in this thread.
- Allocate and randomize our new thread-local gensym counter */
- digit_buf = (unsigned char *)
- scm_gc_malloc_pointerless (GENSYM_LENGTH, "gensym-counter");
- scm_i_random_bytes_from_platform (digit_buf, GENSYM_LENGTH);
- for (i = (GENSYM_LENGTH - 1); i >= 0; --i)
- digit_buf[i] &= (GENSYM_RADIX - 1);
- SCM_I_CURRENT_THREAD->gensym_counter = digit_buf;
- }
-
- /* Increment our thread-local gensym_counter. */
- for (i = (GENSYM_LENGTH - 1); i >= 0; --i)
- {
- if (SCM_LIKELY (++(digit_buf[i]) < GENSYM_RADIX))
- break;
- else
- digit_buf[i] = 0;
- }
-
- /* Encode digit_buf as base64, except for the first character where we
- use the sparse glyphs "_.-~" (base 4) to provide some visual
- separation between the prefix and the dense base64 block. */
- for (i = (GENSYM_LENGTH - 1); i > 0; --i)
- char_buf[i] = base64[digit_buf[i]];
- char_buf[0] = base4[digit_buf[0] & 3];
+ /* mutex in case another thread looks and incs at the exact same moment */
+ scm_i_scm_pthread_mutex_lock (&scm_i_misc_mutex);
+ n = gensym_counter++;
+ scm_i_pthread_mutex_unlock (&scm_i_misc_mutex);
- suffix = scm_from_latin1_stringn (char_buf, GENSYM_LENGTH);
+ n_digits = scm_iint2str (n, 10, buf);
+ suffix = scm_from_latin1_stringn (buf, n_digits);
name = scm_string_append (scm_list_2 (prefix, suffix));
return scm_string_to_symbol (name);
}
diff --git a/libguile/threads.c b/libguile/threads.c
index 67834ff..5a13e5c 100644
--- a/libguile/threads.c
+++ b/libguile/threads.c
@@ -545,7 +545,6 @@ guilify_self_1 (struct GC_stack_base *base)
t.join_queue = SCM_EOL;
t.dynamic_state = SCM_BOOL_F;
t.dynwinds = SCM_EOL;
- t.gensym_counter = NULL;
t.active_asyncs = SCM_EOL;
t.block_asyncs = 1;
t.pending_asyncs = 1;
diff --git a/libguile/threads.h b/libguile/threads.h
index 3660a58..ec129bc 100644
--- a/libguile/threads.h
+++ b/libguile/threads.h
@@ -81,10 +81,6 @@ typedef struct scm_i_thread {
SCM dynamic_state;
SCM dynwinds;
- /* Thread-local gensym counter.
- */
- unsigned char *gensym_counter;
-
/* For system asyncs.
*/
SCM active_asyncs; /* The thunks to be run at the next
diff --git a/module/Makefile.am b/module/Makefile.am
index 56fa48d..9c9d8ed 100644
--- a/module/Makefile.am
+++ b/module/Makefile.am
@@ -1,6 +1,6 @@
## Process this file with automake to produce Makefile.in.
##
-## Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc.
+## Copyright (C) 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
##
## This file is part of GUILE.
##
@@ -243,7 +243,8 @@ ICE_9_SOURCES = \
ice-9/weak-vector.scm \
ice-9/list.scm \
ice-9/serialize.scm \
- ice-9/vlist.scm
+ ice-9/vlist.scm \
+ ice-9/local-eval.scm
SRFI_SOURCES = \
srfi/srfi-1.scm \
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 39be83d..c8a56e0 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -3889,7 +3889,8 @@ module '(ice-9 q) '(make-q q-length))}."
(steal-bindings! the-root-module (resolve-module '(system syntax))
'(syntax-local-binding
syntax-module
- syntax-locally-bound-identifiers)))
+ syntax-locally-bound-identifiers
+ syntax-session-id)))
diff --git a/module/ice-9/compile-psyntax.scm b/module/ice-9/compile-psyntax.scm
index 48bab92..3d803e9 100644
--- a/module/ice-9/compile-psyntax.scm
+++ b/module/ice-9/compile-psyntax.scm
@@ -1,6 +1,6 @@
;;; -*- mode: scheme; coding: utf-8; -*-
;;;
-;;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc.
+;;; Copyright (C) 2009, 2010, 2011, 2012 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
@@ -19,7 +19,12 @@
(use-modules (language tree-il)
(language tree-il optimize)
(language tree-il canonicalize)
- (ice-9 pretty-print))
+ (ice-9 pretty-print)
+ (system syntax))
+
+;; Avoid gratuitous churn in psyntax-pp.scm due to the marks and labels
+;; changing session identifiers.
+(set! syntax-session-id (lambda () "*"))
(let ((source (list-ref (command-line) 1))
(target (list-ref (command-line) 2)))
diff --git a/module/ice-9/local-eval.scm b/module/ice-9/local-eval.scm
new file mode 100644
index 0000000..f01a9c6
--- /dev/null
+++ b/module/ice-9/local-eval.scm
@@ -0,0 +1,251 @@
+;;; -*- mode: scheme; coding: utf-8; -*-
+;;;
+;;; Copyright (C) 2012 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
+
+(define-module (ice-9 local-eval)
+ #:use-module (ice-9 format)
+ #:use-module (srfi srfi-9)
+ #:use-module (srfi srfi-9 gnu)
+ #:use-module (system base compile)
+ #:use-module (system syntax)
+ #:export (the-environment local-eval local-compile))
+
+(define-record-type lexical-environment-type
+ (make-lexical-environment scope wrapper boxes patterns)
+ lexical-environment?
+ (scope lexenv-scope)
+ (wrapper lexenv-wrapper)
+ (boxes lexenv-boxes)
+ (patterns lexenv-patterns))
+
+(set-record-type-printer!
+ lexical-environment-type
+ (lambda (e port)
+ (format port "#<lexical-environment ~S (~S bindings)>"
+ (syntax-module (lexenv-scope e))
+ (+ (length (lexenv-boxes e)) (length (lexenv-patterns e))))))
+
+(define-syntax syntax-object-of
+ (lambda (form)
+ (syntax-case form ()
+ ((_ x) #`(quote #,(datum->syntax #'x #'x))))))
+
+(define-syntax-rule (make-box v)
+ (case-lambda
+ (() v)
+ ((x) (set! v x))))
+
+(define (make-transformer-from-box id trans)
+ (set-procedure-property! trans 'identifier-syntax-box id)
+ trans)
+
+(define-syntax-rule (identifier-syntax-from-box box)
+ (make-transformer-from-box
+ (syntax-object-of box)
+ (identifier-syntax (id (box))
+ ((set! id x) (box x)))))
+
+(define (unsupported-binding name)
+ (make-variable-transformer
+ (lambda (x)
+ (syntax-violation
+ 'local-eval
+ "unsupported binding captured by (the-environment)"
+ x))))
+
+(define (within-nested-ellipses id lvl)
+ (let loop ((s id) (n lvl))
+ (if (zero? n)
+ s
+ (loop #`(#,s (... ...)) (- n 1)))))
+
+;; Analyze the set of bound identifiers IDS. Return four values:
+;;
+;; capture: A list of forms that will be emitted in the expansion of
+;; `the-environment' to capture lexical variables.
+;;
+;; formals: Corresponding formal parameters for use in the lambda that
+;; re-introduces those variables. These are temporary identifiers, and
+;; as such if we have a nested `the-environment', there is no need to
+;; capture them. (See the notes on nested `the-environment' and
+;; proxies, below.)
+;;
+;; wrappers: A list of procedures of type SYNTAX -> SYNTAX, used to wrap
+;; the expression to be evaluated in forms that re-introduce the
+;; variable. The forms will be nested so that the variable shadowing
+;; semantics of the original form are maintained.
+;;
+;; patterns: A terrible hack. The issue is that for pattern variables,
+;; we can't emit lexically nested with-syntax forms, like:
+;;
+;; (with-syntax ((foo 1)) (the-environment))
+;; => (with-syntax ((foo 1))
+;; ... #'(with-syntax ((foo ...)) ... exp) ...)
+;;
+;; The reason is that the outer "foo" substitutes into the inner "foo",
+;; yielding something like:
+;;
+;; (with-syntax ((foo 1))
+;; ... (with-syntax ((1 ...)) ...)
+;;
+;; Which ain't what we want. So we hide the information needed to
+;; re-make the inner pattern binding form in the lexical environment
+;; object, and then introduce those identifiers via another with-syntax.
+;;
+;;
+;; There are four different kinds of lexical bindings: normal lexicals,
+;; macros, displaced lexicals, and pattern variables. See the
+;; documentation of syntax-local-binding for more info on these.
+;;
+;; We capture normal lexicals via `make-box', which creates a
+;; case-lambda that can reference or set a variable. These get
+;; re-introduced with an identifier-syntax.
+;;
+;; We can't capture macros currently. However we do recognize our own
+;; macros that are actually proxying lexicals, so that nested
+;; `the-environment' forms are possible. In that case we drill down to
+;; the identifier for the already-existing box, and just capture that
+;; box.
+;;
+;; And that's it: we skip displaced lexicals, and the pattern variables
+;; are discussed above.
+;;
+(define (analyze-identifiers ids)
+ (define (mktmp)
+ (datum->syntax #'here (gensym "t ")))
+ (let lp ((ids ids) (capture '()) (formals '()) (wrappers '()) (patterns '()))
+ (cond
+ ((null? ids)
+ (values capture formals wrappers patterns))
+ (else
+ (let ((id (car ids)) (ids (cdr ids)))
+ (call-with-values (lambda () (syntax-local-binding id))
+ (lambda (type val)
+ (case type
+ ((lexical)
+ (if (or-map (lambda (x) (bound-identifier=? x id)) formals)
+ (lp ids capture formals wrappers patterns)
+ (let ((t (mktmp)))
+ (lp ids
+ (cons #`(make-box #,id) capture)
+ (cons t formals)
+ (cons (lambda (x)
+ #`(let-syntax ((#,id
(identifier-syntax-from-box #,t)))
+ #,x))
+ wrappers)
+ patterns))))
+ ((displaced-lexical)
+ (lp ids capture formals wrappers patterns))
+ ((macro)
+ (let ((b (procedure-property val 'identifier-syntax-box)))
+ (if b
+ (lp ids (cons b capture) (cons b formals)
+ (cons (lambda (x)
+ #`(let-syntax ((#,id
(identifier-syntax-from-box #,b)))
+ #,x))
+ wrappers)
+ patterns)
+ (lp ids capture formals
+ (cons (lambda (x)
+ #`(let-syntax ((#,id (unsupported-binding
'#,id)))
+ #,x))
+ wrappers)
+ patterns))))
+ ((pattern-variable)
+ (let ((t (datum->syntax id (gensym "p ")))
+ (nested (within-nested-ellipses id (cdr val))))
+ (lp ids capture formals
+ (cons (lambda (x)
+ #`(with-syntax ((#,t '#,nested))
+ #,x))
+ wrappers)
+ ;; This dance is to hide these pattern variables
+ ;; from the expander.
+ (cons (list (datum->syntax #'here (syntax->datum id))
+ (cdr val)
+ t)
+ patterns))))
+ (else
+ (error "what" type val))))))))))
+
+(define-syntax the-environment
+ (lambda (x)
+ (syntax-case x ()
+ ((the-environment)
+ #'(the-environment the-environment))
+ ((the-environment scope)
+ (call-with-values (lambda ()
+ (analyze-identifiers
+ (syntax-locally-bound-identifiers #'scope)))
+ (lambda (capture formals wrappers patterns)
+ (define (wrap-expression x)
+ (let lp ((x x) (wrappers wrappers))
+ (if (null? wrappers)
+ x
+ (lp ((car wrappers) x) (cdr wrappers)))))
+ (with-syntax (((f ...) formals)
+ ((c ...) capture)
+ (((pname plvl pformal) ...) patterns)
+ (wrapped (wrap-expression #'(begin #f exp))))
+ #'(make-lexical-environment
+ #'scope
+ (lambda (exp pformal ...)
+ (with-syntax ((exp exp)
+ (pformal pformal)
+ ...)
+ #'(lambda (f ...)
+ wrapped)))
+ (list c ...)
+ (list (list 'pname plvl #'pformal) ...)))))))))
+
+(define (env-module e)
+ (cond
+ ((lexical-environment? e) (resolve-module (syntax-module (lexenv-scope e))))
+ ((module? e) e)
+ (else (error "invalid lexical environment" e))))
+
+(define (env-boxes e)
+ (cond
+ ((lexical-environment? e) (lexenv-boxes e))
+ ((module? e) '())
+ (else (error "invalid lexical environment" e))))
+
+(define (local-wrap x e)
+ (cond
+ ((lexical-environment? e)
+ (apply (lexenv-wrapper e)
+ (datum->syntax (lexenv-scope e) x)
+ (map (lambda (l)
+ (let ((name (car l))
+ (lvl (cadr l))
+ (scope (caddr l)))
+ (within-nested-ellipses (datum->syntax scope name) lvl)))
+ (lexenv-patterns e))))
+ ((module? e) `(lambda () #f ,exp))
+ (else (error "invalid lexical environment" e))))
+
+(define (local-eval x e)
+ "Evaluate the expression @var{x} within the lexical environment @var{e}."
+ (apply (eval (local-wrap x e) (env-module e))
+ (env-boxes e)))
+
+(define* (local-compile x e #:key (opts '()))
+ "Compile and evaluate the expression @var{x} within the lexical
+environment @var{e}."
+ (apply (compile (local-wrap x e) #:env (env-module e)
+ #:from 'scheme #:opts opts)
+ (env-boxes e)))
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index d616c7f..2f9c0d5 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,1541 +1,1243 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(let ((#{gen-label -ANAU$bmvAmthP7L7xwnNi}# (if #f #f))
- (#{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#
- (if #f #f)))
+(let ((session-id-4447 (if #f #f))
+ (transformer-environment-4508 (if #f #f)))
(letrec*
- ((#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwsuQ}#
- #{mod -ANAU$bmvAmthP7L7xwsuR}#)
- (primitive-eval #{x -ANAU$bmvAmthP7L7xwsuQ}#)))
- (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}#
- (lambda (#{symbol -ANAU$bmvAmthP7L7xwp7A}#
- #{module -ANAU$bmvAmthP7L7xwp7B}#)
+ ((top-level-eval-hook-4445
+ (lambda (x-27176 mod-27177)
+ (primitive-eval x-27176)))
+ (get-global-definition-hook-4449
+ (lambda (symbol-15643 module-15644)
(begin
- (if (if (not #{module -ANAU$bmvAmthP7L7xwp7B}#)
- (current-module)
- #f)
+ (if (if (not module-15644) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol -ANAU$bmvAmthP7L7xwp7A}#))
- (let ((#{v -ANAU$bmvAmthP7L7xwp7C}#
+ symbol-15643))
+ (let ((v-15645
(module-variable
- (if #{module -ANAU$bmvAmthP7L7xwp7B}#
- (resolve-module
- (cdr #{module -ANAU$bmvAmthP7L7xwp7B}#))
+ (if module-15644
+ (resolve-module (cdr module-15644))
(current-module))
- #{symbol -ANAU$bmvAmthP7L7xwp7A}#)))
- (if #{v -ANAU$bmvAmthP7L7xwp7C}#
- (if (variable-bound? #{v -ANAU$bmvAmthP7L7xwp7C}#)
- (let ((#{val -ANAU$bmvAmthP7L7xwp7E}#
- (variable-ref #{v -ANAU$bmvAmthP7L7xwp7C}#)))
- (if (macro? #{val -ANAU$bmvAmthP7L7xwp7E}#)
- (if (macro-type #{val -ANAU$bmvAmthP7L7xwp7E}#)
- (cons (macro-type #{val -ANAU$bmvAmthP7L7xwp7E}#)
- (macro-binding #{val -ANAU$bmvAmthP7L7xwp7E}#))
+ symbol-15643)))
+ (if v-15645
+ (if (variable-bound? v-15645)
+ (let ((val-15647 (variable-ref v-15645)))
+ (if (macro? val-15647)
+ (if (macro-type val-15647)
+ (cons (macro-type val-15647)
+ (macro-binding val-15647))
#f)
#f))
#f)
#f)))))
- (#{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}#
- (lambda (#{name address@hidden
- #{val address@hidden)
- (if (if (struct? #{val address@hidden)
- (eq? (struct-vtable #{val address@hidden)
+ (maybe-name-value!-4451
+ (lambda (name-15924 val-15925)
+ (if (if (struct? val-15925)
+ (eq? (struct-vtable val-15925)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta address@hidden
- (struct-ref #{val address@hidden 1)))
- (if (not (assq 'name #{meta address@hidden))
- (let ((#{v address@hidden
- (cons (cons 'name #{name address@hidden)
- #{meta address@hidden)))
- (struct-set!
- #{val address@hidden
- 1
- #{v address@hidden)))))))
- (#{build-application address@hidden
- (lambda (#{source -ANAU$bmvAmthP7L7xwp7G}#
- #{fun-exp -ANAU$bmvAmthP7L7xwp7H}#
- #{arg-exps -ANAU$bmvAmthP7L7xwp7I}#)
+ (let ((meta-15932 (struct-ref val-15925 1)))
+ (if (not (assq 'name meta-15932))
+ (let ((v-15937
+ (cons (cons 'name name-15924) meta-15932)))
+ (struct-set! val-15925 1 v-15937)))))))
+ (build-application-4453
+ (lambda (source-15649 fun-exp-15650 arg-exps-15651)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{source -ANAU$bmvAmthP7L7xwp7G}#
- #{fun-exp -ANAU$bmvAmthP7L7xwp7H}#
- #{arg-exps -ANAU$bmvAmthP7L7xwp7I}#)))
- (#{build-conditional -ANAU$bmvAmthP7L7xwnNA}#
- (lambda (#{source -ANAU$bmvAmthP7L7xwp7O}#
- #{test-exp -ANAU$bmvAmthP7L7xwp7P}#
- #{then-exp -ANAU$bmvAmthP7L7xwp7Q}#
- #{else-exp -ANAU$bmvAmthP7L7xwp7R}#)
+ source-15649
+ fun-exp-15650
+ arg-exps-15651)))
+ (build-conditional-4454
+ (lambda (source-15657
+ test-exp-15658
+ then-exp-15659
+ else-exp-15660)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{source -ANAU$bmvAmthP7L7xwp7O}#
- #{test-exp -ANAU$bmvAmthP7L7xwp7P}#
- #{then-exp -ANAU$bmvAmthP7L7xwp7Q}#
- #{else-exp -ANAU$bmvAmthP7L7xwp7R}#)))
- (#{build-dynlet -ANAU$bmvAmthP7L7xwnNB}#
- (lambda (#{source -ANAU$bmvAmthP7L7xwp7Y}#
- #{fluids -ANAU$bmvAmthP7L7xwp7Z}#
- #{vals -ANAU$bmvAmthP7L7xwp7a}#
- #{body -ANAU$bmvAmthP7L7xwp7b}#)
+ source-15657
+ test-exp-15658
+ then-exp-15659
+ else-exp-15660)))
+ (build-dynlet-4455
+ (lambda (source-15667 fluids-15668 vals-15669 body-15670)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{source -ANAU$bmvAmthP7L7xwp7Y}#
- #{fluids -ANAU$bmvAmthP7L7xwp7Z}#
- #{vals -ANAU$bmvAmthP7L7xwp7a}#
- #{body -ANAU$bmvAmthP7L7xwp7b}#)))
- (#{build-lexical-reference -ANAU$bmvAmthP7L7xwnNC}#
- (lambda (#{type -ANAU$bmvAmthP7L7xwsuS}#
- #{source -ANAU$bmvAmthP7L7xwsuT}#
- #{name -ANAU$bmvAmthP7L7xwsuU}#
- #{var -ANAU$bmvAmthP7L7xwsuV}#)
+ source-15667
+ fluids-15668
+ vals-15669
+ body-15670)))
+ (build-lexical-reference-4456
+ (lambda (type-27178 source-27179 name-27180 var-27181)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{source -ANAU$bmvAmthP7L7xwsuT}#
- #{name -ANAU$bmvAmthP7L7xwsuU}#
- #{var -ANAU$bmvAmthP7L7xwsuV}#)))
- (#{build-lexical-assignment -ANAU$bmvAmthP7L7xwnND}#
- (lambda (#{source -ANAU$bmvAmthP7L7xwp7i}#
- #{name -ANAU$bmvAmthP7L7xwp7j}#
- #{var -ANAU$bmvAmthP7L7xwp7k}#
- #{exp -ANAU$bmvAmthP7L7xwp7l}#)
+ source-27179
+ name-27180
+ var-27181)))
+ (build-lexical-assignment-4457
+ (lambda (source-15677 name-15678 var-15679 exp-15680)
(begin
- (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwp7l}#)
- (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwp7l}#)
+ (if (if (struct? exp-15680)
+ (eq? (struct-vtable exp-15680)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta -ANAU$bmvAmthP7L7xwp71}#
- (struct-ref #{exp -ANAU$bmvAmthP7L7xwp7l}# 1)))
- (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp71}#))
- (let ((#{v -ANAU$bmvAmthP7L7xwp78}#
- (cons (cons 'name #{name -ANAU$bmvAmthP7L7xwp7j}#)
- #{meta -ANAU$bmvAmthP7L7xwp71}#)))
- (struct-set!
- #{exp -ANAU$bmvAmthP7L7xwp7l}#
- 1
- #{v -ANAU$bmvAmthP7L7xwp78}#)))))
+ (let ((meta-15696 (struct-ref exp-15680 1)))
+ (if (not (assq 'name meta-15696))
+ (let ((v-15703
+ (cons (cons 'name name-15678) meta-15696)))
+ (struct-set! exp-15680 1 v-15703)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{source -ANAU$bmvAmthP7L7xwp7i}#
- #{name -ANAU$bmvAmthP7L7xwp7j}#
- #{var -ANAU$bmvAmthP7L7xwp7k}#
- #{exp -ANAU$bmvAmthP7L7xwp7l}#))))
- (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}#
- (lambda (#{mod -ANAU$bmvAmthP7L7xwsub}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#
- #{modref-cont -ANAU$bmvAmthP7L7xwsud}#
- #{bare-cont -ANAU$bmvAmthP7L7xwsue}#)
- (if (not #{mod -ANAU$bmvAmthP7L7xwsub}#)
- (#{bare-cont -ANAU$bmvAmthP7L7xwsue}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#)
- (let ((#{kind -ANAU$bmvAmthP7L7xwsuf}#
- (car #{mod -ANAU$bmvAmthP7L7xwsub}#))
- (#{mod -ANAU$bmvAmthP7L7xwsug}#
- (cdr #{mod -ANAU$bmvAmthP7L7xwsub}#)))
- (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'public)
- (#{modref-cont -ANAU$bmvAmthP7L7xwsud}#
- #{mod -ANAU$bmvAmthP7L7xwsug}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#
- #t)
- (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'private)
- (if (not (equal?
- #{mod -ANAU$bmvAmthP7L7xwsug}#
- (module-name (current-module))))
- (#{modref-cont -ANAU$bmvAmthP7L7xwsud}#
- #{mod -ANAU$bmvAmthP7L7xwsug}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#
- #f)
- (#{bare-cont -ANAU$bmvAmthP7L7xwsue}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#))
- (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'bare)
- (#{bare-cont -ANAU$bmvAmthP7L7xwsue}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#)
- (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'hygiene)
+ source-15677
+ name-15678
+ var-15679
+ exp-15680))))
+ (analyze-variable-4458
+ (lambda (mod-27187
+ var-27188
+ modref-cont-27189
+ bare-cont-27190)
+ (if (not mod-27187)
+ (bare-cont-27190 var-27188)
+ (let ((kind-27191 (car mod-27187))
+ (mod-27192 (cdr mod-27187)))
+ (if (eqv? kind-27191 'public)
+ (modref-cont-27189 mod-27192 var-27188 #t)
+ (if (eqv? kind-27191 'private)
+ (if (not (equal? mod-27192 (module-name (current-module))))
+ (modref-cont-27189 mod-27192 var-27188 #f)
+ (bare-cont-27190 var-27188))
+ (if (eqv? kind-27191 'bare)
+ (bare-cont-27190 var-27188)
+ (if (eqv? kind-27191 'hygiene)
(if (if (not (equal?
- #{mod -ANAU$bmvAmthP7L7xwsug}#
+ mod-27192
(module-name (current-module))))
(module-variable
- (resolve-module #{mod -ANAU$bmvAmthP7L7xwsug}#)
- #{var -ANAU$bmvAmthP7L7xwsuc}#)
+ (resolve-module mod-27192)
+ var-27188)
#f)
- (#{modref-cont -ANAU$bmvAmthP7L7xwsud}#
- #{mod -ANAU$bmvAmthP7L7xwsug}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#
- #f)
- (#{bare-cont -ANAU$bmvAmthP7L7xwsue}#
- #{var -ANAU$bmvAmthP7L7xwsuc}#))
+ (modref-cont-27189 mod-27192 var-27188 #f)
+ (bare-cont-27190 var-27188))
(syntax-violation
#f
"bad module kind"
- #{var -ANAU$bmvAmthP7L7xwsuc}#
- #{mod -ANAU$bmvAmthP7L7xwsug}#)))))))))
- (#{build-global-reference -ANAU$bmvAmthP7L7xwnNF}#
- (lambda (#{source -ANAU$bmvAmthP7L7xwsuv}#
- #{var -ANAU$bmvAmthP7L7xwsuw}#
- #{mod -ANAU$bmvAmthP7L7xwsux}#)
- (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}#
- #{mod -ANAU$bmvAmthP7L7xwsux}#
- #{var -ANAU$bmvAmthP7L7xwsuw}#
- (lambda (#{mod -ANAU$bmvAmthP7L7xwsu0}#
- #{var -ANAU$bmvAmthP7L7xwsu1}#
- #{public? -ANAU$bmvAmthP7L7xwsu2}#)
+ var-27188
+ mod-27192)))))))))
+ (build-global-reference-4459
+ (lambda (source-27207 var-27208 mod-27209)
+ (analyze-variable-4458
+ mod-27209
+ var-27208
+ (lambda (mod-27212 var-27213 public?-27214)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{source -ANAU$bmvAmthP7L7xwsuv}#
- #{mod -ANAU$bmvAmthP7L7xwsu0}#
- #{var -ANAU$bmvAmthP7L7xwsu1}#
- #{public? -ANAU$bmvAmthP7L7xwsu2}#))
- (lambda (#{var -ANAU$bmvAmthP7L7xwsu$}#)
+ source-27207
+ mod-27212
+ var-27213
+ public?-27214))
+ (lambda (var-27222)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{source -ANAU$bmvAmthP7L7xwsuv}#
- #{var -ANAU$bmvAmthP7L7xwsu$}#)))))
- (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}#
- (lambda (#{source -ANAU$bmvAmthP7L7xwp8F}#
- #{var -ANAU$bmvAmthP7L7xwp8G}#
- #{exp -ANAU$bmvAmthP7L7xwp8H}#
- #{mod -ANAU$bmvAmthP7L7xwp8I}#)
+ source-27207
+ var-27222)))))
+ (build-global-assignment-4460
+ (lambda (source-15712 var-15713 exp-15714 mod-15715)
(begin
- (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwp8H}#)
- (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwp8H}#)
+ (if (if (struct? exp-15714)
+ (eq? (struct-vtable exp-15714)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta -ANAU$bmvAmthP7L7xwp8Y}#
- (struct-ref #{exp -ANAU$bmvAmthP7L7xwp8H}# 1)))
- (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp8Y}#))
- (let ((#{v -ANAU$bmvAmthP7L7xwp8f}#
- (cons (cons 'name #{var -ANAU$bmvAmthP7L7xwp8G}#)
- #{meta -ANAU$bmvAmthP7L7xwp8Y}#)))
- (struct-set!
- #{exp -ANAU$bmvAmthP7L7xwp8H}#
- 1
- #{v -ANAU$bmvAmthP7L7xwp8f}#)))))
- (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}#
- #{mod -ANAU$bmvAmthP7L7xwp8I}#
- #{var -ANAU$bmvAmthP7L7xwp8G}#
- (lambda (#{mod -ANAU$bmvAmthP7L7xwp8k}#
- #{var -ANAU$bmvAmthP7L7xwp8l}#
- #{public? -ANAU$bmvAmthP7L7xwp8m}#)
+ (let ((meta-15731 (struct-ref exp-15714 1)))
+ (if (not (assq 'name meta-15731))
+ (let ((v-15738
+ (cons (cons 'name var-15713) meta-15731)))
+ (struct-set! exp-15714 1 v-15738)))))
+ (analyze-variable-4458
+ mod-15715
+ var-15713
+ (lambda (mod-15743 var-15744 public?-15745)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{source -ANAU$bmvAmthP7L7xwp8F}#
- #{mod -ANAU$bmvAmthP7L7xwp8k}#
- #{var -ANAU$bmvAmthP7L7xwp8l}#
- #{public? -ANAU$bmvAmthP7L7xwp8m}#
- #{exp -ANAU$bmvAmthP7L7xwp8H}#))
- (lambda (#{var -ANAU$bmvAmthP7L7xwp8u}#)
+ source-15712
+ mod-15743
+ var-15744
+ public?-15745
+ exp-15714))
+ (lambda (var-15753)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{source -ANAU$bmvAmthP7L7xwp8F}#
- #{var -ANAU$bmvAmthP7L7xwp8u}#
- #{exp -ANAU$bmvAmthP7L7xwp8H}#))))))
- (#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}#
- (lambda (#{source -ANAU$bmvAmthP7L7xwsvE}#
- #{var -ANAU$bmvAmthP7L7xwsvF}#
- #{exp -ANAU$bmvAmthP7L7xwsvG}#)
+ source-15712
+ var-15753
+ exp-15714))))))
+ (build-global-definition-4461
+ (lambda (source-27228 var-27229 exp-27230)
(begin
- (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwsvG}#)
- (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwsvG}#)
+ (if (if (struct? exp-27230)
+ (eq? (struct-vtable exp-27230)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta -ANAU$bmvAmthP7L7xwsvW}#
- (struct-ref #{exp -ANAU$bmvAmthP7L7xwsvG}# 1)))
- (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwsvW}#))
- (let ((#{v -ANAU$bmvAmthP7L7xwsvd}#
- (cons (cons 'name #{var -ANAU$bmvAmthP7L7xwsvF}#)
- #{meta -ANAU$bmvAmthP7L7xwsvW}#)))
- (struct-set!
- #{exp -ANAU$bmvAmthP7L7xwsvG}#
- 1
- #{v -ANAU$bmvAmthP7L7xwsvd}#)))))
+ (let ((meta-27246 (struct-ref exp-27230 1)))
+ (if (not (assq 'name meta-27246))
+ (let ((v-27253
+ (cons (cons 'name var-27229) meta-27246)))
+ (struct-set! exp-27230 1 v-27253)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{source -ANAU$bmvAmthP7L7xwsvE}#
- #{var -ANAU$bmvAmthP7L7xwsvF}#
- #{exp -ANAU$bmvAmthP7L7xwsvG}#))))
- (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}#
- (lambda (#{src -ANAU$bmvAmthP7L7xwp80}#
- #{req -ANAU$bmvAmthP7L7xwp81}#
- #{rest -ANAU$bmvAmthP7L7xwp82}#
- #{vars -ANAU$bmvAmthP7L7xwp83}#
- #{meta -ANAU$bmvAmthP7L7xwp84}#
- #{exp -ANAU$bmvAmthP7L7xwp85}#)
- (let ((#{body address@hidden
+ source-27228
+ var-27229
+ exp-27230))))
+ (build-simple-lambda-4462
+ (lambda (src-15759
+ req-15760
+ rest-15761
+ vars-15762
+ meta-15763
+ exp-15764)
+ (let ((body-15770
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src -ANAU$bmvAmthP7L7xwp80}#
- #{req -ANAU$bmvAmthP7L7xwp81}#
+ src-15759
+ req-15760
#f
- #{rest -ANAU$bmvAmthP7L7xwp82}#
+ rest-15761
#f
'()
- #{vars -ANAU$bmvAmthP7L7xwp83}#
- #{exp -ANAU$bmvAmthP7L7xwp85}#
+ vars-15762
+ exp-15764
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src -ANAU$bmvAmthP7L7xwp80}#
- #{meta -ANAU$bmvAmthP7L7xwp84}#
- #{body address@hidden))))
- (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}#
- (lambda (#{src -ANAU$bmvAmthP7L7xwsvl}#
- #{exps -ANAU$bmvAmthP7L7xwsvm}#)
- (if (null? (cdr #{exps -ANAU$bmvAmthP7L7xwsvm}#))
- (car #{exps -ANAU$bmvAmthP7L7xwsvm}#)
+ src-15759
+ meta-15763
+ body-15770))))
+ (build-sequence-4467
+ (lambda (src-27261 exps-27262)
+ (if (null? (cdr exps-27262))
+ (car exps-27262)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src -ANAU$bmvAmthP7L7xwsvl}#
- #{exps -ANAU$bmvAmthP7L7xwsvm}#))))
- (#{build-let -ANAU$bmvAmthP7L7xwnNO}#
- (lambda (#{src -ANAU$bmvAmthP7L7xwp9L}#
- #{ids -ANAU$bmvAmthP7L7xwp9M}#
- #{vars -ANAU$bmvAmthP7L7xwp9N}#
- #{val-exps -ANAU$bmvAmthP7L7xwp9O}#
- #{body-exp -ANAU$bmvAmthP7L7xwp9P}#)
+ src-27261
+ exps-27262))))
+ (build-let-4468
+ (lambda (src-15782
+ ids-15783
+ vars-15784
+ val-exps-15785
+ body-exp-15786)
(begin
(for-each
- #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}#
- #{ids -ANAU$bmvAmthP7L7xwp9M}#
- #{val-exps -ANAU$bmvAmthP7L7xwp9O}#)
- (if (null? #{vars -ANAU$bmvAmthP7L7xwp9N}#)
- #{body-exp -ANAU$bmvAmthP7L7xwp9P}#
+ maybe-name-value!-4451
+ ids-15783
+ val-exps-15785)
+ (if (null? vars-15784)
+ body-exp-15786
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src -ANAU$bmvAmthP7L7xwp9L}#
- #{ids -ANAU$bmvAmthP7L7xwp9M}#
- #{vars -ANAU$bmvAmthP7L7xwp9N}#
- #{val-exps -ANAU$bmvAmthP7L7xwp9O}#
- #{body-exp -ANAU$bmvAmthP7L7xwp9P}#)))))
- (#{build-named-let -ANAU$bmvAmthP7L7xwnNP}#
- (lambda (#{src -ANAU$bmvAmthP7L7xwp9n}#
- #{ids -ANAU$bmvAmthP7L7xwp9o}#
- #{vars -ANAU$bmvAmthP7L7xwp9p}#
- #{val-exps -ANAU$bmvAmthP7L7xwp9q}#
- #{body-exp -ANAU$bmvAmthP7L7xwp9r}#)
- (let ((#{f -ANAU$bmvAmthP7L7xwp9s}#
- (car #{vars -ANAU$bmvAmthP7L7xwp9p}#))
- (#{f-name -ANAU$bmvAmthP7L7xwp9t}#
- (car #{ids -ANAU$bmvAmthP7L7xwp9o}#))
- (#{vars -ANAU$bmvAmthP7L7xwp9u}#
- (cdr #{vars -ANAU$bmvAmthP7L7xwp9p}#))
- (#{ids -ANAU$bmvAmthP7L7xwp9v}#
- (cdr #{ids -ANAU$bmvAmthP7L7xwp9o}#)))
- (let ((#{proc -ANAU$bmvAmthP7L7xwp9w}#
- (let ((#{body -ANAU$bmvAmthP7L7xwp$E}#
+ src-15782
+ ids-15783
+ vars-15784
+ val-exps-15785
+ body-exp-15786)))))
+ (build-named-let-4469
+ (lambda (src-15810
+ ids-15811
+ vars-15812
+ val-exps-15813
+ body-exp-15814)
+ (let ((f-15815 (car vars-15812))
+ (f-name-15816 (car ids-15811))
+ (vars-15817 (cdr vars-15812))
+ (ids-15818 (cdr ids-15811)))
+ (let ((proc-15819
+ (let ((body-15839
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src -ANAU$bmvAmthP7L7xwp9n}#
- #{ids -ANAU$bmvAmthP7L7xwp9v}#
+ src-15810
+ ids-15818
#f
#f
#f
'()
- #{vars -ANAU$bmvAmthP7L7xwp9u}#
- #{body-exp -ANAU$bmvAmthP7L7xwp9r}#
+ vars-15817
+ body-exp-15814
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src -ANAU$bmvAmthP7L7xwp9n}#
+ src-15810
'()
- #{body -ANAU$bmvAmthP7L7xwp$E}#))))
+ body-15839))))
(begin
- (if (if (struct? #{proc -ANAU$bmvAmthP7L7xwp9w}#)
- (eq? (struct-vtable #{proc -ANAU$bmvAmthP7L7xwp9w}#)
+ (if (if (struct? proc-15819)
+ (eq? (struct-vtable proc-15819)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta -ANAU$bmvAmthP7L7xwp$c}#
- (struct-ref #{proc -ANAU$bmvAmthP7L7xwp9w}# 1)))
- (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp$c}#))
- (let ((#{v -ANAU$bmvAmthP7L7xwp$j}#
- (cons (cons 'name
- #{f-name -ANAU$bmvAmthP7L7xwp9t}#)
- #{meta -ANAU$bmvAmthP7L7xwp$c}#)))
- (struct-set!
- #{proc -ANAU$bmvAmthP7L7xwp9w}#
- 1
- #{v -ANAU$bmvAmthP7L7xwp$j}#)))))
+ (let ((meta-15863 (struct-ref proc-15819 1)))
+ (if (not (assq 'name meta-15863))
+ (let ((v-15870
+ (cons (cons 'name f-name-15816) meta-15863)))
+ (struct-set! proc-15819 1 v-15870)))))
(for-each
- #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}#
- #{ids -ANAU$bmvAmthP7L7xwp9v}#
- #{val-exps -ANAU$bmvAmthP7L7xwp9q}#)
- (let ((#{names -ANAU$bmvAmthP7L7xwp$7}#
- (list #{f-name -ANAU$bmvAmthP7L7xwp9t}#))
- (#{gensyms -ANAU$bmvAmthP7L7xwp$8}#
- (list #{f -ANAU$bmvAmthP7L7xwp9s}#))
- (#{vals -ANAU$bmvAmthP7L7xwp$9}#
- (list #{proc -ANAU$bmvAmthP7L7xwp9w}#))
- (#{body -ANAU$bmvAmthP7L7xwp$$}#
- (let ((#{fun-exp address@hidden
+ maybe-name-value!-4451
+ ids-15818
+ val-exps-15813)
+ (let ((names-15894 (list f-name-15816))
+ (gensyms-15895 (list f-15815))
+ (vals-15896 (list proc-15819))
+ (body-15897
+ (let ((fun-exp-15901
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src -ANAU$bmvAmthP7L7xwp9n}#
- #{f-name -ANAU$bmvAmthP7L7xwp9t}#
- #{f -ANAU$bmvAmthP7L7xwp9s}#)))
+ src-15810
+ f-name-15816
+ f-15815)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src -ANAU$bmvAmthP7L7xwp9n}#
- #{fun-exp address@hidden
- #{val-exps -ANAU$bmvAmthP7L7xwp9q}#))))
+ src-15810
+ fun-exp-15901
+ val-exps-15813))))
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src -ANAU$bmvAmthP7L7xwp9n}#
+ src-15810
#f
- #{names -ANAU$bmvAmthP7L7xwp$7}#
- #{gensyms -ANAU$bmvAmthP7L7xwp$8}#
- #{vals -ANAU$bmvAmthP7L7xwp$9}#
- #{body -ANAU$bmvAmthP7L7xwp$$}#)))))))
- (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}#
- (lambda (#{src address@hidden
- #{in-order? address@hidden
- #{ids address@hidden
- #{vars address@hidden
- #{val-exps address@hidden
- #{body-exp address@hidden)
- (if (null? #{vars address@hidden)
- #{body-exp address@hidden
+ names-15894
+ gensyms-15895
+ vals-15896
+ body-15897)))))))
+ (build-letrec-4470
+ (lambda (src-15917
+ in-order?-15918
+ ids-15919
+ vars-15920
+ val-exps-15921
+ body-exp-15922)
+ (if (null? vars-15920)
+ body-exp-15922
(begin
(for-each
- #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}#
- #{ids address@hidden
- #{val-exps address@hidden)
+ maybe-name-value!-4451
+ ids-15919
+ val-exps-15921)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src address@hidden
- #{in-order? address@hidden
- #{ids address@hidden
- #{vars address@hidden
- #{val-exps address@hidden
- #{body-exp address@hidden)))))
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- (lambda (#{x address@hidden)
- (if (if (vector? #{x address@hidden)
- (if (= (vector-length #{x address@hidden)
- 4)
- (eq? (vector-ref #{x address@hidden 0)
- 'syntax-object)
+ src-15917
+ in-order?-15918
+ ids-15919
+ vars-15920
+ val-exps-15921
+ body-exp-15922)))))
+ (source-annotation-4479
+ (lambda (x-15948)
+ (if (if (vector? x-15948)
+ (if (= (vector-length x-15948) 4)
+ (eq? (vector-ref x-15948 0) 'syntax-object)
#f)
#f)
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- (vector-ref #{x address@hidden 1))
- (if (pair? #{x address@hidden)
- (let ((#{props -ANAU$bmvAmthP7L7xwqAA}#
- (source-properties #{x address@hidden)))
- (if (pair? #{props -ANAU$bmvAmthP7L7xwqAA}#)
- #{props -ANAU$bmvAmthP7L7xwqAA}#
- #f))
+ (source-annotation-4479 (vector-ref x-15948 1))
+ (if (pair? x-15948)
+ (let ((props-15963 (source-properties x-15948)))
+ (if (pair? props-15963) props-15963 #f))
#f))))
- (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
- (lambda (#{labels -ANAU$bmvAmthP7L7xwqAC}#
- #{bindings -ANAU$bmvAmthP7L7xwqAD}#
- #{r -ANAU$bmvAmthP7L7xwqAE}#)
- (if (null? #{labels -ANAU$bmvAmthP7L7xwqAC}#)
- #{r -ANAU$bmvAmthP7L7xwqAE}#
- (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
- (cdr #{labels -ANAU$bmvAmthP7L7xwqAC}#)
- (cdr #{bindings -ANAU$bmvAmthP7L7xwqAD}#)
- (cons (cons (car #{labels -ANAU$bmvAmthP7L7xwqAC}#)
- (car #{bindings -ANAU$bmvAmthP7L7xwqAD}#))
- #{r -ANAU$bmvAmthP7L7xwqAE}#)))))
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- (lambda (#{labels -ANAU$bmvAmthP7L7xwqAF}#
- #{vars -ANAU$bmvAmthP7L7xwqAG}#
- #{r -ANAU$bmvAmthP7L7xwqAH}#)
- (if (null? #{labels -ANAU$bmvAmthP7L7xwqAF}#)
- #{r -ANAU$bmvAmthP7L7xwqAH}#
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- (cdr #{labels -ANAU$bmvAmthP7L7xwqAF}#)
- (cdr #{vars -ANAU$bmvAmthP7L7xwqAG}#)
- (cons (cons (car #{labels -ANAU$bmvAmthP7L7xwqAF}#)
- (cons 'lexical
- (car #{vars -ANAU$bmvAmthP7L7xwqAG}#)))
- #{r -ANAU$bmvAmthP7L7xwqAH}#)))))
- (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
- (lambda (#{r -ANAU$bmvAmthP7L7xwqAI}#)
- (if (null? #{r -ANAU$bmvAmthP7L7xwqAI}#)
+ (extend-env-4480
+ (lambda (labels-15965 bindings-15966 r-15967)
+ (if (null? labels-15965)
+ r-15967
+ (extend-env-4480
+ (cdr labels-15965)
+ (cdr bindings-15966)
+ (cons (cons (car labels-15965) (car bindings-15966))
+ r-15967)))))
+ (extend-var-env-4481
+ (lambda (labels-15968 vars-15969 r-15970)
+ (if (null? labels-15968)
+ r-15970
+ (extend-var-env-4481
+ (cdr labels-15968)
+ (cdr vars-15969)
+ (cons (cons (car labels-15968)
+ (cons 'lexical (car vars-15969)))
+ r-15970)))))
+ (macros-only-env-4482
+ (lambda (r-15971)
+ (if (null? r-15971)
'()
- (let ((#{a -ANAU$bmvAmthP7L7xwqAJ}#
- (car #{r -ANAU$bmvAmthP7L7xwqAI}#)))
- (if (eq? (car (cdr #{a -ANAU$bmvAmthP7L7xwqAJ}#))
- 'macro)
- (cons #{a -ANAU$bmvAmthP7L7xwqAJ}#
- (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
- (cdr #{r -ANAU$bmvAmthP7L7xwqAI}#)))
- (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
- (cdr #{r -ANAU$bmvAmthP7L7xwqAI}#)))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
- (lambda (#{type -ANAU$bmvAmthP7L7xwqAL}#
- #{sym -ANAU$bmvAmthP7L7xwqAM}#
- #{val -ANAU$bmvAmthP7L7xwqAN}#)
+ (let ((a-15972 (car r-15971)))
+ (if (eq? (car (cdr a-15972)) 'macro)
+ (cons a-15972
+ (macros-only-env-4482 (cdr r-15971)))
+ (macros-only-env-4482 (cdr r-15971)))))))
+ (global-extend-4484
+ (lambda (type-15974 sym-15975 val-15976)
(module-define!
(current-module)
- #{sym -ANAU$bmvAmthP7L7xwqAM}#
+ sym-15975
(make-syntax-transformer
- #{sym -ANAU$bmvAmthP7L7xwqAM}#
- #{type -ANAU$bmvAmthP7L7xwqAL}#
- #{val -ANAU$bmvAmthP7L7xwqAN}#))))
- (#{id? -ANAU$bmvAmthP7L7xwnNg}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwofs}#)
- (if (symbol? #{x -ANAU$bmvAmthP7L7xwofs}#)
+ sym-15975
+ type-15974
+ val-15976))))
+ (id?-4486
+ (lambda (x-9787)
+ (if (symbol? x-9787)
#t
- (if (if (vector? #{x -ANAU$bmvAmthP7L7xwofs}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwofs}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwofs}# 0)
- 'syntax-object)
+ (if (if (vector? x-9787)
+ (if (= (vector-length x-9787) 4)
+ (eq? (vector-ref x-9787 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{x -ANAU$bmvAmthP7L7xwofs}# 1))
+ (symbol? (vector-ref x-9787 1))
#f))))
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- (lambda (#{ls -ANAU$bmvAmthP7L7xwqAa}#)
- (if (null? #{ls -ANAU$bmvAmthP7L7xwqAa}#)
+ (gen-labels-4489
+ (lambda (ls-15986)
+ (if (null? ls-15986)
'()
- (cons (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#)
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- (cdr #{ls -ANAU$bmvAmthP7L7xwqAa}#))))))
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- (lambda (#{ids -ANAU$bmvAmthP7L7xwqAb}#
- #{labels -ANAU$bmvAmthP7L7xwqAc}#
- #{w -ANAU$bmvAmthP7L7xwqAd}#)
- (if (null? #{ids -ANAU$bmvAmthP7L7xwqAb}#)
- #{w -ANAU$bmvAmthP7L7xwqAd}#
- (cons (car #{w -ANAU$bmvAmthP7L7xwqAd}#)
- (cons (let ((#{labelvec -ANAU$bmvAmthP7L7xwqAe}#
- (list->vector
- #{labels -ANAU$bmvAmthP7L7xwqAc}#)))
- (let ((#{n -ANAU$bmvAmthP7L7xwqAf}#
- (vector-length
- #{labelvec -ANAU$bmvAmthP7L7xwqAe}#)))
- (let ((#{symnamevec -ANAU$bmvAmthP7L7xwqAg}#
- (make-vector #{n -ANAU$bmvAmthP7L7xwqAf}#))
- (#{marksvec -ANAU$bmvAmthP7L7xwqAh}#
- (make-vector #{n -ANAU$bmvAmthP7L7xwqAf}#)))
+ (cons (string-append
+ "l-"
+ (session-id-4447)
+ (symbol->string (gensym "-")))
+ (gen-labels-4489 (cdr ls-15986))))))
+ (make-binding-wrap-4500
+ (lambda (ids-15990 labels-15991 w-15992)
+ (if (null? ids-15990)
+ w-15992
+ (cons (car w-15992)
+ (cons (let ((labelvec-15993 (list->vector labels-15991)))
+ (let ((n-15994 (vector-length labelvec-15993)))
+ (let ((symnamevec-15995 (make-vector n-15994))
+ (marksvec-15996 (make-vector n-15994)))
(begin
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwqAi}#
- (lambda (#{ids -ANAU$bmvAmthP7L7xwqAl}#
- #{i -ANAU$bmvAmthP7L7xwqAm}#)
- (if (not (null? #{ids
-ANAU$bmvAmthP7L7xwqAl}#))
+ ((f-15997
+ (lambda (ids-16000 i-16001)
+ (if (not (null? ids-16000))
(call-with-values
(lambda ()
- (let ((#{x -ANAU$bmvAmthP7L7xwqAp}#
- (car #{ids
-ANAU$bmvAmthP7L7xwqAl}#)))
- (if (if (vector?
- #{x
-ANAU$bmvAmthP7L7xwqAp}#)
+ (let ((x-16004 (car ids-16000)))
+ (if (if (vector? x-16004)
(if (= (vector-length
- #{x
-ANAU$bmvAmthP7L7xwqAp}#)
+ x-16004)
4)
(eq? (vector-ref
- #{x
-ANAU$bmvAmthP7L7xwqAp}#
+ x-16004
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref
- #{x
-ANAU$bmvAmthP7L7xwqAp}#
- 1)
- (let ((#{m1
-ANAU$bmvAmthP7L7xwqA5}#
- (car #{w
-ANAU$bmvAmthP7L7xwqAd}#))
- (#{m2
-ANAU$bmvAmthP7L7xwqA6}#
+ (vector-ref x-16004 1)
+ (let ((m1-16020
+ (car w-15992))
+ (m2-16021
(car (vector-ref
- #{x
-ANAU$bmvAmthP7L7xwqAp}#
+ x-16004
2))))
- (if (null? #{m2
-ANAU$bmvAmthP7L7xwqA6}#)
- #{m1
-ANAU$bmvAmthP7L7xwqA5}#
+ (if (null? m2-16021)
+ m1-16020
(append
- #{m1
-ANAU$bmvAmthP7L7xwqA5}#
- #{m2
-ANAU$bmvAmthP7L7xwqA6}#))))
+ m1-16020
+ m2-16021))))
(values
- #{x -ANAU$bmvAmthP7L7xwqAp}#
- (car #{w
-ANAU$bmvAmthP7L7xwqAd}#)))))
- (lambda (#{symname
-ANAU$bmvAmthP7L7xwqBO}#
- #{marks
-ANAU$bmvAmthP7L7xwqBP}#)
+ x-16004
+ (car w-15992)))))
+ (lambda (symname-16041 marks-16042)
(begin
(vector-set!
- #{symnamevec
-ANAU$bmvAmthP7L7xwqAg}#
- #{i -ANAU$bmvAmthP7L7xwqAm}#
- #{symname
-ANAU$bmvAmthP7L7xwqBO}#)
+ symnamevec-15995
+ i-16001
+ symname-16041)
(vector-set!
- #{marksvec
-ANAU$bmvAmthP7L7xwqAh}#
- #{i -ANAU$bmvAmthP7L7xwqAm}#
- #{marks
-ANAU$bmvAmthP7L7xwqBP}#)
- (#{f -ANAU$bmvAmthP7L7xwqAi}#
- (cdr #{ids
-ANAU$bmvAmthP7L7xwqAl}#)
- (#{1+}# #{i
-ANAU$bmvAmthP7L7xwqAm}#)))))))))
- (#{f -ANAU$bmvAmthP7L7xwqAi}#
- #{ids -ANAU$bmvAmthP7L7xwqAb}#
- 0))
+ marksvec-15996
+ i-16001
+ marks-16042)
+ (f-15997
+ (cdr ids-16000)
+ (#{1+}# i-16001)))))))))
+ (f-15997 ids-15990 0))
(vector
'ribcage
- #{symnamevec -ANAU$bmvAmthP7L7xwqAg}#
- #{marksvec -ANAU$bmvAmthP7L7xwqAh}#
- #{labelvec -ANAU$bmvAmthP7L7xwqAe}#)))))
- (cdr #{w -ANAU$bmvAmthP7L7xwqAd}#))))))
- (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
- (lambda (#{w1 -ANAU$bmvAmthP7L7xwqBY}#
- #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)
- (let ((#{m1 -ANAU$bmvAmthP7L7xwqBa}#
- (car #{w1 -ANAU$bmvAmthP7L7xwqBY}#))
- (#{s1 -ANAU$bmvAmthP7L7xwqBb}#
- (cdr #{w1 -ANAU$bmvAmthP7L7xwqBY}#)))
- (if (null? #{m1 -ANAU$bmvAmthP7L7xwqBa}#)
- (if (null? #{s1 -ANAU$bmvAmthP7L7xwqBb}#)
- #{w2 -ANAU$bmvAmthP7L7xwqBZ}#
- (cons (car #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)
- (let ((#{m2 -ANAU$bmvAmthP7L7xwqBi}#
- (cdr #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)))
- (if (null? #{m2 -ANAU$bmvAmthP7L7xwqBi}#)
- #{s1 -ANAU$bmvAmthP7L7xwqBb}#
- (append
- #{s1 -ANAU$bmvAmthP7L7xwqBb}#
- #{m2 -ANAU$bmvAmthP7L7xwqBi}#)))))
- (cons (let ((#{m2 -ANAU$bmvAmthP7L7xwqBr}#
- (car #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)))
- (if (null? #{m2 -ANAU$bmvAmthP7L7xwqBr}#)
- #{m1 -ANAU$bmvAmthP7L7xwqBa}#
- (append
- #{m1 -ANAU$bmvAmthP7L7xwqBa}#
- #{m2 -ANAU$bmvAmthP7L7xwqBr}#)))
- (let ((#{m2 -ANAU$bmvAmthP7L7xwqB0}#
- (cdr #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)))
- (if (null? #{m2 -ANAU$bmvAmthP7L7xwqB0}#)
- #{s1 -ANAU$bmvAmthP7L7xwqBb}#
- (append
- #{s1 -ANAU$bmvAmthP7L7xwqBb}#
- #{m2 -ANAU$bmvAmthP7L7xwqB0}#))))))))
- (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwqB5}#
- #{y -ANAU$bmvAmthP7L7xwqB6}#)
- (if (eq? #{x -ANAU$bmvAmthP7L7xwqB5}#
- #{y -ANAU$bmvAmthP7L7xwqB6}#)
- (eq? #{x -ANAU$bmvAmthP7L7xwqB5}#
- #{y -ANAU$bmvAmthP7L7xwqB6}#)
- (if (not (null? #{x -ANAU$bmvAmthP7L7xwqB5}#))
- (if (not (null? #{y -ANAU$bmvAmthP7L7xwqB6}#))
- (if (eq? (car #{x -ANAU$bmvAmthP7L7xwqB5}#)
- (car #{y -ANAU$bmvAmthP7L7xwqB6}#))
- (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}#
- (cdr #{x -ANAU$bmvAmthP7L7xwqB5}#)
- (cdr #{y -ANAU$bmvAmthP7L7xwqB6}#))
+ symnamevec-15995
+ marksvec-15996
+ labelvec-15993)))))
+ (cdr w-15992))))))
+ (join-wraps-4502
+ (lambda (w1-16051 w2-16052)
+ (let ((m1-16053 (car w1-16051))
+ (s1-16054 (cdr w1-16051)))
+ (if (null? m1-16053)
+ (if (null? s1-16054)
+ w2-16052
+ (cons (car w2-16052)
+ (let ((m2-16061 (cdr w2-16052)))
+ (if (null? m2-16061)
+ s1-16054
+ (append s1-16054 m2-16061)))))
+ (cons (let ((m2-16070 (car w2-16052)))
+ (if (null? m2-16070)
+ m1-16053
+ (append m1-16053 m2-16070)))
+ (let ((m2-16079 (cdr w2-16052)))
+ (if (null? m2-16079)
+ s1-16054
+ (append s1-16054 m2-16079))))))))
+ (same-marks?-4504
+ (lambda (x-16084 y-16085)
+ (if (eq? x-16084 y-16085)
+ (eq? x-16084 y-16085)
+ (if (not (null? x-16084))
+ (if (not (null? y-16085))
+ (if (eq? (car x-16084) (car y-16085))
+ (same-marks?-4504 (cdr x-16084) (cdr y-16085))
#f)
#f)
#f))))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- (lambda (#{id -ANAU$bmvAmthP7L7xwqCC}#
- #{w -ANAU$bmvAmthP7L7xwqCD}#)
+ (id-var-name-4505
+ (lambda (id-16093 w-16094)
(letrec*
- ((#{search -ANAU$bmvAmthP7L7xwqCE}#
- (lambda (#{sym -ANAU$bmvAmthP7L7xwqDB}#
- #{subst -ANAU$bmvAmthP7L7xwqDC}#
- #{marks -ANAU$bmvAmthP7L7xwqDD}#)
- (if (null? #{subst -ANAU$bmvAmthP7L7xwqDC}#)
- (values #f #{marks -ANAU$bmvAmthP7L7xwqDD}#)
- (let ((#{fst -ANAU$bmvAmthP7L7xwqDE}#
- (car #{subst -ANAU$bmvAmthP7L7xwqDC}#)))
- (if (eq? #{fst -ANAU$bmvAmthP7L7xwqDE}# 'shift)
- (#{search -ANAU$bmvAmthP7L7xwqCE}#
- #{sym -ANAU$bmvAmthP7L7xwqDB}#
- (cdr #{subst -ANAU$bmvAmthP7L7xwqDC}#)
- (cdr #{marks -ANAU$bmvAmthP7L7xwqDD}#))
- (let ((#{symnames -ANAU$bmvAmthP7L7xwqDG}#
- (vector-ref #{fst -ANAU$bmvAmthP7L7xwqDE}# 1)))
- (if (vector? #{symnames -ANAU$bmvAmthP7L7xwqDG}#)
- (let ((#{n -ANAU$bmvAmthP7L7xwqDS}#
- (vector-length
- #{symnames -ANAU$bmvAmthP7L7xwqDG}#)))
+ ((search-16095
+ (lambda (sym-16156 subst-16157 marks-16158)
+ (if (null? subst-16157)
+ (values #f marks-16158)
+ (let ((fst-16159 (car subst-16157)))
+ (if (eq? fst-16159 'shift)
+ (search-16095
+ sym-16156
+ (cdr subst-16157)
+ (cdr marks-16158))
+ (let ((symnames-16161 (vector-ref fst-16159 1)))
+ (if (vector? symnames-16161)
+ (let ((n-16173 (vector-length symnames-16161)))
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwqDT}#
- (lambda (#{i -ANAU$bmvAmthP7L7xwqDV}#)
- (if (= #{i -ANAU$bmvAmthP7L7xwqDV}#
- #{n -ANAU$bmvAmthP7L7xwqDS}#)
- (#{search -ANAU$bmvAmthP7L7xwqCE}#
- #{sym -ANAU$bmvAmthP7L7xwqDB}#
- (cdr #{subst -ANAU$bmvAmthP7L7xwqDC}#)
- #{marks -ANAU$bmvAmthP7L7xwqDD}#)
+ ((f-16174
+ (lambda (i-16176)
+ (if (= i-16176 n-16173)
+ (search-16095
+ sym-16156
+ (cdr subst-16157)
+ marks-16158)
(if (if (eq? (vector-ref
- #{symnames
-ANAU$bmvAmthP7L7xwqDG}#
- #{i
-ANAU$bmvAmthP7L7xwqDV}#)
- #{sym
-ANAU$bmvAmthP7L7xwqDB}#)
- (#{same-marks?
-ANAU$bmvAmthP7L7xwnNy}#
- #{marks -ANAU$bmvAmthP7L7xwqDD}#
+ symnames-16161
+ i-16176)
+ sym-16156)
+ (same-marks?-4504
+ marks-16158
(vector-ref
- (vector-ref
- #{fst -ANAU$bmvAmthP7L7xwqDE}#
- 2)
- #{i -ANAU$bmvAmthP7L7xwqDV}#))
+ (vector-ref fst-16159 2)
+ i-16176))
#f)
(values
(vector-ref
- (vector-ref
- #{fst -ANAU$bmvAmthP7L7xwqDE}#
- 3)
- #{i -ANAU$bmvAmthP7L7xwqDV}#)
- #{marks -ANAU$bmvAmthP7L7xwqDD}#)
- (#{f -ANAU$bmvAmthP7L7xwqDT}#
- (#{1+}# #{i
-ANAU$bmvAmthP7L7xwqDV}#)))))))
- (#{f -ANAU$bmvAmthP7L7xwqDT}# 0)))
+ (vector-ref fst-16159 3)
+ i-16176)
+ marks-16158)
+ (f-16174 (#{1+}# i-16176)))))))
+ (f-16174 0)))
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwqD2}#
- (lambda (#{symnames -ANAU$bmvAmthP7L7xwqD4}#
- #{i -ANAU$bmvAmthP7L7xwqD5}#)
- (if (null? #{symnames
-ANAU$bmvAmthP7L7xwqD4}#)
- (#{search -ANAU$bmvAmthP7L7xwqCE}#
- #{sym -ANAU$bmvAmthP7L7xwqDB}#
- (cdr #{subst -ANAU$bmvAmthP7L7xwqDC}#)
- #{marks -ANAU$bmvAmthP7L7xwqDD}#)
- (if (if (eq? (car #{symnames
-ANAU$bmvAmthP7L7xwqD4}#)
- #{sym -ANAU$bmvAmthP7L7xwqDB}#)
- (#{same-marks?
-ANAU$bmvAmthP7L7xwnNy}#
- #{marks -ANAU$bmvAmthP7L7xwqDD}#
+ ((f-16209
+ (lambda (symnames-16211 i-16212)
+ (if (null? symnames-16211)
+ (search-16095
+ sym-16156
+ (cdr subst-16157)
+ marks-16158)
+ (if (if (eq? (car symnames-16211) sym-16156)
+ (same-marks?-4504
+ marks-16158
(list-ref
- (vector-ref
- #{fst -ANAU$bmvAmthP7L7xwqDE}#
- 2)
- #{i -ANAU$bmvAmthP7L7xwqD5}#))
+ (vector-ref fst-16159 2)
+ i-16212))
#f)
(values
(list-ref
- (vector-ref
- #{fst -ANAU$bmvAmthP7L7xwqDE}#
- 3)
- #{i -ANAU$bmvAmthP7L7xwqD5}#)
- #{marks -ANAU$bmvAmthP7L7xwqDD}#)
- (#{f -ANAU$bmvAmthP7L7xwqD2}#
- (cdr #{symnames
-ANAU$bmvAmthP7L7xwqD4}#)
- (#{1+}# #{i
-ANAU$bmvAmthP7L7xwqD5}#)))))))
- (#{f -ANAU$bmvAmthP7L7xwqD2}#
- #{symnames -ANAU$bmvAmthP7L7xwqDG}#
- 0))))))))))
- (if (symbol? #{id -ANAU$bmvAmthP7L7xwqCC}#)
- (let ((#{t -ANAU$bmvAmthP7L7xwqCH}#
- (#{search -ANAU$bmvAmthP7L7xwqCE}#
- #{id -ANAU$bmvAmthP7L7xwqCC}#
- (cdr #{w -ANAU$bmvAmthP7L7xwqCD}#)
- (car #{w -ANAU$bmvAmthP7L7xwqCD}#))))
- (if #{t -ANAU$bmvAmthP7L7xwqCH}#
- #{t -ANAU$bmvAmthP7L7xwqCH}#
- #{id -ANAU$bmvAmthP7L7xwqCC}#))
- (if (if (vector? #{id -ANAU$bmvAmthP7L7xwqCC}#)
- (if (= (vector-length #{id -ANAU$bmvAmthP7L7xwqCC}#)
- 4)
- (eq? (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 0)
- 'syntax-object)
+ (vector-ref fst-16159 3)
+ i-16212)
+ marks-16158)
+ (f-16209
+ (cdr symnames-16211)
+ (#{1+}# i-16212)))))))
+ (f-16209 symnames-16161 0))))))))))
+ (if (symbol? id-16093)
+ (let ((t-16098
+ (search-16095
+ id-16093
+ (cdr w-16094)
+ (car w-16094))))
+ (if t-16098 t-16098 id-16093))
+ (if (if (vector? id-16093)
+ (if (= (vector-length id-16093) 4)
+ (eq? (vector-ref id-16093 0) 'syntax-object)
#f)
#f)
- (let ((#{id -ANAU$bmvAmthP7L7xwqCW}#
- (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 1))
- (#{w1 -ANAU$bmvAmthP7L7xwqCX}#
- (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 2)))
- (let ((#{marks -ANAU$bmvAmthP7L7xwqCY}#
- (let ((#{m1 -ANAU$bmvAmthP7L7xwqCi}#
- (car #{w -ANAU$bmvAmthP7L7xwqCD}#))
- (#{m2 -ANAU$bmvAmthP7L7xwqCj}#
- (car #{w1 -ANAU$bmvAmthP7L7xwqCX}#)))
- (if (null? #{m2 -ANAU$bmvAmthP7L7xwqCj}#)
- #{m1 -ANAU$bmvAmthP7L7xwqCi}#
- (append
- #{m1 -ANAU$bmvAmthP7L7xwqCi}#
- #{m2 -ANAU$bmvAmthP7L7xwqCj}#)))))
+ (let ((id-16113 (vector-ref id-16093 1))
+ (w1-16114 (vector-ref id-16093 2)))
+ (let ((marks-16115
+ (let ((m1-16125 (car w-16094))
+ (m2-16126 (car w1-16114)))
+ (if (null? m2-16126)
+ m1-16125
+ (append m1-16125 m2-16126)))))
(call-with-values
(lambda ()
- (#{search -ANAU$bmvAmthP7L7xwqCE}#
- #{id -ANAU$bmvAmthP7L7xwqCW}#
- (cdr #{w -ANAU$bmvAmthP7L7xwqCD}#)
- #{marks -ANAU$bmvAmthP7L7xwqCY}#))
- (lambda (#{new-id -ANAU$bmvAmthP7L7xwqCz}#
- #{marks -ANAU$bmvAmthP7L7xwqC0}#)
- (if #{new-id -ANAU$bmvAmthP7L7xwqCz}#
- #{new-id -ANAU$bmvAmthP7L7xwqCz}#
- (let ((#{t -ANAU$bmvAmthP7L7xwqC8}#
- (#{search -ANAU$bmvAmthP7L7xwqCE}#
- #{id -ANAU$bmvAmthP7L7xwqCW}#
- (cdr #{w1 -ANAU$bmvAmthP7L7xwqCX}#)
- #{marks -ANAU$bmvAmthP7L7xwqC0}#)))
- (if #{t -ANAU$bmvAmthP7L7xwqC8}#
- #{t -ANAU$bmvAmthP7L7xwqC8}#
- #{id -ANAU$bmvAmthP7L7xwqCW}#)))))))
+ (search-16095 id-16113 (cdr w-16094) marks-16115))
+ (lambda (new-id-16142 marks-16143)
+ (if new-id-16142
+ new-id-16142
+ (let ((t-16151
+ (search-16095
+ id-16113
+ (cdr w1-16114)
+ marks-16143)))
+ (if t-16151 t-16151 id-16113)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id -ANAU$bmvAmthP7L7xwqCC}#))))))
- (#{locally-bound-identifiers -ANAU$bmvAmthP7L7xwnN0}#
- (lambda (#{w -ANAU$bmvAmthP7L7xwqEP}#
- #{mod -ANAU$bmvAmthP7L7xwqEQ}#)
+ id-16093))))))
+ (locally-bound-identifiers-4506
+ (lambda (w-16234 mod-16235)
(letrec*
- ((#{scan -ANAU$bmvAmthP7L7xwqER}#
- (lambda (#{subst -ANAU$bmvAmthP7L7xwqEW}#
- #{results -ANAU$bmvAmthP7L7xwqEX}#)
- (if (null? #{subst -ANAU$bmvAmthP7L7xwqEW}#)
- #{results -ANAU$bmvAmthP7L7xwqEX}#
- (let ((#{fst -ANAU$bmvAmthP7L7xwqEY}#
- (car #{subst -ANAU$bmvAmthP7L7xwqEW}#)))
- (if (eq? #{fst -ANAU$bmvAmthP7L7xwqEY}# 'shift)
- (#{scan -ANAU$bmvAmthP7L7xwqER}#
- (cdr #{subst -ANAU$bmvAmthP7L7xwqEW}#)
- #{results -ANAU$bmvAmthP7L7xwqEX}#)
- (let ((#{symnames -ANAU$bmvAmthP7L7xwqEa}#
- (vector-ref #{fst -ANAU$bmvAmthP7L7xwqEY}# 1))
- (#{marks -ANAU$bmvAmthP7L7xwqEb}#
- (vector-ref #{fst -ANAU$bmvAmthP7L7xwqEY}# 2)))
- (if (vector? #{symnames -ANAU$bmvAmthP7L7xwqEa}#)
- (#{scan-vector-rib -ANAU$bmvAmthP7L7xwqET}#
- #{subst -ANAU$bmvAmthP7L7xwqEW}#
- #{symnames -ANAU$bmvAmthP7L7xwqEa}#
- #{marks -ANAU$bmvAmthP7L7xwqEb}#
- #{results -ANAU$bmvAmthP7L7xwqEX}#)
- (#{scan-list-rib -ANAU$bmvAmthP7L7xwqES}#
- #{subst -ANAU$bmvAmthP7L7xwqEW}#
- #{symnames -ANAU$bmvAmthP7L7xwqEa}#
- #{marks -ANAU$bmvAmthP7L7xwqEb}#
- #{results -ANAU$bmvAmthP7L7xwqEX}#))))))))
- (#{scan-list-rib -ANAU$bmvAmthP7L7xwqES}#
- (lambda (#{subst -ANAU$bmvAmthP7L7xwqF9}#
- #{symnames -ANAU$bmvAmthP7L7xwqF$}#
- #{marks address@hidden
- #{results -ANAU$bmvAmthP7L7xwqGA}#)
+ ((scan-16236
+ (lambda (subst-16241 results-16242)
+ (if (null? subst-16241)
+ results-16242
+ (let ((fst-16243 (car subst-16241)))
+ (if (eq? fst-16243 'shift)
+ (scan-16236 (cdr subst-16241) results-16242)
+ (let ((symnames-16245 (vector-ref fst-16243 1))
+ (marks-16246 (vector-ref fst-16243 2)))
+ (if (vector? symnames-16245)
+ (scan-vector-rib-16238
+ subst-16241
+ symnames-16245
+ marks-16246
+ results-16242)
+ (scan-list-rib-16237
+ subst-16241
+ symnames-16245
+ marks-16246
+ results-16242))))))))
+ (scan-list-rib-16237
+ (lambda (subst-16344
+ symnames-16345
+ marks-16346
+ results-16347)
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwqGB}#
- (lambda (#{symnames -ANAU$bmvAmthP7L7xwqHl}#
- #{marks -ANAU$bmvAmthP7L7xwqHm}#
- #{results -ANAU$bmvAmthP7L7xwqHn}#)
- (if (null? #{symnames -ANAU$bmvAmthP7L7xwqHl}#)
- (#{scan -ANAU$bmvAmthP7L7xwqER}#
- (cdr #{subst -ANAU$bmvAmthP7L7xwqF9}#)
- #{results -ANAU$bmvAmthP7L7xwqHn}#)
- (#{f -ANAU$bmvAmthP7L7xwqGB}#
- (cdr #{symnames -ANAU$bmvAmthP7L7xwqHl}#)
- (cdr #{marks -ANAU$bmvAmthP7L7xwqHm}#)
- (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- (car #{symnames -ANAU$bmvAmthP7L7xwqHl}#)
- (let ((#{w -ANAU$bmvAmthP7L7xwqHv}#
- (cons (car #{marks
-ANAU$bmvAmthP7L7xwqHm}#)
- #{subst
-ANAU$bmvAmthP7L7xwqF9}#)))
- (cons (cons #f
- (car #{w
-ANAU$bmvAmthP7L7xwqHv}#))
- (cons 'shift
- (cdr #{w
-ANAU$bmvAmthP7L7xwqHv}#))))
- #{mod -ANAU$bmvAmthP7L7xwqEQ}#)
- #{results -ANAU$bmvAmthP7L7xwqHn}#))))))
- (#{f -ANAU$bmvAmthP7L7xwqGB}#
- #{symnames -ANAU$bmvAmthP7L7xwqF$}#
- #{marks address@hidden
- #{results -ANAU$bmvAmthP7L7xwqGA}#))))
- (#{scan-vector-rib -ANAU$bmvAmthP7L7xwqET}#
- (lambda (#{subst -ANAU$bmvAmthP7L7xwqHw}#
- #{symnames -ANAU$bmvAmthP7L7xwqHx}#
- #{marks -ANAU$bmvAmthP7L7xwqHy}#
- #{results -ANAU$bmvAmthP7L7xwqHz}#)
- (let ((#{n -ANAU$bmvAmthP7L7xwqH0}#
- (vector-length
- #{symnames -ANAU$bmvAmthP7L7xwqHx}#)))
+ ((f-16348
+ (lambda (symnames-16448 marks-16449 results-16450)
+ (if (null? symnames-16448)
+ (scan-16236 (cdr subst-16344) results-16450)
+ (f-16348
+ (cdr symnames-16448)
+ (cdr marks-16449)
+ (cons (wrap-4515
+ (car symnames-16448)
+ (let ((w-16458
+ (cons (car marks-16449)
+ subst-16344)))
+ (cons (cons #f (car w-16458))
+ (cons 'shift (cdr w-16458))))
+ mod-16235)
+ results-16450))))))
+ (f-16348
+ symnames-16345
+ marks-16346
+ results-16347))))
+ (scan-vector-rib-16238
+ (lambda (subst-16459
+ symnames-16460
+ marks-16461
+ results-16462)
+ (let ((n-16463 (vector-length symnames-16460)))
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwqH1}#
- (lambda (#{i -ANAU$bmvAmthP7L7xwqJI}#
- #{results -ANAU$bmvAmthP7L7xwqJJ}#)
- (if (= #{i -ANAU$bmvAmthP7L7xwqJI}#
- #{n -ANAU$bmvAmthP7L7xwqH0}#)
- (#{scan -ANAU$bmvAmthP7L7xwqER}#
- (cdr #{subst -ANAU$bmvAmthP7L7xwqHw}#)
- #{results -ANAU$bmvAmthP7L7xwqJJ}#)
- (#{f -ANAU$bmvAmthP7L7xwqH1}#
- (#{1+}# #{i -ANAU$bmvAmthP7L7xwqJI}#)
- (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- (vector-ref
- #{symnames -ANAU$bmvAmthP7L7xwqHx}#
- #{i -ANAU$bmvAmthP7L7xwqJI}#)
- (let ((#{w -ANAU$bmvAmthP7L7xwqJR}#
+ ((f-16464
+ (lambda (i-16547 results-16548)
+ (if (= i-16547 n-16463)
+ (scan-16236 (cdr subst-16459) results-16548)
+ (f-16464
+ (#{1+}# i-16547)
+ (cons (wrap-4515
+ (vector-ref symnames-16460 i-16547)
+ (let ((w-16556
(cons (vector-ref
- #{marks
-ANAU$bmvAmthP7L7xwqHy}#
- #{i
-ANAU$bmvAmthP7L7xwqJI}#)
- #{subst
-ANAU$bmvAmthP7L7xwqHw}#)))
- (cons (cons #f
- (car #{w
-ANAU$bmvAmthP7L7xwqJR}#))
- (cons 'shift
- (cdr #{w
-ANAU$bmvAmthP7L7xwqJR}#))))
- #{mod -ANAU$bmvAmthP7L7xwqEQ}#)
- #{results -ANAU$bmvAmthP7L7xwqJJ}#))))))
- (#{f -ANAU$bmvAmthP7L7xwqH1}#
- 0
- #{results -ANAU$bmvAmthP7L7xwqHz}#))))))
- (#{scan -ANAU$bmvAmthP7L7xwqER}#
- (cdr #{w -ANAU$bmvAmthP7L7xwqEP}#)
- '()))))
- (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
- (lambda (#{ids -ANAU$bmvAmthP7L7xwqJS}#)
+ marks-16461
+ i-16547)
+ subst-16459)))
+ (cons (cons #f (car w-16556))
+ (cons 'shift (cdr w-16556))))
+ mod-16235)
+ results-16548))))))
+ (f-16464 0 results-16462))))))
+ (scan-16236 (cdr w-16234) '()))))
+ (valid-bound-ids?-4512
+ (lambda (ids-16557)
(if (letrec*
- ((#{all-ids? -ANAU$bmvAmthP7L7xwqJT}#
- (lambda (#{ids -ANAU$bmvAmthP7L7xwqL1}#)
- (if (null? #{ids -ANAU$bmvAmthP7L7xwqL1}#)
- (null? #{ids -ANAU$bmvAmthP7L7xwqL1}#)
- (if (let ((#{x -ANAU$bmvAmthP7L7xwqMA}#
- (car #{ids -ANAU$bmvAmthP7L7xwqL1}#)))
- (if (symbol? #{x -ANAU$bmvAmthP7L7xwqMA}#)
+ ((all-ids?-16558
+ (lambda (ids-16720)
+ (if (null? ids-16720)
+ (null? ids-16720)
+ (if (let ((x-16731 (car ids-16720)))
+ (if (symbol? x-16731)
#t
- (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqMA}#)
- (if (= (vector-length
- #{x -ANAU$bmvAmthP7L7xwqMA}#)
- 4)
- (eq? (vector-ref
- #{x -ANAU$bmvAmthP7L7xwqMA}#
- 0)
+ (if (if (vector? x-16731)
+ (if (= (vector-length x-16731) 4)
+ (eq? (vector-ref x-16731 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{x -ANAU$bmvAmthP7L7xwqMA}# 1))
+ (symbol? (vector-ref x-16731 1))
#f)))
- (#{all-ids? -ANAU$bmvAmthP7L7xwqJT}#
- (cdr #{ids -ANAU$bmvAmthP7L7xwqL1}#))
+ (all-ids?-16558 (cdr ids-16720))
#f)))))
- (#{all-ids? -ANAU$bmvAmthP7L7xwqJT}#
- #{ids -ANAU$bmvAmthP7L7xwqJS}#))
- (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
- #{ids -ANAU$bmvAmthP7L7xwqJS}#)
+ (all-ids?-16558 ids-16557))
+ (distinct-bound-ids?-4513 ids-16557)
#f)))
- (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
- (lambda (#{ids -ANAU$bmvAmthP7L7xwqOA}#)
+ (distinct-bound-ids?-4513
+ (lambda (ids-16859)
(letrec*
- ((#{distinct? -ANAU$bmvAmthP7L7xwqOB}#
- (lambda (#{ids -ANAU$bmvAmthP7L7xwqPx}#)
- (if (null? #{ids -ANAU$bmvAmthP7L7xwqPx}#)
- (null? #{ids -ANAU$bmvAmthP7L7xwqPx}#)
- (if (not (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}#
- (car #{ids -ANAU$bmvAmthP7L7xwqPx}#)
- (cdr #{ids -ANAU$bmvAmthP7L7xwqPx}#)))
- (#{distinct? -ANAU$bmvAmthP7L7xwqOB}#
- (cdr #{ids -ANAU$bmvAmthP7L7xwqPx}#))
+ ((distinct?-16860
+ (lambda (ids-16972)
+ (if (null? ids-16972)
+ (null? ids-16972)
+ (if (not (bound-id-member?-4514
+ (car ids-16972)
+ (cdr ids-16972)))
+ (distinct?-16860 (cdr ids-16972))
#f)))))
- (#{distinct? -ANAU$bmvAmthP7L7xwqOB}#
- #{ids -ANAU$bmvAmthP7L7xwqOA}#))))
- (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwqTD}#
- #{list -ANAU$bmvAmthP7L7xwqTE}#)
- (if (not (null? #{list -ANAU$bmvAmthP7L7xwqTE}#))
- (let ((#{t -ANAU$bmvAmthP7L7xwqTF}#
- (let ((#{j -ANAU$bmvAmthP7L7xwqUW}#
- (car #{list -ANAU$bmvAmthP7L7xwqTE}#)))
- (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqTD}#)
- (if (= (vector-length
- #{x -ANAU$bmvAmthP7L7xwqTD}#)
- 4)
- (eq? (vector-ref
- #{x -ANAU$bmvAmthP7L7xwqTD}#
- 0)
- 'syntax-object)
+ (distinct?-16860 ids-16859))))
+ (bound-id-member?-4514
+ (lambda (x-17182 list-17183)
+ (if (not (null? list-17183))
+ (let ((t-17184
+ (let ((j-17265 (car list-17183)))
+ (if (if (if (vector? x-17182)
+ (if (= (vector-length x-17182) 4)
+ (eq? (vector-ref x-17182 0) 'syntax-object)
#f)
#f)
- (if (vector? #{j -ANAU$bmvAmthP7L7xwqUW}#)
- (if (= (vector-length
- #{j -ANAU$bmvAmthP7L7xwqUW}#)
- 4)
- (eq? (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 0)
- 'syntax-object)
+ (if (vector? j-17265)
+ (if (= (vector-length j-17265) 4)
+ (eq? (vector-ref j-17265 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwqTD}# 1)
- (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 1))
- (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}#
- (car (vector-ref #{x -ANAU$bmvAmthP7L7xwqTD}# 2))
- (car (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 2)))
+ (if (eq? (vector-ref x-17182 1)
+ (vector-ref j-17265 1))
+ (same-marks?-4504
+ (car (vector-ref x-17182 2))
+ (car (vector-ref j-17265 2)))
#f)
- (eq? #{x -ANAU$bmvAmthP7L7xwqTD}#
- #{j -ANAU$bmvAmthP7L7xwqUW}#)))))
- (if #{t -ANAU$bmvAmthP7L7xwqTF}#
- #{t -ANAU$bmvAmthP7L7xwqTF}#
- (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}#
- #{x -ANAU$bmvAmthP7L7xwqTD}#
- (cdr #{list -ANAU$bmvAmthP7L7xwqTE}#))))
+ (eq? x-17182 j-17265)))))
+ (if t-17184
+ t-17184
+ (bound-id-member?-4514 x-17182 (cdr list-17183))))
#f)))
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwqVC}#
- #{w -ANAU$bmvAmthP7L7xwqVD}#
- #{defmod -ANAU$bmvAmthP7L7xwqVE}#)
- (if (if (null? (car #{w -ANAU$bmvAmthP7L7xwqVD}#))
- (null? (cdr #{w -ANAU$bmvAmthP7L7xwqVD}#))
+ (wrap-4515
+ (lambda (x-17309 w-17310 defmod-17311)
+ (if (if (null? (car w-17310))
+ (null? (cdr w-17310))
#f)
- #{x -ANAU$bmvAmthP7L7xwqVC}#
- (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqVC}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwqVC}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 0)
- 'syntax-object)
+ x-17309
+ (if (if (vector? x-17309)
+ (if (= (vector-length x-17309) 4)
+ (eq? (vector-ref x-17309 0) 'syntax-object)
#f)
#f)
- (let ((#{expression -ANAU$bmvAmthP7L7xwqVS}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 1))
- (#{wrap -ANAU$bmvAmthP7L7xwqVT}#
- (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
- #{w -ANAU$bmvAmthP7L7xwqVD}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 2)))
- (#{module -ANAU$bmvAmthP7L7xwqVU}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 3)))
+ (let ((expression-17325 (vector-ref x-17309 1))
+ (wrap-17326
+ (join-wraps-4502 w-17310 (vector-ref x-17309 2)))
+ (module-17327 (vector-ref x-17309 3)))
(vector
'syntax-object
- #{expression -ANAU$bmvAmthP7L7xwqVS}#
- #{wrap -ANAU$bmvAmthP7L7xwqVT}#
- #{module -ANAU$bmvAmthP7L7xwqVU}#))
- (if (null? #{x -ANAU$bmvAmthP7L7xwqVC}#)
- #{x -ANAU$bmvAmthP7L7xwqVC}#
+ expression-17325
+ wrap-17326
+ module-17327))
+ (if (null? x-17309)
+ x-17309
(vector
'syntax-object
- #{x -ANAU$bmvAmthP7L7xwqVC}#
- #{w -ANAU$bmvAmthP7L7xwqVD}#
- #{defmod -ANAU$bmvAmthP7L7xwqVE}#))))))
- (#{source-wrap -ANAU$bmvAmthP7L7xwnN$}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwqVl}#
- #{w -ANAU$bmvAmthP7L7xwqVm}#
- #{s -ANAU$bmvAmthP7L7xwqVn}#
- #{defmod -ANAU$bmvAmthP7L7xwqVo}#)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ x-17309
+ w-17310
+ defmod-17311))))))
+ (source-wrap-4516
+ (lambda (x-17344 w-17345 s-17346 defmod-17347)
+ (wrap-4515
(begin
- (if (if (pair? #{x -ANAU$bmvAmthP7L7xwqVl}#)
- #{s -ANAU$bmvAmthP7L7xwqVn}#
- #f)
- (set-source-properties!
- #{x -ANAU$bmvAmthP7L7xwqVl}#
- #{s -ANAU$bmvAmthP7L7xwqVn}#))
- #{x -ANAU$bmvAmthP7L7xwqVl}#)
- #{w -ANAU$bmvAmthP7L7xwqVm}#
- #{defmod -ANAU$bmvAmthP7L7xwqVo}#)))
- (#{expand-sequence address@hidden
- (lambda (#{body -ANAU$bmvAmthP7L7xwsvr}#
- #{r -ANAU$bmvAmthP7L7xwsvs}#
- #{w -ANAU$bmvAmthP7L7xwsvt}#
- #{s -ANAU$bmvAmthP7L7xwsvu}#
- #{mod -ANAU$bmvAmthP7L7xwsvv}#)
- (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}#
- #{s -ANAU$bmvAmthP7L7xwsvu}#
+ (if (if (pair? x-17344) s-17346 #f)
+ (set-source-properties! x-17344 s-17346))
+ x-17344)
+ w-17345
+ defmod-17347)))
+ (expand-sequence-4517
+ (lambda (body-27267 r-27268 w-27269 s-27270 mod-27271)
+ (build-sequence-4467
+ s-27270
(letrec*
- ((#{dobody address@hidden
- (lambda (#{body -ANAU$bmvAmthP7L7xws2d}#
- #{r -ANAU$bmvAmthP7L7xws2e}#
- #{w -ANAU$bmvAmthP7L7xws2f}#
- #{mod -ANAU$bmvAmthP7L7xws2g}#)
- (if (null? #{body -ANAU$bmvAmthP7L7xws2d}#)
+ ((dobody-27351
+ (lambda (body-27701 r-27702 w-27703 mod-27704)
+ (if (null? body-27701)
'()
- (let ((#{first -ANAU$bmvAmthP7L7xws2h}#
- (let ((#{e -ANAU$bmvAmthP7L7xws2l}#
- (car #{body -ANAU$bmvAmthP7L7xws2d}#)))
+ (let ((first-27705
+ (let ((e-27709 (car body-27701)))
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xws2l}#
- #{r -ANAU$bmvAmthP7L7xws2e}#
- #{w -ANAU$bmvAmthP7L7xws2f}#
- (#{source-annotation
-ANAU$bmvAmthP7L7xwnNZ}#
- #{e -ANAU$bmvAmthP7L7xws2l}#)
+ (syntax-type-4521
+ e-27709
+ r-27702
+ w-27703
+ (source-annotation-4479 e-27709)
#f
- #{mod -ANAU$bmvAmthP7L7xws2g}#
+ mod-27704
#f))
- (lambda (#{type -ANAU$bmvAmthP7L7xws2s}#
- #{value -ANAU$bmvAmthP7L7xws2t}#
- #{e -ANAU$bmvAmthP7L7xws2u}#
- #{w -ANAU$bmvAmthP7L7xws2v}#
- #{s -ANAU$bmvAmthP7L7xws2w}#
- #{mod -ANAU$bmvAmthP7L7xws2x}#)
- (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
- #{type -ANAU$bmvAmthP7L7xws2s}#
- #{value -ANAU$bmvAmthP7L7xws2t}#
- #{e -ANAU$bmvAmthP7L7xws2u}#
- #{r -ANAU$bmvAmthP7L7xws2e}#
- #{w -ANAU$bmvAmthP7L7xws2v}#
- #{s -ANAU$bmvAmthP7L7xws2w}#
- #{mod -ANAU$bmvAmthP7L7xws2x}#))))))
- (cons #{first -ANAU$bmvAmthP7L7xws2h}#
- (#{dobody address@hidden
- (cdr #{body -ANAU$bmvAmthP7L7xws2d}#)
- #{r -ANAU$bmvAmthP7L7xws2e}#
- #{w -ANAU$bmvAmthP7L7xws2f}#
- #{mod -ANAU$bmvAmthP7L7xws2g}#)))))))
- (#{dobody address@hidden
- #{body -ANAU$bmvAmthP7L7xwsvr}#
- #{r -ANAU$bmvAmthP7L7xwsvs}#
- #{w -ANAU$bmvAmthP7L7xwsvt}#
- #{mod -ANAU$bmvAmthP7L7xwsvv}#)))))
- (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}#
- (lambda (#{body -ANAU$bmvAmthP7L7xwqV6}#
- #{r -ANAU$bmvAmthP7L7xwqV7}#
- #{w -ANAU$bmvAmthP7L7xwqV8}#
- #{s -ANAU$bmvAmthP7L7xwqV9}#
- #{m -ANAU$bmvAmthP7L7xwqV$}#
- #{esew address@hidden
- #{mod -ANAU$bmvAmthP7L7xwqWA}#)
+ (lambda (type-27716
+ value-27717
+ e-27718
+ w-27719
+ s-27720
+ mod-27721)
+ (expand-expr-4523
+ type-27716
+ value-27717
+ e-27718
+ r-27702
+ w-27719
+ s-27720
+ mod-27721))))))
+ (cons first-27705
+ (dobody-27351
+ (cdr body-27701)
+ r-27702
+ w-27703
+ mod-27704)))))))
+ (dobody-27351
+ body-27267
+ r-27268
+ w-27269
+ mod-27271)))))
+ (expand-top-sequence-4518
+ (lambda (body-17365
+ r-17366
+ w-17367
+ s-17368
+ m-17369
+ esew-17370
+ mod-17371)
(letrec*
- ((#{scan -ANAU$bmvAmthP7L7xwqWB}#
- (lambda (#{body -ANAU$bmvAmthP7L7xwqYE}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqYG}#
- #{s -ANAU$bmvAmthP7L7xwqYH}#
- #{m -ANAU$bmvAmthP7L7xwqYI}#
- #{esew -ANAU$bmvAmthP7L7xwqYJ}#
- #{mod -ANAU$bmvAmthP7L7xwqYK}#
- #{exps -ANAU$bmvAmthP7L7xwqYL}#)
- (if (null? #{body -ANAU$bmvAmthP7L7xwqYE}#)
- #{exps -ANAU$bmvAmthP7L7xwqYL}#
+ ((scan-17372
+ (lambda (body-17503
+ r-17504
+ w-17505
+ s-17506
+ m-17507
+ esew-17508
+ mod-17509
+ exps-17510)
+ (if (null? body-17503)
+ exps-17510
(call-with-values
(lambda ()
(call-with-values
(lambda ()
- (let ((#{e -ANAU$bmvAmthP7L7xwqYM}#
- (car #{body -ANAU$bmvAmthP7L7xwqYE}#)))
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xwqYM}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqYG}#
- (let ((#{t -ANAU$bmvAmthP7L7xwqYQ}#
- (#{source-annotation
-ANAU$bmvAmthP7L7xwnNZ}#
- #{e -ANAU$bmvAmthP7L7xwqYM}#)))
- (if #{t -ANAU$bmvAmthP7L7xwqYQ}#
- #{t -ANAU$bmvAmthP7L7xwqYQ}#
- #{s -ANAU$bmvAmthP7L7xwqYH}#))
+ (let ((e-17511 (car body-17503)))
+ (syntax-type-4521
+ e-17511
+ r-17504
+ w-17505
+ (let ((t-17515 (source-annotation-4479 e-17511)))
+ (if t-17515 t-17515 s-17506))
#f
- #{mod -ANAU$bmvAmthP7L7xwqYK}#
+ mod-17509
#f)))
- (lambda (#{type -ANAU$bmvAmthP7L7xwqb7}#
- #{value -ANAU$bmvAmthP7L7xwqb8}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s address@hidden
- #{mod -ANAU$bmvAmthP7L7xwqcA}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
- 'begin-form)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwqcF}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- '(_))))
- (if #{tmp -ANAU$bmvAmthP7L7xwqcF}#
- (@apply
- (lambda () #{exps -ANAU$bmvAmthP7L7xwqYL}#)
- #{tmp -ANAU$bmvAmthP7L7xwqcF}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwqcJ}#
+ (lambda (type-17750
+ value-17751
+ e-17752
+ w-17753
+ s-17754
+ mod-17755)
+ (if (eqv? type-17750 'begin-form)
+ (let ((tmp-17760 ($sc-dispatch e-17752 '(_))))
+ (if tmp-17760
+ (@apply (lambda () exps-17510) tmp-17760)
+ (let ((tmp-17764
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwqb9}#
+ e-17752
'(_ any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwqcJ}#
+ (if tmp-17764
(@apply
- (lambda (#{e1 -ANAU$bmvAmthP7L7xwqcN}#
- #{e2 -ANAU$bmvAmthP7L7xwqcO}#)
- (#{scan -ANAU$bmvAmthP7L7xwqWB}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwqcN}#
- #{e2 -ANAU$bmvAmthP7L7xwqcO}#)
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s address@hidden
- #{m -ANAU$bmvAmthP7L7xwqYI}#
- #{esew -ANAU$bmvAmthP7L7xwqYJ}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#
- #{exps -ANAU$bmvAmthP7L7xwqYL}#))
- #{tmp -ANAU$bmvAmthP7L7xwqcJ}#)
+ (lambda (e1-17768 e2-17769)
+ (scan-17372
+ (cons e1-17768 e2-17769)
+ r-17504
+ w-17753
+ s-17754
+ m-17507
+ esew-17508
+ mod-17755
+ exps-17510))
+ tmp-17764)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e -ANAU$bmvAmthP7L7xwqb9}#)))))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
- 'local-syntax-form)
- (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}#
- #{value -ANAU$bmvAmthP7L7xwqb8}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s address@hidden
- #{mod -ANAU$bmvAmthP7L7xwqcA}#
- (lambda (#{body -ANAU$bmvAmthP7L7xwqcd}#
- #{r -ANAU$bmvAmthP7L7xwqce}#
- #{w -ANAU$bmvAmthP7L7xwqcf}#
- #{s -ANAU$bmvAmthP7L7xwqcg}#
- #{mod -ANAU$bmvAmthP7L7xwqch}#)
- (#{scan -ANAU$bmvAmthP7L7xwqWB}#
- #{body -ANAU$bmvAmthP7L7xwqcd}#
- #{r -ANAU$bmvAmthP7L7xwqce}#
- #{w -ANAU$bmvAmthP7L7xwqcf}#
- #{s -ANAU$bmvAmthP7L7xwqcg}#
- #{m -ANAU$bmvAmthP7L7xwqYI}#
- #{esew -ANAU$bmvAmthP7L7xwqYJ}#
- #{mod -ANAU$bmvAmthP7L7xwqch}#
- #{exps -ANAU$bmvAmthP7L7xwqYL}#)))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
- 'eval-when-form)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwqcm}#
+ e-17752)))))
+ (if (eqv? type-17750 'local-syntax-form)
+ (expand-local-syntax-4527
+ value-17751
+ e-17752
+ r-17504
+ w-17753
+ s-17754
+ mod-17755
+ (lambda (body-17784
+ r-17785
+ w-17786
+ s-17787
+ mod-17788)
+ (scan-17372
+ body-17784
+ r-17785
+ w-17786
+ s-17787
+ m-17507
+ esew-17508
+ mod-17788
+ exps-17510)))
+ (if (eqv? type-17750 'eval-when-form)
+ (let ((tmp-17793
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwqb9}#
+ e-17752
'(_ each-any any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwqcm}#
+ (if tmp-17793
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwqcq}#
- #{e1 -ANAU$bmvAmthP7L7xwqcr}#
- #{e2 -ANAU$bmvAmthP7L7xwqcs}#)
- (let ((#{when-list
-ANAU$bmvAmthP7L7xwqct}#
- (#{parse-when-list
-ANAU$bmvAmthP7L7xwnOC}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{x
-ANAU$bmvAmthP7L7xwqcq}#))
- (#{body -ANAU$bmvAmthP7L7xwqcu}#
- (cons #{e1
-ANAU$bmvAmthP7L7xwqcr}#
- #{e2
-ANAU$bmvAmthP7L7xwqcs}#)))
- (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
- 'e)
- (if (memq 'eval
- #{when-list
-ANAU$bmvAmthP7L7xwqct}#)
- (#{scan -ANAU$bmvAmthP7L7xwqWB}#
- #{body -ANAU$bmvAmthP7L7xwqcu}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s address@hidden
+ (lambda (x-17797 e1-17798 e2-17799)
+ (let ((when-list-17800
+ (parse-when-list-4520
+ e-17752
+ x-17797))
+ (body-17801
+ (cons e1-17798 e2-17799)))
+ (if (eq? m-17507 'e)
+ (if (memq 'eval when-list-17800)
+ (scan-17372
+ body-17801
+ r-17504
+ w-17753
+ s-17754
(if (memq 'expand
- #{when-list
-ANAU$bmvAmthP7L7xwqct}#)
+ when-list-17800)
'c&e
'e)
'(eval)
- #{mod -ANAU$bmvAmthP7L7xwqcA}#
- #{exps
-ANAU$bmvAmthP7L7xwqYL}#)
+ mod-17755
+ exps-17510)
(begin
(if (memq 'expand
- #{when-list
-ANAU$bmvAmthP7L7xwqct}#)
- (let ((#{x
-ANAU$bmvAmthP7L7xwqd7}#
-
(#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}#
- #{body
-ANAU$bmvAmthP7L7xwqcu}#
- #{r
-ANAU$bmvAmthP7L7xwqYF}#
- #{w
-ANAU$bmvAmthP7L7xwqb$}#
- #{s address@hidden
+ when-list-17800)
+ (let ((x-17878
+
(expand-top-sequence-4518
+ body-17801
+ r-17504
+ w-17753
+ s-17754
'e
'(eval)
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#)))
- (primitive-eval
- #{x
-ANAU$bmvAmthP7L7xwqd7}#)))
- #{exps
-ANAU$bmvAmthP7L7xwqYL}#))
- (if (memq 'load
- #{when-list
-ANAU$bmvAmthP7L7xwqct}#)
- (if (let ((#{t
-ANAU$bmvAmthP7L7xwqeV}#
+ mod-17755)))
+ (primitive-eval x-17878)))
+ exps-17510))
+ (if (memq 'load when-list-17800)
+ (if (let ((t-17904
(memq 'compile
- #{when-list
-ANAU$bmvAmthP7L7xwqct}#)))
- (if #{t
-ANAU$bmvAmthP7L7xwqeV}#
- #{t
-ANAU$bmvAmthP7L7xwqeV}#
- (let ((#{t
-ANAU$bmvAmthP7L7xwqfG}#
+
when-list-17800)))
+ (if t-17904
+ t-17904
+ (let ((t-17953
(memq 'expand
-
#{when-list -ANAU$bmvAmthP7L7xwqct}#)))
- (if #{t
-ANAU$bmvAmthP7L7xwqfG}#
- #{t
-ANAU$bmvAmthP7L7xwqfG}#
- (if (eq? #{m
-ANAU$bmvAmthP7L7xwqYI}#
+
when-list-17800)))
+ (if t-17953
+ t-17953
+ (if (eq? m-17507
'c&e)
(memq 'eval
- #{when-list
-ANAU$bmvAmthP7L7xwqct}#)
+
when-list-17800)
#f)))))
- (#{scan
-ANAU$bmvAmthP7L7xwqWB}#
- #{body
-ANAU$bmvAmthP7L7xwqcu}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s address@hidden
+ (scan-17372
+ body-17801
+ r-17504
+ w-17753
+ s-17754
'c&e
'(compile load)
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#
- #{exps
-ANAU$bmvAmthP7L7xwqYL}#)
- (if (if (eq? #{m
-ANAU$bmvAmthP7L7xwqYI}#
- 'c)
+ mod-17755
+ exps-17510)
+ (if (if (eq? m-17507 'c)
#t
- (eq? #{m
-ANAU$bmvAmthP7L7xwqYI}#
- 'c&e))
- (#{scan
-ANAU$bmvAmthP7L7xwqWB}#
- #{body
-ANAU$bmvAmthP7L7xwqcu}#
- #{r
-ANAU$bmvAmthP7L7xwqYF}#
- #{w
-ANAU$bmvAmthP7L7xwqb$}#
- #{s address@hidden
+ (eq? m-17507 'c&e))
+ (scan-17372
+ body-17801
+ r-17504
+ w-17753
+ s-17754
'c
'(load)
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#
- #{exps
-ANAU$bmvAmthP7L7xwqYL}#)
- #{exps
-ANAU$bmvAmthP7L7xwqYL}#))
- (if (let ((#{t
-ANAU$bmvAmthP7L7xwqhH}#
+ mod-17755
+ exps-17510)
+ exps-17510))
+ (if (let ((t-18082
(memq 'compile
- #{when-list
-ANAU$bmvAmthP7L7xwqct}#)))
- (if #{t
-ANAU$bmvAmthP7L7xwqhH}#
- #{t
-ANAU$bmvAmthP7L7xwqhH}#
- (let ((#{t
-ANAU$bmvAmthP7L7xwqh4}#
+
when-list-17800)))
+ (if t-18082
+ t-18082
+ (let ((t-18131
(memq 'expand
-
#{when-list -ANAU$bmvAmthP7L7xwqct}#)))
- (if #{t
-ANAU$bmvAmthP7L7xwqh4}#
- #{t
-ANAU$bmvAmthP7L7xwqh4}#
- (if (eq? #{m
-ANAU$bmvAmthP7L7xwqYI}#
+
when-list-17800)))
+ (if t-18131
+ t-18131
+ (if (eq? m-17507
'c&e)
(memq 'eval
- #{when-list
-ANAU$bmvAmthP7L7xwqct}#)
+
when-list-17800)
#f)))))
(begin
- (let ((#{x
-ANAU$bmvAmthP7L7xwqj0}#
-
(#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}#
- #{body
-ANAU$bmvAmthP7L7xwqcu}#
- #{r
-ANAU$bmvAmthP7L7xwqYF}#
- #{w
-ANAU$bmvAmthP7L7xwqb$}#
- #{s address@hidden
+ (let ((x-18255
+
(expand-top-sequence-4518
+ body-17801
+ r-17504
+ w-17753
+ s-17754
'e
'(eval)
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#)))
- (primitive-eval
- #{x
-ANAU$bmvAmthP7L7xwqj0}#))
- #{exps
-ANAU$bmvAmthP7L7xwqYL}#)
- #{exps
-ANAU$bmvAmthP7L7xwqYL}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwqcm}#)
+ mod-17755)))
+ (primitive-eval x-18255))
+ exps-17510)
+ exps-17510)))))
+ tmp-17793)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e -ANAU$bmvAmthP7L7xwqb9}#)))
- (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
- 'define-syntax-form)
+ e-17752)))
+ (if (if (eqv? type-17750 'define-syntax-form)
#t
- (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
+ (eqv? type-17750
'define-syntax-parameter-form))
- (let ((#{n -ANAU$bmvAmthP7L7xwqki}#
- (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
- #{value -ANAU$bmvAmthP7L7xwqb8}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#))
- (#{r -ANAU$bmvAmthP7L7xwqkj}#
- (#{macros-only-env
-ANAU$bmvAmthP7L7xwnNc}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#)))
- (if (eqv? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c)
- (if (memq 'compile
- #{esew
-ANAU$bmvAmthP7L7xwqYJ}#)
- (let ((#{e -ANAU$bmvAmthP7L7xwqkn}#
- (#{expand-install-global
-ANAU$bmvAmthP7L7xwnOB}#
- #{n -ANAU$bmvAmthP7L7xwqki}#
- (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
- #{e
-ANAU$bmvAmthP7L7xwqb9}#
- #{r
-ANAU$bmvAmthP7L7xwqkj}#
- #{w
-ANAU$bmvAmthP7L7xwqb$}#
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#))))
+ (let ((n-18301
+ (id-var-name-4505
+ value-17751
+ w-17753))
+ (r-18302
+ (macros-only-env-4482 r-17504)))
+ (if (eqv? m-17507 'c)
+ (if (memq 'compile esew-17508)
+ (let ((e-18306
+ (expand-install-global-4519
+ n-18301
+ (expand-4522
+ e-17752
+ r-18302
+ w-17753
+ mod-17755))))
(begin
- (#{top-level-eval-hook
-ANAU$bmvAmthP7L7xwnM4}#
- #{e -ANAU$bmvAmthP7L7xwqkn}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#)
- (if (memq 'load
- #{esew
-ANAU$bmvAmthP7L7xwqYJ}#)
- (cons #{e
-ANAU$bmvAmthP7L7xwqkn}#
- #{exps
-ANAU$bmvAmthP7L7xwqYL}#)
- #{exps
-ANAU$bmvAmthP7L7xwqYL}#)))
- (if (memq 'load
- #{esew
-ANAU$bmvAmthP7L7xwqYJ}#)
- (cons (#{expand-install-global
-ANAU$bmvAmthP7L7xwnOB}#
- #{n -ANAU$bmvAmthP7L7xwqki}#
- (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
- #{e
-ANAU$bmvAmthP7L7xwqb9}#
- #{r
-ANAU$bmvAmthP7L7xwqkj}#
- #{w
-ANAU$bmvAmthP7L7xwqb$}#
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#))
- #{exps
-ANAU$bmvAmthP7L7xwqYL}#)
- #{exps -ANAU$bmvAmthP7L7xwqYL}#))
- (if (eqv? #{m -ANAU$bmvAmthP7L7xwqYI}#
- 'c&e)
- (let ((#{e -ANAU$bmvAmthP7L7xwqup}#
- (#{expand-install-global
-ANAU$bmvAmthP7L7xwnOB}#
- #{n -ANAU$bmvAmthP7L7xwqki}#
- (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
- #{e
-ANAU$bmvAmthP7L7xwqb9}#
- #{r
-ANAU$bmvAmthP7L7xwqkj}#
- #{w
-ANAU$bmvAmthP7L7xwqb$}#
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#))))
+ (top-level-eval-hook-4445
+ e-18306
+ mod-17755)
+ (if (memq 'load esew-17508)
+ (cons e-18306 exps-17510)
+ exps-17510)))
+ (if (memq 'load esew-17508)
+ (cons (expand-install-global-4519
+ n-18301
+ (expand-4522
+ e-17752
+ r-18302
+ w-17753
+ mod-17755))
+ exps-17510)
+ exps-17510))
+ (if (eqv? m-17507 'c&e)
+ (let ((e-18948
+ (expand-install-global-4519
+ n-18301
+ (expand-4522
+ e-17752
+ r-18302
+ w-17753
+ mod-17755))))
(begin
- (#{top-level-eval-hook
-ANAU$bmvAmthP7L7xwnM4}#
- #{e -ANAU$bmvAmthP7L7xwqup}#
- #{mod -ANAU$bmvAmthP7L7xwqcA}#)
- (cons #{e -ANAU$bmvAmthP7L7xwqup}#
- #{exps
-ANAU$bmvAmthP7L7xwqYL}#)))
+ (top-level-eval-hook-4445
+ e-18948
+ mod-17755)
+ (cons e-18948 exps-17510)))
(begin
- (if (memq 'eval
- #{esew
-ANAU$bmvAmthP7L7xwqYJ}#)
- (#{top-level-eval-hook
-ANAU$bmvAmthP7L7xwnM4}#
- (#{expand-install-global
-ANAU$bmvAmthP7L7xwnOB}#
- #{n -ANAU$bmvAmthP7L7xwqki}#
- (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{r -ANAU$bmvAmthP7L7xwqkj}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#))
- #{mod -ANAU$bmvAmthP7L7xwqcA}#))
- #{exps -ANAU$bmvAmthP7L7xwqYL}#))))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
- 'define-form)
- (let ((#{n -ANAU$bmvAmthP7L7xwq5L}#
- (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
- #{value -ANAU$bmvAmthP7L7xwqb8}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#)))
- (let ((#{type -ANAU$bmvAmthP7L7xwq5M}#
- (car (let ((#{t
-ANAU$bmvAmthP7L7xwq5T}#
- (assq #{n
-ANAU$bmvAmthP7L7xwq5L}#
- #{r
-ANAU$bmvAmthP7L7xwqYF}#)))
- (if #{t
-ANAU$bmvAmthP7L7xwq5T}#
- (cdr #{t
-ANAU$bmvAmthP7L7xwq5T}#)
- (if (symbol?
- #{n
-ANAU$bmvAmthP7L7xwq5L}#)
- (let ((#{t
-ANAU$bmvAmthP7L7xwq5Z}#
-
(#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}#
- #{n
-ANAU$bmvAmthP7L7xwq5L}#
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#)))
- (if #{t
-ANAU$bmvAmthP7L7xwq5Z}#
- #{t
-ANAU$bmvAmthP7L7xwq5Z}#
+ (if (memq 'eval esew-17508)
+ (top-level-eval-hook-4445
+ (expand-install-global-4519
+ n-18301
+ (expand-4522
+ e-17752
+ r-18302
+ w-17753
+ mod-17755))
+ mod-17755))
+ exps-17510))))
+ (if (eqv? type-17750 'define-form)
+ (let ((n-19622
+ (id-var-name-4505
+ value-17751
+ w-17753)))
+ (let ((type-19623
+ (car (let ((t-19630
+ (assq n-19622
+ r-17504)))
+ (if t-19630
+ (cdr t-19630)
+ (if (symbol? n-19622)
+ (let ((t-19636
+
(get-global-definition-hook-4449
+ n-19622
+ mod-17755)))
+ (if t-19636
+ t-19636
'(global)))
'(displaced-lexical)))))))
- (if (if (eqv? #{type
-ANAU$bmvAmthP7L7xwq5M}#
- 'global)
+ (if (if (eqv? type-19623 'global)
#t
- (if (eqv? #{type
-ANAU$bmvAmthP7L7xwq5M}#
- 'core)
+ (if (eqv? type-19623 'core)
#t
- (if (eqv? #{type
-ANAU$bmvAmthP7L7xwq5M}#
- 'macro)
+ (if (eqv? type-19623 'macro)
#t
- (eqv? #{type
-ANAU$bmvAmthP7L7xwq5M}#
+ (eqv? type-19623
'module-ref))))
(begin
- (if (if (if (eq? #{m
-ANAU$bmvAmthP7L7xwqYI}#
- 'c)
+ (if (if (if (eq? m-17507 'c)
#t
- (eq? #{m
-ANAU$bmvAmthP7L7xwqYI}#
- 'c&e))
+ (eq? m-17507 'c&e))
(if (not
(module-local-variable
(current-module)
- #{n
-ANAU$bmvAmthP7L7xwq5L}#))
+ n-19622))
(current-module)
#f)
#f)
- (let ((#{old
-ANAU$bmvAmthP7L7xwq54}#
+ (let ((old-19667
(module-variable
(current-module)
- #{n
-ANAU$bmvAmthP7L7xwq5L}#)))
- (if (if (variable?
- #{old
-ANAU$bmvAmthP7L7xwq54}#)
+ n-19622)))
+ (if (if (variable? old-19667)
(variable-bound?
- #{old
-ANAU$bmvAmthP7L7xwq54}#)
+ old-19667)
#f)
(module-define!
(current-module)
- #{n
-ANAU$bmvAmthP7L7xwq5L}#
- (variable-ref
- #{old
-ANAU$bmvAmthP7L7xwq54}#))
+ n-19622
+ (variable-ref old-19667))
(module-add!
(current-module)
- #{n
-ANAU$bmvAmthP7L7xwq5L}#
+ n-19622
(make-undefined-variable)))))
- (cons (if (eq? #{m
-ANAU$bmvAmthP7L7xwqYI}#
- 'c&e)
- (let ((#{x
-ANAU$bmvAmthP7L7xwrAx}#
-
(#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}#
- #{s
address@hidden
- #{n
-ANAU$bmvAmthP7L7xwq5L}#
- (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
- #{e
-ANAU$bmvAmthP7L7xwqb9}#
- #{r
-ANAU$bmvAmthP7L7xwqYF}#
- #{w
-ANAU$bmvAmthP7L7xwqb$}#
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#))))
+ (cons (if (eq? m-17507 'c&e)
+ (let ((x-20108
+
(build-global-definition-4461
+ s-17754
+ n-19622
+ (expand-4522
+ e-17752
+ r-17504
+ w-17753
+ mod-17755))))
(begin
- (#{top-level-eval-hook
-ANAU$bmvAmthP7L7xwnM4}#
- #{x
-ANAU$bmvAmthP7L7xwrAx}#
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#)
- #{x
-ANAU$bmvAmthP7L7xwrAx}#))
+
(top-level-eval-hook-4445
+ x-20108
+ mod-17755)
+ x-20108))
(lambda ()
-
(#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}#
- #{s address@hidden
- #{n
-ANAU$bmvAmthP7L7xwq5L}#
- (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
- #{e
-ANAU$bmvAmthP7L7xwqb9}#
- #{r
-ANAU$bmvAmthP7L7xwqYF}#
- #{w
-ANAU$bmvAmthP7L7xwqb$}#
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#))))
- #{exps
-ANAU$bmvAmthP7L7xwqYL}#))
- (if (eqv? #{type
-ANAU$bmvAmthP7L7xwq5M}#
+
(build-global-definition-4461
+ s-17754
+ n-19622
+ (expand-4522
+ e-17752
+ r-17504
+ w-17753
+ mod-17755))))
+ exps-17510))
+ (if (eqv? type-19623
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{value
-ANAU$bmvAmthP7L7xwqb8}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#))
+ e-17752
+ (wrap-4515
+ value-17751
+ w-17753
+ mod-17755))
(syntax-violation
#f
"cannot define keyword at top
level"
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{value
-ANAU$bmvAmthP7L7xwqb8}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#))))))
- (cons (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
- 'c&e)
- (let ((#{x -ANAU$bmvAmthP7L7xwrH4}#
- (#{expand-expr
-ANAU$bmvAmthP7L7xwnOF}#
- #{type
-ANAU$bmvAmthP7L7xwqb7}#
- #{value
-ANAU$bmvAmthP7L7xwqb8}#
- #{e
-ANAU$bmvAmthP7L7xwqb9}#
- #{r
-ANAU$bmvAmthP7L7xwqYF}#
- #{w
-ANAU$bmvAmthP7L7xwqb$}#
- #{s address@hidden
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#)))
+ e-17752
+ (wrap-4515
+ value-17751
+ w-17753
+ mod-17755))))))
+ (cons (if (eq? m-17507 'c&e)
+ (let ((x-20563
+ (expand-expr-4523
+ type-17750
+ value-17751
+ e-17752
+ r-17504
+ w-17753
+ s-17754
+ mod-17755)))
(begin
- (primitive-eval
- #{x -ANAU$bmvAmthP7L7xwrH4}#)
- #{x -ANAU$bmvAmthP7L7xwrH4}#))
+ (primitive-eval x-20563)
+ x-20563))
(lambda ()
- (#{expand-expr
-ANAU$bmvAmthP7L7xwnOF}#
- #{type -ANAU$bmvAmthP7L7xwqb7}#
- #{value
-ANAU$bmvAmthP7L7xwqb8}#
- #{e -ANAU$bmvAmthP7L7xwqb9}#
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqb$}#
- #{s address@hidden
- #{mod
-ANAU$bmvAmthP7L7xwqcA}#)))
- #{exps
-ANAU$bmvAmthP7L7xwqYL}#)))))))))
- (lambda (#{exps -ANAU$bmvAmthP7L7xwrH9}#)
- (#{scan -ANAU$bmvAmthP7L7xwqWB}#
- (cdr #{body -ANAU$bmvAmthP7L7xwqYE}#)
- #{r -ANAU$bmvAmthP7L7xwqYF}#
- #{w -ANAU$bmvAmthP7L7xwqYG}#
- #{s -ANAU$bmvAmthP7L7xwqYH}#
- #{m -ANAU$bmvAmthP7L7xwqYI}#
- #{esew -ANAU$bmvAmthP7L7xwqYJ}#
- #{mod -ANAU$bmvAmthP7L7xwqYK}#
- #{exps -ANAU$bmvAmthP7L7xwrH9}#)))))))
+ (expand-expr-4523
+ type-17750
+ value-17751
+ e-17752
+ r-17504
+ w-17753
+ s-17754
+ mod-17755)))
+ exps-17510)))))))))
+ (lambda (exps-20568)
+ (scan-17372
+ (cdr body-17503)
+ r-17504
+ w-17505
+ s-17506
+ m-17507
+ esew-17508
+ mod-17509
+ exps-20568)))))))
(call-with-values
(lambda ()
- (#{scan -ANAU$bmvAmthP7L7xwqWB}#
- #{body -ANAU$bmvAmthP7L7xwqV6}#
- #{r -ANAU$bmvAmthP7L7xwqV7}#
- #{w -ANAU$bmvAmthP7L7xwqV8}#
- #{s -ANAU$bmvAmthP7L7xwqV9}#
- #{m -ANAU$bmvAmthP7L7xwqV$}#
- #{esew address@hidden
- #{mod -ANAU$bmvAmthP7L7xwqWA}#
+ (scan-17372
+ body-17365
+ r-17366
+ w-17367
+ s-17368
+ m-17369
+ esew-17370
+ mod-17371
'()))
- (lambda (#{exps -ANAU$bmvAmthP7L7xwqWE}#)
- (if (null? #{exps -ANAU$bmvAmthP7L7xwqWE}#)
+ (lambda (exps-17375)
+ (if (null? exps-17375)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{s -ANAU$bmvAmthP7L7xwqV9}#)
- (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}#
- #{s -ANAU$bmvAmthP7L7xwqV9}#
+ s-17368)
+ (build-sequence-4467
+ s-17368
(letrec*
- ((#{lp -ANAU$bmvAmthP7L7xwqWs}#
- (lambda (#{in -ANAU$bmvAmthP7L7xwqYA}#
- #{out -ANAU$bmvAmthP7L7xwqYB}#)
- (if (null? #{in -ANAU$bmvAmthP7L7xwqYA}#)
- #{out -ANAU$bmvAmthP7L7xwqYB}#
- (let ((#{e -ANAU$bmvAmthP7L7xwqYC}#
- (car #{in -ANAU$bmvAmthP7L7xwqYA}#)))
- (#{lp -ANAU$bmvAmthP7L7xwqWs}#
- (cdr #{in -ANAU$bmvAmthP7L7xwqYA}#)
- (cons (if (procedure?
- #{e -ANAU$bmvAmthP7L7xwqYC}#)
- (#{e -ANAU$bmvAmthP7L7xwqYC}#)
- #{e -ANAU$bmvAmthP7L7xwqYC}#)
- #{out -ANAU$bmvAmthP7L7xwqYB}#)))))))
- (#{lp -ANAU$bmvAmthP7L7xwqWs}#
- #{exps -ANAU$bmvAmthP7L7xwqWE}#
- '())))))))))
- (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}#
- (lambda (#{name -ANAU$bmvAmthP7L7xwrH$}#
- #{e address@hidden)
- (let ((#{exp -ANAU$bmvAmthP7L7xwrIF}#
- (let ((#{fun-exp -ANAU$bmvAmthP7L7xwrIP}#
+ ((lp-17415
+ (lambda (in-17499 out-17500)
+ (if (null? in-17499)
+ out-17500
+ (let ((e-17501 (car in-17499)))
+ (lp-17415
+ (cdr in-17499)
+ (cons (if (procedure? e-17501)
+ (e-17501)
+ e-17501)
+ out-17500)))))))
+ (lp-17415 exps-17375 '())))))))))
+ (expand-install-global-4519
+ (lambda (name-20569 e-20570)
+ (let ((exp-20576
+ (let ((fun-exp-20586
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -1547,416 +1249,382 @@
'(guile)
'make-syntax-transformer
#f)))
- (#{arg-exps -ANAU$bmvAmthP7L7xwrIQ}#
+ (arg-exps-20587
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name -ANAU$bmvAmthP7L7xwrH$}#)
+ name-20569)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- #{e address@hidden)))
+ e-20570)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp -ANAU$bmvAmthP7L7xwrIP}#
- #{arg-exps -ANAU$bmvAmthP7L7xwrIQ}#))))
+ fun-exp-20586
+ arg-exps-20587))))
(begin
- (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwrIF}#)
- (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwrIF}#)
+ (if (if (struct? exp-20576)
+ (eq? (struct-vtable exp-20576)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta -ANAU$bmvAmthP7L7xwrI5}#
- (struct-ref #{exp -ANAU$bmvAmthP7L7xwrIF}# 1)))
- (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwrI5}#))
- (let ((#{v -ANAU$bmvAmthP7L7xwrJA}#
- (cons (cons 'name #{name -ANAU$bmvAmthP7L7xwrH$}#)
- #{meta -ANAU$bmvAmthP7L7xwrI5}#)))
- (struct-set!
- #{exp -ANAU$bmvAmthP7L7xwrIF}#
- 1
- #{v -ANAU$bmvAmthP7L7xwrJA}#)))))
+ (let ((meta-20628 (struct-ref exp-20576 1)))
+ (if (not (assq 'name meta-20628))
+ (let ((v-20635
+ (cons (cons 'name name-20569) meta-20628)))
+ (struct-set! exp-20576 1 v-20635)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- #{name -ANAU$bmvAmthP7L7xwrH$}#
- #{exp -ANAU$bmvAmthP7L7xwrIF}#)))))
- (#{parse-when-list -ANAU$bmvAmthP7L7xwnOC}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwrJL}#
- #{when-list -ANAU$bmvAmthP7L7xwrJM}#)
- (let ((#{result -ANAU$bmvAmthP7L7xwrJN}#
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- #{when-list -ANAU$bmvAmthP7L7xwrJM}#
- '(()))))
+ name-20569
+ exp-20576)))))
+ (parse-when-list-4520
+ (lambda (e-20646 when-list-20647)
+ (let ((result-20648 (strip-4535 when-list-20647 '(()))))
(letrec*
- ((#{lp -ANAU$bmvAmthP7L7xwrJO}#
- (lambda (#{l -ANAU$bmvAmthP7L7xwrKE}#)
- (if (null? #{l -ANAU$bmvAmthP7L7xwrKE}#)
- #{result -ANAU$bmvAmthP7L7xwrJN}#
- (if (let ((#{t -ANAU$bmvAmthP7L7xwrKG}#
- (car #{l -ANAU$bmvAmthP7L7xwrKE}#)))
- (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'compile)
+ ((lp-20649
+ (lambda (l-20703)
+ (if (null? l-20703)
+ result-20648
+ (if (let ((t-20705 (car l-20703)))
+ (if (eq? t-20705 'compile)
#t
- (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'load)
+ (if (eq? t-20705 'load)
#t
- (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'eval)
+ (if (eq? t-20705 'eval)
#t
- (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'expand)))))
- (#{lp -ANAU$bmvAmthP7L7xwrJO}#
- (cdr #{l -ANAU$bmvAmthP7L7xwrKE}#))
+ (eq? t-20705 'expand)))))
+ (lp-20649 (cdr l-20703))
(syntax-violation
'eval-when
"invalid situation"
- #{e -ANAU$bmvAmthP7L7xwrJL}#
- (car #{l -ANAU$bmvAmthP7L7xwrKE}#)))))))
- (#{lp -ANAU$bmvAmthP7L7xwrJO}#
- #{result -ANAU$bmvAmthP7L7xwrJN}#)))))
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwrKI}#
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#
- #{for-car? -ANAU$bmvAmthP7L7xwrKO}#)
- (if (symbol? #{e -ANAU$bmvAmthP7L7xwrKI}#)
- (let ((#{n -ANAU$bmvAmthP7L7xwrKP}#
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#)))
- (let ((#{b -ANAU$bmvAmthP7L7xwrKQ}#
- (let ((#{t -ANAU$bmvAmthP7L7xwrKY}#
- (assq #{n -ANAU$bmvAmthP7L7xwrKP}#
- #{r -ANAU$bmvAmthP7L7xwrKJ}#)))
- (if #{t -ANAU$bmvAmthP7L7xwrKY}#
- (cdr #{t -ANAU$bmvAmthP7L7xwrKY}#)
- (if (symbol? #{n -ANAU$bmvAmthP7L7xwrKP}#)
- (let ((#{t -ANAU$bmvAmthP7L7xwrKe}#
- (#{get-global-definition-hook
-ANAU$bmvAmthP7L7xwnM7}#
- #{n -ANAU$bmvAmthP7L7xwrKP}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)))
- (if #{t -ANAU$bmvAmthP7L7xwrKe}#
- #{t -ANAU$bmvAmthP7L7xwrKe}#
- '(global)))
+ e-20646
+ (car l-20703)))))))
+ (lp-20649 result-20648)))))
+ (syntax-type-4521
+ (lambda (e-20707
+ r-20708
+ w-20709
+ s-20710
+ rib-20711
+ mod-20712
+ for-car?-20713)
+ (if (symbol? e-20707)
+ (let ((n-20714 (id-var-name-4505 e-20707 w-20709)))
+ (let ((b-20715
+ (let ((t-20723 (assq n-20714 r-20708)))
+ (if t-20723
+ (cdr t-20723)
+ (if (symbol? n-20714)
+ (let ((t-20729
+ (get-global-definition-hook-4449
+ n-20714
+ mod-20712)))
+ (if t-20729 t-20729 '(global)))
'(displaced-lexical))))))
- (let ((#{type -ANAU$bmvAmthP7L7xwrKR}#
- (car #{b -ANAU$bmvAmthP7L7xwrKQ}#)))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'lexical)
+ (let ((type-20716 (car b-20715)))
+ (if (eqv? type-20716 'lexical)
(values
- #{type -ANAU$bmvAmthP7L7xwrKR}#
- (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#)
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'global)
+ type-20716
+ (cdr b-20715)
+ e-20707
+ w-20709
+ s-20710
+ mod-20712)
+ (if (eqv? type-20716 'global)
(values
- #{type -ANAU$bmvAmthP7L7xwrKR}#
- #{n -ANAU$bmvAmthP7L7xwrKP}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'macro)
- (if #{for-car? -ANAU$bmvAmthP7L7xwrKO}#
+ type-20716
+ n-20714
+ e-20707
+ w-20709
+ s-20710
+ mod-20712)
+ (if (eqv? type-20716 'macro)
+ (if for-car?-20713
(values
- #{type -ANAU$bmvAmthP7L7xwrKR}#
- (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#)
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}#
- (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#)
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
+ type-20716
+ (cdr b-20715)
+ e-20707
+ w-20709
+ s-20710
+ mod-20712)
+ (syntax-type-4521
+ (expand-macro-4525
+ (cdr b-20715)
+ e-20707
+ r-20708
+ w-20709
+ s-20710
+ rib-20711
+ mod-20712)
+ r-20708
'(())
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#
+ s-20710
+ rib-20711
+ mod-20712
#f))
(values
- #{type -ANAU$bmvAmthP7L7xwrKR}#
- (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#)
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)))))))
- (if (pair? #{e -ANAU$bmvAmthP7L7xwrKI}#)
- (let ((#{first -ANAU$bmvAmthP7L7xwrKy}#
- (car #{e -ANAU$bmvAmthP7L7xwrKI}#)))
+ type-20716
+ (cdr b-20715)
+ e-20707
+ w-20709
+ s-20710
+ mod-20712)))))))
+ (if (pair? e-20707)
+ (let ((first-20749 (car e-20707)))
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{first -ANAU$bmvAmthP7L7xwrKy}#
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#
+ (syntax-type-4521
+ first-20749
+ r-20708
+ w-20709
+ s-20710
+ rib-20711
+ mod-20712
#t))
- (lambda (#{ftype -ANAU$bmvAmthP7L7xwrK0}#
- #{fval -ANAU$bmvAmthP7L7xwrK1}#
- #{fe -ANAU$bmvAmthP7L7xwrK2}#
- #{fw -ANAU$bmvAmthP7L7xwrK3}#
- #{fs -ANAU$bmvAmthP7L7xwrK4}#
- #{fmod -ANAU$bmvAmthP7L7xwrK5}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'lexical)
+ (lambda (ftype-20751
+ fval-20752
+ fe-20753
+ fw-20754
+ fs-20755
+ fmod-20756)
+ (if (eqv? ftype-20751 'lexical)
(values
'lexical-call
- #{fval -ANAU$bmvAmthP7L7xwrK1}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'global)
+ fval-20752
+ e-20707
+ w-20709
+ s-20710
+ mod-20712)
+ (if (eqv? ftype-20751 'global)
(values
'global-call
(vector
'syntax-object
- #{fval -ANAU$bmvAmthP7L7xwrK1}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{fmod -ANAU$bmvAmthP7L7xwrK5}#)
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'macro)
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}#
- #{fval -ANAU$bmvAmthP7L7xwrK1}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
+ fval-20752
+ w-20709
+ fmod-20756)
+ e-20707
+ w-20709
+ s-20710
+ mod-20712)
+ (if (eqv? ftype-20751 'macro)
+ (syntax-type-4521
+ (expand-macro-4525
+ fval-20752
+ e-20707
+ r-20708
+ w-20709
+ s-20710
+ rib-20711
+ mod-20712)
+ r-20708
'(())
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#
- #{for-car? -ANAU$bmvAmthP7L7xwrKO}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
- 'module-ref)
+ s-20710
+ rib-20711
+ mod-20712
+ for-car?-20713)
+ (if (eqv? ftype-20751 'module-ref)
(call-with-values
- (lambda ()
- (#{fval -ANAU$bmvAmthP7L7xwrK1}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#))
- (lambda (#{e -ANAU$bmvAmthP7L7xwrLO}#
- #{r -ANAU$bmvAmthP7L7xwrLP}#
- #{w -ANAU$bmvAmthP7L7xwrLQ}#
- #{s -ANAU$bmvAmthP7L7xwrLR}#
- #{mod -ANAU$bmvAmthP7L7xwrLS}#)
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xwrLO}#
- #{r -ANAU$bmvAmthP7L7xwrLP}#
- #{w -ANAU$bmvAmthP7L7xwrLQ}#
- #{s -ANAU$bmvAmthP7L7xwrLR}#
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- #{mod -ANAU$bmvAmthP7L7xwrLS}#
- #{for-car? -ANAU$bmvAmthP7L7xwrKO}#)))
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'core)
+ (lambda () (fval-20752 e-20707 r-20708 w-20709))
+ (lambda (e-20777
+ r-20778
+ w-20779
+ s-20780
+ mod-20781)
+ (syntax-type-4521
+ e-20777
+ r-20778
+ w-20779
+ s-20780
+ rib-20711
+ mod-20781
+ for-car?-20713)))
+ (if (eqv? ftype-20751 'core)
(values
'core-form
- #{fval -ANAU$bmvAmthP7L7xwrK1}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
- 'local-syntax)
+ fval-20752
+ e-20707
+ w-20709
+ s-20710
+ mod-20712)
+ (if (eqv? ftype-20751 'local-syntax)
(values
'local-syntax-form
- #{fval -ANAU$bmvAmthP7L7xwrK1}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
- 'begin)
+ fval-20752
+ e-20707
+ w-20709
+ s-20710
+ mod-20712)
+ (if (eqv? ftype-20751 'begin)
(values
'begin-form
#f
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
- 'eval-when)
+ e-20707
+ w-20709
+ s-20710
+ mod-20712)
+ (if (eqv? ftype-20751 'eval-when)
(values
'eval-when-form
#f
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
- 'define)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrLj}#
+ e-20707
+ w-20709
+ s-20710
+ mod-20712)
+ (if (eqv? ftype-20751 'define)
+ (let ((tmp-20798
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrKI}#
+ e-20707
'(_ any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwrLj}#
+ (if (if tmp-20798
(@apply
- (lambda (#{name
-ANAU$bmvAmthP7L7xwrLn}#
- #{val
-ANAU$bmvAmthP7L7xwrLo}#)
- (if (symbol?
- #{name
-ANAU$bmvAmthP7L7xwrLn}#)
+ (lambda (name-20802 val-20803)
+ (if (symbol? name-20802)
#t
- (if (if (vector?
- #{name
-ANAU$bmvAmthP7L7xwrLn}#)
+ (if (if (vector? name-20802)
(if (= (vector-length
- #{name
-ANAU$bmvAmthP7L7xwrLn}#)
+ name-20802)
4)
(eq? (vector-ref
- #{name
-ANAU$bmvAmthP7L7xwrLn}#
+ name-20802
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name
-ANAU$bmvAmthP7L7xwrLn}#
+ name-20802
1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwrLj}#)
+ tmp-20798)
#f)
(@apply
- (lambda (#{name
-ANAU$bmvAmthP7L7xwrMD}#
- #{val
-ANAU$bmvAmthP7L7xwrME}#)
+ (lambda (name-20830 val-20831)
(values
'define-form
- #{name -ANAU$bmvAmthP7L7xwrMD}#
- #{val -ANAU$bmvAmthP7L7xwrME}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#))
- #{tmp -ANAU$bmvAmthP7L7xwrLj}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrMF}#
+ name-20830
+ val-20831
+ w-20709
+ s-20710
+ mod-20712))
+ tmp-20798)
+ (let ((tmp-20832
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrKI}#
+ e-20707
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp
-ANAU$bmvAmthP7L7xwrMF}#
+ (if (if tmp-20832
(@apply
- (lambda (#{name
-ANAU$bmvAmthP7L7xwrMJ}#
- #{args
-ANAU$bmvAmthP7L7xwrMK}#
- #{e1
-ANAU$bmvAmthP7L7xwrML}#
- #{e2
-ANAU$bmvAmthP7L7xwrMM}#)
+ (lambda (name-20836
+ args-20837
+ e1-20838
+ e2-20839)
(if (if (symbol?
- #{name
-ANAU$bmvAmthP7L7xwrMJ}#)
+ name-20836)
#t
(if (if (vector?
- #{name
-ANAU$bmvAmthP7L7xwrMJ}#)
+
name-20836)
(if (=
(vector-length
-
#{name -ANAU$bmvAmthP7L7xwrMJ}#)
+
name-20836)
4)
(eq?
(vector-ref
-
#{name -ANAU$bmvAmthP7L7xwrMJ}#
+
name-20836
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name
-ANAU$bmvAmthP7L7xwrMJ}#
+ name-20836
1))
#f))
- (#{valid-bound-ids?
-ANAU$bmvAmthP7L7xwnN6}#
+ (valid-bound-ids?-4512
(letrec*
- ((#{lvl
-ANAU$bmvAmthP7L7xwrOh}#
- (lambda (#{vars
-ANAU$bmvAmthP7L7xwrOj}#
- #{ls
-ANAU$bmvAmthP7L7xwrOk}#
- #{w
-ANAU$bmvAmthP7L7xwrOl}#)
- (if (pair?
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
- (#{lvl
-ANAU$bmvAmthP7L7xwrOh}#
- (cdr
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
- (cons
(#{wrap -ANAU$bmvAmthP7L7xwnN9}#
-
(car #{vars -ANAU$bmvAmthP7L7xwrOj}#)
-
#{w -ANAU$bmvAmthP7L7xwrOl}#
+ ((lvl-20988
+ (lambda
(vars-20990
+ ls-20991
+ w-20992)
+ (if (pair?
vars-20990)
+ (lvl-20988
+ (cdr
vars-20990)
+ (cons
(wrap-4515
+
(car vars-20990)
+
w-20992
#f)
- #{ls
-ANAU$bmvAmthP7L7xwrOk}#)
- #{w
-ANAU$bmvAmthP7L7xwrOl}#)
+
ls-20991)
+ w-20992)
(if (if
(symbol?
-
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
+
vars-20990)
#t
(if
(if (vector?
-
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
+
vars-20990)
(if (= (vector-length
-
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
+
vars-20990)
4)
(eq? (vector-ref
-
#{vars -ANAU$bmvAmthP7L7xwrOj}#
+
vars-20990
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
-
#{vars -ANAU$bmvAmthP7L7xwrOj}#
+
vars-20990
1))
#f))
- (cons
(#{wrap -ANAU$bmvAmthP7L7xwnN9}#
-
#{vars -ANAU$bmvAmthP7L7xwrOj}#
-
#{w -ANAU$bmvAmthP7L7xwrOl}#
+ (cons
(wrap-4515
+
vars-20990
+
w-20992
#f)
- #{ls
-ANAU$bmvAmthP7L7xwrOk}#)
- (if (null?
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
- #{ls
-ANAU$bmvAmthP7L7xwrOk}#
+
ls-20991)
+ (if (null?
vars-20990)
+ ls-20991
(if (if
(vector?
-
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
+
vars-20990)
(if (= (vector-length
-
#{vars -ANAU$bmvAmthP7L7xwrOj}#)
+
vars-20990)
4)
(eq? (vector-ref
-
#{vars -ANAU$bmvAmthP7L7xwrOj}#
+
vars-20990
0)
'syntax-object)
#f)
#f)
- (#{lvl
-ANAU$bmvAmthP7L7xwrOh}#
+
(lvl-20988
(vector-ref
-
#{vars -ANAU$bmvAmthP7L7xwrOj}#
+
vars-20990
1)
- #{ls
-ANAU$bmvAmthP7L7xwrOk}#
-
(#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
-
#{w -ANAU$bmvAmthP7L7xwrOl}#
+
ls-20991
+
(join-wraps-4502
+
w-20992
(vector-ref
-
#{vars -ANAU$bmvAmthP7L7xwrOj}#
+
vars-20990
2)))
- (cons
#{vars -ANAU$bmvAmthP7L7xwrOj}#
-
#{ls -ANAU$bmvAmthP7L7xwrOk}#))))))))
- (#{lvl
-ANAU$bmvAmthP7L7xwrOh}#
- #{args
-ANAU$bmvAmthP7L7xwrMK}#
+ (cons
vars-20990
+
ls-20991))))))))
+ (lvl-20988
+ args-20837
'()
'(()))))
#f))
- #{tmp
-ANAU$bmvAmthP7L7xwrMF}#)
+ tmp-20832)
#f)
(@apply
- (lambda (#{name
-ANAU$bmvAmthP7L7xwrPR}#
- #{args
-ANAU$bmvAmthP7L7xwrPS}#
- #{e1
-ANAU$bmvAmthP7L7xwrPT}#
- #{e2
-ANAU$bmvAmthP7L7xwrPU}#)
+ (lambda (name-21036
+ args-21037
+ e1-21038
+ e2-21039)
(values
'define-form
- (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
- #{name
-ANAU$bmvAmthP7L7xwrPR}#
- #{w
-ANAU$bmvAmthP7L7xwrKK}#
- #{mod
-ANAU$bmvAmthP7L7xwrKN}#)
- (let ((#{e
-ANAU$bmvAmthP7L7xwrPa}#
+ (wrap-4515
+ name-21036
+ w-20709
+ mod-20712)
+ (let ((e-21045
(cons
'#(syntax-object
lambda
((top)
@@ -1969,10 +1637,10 @@
(top)
(top)
(top))
- #("l7"
- "l8"
- "l9"
- "la"))
+
#("l-*-1954"
+
"l-*-1955"
+
"l-*-1956"
+
"l-*-1957"))
#(ribcage
()
()
@@ -1994,12 +1662,12 @@
(top)
(top)
(top))
- #("ko"
- "kp"
- "kq"
- "kr"
- "ks"
- "kt"))
+
#("l-*-1907"
+
"l-*-1908"
+
"l-*-1909"
+
"l-*-1910"
+
"l-*-1911"
+
"l-*-1912"))
#(ribcage
()
()
@@ -2007,7 +1675,7 @@
#(ribcage
#(first)
#((top))
- #("kn"))
+
#("l-*-1899"))
#(ribcage
()
()
@@ -2035,13 +1703,13 @@
(top)
(top)
(top))
- #("kd"
- "ke"
- "kf"
- "kg"
- "kh"
- "ki"
- "kj"))
+
#("l-*-1871"
+
"l-*-1872"
+
"l-*-1873"
+
"l-*-1874"
+
"l-*-1875"
+
"l-*-1876"
+
"l-*-1877"))
#(ribcage
(lambda-var-list
gen-var
@@ -2155,7 +1823,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
-
gensym-hook
+
session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -2323,146 +1991,146 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+
("l-*-476"
+
"l-*-474"
+
"l-*-472"
+
"l-*-470"
+
"l-*-468"
+
"l-*-466"
+
"l-*-464"
+
"l-*-462"
+
"l-*-460"
+
"l-*-458"
+
"l-*-456"
+
"l-*-454"
+
"l-*-452"
+
"l-*-450"
+
"l-*-448"
+
"l-*-446"
+
"l-*-444"
+
"l-*-442"
+
"l-*-440"
+
"l-*-438"
+
"l-*-436"
+
"l-*-434"
+
"l-*-432"
+
"l-*-430"
+
"l-*-428"
+
"l-*-426"
+
"l-*-424"
+
"l-*-422"
+
"l-*-420"
+
"l-*-418"
+
"l-*-416"
+
"l-*-414"
+
"l-*-412"
+
"l-*-410"
+
"l-*-408"
+
"l-*-406"
+
"l-*-404"
+
"l-*-402"
+
"l-*-400"
+
"l-*-399"
+
"l-*-397"
+
"l-*-394"
+
"l-*-393"
+
"l-*-392"
+
"l-*-390"
+
"l-*-389"
+
"l-*-387"
+
"l-*-385"
+
"l-*-383"
+
"l-*-381"
+
"l-*-379"
+
"l-*-377"
+
"l-*-375"
+
"l-*-373"
+
"l-*-370"
+
"l-*-368"
+
"l-*-367"
+
"l-*-365"
+
"l-*-363"
+
"l-*-361"
+
"l-*-359"
+
"l-*-358"
+
"l-*-357"
+
"l-*-356"
+
"l-*-354"
+
"l-*-353"
+
"l-*-350"
+
"l-*-348"
+
"l-*-346"
+
"l-*-344"
+
"l-*-342"
+
"l-*-340"
+
"l-*-338"
+
"l-*-337"
+
"l-*-336"
+
"l-*-334"
+
"l-*-332"
+
"l-*-331"
+
"l-*-328"
+
"l-*-327"
+
"l-*-325"
+
"l-*-323"
+
"l-*-321"
+
"l-*-319"
+
"l-*-317"
+
"l-*-315"
+
"l-*-313"
+
"l-*-311"
+
"l-*-309"
+
"l-*-306"
+
"l-*-304"
+
"l-*-302"
+
"l-*-300"
+
"l-*-298"
+
"l-*-296"
+
"l-*-294"
+
"l-*-292"
+
"l-*-290"
+
"l-*-288"
+
"l-*-286"
+
"l-*-284"
+
"l-*-282"
+
"l-*-280"
+
"l-*-278"
+
"l-*-276"
+
"l-*-274"
+
"l-*-272"
+
"l-*-270"
+
"l-*-268"
+
"l-*-266"
+
"l-*-264"
+
"l-*-262"
+
"l-*-260"
+
"l-*-258"
+
"l-*-256"
+
"l-*-255"
+
"l-*-254"
+
"l-*-253"
+
"l-*-252"
+
"l-*-250"
+
"l-*-248"
+
"l-*-246"
+
"l-*-243"
+
"l-*-241"
+
"l-*-239"
+
"l-*-237"
+
"l-*-235"
+
"l-*-233"
+
"l-*-231"
+
"l-*-229"
+
"l-*-227"
+
"l-*-225"
+
"l-*-223"
+
"l-*-221"
+
"l-*-219"
+
"l-*-217"
+
"l-*-215"
+
"l-*-213"
+
"l-*-211"
+
"l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -2470,72 +2138,72 @@
((top)
(top)
(top))
- ("8"
- "7"
- "6")))
+
("l-*-47"
+
"l-*-46"
+
"l-*-45")))
(hygiene
guile))
- (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
- (cons
#{args -ANAU$bmvAmthP7L7xwrPS}#
- (cons
#{e1 -ANAU$bmvAmthP7L7xwrPT}#
-
#{e2 -ANAU$bmvAmthP7L7xwrPU}#))
- #{w
-ANAU$bmvAmthP7L7xwrKK}#
- #{mod
-ANAU$bmvAmthP7L7xwrKN}#))))
+ (wrap-4515
+ (cons
args-21037
+ (cons
e1-21038
+
e2-21039))
+ w-20709
+
mod-20712))))
(begin
- (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwrPa}#)
- #{s
-ANAU$bmvAmthP7L7xwrKL}#
+ (if (if (pair? e-21045)
+ s-20710
#f)
(set-source-properties!
- #{e
-ANAU$bmvAmthP7L7xwrPa}#
- #{s
-ANAU$bmvAmthP7L7xwrKL}#))
- #{e
-ANAU$bmvAmthP7L7xwrPa}#))
+ e-21045
+ s-20710))
+ e-21045))
'(())
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod
-ANAU$bmvAmthP7L7xwrKN}#))
- #{tmp -ANAU$bmvAmthP7L7xwrMF}#)
- (let ((#{tmp
-ANAU$bmvAmthP7L7xwrPh}#
+ s-20710
+ mod-20712))
+ tmp-20832)
+ (let ((tmp-21052
($sc-dispatch
- #{e
-ANAU$bmvAmthP7L7xwrKI}#
+ e-20707
'(_ any))))
- (if (if #{tmp
-ANAU$bmvAmthP7L7xwrPh}#
+ (if (if tmp-21052
(@apply
- (lambda (#{name
-ANAU$bmvAmthP7L7xwrPl}#)
+ (lambda (name-21056)
(if (symbol?
- #{name
-ANAU$bmvAmthP7L7xwrPl}#)
+ name-21056)
#t
(if (if (vector?
- #{name
-ANAU$bmvAmthP7L7xwrPl}#)
+
name-21056)
(if (=
(vector-length
-
#{name -ANAU$bmvAmthP7L7xwrPl}#)
+
name-21056)
4)
(eq?
(vector-ref
-
#{name -ANAU$bmvAmthP7L7xwrPl}#
+
name-21056
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name
-ANAU$bmvAmthP7L7xwrPl}#
+ name-21056
1))
#f)))
- #{tmp
-ANAU$bmvAmthP7L7xwrPh}#)
+ tmp-21052)
#f)
(@apply
- (lambda (#{name
-ANAU$bmvAmthP7L7xwrQA}#)
+ (lambda (name-21083)
(values
'define-form
- (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
- #{name
-ANAU$bmvAmthP7L7xwrQA}#
- #{w
-ANAU$bmvAmthP7L7xwrKK}#
- #{mod
-ANAU$bmvAmthP7L7xwrKN}#)
+ (wrap-4515
+ name-21083
+ w-20709
+ mod-20712)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("lc"))
+ #("l-*-1967"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2551,17 +2219,17 @@
(top)
(top)
(top))
- #("ko"
- "kp"
- "kq"
- "kr"
- "ks"
- "kt"))
+ #("l-*-1907"
+ "l-*-1908"
+ "l-*-1909"
+ "l-*-1910"
+ "l-*-1911"
+ "l-*-1912"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("kn"))
+ #("l-*-1899"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -2580,13 +2248,13 @@
(top)
(top)
(top))
- #("kd"
- "ke"
- "kf"
- "kg"
- "kh"
- "ki"
- "kj"))
+ #("l-*-1871"
+ "l-*-1872"
+ "l-*-1873"
+ "l-*-1874"
+ "l-*-1875"
+ "l-*-1876"
+ "l-*-1877"))
#(ribcage
(lambda-var-list
gen-var
@@ -2700,7 +2368,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -2868,146 +2536,146 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3015,7 +2683,9 @@
((top)
(top)
(top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
#(syntax-object
#f
@@ -3023,7 +2693,7 @@
#(ribcage
#(name)
#((top))
- #("lc"))
+ #("l-*-1967"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3039,17 +2709,17 @@
(top)
(top)
(top))
- #("ko"
- "kp"
- "kq"
- "kr"
- "ks"
- "kt"))
+ #("l-*-1907"
+ "l-*-1908"
+ "l-*-1909"
+ "l-*-1910"
+ "l-*-1911"
+ "l-*-1912"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("kn"))
+ #("l-*-1899"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3068,13 +2738,13 @@
(top)
(top)
(top))
- #("kd"
- "ke"
- "kf"
- "kg"
- "kh"
- "ki"
- "kj"))
+ #("l-*-1871"
+ "l-*-1872"
+ "l-*-1873"
+ "l-*-1874"
+ "l-*-1875"
+ "l-*-1876"
+ "l-*-1877"))
#(ribcage
(lambda-var-list
gen-var
@@ -3188,7 +2858,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -3356,146 +3026,146 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3503,7 +3173,9 @@
((top)
(top)
(top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
#(syntax-object
#f
@@ -3511,7 +3183,7 @@
#(ribcage
#(name)
#((top))
- #("lc"))
+ #("l-*-1967"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3527,17 +3199,17 @@
(top)
(top)
(top))
- #("ko"
- "kp"
- "kq"
- "kr"
- "ks"
- "kt"))
+ #("l-*-1907"
+ "l-*-1908"
+ "l-*-1909"
+ "l-*-1910"
+ "l-*-1911"
+ "l-*-1912"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("kn"))
+ #("l-*-1899"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3556,13 +3228,13 @@
(top)
(top)
(top))
- #("kd"
- "ke"
- "kf"
- "kg"
- "kh"
- "ki"
- "kj"))
+ #("l-*-1871"
+ "l-*-1872"
+ "l-*-1873"
+ "l-*-1874"
+ "l-*-1875"
+ "l-*-1876"
+ "l-*-1877"))
#(ribcage
(lambda-var-list
gen-var
@@ -3676,7 +3348,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -3844,146 +3516,146 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3991,361 +3663,295 @@
((top)
(top)
(top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
'(())
- #{s
-ANAU$bmvAmthP7L7xwrKL}#
- #{mod
-ANAU$bmvAmthP7L7xwrKN}#))
- #{tmp
-ANAU$bmvAmthP7L7xwrPh}#)
+ s-20710
+ mod-20712))
+ tmp-21052)
(syntax-violation
#f
"source expression failed
to match any pattern"
- #{e
-ANAU$bmvAmthP7L7xwrKI}#)))))))
- (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
- 'define-syntax)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrQT}#
+ e-20707)))))))
+ (if (eqv? ftype-20751 'define-syntax)
+ (let ((tmp-21102
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrKI}#
+ e-20707
'(_ any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwrQT}#
+ (if (if tmp-21102
(@apply
- (lambda (#{name
-ANAU$bmvAmthP7L7xwrQX}#
- #{val
-ANAU$bmvAmthP7L7xwrQY}#)
- (if (symbol?
- #{name
-ANAU$bmvAmthP7L7xwrQX}#)
+ (lambda (name-21106 val-21107)
+ (if (symbol? name-21106)
#t
(if (if (vector?
- #{name
-ANAU$bmvAmthP7L7xwrQX}#)
+ name-21106)
(if (=
(vector-length
- #{name
-ANAU$bmvAmthP7L7xwrQX}#)
+ name-21106)
4)
(eq? (vector-ref
- #{name
-ANAU$bmvAmthP7L7xwrQX}#
+ name-21106
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name
-ANAU$bmvAmthP7L7xwrQX}#
+ name-21106
1))
#f)))
- #{tmp
-ANAU$bmvAmthP7L7xwrQT}#)
+ tmp-21102)
#f)
(@apply
- (lambda (#{name
-ANAU$bmvAmthP7L7xwrQz}#
- #{val
-ANAU$bmvAmthP7L7xwrQ0}#)
+ (lambda (name-21134 val-21135)
(values
'define-syntax-form
- #{name
-ANAU$bmvAmthP7L7xwrQz}#
- #{val -ANAU$bmvAmthP7L7xwrQ0}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod
-ANAU$bmvAmthP7L7xwrKN}#))
- #{tmp -ANAU$bmvAmthP7L7xwrQT}#)
+ name-21134
+ val-21135
+ w-20709
+ s-20710
+ mod-20712))
+ tmp-21102)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{e -ANAU$bmvAmthP7L7xwrKI}#)))
- (if (eqv? #{ftype
-ANAU$bmvAmthP7L7xwrK0}#
+ e-20707)))
+ (if (eqv? ftype-20751
'define-syntax-parameter)
- (let ((#{tmp address@hidden
+ (let ((tmp-21146
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrKI}#
+ e-20707
'(_ any any))))
- (if (if #{tmp address@hidden
+ (if (if tmp-21146
(@apply
- (lambda (#{name
-ANAU$bmvAmthP7L7xwrRD}#
- #{val
-ANAU$bmvAmthP7L7xwrRE}#)
- (if (symbol?
- #{name
-ANAU$bmvAmthP7L7xwrRD}#)
+ (lambda (name-21150
+ val-21151)
+ (if (symbol? name-21150)
#t
(if (if (vector?
- #{name
-ANAU$bmvAmthP7L7xwrRD}#)
+ name-21150)
(if (=
(vector-length
- #{name
-ANAU$bmvAmthP7L7xwrRD}#)
+
name-21150)
4)
(eq? (vector-ref
- #{name
-ANAU$bmvAmthP7L7xwrRD}#
+
name-21150
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name
-ANAU$bmvAmthP7L7xwrRD}#
+ name-21150
1))
#f)))
- #{tmp address@hidden)
+ tmp-21146)
#f)
(@apply
- (lambda (#{name
-ANAU$bmvAmthP7L7xwrRf}#
- #{val
-ANAU$bmvAmthP7L7xwrRg}#)
+ (lambda (name-21178 val-21179)
(values
'define-syntax-parameter-form
- #{name
-ANAU$bmvAmthP7L7xwrRf}#
- #{val
-ANAU$bmvAmthP7L7xwrRg}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod
-ANAU$bmvAmthP7L7xwrKN}#))
- #{tmp address@hidden)
+ name-21178
+ val-21179
+ w-20709
+ s-20710
+ mod-20712))
+ tmp-21146)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{e -ANAU$bmvAmthP7L7xwrKI}#)))
+ e-20707)))
(values
'call
#f
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod
-ANAU$bmvAmthP7L7xwrKN}#)))))))))))))))
- (if (if (vector? #{e -ANAU$bmvAmthP7L7xwrKI}#)
- (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwrKI}#)
- 4)
- (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 0)
- 'syntax-object)
+ e-20707
+ w-20709
+ s-20710
+ mod-20712)))))))))))))))
+ (if (if (vector? e-20707)
+ (if (= (vector-length e-20707) 4)
+ (eq? (vector-ref e-20707 0) 'syntax-object)
#f)
#f)
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 1)
- #{r -ANAU$bmvAmthP7L7xwrKJ}#
- (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 2))
- (let ((#{t -ANAU$bmvAmthP7L7xwrR7}#
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{e -ANAU$bmvAmthP7L7xwrKI}#)))
- (if #{t -ANAU$bmvAmthP7L7xwrR7}#
- #{t -ANAU$bmvAmthP7L7xwrR7}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#))
- #{rib -ANAU$bmvAmthP7L7xwrKM}#
- (let ((#{t -ANAU$bmvAmthP7L7xwrVm}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 3)))
- (if #{t -ANAU$bmvAmthP7L7xwrVm}#
- #{t -ANAU$bmvAmthP7L7xwrVm}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#))
- #{for-car? -ANAU$bmvAmthP7L7xwrKO}#)
- (if (self-evaluating? #{e -ANAU$bmvAmthP7L7xwrKI}#)
+ (syntax-type-4521
+ (vector-ref e-20707 1)
+ r-20708
+ (join-wraps-4502 w-20709 (vector-ref e-20707 2))
+ (let ((t-21206 (source-annotation-4479 e-20707)))
+ (if t-21206 t-21206 s-20710))
+ rib-20711
+ (let ((t-21441 (vector-ref e-20707 3)))
+ (if t-21441 t-21441 mod-20712))
+ for-car?-20713)
+ (if (self-evaluating? e-20707)
(values
'constant
#f
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ e-20707
+ w-20709
+ s-20710
+ mod-20712)
(values
'other
#f
- #{e -ANAU$bmvAmthP7L7xwrKI}#
- #{w -ANAU$bmvAmthP7L7xwrKK}#
- #{s -ANAU$bmvAmthP7L7xwrKL}#
- #{mod -ANAU$bmvAmthP7L7xwrKN}#)))))))
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwrVv}#
- #{r -ANAU$bmvAmthP7L7xwrVw}#
- #{w -ANAU$bmvAmthP7L7xwrVx}#
- #{mod -ANAU$bmvAmthP7L7xwrVy}#)
+ e-20707
+ w-20709
+ s-20710
+ mod-20712)))))))
+ (expand-4522
+ (lambda (e-21450 r-21451 w-21452 mod-21453)
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xwrVv}#
- #{r -ANAU$bmvAmthP7L7xwrVw}#
- #{w -ANAU$bmvAmthP7L7xwrVx}#
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{e -ANAU$bmvAmthP7L7xwrVv}#)
+ (syntax-type-4521
+ e-21450
+ r-21451
+ w-21452
+ (source-annotation-4479 e-21450)
#f
- #{mod -ANAU$bmvAmthP7L7xwrVy}#
+ mod-21453
#f))
- (lambda (#{type -ANAU$bmvAmthP7L7xwrYN}#
- #{value -ANAU$bmvAmthP7L7xwrYO}#
- #{e -ANAU$bmvAmthP7L7xwrYP}#
- #{w -ANAU$bmvAmthP7L7xwrYQ}#
- #{s -ANAU$bmvAmthP7L7xwrYR}#
- #{mod -ANAU$bmvAmthP7L7xwrYS}#)
- (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
- #{type -ANAU$bmvAmthP7L7xwrYN}#
- #{value -ANAU$bmvAmthP7L7xwrYO}#
- #{e -ANAU$bmvAmthP7L7xwrYP}#
- #{r -ANAU$bmvAmthP7L7xwrVw}#
- #{w -ANAU$bmvAmthP7L7xwrYQ}#
- #{s -ANAU$bmvAmthP7L7xwrYR}#
- #{mod -ANAU$bmvAmthP7L7xwrYS}#)))))
- (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
- (lambda (#{type -ANAU$bmvAmthP7L7xwrYV}#
- #{value -ANAU$bmvAmthP7L7xwrYW}#
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'lexical)
+ (lambda (type-21608
+ value-21609
+ e-21610
+ w-21611
+ s-21612
+ mod-21613)
+ (expand-expr-4523
+ type-21608
+ value-21609
+ e-21610
+ r-21451
+ w-21611
+ s-21612
+ mod-21613)))))
+ (expand-expr-4523
+ (lambda (type-21616
+ value-21617
+ e-21618
+ r-21619
+ w-21620
+ s-21621
+ mod-21622)
+ (if (eqv? type-21616 'lexical)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{value -ANAU$bmvAmthP7L7xwrYW}#)
- (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'core)
+ s-21621
+ e-21618
+ value-21617)
+ (if (if (eqv? type-21616 'core)
#t
- (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'core-form))
- (#{value -ANAU$bmvAmthP7L7xwrYW}#
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'module-ref)
+ (eqv? type-21616 'core-form))
+ (value-21617
+ e-21618
+ r-21619
+ w-21620
+ s-21621
+ mod-21622)
+ (if (eqv? type-21616 'module-ref)
(call-with-values
- (lambda ()
- (#{value -ANAU$bmvAmthP7L7xwrYW}#
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#))
- (lambda (#{e -ANAU$bmvAmthP7L7xwrY1}#
- #{r -ANAU$bmvAmthP7L7xwrY2}#
- #{w -ANAU$bmvAmthP7L7xwrY3}#
- #{s -ANAU$bmvAmthP7L7xwrY4}#
- #{mod -ANAU$bmvAmthP7L7xwrY5}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{e -ANAU$bmvAmthP7L7xwrY1}#
- #{r -ANAU$bmvAmthP7L7xwrY2}#
- #{w -ANAU$bmvAmthP7L7xwrY3}#
- #{mod -ANAU$bmvAmthP7L7xwrY5}#)))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'lexical-call)
- (#{expand-application -ANAU$bmvAmthP7L7xwnOG}#
- (let ((#{id -ANAU$bmvAmthP7L7xwraE}#
- (car #{e -ANAU$bmvAmthP7L7xwrYX}#)))
- (#{build-lexical-reference -ANAU$bmvAmthP7L7xwnNC}#
+ (lambda () (value-21617 e-21618 r-21619 w-21620))
+ (lambda (e-21648 r-21649 w-21650 s-21651 mod-21652)
+ (expand-4522 e-21648 r-21649 w-21650 mod-21652)))
+ (if (eqv? type-21616 'lexical-call)
+ (expand-application-4524
+ (let ((id-21727 (car e-21618)))
+ (build-lexical-reference-4456
'fun
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{id -ANAU$bmvAmthP7L7xwraE}#)
- (if (if (vector? #{id -ANAU$bmvAmthP7L7xwraE}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwraE}#)
- 4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwraE}#
- 0)
- 'syntax-object)
+ (source-annotation-4479 id-21727)
+ (if (if (vector? id-21727)
+ (if (= (vector-length id-21727) 4)
+ (eq? (vector-ref id-21727 0) 'syntax-object)
#f)
#f)
- (syntax->datum #{id -ANAU$bmvAmthP7L7xwraE}#)
- #{id -ANAU$bmvAmthP7L7xwraE}#)
- #{value -ANAU$bmvAmthP7L7xwrYW}#))
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'global-call)
- (#{expand-application -ANAU$bmvAmthP7L7xwnOG}#
- (#{build-global-reference -ANAU$bmvAmthP7L7xwnNF}#
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- (car #{e -ANAU$bmvAmthP7L7xwrYX}#))
- (if (if (vector? #{value -ANAU$bmvAmthP7L7xwrYW}#)
- (if (= (vector-length
- #{value -ANAU$bmvAmthP7L7xwrYW}#)
- 4)
- (eq? (vector-ref
- #{value -ANAU$bmvAmthP7L7xwrYW}#
- 0)
- 'syntax-object)
+ (syntax->datum id-21727)
+ id-21727)
+ value-21617))
+ e-21618
+ r-21619
+ w-21620
+ s-21621
+ mod-21622)
+ (if (eqv? type-21616 'global-call)
+ (expand-application-4524
+ (build-global-reference-4459
+ (source-annotation-4479 (car e-21618))
+ (if (if (vector? value-21617)
+ (if (= (vector-length value-21617) 4)
+ (eq? (vector-ref value-21617 0) 'syntax-object)
#f)
#f)
- (vector-ref #{value -ANAU$bmvAmthP7L7xwrYW}# 1)
- #{value -ANAU$bmvAmthP7L7xwrYW}#)
- (if (if (vector? #{value -ANAU$bmvAmthP7L7xwrYW}#)
- (if (= (vector-length
- #{value -ANAU$bmvAmthP7L7xwrYW}#)
- 4)
- (eq? (vector-ref
- #{value -ANAU$bmvAmthP7L7xwrYW}#
- 0)
- 'syntax-object)
+ (vector-ref value-21617 1)
+ value-21617)
+ (if (if (vector? value-21617)
+ (if (= (vector-length value-21617) 4)
+ (eq? (vector-ref value-21617 0) 'syntax-object)
#f)
#f)
- (vector-ref #{value -ANAU$bmvAmthP7L7xwrYW}# 3)
- #{mod -ANAU$bmvAmthP7L7xwrYb}#))
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'constant)
- (let ((#{exp -ANAU$bmvAmthP7L7xwrfV}#
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (vector-ref value-21617 3)
+ mod-21622))
+ e-21618
+ r-21619
+ w-21620
+ s-21621
+ mod-21622)
+ (if (eqv? type-21616 'constant)
+ (let ((exp-22064
+ (strip-4535
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#))
- #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
+ (if (if (pair? e-21618) s-21621 #f)
+ (set-source-properties! e-21618 s-21621))
+ e-21618)
+ w-21620
+ mod-21622)
'(()))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{exp -ANAU$bmvAmthP7L7xwrfV}#))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'global)
- (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#
- #{value -ANAU$bmvAmthP7L7xwrYW}#
- (lambda (#{mod -ANAU$bmvAmthP7L7xwrf5}#
- #{var -ANAU$bmvAmthP7L7xwrf6}#
- #{public? -ANAU$bmvAmthP7L7xwrf7}#)
+ s-21621
+ exp-22064))
+ (if (eqv? type-21616 'global)
+ (analyze-variable-4458
+ mod-21622
+ value-21617
+ (lambda (mod-22100 var-22101 public?-22102)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrf5}#
- #{var -ANAU$bmvAmthP7L7xwrf6}#
- #{public? -ANAU$bmvAmthP7L7xwrf7}#))
- (lambda (#{var -ANAU$bmvAmthP7L7xwrgE}#)
+ s-21621
+ mod-22100
+ var-22101
+ public?-22102))
+ (lambda (var-22111)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{var -ANAU$bmvAmthP7L7xwrgE}#)))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'call)
- (#{expand-application -ANAU$bmvAmthP7L7xwnOG}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- (car #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'begin-form)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrhP}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- '(_ any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwrhP}#
+ s-21621
+ var-22111)))
+ (if (eqv? type-21616 'call)
+ (expand-application-4524
+ (expand-4522
+ (car e-21618)
+ r-21619
+ w-21620
+ mod-21622)
+ e-21618
+ r-21619
+ w-21620
+ s-21621
+ mod-21622)
+ (if (eqv? type-21616 'begin-form)
+ (let ((tmp-22186
+ ($sc-dispatch e-21618 '(_ any . each-any))))
+ (if tmp-22186
(@apply
- (lambda (#{e1 -ANAU$bmvAmthP7L7xwrhT}#
- #{e2 -ANAU$bmvAmthP7L7xwrhU}#)
- (#{expand-sequence address@hidden
- (cons #{e1 -ANAU$bmvAmthP7L7xwrhT}#
- #{e2 -ANAU$bmvAmthP7L7xwrhU}#)
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#))
- #{tmp -ANAU$bmvAmthP7L7xwrhP}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrir}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- '(_))))
- (if #{tmp -ANAU$bmvAmthP7L7xwrir}#
+ (lambda (e1-22190 e2-22191)
+ (expand-sequence-4517
+ (cons e1-22190 e2-22191)
+ r-21619
+ w-21620
+ s-21621
+ mod-21622))
+ tmp-22186)
+ (let ((tmp-22278 ($sc-dispatch e-21618 '(_))))
+ (if tmp-22278
(@apply
(lambda ()
(if (include-deprecated-features)
@@ -4358,914 +3964,787 @@
(syntax-violation
#f
"sequence of zero expressions"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (wrap-4515
(begin
- (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwrYX}#)
- #{s
-ANAU$bmvAmthP7L7xwrYa}#
+ (if (if (pair? e-21618)
+ s-21621
#f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{s
-ANAU$bmvAmthP7L7xwrYa}#))
- #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#))))
- #{tmp -ANAU$bmvAmthP7L7xwrir}#)
+ e-21618
+ s-21621))
+ e-21618)
+ w-21620
+ mod-21622))))
+ tmp-22278)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e -ANAU$bmvAmthP7L7xwrYX}#)))))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'local-syntax-form)
- (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}#
- #{value -ANAU$bmvAmthP7L7xwrYW}#
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#
- #{expand-sequence address@hidden)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'eval-when-form)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrka}#
+ e-21618)))))
+ (if (eqv? type-21616 'local-syntax-form)
+ (expand-local-syntax-4527
+ value-21617
+ e-21618
+ r-21619
+ w-21620
+ s-21621
+ mod-21622
+ expand-sequence-4517)
+ (if (eqv? type-21616 'eval-when-form)
+ (let ((tmp-22389
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrYX}#
+ e-21618
'(_ each-any any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwrka}#
+ (if tmp-22389
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwrke}#
- #{e1 -ANAU$bmvAmthP7L7xwrkf}#
- #{e2 -ANAU$bmvAmthP7L7xwrkg}#)
- (let ((#{when-list
-ANAU$bmvAmthP7L7xwrkh}#
- (#{parse-when-list
-ANAU$bmvAmthP7L7xwnOC}#
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{x
-ANAU$bmvAmthP7L7xwrke}#)))
- (if (memq 'eval
- #{when-list
-ANAU$bmvAmthP7L7xwrkh}#)
- (#{expand-sequence address@hidden
- (cons #{e1
-ANAU$bmvAmthP7L7xwrkf}#
- #{e2
-ANAU$bmvAmthP7L7xwrkg}#)
- #{r -ANAU$bmvAmthP7L7xwrYY}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#)
+ (lambda (x-22393 e1-22394 e2-22395)
+ (let ((when-list-22396
+ (parse-when-list-4520
+ e-21618
+ x-22393)))
+ (if (memq 'eval when-list-22396)
+ (expand-sequence-4517
+ (cons e1-22394 e2-22395)
+ r-21619
+ w-21620
+ s-21621
+ mod-21622)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f))))
- #{tmp -ANAU$bmvAmthP7L7xwrka}#)
+ tmp-22389)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e -ANAU$bmvAmthP7L7xwrYX}#)))
- (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'define-form)
+ e-21618)))
+ (if (if (eqv? type-21616 'define-form)
#t
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'define-syntax-form)
+ (if (eqv? type-21616 'define-syntax-form)
#t
- (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
+ (eqv? type-21616
'define-syntax-parameter-form)))
(syntax-violation
#f
"definition in expression context"
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{value -ANAU$bmvAmthP7L7xwrYW}#
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'syntax)
+ e-21618
+ (wrap-4515 value-21617 w-21620 mod-21622))
+ (if (eqv? type-21616 'syntax)
(syntax-violation
#f
"reference to pattern variable outside
syntax form"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (wrap-4515
(begin
- (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwrYX}#)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #f)
+ (if (if (pair? e-21618) s-21621 #f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#))
- #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
- 'displaced-lexical)
+ e-21618
+ s-21621))
+ e-21618)
+ w-21620
+ mod-21622))
+ (if (eqv? type-21616 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its
scope"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (wrap-4515
(begin
- (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwrYX}#)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #f)
+ (if (if (pair? e-21618) s-21621 #f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#))
- #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{mod -ANAU$bmvAmthP7L7xwrYb}#))
+ e-21618
+ s-21621))
+ e-21618)
+ w-21620
+ mod-21622))
(syntax-violation
#f
"unexpected syntax"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (wrap-4515
(begin
- (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwrYX}#)
- #{s -ANAU$bmvAmthP7L7xwrYa}#
- #f)
+ (if (if (pair? e-21618) s-21621 #f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrYX}#
- #{s -ANAU$bmvAmthP7L7xwrYa}#))
- #{e -ANAU$bmvAmthP7L7xwrYX}#)
- #{w -ANAU$bmvAmthP7L7xwrYZ}#
- #{mod
-ANAU$bmvAmthP7L7xwrYb}#))))))))))))))))))
- (#{expand-application -ANAU$bmvAmthP7L7xwnOG}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwroR}#
- #{e -ANAU$bmvAmthP7L7xwroS}#
- #{r -ANAU$bmvAmthP7L7xwroT}#
- #{w -ANAU$bmvAmthP7L7xwroU}#
- #{s -ANAU$bmvAmthP7L7xwroV}#
- #{mod -ANAU$bmvAmthP7L7xwroW}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwroY}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwroS}#
- '(any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwroY}#
+ e-21618
+ s-21621))
+ e-21618)
+ w-21620
+ mod-21622))))))))))))))))))
+ (expand-application-4524
+ (lambda (x-22636
+ e-22637
+ r-22638
+ w-22639
+ s-22640
+ mod-22641)
+ (let ((tmp-22643
+ ($sc-dispatch e-22637 '(any . each-any))))
+ (if tmp-22643
(@apply
- (lambda (#{e0 -ANAU$bmvAmthP7L7xwroc}#
- #{e1 -ANAU$bmvAmthP7L7xwrod}#)
- (#{build-application address@hidden
- #{s -ANAU$bmvAmthP7L7xwroV}#
- #{x -ANAU$bmvAmthP7L7xwroR}#
- (map (lambda (#{e -ANAU$bmvAmthP7L7xwrpt}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{e -ANAU$bmvAmthP7L7xwrpt}#
- #{r -ANAU$bmvAmthP7L7xwroT}#
- #{w -ANAU$bmvAmthP7L7xwroU}#
- #{mod -ANAU$bmvAmthP7L7xwroW}#))
- #{e1 -ANAU$bmvAmthP7L7xwrod}#)))
- #{tmp -ANAU$bmvAmthP7L7xwroY}#)
+ (lambda (e0-22647 e1-22648)
+ (build-application-4453
+ s-22640
+ x-22636
+ (map (lambda (e-22728)
+ (expand-4522 e-22728 r-22638 w-22639 mod-22641))
+ e1-22648)))
+ tmp-22643)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwroS}#)))))
- (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}#
- (lambda (#{p -ANAU$bmvAmthP7L7xwrq5}#
- #{e -ANAU$bmvAmthP7L7xwrq6}#
- #{r -ANAU$bmvAmthP7L7xwrq7}#
- #{w -ANAU$bmvAmthP7L7xwrq8}#
- #{s -ANAU$bmvAmthP7L7xwrq9}#
- #{rib -ANAU$bmvAmthP7L7xwrq$}#
- #{mod address@hidden)
+ e-22637)))))
+ (expand-macro-4525
+ (lambda (p-22804
+ e-22805
+ r-22806
+ w-22807
+ s-22808
+ rib-22809
+ mod-22810)
(letrec*
- ((#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwrrh}#
- #{m -ANAU$bmvAmthP7L7xwrri}#)
- (if (pair? #{x -ANAU$bmvAmthP7L7xwrrh}#)
- (let ((#{e -ANAU$bmvAmthP7L7xwrrm}#
- (cons (#{rebuild-macro-output
-ANAU$bmvAmthP7L7xwrrA}#
- (car #{x -ANAU$bmvAmthP7L7xwrrh}#)
- #{m -ANAU$bmvAmthP7L7xwrri}#)
- (#{rebuild-macro-output
-ANAU$bmvAmthP7L7xwrrA}#
- (cdr #{x -ANAU$bmvAmthP7L7xwrrh}#)
- #{m -ANAU$bmvAmthP7L7xwrri}#))))
+ ((rebuild-macro-output-22811
+ (lambda (x-22844 m-22845)
+ (if (pair? x-22844)
+ (let ((e-22849
+ (cons (rebuild-macro-output-22811
+ (car x-22844)
+ m-22845)
+ (rebuild-macro-output-22811
+ (cdr x-22844)
+ m-22845))))
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrrm}#)
- #{s -ANAU$bmvAmthP7L7xwrq9}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrrm}#
- #{s -ANAU$bmvAmthP7L7xwrq9}#))
- #{e -ANAU$bmvAmthP7L7xwrrm}#))
- (if (if (vector? #{x -ANAU$bmvAmthP7L7xwrrh}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwrrh}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 0)
- 'syntax-object)
+ (if (if (pair? e-22849) s-22808 #f)
+ (set-source-properties! e-22849 s-22808))
+ e-22849))
+ (if (if (vector? x-22844)
+ (if (= (vector-length x-22844) 4)
+ (eq? (vector-ref x-22844 0) 'syntax-object)
#f)
#f)
- (let ((#{w -ANAU$bmvAmthP7L7xwrr2}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 2)))
- (let ((#{ms -ANAU$bmvAmthP7L7xwrr3}#
- (car #{w -ANAU$bmvAmthP7L7xwrr2}#))
- (#{s -ANAU$bmvAmthP7L7xwrr4}#
- (cdr #{w -ANAU$bmvAmthP7L7xwrr2}#)))
- (if (if (pair? #{ms -ANAU$bmvAmthP7L7xwrr3}#)
- (eq? (car #{ms -ANAU$bmvAmthP7L7xwrr3}#) #f)
- #f)
- (let ((#{expression -ANAU$bmvAmthP7L7xwrsA}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 1))
- (#{wrap -ANAU$bmvAmthP7L7xwrsB}#
- (cons (cdr #{ms -ANAU$bmvAmthP7L7xwrr3}#)
- (if #{rib -ANAU$bmvAmthP7L7xwrq$}#
- (cons #{rib -ANAU$bmvAmthP7L7xwrq$}#
- (cdr #{s
-ANAU$bmvAmthP7L7xwrr4}#))
- (cdr #{s -ANAU$bmvAmthP7L7xwrr4}#))))
- (#{module -ANAU$bmvAmthP7L7xwrsC}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 3)))
+ (let ((w-22865 (vector-ref x-22844 2)))
+ (let ((ms-22866 (car w-22865))
+ (s-22867 (cdr w-22865)))
+ (if (if (pair? ms-22866) (eq? (car ms-22866) #f) #f)
+ (let ((expression-22875 (vector-ref x-22844 1))
+ (wrap-22876
+ (cons (cdr ms-22866)
+ (if rib-22809
+ (cons rib-22809 (cdr s-22867))
+ (cdr s-22867))))
+ (module-22877 (vector-ref x-22844 3)))
(vector
'syntax-object
- #{expression -ANAU$bmvAmthP7L7xwrsA}#
- #{wrap -ANAU$bmvAmthP7L7xwrsB}#
- #{module -ANAU$bmvAmthP7L7xwrsC}#))
- (let ((#{expression -ANAU$bmvAmthP7L7xwrsM}#
- (let ((#{e -ANAU$bmvAmthP7L7xwrsR}#
- (vector-ref
- #{x -ANAU$bmvAmthP7L7xwrrh}#
- 1)))
+ expression-22875
+ wrap-22876
+ module-22877))
+ (let ((expression-22887
+ (let ((e-22892 (vector-ref x-22844 1)))
(begin
- (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwrsR}#)
- #{s -ANAU$bmvAmthP7L7xwrr4}#
- #f)
+ (if (if (pair? e-22892) s-22867 #f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrsR}#
- #{s -ANAU$bmvAmthP7L7xwrr4}#))
- #{e -ANAU$bmvAmthP7L7xwrsR}#)))
- (#{wrap -ANAU$bmvAmthP7L7xwrsN}#
- (cons (cons #{m -ANAU$bmvAmthP7L7xwrri}#
- #{ms -ANAU$bmvAmthP7L7xwrr3}#)
- (if #{rib -ANAU$bmvAmthP7L7xwrq$}#
- (cons #{rib -ANAU$bmvAmthP7L7xwrq$}#
- (cons 'shift
- #{s
-ANAU$bmvAmthP7L7xwrr4}#))
- (cons 'shift
- #{s
-ANAU$bmvAmthP7L7xwrr4}#))))
- (#{module -ANAU$bmvAmthP7L7xwrsO}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 3)))
+ e-22892
+ s-22867))
+ e-22892)))
+ (wrap-22888
+ (cons (cons m-22845 ms-22866)
+ (if rib-22809
+ (cons rib-22809
+ (cons 'shift s-22867))
+ (cons 'shift s-22867))))
+ (module-22889 (vector-ref x-22844 3)))
(vector
'syntax-object
- #{expression -ANAU$bmvAmthP7L7xwrsM}#
- #{wrap -ANAU$bmvAmthP7L7xwrsN}#
- #{module -ANAU$bmvAmthP7L7xwrsO}#)))))
- (if (vector? #{x -ANAU$bmvAmthP7L7xwrrh}#)
- (let ((#{n -ANAU$bmvAmthP7L7xwrsd}#
- (vector-length #{x -ANAU$bmvAmthP7L7xwrrh}#)))
- (let ((#{v -ANAU$bmvAmthP7L7xwrse}#
- (let ((#{e -ANAU$bmvAmthP7L7xwrsm}#
- (make-vector
- #{n -ANAU$bmvAmthP7L7xwrsd}#)))
+ expression-22887
+ wrap-22888
+ module-22889)))))
+ (if (vector? x-22844)
+ (let ((n-22904 (vector-length x-22844)))
+ (let ((v-22905
+ (let ((e-22913 (make-vector n-22904)))
(begin
- (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwrsm}#)
- #{x -ANAU$bmvAmthP7L7xwrrh}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrsm}#
- #{x -ANAU$bmvAmthP7L7xwrrh}#))
- #{e -ANAU$bmvAmthP7L7xwrsm}#))))
+ (if (if (pair? e-22913) x-22844 #f)
+ (set-source-properties! e-22913 x-22844))
+ e-22913))))
(letrec*
- ((#{loop -ANAU$bmvAmthP7L7xwrsf}#
- (lambda (#{i -ANAU$bmvAmthP7L7xwrtT}#)
- (if (= #{i -ANAU$bmvAmthP7L7xwrtT}#
- #{n -ANAU$bmvAmthP7L7xwrsd}#)
- #{v -ANAU$bmvAmthP7L7xwrse}#
+ ((loop-22906
+ (lambda (i-22958)
+ (if (= i-22958 n-22904)
+ v-22905
(begin
(vector-set!
- #{v -ANAU$bmvAmthP7L7xwrse}#
- #{i -ANAU$bmvAmthP7L7xwrtT}#
- (#{rebuild-macro-output
-ANAU$bmvAmthP7L7xwrrA}#
- (vector-ref
- #{x -ANAU$bmvAmthP7L7xwrrh}#
- #{i -ANAU$bmvAmthP7L7xwrtT}#)
- #{m -ANAU$bmvAmthP7L7xwrri}#))
- (#{loop -ANAU$bmvAmthP7L7xwrsf}#
- (#{1+}# #{i
-ANAU$bmvAmthP7L7xwrtT}#)))))))
- (#{loop -ANAU$bmvAmthP7L7xwrsf}# 0))))
- (if (symbol? #{x -ANAU$bmvAmthP7L7xwrrh}#)
+ v-22905
+ i-22958
+ (rebuild-macro-output-22811
+ (vector-ref x-22844 i-22958)
+ m-22845))
+ (loop-22906 (#{1+}# i-22958)))))))
+ (loop-22906 0))))
+ (if (symbol? x-22844)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (let ((#{s -ANAU$bmvAmthP7L7xwrtZ}#
- (cdr #{w -ANAU$bmvAmthP7L7xwrq8}#)))
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (let ((s-22964 (cdr w-22807)))
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrq6}#)
- #{s -ANAU$bmvAmthP7L7xwrtZ}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrq6}#
- #{s -ANAU$bmvAmthP7L7xwrtZ}#))
- #{e -ANAU$bmvAmthP7L7xwrq6}#)
- #{w -ANAU$bmvAmthP7L7xwrq8}#
- #{mod address@hidden))
- #{x -ANAU$bmvAmthP7L7xwrrh}#)
+ (if (if (pair? e-22805) s-22964 #f)
+ (set-source-properties! e-22805 s-22964))
+ e-22805)
+ w-22807
+ mod-22810))
+ x-22844)
(begin
- (if (if (pair? #{x -ANAU$bmvAmthP7L7xwrrh}#)
- #{s -ANAU$bmvAmthP7L7xwrq9}#
- #f)
- (set-source-properties!
- #{x -ANAU$bmvAmthP7L7xwrrh}#
- #{s -ANAU$bmvAmthP7L7xwrq9}#))
- #{x -ANAU$bmvAmthP7L7xwrrh}#))))))))
+ (if (if (pair? x-22844) s-22808 #f)
+ (set-source-properties! x-22844 s-22808))
+ x-22844))))))))
(with-fluids
- ((#{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#
- (lambda (#{k -ANAU$bmvAmthP7L7xwrrB}#)
- (#{k -ANAU$bmvAmthP7L7xwrrB}#
- #{e -ANAU$bmvAmthP7L7xwrq6}#
- #{r -ANAU$bmvAmthP7L7xwrq7}#
- #{w -ANAU$bmvAmthP7L7xwrq8}#
- #{s -ANAU$bmvAmthP7L7xwrq9}#
- #{rib -ANAU$bmvAmthP7L7xwrq$}#
- #{mod address@hidden))))
- (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}#
- (#{p -ANAU$bmvAmthP7L7xwrq5}#
- (let ((#{w -ANAU$bmvAmthP7L7xwrrI}#
- (cons (cons #f (car #{w -ANAU$bmvAmthP7L7xwrq8}#))
- (cons 'shift
- (cdr #{w -ANAU$bmvAmthP7L7xwrq8}#)))))
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ ((transformer-environment-4508
+ (lambda (k-22812)
+ (k-22812
+ e-22805
+ r-22806
+ w-22807
+ s-22808
+ rib-22809
+ mod-22810))))
+ (rebuild-macro-output-22811
+ (p-22804
+ (let ((w-22819
+ (cons (cons #f (car w-22807))
+ (cons 'shift (cdr w-22807)))))
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrq6}#)
- #{s -ANAU$bmvAmthP7L7xwrq9}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwrq6}#
- #{s -ANAU$bmvAmthP7L7xwrq9}#))
- #{e -ANAU$bmvAmthP7L7xwrq6}#)
- #{w -ANAU$bmvAmthP7L7xwrrI}#
- #{mod address@hidden)))
- (gensym "m"))))))
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- (lambda (#{body -ANAU$bmvAmthP7L7xwrt5}#
- #{outer-form -ANAU$bmvAmthP7L7xwrt6}#
- #{r -ANAU$bmvAmthP7L7xwrt7}#
- #{w -ANAU$bmvAmthP7L7xwrt8}#
- #{mod -ANAU$bmvAmthP7L7xwrt9}#)
- (let ((#{r -ANAU$bmvAmthP7L7xwrt$}#
- (cons '("placeholder" placeholder)
- #{r -ANAU$bmvAmthP7L7xwrt7}#)))
- (let ((#{ribcage address@hidden
- (vector 'ribcage '() '() '())))
- (let ((#{w -ANAU$bmvAmthP7L7xwruA}#
- (cons (car #{w -ANAU$bmvAmthP7L7xwrt8}#)
- (cons #{ribcage address@hidden
- (cdr #{w -ANAU$bmvAmthP7L7xwrt8}#)))))
+ (if (if (pair? e-22805) s-22808 #f)
+ (set-source-properties! e-22805 s-22808))
+ e-22805)
+ w-22819
+ mod-22810)))
+ (gensym
+ (string-append "m-" (session-id-4447) "-")))))))
+ (expand-body-4526
+ (lambda (body-22996
+ outer-form-22997
+ r-22998
+ w-22999
+ mod-23000)
+ (let ((r-23001
+ (cons '("placeholder" placeholder) r-22998)))
+ (let ((ribcage-23002 (vector 'ribcage '() '() '())))
+ (let ((w-23003
+ (cons (car w-22999)
+ (cons ribcage-23002 (cdr w-22999)))))
(letrec*
- ((#{parse -ANAU$bmvAmthP7L7xwruB}#
- (lambda (#{body -ANAU$bmvAmthP7L7xwruO}#
- #{ids -ANAU$bmvAmthP7L7xwruP}#
- #{labels -ANAU$bmvAmthP7L7xwruQ}#
- #{var-ids -ANAU$bmvAmthP7L7xwruR}#
- #{vars -ANAU$bmvAmthP7L7xwruS}#
- #{vals -ANAU$bmvAmthP7L7xwruT}#
- #{bindings -ANAU$bmvAmthP7L7xwruU}#)
- (if (null? #{body -ANAU$bmvAmthP7L7xwruO}#)
+ ((parse-23004
+ (lambda (body-23017
+ ids-23018
+ labels-23019
+ var-ids-23020
+ vars-23021
+ vals-23022
+ bindings-23023)
+ (if (null? body-23017)
(syntax-violation
#f
"no expressions in body"
- #{outer-form -ANAU$bmvAmthP7L7xwrt6}#)
- (let ((#{e -ANAU$bmvAmthP7L7xwruV}#
- (cdr (car #{body -ANAU$bmvAmthP7L7xwruO}#)))
- (#{er -ANAU$bmvAmthP7L7xwruW}#
- (car (car #{body -ANAU$bmvAmthP7L7xwruO}#))))
+ outer-form-22997)
+ (let ((e-23024 (cdr (car body-23017)))
+ (er-23025 (car (car body-23017))))
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xwruV}#
- #{er -ANAU$bmvAmthP7L7xwruW}#
+ (syntax-type-4521
+ e-23024
+ er-23025
'(())
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{er -ANAU$bmvAmthP7L7xwruW}#)
- #{ribcage address@hidden
- #{mod -ANAU$bmvAmthP7L7xwrt9}#
+ (source-annotation-4479 er-23025)
+ ribcage-23002
+ mod-23000
#f))
- (lambda (#{type -ANAU$bmvAmthP7L7xwrwz}#
- #{value -ANAU$bmvAmthP7L7xwrw0}#
- #{e -ANAU$bmvAmthP7L7xwrw1}#
- #{w -ANAU$bmvAmthP7L7xwrw2}#
- #{s -ANAU$bmvAmthP7L7xwrw3}#
- #{mod -ANAU$bmvAmthP7L7xwrw4}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
- 'define-form)
- (let ((#{id -ANAU$bmvAmthP7L7xwrw8}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{value -ANAU$bmvAmthP7L7xwrw0}#
- #{w -ANAU$bmvAmthP7L7xwrw2}#
- #{mod -ANAU$bmvAmthP7L7xwrw4}#))
- (#{label -ANAU$bmvAmthP7L7xwrw9}#
- (#{gen-label
-ANAU$bmvAmthP7L7xwnNi}#)))
- (let ((#{var -ANAU$bmvAmthP7L7xwrw$}#
- (let ((#{id -ANAU$bmvAmthP7L7xwrx4}#
- (if (if (vector?
- #{id
-ANAU$bmvAmthP7L7xwrw8}#)
+ (lambda (type-23182
+ value-23183
+ e-23184
+ w-23185
+ s-23186
+ mod-23187)
+ (if (eqv? type-23182 'define-form)
+ (let ((id-23191
+ (wrap-4515
+ value-23183
+ w-23185
+ mod-23187))
+ (label-23192
+ (string-append
+ "l-"
+ (session-id-4447)
+ (symbol->string (gensym "-")))))
+ (let ((var-23193
+ (let ((id-23253
+ (if (if (vector? id-23191)
(if (= (vector-length
- #{id
-ANAU$bmvAmthP7L7xwrw8}#)
+ id-23191)
4)
(eq? (vector-ref
- #{id
-ANAU$bmvAmthP7L7xwrw8}#
+ id-23191
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{id
-ANAU$bmvAmthP7L7xwrw8}#
- 1)
- #{id
-ANAU$bmvAmthP7L7xwrw8}#)))
+ (vector-ref id-23191 1)
+ id-23191)))
(gensym
(string-append
- (symbol->string
- #{id
-ANAU$bmvAmthP7L7xwrx4}#)
- " ")))))
+ (symbol->string id-23253)
+ "-")))))
(begin
- (let ((#{update -ANAU$bmvAmthP7L7xwrxu}#
- (cons (vector-ref
- #{id
-ANAU$bmvAmthP7L7xwrw8}#
- 1)
+ (let ((update-23243
+ (cons (vector-ref id-23191 1)
(vector-ref
- #{ribcage address@hidden
+ ribcage-23002
1))))
(vector-set!
- #{ribcage address@hidden
+ ribcage-23002
1
- #{update -ANAU$bmvAmthP7L7xwrxu}#))
- (let ((#{update -ANAU$bmvAmthP7L7xwrxw}#
+ update-23243))
+ (let ((update-23245
(cons (car (vector-ref
- #{id
-ANAU$bmvAmthP7L7xwrw8}#
+ id-23191
2))
(vector-ref
- #{ribcage address@hidden
+ ribcage-23002
2))))
(vector-set!
- #{ribcage address@hidden
+ ribcage-23002
2
- #{update -ANAU$bmvAmthP7L7xwrxw}#))
- (let ((#{update -ANAU$bmvAmthP7L7xwrxy}#
- (cons #{label
-ANAU$bmvAmthP7L7xwrw9}#
+ update-23245))
+ (let ((update-23247
+ (cons label-23192
(vector-ref
- #{ribcage address@hidden
+ ribcage-23002
3))))
(vector-set!
- #{ribcage address@hidden
+ ribcage-23002
3
- #{update -ANAU$bmvAmthP7L7xwrxy}#))
- (#{parse -ANAU$bmvAmthP7L7xwruB}#
- (cdr #{body -ANAU$bmvAmthP7L7xwruO}#)
- (cons #{id -ANAU$bmvAmthP7L7xwrw8}#
- #{ids -ANAU$bmvAmthP7L7xwruP}#)
- (cons #{label -ANAU$bmvAmthP7L7xwrw9}#
- #{labels
-ANAU$bmvAmthP7L7xwruQ}#)
- (cons #{id -ANAU$bmvAmthP7L7xwrw8}#
- #{var-ids
-ANAU$bmvAmthP7L7xwruR}#)
- (cons #{var -ANAU$bmvAmthP7L7xwrw$}#
- #{vars -ANAU$bmvAmthP7L7xwruS}#)
- (cons (cons #{er
-ANAU$bmvAmthP7L7xwruW}#
- (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
- #{e
-ANAU$bmvAmthP7L7xwrw1}#
- #{w
-ANAU$bmvAmthP7L7xwrw2}#
- #{mod
-ANAU$bmvAmthP7L7xwrw4}#))
- #{vals -ANAU$bmvAmthP7L7xwruT}#)
- (cons (cons 'lexical
- #{var
-ANAU$bmvAmthP7L7xwrw$}#)
- #{bindings
-ANAU$bmvAmthP7L7xwruU}#)))))
- (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
- 'define-syntax-form)
+ update-23247))
+ (parse-23004
+ (cdr body-23017)
+ (cons id-23191 ids-23018)
+ (cons label-23192 labels-23019)
+ (cons id-23191 var-ids-23020)
+ (cons var-23193 vars-23021)
+ (cons (cons er-23025
+ (wrap-4515
+ e-23184
+ w-23185
+ mod-23187))
+ vals-23022)
+ (cons (cons 'lexical var-23193)
+ bindings-23023)))))
+ (if (if (eqv? type-23182 'define-syntax-form)
#t
- (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
+ (eqv? type-23182
'define-syntax-parameter-form))
- (let ((#{id -ANAU$bmvAmthP7L7xwryZ}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{value -ANAU$bmvAmthP7L7xwrw0}#
- #{w -ANAU$bmvAmthP7L7xwrw2}#
- #{mod -ANAU$bmvAmthP7L7xwrw4}#))
- (#{label -ANAU$bmvAmthP7L7xwrya}#
- (#{gen-label
-ANAU$bmvAmthP7L7xwnNi}#)))
+ (let ((id-23286
+ (wrap-4515
+ value-23183
+ w-23185
+ mod-23187))
+ (label-23287
+ (string-append
+ "l-"
+ (session-id-4447)
+ (symbol->string (gensym "-")))))
(begin
- (let ((#{update -ANAU$bmvAmthP7L7xwrzK}#
- (cons (vector-ref
- #{id
-ANAU$bmvAmthP7L7xwryZ}#
- 1)
+ (let ((update-23337
+ (cons (vector-ref id-23286 1)
(vector-ref
- #{ribcage address@hidden
+ ribcage-23002
1))))
(vector-set!
- #{ribcage address@hidden
+ ribcage-23002
1
- #{update -ANAU$bmvAmthP7L7xwrzK}#))
- (let ((#{update -ANAU$bmvAmthP7L7xwrzM}#
+ update-23337))
+ (let ((update-23339
(cons (car (vector-ref
- #{id
-ANAU$bmvAmthP7L7xwryZ}#
+ id-23286
2))
(vector-ref
- #{ribcage address@hidden
+ ribcage-23002
2))))
(vector-set!
- #{ribcage address@hidden
+ ribcage-23002
2
- #{update -ANAU$bmvAmthP7L7xwrzM}#))
- (let ((#{update -ANAU$bmvAmthP7L7xwrzO}#
- (cons #{label
-ANAU$bmvAmthP7L7xwrya}#
+ update-23339))
+ (let ((update-23341
+ (cons label-23287
(vector-ref
- #{ribcage address@hidden
+ ribcage-23002
3))))
(vector-set!
- #{ribcage address@hidden
+ ribcage-23002
3
- #{update -ANAU$bmvAmthP7L7xwrzO}#))
- (#{parse -ANAU$bmvAmthP7L7xwruB}#
- (cdr #{body -ANAU$bmvAmthP7L7xwruO}#)
- (cons #{id -ANAU$bmvAmthP7L7xwryZ}#
- #{ids -ANAU$bmvAmthP7L7xwruP}#)
- (cons #{label -ANAU$bmvAmthP7L7xwrya}#
- #{labels
-ANAU$bmvAmthP7L7xwruQ}#)
- #{var-ids -ANAU$bmvAmthP7L7xwruR}#
- #{vars -ANAU$bmvAmthP7L7xwruS}#
- #{vals -ANAU$bmvAmthP7L7xwruT}#
+ update-23341))
+ (parse-23004
+ (cdr body-23017)
+ (cons id-23286 ids-23018)
+ (cons label-23287 labels-23019)
+ var-ids-23020
+ vars-23021
+ vals-23022
(cons (cons 'macro
- (cons #{er
-ANAU$bmvAmthP7L7xwruW}#
- (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
- #{e
-ANAU$bmvAmthP7L7xwrw1}#
- #{w
-ANAU$bmvAmthP7L7xwrw2}#
- #{mod
-ANAU$bmvAmthP7L7xwrw4}#)))
- #{bindings
-ANAU$bmvAmthP7L7xwruU}#))))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
- 'begin-form)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwrzW}#
+ (cons er-23025
+ (wrap-4515
+ e-23184
+ w-23185
+ mod-23187)))
+ bindings-23023))))
+ (if (eqv? type-23182 'begin-form)
+ (let ((tmp-23349
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwrw1}#
+ e-23184
'(_ . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwrzW}#
+ (if tmp-23349
(@apply
- (lambda (#{e1
-ANAU$bmvAmthP7L7xwrza}#)
- (#{parse -ANAU$bmvAmthP7L7xwruB}#
+ (lambda (e1-23353)
+ (parse-23004
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwrzb}#
- (lambda (#{forms
-ANAU$bmvAmthP7L7xwr0a}#)
- (if (null? #{forms
-ANAU$bmvAmthP7L7xwr0a}#)
- (cdr #{body
-ANAU$bmvAmthP7L7xwruO}#)
- (cons (cons #{er
-ANAU$bmvAmthP7L7xwruW}#
- (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
- (car
#{forms -ANAU$bmvAmthP7L7xwr0a}#)
- #{w
-ANAU$bmvAmthP7L7xwrw2}#
- #{mod
-ANAU$bmvAmthP7L7xwrw4}#))
- (#{f
-ANAU$bmvAmthP7L7xwrzb}#
- (cdr #{forms
-ANAU$bmvAmthP7L7xwr0a}#)))))))
- (#{f -ANAU$bmvAmthP7L7xwrzb}#
- #{e1
-ANAU$bmvAmthP7L7xwrza}#))
- #{ids -ANAU$bmvAmthP7L7xwruP}#
- #{labels -ANAU$bmvAmthP7L7xwruQ}#
- #{var-ids
-ANAU$bmvAmthP7L7xwruR}#
- #{vars -ANAU$bmvAmthP7L7xwruS}#
- #{vals -ANAU$bmvAmthP7L7xwruT}#
- #{bindings
-ANAU$bmvAmthP7L7xwruU}#))
- #{tmp -ANAU$bmvAmthP7L7xwrzW}#)
+ ((f-23354
+ (lambda (forms-23417)
+ (if (null? forms-23417)
+ (cdr body-23017)
+ (cons (cons er-23025
+ (wrap-4515
+ (car
forms-23417)
+ w-23185
+
mod-23187))
+ (f-23354
+ (cdr
forms-23417)))))))
+ (f-23354 e1-23353))
+ ids-23018
+ labels-23019
+ var-ids-23020
+ vars-23021
+ vals-23022
+ bindings-23023))
+ tmp-23349)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{e -ANAU$bmvAmthP7L7xwrw1}#)))
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
- 'local-syntax-form)
- (#{expand-local-syntax
-ANAU$bmvAmthP7L7xwnOJ}#
- #{value -ANAU$bmvAmthP7L7xwrw0}#
- #{e -ANAU$bmvAmthP7L7xwrw1}#
- #{er -ANAU$bmvAmthP7L7xwruW}#
- #{w -ANAU$bmvAmthP7L7xwrw2}#
- #{s -ANAU$bmvAmthP7L7xwrw3}#
- #{mod -ANAU$bmvAmthP7L7xwrw4}#
- (lambda (#{forms
-ANAU$bmvAmthP7L7xwr0o}#
- #{er -ANAU$bmvAmthP7L7xwr0p}#
- #{w -ANAU$bmvAmthP7L7xwr0q}#
- #{s -ANAU$bmvAmthP7L7xwr0r}#
- #{mod
-ANAU$bmvAmthP7L7xwr0s}#)
- (#{parse -ANAU$bmvAmthP7L7xwruB}#
+ e-23184)))
+ (if (eqv? type-23182 'local-syntax-form)
+ (expand-local-syntax-4527
+ value-23183
+ e-23184
+ er-23025
+ w-23185
+ s-23186
+ mod-23187
+ (lambda (forms-23431
+ er-23432
+ w-23433
+ s-23434
+ mod-23435)
+ (parse-23004
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwr0t}#
- (lambda (#{forms
-ANAU$bmvAmthP7L7xwr1s}#)
- (if (null? #{forms
-ANAU$bmvAmthP7L7xwr1s}#)
- (cdr #{body
-ANAU$bmvAmthP7L7xwruO}#)
- (cons (cons #{er
-ANAU$bmvAmthP7L7xwr0p}#
- (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
- (car
#{forms -ANAU$bmvAmthP7L7xwr1s}#)
- #{w
-ANAU$bmvAmthP7L7xwr0q}#
- #{mod
-ANAU$bmvAmthP7L7xwr0s}#))
- (#{f
-ANAU$bmvAmthP7L7xwr0t}#
- (cdr #{forms
-ANAU$bmvAmthP7L7xwr1s}#)))))))
- (#{f -ANAU$bmvAmthP7L7xwr0t}#
- #{forms
-ANAU$bmvAmthP7L7xwr0o}#))
- #{ids -ANAU$bmvAmthP7L7xwruP}#
- #{labels -ANAU$bmvAmthP7L7xwruQ}#
- #{var-ids -ANAU$bmvAmthP7L7xwruR}#
- #{vars -ANAU$bmvAmthP7L7xwruS}#
- #{vals -ANAU$bmvAmthP7L7xwruT}#
- #{bindings
-ANAU$bmvAmthP7L7xwruU}#)))
- (if (null? #{ids
-ANAU$bmvAmthP7L7xwruP}#)
- (#{build-sequence
-ANAU$bmvAmthP7L7xwnNN}#
+ ((f-23436
+ (lambda (forms-23499)
+ (if (null? forms-23499)
+ (cdr body-23017)
+ (cons (cons er-23432
+ (wrap-4515
+ (car
forms-23499)
+ w-23433
+ mod-23435))
+ (f-23436
+ (cdr
forms-23499)))))))
+ (f-23436 forms-23431))
+ ids-23018
+ labels-23019
+ var-ids-23020
+ vars-23021
+ vals-23022
+ bindings-23023)))
+ (if (null? ids-23018)
+ (build-sequence-4467
#f
- (map (lambda (#{x
-ANAU$bmvAmthP7L7xwr2t}#)
- (let ((#{e
-ANAU$bmvAmthP7L7xwr2x}#
- (cdr #{x
-ANAU$bmvAmthP7L7xwr2t}#))
- (#{r
-ANAU$bmvAmthP7L7xwr2y}#
- (car #{x
-ANAU$bmvAmthP7L7xwr2t}#)))
+ (map (lambda (x-23564)
+ (let ((e-23568 (cdr x-23564))
+ (r-23569 (car x-23564)))
(call-with-values
(lambda ()
- (#{syntax-type
-ANAU$bmvAmthP7L7xwnOD}#
- #{e
-ANAU$bmvAmthP7L7xwr2x}#
- #{r
-ANAU$bmvAmthP7L7xwr2y}#
+ (syntax-type-4521
+ e-23568
+ r-23569
'(())
- (#{source-annotation
-ANAU$bmvAmthP7L7xwnNZ}#
- #{e
-ANAU$bmvAmthP7L7xwr2x}#)
+
(source-annotation-4479
+ e-23568)
#f
- #{mod
-ANAU$bmvAmthP7L7xwrw4}#
+ mod-23187
#f))
- (lambda (#{type
-ANAU$bmvAmthP7L7xwr22}#
- #{value
-ANAU$bmvAmthP7L7xwr23}#
- #{e
-ANAU$bmvAmthP7L7xwr24}#
- #{w
-ANAU$bmvAmthP7L7xwr25}#
- #{s
-ANAU$bmvAmthP7L7xwr26}#
- #{mod
-ANAU$bmvAmthP7L7xwr27}#)
- (#{expand-expr
-ANAU$bmvAmthP7L7xwnOF}#
- #{type
-ANAU$bmvAmthP7L7xwr22}#
- #{value
-ANAU$bmvAmthP7L7xwr23}#
- #{e
-ANAU$bmvAmthP7L7xwr24}#
- #{r
-ANAU$bmvAmthP7L7xwr2y}#
- #{w
-ANAU$bmvAmthP7L7xwr25}#
- #{s
-ANAU$bmvAmthP7L7xwr26}#
- #{mod
-ANAU$bmvAmthP7L7xwr27}#)))))
- (cons (cons #{er
-ANAU$bmvAmthP7L7xwruW}#
- (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
+ (lambda (type-23573
+ value-23574
+ e-23575
+ w-23576
+ s-23577
+ mod-23578)
+ (expand-expr-4523
+ type-23573
+ value-23574
+ e-23575
+ r-23569
+ w-23576
+ s-23577
+ mod-23578)))))
+ (cons (cons er-23025
+ (wrap-4515
(begin
- (if (if (pair?
#{e -ANAU$bmvAmthP7L7xwrw1}#)
- #{s
-ANAU$bmvAmthP7L7xwrw3}#
+ (if (if (pair?
e-23184)
+ s-23186
#f)
(set-source-properties!
- #{e
-ANAU$bmvAmthP7L7xwrw1}#
- #{s
-ANAU$bmvAmthP7L7xwrw3}#))
- #{e
-ANAU$bmvAmthP7L7xwrw1}#)
- #{w
-ANAU$bmvAmthP7L7xwrw2}#
- #{mod
-ANAU$bmvAmthP7L7xwrw4}#))
- (cdr #{body
-ANAU$bmvAmthP7L7xwruO}#))))
+ e-23184
+ s-23186))
+ e-23184)
+ w-23185
+ mod-23187))
+ (cdr body-23017))))
(begin
- (if (not (#{valid-bound-ids?
-ANAU$bmvAmthP7L7xwnN6}#
- #{ids
-ANAU$bmvAmthP7L7xwruP}#))
+ (if (not (valid-bound-ids?-4512
+ ids-23018))
(syntax-violation
#f
"invalid or duplicate identifier
in definition"
- #{outer-form
-ANAU$bmvAmthP7L7xwrt6}#))
+ outer-form-22997))
(letrec*
- ((#{loop -ANAU$bmvAmthP7L7xwr4g}#
- (lambda (#{bs
-ANAU$bmvAmthP7L7xwr4j}#
- #{er-cache
-ANAU$bmvAmthP7L7xwr4k}#
- #{r-cache
-ANAU$bmvAmthP7L7xwr4l}#)
- (if (not (null? #{bs
-ANAU$bmvAmthP7L7xwr4j}#))
- (let ((#{b
-ANAU$bmvAmthP7L7xwr4m}#
- (car #{bs
-ANAU$bmvAmthP7L7xwr4j}#)))
- (if (eq? (car #{b
-ANAU$bmvAmthP7L7xwr4m}#)
+ ((loop-23679
+ (lambda (bs-23682
+ er-cache-23683
+ r-cache-23684)
+ (if (not (null? bs-23682))
+ (let ((b-23685
+ (car bs-23682)))
+ (if (eq? (car b-23685)
'macro)
- (let ((#{er
-ANAU$bmvAmthP7L7xwr4o}#
- (car (cdr #{b
-ANAU$bmvAmthP7L7xwr4m}#))))
- (let ((#{r-cache
-ANAU$bmvAmthP7L7xwr4p}#
- (if (eq? #{er
-ANAU$bmvAmthP7L7xwr4o}#
-
#{er-cache -ANAU$bmvAmthP7L7xwr4k}#)
- #{r-cache
-ANAU$bmvAmthP7L7xwr4l}#
-
(#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
- #{er
-ANAU$bmvAmthP7L7xwr4o}#))))
+ (let ((er-23687
+ (car (cdr
b-23685))))
+ (let ((r-cache-23688
+ (if (eq?
er-23687
+
er-cache-23683)
+
r-cache-23684
+
(macros-only-env-4482
+
er-23687))))
(begin
(set-cdr!
- #{b
-ANAU$bmvAmthP7L7xwr4m}#
-
(#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}#
- (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
- (cdr (cdr
#{b -ANAU$bmvAmthP7L7xwr4m}#))
- #{r-cache
-ANAU$bmvAmthP7L7xwr4p}#
+ b-23685
+
(eval-local-transformer-4528
+ (expand-4522
+ (cdr (cdr
b-23685))
+
r-cache-23688
'(())
- #{mod
-ANAU$bmvAmthP7L7xwrw4}#)
- #{mod
-ANAU$bmvAmthP7L7xwrw4}#))
- (#{loop
-ANAU$bmvAmthP7L7xwr4g}#
- (cdr #{bs
-ANAU$bmvAmthP7L7xwr4j}#)
- #{er
-ANAU$bmvAmthP7L7xwr4o}#
- #{r-cache
-ANAU$bmvAmthP7L7xwr4p}#))))
- (#{loop
-ANAU$bmvAmthP7L7xwr4g}#
- (cdr #{bs
-ANAU$bmvAmthP7L7xwr4j}#)
- #{er-cache
-ANAU$bmvAmthP7L7xwr4k}#
- #{r-cache
-ANAU$bmvAmthP7L7xwr4l}#)))))))
- (#{loop -ANAU$bmvAmthP7L7xwr4g}#
- #{bindings
-ANAU$bmvAmthP7L7xwruU}#
- #f
- #f))
+ mod-23187)
+ mod-23187))
+ (loop-23679
+ (cdr bs-23682)
+ er-23687
+
r-cache-23688))))
+ (loop-23679
+ (cdr bs-23682)
+ er-cache-23683
+ r-cache-23684)))))))
+ (loop-23679 bindings-23023 #f #f))
(set-cdr!
- #{r -ANAU$bmvAmthP7L7xwrt$}#
- (#{extend-env
-ANAU$bmvAmthP7L7xwnNa}#
- #{labels -ANAU$bmvAmthP7L7xwruQ}#
- #{bindings
-ANAU$bmvAmthP7L7xwruU}#
- (cdr #{r
-ANAU$bmvAmthP7L7xwrt$}#)))
- (#{build-letrec
-ANAU$bmvAmthP7L7xwnNQ}#
+ r-23001
+ (extend-env-4480
+ labels-23019
+ bindings-23023
+ (cdr r-23001)))
+ (build-letrec-4470
#f
#t
(reverse
(map syntax->datum
- #{var-ids
-ANAU$bmvAmthP7L7xwruR}#))
- (reverse
- #{vars -ANAU$bmvAmthP7L7xwruS}#)
- (map (lambda (#{x
-ANAU$bmvAmthP7L7xwr$A}#)
- (let ((#{e
-ANAU$bmvAmthP7L7xwr$E}#
- (cdr #{x
-ANAU$bmvAmthP7L7xwr$A}#))
- (#{r
-ANAU$bmvAmthP7L7xwr$F}#
- (car #{x
-ANAU$bmvAmthP7L7xwr$A}#)))
+ var-ids-23020))
+ (reverse vars-23021)
+ (map (lambda (x-24031)
+ (let ((e-24035
+ (cdr x-24031))
+ (r-24036
+ (car x-24031)))
(call-with-values
(lambda ()
- (#{syntax-type
-ANAU$bmvAmthP7L7xwnOD}#
- #{e
-ANAU$bmvAmthP7L7xwr$E}#
- #{r
-ANAU$bmvAmthP7L7xwr$F}#
+ (syntax-type-4521
+ e-24035
+ r-24036
'(())
-
(#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{e
-ANAU$bmvAmthP7L7xwr$E}#)
+
(source-annotation-4479
+ e-24035)
#f
- #{mod
-ANAU$bmvAmthP7L7xwrw4}#
+ mod-23187
#f))
- (lambda (#{type
-ANAU$bmvAmthP7L7xwr$J}#
- #{value
-ANAU$bmvAmthP7L7xwr$K}#
- #{e
-ANAU$bmvAmthP7L7xwr$L}#
- #{w
-ANAU$bmvAmthP7L7xwr$M}#
- #{s
-ANAU$bmvAmthP7L7xwr$N}#
- #{mod
-ANAU$bmvAmthP7L7xwr$O}#)
- (#{expand-expr
-ANAU$bmvAmthP7L7xwnOF}#
- #{type
-ANAU$bmvAmthP7L7xwr$J}#
- #{value
-ANAU$bmvAmthP7L7xwr$K}#
- #{e
-ANAU$bmvAmthP7L7xwr$L}#
- #{r
-ANAU$bmvAmthP7L7xwr$F}#
- #{w
-ANAU$bmvAmthP7L7xwr$M}#
- #{s
-ANAU$bmvAmthP7L7xwr$N}#
- #{mod
-ANAU$bmvAmthP7L7xwr$O}#)))))
- (reverse
- #{vals
-ANAU$bmvAmthP7L7xwruT}#))
- (let ((#{exps
-ANAU$bmvAmthP7L7xwr$U}#
- (map (lambda (#{x
-ANAU$bmvAmthP7L7xwr$V}#)
- (let ((#{e
-ANAU$bmvAmthP7L7xwr$Y}#
- (cdr #{x
-ANAU$bmvAmthP7L7xwr$V}#))
- (#{r
-ANAU$bmvAmthP7L7xwr$Z}#
- (car #{x
-ANAU$bmvAmthP7L7xwr$V}#)))
+ (lambda (type-24040
+ value-24041
+ e-24042
+ w-24043
+ s-24044
+ mod-24045)
+ (expand-expr-4523
+ type-24040
+ value-24041
+ e-24042
+ r-24036
+ w-24043
+ s-24044
+ mod-24045)))))
+ (reverse vals-23022))
+ (let ((exps-24051
+ (map (lambda (x-24052)
+ (let ((e-24055
+ (cdr
x-24052))
+ (r-24056
+ (car
x-24052)))
(call-with-values
(lambda ()
-
(#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e
-ANAU$bmvAmthP7L7xwr$Y}#
- #{r
-ANAU$bmvAmthP7L7xwr$Z}#
+
(syntax-type-4521
+ e-24055
+ r-24056
'(())
-
(#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{e
-ANAU$bmvAmthP7L7xwr$Y}#)
+
(source-annotation-4479
+ e-24055)
#f
- #{mod
-ANAU$bmvAmthP7L7xwrw4}#
+ mod-23187
#f))
- (lambda (#{type
-ANAU$bmvAmthP7L7xwr$d}#
-
#{value -ANAU$bmvAmthP7L7xwr$e}#
- #{e
-ANAU$bmvAmthP7L7xwr$f}#
- #{w
-ANAU$bmvAmthP7L7xwr$g}#
- #{s
-ANAU$bmvAmthP7L7xwr$h}#
- #{mod
-ANAU$bmvAmthP7L7xwr$i}#)
-
(#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
- #{type
-ANAU$bmvAmthP7L7xwr$d}#
- #{value
-ANAU$bmvAmthP7L7xwr$e}#
- #{e
-ANAU$bmvAmthP7L7xwr$f}#
- #{r
-ANAU$bmvAmthP7L7xwr$Z}#
- #{w
-ANAU$bmvAmthP7L7xwr$g}#
- #{s
-ANAU$bmvAmthP7L7xwr$h}#
- #{mod
-ANAU$bmvAmthP7L7xwr$i}#)))))
- (cons (cons #{er
-ANAU$bmvAmthP7L7xwruW}#
- (#{wrap
-ANAU$bmvAmthP7L7xwnN9}#
+ (lambda
(type-24060
+
value-24061
+ e-24062
+ w-24063
+ s-24064
+
mod-24065)
+
(expand-expr-4523
+ type-24060
+ value-24061
+ e-24062
+ r-24056
+ w-24063
+ s-24064
+
mod-24065)))))
+ (cons (cons er-23025
+ (wrap-4515
(begin
- (if
(if (pair? #{e -ANAU$bmvAmthP7L7xwrw1}#)
-
#{s -ANAU$bmvAmthP7L7xwrw3}#
+ (if
(if (pair? e-23184)
+
s-23186
#f)
(set-source-properties!
-
#{e -ANAU$bmvAmthP7L7xwrw1}#
-
#{s -ANAU$bmvAmthP7L7xwrw3}#))
- #{e
-ANAU$bmvAmthP7L7xwrw1}#)
- #{w
-ANAU$bmvAmthP7L7xwrw2}#
- #{mod
-ANAU$bmvAmthP7L7xwrw4}#))
- (cdr #{body
-ANAU$bmvAmthP7L7xwruO}#)))))
- (if (null? (cdr #{exps
-ANAU$bmvAmthP7L7xwr$U}#))
- (car #{exps
-ANAU$bmvAmthP7L7xwr$U}#)
+
e-23184
+
s-23186))
+
e-23184)
+ w-23185
+
mod-23187))
+ (cdr
body-23017)))))
+ (if (null? (cdr exps-24051))
+ (car exps-24051)
(make-struct/no-tail
(vector-ref
%expanded-vtables
12)
#f
- #{exps
-ANAU$bmvAmthP7L7xwr$U}#)))))))))))))))))
- (#{parse -ANAU$bmvAmthP7L7xwruB}#
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwruE}#)
- (cons #{r -ANAU$bmvAmthP7L7xwrt$}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{x -ANAU$bmvAmthP7L7xwruE}#
- #{w -ANAU$bmvAmthP7L7xwruA}#
- #{mod -ANAU$bmvAmthP7L7xwrt9}#)))
- #{body -ANAU$bmvAmthP7L7xwrt5}#)
+ exps-24051)))))))))))))))))
+ (parse-23004
+ (map (lambda (x-23007)
+ (cons r-23001
+ (wrap-4515 x-23007 w-23003 mod-23000)))
+ body-22996)
'()
'()
'()
'()
'()
'())))))))
- (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}#
- (lambda (#{rec? -ANAU$bmvAmthP7L7xwr$8}#
- #{e -ANAU$bmvAmthP7L7xwr$9}#
- #{r -ANAU$bmvAmthP7L7xwr$$}#
- #{w address@hidden
- #{s address@hidden
- #{mod address@hidden
- #{k address@hidden)
- (let ((#{tmp address@hidden
+ (expand-local-syntax-4527
+ (lambda (rec?-24091
+ e-24092
+ r-24093
+ w-24094
+ s-24095
+ mod-24096
+ k-24097)
+ (let ((tmp-24099
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwr$9}#
+ e-24092
'(_ #(each (any any)) any . each-any))))
- (if #{tmp address@hidden
+ (if tmp-24099
(@apply
- (lambda (#{id address@hidden
- #{val address@hidden
- #{e1 address@hidden
- #{e2 address@hidden)
- (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
- #{id address@hidden))
+ (lambda (id-24103 val-24104 e1-24105 e2-24106)
+ (if (not (valid-bound-ids?-4512 id-24103))
(syntax-violation
#f
"duplicate bound keyword"
- #{e -ANAU$bmvAmthP7L7xwr$9}#)
- (let ((#{labels -ANAU$bmvAmthP7L7xwsAl}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- #{id address@hidden)))
- (let ((#{new-w -ANAU$bmvAmthP7L7xwsAm}#
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- #{id address@hidden
- #{labels -ANAU$bmvAmthP7L7xwsAl}#
- #{w address@hidden)))
- (#{k address@hidden
- (cons #{e1 address@hidden
- #{e2 address@hidden)
- (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
- #{labels -ANAU$bmvAmthP7L7xwsAl}#
- (let ((#{trans-r -ANAU$bmvAmthP7L7xwsBG}#
- (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
- #{r -ANAU$bmvAmthP7L7xwr$$}#)))
+ e-24092)
+ (let ((labels-24196 (gen-labels-4489 id-24103)))
+ (let ((new-w-24197
+ (make-binding-wrap-4500
+ id-24103
+ labels-24196
+ w-24094)))
+ (k-24097
+ (cons e1-24105 e2-24106)
+ (extend-env-4480
+ labels-24196
+ (let ((trans-r-24233
+ (macros-only-env-4482 r-24093)))
(begin
- (if #{rec? -ANAU$bmvAmthP7L7xwr$8}#
- #{new-w -ANAU$bmvAmthP7L7xwsAm}#
- #{w address@hidden)
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwsBH}#)
+ (if rec?-24091 new-w-24197 w-24094)
+ (map (lambda (x-24234)
(cons 'macro
- (#{eval-local-transformer
-ANAU$bmvAmthP7L7xwnOK}#
- (#{expand
-ANAU$bmvAmthP7L7xwnOE}#
- #{x -ANAU$bmvAmthP7L7xwsBH}#
- #{trans-r
-ANAU$bmvAmthP7L7xwsBG}#
+ (eval-local-transformer-4528
+ (expand-4522
+ x-24234
+ trans-r-24233
(values
- (if #{rec?
-ANAU$bmvAmthP7L7xwr$8}#
- #{new-w
-ANAU$bmvAmthP7L7xwsAm}#
- #{w address@hidden))
- #{mod address@hidden)
- #{mod address@hidden)))
- #{val address@hidden)))
- #{r -ANAU$bmvAmthP7L7xwr$$}#)
- #{new-w -ANAU$bmvAmthP7L7xwsAm}#
- #{s address@hidden
- #{mod address@hidden)))))
- #{tmp address@hidden)
+ (if rec?-24091
+ new-w-24197
+ w-24094))
+ mod-24096)
+ mod-24096)))
+ val-24104)))
+ r-24093)
+ new-w-24197
+ s-24095
+ mod-24096)))))
+ tmp-24099)
(syntax-violation
#f
"bad local syntax definition"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwr$9}#)
- #{s address@hidden
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwr$9}#
- #{s address@hidden))
- #{e -ANAU$bmvAmthP7L7xwr$9}#)
- #{w address@hidden
- #{mod address@hidden))))))
- (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}#
- (lambda (#{expanded -ANAU$bmvAmthP7L7xwsFb}#
- #{mod -ANAU$bmvAmthP7L7xwsFc}#)
- (let ((#{p -ANAU$bmvAmthP7L7xwsFd}#
- (primitive-eval
- #{expanded -ANAU$bmvAmthP7L7xwsFb}#)))
- (if (procedure? #{p -ANAU$bmvAmthP7L7xwsFd}#)
- #{p -ANAU$bmvAmthP7L7xwsFd}#
+ (if (if (pair? e-24092) s-24095 #f)
+ (set-source-properties! e-24092 s-24095))
+ e-24092)
+ w-24094
+ mod-24096))))))
+ (eval-local-transformer-4528
+ (lambda (expanded-24514 mod-24515)
+ (let ((p-24516 (primitive-eval expanded-24514)))
+ (if (procedure? p-24516)
+ p-24516
(syntax-violation
#f
"nonprocedure transformer"
- #{p -ANAU$bmvAmthP7L7xwsFd}#)))))
- (#{ellipsis? -ANAU$bmvAmthP7L7xwnOM}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwnYh}#)
- (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwnYh}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwnYh}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 0)
- 'syntax-object)
+ p-24516)))))
+ (ellipsis?-4530
+ (lambda (x-5191)
+ (if (if (if (vector? x-5191)
+ (if (= (vector-length x-5191) 4)
+ (eq? (vector-ref x-5191 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 1))
+ (symbol? (vector-ref x-5191 1))
#f)
- (if (eq? (if (if (vector? #{x -ANAU$bmvAmthP7L7xwnYh}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwnYh}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 0)
- 'syntax-object)
+ (if (eq? (if (if (vector? x-5191)
+ (if (= (vector-length x-5191) 4)
+ (eq? (vector-ref x-5191 0) 'syntax-object)
#f)
#f)
- (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 1)
- #{x -ANAU$bmvAmthP7L7xwnYh}#)
+ (vector-ref x-5191 1)
+ x-5191)
(if (if (= (vector-length
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("p6"))
+ #(ribcage #(x) #((top)) #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
@@ -5379,7 +4858,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -5547,152 +5026,152 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile)))
4)
#t
@@ -5703,7 +5182,7 @@
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("p6"))
+ #(ribcage #(x) #((top)) #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
@@ -5817,7 +5296,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -5985,163 +5464,161 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))))
- (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{x -ANAU$bmvAmthP7L7xwnYh}#
- '(()))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ (eq? (id-var-name-4505 x-5191 '(()))
+ (id-var-name-4505
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("p6"))
+ #(ribcage #(x) #((top)) #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
@@ -6255,7 +5732,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -6423,539 +5900,420 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
'(())))
#f)
#f)))
- (#{lambda-formals -ANAU$bmvAmthP7L7xwnON}#
- (lambda (#{orig-args -ANAU$bmvAmthP7L7xwsFi}#)
+ (lambda-formals-4531
+ (lambda (orig-args-24521)
(letrec*
- ((#{req -ANAU$bmvAmthP7L7xwsFj}#
- (lambda (#{args -ANAU$bmvAmthP7L7xwsFn}#
- #{rreq -ANAU$bmvAmthP7L7xwsFo}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsFq}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsFn}#
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xwsFq}#
+ ((req-24522
+ (lambda (args-24526 rreq-24527)
+ (let ((tmp-24529 ($sc-dispatch args-24526 '())))
+ (if tmp-24529
(@apply
- (lambda ()
- (#{check -ANAU$bmvAmthP7L7xwsFk}#
- (reverse #{rreq -ANAU$bmvAmthP7L7xwsFo}#)
- #f))
- #{tmp -ANAU$bmvAmthP7L7xwsFq}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsHl}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsFn}#
- '(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsHl}#
+ (lambda () (check-24523 (reverse rreq-24527) #f))
+ tmp-24529)
+ (let ((tmp-24652
+ ($sc-dispatch args-24526 '(any . any))))
+ (if (if tmp-24652
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsHp}#
- #{b -ANAU$bmvAmthP7L7xwsHq}#)
- (if (symbol? #{a -ANAU$bmvAmthP7L7xwsHp}#)
+ (lambda (a-24656 b-24657)
+ (if (symbol? a-24656)
#t
- (if (if (vector?
- #{a -ANAU$bmvAmthP7L7xwsHp}#)
- (if (= (vector-length
- #{a -ANAU$bmvAmthP7L7xwsHp}#)
- 4)
- (eq? (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsHp}#
- 0)
+ (if (if (vector? a-24656)
+ (if (= (vector-length a-24656) 4)
+ (eq? (vector-ref a-24656 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsHp}#
- 1))
+ (symbol? (vector-ref a-24656 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsHl}#)
+ tmp-24652)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsIF}#
- #{b -ANAU$bmvAmthP7L7xwsIG}#)
- (#{req -ANAU$bmvAmthP7L7xwsFj}#
- #{b -ANAU$bmvAmthP7L7xwsIG}#
- (cons #{a -ANAU$bmvAmthP7L7xwsIF}#
- #{rreq -ANAU$bmvAmthP7L7xwsFo}#)))
- #{tmp -ANAU$bmvAmthP7L7xwsHl}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsIH}#
- (list #{args -ANAU$bmvAmthP7L7xwsFn}#)))
+ (lambda (a-24684 b-24685)
+ (req-24522 b-24685 (cons a-24684 rreq-24527)))
+ tmp-24652)
+ (let ((tmp-24686 (list args-24526)))
(if (@apply
- (lambda (#{r -ANAU$bmvAmthP7L7xwsIJ}#)
- (if (symbol? #{r -ANAU$bmvAmthP7L7xwsIJ}#)
+ (lambda (r-24688)
+ (if (symbol? r-24688)
#t
- (if (if (vector?
- #{r -ANAU$bmvAmthP7L7xwsIJ}#)
- (if (= (vector-length
- #{r
-ANAU$bmvAmthP7L7xwsIJ}#)
- 4)
- (eq? (vector-ref
- #{r -ANAU$bmvAmthP7L7xwsIJ}#
- 0)
+ (if (if (vector? r-24688)
+ (if (= (vector-length r-24688) 4)
+ (eq? (vector-ref r-24688 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{r -ANAU$bmvAmthP7L7xwsIJ}#
- 1))
+ (symbol? (vector-ref r-24688 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsIH}#)
+ tmp-24686)
(@apply
- (lambda (#{r -ANAU$bmvAmthP7L7xwsIn}#)
- (#{check -ANAU$bmvAmthP7L7xwsFk}#
- (reverse #{rreq -ANAU$bmvAmthP7L7xwsFo}#)
- #{r -ANAU$bmvAmthP7L7xwsIn}#))
- #{tmp -ANAU$bmvAmthP7L7xwsIH}#)
+ (lambda (r-24718)
+ (check-24523 (reverse rreq-24527) r-24718))
+ tmp-24686)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args -ANAU$bmvAmthP7L7xwsFi}#
- #{args -ANAU$bmvAmthP7L7xwsFn}#)))))))))
- (#{check -ANAU$bmvAmthP7L7xwsFk}#
- (lambda (#{req -ANAU$bmvAmthP7L7xwsKq}#
- #{rest -ANAU$bmvAmthP7L7xwsKr}#)
- (if (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
- (if #{rest -ANAU$bmvAmthP7L7xwsKr}#
- (cons #{rest -ANAU$bmvAmthP7L7xwsKr}#
- #{req -ANAU$bmvAmthP7L7xwsKq}#)
- #{req -ANAU$bmvAmthP7L7xwsKq}#))
- (values
- #{req -ANAU$bmvAmthP7L7xwsKq}#
- #f
- #{rest -ANAU$bmvAmthP7L7xwsKr}#
- #f)
+ orig-args-24521
+ args-24526)))))))))
+ (check-24523
+ (lambda (req-24849 rest-24850)
+ (if (distinct-bound-ids?-4513
+ (if rest-24850
+ (cons rest-24850 req-24849)
+ req-24849))
+ (values req-24849 #f rest-24850 #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args -ANAU$bmvAmthP7L7xwsFi}#)))))
- (#{req -ANAU$bmvAmthP7L7xwsFj}#
- #{orig-args -ANAU$bmvAmthP7L7xwsFi}#
- '()))))
- (#{expand-simple-lambda -ANAU$bmvAmthP7L7xwnOO}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwsMf}#
- #{r -ANAU$bmvAmthP7L7xwsMg}#
- #{w -ANAU$bmvAmthP7L7xwsMh}#
- #{s -ANAU$bmvAmthP7L7xwsMi}#
- #{mod -ANAU$bmvAmthP7L7xwsMj}#
- #{req -ANAU$bmvAmthP7L7xwsMk}#
- #{rest -ANAU$bmvAmthP7L7xwsMl}#
- #{meta -ANAU$bmvAmthP7L7xwsMm}#
- #{body -ANAU$bmvAmthP7L7xwsMn}#)
- (let ((#{ids -ANAU$bmvAmthP7L7xwsMo}#
- (if #{rest -ANAU$bmvAmthP7L7xwsMl}#
- (append
- #{req -ANAU$bmvAmthP7L7xwsMk}#
- (list #{rest -ANAU$bmvAmthP7L7xwsMl}#))
- #{req -ANAU$bmvAmthP7L7xwsMk}#)))
- (let ((#{vars -ANAU$bmvAmthP7L7xwsMp}#
- (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
- #{ids -ANAU$bmvAmthP7L7xwsMo}#)))
- (let ((#{labels -ANAU$bmvAmthP7L7xwsMq}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- #{ids -ANAU$bmvAmthP7L7xwsMo}#)))
- (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}#
- #{s -ANAU$bmvAmthP7L7xwsMi}#
- (map syntax->datum
- #{req -ANAU$bmvAmthP7L7xwsMk}#)
- (if #{rest -ANAU$bmvAmthP7L7xwsMl}#
- (syntax->datum #{rest -ANAU$bmvAmthP7L7xwsMl}#)
- #f)
- #{vars -ANAU$bmvAmthP7L7xwsMp}#
- #{meta -ANAU$bmvAmthP7L7xwsMm}#
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- #{body -ANAU$bmvAmthP7L7xwsMn}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ orig-args-24521)))))
+ (req-24522 orig-args-24521 '()))))
+ (expand-simple-lambda-4532
+ (lambda (e-24966
+ r-24967
+ w-24968
+ s-24969
+ mod-24970
+ req-24971
+ rest-24972
+ meta-24973
+ body-24974)
+ (let ((ids-24975
+ (if rest-24972
+ (append req-24971 (list rest-24972))
+ req-24971)))
+ (let ((vars-24976 (map gen-var-4536 ids-24975)))
+ (let ((labels-24977 (gen-labels-4489 ids-24975)))
+ (build-simple-lambda-4462
+ s-24969
+ (map syntax->datum req-24971)
+ (if rest-24972 (syntax->datum rest-24972) #f)
+ vars-24976
+ meta-24973
+ (expand-body-4526
+ body-24974
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwsMf}#)
- #{s -ANAU$bmvAmthP7L7xwsMi}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwsMf}#
- #{s -ANAU$bmvAmthP7L7xwsMi}#))
- #{e -ANAU$bmvAmthP7L7xwsMf}#)
- #{w -ANAU$bmvAmthP7L7xwsMh}#
- #{mod -ANAU$bmvAmthP7L7xwsMj}#)
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- #{labels -ANAU$bmvAmthP7L7xwsMq}#
- #{vars -ANAU$bmvAmthP7L7xwsMp}#
- #{r -ANAU$bmvAmthP7L7xwsMg}#)
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- #{ids -ANAU$bmvAmthP7L7xwsMo}#
- #{labels -ANAU$bmvAmthP7L7xwsMq}#
- #{w -ANAU$bmvAmthP7L7xwsMh}#)
- #{mod -ANAU$bmvAmthP7L7xwsMj}#)))))))
- (#{lambda*-formals -ANAU$bmvAmthP7L7xwnOP}#
- (lambda (#{orig-args -ANAU$bmvAmthP7L7xwsQ6}#)
+ (if (if (pair? e-24966) s-24969 #f)
+ (set-source-properties! e-24966 s-24969))
+ e-24966)
+ w-24968
+ mod-24970)
+ (extend-var-env-4481
+ labels-24977
+ vars-24976
+ r-24967)
+ (make-binding-wrap-4500
+ ids-24975
+ labels-24977
+ w-24968)
+ mod-24970)))))))
+ (lambda*-formals-4533
+ (lambda (orig-args-25257)
(letrec*
- ((#{req -ANAU$bmvAmthP7L7xwsQ7}#
- (lambda (#{args -ANAU$bmvAmthP7L7xwsRC}#
- #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsRF}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsRC}#
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xwsRF}#
+ ((req-25258
+ (lambda (args-25265 rreq-25266)
+ (let ((tmp-25268 ($sc-dispatch args-25265 '())))
+ (if tmp-25268
(@apply
(lambda ()
- (#{check address@hidden
- (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
- '()
- #f
- '()))
- #{tmp -ANAU$bmvAmthP7L7xwsRF}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsRL}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsRC}#
- '(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsRL}#
+ (check-25262 (reverse rreq-25266) '() #f '()))
+ tmp-25268)
+ (let ((tmp-25274
+ ($sc-dispatch args-25265 '(any . any))))
+ (if (if tmp-25274
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsRP}#
- #{b -ANAU$bmvAmthP7L7xwsRQ}#)
- (if (symbol? #{a -ANAU$bmvAmthP7L7xwsRP}#)
+ (lambda (a-25278 b-25279)
+ (if (symbol? a-25278)
#t
- (if (if (vector?
- #{a -ANAU$bmvAmthP7L7xwsRP}#)
- (if (= (vector-length
- #{a -ANAU$bmvAmthP7L7xwsRP}#)
- 4)
- (eq? (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsRP}#
- 0)
+ (if (if (vector? a-25278)
+ (if (= (vector-length a-25278) 4)
+ (eq? (vector-ref a-25278 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsRP}#
- 1))
+ (symbol? (vector-ref a-25278 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsRL}#)
+ tmp-25274)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsRr}#
- #{b -ANAU$bmvAmthP7L7xwsRs}#)
- (#{req -ANAU$bmvAmthP7L7xwsQ7}#
- #{b -ANAU$bmvAmthP7L7xwsRs}#
- (cons #{a -ANAU$bmvAmthP7L7xwsRr}#
- #{rreq -ANAU$bmvAmthP7L7xwsRD}#)))
- #{tmp -ANAU$bmvAmthP7L7xwsRL}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsRt}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsRC}#
- '(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsRt}#
+ (lambda (a-25306 b-25307)
+ (req-25258 b-25307 (cons a-25306 rreq-25266)))
+ tmp-25274)
+ (let ((tmp-25308
+ ($sc-dispatch args-25265 '(any . any))))
+ (if (if tmp-25308
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsRx}#
- #{b -ANAU$bmvAmthP7L7xwsRy}#)
- (eq? (syntax->datum
- #{a -ANAU$bmvAmthP7L7xwsRx}#)
- #:optional))
- #{tmp -ANAU$bmvAmthP7L7xwsRt}#)
+ (lambda (a-25312 b-25313)
+ (eq? (syntax->datum a-25312) #:optional))
+ tmp-25308)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsRz}#
- #{b -ANAU$bmvAmthP7L7xwsR0}#)
- (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
- #{b -ANAU$bmvAmthP7L7xwsR0}#
- (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
- '()))
- #{tmp -ANAU$bmvAmthP7L7xwsRt}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsR3}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsRC}#
- '(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsR3}#
+ (lambda (a-25314 b-25315)
+ (opt-25259 b-25315 (reverse rreq-25266) '()))
+ tmp-25308)
+ (let ((tmp-25318
+ ($sc-dispatch args-25265 '(any . any))))
+ (if (if tmp-25318
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsR7}#
- #{b -ANAU$bmvAmthP7L7xwsR8}#)
- (eq? (syntax->datum
- #{a -ANAU$bmvAmthP7L7xwsR7}#)
- #:key))
- #{tmp -ANAU$bmvAmthP7L7xwsR3}#)
+ (lambda (a-25322 b-25323)
+ (eq? (syntax->datum a-25322) #:key))
+ tmp-25318)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsR9}#
- #{b -ANAU$bmvAmthP7L7xwsR$}#)
- (#{key -ANAU$bmvAmthP7L7xwsQ9}#
- #{b -ANAU$bmvAmthP7L7xwsR$}#
- (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
+ (lambda (a-25324 b-25325)
+ (key-25260
+ b-25325
+ (reverse rreq-25266)
'()
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsR3}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsSB}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsRC}#
- '(any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsSB}#
+ tmp-25318)
+ (let ((tmp-25328
+ ($sc-dispatch args-25265 '(any any))))
+ (if (if tmp-25328
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsSF}#
- #{b
-ANAU$bmvAmthP7L7xwsSG}#)
- (eq? (syntax->datum
- #{a
-ANAU$bmvAmthP7L7xwsSF}#)
+ (lambda (a-25332 b-25333)
+ (eq? (syntax->datum a-25332)
#:rest))
- #{tmp -ANAU$bmvAmthP7L7xwsSB}#)
+ tmp-25328)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsSH}#
- #{b -ANAU$bmvAmthP7L7xwsSI}#)
- (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
- #{b -ANAU$bmvAmthP7L7xwsSI}#
- (reverse
- #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
+ (lambda (a-25334 b-25335)
+ (rest-25261
+ b-25335
+ (reverse rreq-25266)
'()
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsSB}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsSL}#
- (list #{args
-ANAU$bmvAmthP7L7xwsRC}#)))
+ tmp-25328)
+ (let ((tmp-25338 (list args-25265)))
(if (@apply
- (lambda (#{r
-ANAU$bmvAmthP7L7xwsSN}#)
- (if (symbol?
- #{r
-ANAU$bmvAmthP7L7xwsSN}#)
+ (lambda (r-25340)
+ (if (symbol? r-25340)
#t
- (if (if (vector?
- #{r
-ANAU$bmvAmthP7L7xwsSN}#)
+ (if (if (vector? r-25340)
(if (= (vector-length
- #{r
-ANAU$bmvAmthP7L7xwsSN}#)
+ r-25340)
4)
(eq? (vector-ref
- #{r
-ANAU$bmvAmthP7L7xwsSN}#
+ r-25340
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref
- #{r
-ANAU$bmvAmthP7L7xwsSN}#
- 1))
+ (vector-ref r-25340 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsSL}#)
+ tmp-25338)
(@apply
- (lambda (#{r
-ANAU$bmvAmthP7L7xwsSr}#)
- (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
- #{r -ANAU$bmvAmthP7L7xwsSr}#
- (reverse
- #{rreq
-ANAU$bmvAmthP7L7xwsRD}#)
+ (lambda (r-25370)
+ (rest-25261
+ r-25370
+ (reverse rreq-25266)
'()
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsSL}#)
+ tmp-25338)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
- #{args
-ANAU$bmvAmthP7L7xwsRC}#)))))))))))))))
- (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
- (lambda (#{args -ANAU$bmvAmthP7L7xwsS$}#
- #{req address@hidden
- #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsTC}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsS$}#
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xwsTC}#
+ orig-args-25257
+ args-25265)))))))))))))))
+ (opt-25259
+ (lambda (args-25389 req-25390 ropt-25391)
+ (let ((tmp-25393 ($sc-dispatch args-25389 '())))
+ (if tmp-25393
(@apply
(lambda ()
- (#{check address@hidden
- #{req address@hidden
- (reverse #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
+ (check-25262
+ req-25390
+ (reverse ropt-25391)
#f
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsTC}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsTI}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsS$}#
- '(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsTI}#
+ tmp-25393)
+ (let ((tmp-25399
+ ($sc-dispatch args-25389 '(any . any))))
+ (if (if tmp-25399
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsTM}#
- #{b -ANAU$bmvAmthP7L7xwsTN}#)
- (if (symbol? #{a -ANAU$bmvAmthP7L7xwsTM}#)
+ (lambda (a-25403 b-25404)
+ (if (symbol? a-25403)
#t
- (if (if (vector?
- #{a -ANAU$bmvAmthP7L7xwsTM}#)
- (if (= (vector-length
- #{a -ANAU$bmvAmthP7L7xwsTM}#)
- 4)
- (eq? (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsTM}#
- 0)
+ (if (if (vector? a-25403)
+ (if (= (vector-length a-25403) 4)
+ (eq? (vector-ref a-25403 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsTM}#
- 1))
+ (symbol? (vector-ref a-25403 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsTI}#)
+ tmp-25399)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsTo}#
- #{b -ANAU$bmvAmthP7L7xwsTp}#)
- (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
- #{b -ANAU$bmvAmthP7L7xwsTp}#
- #{req address@hidden
- (cons (cons #{a -ANAU$bmvAmthP7L7xwsTo}#
+ (lambda (a-25431 b-25432)
+ (opt-25259
+ b-25432
+ req-25390
+ (cons (cons a-25431
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("qt" "qu"))
+ #("l-*-2482" "l-*-2483"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("qo" "qp" "qq"))
+ #("l-*-2472"
+ "l-*-2473"
+ "l-*-2474"))
#(ribcage
(check rest key opt req)
((top)
@@ -6963,11 +6321,15 @@
(top)
(top)
(top))
- ("q2" "q1" "q0" "pz" "py"))
+ ("l-*-2418"
+ "l-*-2416"
+ "l-*-2414"
+ "l-*-2412"
+ "l-*-2410"))
#(ribcage
#(orig-args)
#((top))
- #("px"))
+ #("l-*-2409"))
#(ribcage
(lambda-var-list
gen-var
@@ -7081,7 +6443,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -7249,338 +6611,283 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))))
- #{ropt -ANAU$bmvAmthP7L7xwsTA}#)))
- #{tmp -ANAU$bmvAmthP7L7xwsTI}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsTq}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsS$}#
- '((any any) . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsTq}#
+ ropt-25391)))
+ tmp-25399)
+ (let ((tmp-25433
+ ($sc-dispatch args-25389 '((any any) . any))))
+ (if (if tmp-25433
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsTu}#
- #{init -ANAU$bmvAmthP7L7xwsTv}#
- #{b -ANAU$bmvAmthP7L7xwsTw}#)
- (if (symbol? #{a -ANAU$bmvAmthP7L7xwsTu}#)
+ (lambda (a-25437 init-25438 b-25439)
+ (if (symbol? a-25437)
#t
- (if (if (vector?
- #{a -ANAU$bmvAmthP7L7xwsTu}#)
- (if (= (vector-length
- #{a
-ANAU$bmvAmthP7L7xwsTu}#)
- 4)
- (eq? (vector-ref
- #{a
-ANAU$bmvAmthP7L7xwsTu}#
- 0)
+ (if (if (vector? a-25437)
+ (if (= (vector-length a-25437) 4)
+ (eq? (vector-ref a-25437 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsTu}#
- 1))
+ (symbol? (vector-ref a-25437 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsTq}#)
+ tmp-25433)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsUL}#
- #{init -ANAU$bmvAmthP7L7xwsUM}#
- #{b -ANAU$bmvAmthP7L7xwsUN}#)
- (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
- #{b -ANAU$bmvAmthP7L7xwsUN}#
- #{req address@hidden
- (cons (list #{a -ANAU$bmvAmthP7L7xwsUL}#
- #{init -ANAU$bmvAmthP7L7xwsUM}#)
- #{ropt -ANAU$bmvAmthP7L7xwsTA}#)))
- #{tmp -ANAU$bmvAmthP7L7xwsTq}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsUO}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsS$}#
- '(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsUO}#
+ (lambda (a-25466 init-25467 b-25468)
+ (opt-25259
+ b-25468
+ req-25390
+ (cons (list a-25466 init-25467) ropt-25391)))
+ tmp-25433)
+ (let ((tmp-25469
+ ($sc-dispatch args-25389 '(any . any))))
+ (if (if tmp-25469
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsUS}#
- #{b -ANAU$bmvAmthP7L7xwsUT}#)
- (eq? (syntax->datum
- #{a -ANAU$bmvAmthP7L7xwsUS}#)
- #:key))
- #{tmp -ANAU$bmvAmthP7L7xwsUO}#)
+ (lambda (a-25473 b-25474)
+ (eq? (syntax->datum a-25473) #:key))
+ tmp-25469)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsUU}#
- #{b -ANAU$bmvAmthP7L7xwsUV}#)
- (#{key -ANAU$bmvAmthP7L7xwsQ9}#
- #{b -ANAU$bmvAmthP7L7xwsUV}#
- #{req address@hidden
- (reverse #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
+ (lambda (a-25475 b-25476)
+ (key-25260
+ b-25476
+ req-25390
+ (reverse ropt-25391)
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsUO}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsUY}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsS$}#
- '(any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsUY}#
+ tmp-25469)
+ (let ((tmp-25479
+ ($sc-dispatch args-25389 '(any any))))
+ (if (if tmp-25479
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsUc}#
- #{b
-ANAU$bmvAmthP7L7xwsUd}#)
- (eq? (syntax->datum
- #{a
-ANAU$bmvAmthP7L7xwsUc}#)
+ (lambda (a-25483 b-25484)
+ (eq? (syntax->datum a-25483)
#:rest))
- #{tmp -ANAU$bmvAmthP7L7xwsUY}#)
+ tmp-25479)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsUe}#
- #{b -ANAU$bmvAmthP7L7xwsUf}#)
- (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
- #{b -ANAU$bmvAmthP7L7xwsUf}#
- #{req address@hidden
- (reverse
- #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
+ (lambda (a-25485 b-25486)
+ (rest-25261
+ b-25486
+ req-25390
+ (reverse ropt-25391)
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsUY}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsUi}#
- (list #{args
-ANAU$bmvAmthP7L7xwsS$}#)))
+ tmp-25479)
+ (let ((tmp-25489 (list args-25389)))
(if (@apply
- (lambda (#{r
-ANAU$bmvAmthP7L7xwsUk}#)
- (if (symbol?
- #{r
-ANAU$bmvAmthP7L7xwsUk}#)
+ (lambda (r-25491)
+ (if (symbol? r-25491)
#t
- (if (if (vector?
- #{r
-ANAU$bmvAmthP7L7xwsUk}#)
+ (if (if (vector? r-25491)
(if (= (vector-length
- #{r
-ANAU$bmvAmthP7L7xwsUk}#)
+ r-25491)
4)
(eq? (vector-ref
- #{r
-ANAU$bmvAmthP7L7xwsUk}#
+ r-25491
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref
- #{r
-ANAU$bmvAmthP7L7xwsUk}#
- 1))
+ (vector-ref r-25491 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsUi}#)
+ tmp-25489)
(@apply
- (lambda (#{r
-ANAU$bmvAmthP7L7xwsVC}#)
- (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
- #{r -ANAU$bmvAmthP7L7xwsVC}#
- #{req address@hidden
- (reverse
- #{ropt
-ANAU$bmvAmthP7L7xwsTA}#)
+ (lambda (r-25521)
+ (rest-25261
+ r-25521
+ req-25390
+ (reverse ropt-25391)
'()))
- #{tmp -ANAU$bmvAmthP7L7xwsUi}#)
+ tmp-25489)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
- #{args
-ANAU$bmvAmthP7L7xwsS$}#)))))))))))))))
- (#{key -ANAU$bmvAmthP7L7xwsQ9}#
- (lambda (#{args -ANAU$bmvAmthP7L7xwsVV}#
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
- #{rkey -ANAU$bmvAmthP7L7xwsVY}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsVa}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsVV}#
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xwsVa}#
+ orig-args-25257
+ args-25389)))))))))))))))
+ (key-25260
+ (lambda (args-25540 req-25541 opt-25542 rkey-25543)
+ (let ((tmp-25545 ($sc-dispatch args-25540 '())))
+ (if tmp-25545
(@apply
(lambda ()
- (#{check address@hidden
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
+ (check-25262
+ req-25541
+ opt-25542
#f
- (cons #f
- (reverse #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp -ANAU$bmvAmthP7L7xwsVa}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsVg}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsVV}#
- '(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsVg}#
+ (cons #f (reverse rkey-25543))))
+ tmp-25545)
+ (let ((tmp-25551
+ ($sc-dispatch args-25540 '(any . any))))
+ (if (if tmp-25551
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsVk}#
- #{b -ANAU$bmvAmthP7L7xwsVl}#)
- (if (symbol? #{a -ANAU$bmvAmthP7L7xwsVk}#)
+ (lambda (a-25555 b-25556)
+ (if (symbol? a-25555)
#t
- (if (if (vector?
- #{a -ANAU$bmvAmthP7L7xwsVk}#)
- (if (= (vector-length
- #{a -ANAU$bmvAmthP7L7xwsVk}#)
- 4)
- (eq? (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsVk}#
- 0)
+ (if (if (vector? a-25555)
+ (if (= (vector-length a-25555) 4)
+ (eq? (vector-ref a-25555 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsVk}#
- 1))
+ (symbol? (vector-ref a-25555 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsVg}#)
+ tmp-25551)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsWA}#
- #{b -ANAU$bmvAmthP7L7xwsWB}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsWC}#
- (symbol->keyword
- (syntax->datum
- #{a -ANAU$bmvAmthP7L7xwsWA}#))))
- (#{key -ANAU$bmvAmthP7L7xwsQ9}#
- #{b -ANAU$bmvAmthP7L7xwsWB}#
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
- (cons (cons #{tmp -ANAU$bmvAmthP7L7xwsWC}#
- (cons #{a -ANAU$bmvAmthP7L7xwsWA}#
+ (lambda (a-25583 b-25584)
+ (let ((tmp-25585
+ (symbol->keyword (syntax->datum a-25583))))
+ (key-25260
+ b-25584
+ req-25541
+ opt-25542
+ (cons (cons tmp-25585
+ (cons a-25583
'(#(syntax-object
#f
((top)
@@ -7588,11 +6895,12 @@
#(ribcage
#(k)
#((top))
- #("rk"))
+ #("l-*-2545"))
#(ribcage
#(a b)
#((top) (top))
- #("ri" "rj"))
+ #("l-*-2539"
+ "l-*-2540"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -7600,10 +6908,10 @@
(top)
(top)
(top))
- #("rc"
- "rd"
- "re"
- "rf"))
+ #("l-*-2528"
+ "l-*-2529"
+ "l-*-2530"
+ "l-*-2531"))
#(ribcage
(check rest
key
@@ -7614,15 +6922,15 @@
(top)
(top)
(top))
- ("q2"
- "q1"
- "q0"
- "pz"
- "py"))
+ ("l-*-2418"
+ "l-*-2416"
+ "l-*-2414"
+ "l-*-2412"
+ "l-*-2410"))
#(ribcage
#(orig-args)
#((top))
- #("px"))
+ #("l-*-2409"))
#(ribcage
(lambda-var-list
gen-var
@@ -7736,7 +7044,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -7904,1063 +7212,875 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))))
- #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp -ANAU$bmvAmthP7L7xwsVg}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsWF}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsVV}#
- '((any any) . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsWF}#
+ rkey-25543))))
+ tmp-25551)
+ (let ((tmp-25588
+ ($sc-dispatch args-25540 '((any any) . any))))
+ (if (if tmp-25588
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsWJ}#
- #{init -ANAU$bmvAmthP7L7xwsWK}#
- #{b -ANAU$bmvAmthP7L7xwsWL}#)
- (if (symbol? #{a -ANAU$bmvAmthP7L7xwsWJ}#)
+ (lambda (a-25592 init-25593 b-25594)
+ (if (symbol? a-25592)
#t
- (if (if (vector?
- #{a -ANAU$bmvAmthP7L7xwsWJ}#)
- (if (= (vector-length
- #{a
-ANAU$bmvAmthP7L7xwsWJ}#)
- 4)
- (eq? (vector-ref
- #{a
-ANAU$bmvAmthP7L7xwsWJ}#
- 0)
+ (if (if (vector? a-25592)
+ (if (= (vector-length a-25592) 4)
+ (eq? (vector-ref a-25592 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{a -ANAU$bmvAmthP7L7xwsWJ}#
- 1))
+ (symbol? (vector-ref a-25592 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsWF}#)
+ tmp-25588)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsWm}#
- #{init -ANAU$bmvAmthP7L7xwsWn}#
- #{b -ANAU$bmvAmthP7L7xwsWo}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsWp}#
+ (lambda (a-25621 init-25622 b-25623)
+ (let ((tmp-25624
(symbol->keyword
- (syntax->datum
- #{a -ANAU$bmvAmthP7L7xwsWm}#))))
- (#{key -ANAU$bmvAmthP7L7xwsQ9}#
- #{b -ANAU$bmvAmthP7L7xwsWo}#
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
- (cons (list #{tmp -ANAU$bmvAmthP7L7xwsWp}#
- #{a -ANAU$bmvAmthP7L7xwsWm}#
- #{init
-ANAU$bmvAmthP7L7xwsWn}#)
- #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp -ANAU$bmvAmthP7L7xwsWF}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsWs}#
+ (syntax->datum a-25621))))
+ (key-25260
+ b-25623
+ req-25541
+ opt-25542
+ (cons (list tmp-25624 a-25621 init-25622)
+ rkey-25543))))
+ tmp-25588)
+ (let ((tmp-25627
($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsVV}#
+ args-25540
'((any any any) . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsWs}#
+ (if (if tmp-25627
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsWw}#
- #{init -ANAU$bmvAmthP7L7xwsWx}#
- #{k -ANAU$bmvAmthP7L7xwsWy}#
- #{b -ANAU$bmvAmthP7L7xwsWz}#)
- (if (if (symbol?
- #{a -ANAU$bmvAmthP7L7xwsWw}#)
+ (lambda (a-25631
+ init-25632
+ k-25633
+ b-25634)
+ (if (if (symbol? a-25631)
#t
- (if (if (vector?
- #{a
-ANAU$bmvAmthP7L7xwsWw}#)
+ (if (if (vector? a-25631)
(if (= (vector-length
- #{a
-ANAU$bmvAmthP7L7xwsWw}#)
+ a-25631)
4)
(eq? (vector-ref
- #{a
-ANAU$bmvAmthP7L7xwsWw}#
+ a-25631
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref
- #{a
-ANAU$bmvAmthP7L7xwsWw}#
- 1))
+ (vector-ref a-25631 1))
#f))
- (keyword?
- (syntax->datum
- #{k -ANAU$bmvAmthP7L7xwsWy}#))
+ (keyword? (syntax->datum k-25633))
#f))
- #{tmp -ANAU$bmvAmthP7L7xwsWs}#)
+ tmp-25627)
#f)
(@apply
- (lambda (#{a -ANAU$bmvAmthP7L7xwsXO}#
- #{init -ANAU$bmvAmthP7L7xwsXP}#
- #{k -ANAU$bmvAmthP7L7xwsXQ}#
- #{b -ANAU$bmvAmthP7L7xwsXR}#)
- (#{key -ANAU$bmvAmthP7L7xwsQ9}#
- #{b -ANAU$bmvAmthP7L7xwsXR}#
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
- (cons (list #{k -ANAU$bmvAmthP7L7xwsXQ}#
- #{a -ANAU$bmvAmthP7L7xwsXO}#
- #{init
-ANAU$bmvAmthP7L7xwsXP}#)
- #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))
- #{tmp -ANAU$bmvAmthP7L7xwsWs}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsXS}#
- ($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsVV}#
- '(any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsXS}#
+ (lambda (a-25661 init-25662 k-25663 b-25664)
+ (key-25260
+ b-25664
+ req-25541
+ opt-25542
+ (cons (list k-25663 a-25661 init-25662)
+ rkey-25543)))
+ tmp-25627)
+ (let ((tmp-25665
+ ($sc-dispatch args-25540 '(any))))
+ (if (if tmp-25665
(@apply
- (lambda (#{aok
-ANAU$bmvAmthP7L7xwsXW}#)
- (eq? (syntax->datum
- #{aok
-ANAU$bmvAmthP7L7xwsXW}#)
+ (lambda (aok-25669)
+ (eq? (syntax->datum aok-25669)
#:allow-other-keys))
- #{tmp -ANAU$bmvAmthP7L7xwsXS}#)
+ tmp-25665)
#f)
(@apply
- (lambda (#{aok -ANAU$bmvAmthP7L7xwsXX}#)
- (#{check address@hidden
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
+ (lambda (aok-25670)
+ (check-25262
+ req-25541
+ opt-25542
#f
- (cons #t
- (reverse
- #{rkey
-ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp -ANAU$bmvAmthP7L7xwsXS}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsXa}#
+ (cons #t (reverse rkey-25543))))
+ tmp-25665)
+ (let ((tmp-25673
($sc-dispatch
- #{args -ANAU$bmvAmthP7L7xwsVV}#
+ args-25540
'(any any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsXa}#
+ (if (if tmp-25673
(@apply
- (lambda (#{aok
-ANAU$bmvAmthP7L7xwsXe}#
- #{a
-ANAU$bmvAmthP7L7xwsXf}#
- #{b
-ANAU$bmvAmthP7L7xwsXg}#)
+ (lambda (aok-25677
+ a-25678
+ b-25679)
(if (eq? (syntax->datum
- #{aok
-ANAU$bmvAmthP7L7xwsXe}#)
+ aok-25677)
#:allow-other-keys)
- (eq? (syntax->datum
- #{a
-ANAU$bmvAmthP7L7xwsXf}#)
+ (eq? (syntax->datum a-25678)
#:rest)
#f))
- #{tmp -ANAU$bmvAmthP7L7xwsXa}#)
+ tmp-25673)
#f)
(@apply
- (lambda (#{aok
-ANAU$bmvAmthP7L7xwsXh}#
- #{a -ANAU$bmvAmthP7L7xwsXi}#
- #{b
-ANAU$bmvAmthP7L7xwsXj}#)
- (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
- #{b -ANAU$bmvAmthP7L7xwsXj}#
- #{req -ANAU$bmvAmthP7L7xwsVW}#
- #{opt -ANAU$bmvAmthP7L7xwsVX}#
- (cons #t
- (reverse
- #{rkey
-ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp -ANAU$bmvAmthP7L7xwsXa}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsXm}#
+ (lambda (aok-25680 a-25681 b-25682)
+ (rest-25261
+ b-25682
+ req-25541
+ opt-25542
+ (cons #t (reverse rkey-25543))))
+ tmp-25673)
+ (let ((tmp-25685
($sc-dispatch
- #{args
-ANAU$bmvAmthP7L7xwsVV}#
+ args-25540
'(any . any))))
- (if (if #{tmp
-ANAU$bmvAmthP7L7xwsXm}#
+ (if (if tmp-25685
(@apply
- (lambda (#{aok
-ANAU$bmvAmthP7L7xwsXq}#
- #{r
-ANAU$bmvAmthP7L7xwsXr}#)
+ (lambda (aok-25689 r-25690)
(if (eq? (syntax->datum
- #{aok
-ANAU$bmvAmthP7L7xwsXq}#)
+ aok-25689)
#:allow-other-keys)
- (if (symbol?
- #{r
-ANAU$bmvAmthP7L7xwsXr}#)
+ (if (symbol? r-25690)
#t
(if (if (vector?
- #{r
-ANAU$bmvAmthP7L7xwsXr}#)
+ r-25690)
(if (=
(vector-length
- #{r
-ANAU$bmvAmthP7L7xwsXr}#)
+ r-25690)
4)
(eq?
(vector-ref
- #{r
-ANAU$bmvAmthP7L7xwsXr}#
+ r-25690
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r
-ANAU$bmvAmthP7L7xwsXr}#
+ r-25690
1))
#f))
#f))
- #{tmp
-ANAU$bmvAmthP7L7xwsXm}#)
+ tmp-25685)
#f)
(@apply
- (lambda (#{aok
-ANAU$bmvAmthP7L7xwsYG}#
- #{r
-ANAU$bmvAmthP7L7xwsYH}#)
- (#{rest
-ANAU$bmvAmthP7L7xwsQ$}#
- #{r -ANAU$bmvAmthP7L7xwsYH}#
- #{req
-ANAU$bmvAmthP7L7xwsVW}#
- #{opt
-ANAU$bmvAmthP7L7xwsVX}#
+ (lambda (aok-25717 r-25718)
+ (rest-25261
+ r-25718
+ req-25541
+ opt-25542
(cons #t
- (reverse
- #{rkey
-ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp -ANAU$bmvAmthP7L7xwsXm}#)
- (let ((#{tmp
-ANAU$bmvAmthP7L7xwsYK}#
+ (reverse rkey-25543))))
+ tmp-25685)
+ (let ((tmp-25721
($sc-dispatch
- #{args
-ANAU$bmvAmthP7L7xwsVV}#
+ args-25540
'(any any))))
- (if (if #{tmp
-ANAU$bmvAmthP7L7xwsYK}#
+ (if (if tmp-25721
(@apply
- (lambda (#{a
-ANAU$bmvAmthP7L7xwsYO}#
- #{b
-ANAU$bmvAmthP7L7xwsYP}#)
+ (lambda (a-25725 b-25726)
(eq? (syntax->datum
- #{a
-ANAU$bmvAmthP7L7xwsYO}#)
+ a-25725)
#:rest))
- #{tmp
-ANAU$bmvAmthP7L7xwsYK}#)
+ tmp-25721)
#f)
(@apply
- (lambda (#{a
-ANAU$bmvAmthP7L7xwsYQ}#
- #{b
-ANAU$bmvAmthP7L7xwsYR}#)
- (#{rest
-ANAU$bmvAmthP7L7xwsQ$}#
- #{b
-ANAU$bmvAmthP7L7xwsYR}#
- #{req
-ANAU$bmvAmthP7L7xwsVW}#
- #{opt
-ANAU$bmvAmthP7L7xwsVX}#
+ (lambda (a-25727 b-25728)
+ (rest-25261
+ b-25728
+ req-25541
+ opt-25542
(cons #f
(reverse
- #{rkey
-ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp
-ANAU$bmvAmthP7L7xwsYK}#)
- (let ((#{tmp
-ANAU$bmvAmthP7L7xwsYU}#
- (list #{args
-ANAU$bmvAmthP7L7xwsVV}#)))
+ rkey-25543))))
+ tmp-25721)
+ (let ((tmp-25731
+ (list args-25540)))
(if (@apply
- (lambda (#{r
-ANAU$bmvAmthP7L7xwsYW}#)
- (if (symbol?
- #{r
-ANAU$bmvAmthP7L7xwsYW}#)
+ (lambda (r-25733)
+ (if (symbol? r-25733)
#t
(if (if (vector?
- #{r
-ANAU$bmvAmthP7L7xwsYW}#)
+ r-25733)
(if (=
(vector-length
- #{r
-ANAU$bmvAmthP7L7xwsYW}#)
+
r-25733)
4)
(eq?
(vector-ref
- #{r
-ANAU$bmvAmthP7L7xwsYW}#
+
r-25733
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r
-ANAU$bmvAmthP7L7xwsYW}#
+ r-25733
1))
#f)))
- #{tmp
-ANAU$bmvAmthP7L7xwsYU}#)
+ tmp-25731)
(@apply
- (lambda (#{r
-ANAU$bmvAmthP7L7xwsY0}#)
- (#{rest
-ANAU$bmvAmthP7L7xwsQ$}#
- #{r
-ANAU$bmvAmthP7L7xwsY0}#
- #{req
-ANAU$bmvAmthP7L7xwsVW}#
- #{opt
-ANAU$bmvAmthP7L7xwsVX}#
+ (lambda (r-25763)
+ (rest-25261
+ r-25763
+ req-25541
+ opt-25542
(cons #f
(reverse
- #{rkey
-ANAU$bmvAmthP7L7xwsVY}#))))
- #{tmp
-ANAU$bmvAmthP7L7xwsYU}#)
+
rkey-25543))))
+ tmp-25731)
(syntax-violation
'lambda*
"invalid keyword
argument list"
- #{orig-args
-ANAU$bmvAmthP7L7xwsQ6}#
- #{args
-ANAU$bmvAmthP7L7xwsVV}#)))))))))))))))))))))
- (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
- (lambda (#{args -ANAU$bmvAmthP7L7xwsZQ}#
- #{req -ANAU$bmvAmthP7L7xwsZR}#
- #{opt -ANAU$bmvAmthP7L7xwsZS}#
- #{kw -ANAU$bmvAmthP7L7xwsZT}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsZV}#
- (list #{args -ANAU$bmvAmthP7L7xwsZQ}#)))
+ orig-args-25257
+
args-25540)))))))))))))))))))))
+ (rest-25261
+ (lambda (args-25791 req-25792 opt-25793 kw-25794)
+ (let ((tmp-25796 (list args-25791)))
(if (@apply
- (lambda (#{r -ANAU$bmvAmthP7L7xwsZX}#)
- (if (symbol? #{r -ANAU$bmvAmthP7L7xwsZX}#)
+ (lambda (r-25798)
+ (if (symbol? r-25798)
#t
- (if (if (vector? #{r -ANAU$bmvAmthP7L7xwsZX}#)
- (if (= (vector-length
- #{r -ANAU$bmvAmthP7L7xwsZX}#)
- 4)
- (eq? (vector-ref
- #{r -ANAU$bmvAmthP7L7xwsZX}#
- 0)
- 'syntax-object)
+ (if (if (vector? r-25798)
+ (if (= (vector-length r-25798) 4)
+ (eq? (vector-ref r-25798 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{r -ANAU$bmvAmthP7L7xwsZX}# 1))
+ (symbol? (vector-ref r-25798 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwsZV}#)
+ tmp-25796)
(@apply
- (lambda (#{r -ANAU$bmvAmthP7L7xwsZ1}#)
- (#{check address@hidden
- #{req -ANAU$bmvAmthP7L7xwsZR}#
- #{opt -ANAU$bmvAmthP7L7xwsZS}#
- #{r -ANAU$bmvAmthP7L7xwsZ1}#
- #{kw -ANAU$bmvAmthP7L7xwsZT}#))
- #{tmp -ANAU$bmvAmthP7L7xwsZV}#)
+ (lambda (r-25828)
+ (check-25262
+ req-25792
+ opt-25793
+ r-25828
+ kw-25794))
+ tmp-25796)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
- #{args -ANAU$bmvAmthP7L7xwsZQ}#)))))
- (#{check address@hidden
- (lambda (#{req -ANAU$bmvAmthP7L7xwsZ5}#
- #{opt -ANAU$bmvAmthP7L7xwsZ6}#
- #{rest -ANAU$bmvAmthP7L7xwsZ7}#
- #{kw -ANAU$bmvAmthP7L7xwsZ8}#)
- (if (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
+ orig-args-25257
+ args-25791)))))
+ (check-25262
+ (lambda (req-25832 opt-25833 rest-25834 kw-25835)
+ (if (distinct-bound-ids?-4513
(append
- #{req -ANAU$bmvAmthP7L7xwsZ5}#
- (map car #{opt -ANAU$bmvAmthP7L7xwsZ6}#)
- (if #{rest -ANAU$bmvAmthP7L7xwsZ7}#
- (list #{rest -ANAU$bmvAmthP7L7xwsZ7}#)
- '())
- (if (pair? #{kw -ANAU$bmvAmthP7L7xwsZ8}#)
- (map cadr (cdr #{kw -ANAU$bmvAmthP7L7xwsZ8}#))
+ req-25832
+ (map car opt-25833)
+ (if rest-25834 (list rest-25834) '())
+ (if (pair? kw-25835)
+ (map cadr (cdr kw-25835))
'())))
- (values
- #{req -ANAU$bmvAmthP7L7xwsZ5}#
- #{opt -ANAU$bmvAmthP7L7xwsZ6}#
- #{rest -ANAU$bmvAmthP7L7xwsZ7}#
- #{kw -ANAU$bmvAmthP7L7xwsZ8}#)
+ (values req-25832 opt-25833 rest-25834 kw-25835)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#)))))
- (#{req -ANAU$bmvAmthP7L7xwsQ7}#
- #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
- '()))))
- (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwsbw}#
- #{r -ANAU$bmvAmthP7L7xwsbx}#
- #{w -ANAU$bmvAmthP7L7xwsby}#
- #{s -ANAU$bmvAmthP7L7xwsbz}#
- #{mod -ANAU$bmvAmthP7L7xwsb0}#
- #{get-formals -ANAU$bmvAmthP7L7xwsb1}#
- #{clauses -ANAU$bmvAmthP7L7xwsb2}#)
+ orig-args-25257)))))
+ (req-25258 orig-args-25257 '()))))
+ (expand-lambda-case-4534
+ (lambda (e-25951
+ r-25952
+ w-25953
+ s-25954
+ mod-25955
+ get-formals-25956
+ clauses-25957)
(letrec*
- ((#{parse-req -ANAU$bmvAmthP7L7xwsb3}#
- (lambda (#{req -ANAU$bmvAmthP7L7xwsd2}#
- #{opt -ANAU$bmvAmthP7L7xwsd3}#
- #{rest -ANAU$bmvAmthP7L7xwsd4}#
- #{kw -ANAU$bmvAmthP7L7xwsd5}#
- #{body -ANAU$bmvAmthP7L7xwsd6}#)
- (let ((#{vars -ANAU$bmvAmthP7L7xwsd7}#
- (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
- #{req -ANAU$bmvAmthP7L7xwsd2}#))
- (#{labels -ANAU$bmvAmthP7L7xwsd8}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- #{req -ANAU$bmvAmthP7L7xwsd2}#)))
- (let ((#{r* -ANAU$bmvAmthP7L7xwsd9}#
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- #{labels -ANAU$bmvAmthP7L7xwsd8}#
- #{vars -ANAU$bmvAmthP7L7xwsd7}#
- #{r -ANAU$bmvAmthP7L7xwsbx}#))
- (#{w* -ANAU$bmvAmthP7L7xwsd$}#
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- #{req -ANAU$bmvAmthP7L7xwsd2}#
- #{labels -ANAU$bmvAmthP7L7xwsd8}#
- #{w -ANAU$bmvAmthP7L7xwsby}#)))
- (#{parse-opt -ANAU$bmvAmthP7L7xwsb4}#
- (map syntax->datum
- #{req -ANAU$bmvAmthP7L7xwsd2}#)
- #{opt -ANAU$bmvAmthP7L7xwsd3}#
- #{rest -ANAU$bmvAmthP7L7xwsd4}#
- #{kw -ANAU$bmvAmthP7L7xwsd5}#
- #{body -ANAU$bmvAmthP7L7xwsd6}#
- (reverse #{vars -ANAU$bmvAmthP7L7xwsd7}#)
- #{r* -ANAU$bmvAmthP7L7xwsd9}#
- #{w* -ANAU$bmvAmthP7L7xwsd$}#
+ ((parse-req-25958
+ (lambda (req-26089
+ opt-26090
+ rest-26091
+ kw-26092
+ body-26093)
+ (let ((vars-26094 (map gen-var-4536 req-26089))
+ (labels-26095 (gen-labels-4489 req-26089)))
+ (let ((r*-26096
+ (extend-var-env-4481
+ labels-26095
+ vars-26094
+ r-25952))
+ (w*-26097
+ (make-binding-wrap-4500
+ req-26089
+ labels-26095
+ w-25953)))
+ (parse-opt-25959
+ (map syntax->datum req-26089)
+ opt-26090
+ rest-26091
+ kw-26092
+ body-26093
+ (reverse vars-26094)
+ r*-26096
+ w*-26097
'()
'())))))
- (#{parse-opt -ANAU$bmvAmthP7L7xwsb4}#
- (lambda (#{req -ANAU$bmvAmthP7L7xwsgu}#
- #{opt -ANAU$bmvAmthP7L7xwsgv}#
- #{rest -ANAU$bmvAmthP7L7xwsgw}#
- #{kw -ANAU$bmvAmthP7L7xwsgx}#
- #{body -ANAU$bmvAmthP7L7xwsgy}#
- #{vars -ANAU$bmvAmthP7L7xwsgz}#
- #{r* -ANAU$bmvAmthP7L7xwsg0}#
- #{w* -ANAU$bmvAmthP7L7xwsg1}#
- #{out -ANAU$bmvAmthP7L7xwsg2}#
- #{inits -ANAU$bmvAmthP7L7xwsg3}#)
- (if (pair? #{opt -ANAU$bmvAmthP7L7xwsgv}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsg4}#
- (car #{opt -ANAU$bmvAmthP7L7xwsgv}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsg5}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwsg4}#
- '(any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwsg5}#
+ (parse-opt-25959
+ (lambda (req-26283
+ opt-26284
+ rest-26285
+ kw-26286
+ body-26287
+ vars-26288
+ r*-26289
+ w*-26290
+ out-26291
+ inits-26292)
+ (if (pair? opt-26284)
+ (let ((tmp-26293 (car opt-26284)))
+ (let ((tmp-26294 ($sc-dispatch tmp-26293 '(any any))))
+ (if tmp-26294
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwsg7}#
- #{i -ANAU$bmvAmthP7L7xwsg8}#)
- (let ((#{v -ANAU$bmvAmthP7L7xwsg9}#
- (let ((#{id -ANAU$bmvAmthP7L7xwshF}#
- (if (if (vector?
- #{id
-ANAU$bmvAmthP7L7xwsg7}#)
+ (lambda (id-26296 i-26297)
+ (let ((v-26298
+ (let ((id-26306
+ (if (if (vector? id-26296)
(if (= (vector-length
- #{id
-ANAU$bmvAmthP7L7xwsg7}#)
+ id-26296)
4)
(eq? (vector-ref
- #{id
-ANAU$bmvAmthP7L7xwsg7}#
+ id-26296
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{id -ANAU$bmvAmthP7L7xwsg7}#
- 1)
- #{id -ANAU$bmvAmthP7L7xwsg7}#)))
+ (vector-ref id-26296 1)
+ id-26296)))
(gensym
(string-append
- (symbol->string
- #{id -ANAU$bmvAmthP7L7xwshF}#)
- " ")))))
- (let ((#{l -ANAU$bmvAmthP7L7xwsg$}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- (list #{v -ANAU$bmvAmthP7L7xwsg9}#))))
- (let ((#{r** address@hidden
- (#{extend-var-env
-ANAU$bmvAmthP7L7xwnNb}#
- #{l -ANAU$bmvAmthP7L7xwsg$}#
- (list #{v -ANAU$bmvAmthP7L7xwsg9}#)
- #{r* -ANAU$bmvAmthP7L7xwsg0}#)))
- (let ((#{w** -ANAU$bmvAmthP7L7xwshA}#
- (#{make-binding-wrap
-ANAU$bmvAmthP7L7xwnNu}#
- (list #{id
-ANAU$bmvAmthP7L7xwsg7}#)
- #{l -ANAU$bmvAmthP7L7xwsg$}#
- #{w* -ANAU$bmvAmthP7L7xwsg1}#)))
- (#{parse-opt -ANAU$bmvAmthP7L7xwsb4}#
- #{req -ANAU$bmvAmthP7L7xwsgu}#
- (cdr #{opt -ANAU$bmvAmthP7L7xwsgv}#)
- #{rest -ANAU$bmvAmthP7L7xwsgw}#
- #{kw -ANAU$bmvAmthP7L7xwsgx}#
- #{body -ANAU$bmvAmthP7L7xwsgy}#
- (cons #{v -ANAU$bmvAmthP7L7xwsg9}#
- #{vars -ANAU$bmvAmthP7L7xwsgz}#)
- #{r** address@hidden
- #{w** -ANAU$bmvAmthP7L7xwshA}#
- (cons (syntax->datum
- #{id -ANAU$bmvAmthP7L7xwsg7}#)
- #{out -ANAU$bmvAmthP7L7xwsg2}#)
- (cons (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{i -ANAU$bmvAmthP7L7xwsg8}#
- #{r* -ANAU$bmvAmthP7L7xwsg0}#
- #{w* -ANAU$bmvAmthP7L7xwsg1}#
- #{mod -ANAU$bmvAmthP7L7xwsb0}#)
- #{inits
-ANAU$bmvAmthP7L7xwsg3}#)))))))
- #{tmp -ANAU$bmvAmthP7L7xwsg5}#)
+ (symbol->string id-26306)
+ "-")))))
+ (let ((l-26299 (gen-labels-4489 (list v-26298))))
+ (let ((r**-26300
+ (extend-var-env-4481
+ l-26299
+ (list v-26298)
+ r*-26289)))
+ (let ((w**-26301
+ (make-binding-wrap-4500
+ (list id-26296)
+ l-26299
+ w*-26290)))
+ (parse-opt-25959
+ req-26283
+ (cdr opt-26284)
+ rest-26285
+ kw-26286
+ body-26287
+ (cons v-26298 vars-26288)
+ r**-26300
+ w**-26301
+ (cons (syntax->datum id-26296) out-26291)
+ (cons (expand-4522
+ i-26297
+ r*-26289
+ w*-26290
+ mod-25955)
+ inits-26292)))))))
+ tmp-26294)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwsg4}#))))
- (if #{rest -ANAU$bmvAmthP7L7xwsgw}#
- (let ((#{v -ANAU$bmvAmthP7L7xwskq}#
- (let ((#{id -ANAU$bmvAmthP7L7xwsk0}#
- (if (if (vector?
- #{rest -ANAU$bmvAmthP7L7xwsgw}#)
- (if (= (vector-length
- #{rest
-ANAU$bmvAmthP7L7xwsgw}#)
- 4)
- (eq? (vector-ref
- #{rest
-ANAU$bmvAmthP7L7xwsgw}#
- 0)
+ tmp-26293))))
+ (if rest-26285
+ (let ((v-26544
+ (let ((id-26554
+ (if (if (vector? rest-26285)
+ (if (= (vector-length rest-26285) 4)
+ (eq? (vector-ref rest-26285 0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{rest -ANAU$bmvAmthP7L7xwsgw}#
- 1)
- #{rest -ANAU$bmvAmthP7L7xwsgw}#)))
+ (vector-ref rest-26285 1)
+ rest-26285)))
(gensym
(string-append
- (symbol->string
- #{id -ANAU$bmvAmthP7L7xwsk0}#)
- " ")))))
- (let ((#{l -ANAU$bmvAmthP7L7xwskr}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- (list #{v -ANAU$bmvAmthP7L7xwskq}#))))
- (let ((#{r* -ANAU$bmvAmthP7L7xwsks}#
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- #{l -ANAU$bmvAmthP7L7xwskr}#
- (list #{v -ANAU$bmvAmthP7L7xwskq}#)
- #{r* -ANAU$bmvAmthP7L7xwsg0}#)))
- (let ((#{w* -ANAU$bmvAmthP7L7xwskt}#
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- (list #{rest -ANAU$bmvAmthP7L7xwsgw}#)
- #{l -ANAU$bmvAmthP7L7xwskr}#
- #{w* -ANAU$bmvAmthP7L7xwsg1}#)))
- (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}#
- #{req -ANAU$bmvAmthP7L7xwsgu}#
- (if (pair? #{out -ANAU$bmvAmthP7L7xwsg2}#)
- (reverse #{out -ANAU$bmvAmthP7L7xwsg2}#)
- #f)
- (syntax->datum #{rest -ANAU$bmvAmthP7L7xwsgw}#)
- (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- (cdr #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- #{body -ANAU$bmvAmthP7L7xwsgy}#
- (cons #{v -ANAU$bmvAmthP7L7xwskq}#
- #{vars -ANAU$bmvAmthP7L7xwsgz}#)
- #{r* -ANAU$bmvAmthP7L7xwsks}#
- #{w* -ANAU$bmvAmthP7L7xwskt}#
- (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- (car #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- #f)
+ (symbol->string id-26554)
+ "-")))))
+ (let ((l-26545 (gen-labels-4489 (list v-26544))))
+ (let ((r*-26546
+ (extend-var-env-4481
+ l-26545
+ (list v-26544)
+ r*-26289)))
+ (let ((w*-26547
+ (make-binding-wrap-4500
+ (list rest-26285)
+ l-26545
+ w*-26290)))
+ (parse-kw-25960
+ req-26283
+ (if (pair? out-26291) (reverse out-26291) #f)
+ (syntax->datum rest-26285)
+ (if (pair? kw-26286) (cdr kw-26286) kw-26286)
+ body-26287
+ (cons v-26544 vars-26288)
+ r*-26546
+ w*-26547
+ (if (pair? kw-26286) (car kw-26286) #f)
'()
- #{inits -ANAU$bmvAmthP7L7xwsg3}#)))))
- (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}#
- #{req -ANAU$bmvAmthP7L7xwsgu}#
- (if (pair? #{out -ANAU$bmvAmthP7L7xwsg2}#)
- (reverse #{out -ANAU$bmvAmthP7L7xwsg2}#)
- #f)
+ inits-26292)))))
+ (parse-kw-25960
+ req-26283
+ (if (pair? out-26291) (reverse out-26291) #f)
#f
- (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- (cdr #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- #{body -ANAU$bmvAmthP7L7xwsgy}#
- #{vars -ANAU$bmvAmthP7L7xwsgz}#
- #{r* -ANAU$bmvAmthP7L7xwsg0}#
- #{w* -ANAU$bmvAmthP7L7xwsg1}#
- (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- (car #{kw -ANAU$bmvAmthP7L7xwsgx}#)
- #f)
+ (if (pair? kw-26286) (cdr kw-26286) kw-26286)
+ body-26287
+ vars-26288
+ r*-26289
+ w*-26290
+ (if (pair? kw-26286) (car kw-26286) #f)
'()
- #{inits -ANAU$bmvAmthP7L7xwsg3}#)))))
- (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}#
- (lambda (#{req -ANAU$bmvAmthP7L7xwsnW}#
- #{opt -ANAU$bmvAmthP7L7xwsnX}#
- #{rest -ANAU$bmvAmthP7L7xwsnY}#
- #{kw -ANAU$bmvAmthP7L7xwsnZ}#
- #{body -ANAU$bmvAmthP7L7xwsna}#
- #{vars -ANAU$bmvAmthP7L7xwsnb}#
- #{r* -ANAU$bmvAmthP7L7xwsnc}#
- #{w* -ANAU$bmvAmthP7L7xwsnd}#
- #{aok -ANAU$bmvAmthP7L7xwsne}#
- #{out -ANAU$bmvAmthP7L7xwsnf}#
- #{inits -ANAU$bmvAmthP7L7xwsng}#)
- (if (pair? #{kw -ANAU$bmvAmthP7L7xwsnZ}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsnh}#
- (car #{kw -ANAU$bmvAmthP7L7xwsnZ}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsni}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwsnh}#
- '(any any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwsni}#
+ inits-26292)))))
+ (parse-kw-25960
+ (lambda (req-26725
+ opt-26726
+ rest-26727
+ kw-26728
+ body-26729
+ vars-26730
+ r*-26731
+ w*-26732
+ aok-26733
+ out-26734
+ inits-26735)
+ (if (pair? kw-26728)
+ (let ((tmp-26736 (car kw-26728)))
+ (let ((tmp-26737
+ ($sc-dispatch tmp-26736 '(any any any))))
+ (if tmp-26737
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xwsnk}#
- #{id -ANAU$bmvAmthP7L7xwsnl}#
- #{i -ANAU$bmvAmthP7L7xwsnm}#)
- (let ((#{v -ANAU$bmvAmthP7L7xwsnn}#
- (let ((#{id -ANAU$bmvAmthP7L7xwsnv}#
- (if (if (vector?
- #{id
-ANAU$bmvAmthP7L7xwsnl}#)
+ (lambda (k-26739 id-26740 i-26741)
+ (let ((v-26742
+ (let ((id-26750
+ (if (if (vector? id-26740)
(if (= (vector-length
- #{id
-ANAU$bmvAmthP7L7xwsnl}#)
+ id-26740)
4)
(eq? (vector-ref
- #{id
-ANAU$bmvAmthP7L7xwsnl}#
+ id-26740
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{id -ANAU$bmvAmthP7L7xwsnl}#
- 1)
- #{id -ANAU$bmvAmthP7L7xwsnl}#)))
+ (vector-ref id-26740 1)
+ id-26740)))
(gensym
(string-append
- (symbol->string
- #{id -ANAU$bmvAmthP7L7xwsnv}#)
- " ")))))
- (let ((#{l -ANAU$bmvAmthP7L7xwsno}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- (list #{v -ANAU$bmvAmthP7L7xwsnn}#))))
- (let ((#{r** -ANAU$bmvAmthP7L7xwsnp}#
- (#{extend-var-env
-ANAU$bmvAmthP7L7xwnNb}#
- #{l -ANAU$bmvAmthP7L7xwsno}#
- (list #{v -ANAU$bmvAmthP7L7xwsnn}#)
- #{r* -ANAU$bmvAmthP7L7xwsnc}#)))
- (let ((#{w** -ANAU$bmvAmthP7L7xwsnq}#
- (#{make-binding-wrap
-ANAU$bmvAmthP7L7xwnNu}#
- (list #{id
-ANAU$bmvAmthP7L7xwsnl}#)
- #{l -ANAU$bmvAmthP7L7xwsno}#
- #{w* -ANAU$bmvAmthP7L7xwsnd}#)))
- (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}#
- #{req -ANAU$bmvAmthP7L7xwsnW}#
- #{opt -ANAU$bmvAmthP7L7xwsnX}#
- #{rest -ANAU$bmvAmthP7L7xwsnY}#
- (cdr #{kw -ANAU$bmvAmthP7L7xwsnZ}#)
- #{body -ANAU$bmvAmthP7L7xwsna}#
- (cons #{v -ANAU$bmvAmthP7L7xwsnn}#
- #{vars -ANAU$bmvAmthP7L7xwsnb}#)
- #{r** -ANAU$bmvAmthP7L7xwsnp}#
- #{w** -ANAU$bmvAmthP7L7xwsnq}#
- #{aok -ANAU$bmvAmthP7L7xwsne}#
- (cons (list (syntax->datum
- #{k
-ANAU$bmvAmthP7L7xwsnk}#)
- (syntax->datum
- #{id
-ANAU$bmvAmthP7L7xwsnl}#)
- #{v -ANAU$bmvAmthP7L7xwsnn}#)
- #{out -ANAU$bmvAmthP7L7xwsnf}#)
- (cons (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{i -ANAU$bmvAmthP7L7xwsnm}#
- #{r* -ANAU$bmvAmthP7L7xwsnc}#
- #{w* -ANAU$bmvAmthP7L7xwsnd}#
- #{mod -ANAU$bmvAmthP7L7xwsb0}#)
- #{inits
-ANAU$bmvAmthP7L7xwsng}#)))))))
- #{tmp -ANAU$bmvAmthP7L7xwsni}#)
+ (symbol->string id-26750)
+ "-")))))
+ (let ((l-26743 (gen-labels-4489 (list v-26742))))
+ (let ((r**-26744
+ (extend-var-env-4481
+ l-26743
+ (list v-26742)
+ r*-26731)))
+ (let ((w**-26745
+ (make-binding-wrap-4500
+ (list id-26740)
+ l-26743
+ w*-26732)))
+ (parse-kw-25960
+ req-26725
+ opt-26726
+ rest-26727
+ (cdr kw-26728)
+ body-26729
+ (cons v-26742 vars-26730)
+ r**-26744
+ w**-26745
+ aok-26733
+ (cons (list (syntax->datum k-26739)
+ (syntax->datum id-26740)
+ v-26742)
+ out-26734)
+ (cons (expand-4522
+ i-26741
+ r*-26731
+ w*-26732
+ mod-25955)
+ inits-26735)))))))
+ tmp-26737)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwsnh}#))))
- (#{parse-body -ANAU$bmvAmthP7L7xwsb6}#
- #{req -ANAU$bmvAmthP7L7xwsnW}#
- #{opt -ANAU$bmvAmthP7L7xwsnX}#
- #{rest -ANAU$bmvAmthP7L7xwsnY}#
- (if (if #{aok -ANAU$bmvAmthP7L7xwsne}#
- #{aok -ANAU$bmvAmthP7L7xwsne}#
- (pair? #{out -ANAU$bmvAmthP7L7xwsnf}#))
- (cons #{aok -ANAU$bmvAmthP7L7xwsne}#
- (reverse #{out -ANAU$bmvAmthP7L7xwsnf}#))
+ tmp-26736))))
+ (parse-body-25961
+ req-26725
+ opt-26726
+ rest-26727
+ (if (if aok-26733 aok-26733 (pair? out-26734))
+ (cons aok-26733 (reverse out-26734))
#f)
- #{body -ANAU$bmvAmthP7L7xwsna}#
- (reverse #{vars -ANAU$bmvAmthP7L7xwsnb}#)
- #{r* -ANAU$bmvAmthP7L7xwsnc}#
- #{w* -ANAU$bmvAmthP7L7xwsnd}#
- (reverse #{inits -ANAU$bmvAmthP7L7xwsng}#)
+ body-26729
+ (reverse vars-26730)
+ r*-26731
+ w*-26732
+ (reverse inits-26735)
'()))))
- (#{parse-body -ANAU$bmvAmthP7L7xwsb6}#
- (lambda (#{req -ANAU$bmvAmthP7L7xwsrd}#
- #{opt -ANAU$bmvAmthP7L7xwsre}#
- #{rest -ANAU$bmvAmthP7L7xwsrf}#
- #{kw -ANAU$bmvAmthP7L7xwsrg}#
- #{body -ANAU$bmvAmthP7L7xwsrh}#
- #{vars -ANAU$bmvAmthP7L7xwsri}#
- #{r* -ANAU$bmvAmthP7L7xwsrj}#
- #{w* -ANAU$bmvAmthP7L7xwsrk}#
- #{inits -ANAU$bmvAmthP7L7xwsrl}#
- #{meta -ANAU$bmvAmthP7L7xwsrm}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsro}#
- ($sc-dispatch
- #{body -ANAU$bmvAmthP7L7xwsrh}#
- '(any any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwsro}#
+ (parse-body-25961
+ (lambda (req-26997
+ opt-26998
+ rest-26999
+ kw-27000
+ body-27001
+ vars-27002
+ r*-27003
+ w*-27004
+ inits-27005
+ meta-27006)
+ (let ((tmp-27008
+ ($sc-dispatch body-27001 '(any any . each-any))))
+ (if (if tmp-27008
(@apply
- (lambda (#{docstring -ANAU$bmvAmthP7L7xwsrs}#
- #{e1 -ANAU$bmvAmthP7L7xwsrt}#
- #{e2 -ANAU$bmvAmthP7L7xwsru}#)
- (string?
- (syntax->datum
- #{docstring -ANAU$bmvAmthP7L7xwsrs}#)))
- #{tmp -ANAU$bmvAmthP7L7xwsro}#)
+ (lambda (docstring-27012 e1-27013 e2-27014)
+ (string? (syntax->datum docstring-27012)))
+ tmp-27008)
#f)
(@apply
- (lambda (#{docstring -ANAU$bmvAmthP7L7xwsrv}#
- #{e1 -ANAU$bmvAmthP7L7xwsrw}#
- #{e2 -ANAU$bmvAmthP7L7xwsrx}#)
- (#{parse-body -ANAU$bmvAmthP7L7xwsb6}#
- #{req -ANAU$bmvAmthP7L7xwsrd}#
- #{opt -ANAU$bmvAmthP7L7xwsre}#
- #{rest -ANAU$bmvAmthP7L7xwsrf}#
- #{kw -ANAU$bmvAmthP7L7xwsrg}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwsrw}#
- #{e2 -ANAU$bmvAmthP7L7xwsrx}#)
- #{vars -ANAU$bmvAmthP7L7xwsri}#
- #{r* -ANAU$bmvAmthP7L7xwsrj}#
- #{w* -ANAU$bmvAmthP7L7xwsrk}#
- #{inits -ANAU$bmvAmthP7L7xwsrl}#
+ (lambda (docstring-27015 e1-27016 e2-27017)
+ (parse-body-25961
+ req-26997
+ opt-26998
+ rest-26999
+ kw-27000
+ (cons e1-27016 e2-27017)
+ vars-27002
+ r*-27003
+ w*-27004
+ inits-27005
(append
- #{meta -ANAU$bmvAmthP7L7xwsrm}#
+ meta-27006
(list (cons 'documentation
- (syntax->datum
- #{docstring
-ANAU$bmvAmthP7L7xwsrv}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwsro}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsry}#
+ (syntax->datum docstring-27015))))))
+ tmp-27008)
+ (let ((tmp-27018
($sc-dispatch
- #{body -ANAU$bmvAmthP7L7xwsrh}#
+ body-27001
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwsry}#
+ (if tmp-27018
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xwsr2}#
- #{v -ANAU$bmvAmthP7L7xwsr3}#
- #{e1 -ANAU$bmvAmthP7L7xwsr4}#
- #{e2 -ANAU$bmvAmthP7L7xwsr5}#)
- (#{parse-body -ANAU$bmvAmthP7L7xwsb6}#
- #{req -ANAU$bmvAmthP7L7xwsrd}#
- #{opt -ANAU$bmvAmthP7L7xwsre}#
- #{rest -ANAU$bmvAmthP7L7xwsrf}#
- #{kw -ANAU$bmvAmthP7L7xwsrg}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwsr4}#
- #{e2 -ANAU$bmvAmthP7L7xwsr5}#)
- #{vars -ANAU$bmvAmthP7L7xwsri}#
- #{r* -ANAU$bmvAmthP7L7xwsrj}#
- #{w* -ANAU$bmvAmthP7L7xwsrk}#
- #{inits -ANAU$bmvAmthP7L7xwsrl}#
+ (lambda (k-27022 v-27023 e1-27024 e2-27025)
+ (parse-body-25961
+ req-26997
+ opt-26998
+ rest-26999
+ kw-27000
+ (cons e1-27024 e2-27025)
+ vars-27002
+ r*-27003
+ w*-27004
+ inits-27005
(append
- #{meta -ANAU$bmvAmthP7L7xwsrm}#
- (syntax->datum
- (map cons
- #{k -ANAU$bmvAmthP7L7xwsr2}#
- #{v -ANAU$bmvAmthP7L7xwsr3}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwsry}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsr6}#
- ($sc-dispatch
- #{body -ANAU$bmvAmthP7L7xwsrh}#
- '(any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwsr6}#
+ meta-27006
+ (syntax->datum (map cons k-27022 v-27023)))))
+ tmp-27018)
+ (let ((tmp-27026
+ ($sc-dispatch body-27001 '(any . each-any))))
+ (if tmp-27026
(@apply
- (lambda (#{e1 -ANAU$bmvAmthP7L7xwsr$}#
- #{e2 address@hidden)
+ (lambda (e1-27030 e2-27031)
(values
- #{meta -ANAU$bmvAmthP7L7xwsrm}#
- #{req -ANAU$bmvAmthP7L7xwsrd}#
- #{opt -ANAU$bmvAmthP7L7xwsre}#
- #{rest -ANAU$bmvAmthP7L7xwsrf}#
- #{kw -ANAU$bmvAmthP7L7xwsrg}#
- #{inits -ANAU$bmvAmthP7L7xwsrl}#
- #{vars -ANAU$bmvAmthP7L7xwsri}#
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwsr$}#
- #{e2 address@hidden)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ meta-27006
+ req-26997
+ opt-26998
+ rest-26999
+ kw-27000
+ inits-27005
+ vars-27002
+ (expand-body-4526
+ (cons e1-27030 e2-27031)
+ (wrap-4515
(begin
- (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwsbw}#)
- #{s -ANAU$bmvAmthP7L7xwsbz}#
- #f)
+ (if (if (pair? e-25951) s-25954 #f)
(set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwsbw}#
- #{s -ANAU$bmvAmthP7L7xwsbz}#))
- #{e -ANAU$bmvAmthP7L7xwsbw}#)
- #{w -ANAU$bmvAmthP7L7xwsby}#
- #{mod -ANAU$bmvAmthP7L7xwsb0}#)
- #{r* -ANAU$bmvAmthP7L7xwsrj}#
- #{w* -ANAU$bmvAmthP7L7xwsrk}#
- #{mod -ANAU$bmvAmthP7L7xwsb0}#)))
- #{tmp -ANAU$bmvAmthP7L7xwsr6}#)
+ e-25951
+ s-25954))
+ e-25951)
+ w-25953
+ mod-25955)
+ r*-27003
+ w*-27004
+ mod-25955)))
+ tmp-27026)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{body -ANAU$bmvAmthP7L7xwsrh}#))))))))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwsb8}#
- ($sc-dispatch
- #{clauses -ANAU$bmvAmthP7L7xwsb2}#
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xwsb8}#
- (@apply
- (lambda () (values '() #f))
- #{tmp -ANAU$bmvAmthP7L7xwsb8}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwscA}#
+ body-27001))))))))))
+ (let ((tmp-25963 ($sc-dispatch clauses-25957 '())))
+ (if tmp-25963
+ (@apply (lambda () (values '() #f)) tmp-25963)
+ (let ((tmp-25967
($sc-dispatch
- #{clauses -ANAU$bmvAmthP7L7xwsb2}#
+ clauses-25957
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp -ANAU$bmvAmthP7L7xwscA}#
+ (if tmp-25967
(@apply
- (lambda (#{args -ANAU$bmvAmthP7L7xwscE}#
- #{e1 -ANAU$bmvAmthP7L7xwscF}#
- #{e2 -ANAU$bmvAmthP7L7xwscG}#
- #{args* -ANAU$bmvAmthP7L7xwscH}#
- #{e1* -ANAU$bmvAmthP7L7xwscI}#
- #{e2* -ANAU$bmvAmthP7L7xwscJ}#)
+ (lambda (args-25971
+ e1-25972
+ e2-25973
+ args*-25974
+ e1*-25975
+ e2*-25976)
(call-with-values
- (lambda ()
- (#{get-formals -ANAU$bmvAmthP7L7xwsb1}#
- #{args -ANAU$bmvAmthP7L7xwscE}#))
- (lambda (#{req -ANAU$bmvAmthP7L7xwscK}#
- #{opt -ANAU$bmvAmthP7L7xwscL}#
- #{rest -ANAU$bmvAmthP7L7xwscM}#
- #{kw -ANAU$bmvAmthP7L7xwscN}#)
+ (lambda () (get-formals-25956 args-25971))
+ (lambda (req-25977 opt-25978 rest-25979 kw-25980)
(call-with-values
(lambda ()
- (#{parse-req -ANAU$bmvAmthP7L7xwsb3}#
- #{req -ANAU$bmvAmthP7L7xwscK}#
- #{opt -ANAU$bmvAmthP7L7xwscL}#
- #{rest -ANAU$bmvAmthP7L7xwscM}#
- #{kw -ANAU$bmvAmthP7L7xwscN}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwscF}#
- #{e2 -ANAU$bmvAmthP7L7xwscG}#)))
- (lambda (#{meta -ANAU$bmvAmthP7L7xwsdK}#
- #{req -ANAU$bmvAmthP7L7xwsdL}#
- #{opt -ANAU$bmvAmthP7L7xwsdM}#
- #{rest -ANAU$bmvAmthP7L7xwsdN}#
- #{kw -ANAU$bmvAmthP7L7xwsdO}#
- #{inits -ANAU$bmvAmthP7L7xwsdP}#
- #{vars -ANAU$bmvAmthP7L7xwsdQ}#
- #{body -ANAU$bmvAmthP7L7xwsdR}#)
+ (parse-req-25958
+ req-25977
+ opt-25978
+ rest-25979
+ kw-25980
+ (cons e1-25972 e2-25973)))
+ (lambda (meta-26045
+ req-26046
+ opt-26047
+ rest-26048
+ kw-26049
+ inits-26050
+ vars-26051
+ body-26052)
(call-with-values
(lambda ()
- (#{expand-lambda-case
-ANAU$bmvAmthP7L7xwnOQ}#
- #{e -ANAU$bmvAmthP7L7xwsbw}#
- #{r -ANAU$bmvAmthP7L7xwsbx}#
- #{w -ANAU$bmvAmthP7L7xwsby}#
- #{s -ANAU$bmvAmthP7L7xwsbz}#
- #{mod -ANAU$bmvAmthP7L7xwsb0}#
- #{get-formals -ANAU$bmvAmthP7L7xwsb1}#
- (map (lambda (#{tmp
-ANAU$bmvAmthP7L7xwm9f -ANAU$bmvAmthP7L7xwsdS}#
- #{tmp
-ANAU$bmvAmthP7L7xwm9e -ANAU$bmvAmthP7L7xwsdT}#
- #{tmp
-ANAU$bmvAmthP7L7xwm9d -ANAU$bmvAmthP7L7xwsdU}#)
- (cons #{tmp -ANAU$bmvAmthP7L7xwm9d
-ANAU$bmvAmthP7L7xwsdU}#
- (cons #{tmp
-ANAU$bmvAmthP7L7xwm9e -ANAU$bmvAmthP7L7xwsdT}#
- #{tmp
-ANAU$bmvAmthP7L7xwm9f -ANAU$bmvAmthP7L7xwsdS}#)))
- #{e2* -ANAU$bmvAmthP7L7xwscJ}#
- #{e1* -ANAU$bmvAmthP7L7xwscI}#
- #{args* -ANAU$bmvAmthP7L7xwscH}#)))
- (lambda (#{meta* -ANAU$bmvAmthP7L7xwsdV}#
- #{else* -ANAU$bmvAmthP7L7xwsdW}#)
+ (expand-lambda-case-4534
+ e-25951
+ r-25952
+ w-25953
+ s-25954
+ mod-25955
+ get-formals-25956
+ (map (lambda (tmp-2888-26053
+ tmp-2887-26054
+ tmp-2886-26055)
+ (cons tmp-2886-26055
+ (cons tmp-2887-26054
+ tmp-2888-26053)))
+ e2*-25976
+ e1*-25975
+ args*-25974)))
+ (lambda (meta*-26056 else*-26057)
(values
- (append
- #{meta -ANAU$bmvAmthP7L7xwsdK}#
- #{meta* -ANAU$bmvAmthP7L7xwsdV}#)
+ (append meta-26045 meta*-26056)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s -ANAU$bmvAmthP7L7xwsbz}#
- #{req -ANAU$bmvAmthP7L7xwsdL}#
- #{opt -ANAU$bmvAmthP7L7xwsdM}#
- #{rest -ANAU$bmvAmthP7L7xwsdN}#
- #{kw -ANAU$bmvAmthP7L7xwsdO}#
- #{inits -ANAU$bmvAmthP7L7xwsdP}#
- #{vars -ANAU$bmvAmthP7L7xwsdQ}#
- #{body -ANAU$bmvAmthP7L7xwsdR}#
- #{else*
-ANAU$bmvAmthP7L7xwsdW}#)))))))))
- #{tmp -ANAU$bmvAmthP7L7xwscA}#)
+ s-25954
+ req-26046
+ opt-26047
+ rest-26048
+ kw-26049
+ inits-26050
+ vars-26051
+ body-26052
+ else*-26057)))))))))
+ tmp-25967)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{clauses -ANAU$bmvAmthP7L7xwsb2}#))))))))
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwssk}#
- #{w -ANAU$bmvAmthP7L7xwssl}#)
- (if (memq 'top (car #{w -ANAU$bmvAmthP7L7xwssl}#))
- #{x -ANAU$bmvAmthP7L7xwssk}#
+ clauses-25957))))))))
+ (strip-4535
+ (lambda (x-27068 w-27069)
+ (if (memq 'top (car w-27069))
+ x-27068
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwssm}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwssp}#)
- (if (if (vector? #{x -ANAU$bmvAmthP7L7xwssp}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwssp}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 0)
- 'syntax-object)
+ ((f-27070
+ (lambda (x-27073)
+ (if (if (vector? x-27073)
+ (if (= (vector-length x-27073) 4)
+ (eq? (vector-ref x-27073 0) 'syntax-object)
#f)
#f)
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 1)
- (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 2))
- (if (pair? #{x -ANAU$bmvAmthP7L7xwssp}#)
- (let ((#{a -ANAU$bmvAmthP7L7xwss8}#
- (#{f -ANAU$bmvAmthP7L7xwssm}#
- (car #{x -ANAU$bmvAmthP7L7xwssp}#)))
- (#{d -ANAU$bmvAmthP7L7xwss9}#
- (#{f -ANAU$bmvAmthP7L7xwssm}#
- (cdr #{x -ANAU$bmvAmthP7L7xwssp}#))))
- (if (if (eq? #{a -ANAU$bmvAmthP7L7xwss8}#
- (car #{x -ANAU$bmvAmthP7L7xwssp}#))
- (eq? #{d -ANAU$bmvAmthP7L7xwss9}#
- (cdr #{x -ANAU$bmvAmthP7L7xwssp}#))
+ (strip-4535
+ (vector-ref x-27073 1)
+ (vector-ref x-27073 2))
+ (if (pair? x-27073)
+ (let ((a-27092 (f-27070 (car x-27073)))
+ (d-27093 (f-27070 (cdr x-27073))))
+ (if (if (eq? a-27092 (car x-27073))
+ (eq? d-27093 (cdr x-27073))
#f)
- #{x -ANAU$bmvAmthP7L7xwssp}#
- (cons #{a -ANAU$bmvAmthP7L7xwss8}#
- #{d -ANAU$bmvAmthP7L7xwss9}#)))
- (if (vector? #{x -ANAU$bmvAmthP7L7xwssp}#)
- (let ((#{old -ANAU$bmvAmthP7L7xwstA}#
- (vector->list #{x -ANAU$bmvAmthP7L7xwssp}#)))
- (let ((#{new -ANAU$bmvAmthP7L7xwstB}#
- (map #{f -ANAU$bmvAmthP7L7xwssm}#
- #{old -ANAU$bmvAmthP7L7xwstA}#)))
+ x-27073
+ (cons a-27092 d-27093)))
+ (if (vector? x-27073)
+ (let ((old-27096 (vector->list x-27073)))
+ (let ((new-27097 (map f-27070 old-27096)))
(letrec*
- ((#{lp -ANAU$bmvAmthP7L7xwstC}#
- (lambda (#{l1 -ANAU$bmvAmthP7L7xwsuO}#
- #{l2 -ANAU$bmvAmthP7L7xwsuP}#)
- (if (null? #{l1 -ANAU$bmvAmthP7L7xwsuO}#)
- #{x -ANAU$bmvAmthP7L7xwssp}#
- (if (eq? (car #{l1
-ANAU$bmvAmthP7L7xwsuO}#)
- (car #{l2
-ANAU$bmvAmthP7L7xwsuP}#))
- (#{lp -ANAU$bmvAmthP7L7xwstC}#
- (cdr #{l1 -ANAU$bmvAmthP7L7xwsuO}#)
- (cdr #{l2 -ANAU$bmvAmthP7L7xwsuP}#))
- (list->vector
- #{new -ANAU$bmvAmthP7L7xwstB}#))))))
- (#{lp -ANAU$bmvAmthP7L7xwstC}#
- #{old -ANAU$bmvAmthP7L7xwstA}#
- #{new -ANAU$bmvAmthP7L7xwstB}#))))
- #{x -ANAU$bmvAmthP7L7xwssp}#))))))
- (#{f -ANAU$bmvAmthP7L7xwssm}#
- #{x -ANAU$bmvAmthP7L7xwssk}#)))))
- (#{gen-var -ANAU$bmvAmthP7L7xwnOS}#
- (lambda (#{id -ANAU$bmvAmthP7L7xwseC}#)
- (let ((#{id -ANAU$bmvAmthP7L7xwseD}#
- (if (if (vector? #{id -ANAU$bmvAmthP7L7xwseC}#)
- (if (= (vector-length #{id -ANAU$bmvAmthP7L7xwseC}#)
- 4)
- (eq? (vector-ref #{id -ANAU$bmvAmthP7L7xwseC}# 0)
- 'syntax-object)
+ ((lp-27098
+ (lambda (l1-27174 l2-27175)
+ (if (null? l1-27174)
+ x-27073
+ (if (eq? (car l1-27174) (car l2-27175))
+ (lp-27098 (cdr l1-27174) (cdr l2-27175))
+ (list->vector new-27097))))))
+ (lp-27098 old-27096 new-27097))))
+ x-27073))))))
+ (f-27070 x-27068)))))
+ (gen-var-4536
+ (lambda (id-26101)
+ (let ((id-26102
+ (if (if (vector? id-26101)
+ (if (= (vector-length id-26101) 4)
+ (eq? (vector-ref id-26101 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id -ANAU$bmvAmthP7L7xwseC}# 1)
- #{id -ANAU$bmvAmthP7L7xwseC}#)))
+ (vector-ref id-26101 1)
+ id-26101)))
(gensym
- (string-append
- (symbol->string #{id -ANAU$bmvAmthP7L7xwseD}#)
- " "))))))
+ (string-append (symbol->string id-26102) "-"))))))
(begin
- (set! #{gen-label -ANAU$bmvAmthP7L7xwnNi}#
- (let ((#{i -ANAU$bmvAmthP7L7xwqAX}# 0))
- (lambda ()
- (let ((#{n -ANAU$bmvAmthP7L7xwqAY}#
- #{i -ANAU$bmvAmthP7L7xwqAX}#))
- (begin
- (set! #{i -ANAU$bmvAmthP7L7xwqAX}#
- (#{1+}# #{n -ANAU$bmvAmthP7L7xwqAY}#))
- (number->string #{n -ANAU$bmvAmthP7L7xwqAY}# 36))))))
- (set! #{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#
+ (set! session-id-4447
+ (let ((v-15641
+ (module-variable
+ (current-module)
+ 'syntax-session-id)))
+ (lambda () ((variable-ref v-15641)))))
+ (set! transformer-environment-4508
(make-fluid
- (lambda (#{k -ANAU$bmvAmthP7L7xwpsD}#)
+ (lambda (k-14684)
(error "called outside the dynamic extent of a syntax
transformer"))))
(module-define!
(current-module)
@@ -8976,1500 +8096,1094 @@
'let-syntax
'local-syntax
#f))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ (global-extend-4484
'core
'syntax-parameterize
- (lambda (#{e -ANAU$bmvAmthP7L7xwnQL}#
- #{r -ANAU$bmvAmthP7L7xwnQM}#
- #{w -ANAU$bmvAmthP7L7xwnQN}#
- #{s -ANAU$bmvAmthP7L7xwnQO}#
- #{mod -ANAU$bmvAmthP7L7xwnQP}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnQR}#
+ (lambda (e-4657 r-4658 w-4659 s-4660 mod-4661)
+ (let ((tmp-4663
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnQL}#
+ e-4657
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwnQR}#
+ (if (if tmp-4663
(@apply
- (lambda (#{var -ANAU$bmvAmthP7L7xwnQV}#
- #{val -ANAU$bmvAmthP7L7xwnQW}#
- #{e1 -ANAU$bmvAmthP7L7xwnQX}#
- #{e2 -ANAU$bmvAmthP7L7xwnQY}#)
- (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
- #{var -ANAU$bmvAmthP7L7xwnQV}#))
- #{tmp -ANAU$bmvAmthP7L7xwnQR}#)
+ (lambda (var-4667 val-4668 e1-4669 e2-4670)
+ (valid-bound-ids?-4512 var-4667))
+ tmp-4663)
#f)
(@apply
- (lambda (#{var -ANAU$bmvAmthP7L7xwnRm}#
- #{val -ANAU$bmvAmthP7L7xwnRn}#
- #{e1 -ANAU$bmvAmthP7L7xwnRo}#
- #{e2 -ANAU$bmvAmthP7L7xwnRp}#)
- (let ((#{names -ANAU$bmvAmthP7L7xwnRq}#
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwnSc}#)
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{x -ANAU$bmvAmthP7L7xwnSc}#
- #{w -ANAU$bmvAmthP7L7xwnQN}#))
- #{var -ANAU$bmvAmthP7L7xwnRm}#)))
+ (lambda (var-4748 val-4749 e1-4750 e2-4751)
+ (let ((names-4752
+ (map (lambda (x-4802)
+ (id-var-name-4505 x-4802 w-4659))
+ var-4748)))
(begin
(for-each
- (lambda (#{id -ANAU$bmvAmthP7L7xwnRr}#
- #{n -ANAU$bmvAmthP7L7xwnRs}#)
- (let ((#{atom-key -ANAU$bmvAmthP7L7xwnRt}#
- (car (let ((#{t -ANAU$bmvAmthP7L7xwnR0}#
- (assq #{n
-ANAU$bmvAmthP7L7xwnRs}#
- #{r
-ANAU$bmvAmthP7L7xwnQM}#)))
- (if #{t -ANAU$bmvAmthP7L7xwnR0}#
- (cdr #{t -ANAU$bmvAmthP7L7xwnR0}#)
- (if (symbol?
- #{n -ANAU$bmvAmthP7L7xwnRs}#)
- (let ((#{t
-ANAU$bmvAmthP7L7xwnR5}#
-
(#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}#
- #{n
-ANAU$bmvAmthP7L7xwnRs}#
- #{mod
-ANAU$bmvAmthP7L7xwnQP}#)))
- (if #{t -ANAU$bmvAmthP7L7xwnR5}#
- #{t -ANAU$bmvAmthP7L7xwnR5}#
- '(global)))
+ (lambda (id-4753 n-4754)
+ (let ((atom-key-4755
+ (car (let ((t-4762 (assq n-4754 r-4658)))
+ (if t-4762
+ (cdr t-4762)
+ (if (symbol? n-4754)
+ (let ((t-4767
+
(get-global-definition-hook-4449
+ n-4754
+ mod-4661)))
+ (if t-4767 t-4767 '(global)))
'(displaced-lexical)))))))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwnRt}#
- 'displaced-lexical)
+ (if (eqv? atom-key-4755 'displaced-lexical)
(syntax-violation
'syntax-parameterize
"identifier out of context"
- #{e -ANAU$bmvAmthP7L7xwnQL}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ e-4657
+ (wrap-4515
(begin
- (if (if (pair? #{id
-ANAU$bmvAmthP7L7xwnRr}#)
- #{s -ANAU$bmvAmthP7L7xwnQO}#
- #f)
- (set-source-properties!
- #{id -ANAU$bmvAmthP7L7xwnRr}#
- #{s -ANAU$bmvAmthP7L7xwnQO}#))
- #{id -ANAU$bmvAmthP7L7xwnRr}#)
- #{w -ANAU$bmvAmthP7L7xwnQN}#
- #{mod -ANAU$bmvAmthP7L7xwnQP}#)))))
- #{var -ANAU$bmvAmthP7L7xwnRm}#
- #{names -ANAU$bmvAmthP7L7xwnRq}#)
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnRo}#
- #{e2 -ANAU$bmvAmthP7L7xwnRp}#)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (if (if (pair? id-4753) s-4660 #f)
+ (set-source-properties! id-4753 s-4660))
+ id-4753)
+ w-4659
+ mod-4661)))))
+ var-4748
+ names-4752)
+ (expand-body-4526
+ (cons e1-4750 e2-4751)
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnQL}#)
- #{s -ANAU$bmvAmthP7L7xwnQO}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwnQL}#
- #{s -ANAU$bmvAmthP7L7xwnQO}#))
- #{e -ANAU$bmvAmthP7L7xwnQL}#)
- #{w -ANAU$bmvAmthP7L7xwnQN}#
- #{mod -ANAU$bmvAmthP7L7xwnQP}#)
- (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
- #{names -ANAU$bmvAmthP7L7xwnRq}#
- (let ((#{trans-r -ANAU$bmvAmthP7L7xwnTy}#
- (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
- #{r -ANAU$bmvAmthP7L7xwnQM}#)))
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwnTz}#)
+ (if (if (pair? e-4657) s-4660 #f)
+ (set-source-properties! e-4657 s-4660))
+ e-4657)
+ w-4659
+ mod-4661)
+ (extend-env-4480
+ names-4752
+ (let ((trans-r-4888 (macros-only-env-4482 r-4658)))
+ (map (lambda (x-4889)
(cons 'macro
- (#{eval-local-transformer
-ANAU$bmvAmthP7L7xwnOK}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{x -ANAU$bmvAmthP7L7xwnTz}#
- #{trans-r -ANAU$bmvAmthP7L7xwnTy}#
- #{w -ANAU$bmvAmthP7L7xwnQN}#
- #{mod -ANAU$bmvAmthP7L7xwnQP}#)
- #{mod -ANAU$bmvAmthP7L7xwnQP}#)))
- #{val -ANAU$bmvAmthP7L7xwnRn}#))
- #{r -ANAU$bmvAmthP7L7xwnQM}#)
- #{w -ANAU$bmvAmthP7L7xwnQN}#
- #{mod -ANAU$bmvAmthP7L7xwnQP}#))))
- #{tmp -ANAU$bmvAmthP7L7xwnQR}#)
+ (eval-local-transformer-4528
+ (expand-4522
+ x-4889
+ trans-r-4888
+ w-4659
+ mod-4661)
+ mod-4661)))
+ val-4749))
+ r-4658)
+ w-4659
+ mod-4661))))
+ tmp-4663)
(syntax-violation
'syntax-parameterize
"bad syntax"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnQL}#)
- #{s -ANAU$bmvAmthP7L7xwnQO}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwnQL}#
- #{s -ANAU$bmvAmthP7L7xwnQO}#))
- #{e -ANAU$bmvAmthP7L7xwnQL}#)
- #{w -ANAU$bmvAmthP7L7xwnQN}#
- #{mod -ANAU$bmvAmthP7L7xwnQP}#))))))
+ (if (if (pair? e-4657) s-4660 #f)
+ (set-source-properties! e-4657 s-4660))
+ e-4657)
+ w-4659
+ mod-4661))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (#{e -ANAU$bmvAmthP7L7xwnXE}#
- #{r -ANAU$bmvAmthP7L7xwnXF}#
- #{w -ANAU$bmvAmthP7L7xwnXG}#
- #{s -ANAU$bmvAmthP7L7xwnXH}#
- #{mod -ANAU$bmvAmthP7L7xwnXI}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnXK}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnXE}#
- '(_ any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwnXK}#
+ (lambda (e-5098 r-5099 w-5100 s-5101 mod-5102)
+ (let ((tmp-5104 ($sc-dispatch e-5098 '(_ any))))
+ (if tmp-5104
(@apply
- (lambda (#{e -ANAU$bmvAmthP7L7xwnXN}#)
- (let ((#{exp -ANAU$bmvAmthP7L7xwnXR}#
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- #{e -ANAU$bmvAmthP7L7xwnXN}#
- #{w -ANAU$bmvAmthP7L7xwnXG}#)))
+ (lambda (e-5107)
+ (let ((exp-5111 (strip-4535 e-5107 w-5100)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s -ANAU$bmvAmthP7L7xwnXH}#
- #{exp -ANAU$bmvAmthP7L7xwnXR}#)))
- #{tmp -ANAU$bmvAmthP7L7xwnXK}#)
+ s-5101
+ exp-5111)))
+ tmp-5104)
(syntax-violation
'quote
"bad syntax"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnXE}#)
- #{s -ANAU$bmvAmthP7L7xwnXH}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwnXE}#
- #{s -ANAU$bmvAmthP7L7xwnXH}#))
- #{e -ANAU$bmvAmthP7L7xwnXE}#)
- #{w -ANAU$bmvAmthP7L7xwnXG}#
- #{mod -ANAU$bmvAmthP7L7xwnXI}#)))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ (if (if (pair? e-5098) s-5101 #f)
+ (set-source-properties! e-5098 s-5101))
+ e-5098)
+ w-5100
+ mod-5102)))))))
+ (global-extend-4484
'core
'syntax
(letrec*
- ((#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
- (lambda (#{src -ANAU$bmvAmthP7L7xwncT}#
- #{e -ANAU$bmvAmthP7L7xwncU}#
- #{r -ANAU$bmvAmthP7L7xwncV}#
- #{maps -ANAU$bmvAmthP7L7xwncW}#
- #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{mod -ANAU$bmvAmthP7L7xwncY}#)
- (if (if (symbol? #{e -ANAU$bmvAmthP7L7xwncU}#)
+ ((gen-syntax-5331
+ (lambda (src-5433
+ e-5434
+ r-5435
+ maps-5436
+ ellipsis?-5437
+ mod-5438)
+ (if (if (symbol? e-5434)
#t
- (if (if (vector? #{e -ANAU$bmvAmthP7L7xwncU}#)
- (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwncU}#)
- 4)
- (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwncU}# 0)
- 'syntax-object)
+ (if (if (vector? e-5434)
+ (if (= (vector-length e-5434) 4)
+ (eq? (vector-ref e-5434 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{e -ANAU$bmvAmthP7L7xwncU}# 1))
+ (symbol? (vector-ref e-5434 1))
#f))
- (let ((#{label -ANAU$bmvAmthP7L7xwncz}#
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{e -ANAU$bmvAmthP7L7xwncU}#
- '(()))))
- (let ((#{b -ANAU$bmvAmthP7L7xwnc0}#
- (let ((#{t -ANAU$bmvAmthP7L7xwnc7}#
- (assq #{label -ANAU$bmvAmthP7L7xwncz}#
- #{r -ANAU$bmvAmthP7L7xwncV}#)))
- (if #{t -ANAU$bmvAmthP7L7xwnc7}#
- (cdr #{t -ANAU$bmvAmthP7L7xwnc7}#)
- (if (symbol? #{label -ANAU$bmvAmthP7L7xwncz}#)
- (let ((#{t -ANAU$bmvAmthP7L7xwndB}#
- (#{get-global-definition-hook
-ANAU$bmvAmthP7L7xwnM7}#
- #{label -ANAU$bmvAmthP7L7xwncz}#
- #{mod -ANAU$bmvAmthP7L7xwncY}#)))
- (if #{t -ANAU$bmvAmthP7L7xwndB}#
- #{t -ANAU$bmvAmthP7L7xwndB}#
- '(global)))
+ (let ((label-5465 (id-var-name-4505 e-5434 '(()))))
+ (let ((b-5466
+ (let ((t-5473 (assq label-5465 r-5435)))
+ (if t-5473
+ (cdr t-5473)
+ (if (symbol? label-5465)
+ (let ((t-5479
+ (get-global-definition-hook-4449
+ label-5465
+ mod-5438)))
+ (if t-5479 t-5479 '(global)))
'(displaced-lexical))))))
- (if (eq? (car #{b -ANAU$bmvAmthP7L7xwnc0}#) 'syntax)
+ (if (eq? (car b-5466) 'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev -ANAU$bmvAmthP7L7xwndK}#
- (cdr #{b -ANAU$bmvAmthP7L7xwnc0}#)))
- (#{gen-ref -ANAU$bmvAmthP7L7xwnau}#
- #{src -ANAU$bmvAmthP7L7xwncT}#
- (car #{var.lev -ANAU$bmvAmthP7L7xwndK}#)
- (cdr #{var.lev -ANAU$bmvAmthP7L7xwndK}#)
- #{maps -ANAU$bmvAmthP7L7xwncW}#)))
- (lambda (#{var -ANAU$bmvAmthP7L7xwndO}#
- #{maps -ANAU$bmvAmthP7L7xwndP}#)
- (values
- (list 'ref #{var -ANAU$bmvAmthP7L7xwndO}#)
- #{maps -ANAU$bmvAmthP7L7xwndP}#)))
- (if (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{e -ANAU$bmvAmthP7L7xwncU}#)
+ (let ((var.lev-5488 (cdr b-5466)))
+ (gen-ref-5332
+ src-5433
+ (car var.lev-5488)
+ (cdr var.lev-5488)
+ maps-5436)))
+ (lambda (var-5492 maps-5493)
+ (values (list 'ref var-5492) maps-5493)))
+ (if (ellipsis?-5437 e-5434)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src -ANAU$bmvAmthP7L7xwncT}#)
- (values
- (list 'quote #{e -ANAU$bmvAmthP7L7xwncU}#)
- #{maps -ANAU$bmvAmthP7L7xwncW}#)))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwndR}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwncU}#
- '(any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwndR}#
+ src-5433)
+ (values (list 'quote e-5434) maps-5436)))))
+ (let ((tmp-5495 ($sc-dispatch e-5434 '(any any))))
+ (if (if tmp-5495
(@apply
- (lambda (#{dots -ANAU$bmvAmthP7L7xwndV}#
- #{e -ANAU$bmvAmthP7L7xwndW}#)
- (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{dots -ANAU$bmvAmthP7L7xwndV}#))
- #{tmp -ANAU$bmvAmthP7L7xwndR}#)
+ (lambda (dots-5499 e-5500)
+ (ellipsis?-5437 dots-5499))
+ tmp-5495)
#f)
(@apply
- (lambda (#{dots -ANAU$bmvAmthP7L7xwndX}#
- #{e -ANAU$bmvAmthP7L7xwndY}#)
- (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
- #{src -ANAU$bmvAmthP7L7xwncT}#
- #{e -ANAU$bmvAmthP7L7xwndY}#
- #{r -ANAU$bmvAmthP7L7xwncV}#
- #{maps -ANAU$bmvAmthP7L7xwncW}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwndZ}#) #f)
- #{mod -ANAU$bmvAmthP7L7xwncY}#))
- #{tmp -ANAU$bmvAmthP7L7xwndR}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnda}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwncU}#
- '(any any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwnda}#
+ (lambda (dots-5501 e-5502)
+ (gen-syntax-5331
+ src-5433
+ e-5502
+ r-5435
+ maps-5436
+ (lambda (x-5503) #f)
+ mod-5438))
+ tmp-5495)
+ (let ((tmp-5504 ($sc-dispatch e-5434 '(any any . any))))
+ (if (if tmp-5504
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwnde}#
- #{dots -ANAU$bmvAmthP7L7xwndf}#
- #{y -ANAU$bmvAmthP7L7xwndg}#)
- (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{dots -ANAU$bmvAmthP7L7xwndf}#))
- #{tmp -ANAU$bmvAmthP7L7xwnda}#)
+ (lambda (x-5508 dots-5509 y-5510)
+ (ellipsis?-5437 dots-5509))
+ tmp-5504)
#f)
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwndh}#
- #{dots -ANAU$bmvAmthP7L7xwndi}#
- #{y -ANAU$bmvAmthP7L7xwndj}#)
+ (lambda (x-5511 dots-5512 y-5513)
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwndk}#
- (lambda (#{y -ANAU$bmvAmthP7L7xwnds}#
- #{k -ANAU$bmvAmthP7L7xwndt}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwndv}#
+ ((f-5514
+ (lambda (y-5522 k-5523)
+ (let ((tmp-5525
($sc-dispatch
- #{y -ANAU$bmvAmthP7L7xwnds}#
+ y-5522
'(any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwndv}#
+ (if (if tmp-5525
(@apply
- (lambda (#{dots
-ANAU$bmvAmthP7L7xwndz}#
- #{y
-ANAU$bmvAmthP7L7xwnd0}#)
- (#{ellipsis?
-ANAU$bmvAmthP7L7xwncX}#
- #{dots
-ANAU$bmvAmthP7L7xwndz}#))
- #{tmp -ANAU$bmvAmthP7L7xwndv}#)
+ (lambda (dots-5529 y-5530)
+ (ellipsis?-5437 dots-5529))
+ tmp-5525)
#f)
(@apply
- (lambda (#{dots
-ANAU$bmvAmthP7L7xwnd1}#
- #{y
-ANAU$bmvAmthP7L7xwnd2}#)
- (#{f -ANAU$bmvAmthP7L7xwndk}#
- #{y -ANAU$bmvAmthP7L7xwnd2}#
- (lambda (#{maps
-ANAU$bmvAmthP7L7xwnd3}#)
+ (lambda (dots-5531 y-5532)
+ (f-5514
+ y-5532
+ (lambda (maps-5533)
(call-with-values
(lambda ()
- (#{k
-ANAU$bmvAmthP7L7xwndt}#
- (cons '()
- #{maps
-ANAU$bmvAmthP7L7xwnd3}#)))
- (lambda (#{x
-ANAU$bmvAmthP7L7xwnd4}#
- #{maps
-ANAU$bmvAmthP7L7xwnd5}#)
- (if (null? (car #{maps
-ANAU$bmvAmthP7L7xwnd5}#))
+ (k-5523
+ (cons '() maps-5533)))
+ (lambda (x-5534 maps-5535)
+ (if (null? (car maps-5535))
(syntax-violation
'syntax
"extra ellipsis"
- #{src
-ANAU$bmvAmthP7L7xwncT}#)
+ src-5433)
(values
- (let ((#{map-env
-ANAU$bmvAmthP7L7xwnd9}#
- (car #{maps
-ANAU$bmvAmthP7L7xwnd5}#)))
+ (let ((map-env-5539
+ (car
maps-5535)))
(list 'apply
'(primitive
append)
- (#{gen-map
-ANAU$bmvAmthP7L7xwnaw}#
- #{x
-ANAU$bmvAmthP7L7xwnd4}#
- #{map-env
-ANAU$bmvAmthP7L7xwnd9}#)))
- (cdr #{maps
-ANAU$bmvAmthP7L7xwnd5}#))))))))
- #{tmp -ANAU$bmvAmthP7L7xwndv}#)
+ (gen-map-5334
+ x-5534
+
map-env-5539)))
+ (cdr maps-5535))))))))
+ tmp-5525)
(call-with-values
(lambda ()
- (#{gen-syntax
-ANAU$bmvAmthP7L7xwnat}#
- #{src -ANAU$bmvAmthP7L7xwncT}#
- #{y -ANAU$bmvAmthP7L7xwnds}#
- #{r -ANAU$bmvAmthP7L7xwncV}#
- #{maps -ANAU$bmvAmthP7L7xwncW}#
- #{ellipsis?
-ANAU$bmvAmthP7L7xwncX}#
- #{mod -ANAU$bmvAmthP7L7xwncY}#))
- (lambda (#{y -ANAU$bmvAmthP7L7xwneA}#
- #{maps
-ANAU$bmvAmthP7L7xwneB}#)
+ (gen-syntax-5331
+ src-5433
+ y-5522
+ r-5435
+ maps-5436
+ ellipsis?-5437
+ mod-5438))
+ (lambda (y-5542 maps-5543)
(call-with-values
- (lambda ()
- (#{k -ANAU$bmvAmthP7L7xwndt}#
- #{maps
-ANAU$bmvAmthP7L7xwneB}#))
- (lambda (#{x
-ANAU$bmvAmthP7L7xwneC}#
- #{maps
-ANAU$bmvAmthP7L7xwneD}#)
+ (lambda () (k-5523 maps-5543))
+ (lambda (x-5544 maps-5545)
(values
- (if (equal?
- #{y
-ANAU$bmvAmthP7L7xwneA}#
- ''())
- #{x
-ANAU$bmvAmthP7L7xwneC}#
+ (if (equal? y-5542 ''())
+ x-5544
(list 'append
- #{x
-ANAU$bmvAmthP7L7xwneC}#
- #{y
-ANAU$bmvAmthP7L7xwneA}#))
- #{maps
-ANAU$bmvAmthP7L7xwneD}#))))))))))
- (#{f -ANAU$bmvAmthP7L7xwndk}#
- #{y -ANAU$bmvAmthP7L7xwndj}#
- (lambda (#{maps -ANAU$bmvAmthP7L7xwndn}#)
+ x-5544
+ y-5542))
+ maps-5545))))))))))
+ (f-5514
+ y-5513
+ (lambda (maps-5517)
(call-with-values
(lambda ()
- (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
- #{src -ANAU$bmvAmthP7L7xwncT}#
- #{x -ANAU$bmvAmthP7L7xwndh}#
- #{r -ANAU$bmvAmthP7L7xwncV}#
- (cons '()
- #{maps -ANAU$bmvAmthP7L7xwndn}#)
- #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{mod -ANAU$bmvAmthP7L7xwncY}#))
- (lambda (#{x -ANAU$bmvAmthP7L7xwndo}#
- #{maps -ANAU$bmvAmthP7L7xwndp}#)
- (if (null? (car #{maps
-ANAU$bmvAmthP7L7xwndp}#))
+ (gen-syntax-5331
+ src-5433
+ x-5511
+ r-5435
+ (cons '() maps-5517)
+ ellipsis?-5437
+ mod-5438))
+ (lambda (x-5518 maps-5519)
+ (if (null? (car maps-5519))
(syntax-violation
'syntax
"extra ellipsis"
- #{src -ANAU$bmvAmthP7L7xwncT}#)
+ src-5433)
(values
- (#{gen-map -ANAU$bmvAmthP7L7xwnaw}#
- #{x -ANAU$bmvAmthP7L7xwndo}#
- (car #{maps
-ANAU$bmvAmthP7L7xwndp}#))
- (cdr #{maps
-ANAU$bmvAmthP7L7xwndp}#)))))))))
- #{tmp -ANAU$bmvAmthP7L7xwnda}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwneT}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwncU}#
- '(any . any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwneT}#
+ (gen-map-5334
+ x-5518
+ (car maps-5519))
+ (cdr maps-5519)))))))))
+ tmp-5504)
+ (let ((tmp-5561 ($sc-dispatch e-5434 '(any . any))))
+ (if tmp-5561
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwneX}#
- #{y -ANAU$bmvAmthP7L7xwneY}#)
+ (lambda (x-5565 y-5566)
(call-with-values
(lambda ()
- (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
- #{src -ANAU$bmvAmthP7L7xwncT}#
- #{x -ANAU$bmvAmthP7L7xwneX}#
- #{r -ANAU$bmvAmthP7L7xwncV}#
- #{maps -ANAU$bmvAmthP7L7xwncW}#
- #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{mod -ANAU$bmvAmthP7L7xwncY}#))
- (lambda (#{x -ANAU$bmvAmthP7L7xwneZ}#
- #{maps -ANAU$bmvAmthP7L7xwnea}#)
+ (gen-syntax-5331
+ src-5433
+ x-5565
+ r-5435
+ maps-5436
+ ellipsis?-5437
+ mod-5438))
+ (lambda (x-5567 maps-5568)
(call-with-values
(lambda ()
- (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
- #{src -ANAU$bmvAmthP7L7xwncT}#
- #{y -ANAU$bmvAmthP7L7xwneY}#
- #{r -ANAU$bmvAmthP7L7xwncV}#
- #{maps -ANAU$bmvAmthP7L7xwnea}#
- #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{mod -ANAU$bmvAmthP7L7xwncY}#))
- (lambda (#{y -ANAU$bmvAmthP7L7xwneb}#
- #{maps
-ANAU$bmvAmthP7L7xwnec}#)
+ (gen-syntax-5331
+ src-5433
+ y-5566
+ r-5435
+ maps-5568
+ ellipsis?-5437
+ mod-5438))
+ (lambda (y-5569 maps-5570)
(values
- (let ((#{atom-key
-ANAU$bmvAmthP7L7xwneh}#
- (car #{y
-ANAU$bmvAmthP7L7xwneb}#)))
- (if (eqv? #{atom-key
-ANAU$bmvAmthP7L7xwneh}#
- 'quote)
- (if (eq? (car #{x
-ANAU$bmvAmthP7L7xwneZ}#)
- 'quote)
+ (let ((atom-key-5575 (car y-5569)))
+ (if (eqv? atom-key-5575 'quote)
+ (if (eq? (car x-5567) 'quote)
(list 'quote
- (cons (car (cdr #{x
-ANAU$bmvAmthP7L7xwneZ}#))
- (car (cdr #{y
-ANAU$bmvAmthP7L7xwneb}#))))
- (if (eq? (car (cdr #{y
-ANAU$bmvAmthP7L7xwneb}#))
+ (cons (car (cdr x-5567))
+ (car (cdr
y-5569))))
+ (if (eq? (car (cdr y-5569))
'())
- (list 'list
- #{x
-ANAU$bmvAmthP7L7xwneZ}#)
- (list 'cons
- #{x
-ANAU$bmvAmthP7L7xwneZ}#
- #{y
-ANAU$bmvAmthP7L7xwneb}#)))
- (if (eqv? #{atom-key
-ANAU$bmvAmthP7L7xwneh}#
- 'list)
+ (list 'list x-5567)
+ (list 'cons x-5567 y-5569)))
+ (if (eqv? atom-key-5575 'list)
(cons 'list
- (cons #{x
-ANAU$bmvAmthP7L7xwneZ}#
- (cdr #{y
-ANAU$bmvAmthP7L7xwneb}#)))
- (list 'cons
- #{x
-ANAU$bmvAmthP7L7xwneZ}#
- #{y
-ANAU$bmvAmthP7L7xwneb}#))))
- #{maps
-ANAU$bmvAmthP7L7xwnec}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwneT}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwne$}#
+ (cons x-5567
+ (cdr y-5569)))
+ (list 'cons x-5567 y-5569))))
+ maps-5570))))))
+ tmp-5561)
+ (let ((tmp-5604
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwncU}#
+ e-5434
'#(vector (any . each-any)))))
- (if #{tmp -ANAU$bmvAmthP7L7xwne$}#
+ (if tmp-5604
(@apply
- (lambda (#{e1 -ANAU$bmvAmthP7L7xwnfC}#
- #{e2 -ANAU$bmvAmthP7L7xwnfD}#)
+ (lambda (e1-5608 e2-5609)
(call-with-values
(lambda ()
- (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
- #{src -ANAU$bmvAmthP7L7xwncT}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnfC}#
- #{e2 -ANAU$bmvAmthP7L7xwnfD}#)
- #{r -ANAU$bmvAmthP7L7xwncV}#
- #{maps -ANAU$bmvAmthP7L7xwncW}#
- #{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
- #{mod -ANAU$bmvAmthP7L7xwncY}#))
- (lambda (#{e -ANAU$bmvAmthP7L7xwnfE}#
- #{maps
-ANAU$bmvAmthP7L7xwnfF}#)
+ (gen-syntax-5331
+ src-5433
+ (cons e1-5608 e2-5609)
+ r-5435
+ maps-5436
+ ellipsis?-5437
+ mod-5438))
+ (lambda (e-5610 maps-5611)
(values
- (if (eq? (car #{e
-ANAU$bmvAmthP7L7xwnfE}#)
- 'list)
- (cons 'vector
- (cdr #{e
-ANAU$bmvAmthP7L7xwnfE}#))
- (if (eq? (car #{e
-ANAU$bmvAmthP7L7xwnfE}#)
- 'quote)
+ (if (eq? (car e-5610) 'list)
+ (cons 'vector (cdr e-5610))
+ (if (eq? (car e-5610) 'quote)
(list 'quote
(list->vector
- (car (cdr #{e
-ANAU$bmvAmthP7L7xwnfE}#))))
- (list 'list->vector
- #{e
-ANAU$bmvAmthP7L7xwnfE}#)))
- #{maps -ANAU$bmvAmthP7L7xwnfF}#))))
- #{tmp -ANAU$bmvAmthP7L7xwne$}#)
+ (car (cdr e-5610))))
+ (list 'list->vector e-5610)))
+ maps-5611))))
+ tmp-5604)
(values
- (list 'quote #{e -ANAU$bmvAmthP7L7xwncU}#)
- #{maps -ANAU$bmvAmthP7L7xwncW}#))))))))))))
- (#{gen-ref -ANAU$bmvAmthP7L7xwnau}#
- (lambda (#{src -ANAU$bmvAmthP7L7xwnfg}#
- #{var -ANAU$bmvAmthP7L7xwnfh}#
- #{level -ANAU$bmvAmthP7L7xwnfi}#
- #{maps -ANAU$bmvAmthP7L7xwnfj}#)
- (if (= #{level -ANAU$bmvAmthP7L7xwnfi}# 0)
- (values
- #{var -ANAU$bmvAmthP7L7xwnfh}#
- #{maps -ANAU$bmvAmthP7L7xwnfj}#)
- (if (null? #{maps -ANAU$bmvAmthP7L7xwnfj}#)
+ (list 'quote e-5434)
+ maps-5436))))))))))))
+ (gen-ref-5332
+ (lambda (src-5638 var-5639 level-5640 maps-5641)
+ (if (= level-5640 0)
+ (values var-5639 maps-5641)
+ (if (null? maps-5641)
(syntax-violation
'syntax
"missing ellipsis"
- #{src -ANAU$bmvAmthP7L7xwnfg}#)
+ src-5638)
(call-with-values
(lambda ()
- (#{gen-ref -ANAU$bmvAmthP7L7xwnau}#
- #{src -ANAU$bmvAmthP7L7xwnfg}#
- #{var -ANAU$bmvAmthP7L7xwnfh}#
- (#{1-}# #{level -ANAU$bmvAmthP7L7xwnfi}#)
- (cdr #{maps -ANAU$bmvAmthP7L7xwnfj}#)))
- (lambda (#{outer-var -ANAU$bmvAmthP7L7xwnfk}#
- #{outer-maps -ANAU$bmvAmthP7L7xwnfl}#)
- (let ((#{b -ANAU$bmvAmthP7L7xwnfm}#
- (assq #{outer-var -ANAU$bmvAmthP7L7xwnfk}#
- (car #{maps -ANAU$bmvAmthP7L7xwnfj}#))))
- (if #{b -ANAU$bmvAmthP7L7xwnfm}#
- (values
- (cdr #{b -ANAU$bmvAmthP7L7xwnfm}#)
- #{maps -ANAU$bmvAmthP7L7xwnfj}#)
- (let ((#{inner-var -ANAU$bmvAmthP7L7xwnfo}#
+ (gen-ref-5332
+ src-5638
+ var-5639
+ (#{1-}# level-5640)
+ (cdr maps-5641)))
+ (lambda (outer-var-5642 outer-maps-5643)
+ (let ((b-5644 (assq outer-var-5642 (car maps-5641))))
+ (if b-5644
+ (values (cdr b-5644) maps-5641)
+ (let ((inner-var-5646
(gensym
(string-append
(symbol->string 'tmp)
- " "))))
+ "-"))))
(values
- #{inner-var -ANAU$bmvAmthP7L7xwnfo}#
- (cons (cons (cons #{outer-var
-ANAU$bmvAmthP7L7xwnfk}#
- #{inner-var
-ANAU$bmvAmthP7L7xwnfo}#)
- (car #{maps
-ANAU$bmvAmthP7L7xwnfj}#))
- #{outer-maps
-ANAU$bmvAmthP7L7xwnfl}#)))))))))))
- (#{gen-map -ANAU$bmvAmthP7L7xwnaw}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwnf2}#
- #{map-env -ANAU$bmvAmthP7L7xwnf3}#)
- (let ((#{formals -ANAU$bmvAmthP7L7xwnf4}#
- (map cdr #{map-env -ANAU$bmvAmthP7L7xwnf3}#))
- (#{actuals -ANAU$bmvAmthP7L7xwnf5}#
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwnf7}#)
- (list 'ref (car #{x -ANAU$bmvAmthP7L7xwnf7}#)))
- #{map-env -ANAU$bmvAmthP7L7xwnf3}#)))
- (if (eq? (car #{e -ANAU$bmvAmthP7L7xwnf2}#) 'ref)
- (car #{actuals -ANAU$bmvAmthP7L7xwnf5}#)
+ inner-var-5646
+ (cons (cons (cons outer-var-5642 inner-var-5646)
+ (car maps-5641))
+ outer-maps-5643)))))))))))
+ (gen-map-5334
+ (lambda (e-5660 map-env-5661)
+ (let ((formals-5662 (map cdr map-env-5661))
+ (actuals-5663
+ (map (lambda (x-5665) (list 'ref (car x-5665)))
+ map-env-5661)))
+ (if (eq? (car e-5660) 'ref)
+ (car actuals-5663)
(if (and-map
- (lambda (#{x -ANAU$bmvAmthP7L7xwnf8}#)
- (if (eq? (car #{x -ANAU$bmvAmthP7L7xwnf8}#) 'ref)
- (memq (car (cdr #{x -ANAU$bmvAmthP7L7xwnf8}#))
- #{formals -ANAU$bmvAmthP7L7xwnf4}#)
+ (lambda (x-5666)
+ (if (eq? (car x-5666) 'ref)
+ (memq (car (cdr x-5666)) formals-5662)
#f))
- (cdr #{e -ANAU$bmvAmthP7L7xwnf2}#))
+ (cdr e-5660))
(cons 'map
- (cons (list 'primitive
- (car #{e -ANAU$bmvAmthP7L7xwnf2}#))
- (map (let ((#{r -ANAU$bmvAmthP7L7xwnf$}#
+ (cons (list 'primitive (car e-5660))
+ (map (let ((r-5668
(map cons
- #{formals
-ANAU$bmvAmthP7L7xwnf4}#
- #{actuals
-ANAU$bmvAmthP7L7xwnf5}#)))
- (lambda (#{x address@hidden)
- (cdr (assq (car (cdr #{x
address@hidden))
- #{r
-ANAU$bmvAmthP7L7xwnf$}#))))
- (cdr #{e -ANAU$bmvAmthP7L7xwnf2}#))))
+ formals-5662
+ actuals-5663)))
+ (lambda (x-5669)
+ (cdr (assq (car (cdr x-5669))
+ r-5668))))
+ (cdr e-5660))))
(cons 'map
- (cons (list 'lambda
- #{formals -ANAU$bmvAmthP7L7xwnf4}#
- #{e -ANAU$bmvAmthP7L7xwnf2}#)
- #{actuals -ANAU$bmvAmthP7L7xwnf5}#)))))))
- (#{regen -ANAU$bmvAmthP7L7xwna0}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwngB}#)
- (let ((#{atom-key -ANAU$bmvAmthP7L7xwngC}#
- (car #{x -ANAU$bmvAmthP7L7xwngB}#)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# 'ref)
- (let ((#{name -ANAU$bmvAmthP7L7xwngM}#
- (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))
- (#{var -ANAU$bmvAmthP7L7xwngN}#
- (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))))
+ (cons (list 'lambda formals-5662 e-5660)
+ actuals-5663)))))))
+ (regen-5338
+ (lambda (x-5671)
+ (let ((atom-key-5672 (car x-5671)))
+ (if (eqv? atom-key-5672 'ref)
+ (let ((name-5682 (car (cdr x-5671)))
+ (var-5683 (car (cdr x-5671))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- #{name -ANAU$bmvAmthP7L7xwngM}#
- #{var -ANAU$bmvAmthP7L7xwngN}#))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}#
- 'primitive)
- (let ((#{name -ANAU$bmvAmthP7L7xwngZ}#
- (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))))
+ name-5682
+ var-5683))
+ (if (eqv? atom-key-5672 'primitive)
+ (let ((name-5695 (car (cdr x-5671))))
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name -ANAU$bmvAmthP7L7xwngZ}#)
+ name-5695)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name -ANAU$bmvAmthP7L7xwngZ}#
+ name-5695
#f)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# 'quote)
- (let ((#{exp -ANAU$bmvAmthP7L7xwngr}#
- (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))))
+ (if (eqv? atom-key-5672 'quote)
+ (let ((exp-5713 (car (cdr x-5671))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{exp -ANAU$bmvAmthP7L7xwngr}#))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}#
- 'lambda)
- (if (list? (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))
- (let ((#{req -ANAU$bmvAmthP7L7xwng2}#
- (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))
- (#{vars -ANAU$bmvAmthP7L7xwng4}#
- (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))
- (#{exp -ANAU$bmvAmthP7L7xwng6}#
- (#{regen -ANAU$bmvAmthP7L7xwna0}#
- (car (cdr (cdr #{x
-ANAU$bmvAmthP7L7xwngB}#))))))
- (let ((#{body address@hidden
+ exp-5713))
+ (if (eqv? atom-key-5672 'lambda)
+ (if (list? (car (cdr x-5671)))
+ (let ((req-5724 (car (cdr x-5671)))
+ (vars-5726 (car (cdr x-5671)))
+ (exp-5728
+ (regen-5338 (car (cdr (cdr x-5671))))))
+ (let ((body-5733
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req -ANAU$bmvAmthP7L7xwng2}#
+ req-5724
#f
#f
#f
'()
- #{vars -ANAU$bmvAmthP7L7xwng4}#
- #{exp -ANAU$bmvAmthP7L7xwng6}#
+ vars-5726
+ exp-5728
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body address@hidden)))
- (error "how did we get here"
- #{x -ANAU$bmvAmthP7L7xwngB}#))
- (let ((#{fun-exp -ANAU$bmvAmthP7L7xwnhP}#
- (let ((#{name -ANAU$bmvAmthP7L7xwnhY}#
- (car #{x -ANAU$bmvAmthP7L7xwngB}#)))
+ body-5733)))
+ (error "how did we get here" x-5671))
+ (let ((fun-exp-5749
+ (let ((name-5758 (car x-5671)))
(if (equal?
(module-name (current-module))
'(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name -ANAU$bmvAmthP7L7xwnhY}#)
+ name-5758)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name -ANAU$bmvAmthP7L7xwnhY}#
+ name-5758
#f))))
- (#{arg-exps -ANAU$bmvAmthP7L7xwnhQ}#
- (map #{regen -ANAU$bmvAmthP7L7xwna0}#
- (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))))
+ (arg-exps-5750 (map regen-5338 (cdr x-5671))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp -ANAU$bmvAmthP7L7xwnhP}#
- #{arg-exps -ANAU$bmvAmthP7L7xwnhQ}#))))))))))
- (lambda (#{e -ANAU$bmvAmthP7L7xwna1}#
- #{r -ANAU$bmvAmthP7L7xwna2}#
- #{w -ANAU$bmvAmthP7L7xwna3}#
- #{s -ANAU$bmvAmthP7L7xwna4}#
- #{mod -ANAU$bmvAmthP7L7xwna5}#)
- (let ((#{e -ANAU$bmvAmthP7L7xwna6}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ fun-exp-5749
+ arg-exps-5750))))))))))
+ (lambda (e-5339 r-5340 w-5341 s-5342 mod-5343)
+ (let ((e-5344
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwna1}#)
- #{s -ANAU$bmvAmthP7L7xwna4}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwna1}#
- #{s -ANAU$bmvAmthP7L7xwna4}#))
- #{e -ANAU$bmvAmthP7L7xwna1}#)
- #{w -ANAU$bmvAmthP7L7xwna3}#
- #{mod -ANAU$bmvAmthP7L7xwna5}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwna8}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwna6}#
- '(_ any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwna8}#
+ (if (if (pair? e-5339) s-5342 #f)
+ (set-source-properties! e-5339 s-5342))
+ e-5339)
+ w-5341
+ mod-5343)))
+ (let ((tmp-5346 ($sc-dispatch e-5344 '(_ any))))
+ (if tmp-5346
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwnbV}#)
+ (lambda (x-5371)
(call-with-values
(lambda ()
- (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
- #{e -ANAU$bmvAmthP7L7xwna6}#
- #{x -ANAU$bmvAmthP7L7xwnbV}#
- #{r -ANAU$bmvAmthP7L7xwna2}#
+ (gen-syntax-5331
+ e-5344
+ x-5371
+ r-5340
'()
- #{ellipsis? -ANAU$bmvAmthP7L7xwnOM}#
- #{mod -ANAU$bmvAmthP7L7xwna5}#))
- (lambda (#{e -ANAU$bmvAmthP7L7xwncL}#
- #{maps -ANAU$bmvAmthP7L7xwncM}#)
- (#{regen -ANAU$bmvAmthP7L7xwna0}#
- #{e -ANAU$bmvAmthP7L7xwncL}#))))
- #{tmp -ANAU$bmvAmthP7L7xwna8}#)
+ ellipsis?-4530
+ mod-5343))
+ (lambda (e-5425 maps-5426) (regen-5338 e-5425))))
+ tmp-5346)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e -ANAU$bmvAmthP7L7xwna6}#)))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ e-5344)))))))
+ (global-extend-4484
'core
'lambda
- (lambda (#{e -ANAU$bmvAmthP7L7xwnkV}#
- #{r -ANAU$bmvAmthP7L7xwnkW}#
- #{w -ANAU$bmvAmthP7L7xwnkX}#
- #{s -ANAU$bmvAmthP7L7xwnkY}#
- #{mod -ANAU$bmvAmthP7L7xwnkZ}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnkb}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnkV}#
- '(_ any any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwnkb}#
+ (lambda (e-5946 r-5947 w-5948 s-5949 mod-5950)
+ (let ((tmp-5952
+ ($sc-dispatch e-5946 '(_ any any . each-any))))
+ (if tmp-5952
(@apply
- (lambda (#{args -ANAU$bmvAmthP7L7xwnkf}#
- #{e1 -ANAU$bmvAmthP7L7xwnkg}#
- #{e2 -ANAU$bmvAmthP7L7xwnkh}#)
+ (lambda (args-5956 e1-5957 e2-5958)
(call-with-values
- (lambda ()
- (#{lambda-formals -ANAU$bmvAmthP7L7xwnON}#
- #{args -ANAU$bmvAmthP7L7xwnkf}#))
- (lambda (#{req -ANAU$bmvAmthP7L7xwnkk}#
- #{opt -ANAU$bmvAmthP7L7xwnkl}#
- #{rest -ANAU$bmvAmthP7L7xwnkm}#
- #{kw -ANAU$bmvAmthP7L7xwnkn}#)
+ (lambda () (lambda-formals-4531 args-5956))
+ (lambda (req-5961 opt-5962 rest-5963 kw-5964)
(letrec*
- ((#{lp -ANAU$bmvAmthP7L7xwnko}#
- (lambda (#{body -ANAU$bmvAmthP7L7xwnkr}#
- #{meta -ANAU$bmvAmthP7L7xwnks}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnku}#
+ ((lp-5965
+ (lambda (body-5968 meta-5969)
+ (let ((tmp-5971
($sc-dispatch
- #{body -ANAU$bmvAmthP7L7xwnkr}#
+ body-5968
'(any any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwnku}#
+ (if (if tmp-5971
(@apply
- (lambda (#{docstring
-ANAU$bmvAmthP7L7xwnky}#
- #{e1 -ANAU$bmvAmthP7L7xwnkz}#
- #{e2 -ANAU$bmvAmthP7L7xwnk0}#)
+ (lambda (docstring-5975 e1-5976 e2-5977)
(string?
- (syntax->datum
- #{docstring
-ANAU$bmvAmthP7L7xwnky}#)))
- #{tmp -ANAU$bmvAmthP7L7xwnku}#)
+ (syntax->datum docstring-5975)))
+ tmp-5971)
#f)
(@apply
- (lambda (#{docstring
-ANAU$bmvAmthP7L7xwnk1}#
- #{e1 -ANAU$bmvAmthP7L7xwnk2}#
- #{e2 -ANAU$bmvAmthP7L7xwnk3}#)
- (#{lp -ANAU$bmvAmthP7L7xwnko}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnk2}#
- #{e2 -ANAU$bmvAmthP7L7xwnk3}#)
+ (lambda (docstring-5978 e1-5979 e2-5980)
+ (lp-5965
+ (cons e1-5979 e2-5980)
(append
- #{meta -ANAU$bmvAmthP7L7xwnks}#
+ meta-5969
(list (cons 'documentation
(syntax->datum
- #{docstring
-ANAU$bmvAmthP7L7xwnk1}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwnku}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnk4}#
+ docstring-5978))))))
+ tmp-5971)
+ (let ((tmp-5981
($sc-dispatch
- #{body -ANAU$bmvAmthP7L7xwnkr}#
+ body-5968
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwnk4}#
+ (if tmp-5981
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xwnk8}#
- #{v -ANAU$bmvAmthP7L7xwnk9}#
- #{e1 -ANAU$bmvAmthP7L7xwnk$}#
- #{e2 address@hidden)
- (#{lp -ANAU$bmvAmthP7L7xwnko}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnk$}#
- #{e2 address@hidden)
+ (lambda (k-5985 v-5986 e1-5987 e2-5988)
+ (lp-5965
+ (cons e1-5987 e2-5988)
(append
- #{meta -ANAU$bmvAmthP7L7xwnks}#
+ meta-5969
(syntax->datum
- (map cons
- #{k
-ANAU$bmvAmthP7L7xwnk8}#
- #{v
-ANAU$bmvAmthP7L7xwnk9}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwnk4}#)
- (#{expand-simple-lambda
-ANAU$bmvAmthP7L7xwnOO}#
- #{e -ANAU$bmvAmthP7L7xwnkV}#
- #{r -ANAU$bmvAmthP7L7xwnkW}#
- #{w -ANAU$bmvAmthP7L7xwnkX}#
- #{s -ANAU$bmvAmthP7L7xwnkY}#
- #{mod -ANAU$bmvAmthP7L7xwnkZ}#
- #{req -ANAU$bmvAmthP7L7xwnkk}#
- #{rest -ANAU$bmvAmthP7L7xwnkm}#
- #{meta -ANAU$bmvAmthP7L7xwnks}#
- #{body -ANAU$bmvAmthP7L7xwnkr}#))))))))
- (#{lp -ANAU$bmvAmthP7L7xwnko}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnkg}#
- #{e2 -ANAU$bmvAmthP7L7xwnkh}#)
- '())))))
- #{tmp -ANAU$bmvAmthP7L7xwnkb}#)
- (syntax-violation
- 'lambda
- "bad lambda"
- #{e -ANAU$bmvAmthP7L7xwnkV}#)))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ (map cons k-5985 v-5986)))))
+ tmp-5981)
+ (expand-simple-lambda-4532
+ e-5946
+ r-5947
+ w-5948
+ s-5949
+ mod-5950
+ req-5961
+ rest-5963
+ meta-5969
+ body-5968))))))))
+ (lp-5965 (cons e1-5957 e2-5958) '())))))
+ tmp-5952)
+ (syntax-violation 'lambda "bad lambda" e-5946)))))
+ (global-extend-4484
'core
'lambda*
- (lambda (#{e -ANAU$bmvAmthP7L7xwnpc}#
- #{r -ANAU$bmvAmthP7L7xwnpd}#
- #{w -ANAU$bmvAmthP7L7xwnpe}#
- #{s -ANAU$bmvAmthP7L7xwnpf}#
- #{mod -ANAU$bmvAmthP7L7xwnpg}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnpi}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnpc}#
- '(_ any any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwnpi}#
+ (lambda (e-6277 r-6278 w-6279 s-6280 mod-6281)
+ (let ((tmp-6283
+ ($sc-dispatch e-6277 '(_ any any . each-any))))
+ (if tmp-6283
(@apply
- (lambda (#{args -ANAU$bmvAmthP7L7xwnpm}#
- #{e1 -ANAU$bmvAmthP7L7xwnpn}#
- #{e2 -ANAU$bmvAmthP7L7xwnpo}#)
+ (lambda (args-6287 e1-6288 e2-6289)
(call-with-values
(lambda ()
- (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}#
- #{e -ANAU$bmvAmthP7L7xwnpc}#
- #{r -ANAU$bmvAmthP7L7xwnpd}#
- #{w -ANAU$bmvAmthP7L7xwnpe}#
- #{s -ANAU$bmvAmthP7L7xwnpf}#
- #{mod -ANAU$bmvAmthP7L7xwnpg}#
- #{lambda*-formals -ANAU$bmvAmthP7L7xwnOP}#
- (list (cons #{args -ANAU$bmvAmthP7L7xwnpm}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnpn}#
- #{e2 -ANAU$bmvAmthP7L7xwnpo}#)))))
- (lambda (#{meta -ANAU$bmvAmthP7L7xwnpr}#
- #{lcase -ANAU$bmvAmthP7L7xwnps}#)
+ (expand-lambda-case-4534
+ e-6277
+ r-6278
+ w-6279
+ s-6280
+ mod-6281
+ lambda*-formals-4533
+ (list (cons args-6287 (cons e1-6288 e2-6289)))))
+ (lambda (meta-6292 lcase-6293)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s -ANAU$bmvAmthP7L7xwnpf}#
- #{meta -ANAU$bmvAmthP7L7xwnpr}#
- #{lcase -ANAU$bmvAmthP7L7xwnps}#))))
- #{tmp -ANAU$bmvAmthP7L7xwnpi}#)
- (syntax-violation
- 'lambda
- "bad lambda*"
- #{e -ANAU$bmvAmthP7L7xwnpc}#)))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ s-6280
+ meta-6292
+ lcase-6293))))
+ tmp-6283)
+ (syntax-violation 'lambda "bad lambda*" e-6277)))))
+ (global-extend-4484
'core
'case-lambda
- (lambda (#{e -ANAU$bmvAmthP7L7xwnsW}#
- #{r -ANAU$bmvAmthP7L7xwnsX}#
- #{w -ANAU$bmvAmthP7L7xwnsY}#
- #{s -ANAU$bmvAmthP7L7xwnsZ}#
- #{mod -ANAU$bmvAmthP7L7xwnsa}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnsc}#
+ (lambda (e-6463 r-6464 w-6465 s-6466 mod-6467)
+ (let ((tmp-6469
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnsW}#
+ e-6463
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp -ANAU$bmvAmthP7L7xwnsc}#
+ (if tmp-6469
(@apply
- (lambda (#{args -ANAU$bmvAmthP7L7xwnsg}#
- #{e1 -ANAU$bmvAmthP7L7xwnsh}#
- #{e2 -ANAU$bmvAmthP7L7xwnsi}#
- #{args* -ANAU$bmvAmthP7L7xwnsj}#
- #{e1* -ANAU$bmvAmthP7L7xwnsk}#
- #{e2* -ANAU$bmvAmthP7L7xwnsl}#)
+ (lambda (args-6473
+ e1-6474
+ e2-6475
+ args*-6476
+ e1*-6477
+ e2*-6478)
(call-with-values
(lambda ()
- (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}#
- #{e -ANAU$bmvAmthP7L7xwnsW}#
- #{r -ANAU$bmvAmthP7L7xwnsX}#
- #{w -ANAU$bmvAmthP7L7xwnsY}#
- #{s -ANAU$bmvAmthP7L7xwnsZ}#
- #{mod -ANAU$bmvAmthP7L7xwnsa}#
- #{lambda-formals -ANAU$bmvAmthP7L7xwnON}#
- (cons (cons #{args -ANAU$bmvAmthP7L7xwnsg}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnsh}#
- #{e2 -ANAU$bmvAmthP7L7xwnsi}#))
- (map (lambda (#{tmp -ANAU$bmvAmthP7L7xwnCS
-ANAU$bmvAmthP7L7xwnso}#
- #{tmp -ANAU$bmvAmthP7L7xwnCR
-ANAU$bmvAmthP7L7xwnsp}#
- #{tmp -ANAU$bmvAmthP7L7xwnCQ
-ANAU$bmvAmthP7L7xwnsq}#)
- (cons #{tmp -ANAU$bmvAmthP7L7xwnCQ
-ANAU$bmvAmthP7L7xwnsq}#
- (cons #{tmp -ANAU$bmvAmthP7L7xwnCR
-ANAU$bmvAmthP7L7xwnsp}#
- #{tmp -ANAU$bmvAmthP7L7xwnCS
-ANAU$bmvAmthP7L7xwnso}#)))
- #{e2* -ANAU$bmvAmthP7L7xwnsl}#
- #{e1* -ANAU$bmvAmthP7L7xwnsk}#
- #{args* -ANAU$bmvAmthP7L7xwnsj}#))))
- (lambda (#{meta -ANAU$bmvAmthP7L7xwnsr}#
- #{lcase -ANAU$bmvAmthP7L7xwnss}#)
+ (expand-lambda-case-4534
+ e-6463
+ r-6464
+ w-6465
+ s-6466
+ mod-6467
+ lambda-formals-4531
+ (cons (cons args-6473 (cons e1-6474 e2-6475))
+ (map (lambda (tmp-3387-6481
+ tmp-3386-6482
+ tmp-3385-6483)
+ (cons tmp-3385-6483
+ (cons tmp-3386-6482 tmp-3387-6481)))
+ e2*-6478
+ e1*-6477
+ args*-6476))))
+ (lambda (meta-6484 lcase-6485)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s -ANAU$bmvAmthP7L7xwnsZ}#
- #{meta -ANAU$bmvAmthP7L7xwnsr}#
- #{lcase -ANAU$bmvAmthP7L7xwnss}#))))
- #{tmp -ANAU$bmvAmthP7L7xwnsc}#)
+ s-6466
+ meta-6484
+ lcase-6485))))
+ tmp-6469)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e -ANAU$bmvAmthP7L7xwnsW}#)))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ e-6463)))))
+ (global-extend-4484
'core
'case-lambda*
- (lambda (#{e -ANAU$bmvAmthP7L7xwnvO}#
- #{r -ANAU$bmvAmthP7L7xwnvP}#
- #{w -ANAU$bmvAmthP7L7xwnvQ}#
- #{s -ANAU$bmvAmthP7L7xwnvR}#
- #{mod -ANAU$bmvAmthP7L7xwnvS}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnvU}#
+ (lambda (e-6647 r-6648 w-6649 s-6650 mod-6651)
+ (let ((tmp-6653
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnvO}#
+ e-6647
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp -ANAU$bmvAmthP7L7xwnvU}#
+ (if tmp-6653
(@apply
- (lambda (#{args -ANAU$bmvAmthP7L7xwnvY}#
- #{e1 -ANAU$bmvAmthP7L7xwnvZ}#
- #{e2 -ANAU$bmvAmthP7L7xwnva}#
- #{args* -ANAU$bmvAmthP7L7xwnvb}#
- #{e1* -ANAU$bmvAmthP7L7xwnvc}#
- #{e2* -ANAU$bmvAmthP7L7xwnvd}#)
+ (lambda (args-6657
+ e1-6658
+ e2-6659
+ args*-6660
+ e1*-6661
+ e2*-6662)
(call-with-values
(lambda ()
- (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}#
- #{e -ANAU$bmvAmthP7L7xwnvO}#
- #{r -ANAU$bmvAmthP7L7xwnvP}#
- #{w -ANAU$bmvAmthP7L7xwnvQ}#
- #{s -ANAU$bmvAmthP7L7xwnvR}#
- #{mod -ANAU$bmvAmthP7L7xwnvS}#
- #{lambda*-formals -ANAU$bmvAmthP7L7xwnOP}#
- (cons (cons #{args -ANAU$bmvAmthP7L7xwnvY}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnvZ}#
- #{e2 -ANAU$bmvAmthP7L7xwnva}#))
- (map (lambda (#{tmp -ANAU$bmvAmthP7L7xwnCn
-ANAU$bmvAmthP7L7xwnvg}#
- #{tmp -ANAU$bmvAmthP7L7xwnCm
-ANAU$bmvAmthP7L7xwnvh}#
- #{tmp -ANAU$bmvAmthP7L7xwnCl
-ANAU$bmvAmthP7L7xwnvi}#)
- (cons #{tmp -ANAU$bmvAmthP7L7xwnCl
-ANAU$bmvAmthP7L7xwnvi}#
- (cons #{tmp -ANAU$bmvAmthP7L7xwnCm
-ANAU$bmvAmthP7L7xwnvh}#
- #{tmp -ANAU$bmvAmthP7L7xwnCn
-ANAU$bmvAmthP7L7xwnvg}#)))
- #{e2* -ANAU$bmvAmthP7L7xwnvd}#
- #{e1* -ANAU$bmvAmthP7L7xwnvc}#
- #{args* -ANAU$bmvAmthP7L7xwnvb}#))))
- (lambda (#{meta -ANAU$bmvAmthP7L7xwnvj}#
- #{lcase -ANAU$bmvAmthP7L7xwnvk}#)
+ (expand-lambda-case-4534
+ e-6647
+ r-6648
+ w-6649
+ s-6650
+ mod-6651
+ lambda*-formals-4533
+ (cons (cons args-6657 (cons e1-6658 e2-6659))
+ (map (lambda (tmp-3422-6665
+ tmp-3421-6666
+ tmp-3420-6667)
+ (cons tmp-3420-6667
+ (cons tmp-3421-6666 tmp-3422-6665)))
+ e2*-6662
+ e1*-6661
+ args*-6660))))
+ (lambda (meta-6668 lcase-6669)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s -ANAU$bmvAmthP7L7xwnvR}#
- #{meta -ANAU$bmvAmthP7L7xwnvj}#
- #{lcase -ANAU$bmvAmthP7L7xwnvk}#))))
- #{tmp -ANAU$bmvAmthP7L7xwnvU}#)
+ s-6650
+ meta-6668
+ lcase-6669))))
+ tmp-6653)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e -ANAU$bmvAmthP7L7xwnvO}#)))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ e-6647)))))
+ (global-extend-4484
'core
'let
(letrec*
- ((#{expand-let -ANAU$bmvAmthP7L7xwnyj}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwn04}#
- #{r -ANAU$bmvAmthP7L7xwn05}#
- #{w -ANAU$bmvAmthP7L7xwn06}#
- #{s -ANAU$bmvAmthP7L7xwn07}#
- #{mod -ANAU$bmvAmthP7L7xwn08}#
- #{constructor -ANAU$bmvAmthP7L7xwn09}#
- #{ids -ANAU$bmvAmthP7L7xwn0$}#
- #{vals address@hidden
- #{exps -ANAU$bmvAmthP7L7xwn1A}#)
- (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
- #{ids -ANAU$bmvAmthP7L7xwn0$}#))
+ ((expand-let-6860
+ (lambda (e-7009
+ r-7010
+ w-7011
+ s-7012
+ mod-7013
+ constructor-7014
+ ids-7015
+ vals-7016
+ exps-7017)
+ (if (not (valid-bound-ids?-4512 ids-7015))
(syntax-violation
'let
"duplicate bound variable"
- #{e -ANAU$bmvAmthP7L7xwn04}#)
- (let ((#{labels -ANAU$bmvAmthP7L7xwn2O}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- #{ids -ANAU$bmvAmthP7L7xwn0$}#))
- (#{new-vars -ANAU$bmvAmthP7L7xwn2P}#
- (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
- #{ids -ANAU$bmvAmthP7L7xwn0$}#)))
- (let ((#{nw -ANAU$bmvAmthP7L7xwn2Q}#
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- #{ids -ANAU$bmvAmthP7L7xwn0$}#
- #{labels -ANAU$bmvAmthP7L7xwn2O}#
- #{w -ANAU$bmvAmthP7L7xwn06}#))
- (#{nr -ANAU$bmvAmthP7L7xwn2R}#
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- #{labels -ANAU$bmvAmthP7L7xwn2O}#
- #{new-vars -ANAU$bmvAmthP7L7xwn2P}#
- #{r -ANAU$bmvAmthP7L7xwn05}#)))
- (#{constructor -ANAU$bmvAmthP7L7xwn09}#
- #{s -ANAU$bmvAmthP7L7xwn07}#
- (map syntax->datum
- #{ids -ANAU$bmvAmthP7L7xwn0$}#)
- #{new-vars -ANAU$bmvAmthP7L7xwn2P}#
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwn2i}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{x -ANAU$bmvAmthP7L7xwn2i}#
- #{r -ANAU$bmvAmthP7L7xwn05}#
- #{w -ANAU$bmvAmthP7L7xwn06}#
- #{mod -ANAU$bmvAmthP7L7xwn08}#))
- #{vals address@hidden)
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- #{exps -ANAU$bmvAmthP7L7xwn1A}#
- (#{source-wrap -ANAU$bmvAmthP7L7xwnN$}#
- #{e -ANAU$bmvAmthP7L7xwn04}#
- #{nw -ANAU$bmvAmthP7L7xwn2Q}#
- #{s -ANAU$bmvAmthP7L7xwn07}#
- #{mod -ANAU$bmvAmthP7L7xwn08}#)
- #{nr -ANAU$bmvAmthP7L7xwn2R}#
- #{nw -ANAU$bmvAmthP7L7xwn2Q}#
- #{mod -ANAU$bmvAmthP7L7xwn08}#))))))))
- (lambda (#{e -ANAU$bmvAmthP7L7xwnyk}#
- #{r -ANAU$bmvAmthP7L7xwnyl}#
- #{w -ANAU$bmvAmthP7L7xwnym}#
- #{s -ANAU$bmvAmthP7L7xwnyn}#
- #{mod -ANAU$bmvAmthP7L7xwnyo}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnyq}#
+ e-7009)
+ (let ((labels-7095 (gen-labels-4489 ids-7015))
+ (new-vars-7096 (map gen-var-4536 ids-7015)))
+ (let ((nw-7097
+ (make-binding-wrap-4500
+ ids-7015
+ labels-7095
+ w-7011))
+ (nr-7098
+ (extend-var-env-4481
+ labels-7095
+ new-vars-7096
+ r-7010)))
+ (constructor-7014
+ s-7012
+ (map syntax->datum ids-7015)
+ new-vars-7096
+ (map (lambda (x-7115)
+ (expand-4522 x-7115 r-7010 w-7011 mod-7013))
+ vals-7016)
+ (expand-body-4526
+ exps-7017
+ (source-wrap-4516 e-7009 nw-7097 s-7012 mod-7013)
+ nr-7098
+ nw-7097
+ mod-7013))))))))
+ (lambda (e-6861 r-6862 w-6863 s-6864 mod-6865)
+ (let ((tmp-6867
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnyk}#
+ e-6861
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwnyq}#
+ (if (if tmp-6867
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwnyu}#
- #{val -ANAU$bmvAmthP7L7xwnyv}#
- #{e1 -ANAU$bmvAmthP7L7xwnyw}#
- #{e2 -ANAU$bmvAmthP7L7xwnyx}#)
- (and-map
- #{id? -ANAU$bmvAmthP7L7xwnNg}#
- #{id -ANAU$bmvAmthP7L7xwnyu}#))
- #{tmp -ANAU$bmvAmthP7L7xwnyq}#)
+ (lambda (id-6871 val-6872 e1-6873 e2-6874)
+ (and-map id?-4486 id-6871))
+ tmp-6867)
#f)
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwnzB}#
- #{val -ANAU$bmvAmthP7L7xwnzC}#
- #{e1 -ANAU$bmvAmthP7L7xwnzD}#
- #{e2 -ANAU$bmvAmthP7L7xwnzE}#)
- (#{expand-let -ANAU$bmvAmthP7L7xwnyj}#
- #{e -ANAU$bmvAmthP7L7xwnyk}#
- #{r -ANAU$bmvAmthP7L7xwnyl}#
- #{w -ANAU$bmvAmthP7L7xwnym}#
- #{s -ANAU$bmvAmthP7L7xwnyn}#
- #{mod -ANAU$bmvAmthP7L7xwnyo}#
- #{build-let -ANAU$bmvAmthP7L7xwnNO}#
- #{id -ANAU$bmvAmthP7L7xwnzB}#
- #{val -ANAU$bmvAmthP7L7xwnzC}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwnzD}#
- #{e2 -ANAU$bmvAmthP7L7xwnzE}#)))
- #{tmp -ANAU$bmvAmthP7L7xwnyq}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwnzi}#
+ (lambda (id-6890 val-6891 e1-6892 e2-6893)
+ (expand-let-6860
+ e-6861
+ r-6862
+ w-6863
+ s-6864
+ mod-6865
+ build-let-4468
+ id-6890
+ val-6891
+ (cons e1-6892 e2-6893)))
+ tmp-6867)
+ (let ((tmp-6923
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwnyk}#
+ e-6861
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwnzi}#
+ (if (if tmp-6923
(@apply
- (lambda (#{f -ANAU$bmvAmthP7L7xwnzm}#
- #{id -ANAU$bmvAmthP7L7xwnzn}#
- #{val -ANAU$bmvAmthP7L7xwnzo}#
- #{e1 -ANAU$bmvAmthP7L7xwnzp}#
- #{e2 -ANAU$bmvAmthP7L7xwnzq}#)
- (if (if (symbol? #{f -ANAU$bmvAmthP7L7xwnzm}#)
+ (lambda (f-6927 id-6928 val-6929 e1-6930 e2-6931)
+ (if (if (symbol? f-6927)
#t
- (if (if (vector?
- #{f -ANAU$bmvAmthP7L7xwnzm}#)
- (if (= (vector-length
- #{f -ANAU$bmvAmthP7L7xwnzm}#)
- 4)
- (eq? (vector-ref
- #{f -ANAU$bmvAmthP7L7xwnzm}#
- 0)
+ (if (if (vector? f-6927)
+ (if (= (vector-length f-6927) 4)
+ (eq? (vector-ref f-6927 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{f -ANAU$bmvAmthP7L7xwnzm}#
- 1))
+ (symbol? (vector-ref f-6927 1))
#f))
- (and-map
- #{id? -ANAU$bmvAmthP7L7xwnNg}#
- #{id -ANAU$bmvAmthP7L7xwnzn}#)
+ (and-map id?-4486 id-6928)
#f))
- #{tmp -ANAU$bmvAmthP7L7xwnzi}#)
+ tmp-6923)
#f)
(@apply
- (lambda (#{f -ANAU$bmvAmthP7L7xwn0U}#
- #{id -ANAU$bmvAmthP7L7xwn0V}#
- #{val -ANAU$bmvAmthP7L7xwn0W}#
- #{e1 -ANAU$bmvAmthP7L7xwn0X}#
- #{e2 -ANAU$bmvAmthP7L7xwn0Y}#)
- (#{expand-let -ANAU$bmvAmthP7L7xwnyj}#
- #{e -ANAU$bmvAmthP7L7xwnyk}#
- #{r -ANAU$bmvAmthP7L7xwnyl}#
- #{w -ANAU$bmvAmthP7L7xwnym}#
- #{s -ANAU$bmvAmthP7L7xwnyn}#
- #{mod -ANAU$bmvAmthP7L7xwnyo}#
- #{build-named-let -ANAU$bmvAmthP7L7xwnNP}#
- (cons #{f -ANAU$bmvAmthP7L7xwn0U}#
- #{id -ANAU$bmvAmthP7L7xwn0V}#)
- #{val -ANAU$bmvAmthP7L7xwn0W}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwn0X}#
- #{e2 -ANAU$bmvAmthP7L7xwn0Y}#)))
- #{tmp -ANAU$bmvAmthP7L7xwnzi}#)
+ (lambda (f-6973 id-6974 val-6975 e1-6976 e2-6977)
+ (expand-let-6860
+ e-6861
+ r-6862
+ w-6863
+ s-6864
+ mod-6865
+ build-named-let-4469
+ (cons f-6973 id-6974)
+ val-6975
+ (cons e1-6976 e2-6977)))
+ tmp-6923)
(syntax-violation
'let
"bad let"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnyk}#)
- #{s -ANAU$bmvAmthP7L7xwnyn}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwnyk}#
- #{s -ANAU$bmvAmthP7L7xwnyn}#))
- #{e -ANAU$bmvAmthP7L7xwnyk}#)
- #{w -ANAU$bmvAmthP7L7xwnym}#
- #{mod -ANAU$bmvAmthP7L7xwnyo}#)))))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ (if (if (pair? e-6861) s-6864 #f)
+ (set-source-properties! e-6861 s-6864))
+ e-6861)
+ w-6863
+ mod-6865)))))))))
+ (global-extend-4484
'core
'letrec
- (lambda (#{e -ANAU$bmvAmthP7L7xwn8w}#
- #{r -ANAU$bmvAmthP7L7xwn8x}#
- #{w -ANAU$bmvAmthP7L7xwn8y}#
- #{s -ANAU$bmvAmthP7L7xwn8z}#
- #{mod -ANAU$bmvAmthP7L7xwn80}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwn82}#
+ (lambda (e-7527 r-7528 w-7529 s-7530 mod-7531)
+ (let ((tmp-7533
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwn8w}#
+ e-7527
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwn82}#
+ (if (if tmp-7533
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwn86}#
- #{val -ANAU$bmvAmthP7L7xwn87}#
- #{e1 -ANAU$bmvAmthP7L7xwn88}#
- #{e2 -ANAU$bmvAmthP7L7xwn89}#)
- (and-map
- #{id? -ANAU$bmvAmthP7L7xwnNg}#
- #{id -ANAU$bmvAmthP7L7xwn86}#))
- #{tmp -ANAU$bmvAmthP7L7xwn82}#)
+ (lambda (id-7537 val-7538 e1-7539 e2-7540)
+ (and-map id?-4486 id-7537))
+ tmp-7533)
#f)
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwn9N}#
- #{val -ANAU$bmvAmthP7L7xwn9O}#
- #{e1 -ANAU$bmvAmthP7L7xwn9P}#
- #{e2 -ANAU$bmvAmthP7L7xwn9Q}#)
- (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
- #{id -ANAU$bmvAmthP7L7xwn9N}#))
+ (lambda (id-7556 val-7557 e1-7558 e2-7559)
+ (if (not (valid-bound-ids?-4512 id-7556))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e -ANAU$bmvAmthP7L7xwn8w}#)
- (let ((#{labels -ANAU$bmvAmthP7L7xwn$q}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- #{id -ANAU$bmvAmthP7L7xwn9N}#))
- (#{new-vars -ANAU$bmvAmthP7L7xwn$r}#
- (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
- #{id -ANAU$bmvAmthP7L7xwn9N}#)))
- (let ((#{w -ANAU$bmvAmthP7L7xwn$s}#
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- #{id -ANAU$bmvAmthP7L7xwn9N}#
- #{labels -ANAU$bmvAmthP7L7xwn$q}#
- #{w -ANAU$bmvAmthP7L7xwn8y}#))
- (#{r -ANAU$bmvAmthP7L7xwn$t}#
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- #{labels -ANAU$bmvAmthP7L7xwn$q}#
- #{new-vars -ANAU$bmvAmthP7L7xwn$r}#
- #{r -ANAU$bmvAmthP7L7xwn8x}#)))
- (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}#
- #{s -ANAU$bmvAmthP7L7xwn8z}#
+ e-7527)
+ (let ((labels-7649 (gen-labels-4489 id-7556))
+ (new-vars-7650 (map gen-var-4536 id-7556)))
+ (let ((w-7651
+ (make-binding-wrap-4500
+ id-7556
+ labels-7649
+ w-7529))
+ (r-7652
+ (extend-var-env-4481
+ labels-7649
+ new-vars-7650
+ r-7528)))
+ (build-letrec-4470
+ s-7530
#f
- (map syntax->datum #{id -ANAU$bmvAmthP7L7xwn9N}#)
- #{new-vars -ANAU$bmvAmthP7L7xwn$r}#
- (map (lambda (#{x address@hidden)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{x address@hidden
- #{r -ANAU$bmvAmthP7L7xwn$t}#
- #{w -ANAU$bmvAmthP7L7xwn$s}#
- #{mod -ANAU$bmvAmthP7L7xwn80}#))
- #{val -ANAU$bmvAmthP7L7xwn9O}#)
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwn9P}#
- #{e2 -ANAU$bmvAmthP7L7xwn9Q}#)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (map syntax->datum id-7556)
+ new-vars-7650
+ (map (lambda (x-7737)
+ (expand-4522 x-7737 r-7652 w-7651 mod-7531))
+ val-7557)
+ (expand-body-4526
+ (cons e1-7558 e2-7559)
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwn8w}#)
- #{s -ANAU$bmvAmthP7L7xwn8z}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwn8w}#
- #{s -ANAU$bmvAmthP7L7xwn8z}#))
- #{e -ANAU$bmvAmthP7L7xwn8w}#)
- #{w -ANAU$bmvAmthP7L7xwn$s}#
- #{mod -ANAU$bmvAmthP7L7xwn80}#)
- #{r -ANAU$bmvAmthP7L7xwn$t}#
- #{w -ANAU$bmvAmthP7L7xwn$s}#
- #{mod -ANAU$bmvAmthP7L7xwn80}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwn82}#)
+ (if (if (pair? e-7527) s-7530 #f)
+ (set-source-properties! e-7527 s-7530))
+ e-7527)
+ w-7651
+ mod-7531)
+ r-7652
+ w-7651
+ mod-7531))))))
+ tmp-7533)
(syntax-violation
'letrec
"bad letrec"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwn8w}#)
- #{s -ANAU$bmvAmthP7L7xwn8z}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwn8w}#
- #{s -ANAU$bmvAmthP7L7xwn8z}#))
- #{e -ANAU$bmvAmthP7L7xwn8w}#)
- #{w -ANAU$bmvAmthP7L7xwn8y}#
- #{mod -ANAU$bmvAmthP7L7xwn80}#))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ (if (if (pair? e-7527) s-7530 #f)
+ (set-source-properties! e-7527 s-7530))
+ e-7527)
+ w-7529
+ mod-7531))))))
+ (global-extend-4484
'core
'letrec*
- (lambda (#{e -ANAU$bmvAmthP7L7xwoGB}#
- #{r -ANAU$bmvAmthP7L7xwoGC}#
- #{w -ANAU$bmvAmthP7L7xwoGD}#
- #{s -ANAU$bmvAmthP7L7xwoGE}#
- #{mod -ANAU$bmvAmthP7L7xwoGF}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwoGH}#
+ (lambda (e-8132 r-8133 w-8134 s-8135 mod-8136)
+ (let ((tmp-8138
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwoGB}#
+ e-8132
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwoGH}#
+ (if (if tmp-8138
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwoGL}#
- #{val -ANAU$bmvAmthP7L7xwoGM}#
- #{e1 -ANAU$bmvAmthP7L7xwoGN}#
- #{e2 -ANAU$bmvAmthP7L7xwoGO}#)
- (and-map
- #{id? -ANAU$bmvAmthP7L7xwnNg}#
- #{id -ANAU$bmvAmthP7L7xwoGL}#))
- #{tmp -ANAU$bmvAmthP7L7xwoGH}#)
+ (lambda (id-8142 val-8143 e1-8144 e2-8145)
+ (and-map id?-4486 id-8142))
+ tmp-8138)
#f)
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwoGe}#
- #{val -ANAU$bmvAmthP7L7xwoGf}#
- #{e1 -ANAU$bmvAmthP7L7xwoGg}#
- #{e2 -ANAU$bmvAmthP7L7xwoGh}#)
- (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
- #{id -ANAU$bmvAmthP7L7xwoGe}#))
+ (lambda (id-8161 val-8162 e1-8163 e2-8164)
+ (if (not (valid-bound-ids?-4512 id-8161))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e -ANAU$bmvAmthP7L7xwoGB}#)
- (let ((#{labels -ANAU$bmvAmthP7L7xwoH7}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- #{id -ANAU$bmvAmthP7L7xwoGe}#))
- (#{new-vars -ANAU$bmvAmthP7L7xwoH8}#
- (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
- #{id -ANAU$bmvAmthP7L7xwoGe}#)))
- (let ((#{w -ANAU$bmvAmthP7L7xwoH9}#
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- #{id -ANAU$bmvAmthP7L7xwoGe}#
- #{labels -ANAU$bmvAmthP7L7xwoH7}#
- #{w -ANAU$bmvAmthP7L7xwoGD}#))
- (#{r -ANAU$bmvAmthP7L7xwoH$}#
- (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}#
- #{labels -ANAU$bmvAmthP7L7xwoH7}#
- #{new-vars -ANAU$bmvAmthP7L7xwoH8}#
- #{r -ANAU$bmvAmthP7L7xwoGC}#)))
- (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}#
- #{s -ANAU$bmvAmthP7L7xwoGE}#
+ e-8132)
+ (let ((labels-8254 (gen-labels-4489 id-8161))
+ (new-vars-8255 (map gen-var-4536 id-8161)))
+ (let ((w-8256
+ (make-binding-wrap-4500
+ id-8161
+ labels-8254
+ w-8134))
+ (r-8257
+ (extend-var-env-4481
+ labels-8254
+ new-vars-8255
+ r-8133)))
+ (build-letrec-4470
+ s-8135
#t
- (map syntax->datum #{id -ANAU$bmvAmthP7L7xwoGe}#)
- #{new-vars -ANAU$bmvAmthP7L7xwoH8}#
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwoJP}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{x -ANAU$bmvAmthP7L7xwoJP}#
- #{r -ANAU$bmvAmthP7L7xwoH$}#
- #{w -ANAU$bmvAmthP7L7xwoH9}#
- #{mod -ANAU$bmvAmthP7L7xwoGF}#))
- #{val -ANAU$bmvAmthP7L7xwoGf}#)
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- (cons #{e1 -ANAU$bmvAmthP7L7xwoGg}#
- #{e2 -ANAU$bmvAmthP7L7xwoGh}#)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (map syntax->datum id-8161)
+ new-vars-8255
+ (map (lambda (x-8342)
+ (expand-4522 x-8342 r-8257 w-8256 mod-8136))
+ val-8162)
+ (expand-body-4526
+ (cons e1-8163 e2-8164)
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoGB}#)
- #{s -ANAU$bmvAmthP7L7xwoGE}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwoGB}#
- #{s -ANAU$bmvAmthP7L7xwoGE}#))
- #{e -ANAU$bmvAmthP7L7xwoGB}#)
- #{w -ANAU$bmvAmthP7L7xwoH9}#
- #{mod -ANAU$bmvAmthP7L7xwoGF}#)
- #{r -ANAU$bmvAmthP7L7xwoH$}#
- #{w -ANAU$bmvAmthP7L7xwoH9}#
- #{mod -ANAU$bmvAmthP7L7xwoGF}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwoGH}#)
+ (if (if (pair? e-8132) s-8135 #f)
+ (set-source-properties! e-8132 s-8135))
+ e-8132)
+ w-8256
+ mod-8136)
+ r-8257
+ w-8256
+ mod-8136))))))
+ tmp-8138)
(syntax-violation
'letrec*
"bad letrec*"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoGB}#)
- #{s -ANAU$bmvAmthP7L7xwoGE}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwoGB}#
- #{s -ANAU$bmvAmthP7L7xwoGE}#))
- #{e -ANAU$bmvAmthP7L7xwoGB}#)
- #{w -ANAU$bmvAmthP7L7xwoGD}#
- #{mod -ANAU$bmvAmthP7L7xwoGF}#))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ (if (if (pair? e-8132) s-8135 #f)
+ (set-source-properties! e-8132 s-8135))
+ e-8132)
+ w-8134
+ mod-8136))))))
+ (global-extend-4484
'core
'set!
- (lambda (#{e -ANAU$bmvAmthP7L7xwoP5}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{s -ANAU$bmvAmthP7L7xwoP8}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#)
- (let ((#{tmp address@hidden
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwoP5}#
- '(_ any any))))
- (if (if #{tmp address@hidden
+ (lambda (e-8776 r-8777 w-8778 s-8779 mod-8780)
+ (let ((tmp-8782 ($sc-dispatch e-8776 '(_ any any))))
+ (if (if tmp-8782
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwoQD}#
- #{val -ANAU$bmvAmthP7L7xwoQE}#)
- (if (symbol? #{id -ANAU$bmvAmthP7L7xwoQD}#)
+ (lambda (id-8786 val-8787)
+ (if (symbol? id-8786)
#t
- (if (if (vector? #{id -ANAU$bmvAmthP7L7xwoQD}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwoQD}#)
- 4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwoQD}#
- 0)
- 'syntax-object)
+ (if (if (vector? id-8786)
+ (if (= (vector-length id-8786) 4)
+ (eq? (vector-ref id-8786 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{id -ANAU$bmvAmthP7L7xwoQD}# 1))
+ (symbol? (vector-ref id-8786 1))
#f)))
- #{tmp address@hidden)
+ tmp-8782)
#f)
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwoQf}#
- #{val -ANAU$bmvAmthP7L7xwoQg}#)
- (let ((#{n -ANAU$bmvAmthP7L7xwoQh}#
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{id -ANAU$bmvAmthP7L7xwoQf}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#))
- (#{id-mod -ANAU$bmvAmthP7L7xwoQi}#
- (if (if (vector? #{id -ANAU$bmvAmthP7L7xwoQf}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwoQf}#)
- 4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwoQf}#
- 0)
- 'syntax-object)
+ (lambda (id-8814 val-8815)
+ (let ((n-8816 (id-var-name-4505 id-8814 w-8778))
+ (id-mod-8817
+ (if (if (vector? id-8814)
+ (if (= (vector-length id-8814) 4)
+ (eq? (vector-ref id-8814 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id -ANAU$bmvAmthP7L7xwoQf}# 3)
- #{mod -ANAU$bmvAmthP7L7xwoP9}#)))
- (let ((#{b -ANAU$bmvAmthP7L7xwoQj}#
- (let ((#{t -ANAU$bmvAmthP7L7xwoRM}#
- (assq #{n -ANAU$bmvAmthP7L7xwoQh}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#)))
- (if #{t -ANAU$bmvAmthP7L7xwoRM}#
- (cdr #{t -ANAU$bmvAmthP7L7xwoRM}#)
- (if (symbol? #{n -ANAU$bmvAmthP7L7xwoQh}#)
- (let ((#{t -ANAU$bmvAmthP7L7xwoRR}#
- (#{get-global-definition-hook
-ANAU$bmvAmthP7L7xwnM7}#
- #{n -ANAU$bmvAmthP7L7xwoQh}#
- #{id-mod
-ANAU$bmvAmthP7L7xwoQi}#)))
- (if #{t -ANAU$bmvAmthP7L7xwoRR}#
- #{t -ANAU$bmvAmthP7L7xwoRR}#
- '(global)))
+ (vector-ref id-8814 3)
+ mod-8780)))
+ (let ((b-8818
+ (let ((t-8859 (assq n-8816 r-8777)))
+ (if t-8859
+ (cdr t-8859)
+ (if (symbol? n-8816)
+ (let ((t-8864
+ (get-global-definition-hook-4449
+ n-8816
+ id-mod-8817)))
+ (if t-8864 t-8864 '(global)))
'(displaced-lexical))))))
- (let ((#{atom-key -ANAU$bmvAmthP7L7xwoQk}#
- (car #{b -ANAU$bmvAmthP7L7xwoQj}#)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}#
- 'lexical)
- (#{build-lexical-assignment -ANAU$bmvAmthP7L7xwnND}#
- #{s -ANAU$bmvAmthP7L7xwoP8}#
- (syntax->datum #{id -ANAU$bmvAmthP7L7xwoQf}#)
- (cdr #{b -ANAU$bmvAmthP7L7xwoQj}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{val -ANAU$bmvAmthP7L7xwoQg}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}#
- 'global)
- (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}#
- #{s -ANAU$bmvAmthP7L7xwoP8}#
- #{n -ANAU$bmvAmthP7L7xwoQh}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{val -ANAU$bmvAmthP7L7xwoQg}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#)
- #{id-mod -ANAU$bmvAmthP7L7xwoQi}#)
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}#
- 'macro)
- (let ((#{p -ANAU$bmvAmthP7L7xwoWL}#
- (cdr #{b -ANAU$bmvAmthP7L7xwoQj}#)))
+ (let ((atom-key-8819 (car b-8818)))
+ (if (eqv? atom-key-8819 'lexical)
+ (build-lexical-assignment-4457
+ s-8779
+ (syntax->datum id-8814)
+ (cdr b-8818)
+ (expand-4522 val-8815 r-8777 w-8778 mod-8780))
+ (if (eqv? atom-key-8819 'global)
+ (build-global-assignment-4460
+ s-8779
+ n-8816
+ (expand-4522 val-8815 r-8777 w-8778 mod-8780)
+ id-mod-8817)
+ (if (eqv? atom-key-8819 'macro)
+ (let ((p-9178 (cdr b-8818)))
(if (procedure-property
- #{p -ANAU$bmvAmthP7L7xwoWL}#
+ p-9178
'variable-transformer)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}#
- #{p -ANAU$bmvAmthP7L7xwoWL}#
- #{e -ANAU$bmvAmthP7L7xwoP5}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{s -ANAU$bmvAmthP7L7xwoP8}#
+ (expand-4522
+ (expand-macro-4525
+ p-9178
+ e-8776
+ r-8777
+ w-8778
+ s-8779
#f
- #{mod -ANAU$bmvAmthP7L7xwoP9}#)
- #{r -ANAU$bmvAmthP7L7xwoP6}#
+ mod-8780)
+ r-8777
'(())
- #{mod -ANAU$bmvAmthP7L7xwoP9}#)
+ mod-8780)
(syntax-violation
'set!
"not a variable transformer"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{e -ANAU$bmvAmthP7L7xwoP5}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{id -ANAU$bmvAmthP7L7xwoQf}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{id-mod -ANAU$bmvAmthP7L7xwoQi}#))))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}#
- 'displaced-lexical)
+ (wrap-4515 e-8776 w-8778 mod-8780)
+ (wrap-4515 id-8814 w-8778 id-mod-8817))))
+ (if (eqv? atom-key-8819 'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{id -ANAU$bmvAmthP7L7xwoQf}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#))
+ (wrap-4515 id-8814 w-8778 mod-8780))
(syntax-violation
'set!
"bad set!"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (wrap-4515
(begin
- (if (if (pair? #{e
-ANAU$bmvAmthP7L7xwoP5}#)
- #{s -ANAU$bmvAmthP7L7xwoP8}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwoP5}#
- #{s -ANAU$bmvAmthP7L7xwoP8}#))
- #{e -ANAU$bmvAmthP7L7xwoP5}#)
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#))))))))))
- #{tmp address@hidden)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwoXq}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwoP5}#
- '(_ (any . each-any) any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwoXq}#
+ (if (if (pair? e-8776) s-8779 #f)
+ (set-source-properties! e-8776 s-8779))
+ e-8776)
+ w-8778
+ mod-8780))))))))))
+ tmp-8782)
+ (let ((tmp-9273
+ ($sc-dispatch e-8776 '(_ (any . each-any) any))))
+ (if tmp-9273
(@apply
- (lambda (#{head -ANAU$bmvAmthP7L7xwoXu}#
- #{tail -ANAU$bmvAmthP7L7xwoXv}#
- #{val -ANAU$bmvAmthP7L7xwoXw}#)
+ (lambda (head-9277 tail-9278 val-9279)
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{head -ANAU$bmvAmthP7L7xwoXu}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
+ (syntax-type-4521
+ head-9277
+ r-8777
'(())
#f
#f
- #{mod -ANAU$bmvAmthP7L7xwoP9}#
+ mod-8780
#t))
- (lambda (#{type -ANAU$bmvAmthP7L7xwoXz}#
- #{value -ANAU$bmvAmthP7L7xwoX0}#
- #{ee -ANAU$bmvAmthP7L7xwoX1}#
- #{ww -ANAU$bmvAmthP7L7xwoX2}#
- #{ss -ANAU$bmvAmthP7L7xwoX3}#
- #{modmod -ANAU$bmvAmthP7L7xwoX4}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwoXz}#
- 'module-ref)
- (let ((#{val -ANAU$bmvAmthP7L7xwoX8}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{val -ANAU$bmvAmthP7L7xwoXw}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#)))
+ (lambda (type-9282
+ value-9283
+ ee-9284
+ ww-9285
+ ss-9286
+ modmod-9287)
+ (if (eqv? type-9282 'module-ref)
+ (let ((val-9291
+ (expand-4522
+ val-9279
+ r-8777
+ w-8778
+ mod-8780)))
(call-with-values
(lambda ()
- (#{value -ANAU$bmvAmthP7L7xwoX0}#
- (cons #{head -ANAU$bmvAmthP7L7xwoXu}#
- #{tail -ANAU$bmvAmthP7L7xwoXv}#)
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#))
- (lambda (#{e -ANAU$bmvAmthP7L7xwoX9}#
- #{r -ANAU$bmvAmthP7L7xwoX$}#
- #{w address@hidden
- #{s* -ANAU$bmvAmthP7L7xwoYA}#
- #{mod -ANAU$bmvAmthP7L7xwoYB}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwoYD}#
- (list #{e -ANAU$bmvAmthP7L7xwoX9}#)))
+ (value-9283
+ (cons head-9277 tail-9278)
+ r-8777
+ w-8778))
+ (lambda (e-9292 r-9293 w-9294 s*-9295 mod-9296)
+ (let ((tmp-9298 (list e-9292)))
(if (@apply
- (lambda (#{e
-ANAU$bmvAmthP7L7xwoYF}#)
- (if (symbol?
- #{e -ANAU$bmvAmthP7L7xwoYF}#)
+ (lambda (e-9300)
+ (if (symbol? e-9300)
#t
- (if (if (vector?
- #{e
-ANAU$bmvAmthP7L7xwoYF}#)
+ (if (if (vector? e-9300)
(if (= (vector-length
- #{e
-ANAU$bmvAmthP7L7xwoYF}#)
+ e-9300)
4)
(eq? (vector-ref
- #{e
-ANAU$bmvAmthP7L7xwoYF}#
+ e-9300
0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{e
-ANAU$bmvAmthP7L7xwoYF}#
- 1))
+ (symbol? (vector-ref e-9300 1))
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwoYD}#)
+ tmp-9298)
(@apply
- (lambda (#{e -ANAU$bmvAmthP7L7xwoYj}#)
- (#{build-global-assignment
-ANAU$bmvAmthP7L7xwnNG}#
- #{s -ANAU$bmvAmthP7L7xwoP8}#
- (syntax->datum
- #{e -ANAU$bmvAmthP7L7xwoYj}#)
- #{val -ANAU$bmvAmthP7L7xwoX8}#
- #{mod -ANAU$bmvAmthP7L7xwoYB}#))
- #{tmp -ANAU$bmvAmthP7L7xwoYD}#)
+ (lambda (e-9330)
+ (build-global-assignment-4460
+ s-8779
+ (syntax->datum e-9330)
+ val-9291
+ mod-9296))
+ tmp-9298)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e -ANAU$bmvAmthP7L7xwoX9}#))))))
- (#{build-application address@hidden
- #{s -ANAU$bmvAmthP7L7xwoP8}#
- (let ((#{e -ANAU$bmvAmthP7L7xwocE}#
+ e-9292))))))
+ (build-application-4453
+ s-8779
+ (let ((e-9555
(list '#(syntax-object
setter
((top)
@@ -10483,16 +9197,18 @@
(top)
(top)
(top))
- #("142"
- "143"
- "144"
- "145"
- "146"
- "147"))
+ #("l-*-3668"
+ "l-*-3669"
+ "l-*-3670"
+ "l-*-3671"
+ "l-*-3672"
+ "l-*-3673"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("13z" "140" "141"))
+ #("l-*-3654"
+ "l-*-3655"
+ "l-*-3656"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -10501,11 +9217,11 @@
(top)
(top)
(top))
- #("13l"
- "13m"
- "13n"
- "13o"
- "13p"))
+ #("l-*-3618"
+ "l-*-3619"
+ "l-*-3620"
+ "l-*-3621"
+ "l-*-3622"))
#(ribcage
(lambda-var-list
gen-var
@@ -10619,7 +9335,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -10787,268 +9503,248 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
- #{head -ANAU$bmvAmthP7L7xwoXu}#)))
+ head-9277)))
(call-with-values
(lambda ()
- (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xwocE}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- (#{source-annotation
-ANAU$bmvAmthP7L7xwnNZ}#
- #{e -ANAU$bmvAmthP7L7xwocE}#)
+ (syntax-type-4521
+ e-9555
+ r-8777
+ w-8778
+ (source-annotation-4479 e-9555)
#f
- #{mod -ANAU$bmvAmthP7L7xwoP9}#
+ mod-8780
#f))
- (lambda (#{type -ANAU$bmvAmthP7L7xwocL}#
- #{value -ANAU$bmvAmthP7L7xwocM}#
- #{e -ANAU$bmvAmthP7L7xwocN}#
- #{w -ANAU$bmvAmthP7L7xwocO}#
- #{s -ANAU$bmvAmthP7L7xwocP}#
- #{mod -ANAU$bmvAmthP7L7xwocQ}#)
- (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}#
- #{type -ANAU$bmvAmthP7L7xwocL}#
- #{value -ANAU$bmvAmthP7L7xwocM}#
- #{e -ANAU$bmvAmthP7L7xwocN}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwocO}#
- #{s -ANAU$bmvAmthP7L7xwocP}#
- #{mod -ANAU$bmvAmthP7L7xwocQ}#))))
- (map (lambda (#{e -ANAU$bmvAmthP7L7xwocU}#)
+ (lambda (type-9562
+ value-9563
+ e-9564
+ w-9565
+ s-9566
+ mod-9567)
+ (expand-expr-4523
+ type-9562
+ value-9563
+ e-9564
+ r-8777
+ w-9565
+ s-9566
+ mod-9567))))
+ (map (lambda (e-9571)
(call-with-values
(lambda ()
- (#{syntax-type
-ANAU$bmvAmthP7L7xwnOD}#
- #{e -ANAU$bmvAmthP7L7xwocU}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- (#{source-annotation
-ANAU$bmvAmthP7L7xwnNZ}#
- #{e -ANAU$bmvAmthP7L7xwocU}#)
+ (syntax-type-4521
+ e-9571
+ r-8777
+ w-8778
+ (source-annotation-4479 e-9571)
#f
- #{mod -ANAU$bmvAmthP7L7xwoP9}#
+ mod-8780
#f))
- (lambda (#{type -ANAU$bmvAmthP7L7xwocj}#
- #{value
-ANAU$bmvAmthP7L7xwock}#
- #{e -ANAU$bmvAmthP7L7xwocl}#
- #{w -ANAU$bmvAmthP7L7xwocm}#
- #{s -ANAU$bmvAmthP7L7xwocn}#
- #{mod -ANAU$bmvAmthP7L7xwoco}#)
- (#{expand-expr
-ANAU$bmvAmthP7L7xwnOF}#
- #{type -ANAU$bmvAmthP7L7xwocj}#
- #{value -ANAU$bmvAmthP7L7xwock}#
- #{e -ANAU$bmvAmthP7L7xwocl}#
- #{r -ANAU$bmvAmthP7L7xwoP6}#
- #{w -ANAU$bmvAmthP7L7xwocm}#
- #{s -ANAU$bmvAmthP7L7xwocn}#
- #{mod -ANAU$bmvAmthP7L7xwoco}#))))
- (append
- #{tail -ANAU$bmvAmthP7L7xwoXv}#
- (list #{val
-ANAU$bmvAmthP7L7xwoXw}#))))))))
- #{tmp -ANAU$bmvAmthP7L7xwoXq}#)
+ (lambda (type-9586
+ value-9587
+ e-9588
+ w-9589
+ s-9590
+ mod-9591)
+ (expand-expr-4523
+ type-9586
+ value-9587
+ e-9588
+ r-8777
+ w-9589
+ s-9590
+ mod-9591))))
+ (append tail-9278 (list val-9279))))))))
+ tmp-9273)
(syntax-violation
'set!
"bad set!"
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoP5}#)
- #{s -ANAU$bmvAmthP7L7xwoP8}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwoP5}#
- #{s -ANAU$bmvAmthP7L7xwoP8}#))
- #{e -ANAU$bmvAmthP7L7xwoP5}#)
- #{w -ANAU$bmvAmthP7L7xwoP7}#
- #{mod -ANAU$bmvAmthP7L7xwoP9}#))))))))
+ (if (if (pair? e-8776) s-8779 #f)
+ (set-source-properties! e-8776 s-8779))
+ e-8776)
+ w-8778
+ mod-8780))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (#{e -ANAU$bmvAmthP7L7xwodT}#
- #{r -ANAU$bmvAmthP7L7xwodU}#
- #{w -ANAU$bmvAmthP7L7xwodV}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwodX}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwodT}#
- '(_ each-any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwodX}#
+ (lambda (e-9634 r-9635 w-9636)
+ (let ((tmp-9638
+ ($sc-dispatch e-9634 '(_ each-any any))))
+ (if (if tmp-9638
(@apply
- (lambda (#{mod -ANAU$bmvAmthP7L7xwoda}#
- #{id -ANAU$bmvAmthP7L7xwodb}#)
- (if (and-map
- #{id? -ANAU$bmvAmthP7L7xwnNg}#
- #{mod -ANAU$bmvAmthP7L7xwoda}#)
- (if (symbol? #{id -ANAU$bmvAmthP7L7xwodb}#)
+ (lambda (mod-9641 id-9642)
+ (if (and-map id?-4486 mod-9641)
+ (if (symbol? id-9642)
#t
- (if (if (vector? #{id -ANAU$bmvAmthP7L7xwodb}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwodb}#)
- 4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwodb}#
- 0)
- 'syntax-object)
+ (if (if (vector? id-9642)
+ (if (= (vector-length id-9642) 4)
+ (eq? (vector-ref id-9642 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{id -ANAU$bmvAmthP7L7xwodb}# 1))
+ (symbol? (vector-ref id-9642 1))
#f))
#f))
- #{tmp -ANAU$bmvAmthP7L7xwodX}#)
+ tmp-9638)
#f)
(@apply
- (lambda (#{mod -ANAU$bmvAmthP7L7xwoeD}#
- #{id -ANAU$bmvAmthP7L7xwoeE}#)
+ (lambda (mod-9682 id-9683)
(values
- (syntax->datum #{id -ANAU$bmvAmthP7L7xwoeE}#)
- #{r -ANAU$bmvAmthP7L7xwodU}#
- #{w -ANAU$bmvAmthP7L7xwodV}#
+ (syntax->datum id-9683)
+ r-9635
+ w-9636
#f
(syntax->datum
(cons '#(syntax-object
@@ -11057,12 +9753,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("14n" "14o"))
+ #("l-*-3715" "l-*-3716"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("14i" "14j" "14k"))
+ #("l-*-3703" "l-*-3704" "l-*-3705"))
#(ribcage
(lambda-var-list
gen-var
@@ -11176,7 +9872,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -11344,235 +10040,211 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
- #{mod -ANAU$bmvAmthP7L7xwoeD}#))))
- #{tmp -ANAU$bmvAmthP7L7xwodX}#)
+ mod-9682))))
+ tmp-9638)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwodT}#))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ e-9634))))))
+ (global-extend-4484
'module-ref
'@@
- (lambda (#{e -ANAU$bmvAmthP7L7xwofg}#
- #{r -ANAU$bmvAmthP7L7xwofh}#
- #{w -ANAU$bmvAmthP7L7xwofi}#)
+ (lambda (e-9775 r-9776 w-9777)
(letrec*
- ((#{remodulate -ANAU$bmvAmthP7L7xwofj}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwogG}#
- #{mod -ANAU$bmvAmthP7L7xwogH}#)
- (if (pair? #{x -ANAU$bmvAmthP7L7xwogG}#)
- (cons (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
- (car #{x -ANAU$bmvAmthP7L7xwogG}#)
- #{mod -ANAU$bmvAmthP7L7xwogH}#)
- (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
- (cdr #{x -ANAU$bmvAmthP7L7xwogG}#)
- #{mod -ANAU$bmvAmthP7L7xwogH}#))
- (if (if (vector? #{x -ANAU$bmvAmthP7L7xwogG}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwogG}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 0)
- 'syntax-object)
+ ((remodulate-9778
+ (lambda (x-9813 mod-9814)
+ (if (pair? x-9813)
+ (cons (remodulate-9778 (car x-9813) mod-9814)
+ (remodulate-9778 (cdr x-9813) mod-9814))
+ (if (if (vector? x-9813)
+ (if (= (vector-length x-9813) 4)
+ (eq? (vector-ref x-9813 0) 'syntax-object)
#f)
#f)
- (let ((#{expression -ANAU$bmvAmthP7L7xwogV}#
- (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 1)
- #{mod -ANAU$bmvAmthP7L7xwogH}#))
- (#{wrap -ANAU$bmvAmthP7L7xwogW}#
- (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 2)))
+ (let ((expression-9828
+ (remodulate-9778 (vector-ref x-9813 1) mod-9814))
+ (wrap-9829 (vector-ref x-9813 2)))
(vector
'syntax-object
- #{expression -ANAU$bmvAmthP7L7xwogV}#
- #{wrap -ANAU$bmvAmthP7L7xwogW}#
- #{mod -ANAU$bmvAmthP7L7xwogH}#))
- (if (vector? #{x -ANAU$bmvAmthP7L7xwogG}#)
- (let ((#{n -ANAU$bmvAmthP7L7xwoge}#
- (vector-length #{x -ANAU$bmvAmthP7L7xwogG}#)))
- (let ((#{v -ANAU$bmvAmthP7L7xwogf}#
- (make-vector #{n -ANAU$bmvAmthP7L7xwoge}#)))
+ expression-9828
+ wrap-9829
+ mod-9814))
+ (if (vector? x-9813)
+ (let ((n-9837 (vector-length x-9813)))
+ (let ((v-9838 (make-vector n-9837)))
(letrec*
- ((#{loop -ANAU$bmvAmthP7L7xwogg}#
- (lambda (#{i -ANAU$bmvAmthP7L7xwohP}#)
- (if (= #{i -ANAU$bmvAmthP7L7xwohP}#
- #{n -ANAU$bmvAmthP7L7xwoge}#)
- #{v -ANAU$bmvAmthP7L7xwogf}#
+ ((loop-9839
+ (lambda (i-9886)
+ (if (= i-9886 n-9837)
+ v-9838
(begin
(vector-set!
- #{v -ANAU$bmvAmthP7L7xwogf}#
- #{i -ANAU$bmvAmthP7L7xwohP}#
- (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
- (vector-ref
- #{x -ANAU$bmvAmthP7L7xwogG}#
- #{i -ANAU$bmvAmthP7L7xwohP}#)
- #{mod -ANAU$bmvAmthP7L7xwogH}#))
- (#{loop -ANAU$bmvAmthP7L7xwogg}#
- (#{1+}# #{i
-ANAU$bmvAmthP7L7xwohP}#)))))))
- (#{loop -ANAU$bmvAmthP7L7xwogg}# 0))))
- #{x -ANAU$bmvAmthP7L7xwogG}#))))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwofl}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwofg}#
- '(_ each-any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwofl}#
+ v-9838
+ i-9886
+ (remodulate-9778
+ (vector-ref x-9813 i-9886)
+ mod-9814))
+ (loop-9839 (#{1+}# i-9886)))))))
+ (loop-9839 0))))
+ x-9813))))))
+ (let ((tmp-9780
+ ($sc-dispatch e-9775 '(_ each-any any))))
+ (if (if tmp-9780
(@apply
- (lambda (#{mod -ANAU$bmvAmthP7L7xwofp}#
- #{exp -ANAU$bmvAmthP7L7xwofq}#)
- (and-map
- #{id? -ANAU$bmvAmthP7L7xwnNg}#
- #{mod -ANAU$bmvAmthP7L7xwofp}#))
- #{tmp -ANAU$bmvAmthP7L7xwofl}#)
+ (lambda (mod-9784 exp-9785)
+ (and-map id?-4486 mod-9784))
+ tmp-9780)
#f)
(@apply
- (lambda (#{mod -ANAU$bmvAmthP7L7xwof6}#
- #{exp -ANAU$bmvAmthP7L7xwof7}#)
- (let ((#{mod -ANAU$bmvAmthP7L7xwof8}#
+ (lambda (mod-9801 exp-9802)
+ (let ((mod-9803
(syntax->datum
(cons '#(syntax-object
private
@@ -11580,12 +10252,15 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("151" "152"))
- #(ribcage (remodulate) ((top)) ("14s"))
+ #("l-*-3759" "l-*-3760"))
+ #(ribcage
+ (remodulate)
+ ((top))
+ ("l-*-3726"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("14p" "14q" "14r"))
+ #("l-*-3723" "l-*-3724" "l-*-3725"))
#(ribcage
(lambda-var-list
gen-var
@@ -11699,7 +10374,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -11867,287 +10542,232 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
- #{mod -ANAU$bmvAmthP7L7xwof6}#))))
+ mod-9801))))
(values
- (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
- #{exp -ANAU$bmvAmthP7L7xwof7}#
- #{mod -ANAU$bmvAmthP7L7xwof8}#)
- #{r -ANAU$bmvAmthP7L7xwofh}#
- #{w -ANAU$bmvAmthP7L7xwofi}#
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{exp -ANAU$bmvAmthP7L7xwof7}#)
- #{mod -ANAU$bmvAmthP7L7xwof8}#)))
- #{tmp -ANAU$bmvAmthP7L7xwofl}#)
+ (remodulate-9778 exp-9802 mod-9803)
+ r-9776
+ w-9777
+ (source-annotation-4479 exp-9802)
+ mod-9803)))
+ tmp-9780)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwofg}#))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ e-9775))))))
+ (global-extend-4484
'core
'if
- (lambda (#{e -ANAU$bmvAmthP7L7xwoi0}#
- #{r -ANAU$bmvAmthP7L7xwoi1}#
- #{w -ANAU$bmvAmthP7L7xwoi2}#
- #{s -ANAU$bmvAmthP7L7xwoi3}#
- #{mod -ANAU$bmvAmthP7L7xwoi4}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwoi6}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwoi0}#
- '(_ any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwoi6}#
+ (lambda (e-9987 r-9988 w-9989 s-9990 mod-9991)
+ (let ((tmp-9993 ($sc-dispatch e-9987 '(_ any any))))
+ (if tmp-9993
(@apply
- (lambda (#{test -ANAU$bmvAmthP7L7xwoi$}#
- #{then address@hidden)
- (#{build-conditional -ANAU$bmvAmthP7L7xwnNA}#
- #{s -ANAU$bmvAmthP7L7xwoi3}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{test -ANAU$bmvAmthP7L7xwoi$}#
- #{r -ANAU$bmvAmthP7L7xwoi1}#
- #{w -ANAU$bmvAmthP7L7xwoi2}#
- #{mod -ANAU$bmvAmthP7L7xwoi4}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{then address@hidden
- #{r -ANAU$bmvAmthP7L7xwoi1}#
- #{w -ANAU$bmvAmthP7L7xwoi2}#
- #{mod -ANAU$bmvAmthP7L7xwoi4}#)
+ (lambda (test-9997 then-9998)
+ (build-conditional-4454
+ s-9990
+ (expand-4522 test-9997 r-9988 w-9989 mod-9991)
+ (expand-4522 then-9998 r-9988 w-9989 mod-9991)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp -ANAU$bmvAmthP7L7xwoi6}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwomg}#
- ($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwoi0}#
- '(_ any any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwomg}#
+ tmp-9993)
+ (let ((tmp-10223
+ ($sc-dispatch e-9987 '(_ any any any))))
+ (if tmp-10223
(@apply
- (lambda (#{test -ANAU$bmvAmthP7L7xwomk}#
- #{then -ANAU$bmvAmthP7L7xwoml}#
- #{else -ANAU$bmvAmthP7L7xwomm}#)
- (#{build-conditional -ANAU$bmvAmthP7L7xwnNA}#
- #{s -ANAU$bmvAmthP7L7xwoi3}#
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{test -ANAU$bmvAmthP7L7xwomk}#
- #{r -ANAU$bmvAmthP7L7xwoi1}#
- #{w -ANAU$bmvAmthP7L7xwoi2}#
- #{mod -ANAU$bmvAmthP7L7xwoi4}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{then -ANAU$bmvAmthP7L7xwoml}#
- #{r -ANAU$bmvAmthP7L7xwoi1}#
- #{w -ANAU$bmvAmthP7L7xwoi2}#
- #{mod -ANAU$bmvAmthP7L7xwoi4}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{else -ANAU$bmvAmthP7L7xwomm}#
- #{r -ANAU$bmvAmthP7L7xwoi1}#
- #{w -ANAU$bmvAmthP7L7xwoi2}#
- #{mod -ANAU$bmvAmthP7L7xwoi4}#)))
- #{tmp -ANAU$bmvAmthP7L7xwomg}#)
+ (lambda (test-10227 then-10228 else-10229)
+ (build-conditional-4454
+ s-9990
+ (expand-4522 test-10227 r-9988 w-9989 mod-9991)
+ (expand-4522 then-10228 r-9988 w-9989 mod-9991)
+ (expand-4522 else-10229 r-9988 w-9989 mod-9991)))
+ tmp-10223)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwoi0}#)))))))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ e-9987)))))))
+ (global-extend-4484
'core
'with-fluids
- (lambda (#{e -ANAU$bmvAmthP7L7xwos1}#
- #{r -ANAU$bmvAmthP7L7xwos2}#
- #{w -ANAU$bmvAmthP7L7xwos3}#
- #{s -ANAU$bmvAmthP7L7xwos4}#
- #{mod -ANAU$bmvAmthP7L7xwos5}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwos7}#
+ (lambda (e-10628 r-10629 w-10630 s-10631 mod-10632)
+ (let ((tmp-10634
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwos1}#
+ e-10628
'(_ #(each (any any)) any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwos7}#
+ (if tmp-10634
(@apply
- (lambda (#{fluid address@hidden
- #{val -ANAU$bmvAmthP7L7xwotA}#
- #{b -ANAU$bmvAmthP7L7xwotB}#
- #{b* -ANAU$bmvAmthP7L7xwotC}#)
- (#{build-dynlet -ANAU$bmvAmthP7L7xwnNB}#
- #{s -ANAU$bmvAmthP7L7xwos4}#
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwouT}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{x -ANAU$bmvAmthP7L7xwouT}#
- #{r -ANAU$bmvAmthP7L7xwos2}#
- #{w -ANAU$bmvAmthP7L7xwos3}#
- #{mod -ANAU$bmvAmthP7L7xwos5}#))
- #{fluid address@hidden)
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwovZ}#)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{x -ANAU$bmvAmthP7L7xwovZ}#
- #{r -ANAU$bmvAmthP7L7xwos2}#
- #{w -ANAU$bmvAmthP7L7xwos3}#
- #{mod -ANAU$bmvAmthP7L7xwos5}#))
- #{val -ANAU$bmvAmthP7L7xwotA}#)
- (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
- (cons #{b -ANAU$bmvAmthP7L7xwotB}#
- #{b* -ANAU$bmvAmthP7L7xwotC}#)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (lambda (fluid-10638 val-10639 b-10640 b*-10641)
+ (build-dynlet-4455
+ s-10631
+ (map (lambda (x-10722)
+ (expand-4522 x-10722 r-10629 w-10630 mod-10632))
+ fluid-10638)
+ (map (lambda (x-10792)
+ (expand-4522 x-10792 r-10629 w-10630 mod-10632))
+ val-10639)
+ (expand-body-4526
+ (cons b-10640 b*-10641)
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwos1}#)
- #{s -ANAU$bmvAmthP7L7xwos4}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwos1}#
- #{s -ANAU$bmvAmthP7L7xwos4}#))
- #{e -ANAU$bmvAmthP7L7xwos1}#)
- #{w -ANAU$bmvAmthP7L7xwos3}#
- #{mod -ANAU$bmvAmthP7L7xwos5}#)
- #{r -ANAU$bmvAmthP7L7xwos2}#
- #{w -ANAU$bmvAmthP7L7xwos3}#
- #{mod -ANAU$bmvAmthP7L7xwos5}#)))
- #{tmp -ANAU$bmvAmthP7L7xwos7}#)
+ (if (if (pair? e-10628) s-10631 #f)
+ (set-source-properties! e-10628 s-10631))
+ e-10628)
+ w-10630
+ mod-10632)
+ r-10629
+ w-10630
+ mod-10632)))
+ tmp-10634)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwos1}#)))))
+ e-10628)))))
(module-define!
(current-module)
'begin
@@ -12177,100 +10797,60 @@
'eval-when
'eval-when
'()))
- (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
+ (global-extend-4484
'core
'syntax-case
(letrec*
- ((#{convert-pattern -ANAU$bmvAmthP7L7xwo1J}#
- (lambda (#{pattern -ANAU$bmvAmthP7L7xwpOE}#
- #{keys -ANAU$bmvAmthP7L7xwpOF}#)
+ ((convert-pattern-11160
+ (lambda (pattern-12757 keys-12758)
(letrec*
- ((#{cvt* -ANAU$bmvAmthP7L7xwpOG}#
- (lambda (#{p* -ANAU$bmvAmthP7L7xwpX2}#
- #{n -ANAU$bmvAmthP7L7xwpX3}#
- #{ids -ANAU$bmvAmthP7L7xwpX4}#)
- (if (not (pair? #{p* -ANAU$bmvAmthP7L7xwpX2}#))
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- #{p* -ANAU$bmvAmthP7L7xwpX2}#
- #{n -ANAU$bmvAmthP7L7xwpX3}#
- #{ids -ANAU$bmvAmthP7L7xwpX4}#)
+ ((cvt*-12759
+ (lambda (p*-13383 n-13384 ids-13385)
+ (if (not (pair? p*-13383))
+ (cvt-12761 p*-13383 n-13384 ids-13385)
(call-with-values
(lambda ()
- (#{cvt* -ANAU$bmvAmthP7L7xwpOG}#
- (cdr #{p* -ANAU$bmvAmthP7L7xwpX2}#)
- #{n -ANAU$bmvAmthP7L7xwpX3}#
- #{ids -ANAU$bmvAmthP7L7xwpX4}#))
- (lambda (#{y -ANAU$bmvAmthP7L7xwpX7}#
- #{ids -ANAU$bmvAmthP7L7xwpX8}#)
+ (cvt*-12759 (cdr p*-13383) n-13384 ids-13385))
+ (lambda (y-13388 ids-13389)
(call-with-values
(lambda ()
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- (car #{p* -ANAU$bmvAmthP7L7xwpX2}#)
- #{n -ANAU$bmvAmthP7L7xwpX3}#
- #{ids -ANAU$bmvAmthP7L7xwpX8}#))
- (lambda (#{x address@hidden
- #{ids -ANAU$bmvAmthP7L7xwpYA}#)
+ (cvt-12761 (car p*-13383) n-13384 ids-13389))
+ (lambda (x-13392 ids-13393)
(values
- (cons #{x address@hidden
- #{y -ANAU$bmvAmthP7L7xwpX7}#)
- #{ids -ANAU$bmvAmthP7L7xwpYA}#))))))))
- (#{v-reverse -ANAU$bmvAmthP7L7xwpOH}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwpYB}#)
+ (cons x-13392 y-13388)
+ ids-13393))))))))
+ (v-reverse-12760
+ (lambda (x-13394)
(letrec*
- ((#{loop -ANAU$bmvAmthP7L7xwpYC}#
- (lambda (#{r -ANAU$bmvAmthP7L7xwpZS}#
- #{x -ANAU$bmvAmthP7L7xwpZT}#)
- (if (not (pair? #{x -ANAU$bmvAmthP7L7xwpZT}#))
- (values
- #{r -ANAU$bmvAmthP7L7xwpZS}#
- #{x -ANAU$bmvAmthP7L7xwpZT}#)
- (#{loop -ANAU$bmvAmthP7L7xwpYC}#
- (cons (car #{x -ANAU$bmvAmthP7L7xwpZT}#)
- #{r -ANAU$bmvAmthP7L7xwpZS}#)
- (cdr #{x -ANAU$bmvAmthP7L7xwpZT}#))))))
- (#{loop -ANAU$bmvAmthP7L7xwpYC}#
- '()
- #{x -ANAU$bmvAmthP7L7xwpYB}#))))
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- (lambda (#{p -ANAU$bmvAmthP7L7xwpOL}#
- #{n -ANAU$bmvAmthP7L7xwpOM}#
- #{ids -ANAU$bmvAmthP7L7xwpON}#)
- (if (if (symbol? #{p -ANAU$bmvAmthP7L7xwpOL}#)
+ ((loop-13395
+ (lambda (r-13475 x-13476)
+ (if (not (pair? x-13476))
+ (values r-13475 x-13476)
+ (loop-13395
+ (cons (car x-13476) r-13475)
+ (cdr x-13476))))))
+ (loop-13395 '() x-13394))))
+ (cvt-12761
+ (lambda (p-12764 n-12765 ids-12766)
+ (if (if (symbol? p-12764)
#t
- (if (if (vector? #{p -ANAU$bmvAmthP7L7xwpOL}#)
- (if (= (vector-length
- #{p -ANAU$bmvAmthP7L7xwpOL}#)
- 4)
- (eq? (vector-ref
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- 0)
- 'syntax-object)
+ (if (if (vector? p-12764)
+ (if (= (vector-length p-12764) 4)
+ (eq? (vector-ref p-12764 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{p -ANAU$bmvAmthP7L7xwpOL}# 1))
+ (symbol? (vector-ref p-12764 1))
#f))
- (if (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}#
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- #{keys -ANAU$bmvAmthP7L7xwpOF}#)
- (values
- (vector 'free-id #{p -ANAU$bmvAmthP7L7xwpOL}#)
- #{ids -ANAU$bmvAmthP7L7xwpON}#)
- (if (if (eq? (if (if (vector?
- #{p -ANAU$bmvAmthP7L7xwpOL}#)
- (if (= (vector-length
- #{p
-ANAU$bmvAmthP7L7xwpOL}#)
- 4)
- (eq? (vector-ref
- #{p
-ANAU$bmvAmthP7L7xwpOL}#
- 0)
+ (if (bound-id-member?-4514 p-12764 keys-12758)
+ (values (vector 'free-id p-12764) ids-12766)
+ (if (if (eq? (if (if (vector? p-12764)
+ (if (= (vector-length p-12764) 4)
+ (eq? (vector-ref p-12764 0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- 1)
- #{p -ANAU$bmvAmthP7L7xwpOL}#)
+ (vector-ref p-12764 1)
+ p-12764)
(if (if (= (vector-length
'#(syntax-object
_
@@ -12279,15 +10859,20 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("169" "16a" "16b"))
+ #("l-*-3860"
+ "l-*-3861"
+ "l-*-3862"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("15x" "15w" "15v"))
+ ("l-*-3833"
+ "l-*-3831"
+ "l-*-3829"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("15t" "15u"))
+ #("l-*-3827"
+ "l-*-3828"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -12297,10 +10882,10 @@
(top)
(top)
(top))
- ("15s"
- "15r"
- "15q"
- "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
@@ -12414,7 +10999,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -12582,152 +11167,154 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
4)
#t
@@ -12740,22 +11327,29 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("169" "16a" "16b"))
+ #("l-*-3860"
+ "l-*-3861"
+ "l-*-3862"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("15x" "15w" "15v"))
+ ("l-*-3833"
+ "l-*-3831"
+ "l-*-3829"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("15t" "15u"))
+ #("l-*-3827" "l-*-3828"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("15s" "15r" "15q" "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
@@ -12869,7 +11463,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -13037,157 +11631,155 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))))
- (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- '(()))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ (eq? (id-var-name-4505 p-12764 '(()))
+ (id-var-name-4505
'#(syntax-object
_
((top)
@@ -13195,22 +11787,29 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("169" "16a" "16b"))
+ #("l-*-3860"
+ "l-*-3861"
+ "l-*-3862"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("15x" "15w" "15v"))
+ ("l-*-3833"
+ "l-*-3831"
+ "l-*-3829"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("15t" "15u"))
+ #("l-*-3827" "l-*-3828"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("15s" "15r" "15q" "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
@@ -13324,7 +11923,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -13492,200 +12091,184 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
'(())))
#f)
- (values '_ #{ids -ANAU$bmvAmthP7L7xwpON}#)
+ (values '_ ids-12766)
(values
'any
- (cons (cons #{p -ANAU$bmvAmthP7L7xwpOL}#
- #{n -ANAU$bmvAmthP7L7xwpOM}#)
- #{ids -ANAU$bmvAmthP7L7xwpON}#))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwpTN}#
- ($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- '(any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwpTN}#
+ (cons (cons p-12764 n-12765) ids-12766))))
+ (let ((tmp-13086 ($sc-dispatch p-12764 '(any any))))
+ (if (if tmp-13086
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwpTR}#
- #{dots -ANAU$bmvAmthP7L7xwpTS}#)
- (if (if (if (vector?
- #{dots
-ANAU$bmvAmthP7L7xwpTS}#)
- (if (= (vector-length
- #{dots
-ANAU$bmvAmthP7L7xwpTS}#)
+ (lambda (x-13090 dots-13091)
+ (if (if (if (vector? dots-13091)
+ (if (= (vector-length dots-13091)
4)
- (eq? (vector-ref
- #{dots
-ANAU$bmvAmthP7L7xwpTS}#
- 0)
+ (eq? (vector-ref dots-13091 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{dots -ANAU$bmvAmthP7L7xwpTS}#
- 1))
+ (symbol? (vector-ref dots-13091 1))
#f)
- (if (eq? (if (if (vector?
- #{dots
-ANAU$bmvAmthP7L7xwpTS}#)
+ (if (eq? (if (if (vector? dots-13091)
(if (= (vector-length
- #{dots
-ANAU$bmvAmthP7L7xwpTS}#)
+ dots-13091)
4)
(eq? (vector-ref
- #{dots
-ANAU$bmvAmthP7L7xwpTS}#
+ dots-13091
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{dots
-ANAU$bmvAmthP7L7xwpTS}#
- 1)
- #{dots
-ANAU$bmvAmthP7L7xwpTS}#)
+ (vector-ref dots-13091 1)
+ dots-13091)
(if (if (= (vector-length
'#(syntax-object
...
@@ -13701,7 +12284,7 @@
#(ribcage
#(x)
#((top))
- #("p6"))
+
#("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
@@ -13815,7 +12398,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -13983,146 +12566,146 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -14130,9 +12713,9 @@
((top)
(top)
(top))
- ("8"
- "7"
- "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene
guile)))
4)
@@ -14147,7 +12730,7 @@
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
@@ -14261,7 +12844,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -14429,157 +13012,159 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))))
- (eq? (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
- #{dots -ANAU$bmvAmthP7L7xwpTS}#
+ (eq? (id-var-name-4505
+ dots-13091
'(()))
- (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
+ (id-var-name-4505
'#(syntax-object
...
((top)
@@ -14588,7 +13173,7 @@
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
@@ -14702,7 +13287,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -14870,218 +13455,205 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
'(())))
#f)
#f))
- #{tmp -ANAU$bmvAmthP7L7xwpTN}#)
+ tmp-13086)
#f)
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwpU2}#
- #{dots -ANAU$bmvAmthP7L7xwpU3}#)
+ (lambda (x-13191 dots-13192)
(call-with-values
(lambda ()
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- #{x -ANAU$bmvAmthP7L7xwpU2}#
- (#{1+}# #{n -ANAU$bmvAmthP7L7xwpOM}#)
- #{ids -ANAU$bmvAmthP7L7xwpON}#))
- (lambda (#{p -ANAU$bmvAmthP7L7xwpU4}#
- #{ids -ANAU$bmvAmthP7L7xwpU5}#)
+ (cvt-12761
+ x-13191
+ (#{1+}# n-12765)
+ ids-12766))
+ (lambda (p-13193 ids-13194)
(values
- (if (eq? #{p -ANAU$bmvAmthP7L7xwpU4}#
- 'any)
+ (if (eq? p-13193 'any)
'each-any
- (vector
- 'each
- #{p -ANAU$bmvAmthP7L7xwpU4}#))
- #{ids -ANAU$bmvAmthP7L7xwpU5}#))))
- #{tmp -ANAU$bmvAmthP7L7xwpTN}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwpU6}#
- ($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- '(any any . any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwpU6}#
+ (vector 'each p-13193))
+ ids-13194))))
+ tmp-13086)
+ (let ((tmp-13195
+ ($sc-dispatch p-12764 '(any any . any))))
+ (if (if tmp-13195
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwpU$}#
- #{dots address@hidden
- #{ys -ANAU$bmvAmthP7L7xwpVA}#)
- (if (if (if (vector?
- #{dots address@hidden)
+ (lambda (x-13199 dots-13200 ys-13201)
+ (if (if (if (vector? dots-13200)
(if (= (vector-length
- #{dots
address@hidden)
+ dots-13200)
4)
(eq? (vector-ref
- #{dots
address@hidden
+ dots-13200
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref
- #{dots address@hidden
- 1))
+ (vector-ref dots-13200 1))
#f)
- (if (eq? (if (if (vector?
- #{dots
address@hidden)
+ (if (eq? (if (if (vector? dots-13200)
(if (= (vector-length
- #{dots
address@hidden)
+ dots-13200)
4)
(eq? (vector-ref
- #{dots
address@hidden
+ dots-13200
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{dots address@hidden
- 1)
- #{dots address@hidden)
+ (vector-ref dots-13200 1)
+ dots-13200)
(if (if (= (vector-length
'#(syntax-object
...
@@ -15097,7 +13669,7 @@
#(ribcage
#(x)
#((top))
- #("p6"))
+
#("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
@@ -15211,7 +13783,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
-
gensym-hook
+
session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -15379,146 +13951,146 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+
("l-*-476"
+
"l-*-474"
+
"l-*-472"
+
"l-*-470"
+
"l-*-468"
+
"l-*-466"
+
"l-*-464"
+
"l-*-462"
+
"l-*-460"
+
"l-*-458"
+
"l-*-456"
+
"l-*-454"
+
"l-*-452"
+
"l-*-450"
+
"l-*-448"
+
"l-*-446"
+
"l-*-444"
+
"l-*-442"
+
"l-*-440"
+
"l-*-438"
+
"l-*-436"
+
"l-*-434"
+
"l-*-432"
+
"l-*-430"
+
"l-*-428"
+
"l-*-426"
+
"l-*-424"
+
"l-*-422"
+
"l-*-420"
+
"l-*-418"
+
"l-*-416"
+
"l-*-414"
+
"l-*-412"
+
"l-*-410"
+
"l-*-408"
+
"l-*-406"
+
"l-*-404"
+
"l-*-402"
+
"l-*-400"
+
"l-*-399"
+
"l-*-397"
+
"l-*-394"
+
"l-*-393"
+
"l-*-392"
+
"l-*-390"
+
"l-*-389"
+
"l-*-387"
+
"l-*-385"
+
"l-*-383"
+
"l-*-381"
+
"l-*-379"
+
"l-*-377"
+
"l-*-375"
+
"l-*-373"
+
"l-*-370"
+
"l-*-368"
+
"l-*-367"
+
"l-*-365"
+
"l-*-363"
+
"l-*-361"
+
"l-*-359"
+
"l-*-358"
+
"l-*-357"
+
"l-*-356"
+
"l-*-354"
+
"l-*-353"
+
"l-*-350"
+
"l-*-348"
+
"l-*-346"
+
"l-*-344"
+
"l-*-342"
+
"l-*-340"
+
"l-*-338"
+
"l-*-337"
+
"l-*-336"
+
"l-*-334"
+
"l-*-332"
+
"l-*-331"
+
"l-*-328"
+
"l-*-327"
+
"l-*-325"
+
"l-*-323"
+
"l-*-321"
+
"l-*-319"
+
"l-*-317"
+
"l-*-315"
+
"l-*-313"
+
"l-*-311"
+
"l-*-309"
+
"l-*-306"
+
"l-*-304"
+
"l-*-302"
+
"l-*-300"
+
"l-*-298"
+
"l-*-296"
+
"l-*-294"
+
"l-*-292"
+
"l-*-290"
+
"l-*-288"
+
"l-*-286"
+
"l-*-284"
+
"l-*-282"
+
"l-*-280"
+
"l-*-278"
+
"l-*-276"
+
"l-*-274"
+
"l-*-272"
+
"l-*-270"
+
"l-*-268"
+
"l-*-266"
+
"l-*-264"
+
"l-*-262"
+
"l-*-260"
+
"l-*-258"
+
"l-*-256"
+
"l-*-255"
+
"l-*-254"
+
"l-*-253"
+
"l-*-252"
+
"l-*-250"
+
"l-*-248"
+
"l-*-246"
+
"l-*-243"
+
"l-*-241"
+
"l-*-239"
+
"l-*-237"
+
"l-*-235"
+
"l-*-233"
+
"l-*-231"
+
"l-*-229"
+
"l-*-227"
+
"l-*-225"
+
"l-*-223"
+
"l-*-221"
+
"l-*-219"
+
"l-*-217"
+
"l-*-215"
+
"l-*-213"
+
"l-*-211"
+
"l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -15526,9 +14098,9 @@
((top)
(top)
(top))
- ("8"
- "7"
- "6")))
+ ("l-*-47"
+ "l-*-46"
+
"l-*-45")))
(hygiene
guile)))
4)
@@ -15543,7 +14115,7 @@
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
@@ -15657,7 +14229,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -15825,157 +14397,159 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))))
- (eq? (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
- #{dots address@hidden
+ (eq? (id-var-name-4505
+ dots-13200
'(()))
- (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
+ (id-var-name-4505
'#(syntax-object
...
((top)
@@ -15984,7 +14558,7 @@
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
@@ -16098,7 +14672,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -16266,281 +14840,249 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
'(())))
#f)
#f))
- #{tmp -ANAU$bmvAmthP7L7xwpU6}#)
+ tmp-13195)
#f)
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwpWk}#
- #{dots -ANAU$bmvAmthP7L7xwpWl}#
- #{ys -ANAU$bmvAmthP7L7xwpWm}#)
+ (lambda (x-13301 dots-13302 ys-13303)
(call-with-values
(lambda ()
- (#{cvt* -ANAU$bmvAmthP7L7xwpOG}#
- #{ys -ANAU$bmvAmthP7L7xwpWm}#
- #{n -ANAU$bmvAmthP7L7xwpOM}#
- #{ids -ANAU$bmvAmthP7L7xwpON}#))
- (lambda (#{ys -ANAU$bmvAmthP7L7xwpWp}#
- #{ids -ANAU$bmvAmthP7L7xwpWq}#)
+ (cvt*-12759
+ ys-13303
+ n-12765
+ ids-12766))
+ (lambda (ys-13306 ids-13307)
(call-with-values
(lambda ()
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- #{x -ANAU$bmvAmthP7L7xwpWk}#
- (#{1+}# #{n
-ANAU$bmvAmthP7L7xwpOM}#)
- #{ids -ANAU$bmvAmthP7L7xwpWq}#))
- (lambda (#{x -ANAU$bmvAmthP7L7xwpWr}#
- #{ids
-ANAU$bmvAmthP7L7xwpWs}#)
+ (cvt-12761
+ x-13301
+ (#{1+}# n-12765)
+ ids-13307))
+ (lambda (x-13308 ids-13309)
(call-with-values
(lambda ()
- (#{v-reverse
-ANAU$bmvAmthP7L7xwpOH}#
- #{ys
-ANAU$bmvAmthP7L7xwpWp}#))
- (lambda (#{ys
-ANAU$bmvAmthP7L7xwpXN}#
- #{e
-ANAU$bmvAmthP7L7xwpXO}#)
+ (v-reverse-12760 ys-13306))
+ (lambda (ys-13342 e-13343)
(values
(vector
'each+
- #{x
-ANAU$bmvAmthP7L7xwpWr}#
- #{ys
-ANAU$bmvAmthP7L7xwpXN}#
- #{e
-ANAU$bmvAmthP7L7xwpXO}#)
- #{ids
-ANAU$bmvAmthP7L7xwpWs}#))))))))
- #{tmp -ANAU$bmvAmthP7L7xwpU6}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwpXP}#
- ($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- '(any . any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwpXP}#
+ x-13308
+ ys-13342
+ e-13343)
+ ids-13309))))))))
+ tmp-13195)
+ (let ((tmp-13344
+ ($sc-dispatch p-12764 '(any . any))))
+ (if tmp-13344
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwpXT}#
- #{y -ANAU$bmvAmthP7L7xwpXU}#)
+ (lambda (x-13348 y-13349)
(call-with-values
(lambda ()
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- #{y -ANAU$bmvAmthP7L7xwpXU}#
- #{n -ANAU$bmvAmthP7L7xwpOM}#
- #{ids -ANAU$bmvAmthP7L7xwpON}#))
- (lambda (#{y -ANAU$bmvAmthP7L7xwpXV}#
- #{ids
-ANAU$bmvAmthP7L7xwpXW}#)
+ (cvt-12761
+ y-13349
+ n-12765
+ ids-12766))
+ (lambda (y-13350 ids-13351)
(call-with-values
(lambda ()
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- #{x -ANAU$bmvAmthP7L7xwpXT}#
- #{n -ANAU$bmvAmthP7L7xwpOM}#
- #{ids
-ANAU$bmvAmthP7L7xwpXW}#))
- (lambda (#{x
-ANAU$bmvAmthP7L7xwpXX}#
- #{ids
-ANAU$bmvAmthP7L7xwpXY}#)
+ (cvt-12761
+ x-13348
+ n-12765
+ ids-13351))
+ (lambda (x-13352 ids-13353)
(values
- (cons #{x
-ANAU$bmvAmthP7L7xwpXX}#
- #{y
-ANAU$bmvAmthP7L7xwpXV}#)
- #{ids
-ANAU$bmvAmthP7L7xwpXY}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwpXP}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwpXZ}#
- ($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xwpXZ}#
+ (cons x-13352 y-13350)
+ ids-13353))))))
+ tmp-13344)
+ (let ((tmp-13354
+ ($sc-dispatch p-12764 '())))
+ (if tmp-13354
(@apply
- (lambda ()
- (values
- '()
- #{ids -ANAU$bmvAmthP7L7xwpON}#))
- #{tmp -ANAU$bmvAmthP7L7xwpXZ}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwpXd}#
+ (lambda () (values '() ids-12766))
+ tmp-13354)
+ (let ((tmp-13358
($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwpOL}#
+ p-12764
'#(vector each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwpXd}#
+ (if tmp-13358
(@apply
- (lambda (#{x
-ANAU$bmvAmthP7L7xwpXh}#)
+ (lambda (x-13362)
(call-with-values
(lambda ()
- (#{cvt
-ANAU$bmvAmthP7L7xwpOI}#
- #{x
-ANAU$bmvAmthP7L7xwpXh}#
- #{n
-ANAU$bmvAmthP7L7xwpOM}#
- #{ids
-ANAU$bmvAmthP7L7xwpON}#))
- (lambda (#{p
-ANAU$bmvAmthP7L7xwpXi}#
- #{ids
-ANAU$bmvAmthP7L7xwpXj}#)
+ (cvt-12761
+ x-13362
+ n-12765
+ ids-12766))
+ (lambda (p-13363 ids-13364)
(values
- (vector
- 'vector
- #{p
-ANAU$bmvAmthP7L7xwpXi}#)
- #{ids
-ANAU$bmvAmthP7L7xwpXj}#))))
- #{tmp -ANAU$bmvAmthP7L7xwpXd}#)
+ (vector 'vector p-13363)
+ ids-13364))))
+ tmp-13358)
(values
(vector
'atom
- (#{strip
-ANAU$bmvAmthP7L7xwnOR}#
- #{p -ANAU$bmvAmthP7L7xwpOL}#
- '(())))
- #{ids
-ANAU$bmvAmthP7L7xwpON}#)))))))))))))))
- (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
- #{pattern -ANAU$bmvAmthP7L7xwpOE}#
- 0
- '()))))
- (#{build-dispatch-call -ANAU$bmvAmthP7L7xwo1K}#
- (lambda (#{pvars -ANAU$bmvAmthP7L7xwpZU}#
- #{exp -ANAU$bmvAmthP7L7xwpZV}#
- #{y -ANAU$bmvAmthP7L7xwpZW}#
- #{r -ANAU$bmvAmthP7L7xwpZX}#
- #{mod -ANAU$bmvAmthP7L7xwpZY}#)
- (let ((#{ids -ANAU$bmvAmthP7L7xwpZZ}#
- (map car #{pvars -ANAU$bmvAmthP7L7xwpZU}#)))
+ (strip-4535 p-12764 '(())))
+ ids-12766)))))))))))))))
+ (cvt-12761 pattern-12757 0 '()))))
+ (build-dispatch-call-11161
+ (lambda (pvars-13477 exp-13478 y-13479 r-13480 mod-13481)
+ (let ((ids-13482 (map car pvars-13477)))
(begin
- (map cdr #{pvars -ANAU$bmvAmthP7L7xwpZU}#)
- (let ((#{labels -ANAU$bmvAmthP7L7xwpZb}#
- (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
- #{ids -ANAU$bmvAmthP7L7xwpZZ}#))
- (#{new-vars -ANAU$bmvAmthP7L7xwpZc}#
- (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}#
- #{ids -ANAU$bmvAmthP7L7xwpZZ}#)))
- (#{build-application address@hidden
+ (map cdr pvars-13477)
+ (let ((labels-13484 (gen-labels-4489 ids-13482))
+ (new-vars-13485 (map gen-var-4536 ids-13482)))
+ (build-application-4453
#f
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
@@ -16553,89 +15095,73 @@
'(guile)
'apply
#f))
- (list (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}#
+ (list (build-simple-lambda-4462
#f
- (map syntax->datum
- #{ids -ANAU$bmvAmthP7L7xwpZZ}#)
+ (map syntax->datum ids-13482)
#f
- #{new-vars -ANAU$bmvAmthP7L7xwpZc}#
+ new-vars-13485
'()
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{exp -ANAU$bmvAmthP7L7xwpZV}#
- (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
- #{labels -ANAU$bmvAmthP7L7xwpZb}#
- (map (lambda (#{var -ANAU$bmvAmthP7L7xwpeb}#
- #{level
-ANAU$bmvAmthP7L7xwpec}#)
+ (expand-4522
+ exp-13478
+ (extend-env-4480
+ labels-13484
+ (map (lambda (var-13808 level-13809)
(cons 'syntax
- (cons #{var
-ANAU$bmvAmthP7L7xwpeb}#
- #{level
-ANAU$bmvAmthP7L7xwpec}#)))
- #{new-vars -ANAU$bmvAmthP7L7xwpZc}#
- (map cdr
- #{pvars -ANAU$bmvAmthP7L7xwpZU}#))
- #{r -ANAU$bmvAmthP7L7xwpZX}#)
- (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
- #{ids -ANAU$bmvAmthP7L7xwpZZ}#
- #{labels -ANAU$bmvAmthP7L7xwpZb}#
+ (cons var-13808 level-13809)))
+ new-vars-13485
+ (map cdr pvars-13477))
+ r-13480)
+ (make-binding-wrap-4500
+ ids-13482
+ labels-13484
'(()))
- #{mod -ANAU$bmvAmthP7L7xwpZY}#))
- #{y -ANAU$bmvAmthP7L7xwpZW}#)))))))
- (#{gen-clause -ANAU$bmvAmthP7L7xwo1L}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwpEQ}#
- #{keys -ANAU$bmvAmthP7L7xwpER}#
- #{clauses -ANAU$bmvAmthP7L7xwpES}#
- #{r -ANAU$bmvAmthP7L7xwpET}#
- #{pat -ANAU$bmvAmthP7L7xwpEU}#
- #{fender -ANAU$bmvAmthP7L7xwpEV}#
- #{exp -ANAU$bmvAmthP7L7xwpEW}#
- #{mod -ANAU$bmvAmthP7L7xwpEX}#)
+ mod-13481))
+ y-13479)))))))
+ (gen-clause-11162
+ (lambda (x-12129
+ keys-12130
+ clauses-12131
+ r-12132
+ pat-12133
+ fender-12134
+ exp-12135
+ mod-12136)
(call-with-values
(lambda ()
- (#{convert-pattern -ANAU$bmvAmthP7L7xwo1J}#
- #{pat -ANAU$bmvAmthP7L7xwpEU}#
- #{keys -ANAU$bmvAmthP7L7xwpER}#))
- (lambda (#{p -ANAU$bmvAmthP7L7xwpGy}#
- #{pvars -ANAU$bmvAmthP7L7xwpGz}#)
- (if (not (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
- (map car #{pvars -ANAU$bmvAmthP7L7xwpGz}#)))
+ (convert-pattern-11160 pat-12133 keys-12130))
+ (lambda (p-12291 pvars-12292)
+ (if (not (distinct-bound-ids?-4513 (map car pvars-12292)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat -ANAU$bmvAmthP7L7xwpEU}#)
+ pat-12133)
(if (not (and-map
- (lambda (#{x -ANAU$bmvAmthP7L7xwpIn}#)
- (not (let ((#{x -ANAU$bmvAmthP7L7xwpIr}#
- (car #{x
-ANAU$bmvAmthP7L7xwpIn}#)))
- (if (if (if (vector?
- #{x
-ANAU$bmvAmthP7L7xwpIr}#)
+ (lambda (x-12408)
+ (not (let ((x-12412 (car x-12408)))
+ (if (if (if (vector? x-12412)
(if (= (vector-length
- #{x
-ANAU$bmvAmthP7L7xwpIr}#)
+ x-12412)
4)
(eq? (vector-ref
- #{x
-ANAU$bmvAmthP7L7xwpIr}#
+ x-12412
0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{x -ANAU$bmvAmthP7L7xwpIr}#
- 1))
+ (symbol? (vector-ref x-12412 1))
#f)
- (if (eq? (if (if (vector?
- #{x
-ANAU$bmvAmthP7L7xwpIr}#)
+ (if (eq? (if (if (vector? x-12412)
(if (= (vector-length
- #{x
-ANAU$bmvAmthP7L7xwpIr}#)
+ x-12412)
4)
(eq? (vector-ref
- #{x
-ANAU$bmvAmthP7L7xwpIr}#
+ x-12412
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{x
-ANAU$bmvAmthP7L7xwpIr}#
- 1)
- #{x
-ANAU$bmvAmthP7L7xwpIr}#)
+ (vector-ref x-12412 1)
+ x-12412)
(if (if (= (vector-length
'#(syntax-object
...
@@ -16651,7 +15177,7 @@
#(ribcage
#(x)
#((top))
- #("p6"))
+
#("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
@@ -16765,7 +15291,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
-
gensym-hook
+
session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -16933,146 +15459,146 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+
("l-*-476"
+
"l-*-474"
+
"l-*-472"
+
"l-*-470"
+
"l-*-468"
+
"l-*-466"
+
"l-*-464"
+
"l-*-462"
+
"l-*-460"
+
"l-*-458"
+
"l-*-456"
+
"l-*-454"
+
"l-*-452"
+
"l-*-450"
+
"l-*-448"
+
"l-*-446"
+
"l-*-444"
+
"l-*-442"
+
"l-*-440"
+
"l-*-438"
+
"l-*-436"
+
"l-*-434"
+
"l-*-432"
+
"l-*-430"
+
"l-*-428"
+
"l-*-426"
+
"l-*-424"
+
"l-*-422"
+
"l-*-420"
+
"l-*-418"
+
"l-*-416"
+
"l-*-414"
+
"l-*-412"
+
"l-*-410"
+
"l-*-408"
+
"l-*-406"
+
"l-*-404"
+
"l-*-402"
+
"l-*-400"
+
"l-*-399"
+
"l-*-397"
+
"l-*-394"
+
"l-*-393"
+
"l-*-392"
+
"l-*-390"
+
"l-*-389"
+
"l-*-387"
+
"l-*-385"
+
"l-*-383"
+
"l-*-381"
+
"l-*-379"
+
"l-*-377"
+
"l-*-375"
+
"l-*-373"
+
"l-*-370"
+
"l-*-368"
+
"l-*-367"
+
"l-*-365"
+
"l-*-363"
+
"l-*-361"
+
"l-*-359"
+
"l-*-358"
+
"l-*-357"
+
"l-*-356"
+
"l-*-354"
+
"l-*-353"
+
"l-*-350"
+
"l-*-348"
+
"l-*-346"
+
"l-*-344"
+
"l-*-342"
+
"l-*-340"
+
"l-*-338"
+
"l-*-337"
+
"l-*-336"
+
"l-*-334"
+
"l-*-332"
+
"l-*-331"
+
"l-*-328"
+
"l-*-327"
+
"l-*-325"
+
"l-*-323"
+
"l-*-321"
+
"l-*-319"
+
"l-*-317"
+
"l-*-315"
+
"l-*-313"
+
"l-*-311"
+
"l-*-309"
+
"l-*-306"
+
"l-*-304"
+
"l-*-302"
+
"l-*-300"
+
"l-*-298"
+
"l-*-296"
+
"l-*-294"
+
"l-*-292"
+
"l-*-290"
+
"l-*-288"
+
"l-*-286"
+
"l-*-284"
+
"l-*-282"
+
"l-*-280"
+
"l-*-278"
+
"l-*-276"
+
"l-*-274"
+
"l-*-272"
+
"l-*-270"
+
"l-*-268"
+
"l-*-266"
+
"l-*-264"
+
"l-*-262"
+
"l-*-260"
+
"l-*-258"
+
"l-*-256"
+
"l-*-255"
+
"l-*-254"
+
"l-*-253"
+
"l-*-252"
+
"l-*-250"
+
"l-*-248"
+
"l-*-246"
+
"l-*-243"
+
"l-*-241"
+
"l-*-239"
+
"l-*-237"
+
"l-*-235"
+
"l-*-233"
+
"l-*-231"
+
"l-*-229"
+
"l-*-227"
+
"l-*-225"
+
"l-*-223"
+
"l-*-221"
+
"l-*-219"
+
"l-*-217"
+
"l-*-215"
+
"l-*-213"
+
"l-*-211"
+
"l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -17080,9 +15606,9 @@
((top)
(top)
(top))
- ("8"
- "7"
- "6")))
+
("l-*-47"
+
"l-*-46"
+
"l-*-45")))
(hygiene
guile)))
4)
@@ -17097,7 +15623,7 @@
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
@@ -17211,7 +15737,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -17379,157 +15905,159 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))))
- (eq? (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
- #{x
-ANAU$bmvAmthP7L7xwpIr}#
+ (eq? (id-var-name-4505
+ x-12412
'(()))
- (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
+ (id-var-name-4505
'#(syntax-object
...
((top)
@@ -17538,7 +16066,7 @@
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
@@ -17652,7 +16180,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -17820,194 +16348,194 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
'(())))
#f)
#f))))
- #{pvars -ANAU$bmvAmthP7L7xwpGz}#))
+ pvars-12292))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat -ANAU$bmvAmthP7L7xwpEU}#)
- (let ((#{y -ANAU$bmvAmthP7L7xwpJ3}#
+ pat-12133)
+ (let ((y-12488
(gensym
- (string-append (symbol->string 'tmp) " "))))
- (#{build-application address@hidden
+ (string-append (symbol->string 'tmp) "-"))))
+ (build-application-4453
#f
- (let ((#{req -ANAU$bmvAmthP7L7xwpMG}# (list 'tmp))
- (#{vars -ANAU$bmvAmthP7L7xwpMI}#
- (list #{y -ANAU$bmvAmthP7L7xwpJ3}#))
- (#{exp -ANAU$bmvAmthP7L7xwpMK}#
- (let ((#{y -ANAU$bmvAmthP7L7xwpMb}#
+ (let ((req-12631 (list 'tmp))
+ (vars-12633 (list y-12488))
+ (exp-12635
+ (let ((y-12652
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{y -ANAU$bmvAmthP7L7xwpJ3}#)))
- (let ((#{test-exp -ANAU$bmvAmthP7L7xwpMf}#
- (let ((#{tmp
-ANAU$bmvAmthP7L7xwpMo}#
+ y-12488)))
+ (let ((test-exp-12656
+ (let ((tmp-12665
($sc-dispatch
- #{fender
-ANAU$bmvAmthP7L7xwpEV}#
+ fender-12134
'#(atom #t))))
- (if #{tmp
-ANAU$bmvAmthP7L7xwpMo}#
+ (if tmp-12665
(@apply
- (lambda ()
- #{y
-ANAU$bmvAmthP7L7xwpMb}#)
- #{tmp
-ANAU$bmvAmthP7L7xwpMo}#)
- (let ((#{then-exp
-ANAU$bmvAmthP7L7xwpM6}#
-
(#{build-dispatch-call -ANAU$bmvAmthP7L7xwo1K}#
- #{pvars
-ANAU$bmvAmthP7L7xwpGz}#
- #{fender
-ANAU$bmvAmthP7L7xwpEV}#
- #{y
-ANAU$bmvAmthP7L7xwpMb}#
- #{r
-ANAU$bmvAmthP7L7xwpET}#
- #{mod
-ANAU$bmvAmthP7L7xwpEX}#))
- (#{else-exp
-ANAU$bmvAmthP7L7xwpM7}#
+ (lambda () y-12652)
+ tmp-12665)
+ (let ((then-exp-12683
+
(build-dispatch-call-11161
+ pvars-12292
+ fender-12134
+ y-12652
+ r-12132
+ mod-12136))
+ (else-exp-12684
(make-struct/no-tail
(vector-ref
%expanded-vtables
@@ -18019,48 +16547,48 @@
%expanded-vtables
10)
#f
- #{y
-ANAU$bmvAmthP7L7xwpMb}#
- #{then-exp
-ANAU$bmvAmthP7L7xwpM6}#
- #{else-exp
-ANAU$bmvAmthP7L7xwpM7}#)))))
- (#{then-exp -ANAU$bmvAmthP7L7xwpMg}#
- (#{build-dispatch-call
-ANAU$bmvAmthP7L7xwo1K}#
- #{pvars -ANAU$bmvAmthP7L7xwpGz}#
- #{exp -ANAU$bmvAmthP7L7xwpEW}#
- #{y -ANAU$bmvAmthP7L7xwpMb}#
- #{r -ANAU$bmvAmthP7L7xwpET}#
- #{mod -ANAU$bmvAmthP7L7xwpEX}#))
- (#{else-exp -ANAU$bmvAmthP7L7xwpMh}#
- (#{gen-syntax-case
-ANAU$bmvAmthP7L7xwo1M}#
- #{x -ANAU$bmvAmthP7L7xwpEQ}#
- #{keys -ANAU$bmvAmthP7L7xwpER}#
- #{clauses
-ANAU$bmvAmthP7L7xwpES}#
- #{r -ANAU$bmvAmthP7L7xwpET}#
- #{mod
-ANAU$bmvAmthP7L7xwpEX}#)))
+ y-12652
+ then-exp-12683
+ else-exp-12684)))))
+ (then-exp-12657
+ (build-dispatch-call-11161
+ pvars-12292
+ exp-12135
+ y-12652
+ r-12132
+ mod-12136))
+ (else-exp-12658
+ (gen-syntax-case-11163
+ x-12129
+ keys-12130
+ clauses-12131
+ r-12132
+ mod-12136)))
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
#f
- #{test-exp -ANAU$bmvAmthP7L7xwpMf}#
- #{then-exp -ANAU$bmvAmthP7L7xwpMg}#
- #{else-exp
-ANAU$bmvAmthP7L7xwpMh}#)))))
- (let ((#{body -ANAU$bmvAmthP7L7xwpMP}#
+ test-exp-12656
+ then-exp-12657
+ else-exp-12658)))))
+ (let ((body-12640
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req -ANAU$bmvAmthP7L7xwpMG}#
+ req-12631
#f
#f
#f
'()
- #{vars -ANAU$bmvAmthP7L7xwpMI}#
- #{exp -ANAU$bmvAmthP7L7xwpMK}#
+ vars-12633
+ exp-12635
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body -ANAU$bmvAmthP7L7xwpMP}#)))
- (list (if (eq? #{p -ANAU$bmvAmthP7L7xwpGy}# 'any)
- (let ((#{fun-exp -ANAU$bmvAmthP7L7xwpNR}#
+ body-12640)))
+ (list (if (eq? p-12291 'any)
+ (let ((fun-exp-12706
(if (equal?
(module-name (current-module))
'(guile))
@@ -18074,14 +16602,13 @@
'(guile)
'list
#f)))
- (#{arg-exps -ANAU$bmvAmthP7L7xwpNS}#
- (list #{x
-ANAU$bmvAmthP7L7xwpEQ}#)))
+ (arg-exps-12707 (list x-12129)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp -ANAU$bmvAmthP7L7xwpNR}#
- #{arg-exps -ANAU$bmvAmthP7L7xwpNS}#))
- (let ((#{fun-exp -ANAU$bmvAmthP7L7xwpNp}#
+ fun-exp-12706
+ arg-exps-12707))
+ (let ((fun-exp-12730
(if (equal?
(module-name (current-module))
'(guile))
@@ -18095,27 +16622,27 @@
'(guile)
'$sc-dispatch
#f)))
- (#{arg-exps -ANAU$bmvAmthP7L7xwpNq}#
- (list #{x -ANAU$bmvAmthP7L7xwpEQ}#
+ (arg-exps-12731
+ (list x-12129
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- #{p
-ANAU$bmvAmthP7L7xwpGy}#))))
+ p-12291))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp -ANAU$bmvAmthP7L7xwpNp}#
- #{arg-exps
-ANAU$bmvAmthP7L7xwpNq}#))))))))))))
- (#{gen-syntax-case -ANAU$bmvAmthP7L7xwo1M}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwo7b}#
- #{keys -ANAU$bmvAmthP7L7xwo7c}#
- #{clauses -ANAU$bmvAmthP7L7xwo7d}#
- #{r -ANAU$bmvAmthP7L7xwo7e}#
- #{mod -ANAU$bmvAmthP7L7xwo7f}#)
- (if (null? #{clauses -ANAU$bmvAmthP7L7xwo7d}#)
- (let ((#{fun-exp -ANAU$bmvAmthP7L7xwo7k}#
+ fun-exp-12730
+ arg-exps-12731))))))))))))
+ (gen-syntax-case-11163
+ (lambda (x-11562
+ keys-11563
+ clauses-11564
+ r-11565
+ mod-11566)
+ (if (null? clauses-11564)
+ (let ((fun-exp-11571
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -18127,7 +16654,7 @@
'(guile)
'syntax-violation
#f)))
- (#{arg-exps -ANAU$bmvAmthP7L7xwo7l}#
+ (arg-exps-11572
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -18136,77 +16663,58 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any
pattern")
- #{x -ANAU$bmvAmthP7L7xwo7b}#)))
+ x-11562)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp -ANAU$bmvAmthP7L7xwo7k}#
- #{arg-exps -ANAU$bmvAmthP7L7xwo7l}#))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwo8G}#
- (car #{clauses -ANAU$bmvAmthP7L7xwo7d}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwo8H}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwo8G}#
- '(any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwo8H}#
+ fun-exp-11571
+ arg-exps-11572))
+ (let ((tmp-11605 (car clauses-11564)))
+ (let ((tmp-11606 ($sc-dispatch tmp-11605 '(any any))))
+ (if tmp-11606
(@apply
- (lambda (#{pat -ANAU$bmvAmthP7L7xwo8J}#
- #{exp -ANAU$bmvAmthP7L7xwo8K}#)
- (if (if (if (symbol? #{pat -ANAU$bmvAmthP7L7xwo8J}#)
+ (lambda (pat-11608 exp-11609)
+ (if (if (if (symbol? pat-11608)
#t
- (if (if (vector?
- #{pat -ANAU$bmvAmthP7L7xwo8J}#)
- (if (= (vector-length
- #{pat
-ANAU$bmvAmthP7L7xwo8J}#)
- 4)
- (eq? (vector-ref
- #{pat
-ANAU$bmvAmthP7L7xwo8J}#
- 0)
+ (if (if (vector? pat-11608)
+ (if (= (vector-length pat-11608) 4)
+ (eq? (vector-ref pat-11608 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{pat -ANAU$bmvAmthP7L7xwo8J}#
- 1))
+ (symbol? (vector-ref pat-11608 1))
#f))
(and-map
- (lambda (#{x -ANAU$bmvAmthP7L7xwo8l}#)
- (not (if (eq? (if (if (vector?
- #{pat
-ANAU$bmvAmthP7L7xwo8J}#)
+ (lambda (x-11636)
+ (not (if (eq? (if (if (vector? pat-11608)
(if (= (vector-length
- #{pat
-ANAU$bmvAmthP7L7xwo8J}#)
+ pat-11608)
4)
(eq? (vector-ref
- #{pat
-ANAU$bmvAmthP7L7xwo8J}#
+ pat-11608
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{pat
-ANAU$bmvAmthP7L7xwo8J}#
- 1)
- #{pat
-ANAU$bmvAmthP7L7xwo8J}#)
- (if (if (vector?
- #{x
-ANAU$bmvAmthP7L7xwo8l}#)
+ (vector-ref pat-11608 1)
+ pat-11608)
+ (if (if (vector? x-11636)
(if (= (vector-length
- #{x
-ANAU$bmvAmthP7L7xwo8l}#)
+ x-11636)
4)
(eq? (vector-ref
- #{x
-ANAU$bmvAmthP7L7xwo8l}#
+ x-11636
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{x
-ANAU$bmvAmthP7L7xwo8l}#
- 1)
- #{x
-ANAU$bmvAmthP7L7xwo8l}#))
- (eq? (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
- #{pat
-ANAU$bmvAmthP7L7xwo8J}#
+ (vector-ref x-11636 1)
+ x-11636))
+ (eq? (id-var-name-4505
+ pat-11608
'(()))
- (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
- #{x -ANAU$bmvAmthP7L7xwo8l}#
+ (id-var-name-4505
+ x-11636
'(())))
#f)))
(cons '#(syntax-object
@@ -18215,23 +16723,26 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("17y" "17z"))
+ #("l-*-4024" "l-*-4025"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("17t"
- "17u"
- "17v"
- "17w"
- "17x"))
+ #("l-*-4013"
+ "l-*-4014"
+ "l-*-4015"
+ "l-*-4016"
+ "l-*-4017"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("15s" "15r" "15q" "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
@@ -18345,7 +16856,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -18513,154 +17024,154 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
- #{keys -ANAU$bmvAmthP7L7xwo7c}#))
+ keys-11563))
#f)
(if (if (eq? (if (if (= (vector-length
'#(syntax-object
@@ -18669,7 +17180,8 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("17y" "17z"))
+ #("l-*-4024"
+ "l-*-4025"))
#(ribcage () () ())
#(ribcage
#(x
@@ -18682,11 +17194,11 @@
(top)
(top)
(top))
- #("17t"
- "17u"
- "17v"
- "17w"
- "17x"))
+ #("l-*-4013"
+ "l-*-4014"
+ "l-*-4015"
+ "l-*-4016"
+ "l-*-4017"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -18696,10 +17208,10 @@
(top)
(top)
(top))
- ("15s"
- "15r"
- "15q"
- "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
@@ -18813,7 +17325,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -18981,146 +17493,146 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -19128,7 +17640,9 @@
((top)
(top)
(top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
4)
#t
@@ -19140,7 +17654,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("17y" "17z"))
+ #("l-*-4024" "l-*-4025"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -19149,18 +17663,21 @@
(top)
(top)
(top))
- #("17t"
- "17u"
- "17v"
- "17w"
- "17x"))
+ #("l-*-4013"
+ "l-*-4014"
+ "l-*-4015"
+ "l-*-4016"
+ "l-*-4017"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("15s" "15r" "15q" "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
@@ -19274,7 +17791,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -19442,152 +17959,154 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
(if (if (= (vector-length
'#(syntax-object
@@ -19596,7 +18115,8 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("17y" "17z"))
+ #("l-*-4024"
+ "l-*-4025"))
#(ribcage () () ())
#(ribcage
#(x
@@ -19609,11 +18129,11 @@
(top)
(top)
(top))
- #("17t"
- "17u"
- "17v"
- "17w"
- "17x"))
+ #("l-*-4013"
+ "l-*-4014"
+ "l-*-4015"
+ "l-*-4016"
+ "l-*-4017"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -19623,10 +18143,10 @@
(top)
(top)
(top))
- ("15s"
- "15r"
- "15q"
- "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
@@ -19740,7 +18260,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -19908,146 +18428,146 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -20055,7 +18575,9 @@
((top)
(top)
(top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile)))
4)
#t
@@ -20067,7 +18589,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("17y" "17z"))
+ #("l-*-4024" "l-*-4025"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -20076,18 +18598,21 @@
(top)
(top)
(top))
- #("17t"
- "17u"
- "17v"
- "17w"
- "17x"))
+ #("l-*-4013"
+ "l-*-4014"
+ "l-*-4015"
+ "l-*-4016"
+ "l-*-4017"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("15s" "15r" "15q" "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
@@ -20201,7 +18726,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -20369,161 +18894,163 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))))
- (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ (eq? (id-var-name-4505
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("17y" "17z"))
+ #("l-*-4024" "l-*-4025"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -20532,18 +19059,21 @@
(top)
(top)
(top))
- #("17t"
- "17u"
- "17v"
- "17w"
- "17x"))
+ #("l-*-4013"
+ "l-*-4014"
+ "l-*-4015"
+ "l-*-4016"
+ "l-*-4017"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("15s" "15r" "15q" "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
@@ -20657,7 +19187,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -20825,162 +19355,162 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
'(()))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ (id-var-name-4505
'#(syntax-object
_
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("17y" "17z"))
+ #("l-*-4024" "l-*-4025"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -20989,18 +19519,21 @@
(top)
(top)
(top))
- #("17t"
- "17u"
- "17v"
- "17w"
- "17x"))
+ #("l-*-4013"
+ "l-*-4014"
+ "l-*-4015"
+ "l-*-4016"
+ "l-*-4017"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("15s" "15r" "15q" "15p"))
+ ("l-*-3823"
+ "l-*-3821"
+ "l-*-3819"
+ "l-*-3817"))
#(ribcage
(lambda-var-list
gen-var
@@ -21114,7 +19647,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -21282,317 +19815,278 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47" "l-*-46" "l-*-45")))
(hygiene guile))
'(())))
#f)
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{exp -ANAU$bmvAmthP7L7xwo8K}#
- #{r -ANAU$bmvAmthP7L7xwo7e}#
- '(())
- #{mod -ANAU$bmvAmthP7L7xwo7f}#)
- (let ((#{labels address@hidden
- (list (#{gen-label
-ANAU$bmvAmthP7L7xwnNi}#)))
- (#{var address@hidden
- (let ((#{id address@hidden
- (if (if (vector?
- #{pat
-ANAU$bmvAmthP7L7xwo8J}#)
+ (expand-4522 exp-11609 r-11565 '(()) mod-11566)
+ (let ((labels-11812
+ (list (string-append
+ "l-"
+ (session-id-4447)
+ (symbol->string (gensym "-")))))
+ (var-11813
+ (let ((id-11851
+ (if (if (vector? pat-11608)
(if (= (vector-length
- #{pat
-ANAU$bmvAmthP7L7xwo8J}#)
+ pat-11608)
4)
(eq? (vector-ref
- #{pat
-ANAU$bmvAmthP7L7xwo8J}#
+ pat-11608
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{pat
-ANAU$bmvAmthP7L7xwo8J}#
- 1)
- #{pat
-ANAU$bmvAmthP7L7xwo8J}#)))
+ (vector-ref pat-11608 1)
+ pat-11608)))
(gensym
(string-append
- (symbol->string
- #{id address@hidden)
- " ")))))
- (#{build-application address@hidden
+ (symbol->string id-11851)
+ "-")))))
+ (build-application-4453
#f
- (#{build-simple-lambda
-ANAU$bmvAmthP7L7xwnNI}#
+ (build-simple-lambda-4462
#f
- (list (syntax->datum
- #{pat -ANAU$bmvAmthP7L7xwo8J}#))
+ (list (syntax->datum pat-11608))
#f
- (list #{var address@hidden)
+ (list var-11813)
'()
- (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{exp -ANAU$bmvAmthP7L7xwo8K}#
- (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
- #{labels address@hidden
+ (expand-4522
+ exp-11609
+ (extend-env-4480
+ labels-11812
(list (cons 'syntax
- (cons #{var address@hidden
- 0)))
- #{r -ANAU$bmvAmthP7L7xwo7e}#)
- (#{make-binding-wrap
-ANAU$bmvAmthP7L7xwnNu}#
- (list #{pat -ANAU$bmvAmthP7L7xwo8J}#)
- #{labels address@hidden
+ (cons var-11813 0)))
+ r-11565)
+ (make-binding-wrap-4500
+ (list pat-11608)
+ labels-11812
'(()))
- #{mod -ANAU$bmvAmthP7L7xwo7f}#))
- (list #{x -ANAU$bmvAmthP7L7xwo7b}#))))
- (#{gen-clause -ANAU$bmvAmthP7L7xwo1L}#
- #{x -ANAU$bmvAmthP7L7xwo7b}#
- #{keys -ANAU$bmvAmthP7L7xwo7c}#
- (cdr #{clauses -ANAU$bmvAmthP7L7xwo7d}#)
- #{r -ANAU$bmvAmthP7L7xwo7e}#
- #{pat -ANAU$bmvAmthP7L7xwo8J}#
+ mod-11566))
+ (list x-11562))))
+ (gen-clause-11162
+ x-11562
+ keys-11563
+ (cdr clauses-11564)
+ r-11565
+ pat-11608
#t
- #{exp -ANAU$bmvAmthP7L7xwo8K}#
- #{mod -ANAU$bmvAmthP7L7xwo7f}#)))
- #{tmp -ANAU$bmvAmthP7L7xwo8H}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwpEI}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwo8G}#
- '(any any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwpEI}#
+ exp-11609
+ mod-11566)))
+ tmp-11606)
+ (let ((tmp-12121
+ ($sc-dispatch tmp-11605 '(any any any))))
+ (if tmp-12121
(@apply
- (lambda (#{pat -ANAU$bmvAmthP7L7xwpEK}#
- #{fender -ANAU$bmvAmthP7L7xwpEL}#
- #{exp -ANAU$bmvAmthP7L7xwpEM}#)
- (#{gen-clause -ANAU$bmvAmthP7L7xwo1L}#
- #{x -ANAU$bmvAmthP7L7xwo7b}#
- #{keys -ANAU$bmvAmthP7L7xwo7c}#
- (cdr #{clauses -ANAU$bmvAmthP7L7xwo7d}#)
- #{r -ANAU$bmvAmthP7L7xwo7e}#
- #{pat -ANAU$bmvAmthP7L7xwpEK}#
- #{fender -ANAU$bmvAmthP7L7xwpEL}#
- #{exp -ANAU$bmvAmthP7L7xwpEM}#
- #{mod -ANAU$bmvAmthP7L7xwo7f}#))
- #{tmp -ANAU$bmvAmthP7L7xwpEI}#)
+ (lambda (pat-12123 fender-12124 exp-12125)
+ (gen-clause-11162
+ x-11562
+ keys-11563
+ (cdr clauses-11564)
+ r-11565
+ pat-12123
+ fender-12124
+ exp-12125
+ mod-11566))
+ tmp-12121)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses -ANAU$bmvAmthP7L7xwo7d}#)))))))))))
- (lambda (#{e -ANAU$bmvAmthP7L7xwo1N}#
- #{r -ANAU$bmvAmthP7L7xwo1O}#
- #{w -ANAU$bmvAmthP7L7xwo1P}#
- #{s -ANAU$bmvAmthP7L7xwo1Q}#
- #{mod -ANAU$bmvAmthP7L7xwo1R}#)
- (let ((#{e -ANAU$bmvAmthP7L7xwo1S}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ (car clauses-11564)))))))))))
+ (lambda (e-11164 r-11165 w-11166 s-11167 mod-11168)
+ (let ((e-11169
+ (wrap-4515
(begin
- (if (if (pair? #{e -ANAU$bmvAmthP7L7xwo1N}#)
- #{s -ANAU$bmvAmthP7L7xwo1Q}#
- #f)
- (set-source-properties!
- #{e -ANAU$bmvAmthP7L7xwo1N}#
- #{s -ANAU$bmvAmthP7L7xwo1Q}#))
- #{e -ANAU$bmvAmthP7L7xwo1N}#)
- #{w -ANAU$bmvAmthP7L7xwo1P}#
- #{mod -ANAU$bmvAmthP7L7xwo1R}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwo1U}#
+ (if (if (pair? e-11164) s-11167 #f)
+ (set-source-properties! e-11164 s-11167))
+ e-11164)
+ w-11166
+ mod-11168)))
+ (let ((tmp-11171
($sc-dispatch
- #{e -ANAU$bmvAmthP7L7xwo1S}#
+ e-11169
'(_ any each-any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwo1U}#
+ (if tmp-11171
(@apply
- (lambda (#{val -ANAU$bmvAmthP7L7xwo1t}#
- #{key -ANAU$bmvAmthP7L7xwo1u}#
- #{m -ANAU$bmvAmthP7L7xwo1v}#)
+ (lambda (val-11196 key-11197 m-11198)
(if (and-map
- (lambda (#{x -ANAU$bmvAmthP7L7xwo1w}#)
- (if (if (symbol? #{x -ANAU$bmvAmthP7L7xwo1w}#)
+ (lambda (x-11199)
+ (if (if (symbol? x-11199)
#t
- (if (if (vector?
- #{x -ANAU$bmvAmthP7L7xwo1w}#)
- (if (= (vector-length
- #{x
-ANAU$bmvAmthP7L7xwo1w}#)
- 4)
- (eq? (vector-ref
- #{x -ANAU$bmvAmthP7L7xwo1w}#
- 0)
+ (if (if (vector? x-11199)
+ (if (= (vector-length x-11199) 4)
+ (eq? (vector-ref x-11199 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{x -ANAU$bmvAmthP7L7xwo1w}#
- 1))
+ (symbol? (vector-ref x-11199 1))
#f))
- (not (if (if (if (vector?
- #{x
-ANAU$bmvAmthP7L7xwo1w}#)
- (if (= (vector-length
- #{x
-ANAU$bmvAmthP7L7xwo1w}#)
+ (not (if (if (if (vector? x-11199)
+ (if (= (vector-length x-11199)
4)
- (eq? (vector-ref
- #{x
-ANAU$bmvAmthP7L7xwo1w}#
- 0)
+ (eq? (vector-ref x-11199 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{x -ANAU$bmvAmthP7L7xwo1w}#
- 1))
+ (symbol? (vector-ref x-11199 1))
#f)
- (if (eq? (if (if (vector?
- #{x
-ANAU$bmvAmthP7L7xwo1w}#)
+ (if (eq? (if (if (vector? x-11199)
(if (= (vector-length
- #{x
-ANAU$bmvAmthP7L7xwo1w}#)
+ x-11199)
4)
(eq? (vector-ref
- #{x
-ANAU$bmvAmthP7L7xwo1w}#
+ x-11199
0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{x
-ANAU$bmvAmthP7L7xwo1w}#
- 1)
- #{x -ANAU$bmvAmthP7L7xwo1w}#)
+ (vector-ref x-11199 1)
+ x-11199)
(if (if (= (vector-length
'#(syntax-object
...
@@ -21608,7 +20102,7 @@
#(ribcage
#(x)
#((top))
- #("p6"))
+
#("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
@@ -21722,7 +20216,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
-
gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -21890,146 +20384,146 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -22037,9 +20531,9 @@
((top)
(top)
(top))
- ("8"
- "7"
- "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene
guile)))
4)
@@ -22054,7 +20548,7 @@
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
@@ -22168,7 +20662,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -22336,157 +20830,157 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))))
- (eq? (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
- #{x -ANAU$bmvAmthP7L7xwo1w}#
- '(()))
- (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
+ (eq? (id-var-name-4505 x-11199 '(()))
+ (id-var-name-4505
'#(syntax-object
...
((top)
@@ -22495,7 +20989,7 @@
#(ribcage
#(x)
#((top))
- #("p6"))
+ #("l-*-2343"))
#(ribcage
(lambda-var-list
gen-var
@@ -22609,7 +21103,7 @@
decorate-source
get-global-definition-hook
put-global-definition-hook
- gensym-hook
+ session-id
local-eval-hook
top-level-eval-hook
fx<
@@ -22777,1147 +21271,911 @@
(top)
(top)
(top))
- ("5l"
- "5k"
- "5j"
- "5i"
- "5h"
- "5g"
- "5f"
- "5e"
- "5d"
- "5c"
- "5b"
- "5a"
- "59"
- "58"
- "57"
- "56"
- "55"
- "54"
- "53"
- "52"
- "51"
- "50"
- "4z"
- "4y"
- "4x"
- "4w"
- "4v"
- "4u"
- "4t"
- "4s"
- "4r"
- "4q"
- "4p"
- "4o"
- "4n"
- "4m"
- "4l"
- "4k"
- "4j"
- "4i"
- "4h"
- "4g"
- "4f"
- "4e"
- "4d"
- "4c"
- "4b"
- "4a"
- "49"
- "48"
- "47"
- "46"
- "45"
- "44"
- "43"
- "42"
- "41"
- "40"
- "3z"
- "3y"
- "3x"
- "3w"
- "3v"
- "3u"
- "3t"
- "3s"
- "3r"
- "3q"
- "3p"
- "3o"
- "3n"
- "3m"
- "3l"
- "3k"
- "3j"
- "3i"
- "3h"
- "3g"
- "3f"
- "3e"
- "3d"
- "3c"
- "3b"
- "3a"
- "39"
- "38"
- "37"
- "36"
- "35"
- "34"
- "33"
- "32"
- "31"
- "30"
- "2z"
- "2y"
- "2x"
- "2w"
- "2v"
- "2u"
- "2t"
- "2s"
- "2r"
- "2q"
- "2p"
- "2o"
- "2n"
- "2m"
- "2l"
- "2k"
- "2j"
- "2i"
- "2h"
- "2g"
- "2f"
- "2e"
- "2d"
- "2c"
- "2b"
- "2a"
- "29"
- "28"
- "27"
- "26"
- "25"
- "24"
- "23"
- "22"
- "21"
- "20"
- "1z"
- "1y"
- "1x"
- "1w"
- "1v"
- "1u"
- "1t"
- "1s"
- "1r"
- "1q"))
+ ("l-*-476"
+ "l-*-474"
+ "l-*-472"
+ "l-*-470"
+ "l-*-468"
+ "l-*-466"
+ "l-*-464"
+ "l-*-462"
+ "l-*-460"
+ "l-*-458"
+ "l-*-456"
+ "l-*-454"
+ "l-*-452"
+ "l-*-450"
+ "l-*-448"
+ "l-*-446"
+ "l-*-444"
+ "l-*-442"
+ "l-*-440"
+ "l-*-438"
+ "l-*-436"
+ "l-*-434"
+ "l-*-432"
+ "l-*-430"
+ "l-*-428"
+ "l-*-426"
+ "l-*-424"
+ "l-*-422"
+ "l-*-420"
+ "l-*-418"
+ "l-*-416"
+ "l-*-414"
+ "l-*-412"
+ "l-*-410"
+ "l-*-408"
+ "l-*-406"
+ "l-*-404"
+ "l-*-402"
+ "l-*-400"
+ "l-*-399"
+ "l-*-397"
+ "l-*-394"
+ "l-*-393"
+ "l-*-392"
+ "l-*-390"
+ "l-*-389"
+ "l-*-387"
+ "l-*-385"
+ "l-*-383"
+ "l-*-381"
+ "l-*-379"
+ "l-*-377"
+ "l-*-375"
+ "l-*-373"
+ "l-*-370"
+ "l-*-368"
+ "l-*-367"
+ "l-*-365"
+ "l-*-363"
+ "l-*-361"
+ "l-*-359"
+ "l-*-358"
+ "l-*-357"
+ "l-*-356"
+ "l-*-354"
+ "l-*-353"
+ "l-*-350"
+ "l-*-348"
+ "l-*-346"
+ "l-*-344"
+ "l-*-342"
+ "l-*-340"
+ "l-*-338"
+ "l-*-337"
+ "l-*-336"
+ "l-*-334"
+ "l-*-332"
+ "l-*-331"
+ "l-*-328"
+ "l-*-327"
+ "l-*-325"
+ "l-*-323"
+ "l-*-321"
+ "l-*-319"
+ "l-*-317"
+ "l-*-315"
+ "l-*-313"
+ "l-*-311"
+ "l-*-309"
+ "l-*-306"
+ "l-*-304"
+ "l-*-302"
+ "l-*-300"
+ "l-*-298"
+ "l-*-296"
+ "l-*-294"
+ "l-*-292"
+ "l-*-290"
+ "l-*-288"
+ "l-*-286"
+ "l-*-284"
+ "l-*-282"
+ "l-*-280"
+ "l-*-278"
+ "l-*-276"
+ "l-*-274"
+ "l-*-272"
+ "l-*-270"
+ "l-*-268"
+ "l-*-266"
+ "l-*-264"
+ "l-*-262"
+ "l-*-260"
+ "l-*-258"
+ "l-*-256"
+ "l-*-255"
+ "l-*-254"
+ "l-*-253"
+ "l-*-252"
+ "l-*-250"
+ "l-*-248"
+ "l-*-246"
+ "l-*-243"
+ "l-*-241"
+ "l-*-239"
+ "l-*-237"
+ "l-*-235"
+ "l-*-233"
+ "l-*-231"
+ "l-*-229"
+ "l-*-227"
+ "l-*-225"
+ "l-*-223"
+ "l-*-221"
+ "l-*-219"
+ "l-*-217"
+ "l-*-215"
+ "l-*-213"
+ "l-*-211"
+ "l-*-209"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("l-*-47"
+ "l-*-46"
+ "l-*-45")))
(hygiene guile))
'(())))
#f)
#f))
#f))
- #{key -ANAU$bmvAmthP7L7xwo1u}#)
- (let ((#{x -ANAU$bmvAmthP7L7xwo3u}#
+ key-11197)
+ (let ((x-11325
(gensym
- (string-append (symbol->string 'tmp) " "))))
- (#{build-application address@hidden
- #{s -ANAU$bmvAmthP7L7xwo1Q}#
- (let ((#{req -ANAU$bmvAmthP7L7xwo5w}# (list 'tmp))
- (#{vars -ANAU$bmvAmthP7L7xwo5y}#
- (list #{x -ANAU$bmvAmthP7L7xwo3u}#))
- (#{exp -ANAU$bmvAmthP7L7xwo50}#
- (#{gen-syntax-case -ANAU$bmvAmthP7L7xwo1M}#
+ (string-append (symbol->string 'tmp) "-"))))
+ (build-application-4453
+ s-11167
+ (let ((req-11455 (list 'tmp))
+ (vars-11457 (list x-11325))
+ (exp-11459
+ (gen-syntax-case-11163
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x -ANAU$bmvAmthP7L7xwo3u}#)
- #{key -ANAU$bmvAmthP7L7xwo1u}#
- #{m -ANAU$bmvAmthP7L7xwo1v}#
- #{r -ANAU$bmvAmthP7L7xwo1O}#
- #{mod -ANAU$bmvAmthP7L7xwo1R}#)))
- (let ((#{body -ANAU$bmvAmthP7L7xwo55}#
+ x-11325)
+ key-11197
+ m-11198
+ r-11165
+ mod-11168)))
+ (let ((body-11464
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req -ANAU$bmvAmthP7L7xwo5w}#
+ req-11455
#f
#f
#f
'()
- #{vars -ANAU$bmvAmthP7L7xwo5y}#
- #{exp -ANAU$bmvAmthP7L7xwo50}#
+ vars-11457
+ exp-11459
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body -ANAU$bmvAmthP7L7xwo55}#)))
- (list (#{expand -ANAU$bmvAmthP7L7xwnOE}#
- #{val -ANAU$bmvAmthP7L7xwo1t}#
- #{r -ANAU$bmvAmthP7L7xwo1O}#
+ body-11464)))
+ (list (expand-4522
+ val-11196
+ r-11165
'(())
- #{mod -ANAU$bmvAmthP7L7xwo1R}#))))
+ mod-11168))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e -ANAU$bmvAmthP7L7xwo1S}#)))
- #{tmp -ANAU$bmvAmthP7L7xwo1U}#)
+ e-11169)))
+ tmp-11171)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e -ANAU$bmvAmthP7L7xwo1S}#)))))))
+ e-11169)))))))
(set! macroexpand
(lambda*
- (#{x -ANAU$bmvAmthP7L7xwpfh}#
+ (x-13882
#:optional
- (#{m -ANAU$bmvAmthP7L7xwpfi}# 'e)
- (#{esew -ANAU$bmvAmthP7L7xwpfj}# '(eval)))
- (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}#
- (list #{x -ANAU$bmvAmthP7L7xwpfh}#)
+ (m-13883 'e)
+ (esew-13884 '(eval)))
+ (expand-top-sequence-4518
+ (list x-13882)
'()
'((top))
#f
- #{m -ANAU$bmvAmthP7L7xwpfi}#
- #{esew -ANAU$bmvAmthP7L7xwpfj}#
+ m-13883
+ esew-13884
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x -ANAU$bmvAmthP7L7xwpfm}#)
- (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpfm}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpfm}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpfm}# 0)
- 'syntax-object)
+ (lambda (x-13887)
+ (if (if (vector? x-13887)
+ (if (= (vector-length x-13887) 4)
+ (eq? (vector-ref x-13887 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{x -ANAU$bmvAmthP7L7xwpfm}# 1))
+ (symbol? (vector-ref x-13887 1))
#f)))
(set! datum->syntax
- (lambda (#{id address@hidden
- #{datum -ANAU$bmvAmthP7L7xwpgA}#)
- (let ((#{wrap -ANAU$bmvAmthP7L7xwpgF}#
- (vector-ref #{id address@hidden 2))
- (#{module -ANAU$bmvAmthP7L7xwpgG}#
- (vector-ref #{id address@hidden 3)))
+ (lambda (id-13912 datum-13913)
+ (let ((wrap-13918 (vector-ref id-13912 2))
+ (module-13919 (vector-ref id-13912 3)))
(vector
'syntax-object
- #{datum -ANAU$bmvAmthP7L7xwpgA}#
- #{wrap -ANAU$bmvAmthP7L7xwpgF}#
- #{module -ANAU$bmvAmthP7L7xwpgG}#))))
+ datum-13913
+ wrap-13918
+ module-13919))))
(set! syntax->datum
- (lambda (#{x -ANAU$bmvAmthP7L7xwpgN}#)
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- #{x -ANAU$bmvAmthP7L7xwpgN}#
- '(()))))
+ (lambda (x-13926) (strip-4535 x-13926 '(()))))
(set! syntax-source
- (lambda (#{x -ANAU$bmvAmthP7L7xwpgQ}#)
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- #{x -ANAU$bmvAmthP7L7xwpgQ}#)))
+ (lambda (x-13929)
+ (source-annotation-4479 x-13929)))
(set! generate-temporaries
- (lambda (#{ls -ANAU$bmvAmthP7L7xwpip}#)
+ (lambda (ls-14082)
(begin
- (if (not (list? #{ls -ANAU$bmvAmthP7L7xwpip}#))
+ (if (not (list? ls-14082))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls -ANAU$bmvAmthP7L7xwpip}#))
- (let ((#{mod -ANAU$bmvAmthP7L7xwpix}#
+ ls-14082))
+ (let ((mod-14090
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x -ANAU$bmvAmthP7L7xwpiy}#)
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- (gensym)
- '((top))
- #{mod -ANAU$bmvAmthP7L7xwpix}#))
- #{ls -ANAU$bmvAmthP7L7xwpip}#)))))
+ (map (lambda (x-14091)
+ (wrap-4515 (gensym "t-") '((top)) mod-14090))
+ ls-14082)))))
(set! free-identifier=?
- (lambda (#{x -ANAU$bmvAmthP7L7xwpi2}#
- #{y -ANAU$bmvAmthP7L7xwpi3}#)
+ (lambda (x-14095 y-14096)
(begin
- (if (not (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpi2}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpi2}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 0)
- 'syntax-object)
+ (if (not (if (if (vector? x-14095)
+ (if (= (vector-length x-14095) 4)
+ (eq? (vector-ref x-14095 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 1))
+ (symbol? (vector-ref x-14095 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x -ANAU$bmvAmthP7L7xwpi2}#))
- (if (not (if (if (vector? #{y -ANAU$bmvAmthP7L7xwpi3}#)
- (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwpi3}#)
- 4)
- (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 0)
- 'syntax-object)
+ x-14095))
+ (if (not (if (if (vector? y-14096)
+ (if (= (vector-length y-14096) 4)
+ (eq? (vector-ref y-14096 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 1))
+ (symbol? (vector-ref y-14096 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y -ANAU$bmvAmthP7L7xwpi3}#))
- (if (eq? (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpi2}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpi2}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 0)
- 'syntax-object)
+ y-14096))
+ (if (eq? (if (if (vector? x-14095)
+ (if (= (vector-length x-14095) 4)
+ (eq? (vector-ref x-14095 0) 'syntax-object)
#f)
#f)
- (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 1)
- #{x -ANAU$bmvAmthP7L7xwpi2}#)
- (if (if (vector? #{y -ANAU$bmvAmthP7L7xwpi3}#)
- (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwpi3}#)
- 4)
- (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 0)
- 'syntax-object)
+ (vector-ref x-14095 1)
+ x-14095)
+ (if (if (vector? y-14096)
+ (if (= (vector-length y-14096) 4)
+ (eq? (vector-ref y-14096 0) 'syntax-object)
#f)
#f)
- (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 1)
- #{y -ANAU$bmvAmthP7L7xwpi3}#))
- (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{x -ANAU$bmvAmthP7L7xwpi2}#
- '(()))
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{y -ANAU$bmvAmthP7L7xwpi3}#
- '(())))
+ (vector-ref y-14096 1)
+ y-14096))
+ (eq? (id-var-name-4505 x-14095 '(()))
+ (id-var-name-4505 y-14096 '(())))
#f))))
(set! bound-identifier=?
- (lambda (#{x -ANAU$bmvAmthP7L7xwplN}#
- #{y -ANAU$bmvAmthP7L7xwplO}#)
+ (lambda (x-14246 y-14247)
(begin
- (if (not (if (if (vector? #{x -ANAU$bmvAmthP7L7xwplN}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwplN}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 0)
- 'syntax-object)
+ (if (not (if (if (vector? x-14246)
+ (if (= (vector-length x-14246) 4)
+ (eq? (vector-ref x-14246 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 1))
+ (symbol? (vector-ref x-14246 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x -ANAU$bmvAmthP7L7xwplN}#))
- (if (not (if (if (vector? #{y -ANAU$bmvAmthP7L7xwplO}#)
- (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwplO}#)
- 4)
- (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 0)
- 'syntax-object)
+ x-14246))
+ (if (not (if (if (vector? y-14247)
+ (if (= (vector-length y-14247) 4)
+ (eq? (vector-ref y-14247 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 1))
+ (symbol? (vector-ref y-14247 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y -ANAU$bmvAmthP7L7xwplO}#))
- (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwplN}#)
- (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwplN}#)
- 4)
- (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 0)
- 'syntax-object)
+ y-14247))
+ (if (if (if (vector? x-14246)
+ (if (= (vector-length x-14246) 4)
+ (eq? (vector-ref x-14246 0) 'syntax-object)
#f)
#f)
- (if (vector? #{y -ANAU$bmvAmthP7L7xwplO}#)
- (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwplO}#)
- 4)
- (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 0)
- 'syntax-object)
+ (if (vector? y-14247)
+ (if (= (vector-length y-14247) 4)
+ (eq? (vector-ref y-14247 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 1)
- (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 1))
- (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}#
- (car (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 2))
- (car (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 2)))
+ (if (eq? (vector-ref x-14246 1)
+ (vector-ref y-14247 1))
+ (same-marks?-4504
+ (car (vector-ref x-14246 2))
+ (car (vector-ref y-14247 2)))
#f)
- (eq? #{x -ANAU$bmvAmthP7L7xwplN}#
- #{y -ANAU$bmvAmthP7L7xwplO}#)))))
+ (eq? x-14246 y-14247)))))
(set! syntax-violation
(lambda*
- (#{who -ANAU$bmvAmthP7L7xwpnT}#
- #{message -ANAU$bmvAmthP7L7xwpnU}#
- #{form -ANAU$bmvAmthP7L7xwpnV}#
+ (who-14380
+ message-14381
+ form-14382
#:optional
- (#{subform -ANAU$bmvAmthP7L7xwpnW}# #f))
+ (subform-14383 #f))
(begin
- (if (not (if (not #{who -ANAU$bmvAmthP7L7xwpnT}#)
- (not #{who -ANAU$bmvAmthP7L7xwpnT}#)
- (let ((#{t -ANAU$bmvAmthP7L7xwpno}#
- (string? #{who -ANAU$bmvAmthP7L7xwpnT}#)))
- (if #{t -ANAU$bmvAmthP7L7xwpno}#
- #{t -ANAU$bmvAmthP7L7xwpno}#
- (symbol? #{who -ANAU$bmvAmthP7L7xwpnT}#)))))
+ (if (not (if (not who-14380)
+ (not who-14380)
+ (let ((t-14401 (string? who-14380)))
+ (if t-14401 t-14401 (symbol? who-14380)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who -ANAU$bmvAmthP7L7xwpnT}#))
- (if (not (string? #{message -ANAU$bmvAmthP7L7xwpnU}#))
+ who-14380))
+ (if (not (string? message-14381))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message -ANAU$bmvAmthP7L7xwpnU}#))
+ message-14381))
(throw 'syntax-error
- #{who -ANAU$bmvAmthP7L7xwpnT}#
- #{message -ANAU$bmvAmthP7L7xwpnU}#
- (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
- (if #{form -ANAU$bmvAmthP7L7xwpnV}#
- #{form -ANAU$bmvAmthP7L7xwpnV}#
- #{subform -ANAU$bmvAmthP7L7xwpnW}#))
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- #{form -ANAU$bmvAmthP7L7xwpnV}#
- '(()))
- (if #{subform -ANAU$bmvAmthP7L7xwpnW}#
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- #{subform -ANAU$bmvAmthP7L7xwpnW}#
- '(()))
+ who-14380
+ message-14381
+ (source-annotation-4479
+ (if form-14382 form-14382 subform-14383))
+ (strip-4535 form-14382 '(()))
+ (if subform-14383
+ (strip-4535 subform-14383 '(()))
#f)))))
(letrec*
- ((#{syntax-local-binding -ANAU$bmvAmthP7L7xwpq0}#
- (lambda (#{id -ANAU$bmvAmthP7L7xwps5}#)
+ ((syntax-local-binding-14605
+ (lambda (id-14738)
(begin
- (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwps5}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwps5}#)
- 4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwps5}#
- 0)
- 'syntax-object)
+ (if (not (if (if (vector? id-14738)
+ (if (= (vector-length id-14738) 4)
+ (eq? (vector-ref id-14738 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 1))
+ (symbol? (vector-ref id-14738 1))
#f))
(syntax-violation
'syntax-local-binding
"invalid argument"
- #{id -ANAU$bmvAmthP7L7xwps5}#))
- ((fluid-ref
- #{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#)
- (lambda (#{e -ANAU$bmvAmthP7L7xwpth}#
- #{r -ANAU$bmvAmthP7L7xwpti}#
- #{w -ANAU$bmvAmthP7L7xwptj}#
- #{s -ANAU$bmvAmthP7L7xwptk}#
- #{rib -ANAU$bmvAmthP7L7xwptl}#
- #{mod -ANAU$bmvAmthP7L7xwptm}#)
+ id-14738))
+ ((fluid-ref transformer-environment-4508)
+ (lambda (e-14778
+ r-14779
+ w-14780
+ s-14781
+ rib-14782
+ mod-14783)
(call-with-values
(lambda ()
- (let ((#{id -ANAU$bmvAmthP7L7xwptp}#
- (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 1))
- (#{w -ANAU$bmvAmthP7L7xwptq}#
- (let ((#{w -ANAU$bmvAmthP7L7xwpt1}#
- (vector-ref
- #{id -ANAU$bmvAmthP7L7xwps5}#
- 2)))
- (let ((#{ms -ANAU$bmvAmthP7L7xwpt2}#
- (car #{w -ANAU$bmvAmthP7L7xwpt1}#))
- (#{s -ANAU$bmvAmthP7L7xwpt3}#
- (cdr #{w -ANAU$bmvAmthP7L7xwpt1}#)))
- (if (if (pair? #{ms -ANAU$bmvAmthP7L7xwpt2}#)
- (eq? (car #{ms
-ANAU$bmvAmthP7L7xwpt2}#)
- #f)
+ (let ((id-14786 (vector-ref id-14738 1))
+ (w-14787
+ (let ((w-14798 (vector-ref id-14738 2)))
+ (let ((ms-14799 (car w-14798))
+ (s-14800 (cdr w-14798)))
+ (if (if (pair? ms-14799)
+ (eq? (car ms-14799) #f)
#f)
- (cons (cdr #{ms -ANAU$bmvAmthP7L7xwpt2}#)
- (if #{rib -ANAU$bmvAmthP7L7xwptl}#
- (cons #{rib
-ANAU$bmvAmthP7L7xwptl}#
- (cdr #{s
-ANAU$bmvAmthP7L7xwpt3}#))
- (cdr #{s
-ANAU$bmvAmthP7L7xwpt3}#)))
- (cons #{ms -ANAU$bmvAmthP7L7xwpt2}#
- (if #{rib -ANAU$bmvAmthP7L7xwptl}#
- (cons #{rib
-ANAU$bmvAmthP7L7xwptl}#
- #{s -ANAU$bmvAmthP7L7xwpt3}#)
- #{s -ANAU$bmvAmthP7L7xwpt3}#))))))
- (#{mod -ANAU$bmvAmthP7L7xwpts}#
- (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 3)))
- (let ((#{n -ANAU$bmvAmthP7L7xwptv}#
- (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
- #{id -ANAU$bmvAmthP7L7xwptp}#
- #{w -ANAU$bmvAmthP7L7xwptq}#)))
- (if (symbol? #{n -ANAU$bmvAmthP7L7xwptv}#)
- (let ((#{mod -ANAU$bmvAmthP7L7xwpt9}#
- (if (if (vector?
- #{id -ANAU$bmvAmthP7L7xwptp}#)
- (if (= (vector-length
- #{id
-ANAU$bmvAmthP7L7xwptp}#)
- 4)
- (eq? (vector-ref
- #{id
-ANAU$bmvAmthP7L7xwptp}#
- 0)
+ (cons (cdr ms-14799)
+ (if rib-14782
+ (cons rib-14782 (cdr s-14800))
+ (cdr s-14800)))
+ (cons ms-14799
+ (if rib-14782
+ (cons rib-14782 s-14800)
+ s-14800))))))
+ (mod-14789 (vector-ref id-14738 3)))
+ (let ((n-14792 (id-var-name-4505 id-14786 w-14787)))
+ (if (symbol? n-14792)
+ (let ((mod-14806
+ (if (if (vector? id-14786)
+ (if (= (vector-length id-14786) 4)
+ (eq? (vector-ref id-14786 0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{id -ANAU$bmvAmthP7L7xwptp}#
- 3)
- #{mod -ANAU$bmvAmthP7L7xwpts}#)))
- (let ((#{b -ANAU$bmvAmthP7L7xwpt$}#
- (let ((#{t address@hidden
- (#{get-global-definition-hook
-ANAU$bmvAmthP7L7xwnM7}#
- #{n -ANAU$bmvAmthP7L7xwptv}#
- #{mod
-ANAU$bmvAmthP7L7xwpt9}#)))
- (if #{t address@hidden
- #{t address@hidden
- '(global)))))
- (if (eq? (car #{b -ANAU$bmvAmthP7L7xwpt$}#)
- 'global)
+ (vector-ref id-14786 3)
+ mod-14789)))
+ (let ((b-14807
+ (let ((t-14808
+ (get-global-definition-hook-4449
+ n-14792
+ mod-14806)))
+ (if t-14808 t-14808 '(global)))))
+ (if (eq? (car b-14807) 'global)
+ (values 'global n-14792 mod-14806)
(values
- 'global
- #{n -ANAU$bmvAmthP7L7xwptv}#
- #{mod -ANAU$bmvAmthP7L7xwpt9}#)
- (values
- (car #{b -ANAU$bmvAmthP7L7xwpt$}#)
- (cdr #{b -ANAU$bmvAmthP7L7xwpt$}#)
- #{mod -ANAU$bmvAmthP7L7xwpt9}#))))
- (if (string? #{n -ANAU$bmvAmthP7L7xwptv}#)
- (let ((#{mod -ANAU$bmvAmthP7L7xwpuZ}#
- (if (if (vector?
- #{id -ANAU$bmvAmthP7L7xwptp}#)
- (if (= (vector-length
- #{id
-ANAU$bmvAmthP7L7xwptp}#)
- 4)
- (eq? (vector-ref
- #{id
-ANAU$bmvAmthP7L7xwptp}#
- 0)
+ (car b-14807)
+ (cdr b-14807)
+ mod-14806))))
+ (if (string? n-14792)
+ (let ((mod-14834
+ (if (if (vector? id-14786)
+ (if (= (vector-length id-14786) 4)
+ (eq? (vector-ref id-14786 0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{id -ANAU$bmvAmthP7L7xwptp}#
- 3)
- #{mod -ANAU$bmvAmthP7L7xwpts}#)))
- (let ((#{b -ANAU$bmvAmthP7L7xwpua}#
- (let ((#{t -ANAU$bmvAmthP7L7xwpub}#
- (assq-ref
- #{r -ANAU$bmvAmthP7L7xwpti}#
- #{n
-ANAU$bmvAmthP7L7xwptv}#)))
- (if #{t -ANAU$bmvAmthP7L7xwpub}#
- #{t -ANAU$bmvAmthP7L7xwpub}#
+ (vector-ref id-14786 3)
+ mod-14789)))
+ (let ((b-14835
+ (let ((t-14836
+ (assq-ref r-14779 n-14792)))
+ (if t-14836
+ t-14836
'(displaced-lexical)))))
(values
- (car #{b -ANAU$bmvAmthP7L7xwpua}#)
- (cdr #{b -ANAU$bmvAmthP7L7xwpua}#)
- #{mod -ANAU$bmvAmthP7L7xwpuZ}#)))
+ (car b-14835)
+ (cdr b-14835)
+ mod-14834)))
(error "unexpected id-var-name"
- #{id -ANAU$bmvAmthP7L7xwptp}#
- #{w -ANAU$bmvAmthP7L7xwptq}#
- #{n -ANAU$bmvAmthP7L7xwptv}#))))))
- (lambda (#{type -ANAU$bmvAmthP7L7xwpuo}#
- #{value -ANAU$bmvAmthP7L7xwpup}#
- #{mod -ANAU$bmvAmthP7L7xwpuq}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# 'lexical)
- (values
- 'lexical
- #{value -ANAU$bmvAmthP7L7xwpup}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# 'macro)
- (values 'macro #{value -ANAU$bmvAmthP7L7xwpup}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# 'syntax)
- (values
- 'pattern-variable
- #{value -ANAU$bmvAmthP7L7xwpup}#)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}#
- 'displaced-lexical)
+ id-14786
+ w-14787
+ n-14792))))))
+ (lambda (type-14849 value-14850 mod-14851)
+ (if (eqv? type-14849 'lexical)
+ (values 'lexical value-14850)
+ (if (eqv? type-14849 'macro)
+ (values 'macro value-14850)
+ (if (eqv? type-14849 'syntax)
+ (values 'pattern-variable value-14850)
+ (if (eqv? type-14849 'displaced-lexical)
(values 'displaced-lexical #f)
- (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}#
- 'global)
+ (if (eqv? type-14849 'global)
(values
'global
- (cons #{value -ANAU$bmvAmthP7L7xwpup}#
- (cdr #{mod -ANAU$bmvAmthP7L7xwpuq}#)))
+ (cons value-14850 (cdr mod-14851)))
(values 'other #f)))))))))))))
- (#{syntax-locally-bound-identifiers -ANAU$bmvAmthP7L7xwpq1}#
- (lambda (#{id -ANAU$bmvAmthP7L7xwpu1}#)
+ (syntax-locally-bound-identifiers-14606
+ (lambda (id-14862)
(begin
- (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwpu1}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwpu1}#)
- 4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwpu1}#
- 0)
- 'syntax-object)
+ (if (not (if (if (vector? id-14862)
+ (if (= (vector-length id-14862) 4)
+ (eq? (vector-ref id-14862 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 1))
+ (symbol? (vector-ref id-14862 1))
#f))
(syntax-violation
'syntax-locally-bound-identifiers
"invalid argument"
- #{id -ANAU$bmvAmthP7L7xwpu1}#))
- (#{locally-bound-identifiers -ANAU$bmvAmthP7L7xwnN0}#
- (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 2)
- (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 3))))))
+ id-14862))
+ (locally-bound-identifiers-4506
+ (vector-ref id-14862 2)
+ (vector-ref id-14862 3))))))
(begin
(define!
'syntax-module
- (lambda (#{id -ANAU$bmvAmthP7L7xwpq3}#)
+ (lambda (id-14608)
(begin
- (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwpq3}#)
- (if (= (vector-length
- #{id -ANAU$bmvAmthP7L7xwpq3}#)
- 4)
- (eq? (vector-ref
- #{id -ANAU$bmvAmthP7L7xwpq3}#
- 0)
- 'syntax-object)
+ (if (not (if (if (vector? id-14608)
+ (if (= (vector-length id-14608) 4)
+ (eq? (vector-ref id-14608 0) 'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref #{id -ANAU$bmvAmthP7L7xwpq3}# 1))
+ (symbol? (vector-ref id-14608 1))
#f))
(syntax-violation
'syntax-module
"invalid argument"
- #{id -ANAU$bmvAmthP7L7xwpq3}#))
- (cdr (vector-ref #{id -ANAU$bmvAmthP7L7xwpq3}# 3)))))
+ id-14608))
+ (cdr (vector-ref id-14608 3)))))
(define!
'syntax-local-binding
- #{syntax-local-binding -ANAU$bmvAmthP7L7xwpq0}#)
+ syntax-local-binding-14605)
(define!
'syntax-locally-bound-identifiers
- #{syntax-locally-bound-identifiers -ANAU$bmvAmthP7L7xwpq1}#)))
+ syntax-locally-bound-identifiers-14606)))
(letrec*
- ((#{match-each -ANAU$bmvAmthP7L7xwpwg}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwp5r}#
- #{p -ANAU$bmvAmthP7L7xwp5s}#
- #{w -ANAU$bmvAmthP7L7xwp5t}#
- #{mod -ANAU$bmvAmthP7L7xwp5u}#)
- (if (pair? #{e -ANAU$bmvAmthP7L7xwp5r}#)
- (let ((#{first -ANAU$bmvAmthP7L7xwp5v}#
- (#{match -ANAU$bmvAmthP7L7xwpwm}#
- (car #{e -ANAU$bmvAmthP7L7xwp5r}#)
- #{p -ANAU$bmvAmthP7L7xwp5s}#
- #{w -ANAU$bmvAmthP7L7xwp5t}#
+ ((match-each-14969
+ (lambda (e-15556 p-15557 w-15558 mod-15559)
+ (if (pair? e-15556)
+ (let ((first-15560
+ (match-14975
+ (car e-15556)
+ p-15557
+ w-15558
'()
- #{mod -ANAU$bmvAmthP7L7xwp5u}#)))
- (if #{first -ANAU$bmvAmthP7L7xwp5v}#
- (let ((#{rest -ANAU$bmvAmthP7L7xwp5y}#
- (#{match-each -ANAU$bmvAmthP7L7xwpwg}#
- (cdr #{e -ANAU$bmvAmthP7L7xwp5r}#)
- #{p -ANAU$bmvAmthP7L7xwp5s}#
- #{w -ANAU$bmvAmthP7L7xwp5t}#
- #{mod -ANAU$bmvAmthP7L7xwp5u}#)))
- (if #{rest -ANAU$bmvAmthP7L7xwp5y}#
- (cons #{first -ANAU$bmvAmthP7L7xwp5v}#
- #{rest -ANAU$bmvAmthP7L7xwp5y}#)
- #f))
+ mod-15559)))
+ (if first-15560
+ (let ((rest-15563
+ (match-each-14969
+ (cdr e-15556)
+ p-15557
+ w-15558
+ mod-15559)))
+ (if rest-15563 (cons first-15560 rest-15563) #f))
#f))
- (if (null? #{e -ANAU$bmvAmthP7L7xwp5r}#)
+ (if (null? e-15556)
'()
- (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp5r}#)
- (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp5r}#)
- 4)
- (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 0)
- 'syntax-object)
+ (if (if (vector? e-15556)
+ (if (= (vector-length e-15556) 4)
+ (eq? (vector-ref e-15556 0) 'syntax-object)
#f)
#f)
- (#{match-each -ANAU$bmvAmthP7L7xwpwg}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 1)
- #{p -ANAU$bmvAmthP7L7xwp5s}#
- (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
- #{w -ANAU$bmvAmthP7L7xwp5t}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 2))
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 3))
+ (match-each-14969
+ (vector-ref e-15556 1)
+ p-15557
+ (join-wraps-4502 w-15558 (vector-ref e-15556 2))
+ (vector-ref e-15556 3))
#f)))))
- (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwp6O}#
- #{w -ANAU$bmvAmthP7L7xwp6P}#
- #{mod -ANAU$bmvAmthP7L7xwp6Q}#)
- (if (pair? #{e -ANAU$bmvAmthP7L7xwp6O}#)
- (let ((#{l -ANAU$bmvAmthP7L7xwp6R}#
- (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}#
- (cdr #{e -ANAU$bmvAmthP7L7xwp6O}#)
- #{w -ANAU$bmvAmthP7L7xwp6P}#
- #{mod -ANAU$bmvAmthP7L7xwp6Q}#)))
- (if #{l -ANAU$bmvAmthP7L7xwp6R}#
- (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- (car #{e -ANAU$bmvAmthP7L7xwp6O}#)
- #{w -ANAU$bmvAmthP7L7xwp6P}#
- #{mod -ANAU$bmvAmthP7L7xwp6Q}#)
- #{l -ANAU$bmvAmthP7L7xwp6R}#)
+ (match-each-any-14971
+ (lambda (e-15591 w-15592 mod-15593)
+ (if (pair? e-15591)
+ (let ((l-15594
+ (match-each-any-14971
+ (cdr e-15591)
+ w-15592
+ mod-15593)))
+ (if l-15594
+ (cons (wrap-4515 (car e-15591) w-15592 mod-15593)
+ l-15594)
#f))
- (if (null? #{e -ANAU$bmvAmthP7L7xwp6O}#)
+ (if (null? e-15591)
'()
- (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp6O}#)
- (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp6O}#)
- 4)
- (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 0)
- 'syntax-object)
+ (if (if (vector? e-15591)
+ (if (= (vector-length e-15591) 4)
+ (eq? (vector-ref e-15591 0) 'syntax-object)
#f)
#f)
- (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 1)
- (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
- #{w -ANAU$bmvAmthP7L7xwp6P}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 2))
- #{mod -ANAU$bmvAmthP7L7xwp6Q}#)
+ (match-each-any-14971
+ (vector-ref e-15591 1)
+ (join-wraps-4502 w-15592 (vector-ref e-15591 2))
+ mod-15593)
#f)))))
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (lambda (#{p -ANAU$bmvAmthP7L7xwp6p}#
- #{r -ANAU$bmvAmthP7L7xwp6q}#)
- (if (null? #{p -ANAU$bmvAmthP7L7xwp6p}#)
- #{r -ANAU$bmvAmthP7L7xwp6q}#
- (if (eq? #{p -ANAU$bmvAmthP7L7xwp6p}# '_)
- #{r -ANAU$bmvAmthP7L7xwp6q}#
- (if (eq? #{p -ANAU$bmvAmthP7L7xwp6p}# 'any)
- (cons '() #{r -ANAU$bmvAmthP7L7xwp6q}#)
- (if (pair? #{p -ANAU$bmvAmthP7L7xwp6p}#)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (car #{p -ANAU$bmvAmthP7L7xwp6p}#)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (cdr #{p -ANAU$bmvAmthP7L7xwp6p}#)
- #{r -ANAU$bmvAmthP7L7xwp6q}#))
- (if (eq? #{p -ANAU$bmvAmthP7L7xwp6p}# 'each-any)
- (cons '() #{r -ANAU$bmvAmthP7L7xwp6q}#)
- (let ((#{atom-key -ANAU$bmvAmthP7L7xwp6r}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 0)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}# 'each)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1)
- #{r -ANAU$bmvAmthP7L7xwp6q}#)
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}#
- 'each+)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (reverse
- (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 2))
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 3)
- #{r -ANAU$bmvAmthP7L7xwp6q}#)))
- (if (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}#
- 'free-id)
+ (match-empty-14972
+ (lambda (p-15618 r-15619)
+ (if (null? p-15618)
+ r-15619
+ (if (eq? p-15618 '_)
+ r-15619
+ (if (eq? p-15618 'any)
+ (cons '() r-15619)
+ (if (pair? p-15618)
+ (match-empty-14972
+ (car p-15618)
+ (match-empty-14972 (cdr p-15618) r-15619))
+ (if (eq? p-15618 'each-any)
+ (cons '() r-15619)
+ (let ((atom-key-15620 (vector-ref p-15618 0)))
+ (if (eqv? atom-key-15620 'each)
+ (match-empty-14972
+ (vector-ref p-15618 1)
+ r-15619)
+ (if (eqv? atom-key-15620 'each+)
+ (match-empty-14972
+ (vector-ref p-15618 1)
+ (match-empty-14972
+ (reverse (vector-ref p-15618 2))
+ (match-empty-14972
+ (vector-ref p-15618 3)
+ r-15619)))
+ (if (if (eqv? atom-key-15620 'free-id)
#t
- (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}#
- 'atom))
- #{r -ANAU$bmvAmthP7L7xwp6q}#
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}#
- 'vector)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1)
- #{r -ANAU$bmvAmthP7L7xwp6q}#)))))))))))))
- (#{combine -ANAU$bmvAmthP7L7xwpwk}#
- (lambda (#{r* -ANAU$bmvAmthP7L7xwp6$}#
- #{r address@hidden)
- (if (null? (car #{r* -ANAU$bmvAmthP7L7xwp6$}#))
- #{r address@hidden
- (cons (map car #{r* -ANAU$bmvAmthP7L7xwp6$}#)
- (#{combine -ANAU$bmvAmthP7L7xwpwk}#
- (map cdr #{r* -ANAU$bmvAmthP7L7xwp6$}#)
- #{r address@hidden)))))
- (#{match* -ANAU$bmvAmthP7L7xwpwl}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwpxD}#
- #{p -ANAU$bmvAmthP7L7xwpxE}#
- #{w -ANAU$bmvAmthP7L7xwpxF}#
- #{r -ANAU$bmvAmthP7L7xwpxG}#
- #{mod -ANAU$bmvAmthP7L7xwpxH}#)
- (if (null? #{p -ANAU$bmvAmthP7L7xwpxE}#)
- (if (null? #{e -ANAU$bmvAmthP7L7xwpxD}#)
- #{r -ANAU$bmvAmthP7L7xwpxG}#
- #f)
- (if (pair? #{p -ANAU$bmvAmthP7L7xwpxE}#)
- (if (pair? #{e -ANAU$bmvAmthP7L7xwpxD}#)
- (#{match -ANAU$bmvAmthP7L7xwpwm}#
- (car #{e -ANAU$bmvAmthP7L7xwpxD}#)
- (car #{p -ANAU$bmvAmthP7L7xwpxE}#)
- #{w -ANAU$bmvAmthP7L7xwpxF}#
- (#{match -ANAU$bmvAmthP7L7xwpwm}#
- (cdr #{e -ANAU$bmvAmthP7L7xwpxD}#)
- (cdr #{p -ANAU$bmvAmthP7L7xwpxE}#)
- #{w -ANAU$bmvAmthP7L7xwpxF}#
- #{r -ANAU$bmvAmthP7L7xwpxG}#
- #{mod -ANAU$bmvAmthP7L7xwpxH}#)
- #{mod -ANAU$bmvAmthP7L7xwpxH}#)
+ (eqv? atom-key-15620 'atom))
+ r-15619
+ (if (eqv? atom-key-15620 'vector)
+ (match-empty-14972
+ (vector-ref p-15618 1)
+ r-15619)))))))))))))
+ (combine-14973
+ (lambda (r*-15639 r-15640)
+ (if (null? (car r*-15639))
+ r-15640
+ (cons (map car r*-15639)
+ (combine-14973 (map cdr r*-15639) r-15640)))))
+ (match*-14974
+ (lambda (e-15004 p-15005 w-15006 r-15007 mod-15008)
+ (if (null? p-15005)
+ (if (null? e-15004) r-15007 #f)
+ (if (pair? p-15005)
+ (if (pair? e-15004)
+ (match-14975
+ (car e-15004)
+ (car p-15005)
+ w-15006
+ (match-14975
+ (cdr e-15004)
+ (cdr p-15005)
+ w-15006
+ r-15007
+ mod-15008)
+ mod-15008)
#f)
- (if (eq? #{p -ANAU$bmvAmthP7L7xwpxE}# 'each-any)
- (let ((#{l -ANAU$bmvAmthP7L7xwpxM}#
- (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}#
- #{e -ANAU$bmvAmthP7L7xwpxD}#
- #{w -ANAU$bmvAmthP7L7xwpxF}#
- #{mod -ANAU$bmvAmthP7L7xwpxH}#)))
- (if #{l -ANAU$bmvAmthP7L7xwpxM}#
- (cons #{l -ANAU$bmvAmthP7L7xwpxM}#
- #{r -ANAU$bmvAmthP7L7xwpxG}#)
- #f))
- (let ((#{atom-key -ANAU$bmvAmthP7L7xwpxR}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 0)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'each)
- (if (null? #{e -ANAU$bmvAmthP7L7xwpxD}#)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1)
- #{r -ANAU$bmvAmthP7L7xwpxG}#)
- (let ((#{l -ANAU$bmvAmthP7L7xwpxY}#
- (#{match-each -ANAU$bmvAmthP7L7xwpwg}#
- #{e -ANAU$bmvAmthP7L7xwpxD}#
- (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1)
- #{w -ANAU$bmvAmthP7L7xwpxF}#
- #{mod -ANAU$bmvAmthP7L7xwpxH}#)))
- (if #{l -ANAU$bmvAmthP7L7xwpxY}#
+ (if (eq? p-15005 'each-any)
+ (let ((l-15013
+ (match-each-any-14971 e-15004 w-15006 mod-15008)))
+ (if l-15013 (cons l-15013 r-15007) #f))
+ (let ((atom-key-15018 (vector-ref p-15005 0)))
+ (if (eqv? atom-key-15018 'each)
+ (if (null? e-15004)
+ (match-empty-14972
+ (vector-ref p-15005 1)
+ r-15007)
+ (let ((l-15025
+ (match-each-14969
+ e-15004
+ (vector-ref p-15005 1)
+ w-15006
+ mod-15008)))
+ (if l-15025
(letrec*
- ((#{collect -ANAU$bmvAmthP7L7xwpxb}#
- (lambda (#{l -ANAU$bmvAmthP7L7xwpyO}#)
- (if (null? (car #{l
-ANAU$bmvAmthP7L7xwpyO}#))
- #{r -ANAU$bmvAmthP7L7xwpxG}#
- (cons (map car
- #{l -ANAU$bmvAmthP7L7xwpyO}#)
- (#{collect -ANAU$bmvAmthP7L7xwpxb}#
- (map cdr
- #{l
-ANAU$bmvAmthP7L7xwpyO}#)))))))
- (#{collect -ANAU$bmvAmthP7L7xwpxb}#
- #{l -ANAU$bmvAmthP7L7xwpxY}#))
+ ((collect-15028
+ (lambda (l-15079)
+ (if (null? (car l-15079))
+ r-15007
+ (cons (map car l-15079)
+ (collect-15028
+ (map cdr l-15079)))))))
+ (collect-15028 l-15025))
#f)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'each+)
+ (if (eqv? atom-key-15018 'each+)
(call-with-values
(lambda ()
- (let ((#{x-pat -ANAU$bmvAmthP7L7xwpyX}#
- (vector-ref
- #{p -ANAU$bmvAmthP7L7xwpxE}#
- 1))
- (#{y-pat -ANAU$bmvAmthP7L7xwpyY}#
- (vector-ref
- #{p -ANAU$bmvAmthP7L7xwpxE}#
- 2))
- (#{z-pat -ANAU$bmvAmthP7L7xwpyZ}#
- (vector-ref
- #{p -ANAU$bmvAmthP7L7xwpxE}#
- 3)))
+ (let ((x-pat-15088 (vector-ref p-15005 1))
+ (y-pat-15089 (vector-ref p-15005 2))
+ (z-pat-15090 (vector-ref p-15005 3)))
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwpyd}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwpyf}#
- #{w -ANAU$bmvAmthP7L7xwpyg}#)
- (if (pair? #{e -ANAU$bmvAmthP7L7xwpyf}#)
+ ((f-15094
+ (lambda (e-15096 w-15097)
+ (if (pair? e-15096)
(call-with-values
(lambda ()
- (#{f -ANAU$bmvAmthP7L7xwpyd}#
- (cdr #{e
-ANAU$bmvAmthP7L7xwpyf}#)
- #{w -ANAU$bmvAmthP7L7xwpyg}#))
- (lambda (#{xr*
-ANAU$bmvAmthP7L7xwpyh}#
- #{y-pat
-ANAU$bmvAmthP7L7xwpyi}#
- #{r
-ANAU$bmvAmthP7L7xwpyj}#)
- (if #{r -ANAU$bmvAmthP7L7xwpyj}#
- (if (null? #{y-pat
-ANAU$bmvAmthP7L7xwpyi}#)
- (let ((#{xr
-ANAU$bmvAmthP7L7xwpyk}#
- (#{match
-ANAU$bmvAmthP7L7xwpwm}#
- (car #{e
-ANAU$bmvAmthP7L7xwpyf}#)
- #{x-pat
-ANAU$bmvAmthP7L7xwpyX}#
- #{w
-ANAU$bmvAmthP7L7xwpyg}#
+ (f-15094 (cdr e-15096) w-15097))
+ (lambda (xr*-15098
+ y-pat-15099
+ r-15100)
+ (if r-15100
+ (if (null? y-pat-15099)
+ (let ((xr-15101
+ (match-14975
+ (car e-15096)
+ x-pat-15088
+ w-15097
'()
- #{mod
-ANAU$bmvAmthP7L7xwpxH}#)))
- (if #{xr
-ANAU$bmvAmthP7L7xwpyk}#
+ mod-15008)))
+ (if xr-15101
(values
- (cons #{xr
-ANAU$bmvAmthP7L7xwpyk}#
- #{xr*
-ANAU$bmvAmthP7L7xwpyh}#)
- #{y-pat
-ANAU$bmvAmthP7L7xwpyi}#
- #{r
-ANAU$bmvAmthP7L7xwpyj}#)
+ (cons xr-15101 xr*-15098)
+ y-pat-15099
+ r-15100)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat
-ANAU$bmvAmthP7L7xwpyi}#)
- (#{match
-ANAU$bmvAmthP7L7xwpwm}#
- (car #{e
-ANAU$bmvAmthP7L7xwpyf}#)
- (car #{y-pat
-ANAU$bmvAmthP7L7xwpyi}#)
- #{w
-ANAU$bmvAmthP7L7xwpyg}#
- #{r
-ANAU$bmvAmthP7L7xwpyj}#
- #{mod
-ANAU$bmvAmthP7L7xwpxH}#)))
+ (cdr y-pat-15099)
+ (match-14975
+ (car e-15096)
+ (car y-pat-15099)
+ w-15097
+ r-15100
+ mod-15008)))
(values #f #f #f))))
- (if (if (vector?
- #{e -ANAU$bmvAmthP7L7xwpyf}#)
- (if (= (vector-length
- #{e
-ANAU$bmvAmthP7L7xwpyf}#)
- 4)
- (eq? (vector-ref
- #{e
-ANAU$bmvAmthP7L7xwpyf}#
- 0)
+ (if (if (vector? e-15096)
+ (if (= (vector-length e-15096) 4)
+ (eq? (vector-ref e-15096 0)
'syntax-object)
#f)
#f)
- (#{f -ANAU$bmvAmthP7L7xwpyd}#
- (vector-ref
- #{e -ANAU$bmvAmthP7L7xwpyf}#
- 1)
- (#{join-wraps
-ANAU$bmvAmthP7L7xwnNw}#
- #{w -ANAU$bmvAmthP7L7xwpyg}#
- #{e -ANAU$bmvAmthP7L7xwpyf}#))
+ (f-15094
+ (vector-ref e-15096 1)
+ (join-wraps-4502 w-15097 e-15096))
(values
'()
- #{y-pat -ANAU$bmvAmthP7L7xwpyY}#
- (#{match -ANAU$bmvAmthP7L7xwpwm}#
- #{e -ANAU$bmvAmthP7L7xwpyf}#
- #{z-pat -ANAU$bmvAmthP7L7xwpyZ}#
- #{w -ANAU$bmvAmthP7L7xwpyg}#
- #{r -ANAU$bmvAmthP7L7xwpxG}#
- #{mod
-ANAU$bmvAmthP7L7xwpxH}#)))))))
- (#{f -ANAU$bmvAmthP7L7xwpyd}#
- #{e -ANAU$bmvAmthP7L7xwpxD}#
- #{w -ANAU$bmvAmthP7L7xwpxF}#))))
- (lambda (#{xr* -ANAU$bmvAmthP7L7xwpy$}#
- #{y-pat address@hidden
- #{r -ANAU$bmvAmthP7L7xwpzA}#)
- (if #{r -ANAU$bmvAmthP7L7xwpzA}#
- (if (null? #{y-pat address@hidden)
- (if (null? #{xr* -ANAU$bmvAmthP7L7xwpy$}#)
- (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
- (vector-ref
- #{p -ANAU$bmvAmthP7L7xwpxE}#
- 1)
- #{r -ANAU$bmvAmthP7L7xwpzA}#)
- (#{combine -ANAU$bmvAmthP7L7xwpwk}#
- #{xr* -ANAU$bmvAmthP7L7xwpy$}#
- #{r -ANAU$bmvAmthP7L7xwpzA}#))
+ y-pat-15089
+ (match-14975
+ e-15096
+ z-pat-15090
+ w-15097
+ r-15007
+ mod-15008)))))))
+ (f-15094 e-15004 w-15006))))
+ (lambda (xr*-15127 y-pat-15128 r-15129)
+ (if r-15129
+ (if (null? y-pat-15128)
+ (if (null? xr*-15127)
+ (match-empty-14972
+ (vector-ref p-15005 1)
+ r-15129)
+ (combine-14973 xr*-15127 r-15129))
#f)
#f)))
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}#
- 'free-id)
- (if (if (symbol? #{e -ANAU$bmvAmthP7L7xwpxD}#)
+ (if (eqv? atom-key-15018 'free-id)
+ (if (if (symbol? e-15004)
#t
- (if (if (vector? #{e -ANAU$bmvAmthP7L7xwpxD}#)
- (if (= (vector-length
- #{e -ANAU$bmvAmthP7L7xwpxD}#)
- 4)
- (eq? (vector-ref
- #{e -ANAU$bmvAmthP7L7xwpxD}#
- 0)
+ (if (if (vector? e-15004)
+ (if (= (vector-length e-15004) 4)
+ (eq? (vector-ref e-15004 0)
'syntax-object)
#f)
#f)
- (symbol?
- (vector-ref
- #{e -ANAU$bmvAmthP7L7xwpxD}#
- 1))
+ (symbol? (vector-ref e-15004 1))
#f))
- (if (let ((#{i -ANAU$bmvAmthP7L7xwp4L}#
- (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{e -ANAU$bmvAmthP7L7xwpxD}#
- #{w -ANAU$bmvAmthP7L7xwpxF}#
- #{mod -ANAU$bmvAmthP7L7xwpxH}#))
- (#{j -ANAU$bmvAmthP7L7xwp4M}#
- (vector-ref
- #{p -ANAU$bmvAmthP7L7xwpxE}#
- 1)))
- (if (eq? (if (if (vector?
- #{i
-ANAU$bmvAmthP7L7xwp4L}#)
+ (if (let ((i-15460
+ (wrap-4515 e-15004 w-15006 mod-15008))
+ (j-15461 (vector-ref p-15005 1)))
+ (if (eq? (if (if (vector? i-15460)
(if (= (vector-length
- #{i
-ANAU$bmvAmthP7L7xwp4L}#)
+ i-15460)
4)
- (eq? (vector-ref
- #{i
-ANAU$bmvAmthP7L7xwp4L}#
- 0)
+ (eq? (vector-ref i-15460 0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{i -ANAU$bmvAmthP7L7xwp4L}#
- 1)
- #{i -ANAU$bmvAmthP7L7xwp4L}#)
- (if (if (vector?
- #{j
-ANAU$bmvAmthP7L7xwp4M}#)
+ (vector-ref i-15460 1)
+ i-15460)
+ (if (if (vector? j-15461)
(if (= (vector-length
- #{j
-ANAU$bmvAmthP7L7xwp4M}#)
+ j-15461)
4)
- (eq? (vector-ref
- #{j
-ANAU$bmvAmthP7L7xwp4M}#
- 0)
+ (eq? (vector-ref j-15461 0)
'syntax-object)
#f)
#f)
- (vector-ref
- #{j -ANAU$bmvAmthP7L7xwp4M}#
- 1)
- #{j -ANAU$bmvAmthP7L7xwp4M}#))
- (eq? (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
- #{i -ANAU$bmvAmthP7L7xwp4L}#
- '(()))
- (#{id-var-name
-ANAU$bmvAmthP7L7xwnNz}#
- #{j -ANAU$bmvAmthP7L7xwp4M}#
- '(())))
+ (vector-ref j-15461 1)
+ j-15461))
+ (eq? (id-var-name-4505 i-15460 '(()))
+ (id-var-name-4505 j-15461 '(())))
#f))
- #{r -ANAU$bmvAmthP7L7xwpxG}#
+ r-15007
#f)
#f)
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'atom)
+ (if (eqv? atom-key-15018 'atom)
(if (equal?
- (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1)
- (#{strip -ANAU$bmvAmthP7L7xwnOR}#
- #{e -ANAU$bmvAmthP7L7xwpxD}#
- #{w -ANAU$bmvAmthP7L7xwpxF}#))
- #{r -ANAU$bmvAmthP7L7xwpxG}#
+ (vector-ref p-15005 1)
+ (strip-4535 e-15004 w-15006))
+ r-15007
#f)
- (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}#
- 'vector)
- (if (vector? #{e -ANAU$bmvAmthP7L7xwpxD}#)
- (#{match -ANAU$bmvAmthP7L7xwpwm}#
- (vector->list #{e -ANAU$bmvAmthP7L7xwpxD}#)
- (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1)
- #{w -ANAU$bmvAmthP7L7xwpxF}#
- #{r -ANAU$bmvAmthP7L7xwpxG}#
- #{mod -ANAU$bmvAmthP7L7xwpxH}#)
+ (if (eqv? atom-key-15018 'vector)
+ (if (vector? e-15004)
+ (match-14975
+ (vector->list e-15004)
+ (vector-ref p-15005 1)
+ w-15006
+ r-15007
+ mod-15008)
#f))))))))))))
- (#{match -ANAU$bmvAmthP7L7xwpwm}#
- (lambda (#{e -ANAU$bmvAmthP7L7xwp5I}#
- #{p -ANAU$bmvAmthP7L7xwp5J}#
- #{w -ANAU$bmvAmthP7L7xwp5K}#
- #{r -ANAU$bmvAmthP7L7xwp5L}#
- #{mod -ANAU$bmvAmthP7L7xwp5M}#)
- (if (not #{r -ANAU$bmvAmthP7L7xwp5L}#)
+ (match-14975
+ (lambda (e-15521 p-15522 w-15523 r-15524 mod-15525)
+ (if (not r-15524)
#f
- (if (eq? #{p -ANAU$bmvAmthP7L7xwp5J}# '_)
- #{r -ANAU$bmvAmthP7L7xwp5L}#
- (if (eq? #{p -ANAU$bmvAmthP7L7xwp5J}# 'any)
- (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
- #{e -ANAU$bmvAmthP7L7xwp5I}#
- #{w -ANAU$bmvAmthP7L7xwp5K}#
- #{mod -ANAU$bmvAmthP7L7xwp5M}#)
- #{r -ANAU$bmvAmthP7L7xwp5L}#)
- (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp5I}#)
- (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp5I}#)
- 4)
- (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 0)
- 'syntax-object)
+ (if (eq? p-15522 '_)
+ r-15524
+ (if (eq? p-15522 'any)
+ (cons (wrap-4515 e-15521 w-15523 mod-15525)
+ r-15524)
+ (if (if (vector? e-15521)
+ (if (= (vector-length e-15521) 4)
+ (eq? (vector-ref e-15521 0) 'syntax-object)
#f)
#f)
- (#{match* -ANAU$bmvAmthP7L7xwpwl}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 1)
- #{p -ANAU$bmvAmthP7L7xwp5J}#
- (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
- #{w -ANAU$bmvAmthP7L7xwp5K}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 2))
- #{r -ANAU$bmvAmthP7L7xwp5L}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 3))
- (#{match* -ANAU$bmvAmthP7L7xwpwl}#
- #{e -ANAU$bmvAmthP7L7xwp5I}#
- #{p -ANAU$bmvAmthP7L7xwp5J}#
- #{w -ANAU$bmvAmthP7L7xwp5K}#
- #{r -ANAU$bmvAmthP7L7xwp5L}#
- #{mod -ANAU$bmvAmthP7L7xwp5M}#))))))))
+ (match*-14974
+ (vector-ref e-15521 1)
+ p-15522
+ (join-wraps-4502 w-15523 (vector-ref e-15521 2))
+ r-15524
+ (vector-ref e-15521 3))
+ (match*-14974
+ e-15521
+ p-15522
+ w-15523
+ r-15524
+ mod-15525))))))))
(set! $sc-dispatch
- (lambda (#{e -ANAU$bmvAmthP7L7xwpwn}#
- #{p -ANAU$bmvAmthP7L7xwpwo}#)
- (if (eq? #{p -ANAU$bmvAmthP7L7xwpwo}# 'any)
- (list #{e -ANAU$bmvAmthP7L7xwpwn}#)
- (if (eq? #{p -ANAU$bmvAmthP7L7xwpwo}# '_)
+ (lambda (e-14976 p-14977)
+ (if (eq? p-14977 'any)
+ (list e-14976)
+ (if (eq? p-14977 '_)
'()
- (if (if (vector? #{e -ANAU$bmvAmthP7L7xwpwn}#)
- (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwpwn}#)
- 4)
- (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 0)
- 'syntax-object)
+ (if (if (vector? e-14976)
+ (if (= (vector-length e-14976) 4)
+ (eq? (vector-ref e-14976 0) 'syntax-object)
#f)
#f)
- (#{match* -ANAU$bmvAmthP7L7xwpwl}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 1)
- #{p -ANAU$bmvAmthP7L7xwpwo}#
- (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 2)
- '()
- (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 3))
- (#{match* -ANAU$bmvAmthP7L7xwpwl}#
- #{e -ANAU$bmvAmthP7L7xwpwn}#
- #{p -ANAU$bmvAmthP7L7xwpwo}#
- '(())
+ (match*-14974
+ (vector-ref e-14976 1)
+ p-14977
+ (vector-ref e-14976 2)
'()
- #f))))))))))
+ (vector-ref e-14976 3))
+ (match*-14974 e-14976 p-14977 '(()) '() #f))))))))))
(define with-syntax
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xws3J}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws3L}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws3J}#
- '(_ () any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws3L}#
+ (lambda (x-27756)
+ (let ((tmp-27758
+ ($sc-dispatch x-27756 '(_ () any . each-any))))
+ (if tmp-27758
(@apply
- (lambda (#{e1 -ANAU$bmvAmthP7L7xws3P}#
- #{e2 -ANAU$bmvAmthP7L7xws3Q}#)
+ (lambda (e1-27762 e2-27763)
(cons '#(syntax-object
let
((top)
- #(ribcage #(e1 e2) #((top) (top)) #("1bj" "1bk"))
+ #(ribcage
+ #(e1 e2)
+ #((top) (top))
+ #("l-*-27729" "l-*-27730"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bi")))
+ #(ribcage #(x) #((top)) #("l-*-27726")))
(hygiene guile))
- (cons '()
- (cons #{e1 -ANAU$bmvAmthP7L7xws3P}#
- #{e2 -ANAU$bmvAmthP7L7xws3Q}#))))
- #{tmp -ANAU$bmvAmthP7L7xws3L}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws3R}#
+ (cons '() (cons e1-27762 e2-27763))))
+ tmp-27758)
+ (let ((tmp-27764
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws3J}#
+ x-27756
'(_ ((any any)) any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws3R}#
+ (if tmp-27764
(@apply
- (lambda (#{out -ANAU$bmvAmthP7L7xws3V}#
- #{in -ANAU$bmvAmthP7L7xws3W}#
- #{e1 -ANAU$bmvAmthP7L7xws3X}#
- #{e2 -ANAU$bmvAmthP7L7xws3Y}#)
+ (lambda (out-27768 in-27769 e1-27770 e2-27771)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1bl" "1bm" "1bn" "1bo"))
+ #("l-*-27735"
+ "l-*-27736"
+ "l-*-27737"
+ "l-*-27738"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bi")))
+ #(ribcage #(x) #((top)) #("l-*-27726")))
(hygiene guile))
- #{in -ANAU$bmvAmthP7L7xws3W}#
+ in-27769
'()
- (list #{out -ANAU$bmvAmthP7L7xws3V}#
+ (list out-27768
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1bl" "1bm" "1bn" "1bo"))
+ #("l-*-27735"
+ "l-*-27736"
+ "l-*-27737"
+ "l-*-27738"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bi")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-27726")))
(hygiene guile))
- (cons '()
- (cons #{e1 -ANAU$bmvAmthP7L7xws3X}#
- #{e2
-ANAU$bmvAmthP7L7xws3Y}#))))))
- #{tmp -ANAU$bmvAmthP7L7xws3R}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws3Z}#
+ (cons '() (cons e1-27770 e2-27771))))))
+ tmp-27764)
+ (let ((tmp-27772
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws3J}#
+ x-27756
'(_ #(each (any any)) any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws3Z}#
+ (if tmp-27772
(@apply
- (lambda (#{out -ANAU$bmvAmthP7L7xws3d}#
- #{in -ANAU$bmvAmthP7L7xws3e}#
- #{e1 -ANAU$bmvAmthP7L7xws3f}#
- #{e2 -ANAU$bmvAmthP7L7xws3g}#)
+ (lambda (out-27776 in-27777 e1-27778 e2-27779)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1bp" "1bq" "1br" "1bs"))
+ #("l-*-27745"
+ "l-*-27746"
+ "l-*-27747"
+ "l-*-27748"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bi")))
+ #(ribcage #(x) #((top)) #("l-*-27726")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -23925,56 +22183,66 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1bp" "1bq" "1br" "1bs"))
+ #("l-*-27745"
+ "l-*-27746"
+ "l-*-27747"
+ "l-*-27748"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bi")))
+ #(ribcage #(x) #((top)) #("l-*-27726")))
(hygiene guile))
- #{in -ANAU$bmvAmthP7L7xws3e}#)
+ in-27777)
'()
- (list #{out -ANAU$bmvAmthP7L7xws3d}#
+ (list out-27776
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1bp" "1bq" "1br" "1bs"))
+ #("l-*-27745"
+ "l-*-27746"
+ "l-*-27747"
+ "l-*-27748"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bi")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-27726")))
(hygiene guile))
- (cons '()
- (cons #{e1
-ANAU$bmvAmthP7L7xws3f}#
- #{e2
-ANAU$bmvAmthP7L7xws3g}#))))))
- #{tmp -ANAU$bmvAmthP7L7xws3Z}#)
+ (cons '() (cons e1-27778 e2-27779))))))
+ tmp-27772)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xws3J}#))))))))))
+ x-27756))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xws4H}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws4J}#
+ (lambda (x-27833)
+ (let ((tmp-27835
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws4H}#
+ x-27833
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp -ANAU$bmvAmthP7L7xws4J}#
+ (if tmp-27835
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xws4N}#
- #{keyword -ANAU$bmvAmthP7L7xws4O}#
- #{pattern -ANAU$bmvAmthP7L7xws4P}#
- #{template -ANAU$bmvAmthP7L7xws4Q}#)
+ (lambda (k-27839
+ keyword-27840
+ pattern-27841
+ template-27842)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1bu" "1bv" "1bw" "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
'(#(syntax-object
x
@@ -23982,9 +22250,12 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1bu" "1bv" "1bw" "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -23993,9 +22264,12 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1bu" "1bv" "1bw" "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
.
#(syntax-object
@@ -24004,9 +22278,12 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1bu" "1bv" "1bw" "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -24014,20 +22291,26 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1bu" "1bv" "1bw" "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
- #{pattern -ANAU$bmvAmthP7L7xws4P}#))
+ pattern-27841))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1bu" "1bv" "1bw" "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -24035,13 +22318,16 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1bu" "1bv" "1bw" "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
- (cons #{k -ANAU$bmvAmthP7L7xws4N}#
- (map (lambda (#{tmp
-ANAU$bmvAmthP7L7xws33 -ANAU$bmvAmthP7L7xws4R}#
- #{tmp
-ANAU$bmvAmthP7L7xws32 -ANAU$bmvAmthP7L7xws4S}#)
+ (cons k-27839
+ (map (lambda (tmp-27807-27843
+ tmp-27806-27844)
(list (cons '#(syntax-object
dummy
((top)
@@ -24054,10 +22340,10 @@
(top)
(top)
(top))
- #("1bu"
- "1bv"
- "1bw"
- "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage
()
()
@@ -24065,9 +22351,9 @@
#(ribcage
#(x)
#((top))
- #("1bt")))
+ #("l-*-27793")))
(hygiene guile))
- #{tmp
-ANAU$bmvAmthP7L7xws32 -ANAU$bmvAmthP7L7xws4S}#)
+ tmp-27806-27844)
(list '#(syntax-object
syntax
((top)
@@ -24080,10 +22366,10 @@
(top)
(top)
(top))
- #("1bu"
- "1bv"
- "1bw"
- "1bx"))
+ #("l-*-27796"
+ "l-*-27797"
+ "l-*-27798"
+ "l-*-27799"))
#(ribcage
()
()
@@ -24091,43 +22377,45 @@
#(ribcage
#(x)
#((top))
- #("1bt")))
+ #("l-*-27793")))
(hygiene guile))
- #{tmp
-ANAU$bmvAmthP7L7xws33 -ANAU$bmvAmthP7L7xws4R}#)))
- #{template -ANAU$bmvAmthP7L7xws4Q}#
- #{pattern
-ANAU$bmvAmthP7L7xws4P}#))))))
- #{tmp -ANAU$bmvAmthP7L7xws4J}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws4T}#
+ tmp-27807-27843)))
+ template-27842
+ pattern-27841))))))
+ tmp-27835)
+ (let ((tmp-27845
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws4H}#
+ x-27833
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xws4T}#
+ (if (if tmp-27845
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xws4X}#
- #{docstring -ANAU$bmvAmthP7L7xws4Y}#
- #{keyword -ANAU$bmvAmthP7L7xws4Z}#
- #{pattern -ANAU$bmvAmthP7L7xws4a}#
- #{template -ANAU$bmvAmthP7L7xws4b}#)
- (string?
- (syntax->datum
- #{docstring -ANAU$bmvAmthP7L7xws4Y}#)))
- #{tmp -ANAU$bmvAmthP7L7xws4T}#)
+ (lambda (k-27849
+ docstring-27850
+ keyword-27851
+ pattern-27852
+ template-27853)
+ (string? (syntax->datum docstring-27850)))
+ tmp-27845)
#f)
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xws4c}#
- #{docstring -ANAU$bmvAmthP7L7xws4d}#
- #{keyword -ANAU$bmvAmthP7L7xws4e}#
- #{pattern -ANAU$bmvAmthP7L7xws4f}#
- #{template -ANAU$bmvAmthP7L7xws4g}#)
+ (lambda (k-27854
+ docstring-27855
+ keyword-27856
+ pattern-27857
+ template-27858)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1c3" "1c4" "1c5" "1c6" "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
'(#(syntax-object
x
@@ -24135,11 +22423,15 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1c3" "1c4" "1c5" "1c6" "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile)))
- #{docstring -ANAU$bmvAmthP7L7xws4d}#
+ docstring-27855
(vector
'(#(syntax-object
macro-type
@@ -24147,9 +22439,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1c3" "1c4" "1c5" "1c6" "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
.
#(syntax-object
@@ -24158,9 +22454,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1c3" "1c4" "1c5" "1c6" "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -24168,20 +22468,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1c3" "1c4" "1c5" "1c6" "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
- #{pattern -ANAU$bmvAmthP7L7xws4f}#))
+ pattern-27857))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1c3" "1c4" "1c5" "1c6" "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage #(x) #((top)) #("l-*-27793")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -24193,13 +22501,20 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("1c3" "1c4" "1c5" "1c6" "1c7"))
+ #("l-*-27819"
+ "l-*-27820"
+ "l-*-27821"
+ "l-*-27822"
+ "l-*-27823"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bt")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-27793")))
(hygiene guile))
- (cons #{k -ANAU$bmvAmthP7L7xws4c}#
- (map (lambda (#{tmp
-ANAU$bmvAmthP7L7xws4G -ANAU$bmvAmthP7L7xws4h}#
- #{tmp
-ANAU$bmvAmthP7L7xws4F -ANAU$bmvAmthP7L7xws4i}#)
+ (cons k-27854
+ (map (lambda (tmp-27832-27859
+ tmp-27831-27860)
(list (cons '#(syntax-object
dummy
((top)
@@ -24214,11 +22529,11 @@
(top)
(top)
(top))
- #("1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+
#("l-*-27819"
+
"l-*-27820"
+
"l-*-27821"
+
"l-*-27822"
+
"l-*-27823"))
#(ribcage
()
()
@@ -24226,10 +22541,10 @@
#(ribcage
#(x)
#((top))
- #("1bt")))
+
#("l-*-27793")))
(hygiene
guile))
- #{tmp
-ANAU$bmvAmthP7L7xws4F -ANAU$bmvAmthP7L7xws4i}#)
+ tmp-27831-27860)
(list '#(syntax-object
syntax
((top)
@@ -24244,11 +22559,11 @@
(top)
(top)
(top))
- #("1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+
#("l-*-27819"
+
"l-*-27820"
+
"l-*-27821"
+
"l-*-27822"
+
"l-*-27823"))
#(ribcage
()
()
@@ -24256,52 +22571,48 @@
#(ribcage
#(x)
#((top))
- #("1bt")))
+
#("l-*-27793")))
(hygiene
guile))
- #{tmp
-ANAU$bmvAmthP7L7xws4G -ANAU$bmvAmthP7L7xws4h}#)))
- #{template
-ANAU$bmvAmthP7L7xws4g}#
- #{pattern
-ANAU$bmvAmthP7L7xws4f}#))))))
- #{tmp -ANAU$bmvAmthP7L7xws4T}#)
+ tmp-27832-27859)))
+ template-27858
+ pattern-27857))))))
+ tmp-27845)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xws4H}#))))))))
+ x-27833))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xws47}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws49}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws47}#
- '(_ (any . any) any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws49}#
+ (lambda (x-27897)
+ (let ((tmp-27899
+ ($sc-dispatch x-27897 '(_ (any . any) any))))
+ (if tmp-27899
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xws5B}#
- #{pattern -ANAU$bmvAmthP7L7xws5C}#
- #{template -ANAU$bmvAmthP7L7xws5D}#)
+ (lambda (name-27903 pattern-27904 template-27905)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("1c9" "1ca" "1cb"))
+ #("l-*-27874" "l-*-27875" "l-*-27876"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1c8")))
+ #(ribcage #(x) #((top)) #("l-*-27871")))
(hygiene guile))
- #{name -ANAU$bmvAmthP7L7xws5B}#
+ name-27903
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("1c9" "1ca" "1cb"))
+ #("l-*-27874" "l-*-27875" "l-*-27876"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1c8")))
+ #(ribcage #(x) #((top)) #("l-*-27871")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -24310,56 +22621,63 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("1c9" "1ca" "1cb"))
+ #("l-*-27874"
+ "l-*-27875"
+ "l-*-27876"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1c8")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-27871")))
(hygiene guile))
- #{pattern -ANAU$bmvAmthP7L7xws5C}#)
- #{template -ANAU$bmvAmthP7L7xws5D}#))))
- #{tmp -ANAU$bmvAmthP7L7xws49}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws5E}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws47}#
- '(_ (any . any) any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xws5E}#
+ pattern-27904)
+ template-27905))))
+ tmp-27899)
+ (let ((tmp-27906
+ ($sc-dispatch x-27897 '(_ (any . any) any any))))
+ (if (if tmp-27906
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xws5I}#
- #{pattern -ANAU$bmvAmthP7L7xws5J}#
- #{docstring -ANAU$bmvAmthP7L7xws5K}#
- #{template -ANAU$bmvAmthP7L7xws5L}#)
- (string?
- (syntax->datum
- #{docstring -ANAU$bmvAmthP7L7xws5K}#)))
- #{tmp -ANAU$bmvAmthP7L7xws5E}#)
+ (lambda (name-27910
+ pattern-27911
+ docstring-27912
+ template-27913)
+ (string? (syntax->datum docstring-27912)))
+ tmp-27906)
#f)
(@apply
- (lambda (#{name -ANAU$bmvAmthP7L7xws5M}#
- #{pattern -ANAU$bmvAmthP7L7xws5N}#
- #{docstring -ANAU$bmvAmthP7L7xws5O}#
- #{template -ANAU$bmvAmthP7L7xws5P}#)
+ (lambda (name-27914
+ pattern-27915
+ docstring-27916
+ template-27917)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("1cg" "1ch" "1ci" "1cj"))
+ #("l-*-27889"
+ "l-*-27890"
+ "l-*-27891"
+ "l-*-27892"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1c8")))
+ #(ribcage #(x) #((top)) #("l-*-27871")))
(hygiene guile))
- #{name -ANAU$bmvAmthP7L7xws5M}#
+ name-27914
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("1cg" "1ch" "1ci" "1cj"))
+ #("l-*-27889"
+ "l-*-27890"
+ "l-*-27891"
+ "l-*-27892"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1c8")))
+ #(ribcage #(x) #((top)) #("l-*-27871")))
(hygiene guile))
'()
- #{docstring -ANAU$bmvAmthP7L7xws5O}#
+ docstring-27916
(list (cons '#(syntax-object
_
((top)
@@ -24369,52 +22687,45 @@
docstring
template)
#((top) (top) (top) (top))
- #("1cg" "1ch" "1ci" "1cj"))
+ #("l-*-27889"
+ "l-*-27890"
+ "l-*-27891"
+ "l-*-27892"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1c8")))
+ #("l-*-27871")))
(hygiene guile))
- #{pattern -ANAU$bmvAmthP7L7xws5N}#)
- #{template -ANAU$bmvAmthP7L7xws5P}#))))
- #{tmp -ANAU$bmvAmthP7L7xws5E}#)
+ pattern-27915)
+ template-27917))))
+ tmp-27906)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xws47}#))))))))
+ x-27897))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xws5x}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws5z}#
+ (lambda (x-27966)
+ (let ((tmp-27968
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws5x}#
+ x-27966
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xws5z}#
+ (if (if tmp-27968
(@apply
- (lambda (#{let* -ANAU$bmvAmthP7L7xws53}#
- #{x -ANAU$bmvAmthP7L7xws54}#
- #{v -ANAU$bmvAmthP7L7xws55}#
- #{e1 -ANAU$bmvAmthP7L7xws56}#
- #{e2 -ANAU$bmvAmthP7L7xws57}#)
- (and-map
- identifier?
- #{x -ANAU$bmvAmthP7L7xws54}#))
- #{tmp -ANAU$bmvAmthP7L7xws5z}#)
+ (lambda (let*-27972 x-27973 v-27974 e1-27975 e2-27976)
+ (and-map identifier? x-27973))
+ tmp-27968)
#f)
(@apply
- (lambda (#{let* -ANAU$bmvAmthP7L7xws58}#
- #{x -ANAU$bmvAmthP7L7xws59}#
- #{v -ANAU$bmvAmthP7L7xws5$}#
- #{e1 address@hidden
- #{e2 -ANAU$bmvAmthP7L7xws6A}#)
+ (lambda (let*-27977 x-27978 v-27979 e1-27980 e2-27981)
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xws6B}#
- (lambda (#{bindings -ANAU$bmvAmthP7L7xws6E}#)
- (if (null? #{bindings -ANAU$bmvAmthP7L7xws6E}#)
+ ((f-27982
+ (lambda (bindings-27985)
+ (if (null? bindings-27985)
(cons '#(syntax-object
let
((top)
@@ -24422,29 +22733,26 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("1cv" "1cw"))
+ #("l-*-27952" "l-*-27953"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("1cq" "1cr" "1cs" "1ct" "1cu"))
+ #("l-*-27942"
+ "l-*-27943"
+ "l-*-27944"
+ "l-*-27945"
+ "l-*-27946"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ck")))
+ #(ribcage #(x) #((top)) #("l-*-27928")))
(hygiene guile))
- (cons '()
- (cons #{e1 address@hidden
- #{e2 -ANAU$bmvAmthP7L7xws6A}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xws6F}#
- (list (#{f -ANAU$bmvAmthP7L7xws6B}#
- (cdr #{bindings
-ANAU$bmvAmthP7L7xws6E}#))
- (car #{bindings
-ANAU$bmvAmthP7L7xws6E}#))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xws6G}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xws6F}#
- '(any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws6G}#
+ (cons '() (cons e1-27980 e2-27981)))
+ (let ((tmp-27986
+ (list (f-27982 (cdr bindings-27985))
+ (car bindings-27985))))
+ (let ((tmp-27987 ($sc-dispatch tmp-27986 '(any any))))
+ (if tmp-27987
(@apply
- (lambda (#{body -ANAU$bmvAmthP7L7xws6I}#
- #{binding -ANAU$bmvAmthP7L7xws6J}#)
+ (lambda (body-27989 binding-27990)
(list '#(syntax-object
let
((top)
@@ -24452,102 +22760,94 @@
#(ribcage
#(body binding)
#((top) (top))
- #("1cx" "1cy"))
+ #("l-*-27962" "l-*-27963"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("1cv" "1cw"))
+ #("l-*-27952" "l-*-27953"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("1cq" "1cr" "1cs" "1ct" "1cu"))
+ #("l-*-27942"
+ "l-*-27943"
+ "l-*-27944"
+ "l-*-27945"
+ "l-*-27946"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ck")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-27928")))
(hygiene guile))
- (list #{binding
-ANAU$bmvAmthP7L7xws6J}#)
- #{body -ANAU$bmvAmthP7L7xws6I}#))
- #{tmp -ANAU$bmvAmthP7L7xws6G}#)
+ (list binding-27990)
+ body-27989))
+ tmp-27987)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xws6F}#))))))))
- (#{f -ANAU$bmvAmthP7L7xws6B}#
- (map list
- #{x -ANAU$bmvAmthP7L7xws59}#
- #{v -ANAU$bmvAmthP7L7xws5$}#))))
- #{tmp -ANAU$bmvAmthP7L7xws5z}#)
+ tmp-27986))))))))
+ (f-27982 (map list x-27978 v-27979))))
+ tmp-27968)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xws5x}#))))))
+ x-27966))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x -ANAU$bmvAmthP7L7xws61}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws63}#
+ (lambda (orig-x-28048)
+ (let ((tmp-28050
($sc-dispatch
- #{orig-x -ANAU$bmvAmthP7L7xws61}#
+ orig-x-28048
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws63}#
+ (if tmp-28050
(@apply
- (lambda (#{var -ANAU$bmvAmthP7L7xws67}#
- #{init -ANAU$bmvAmthP7L7xws68}#
- #{step -ANAU$bmvAmthP7L7xws69}#
- #{e0 -ANAU$bmvAmthP7L7xws6$}#
- #{e1 address@hidden
- #{c -ANAU$bmvAmthP7L7xws7A}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws7B}#
- (map (lambda (#{v -ANAU$bmvAmthP7L7xws7E}#
- #{s -ANAU$bmvAmthP7L7xws7F}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws7H}#
- ($sc-dispatch
- #{s -ANAU$bmvAmthP7L7xws7F}#
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xws7H}#
- (@apply
- (lambda () #{v -ANAU$bmvAmthP7L7xws7E}#)
- #{tmp -ANAU$bmvAmthP7L7xws7H}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws7K}#
- ($sc-dispatch
- #{s -ANAU$bmvAmthP7L7xws7F}#
- '(any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws7K}#
+ (lambda (var-28054
+ init-28055
+ step-28056
+ e0-28057
+ e1-28058
+ c-28059)
+ (let ((tmp-28060
+ (map (lambda (v-28063 s-28064)
+ (let ((tmp-28066 ($sc-dispatch s-28064 '())))
+ (if tmp-28066
+ (@apply (lambda () v-28063) tmp-28066)
+ (let ((tmp-28069
+ ($sc-dispatch s-28064 '(any))))
+ (if tmp-28069
(@apply
- (lambda (#{e -ANAU$bmvAmthP7L7xws7N}#)
- #{e -ANAU$bmvAmthP7L7xws7N}#)
- #{tmp -ANAU$bmvAmthP7L7xws7K}#)
+ (lambda (e-28072) e-28072)
+ tmp-28069)
(syntax-violation
'do
"bad step expression"
- #{orig-x -ANAU$bmvAmthP7L7xws61}#
- #{s -ANAU$bmvAmthP7L7xws7F}#))))))
- #{var -ANAU$bmvAmthP7L7xws67}#
- #{step -ANAU$bmvAmthP7L7xws69}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xws7C}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xws7B}#
- 'each-any)))
- (if #{tmp -ANAU$bmvAmthP7L7xws7C}#
+ orig-x-28048
+ s-28064))))))
+ var-28054
+ step-28056)))
+ (let ((tmp-28061 ($sc-dispatch tmp-28060 'each-any)))
+ (if tmp-28061
(@apply
- (lambda (#{step -ANAU$bmvAmthP7L7xws7T}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws7V}#
- ($sc-dispatch
- #{e1 address@hidden
- '())))
- (if #{tmp -ANAU$bmvAmthP7L7xws7V}#
+ (lambda (step-28078)
+ (let ((tmp-28080 ($sc-dispatch e1-28058 '())))
+ (if tmp-28080
(@apply
(lambda ()
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(step) #((top)) #("1d6"))
+ #(ribcage
+ #(step)
+ #((top))
+ #("l-*-28016"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -24556,23 +22856,26 @@
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
'#(syntax-object
doloop
((top)
#(ribcage () () ())
- #(ribcage #(step) #((top)) #("1d6"))
+ #(ribcage
+ #(step)
+ #((top))
+ #("l-*-28016"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -24581,21 +22884,19 @@
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
- (map list
- #{var -ANAU$bmvAmthP7L7xws67}#
- #{init -ANAU$bmvAmthP7L7xws68}#)
+ (map list var-28054 init-28055)
(list '#(syntax-object
if
((top)
@@ -24603,7 +22904,7 @@
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -24612,17 +22913,17 @@
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
(list '#(syntax-object
not
@@ -24631,7 +22932,7 @@
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var
init
@@ -24645,19 +22946,19 @@
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
- #{e0
-ANAU$bmvAmthP7L7xws6$}#)
+ e0-28057)
(cons '#(syntax-object
begin
((top)
@@ -24665,7 +22966,7 @@
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var
init
@@ -24679,20 +22980,20 @@
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
(append
- #{c
-ANAU$bmvAmthP7L7xws7A}#
+ c-28059
(list (cons
'#(syntax-object
doloop
((top)
@@ -24703,7 +23004,7 @@
#(ribcage
#(step)
#((top))
- #("1d6"))
+
#("l-*-28016"))
#(ribcage
#(var
init
@@ -24717,12 +23018,12 @@
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+
#("l-*-28001"
+
"l-*-28002"
+
"l-*-28003"
+
"l-*-28004"
+
"l-*-28005"
+
"l-*-28006"))
#(ribcage
()
()
@@ -24730,31 +23031,28 @@
#(ribcage
#(orig-x)
#((top))
-
#("1cz")))
+
#("l-*-27998")))
(hygiene
guile))
- #{step
-ANAU$bmvAmthP7L7xws7T}#)))))))
- #{tmp -ANAU$bmvAmthP7L7xws7V}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws7Z}#
- ($sc-dispatch
- #{e1 address@hidden
- '(any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws7Z}#
+
step-28078)))))))
+ tmp-28080)
+ (let ((tmp-28084
+ ($sc-dispatch e1-28058 '(any . each-any))))
+ (if tmp-28084
(@apply
- (lambda (#{e1 -ANAU$bmvAmthP7L7xws7d}#
- #{e2 -ANAU$bmvAmthP7L7xws7e}#)
+ (lambda (e1-28088 e2-28089)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1d7" "1d8"))
+ #("l-*-28025" "l-*-28026"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -24763,17 +23061,17 @@
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
'#(syntax-object
doloop
@@ -24781,12 +23079,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("1d7" "1d8"))
+ #("l-*-28025" "l-*-28026"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -24795,33 +23093,32 @@
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
- (map list
- #{var -ANAU$bmvAmthP7L7xws67}#
- #{init -ANAU$bmvAmthP7L7xws68}#)
+ (map list var-28054 init-28055)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1d7" "1d8"))
+ #("l-*-28025"
+ "l-*-28026"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -24830,31 +23127,32 @@
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
- #{e0 -ANAU$bmvAmthP7L7xws6$}#
+ e0-28057
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1d7" "1d8"))
+ #("l-*-28025"
+ "l-*-28026"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var
init
@@ -24868,32 +23166,32 @@
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
- (cons #{e1
-ANAU$bmvAmthP7L7xws7d}#
- #{e2
-ANAU$bmvAmthP7L7xws7e}#))
+ (cons e1-28088 e2-28089))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1d7" "1d8"))
+ #("l-*-28025"
+ "l-*-28026"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1d6"))
+ #("l-*-28016"))
#(ribcage
#(var
init
@@ -24907,20 +23205,20 @@
(top)
(top)
(top))
- #("1d0"
- "1d1"
- "1d2"
- "1d3"
- "1d4"
- "1d5"))
+ #("l-*-28001"
+ "l-*-28002"
+ "l-*-28003"
+ "l-*-28004"
+ "l-*-28005"
+ "l-*-28006"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1cz")))
+ #("l-*-27998")))
(hygiene guile))
(append
- #{c
-ANAU$bmvAmthP7L7xws7A}#
+ c-28059
(list (cons
'#(syntax-object
doloop
((top)
@@ -24929,8 +23227,8 @@
e2)
#((top)
(top))
-
#("1d7"
-
"1d8"))
+
#("l-*-28025"
+
"l-*-28026"))
#(ribcage
()
()
@@ -24938,7 +23236,7 @@
#(ribcage
#(step)
#((top))
-
#("1d6"))
+
#("l-*-28016"))
#(ribcage
#(var
init
@@ -24952,12 +23250,12 @@
(top)
(top)
(top))
-
#("1d0"
-
"1d1"
-
"1d2"
-
"1d3"
-
"1d4"
-
"1d5"))
+
#("l-*-28001"
+
"l-*-28002"
+
"l-*-28003"
+
"l-*-28004"
+
"l-*-28005"
+
"l-*-28006"))
#(ribcage
()
()
@@ -24965,43 +23263,45 @@
#(ribcage
#(orig-x)
#((top))
-
#("1cz")))
+
#("l-*-27998")))
(hygiene
guile))
- #{step
-ANAU$bmvAmthP7L7xws7T}#)))))))
- #{tmp -ANAU$bmvAmthP7L7xws7Z}#)
+
step-28078)))))))
+ tmp-28084)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e1 address@hidden))))))
- #{tmp -ANAU$bmvAmthP7L7xws7C}#)
+ e1-28058))))))
+ tmp-28061)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xws7B}#)))))
- #{tmp -ANAU$bmvAmthP7L7xws63}#)
+ tmp-28060)))))
+ tmp-28050)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x -ANAU$bmvAmthP7L7xws61}#))))))
+ orig-x-28048))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi -ANAU$bmvAmthP7L7xws$t}#
- (lambda (#{p address@hidden
- #{lev address@hidden)
- (let ((#{tmp address@hidden
+ ((quasi-28375
+ (lambda (p-28399 lev-28400)
+ (let ((tmp-28402
($sc-dispatch
- #{p address@hidden
+ p-28399
'(#(free-id
#(syntax-object
unquote
((top)
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25010,22 +23310,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
any))))
- (if #{tmp address@hidden
+ (if tmp-28402
(@apply
- (lambda (#{p address@hidden)
- (if (= #{lev address@hidden 0)
+ (lambda (p-28406)
+ (if (= lev-28400 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("1dm"))
+ #(ribcage #(p) #((top)) #("l-*-28125"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25034,16 +23340,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{p address@hidden)
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ p-28406)
+ (quasicons-28377
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1dm"))
+ #(ribcage #(p) #((top)) #("l-*-28125"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25052,14 +23367,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("1dm"))
+ #(ribcage #(p) #((top)) #("l-*-28125"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25068,15 +23392,19 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- (list #{p address@hidden)
- (#{1-}# #{lev address@hidden)))))
- #{tmp address@hidden)
- (let ((#{tmp address@hidden
+ (quasi-28375 (list p-28406) (#{1-}# lev-28400)))))
+ tmp-28402)
+ (let ((tmp-28409
($sc-dispatch
- #{p address@hidden
+ p-28399
'(#(free-id
#(syntax-object
quasiquote
@@ -25085,7 +23413,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25094,19 +23422,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
any))))
- (if #{tmp address@hidden
+ (if tmp-28409
(@apply
- (lambda (#{p address@hidden)
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ (lambda (p-28413)
+ (quasicons-28377
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1dn"))
+ #(ribcage #(p) #((top)) #("l-*-28128"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25115,14 +23452,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("1dn"))
+ #(ribcage #(p) #((top)) #("l-*-28128"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25131,23 +23477,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- (list #{p address@hidden)
- (#{1+}# #{lev address@hidden))))
- #{tmp address@hidden)
- (let ((#{tmp address@hidden
- ($sc-dispatch
- #{p address@hidden
- '(any . any))))
- (if #{tmp address@hidden
+ (quasi-28375 (list p-28413) (#{1+}# lev-28400))))
+ tmp-28409)
+ (let ((tmp-28416 ($sc-dispatch p-28399 '(any . any))))
+ (if tmp-28416
(@apply
- (lambda (#{p address@hidden
- #{q address@hidden)
- (let ((#{tmp address@hidden
+ (lambda (p-28420 q-28421)
+ (let ((tmp-28423
($sc-dispatch
- #{p address@hidden
+ p-28420
'(#(free-id
#(syntax-object
unquote
@@ -25155,12 +23501,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131" "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25175,38 +23521,40 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
.
each-any))))
- (if #{tmp address@hidden
+ (if tmp-28423
(@apply
- (lambda (#{p address@hidden)
- (if (= #{lev address@hidden 0)
- (#{quasilist* -ANAU$bmvAmthP7L7xws$x}#
- (map (lambda (#{tmp
-ANAU$bmvAmthP7L7xws8C -ANAU$bmvAmthP7L7xwtAF}#)
+ (lambda (p-28427)
+ (if (= lev-28400 0)
+ (quasilist*-28379
+ (map (lambda (tmp-28139-28463)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1dq"))
+ #("l-*-28137"))
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131"
+ "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121"
+ "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25221,34 +23569,35 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{tmp
-ANAU$bmvAmthP7L7xws8C -ANAU$bmvAmthP7L7xwtAF}#))
- #{p address@hidden)
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{q address@hidden
- #{lev address@hidden))
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ tmp-28139-28463))
+ p-28427)
+ (quasi-28375 q-28421 lev-28400))
+ (quasicons-28377
+ (quasicons-28377
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1dq"))
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-28137"))
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131" "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25263,27 +23612,30 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("1dq"))
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-28137"))
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131" "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25298,24 +23650,22 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{p address@hidden
- (#{1-}# #{lev address@hidden)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{q address@hidden
- #{lev address@hidden))))
- #{tmp address@hidden)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtAK}#
+ (quasi-28375
+ p-28427
+ (#{1-}# lev-28400)))
+ (quasi-28375 q-28421 lev-28400))))
+ tmp-28423)
+ (let ((tmp-28468
($sc-dispatch
- #{p address@hidden
+ p-28420
'(#(free-id
#(syntax-object
unquote-splicing
@@ -25323,12 +23673,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131" "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25343,38 +23693,40 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtAK}#
+ (if tmp-28468
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xwtAO}#)
- (if (= #{lev address@hidden 0)
- (#{quasiappend
-ANAU$bmvAmthP7L7xws$w}#
- (map (lambda (#{tmp
-ANAU$bmvAmthP7L7xws8G -ANAU$bmvAmthP7L7xwtAR}#)
+ (lambda (p-28472)
+ (if (= lev-28400 0)
+ (quasiappend-28378
+ (map (lambda (tmp-28144-28475)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1dr"))
+ #("l-*-28142"))
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131"
+ "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121"
+ "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25389,37 +23741,35 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{tmp
-ANAU$bmvAmthP7L7xws8G -ANAU$bmvAmthP7L7xwtAR}#))
- #{p -ANAU$bmvAmthP7L7xwtAO}#)
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{q address@hidden
- #{lev address@hidden))
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (#{quasicons
-ANAU$bmvAmthP7L7xws$v}#
+ tmp-28144-28475))
+ p-28472)
+ (quasi-28375 q-28421 lev-28400))
+ (quasicons-28377
+ (quasicons-28377
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("1dr"))
+ #("l-*-28142"))
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131" "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25434,13 +23784,13 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -25448,16 +23798,16 @@
#(ribcage
#(p)
#((top))
- #("1dr"))
+ #("l-*-28142"))
#(ribcage
#(p q)
#((top) (top))
- #("1do" "1dp"))
+ #("l-*-28131" "l-*-28132"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25472,59 +23822,49 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{p -ANAU$bmvAmthP7L7xwtAO}#
- (#{1-}# #{lev address@hidden)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{q address@hidden
- #{lev address@hidden))))
- #{tmp -ANAU$bmvAmthP7L7xwtAK}#)
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{p address@hidden
- #{lev address@hidden)
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{q address@hidden
- #{lev address@hidden)))))))
- #{tmp address@hidden)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtAf}#
- ($sc-dispatch
- #{p address@hidden
- '#(vector each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtAf}#
+ (quasi-28375
+ p-28472
+ (#{1-}# lev-28400)))
+ (quasi-28375 q-28421 lev-28400))))
+ tmp-28468)
+ (quasicons-28377
+ (quasi-28375 p-28420 lev-28400)
+ (quasi-28375 q-28421 lev-28400)))))))
+ tmp-28416)
+ (let ((tmp-28489
+ ($sc-dispatch p-28399 '#(vector each-any))))
+ (if tmp-28489
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtAj}#)
- (let ((#{x -ANAU$bmvAmthP7L7xwtAm}#
- (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
- #{x -ANAU$bmvAmthP7L7xwtAj}#
- #{lev address@hidden)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtAo}#
+ (lambda (x-28493)
+ (let ((x-28496
+ (vquasi-28376 x-28493 lev-28400)))
+ (let ((tmp-28498
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtAm}#
+ x-28496
'(#(atom "quote") each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtAo}#
+ (if tmp-28498
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtAs}#)
+ (lambda (x-28502)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("1en"))
+ #("l-*-28249"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1em"))
+ #("l-*-28246"))
#(ribcage
(emit quasivector
quasilist*
@@ -25539,38 +23879,36 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- (list->vector
- #{x
-ANAU$bmvAmthP7L7xwtAs}#)))
- #{tmp -ANAU$bmvAmthP7L7xwtAo}#)
+ (list->vector x-28502)))
+ tmp-28498)
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwtAu}#
- (lambda (#{y -ANAU$bmvAmthP7L7xwtA6}#
- #{k
-ANAU$bmvAmthP7L7xwtA7}#)
- (let ((#{tmp
-ANAU$bmvAmthP7L7xwtA9}#
+ ((f-28504
+ (lambda (y-28516 k-28517)
+ (let ((tmp-28519
($sc-dispatch
- #{y
-ANAU$bmvAmthP7L7xwtA6}#
+ y-28516
'(#(atom "quote")
each-any))))
- (if #{tmp
-ANAU$bmvAmthP7L7xwtA9}#
+ (if tmp-28519
(@apply
- (lambda (#{y
-ANAU$bmvAmthP7L7xwtBA}#)
- (#{k
-ANAU$bmvAmthP7L7xwtA7}#
- (map (lambda (#{tmp
-ANAU$bmvAmthP7L7xws9h -ANAU$bmvAmthP7L7xwtBB}#)
+ (lambda (y-28522)
+ (k-28517
+ (map (lambda
(tmp-28274-28523)
(list
'#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
-
#("1eu"))
+
#("l-*-28272"))
#(ribcage
()
()
@@ -25582,13 +23920,13 @@
#((top)
(top)
(top))
-
#("1ep"
-
"1eq"
-
"1er"))
+
#("l-*-28254"
+
"l-*-28255"
+
"l-*-28256"))
#(ribcage
#(_)
#((top))
-
#("1eo"))
+
#("l-*-28252"))
#(ribcage
()
()
@@ -25596,7 +23934,7 @@
#(ribcage
#(x)
#((top))
-
#("1em"))
+
#("l-*-28246"))
#(ribcage
(emit
quasivector
quasilist*
@@ -25611,51 +23949,50 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
-
"1dd")))
+
("l-*-28117"
+
"l-*-28115"
+
"l-*-28113"
+
"l-*-28111"
+
"l-*-28109"
+
"l-*-28107"
+
"l-*-28105")))
(hygiene
guile))
- #{tmp
-ANAU$bmvAmthP7L7xws9h -ANAU$bmvAmthP7L7xwtBB}#))
- #{y
-ANAU$bmvAmthP7L7xwtBA}#)))
- #{tmp
-ANAU$bmvAmthP7L7xwtA9}#)
- (let ((#{tmp
-ANAU$bmvAmthP7L7xwtBC}#
+
tmp-28274-28523))
+ y-28522)))
+ tmp-28519)
+ (let ((tmp-28524
($sc-dispatch
- #{y
-ANAU$bmvAmthP7L7xwtA6}#
+ y-28516
'(#(atom "list")
.
each-any))))
- (if #{tmp
-ANAU$bmvAmthP7L7xwtBC}#
+ (if tmp-28524
(@apply
- (lambda (#{y
-ANAU$bmvAmthP7L7xwtBF}#)
- (#{k
-ANAU$bmvAmthP7L7xwtA7}#
- #{y
-ANAU$bmvAmthP7L7xwtBF}#))
- #{tmp
-ANAU$bmvAmthP7L7xwtBC}#)
- (let ((#{tmp
-ANAU$bmvAmthP7L7xwtBG}#
+ (lambda (y-28527)
+ (k-28517 y-28527))
+ tmp-28524)
+ (let ((tmp-28528
($sc-dispatch
- #{y
-ANAU$bmvAmthP7L7xwtA6}#
+ y-28516
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp
-ANAU$bmvAmthP7L7xwtBG}#
+ (if tmp-28528
(@apply
- (lambda (#{y
-ANAU$bmvAmthP7L7xwtBJ}#
- #{z
-ANAU$bmvAmthP7L7xwtBK}#)
- (#{f
-ANAU$bmvAmthP7L7xwtAu}#
- #{z
-ANAU$bmvAmthP7L7xwtBK}#
- (lambda (#{ls
-ANAU$bmvAmthP7L7xwtBL}#)
- (#{k
-ANAU$bmvAmthP7L7xwtA7}#
+ (lambda (y-28531
+ z-28532)
+ (f-28504
+ z-28532
+ (lambda
(ls-28533)
+ (k-28517
(append
- #{y
-ANAU$bmvAmthP7L7xwtBJ}#
- #{ls
-ANAU$bmvAmthP7L7xwtBL}#)))))
- #{tmp
-ANAU$bmvAmthP7L7xwtBG}#)
+ y-28531
+
ls-28533)))))
+ tmp-28528)
(list '#(syntax-object
"list->vector"
((top)
@@ -25664,14 +24001,14 @@
()
())
#(ribcage
- #(#{
g-ANAU$bmvAmthP7L7xws9r}#)
-
#((m-ANAU$bmvAmthP7L7xws9s
+ #(t-28289)
+
#((m-*-28290
top))
- #("1f0"))
+
#("l-*-28293"))
#(ribcage
#(else)
#((top))
- #("1ez"))
+
#("l-*-28287"))
#(ribcage
()
()
@@ -25681,13 +24018,13 @@
#((top)
(top)
(top))
- #("1ep"
- "1eq"
- "1er"))
+
#("l-*-28254"
+
"l-*-28255"
+
"l-*-28256"))
#(ribcage
#(_)
#((top))
- #("1eo"))
+
#("l-*-28252"))
#(ribcage
()
()
@@ -25695,7 +24032,7 @@
#(ribcage
#(x)
#((top))
- #("1em"))
+
#("l-*-28246"))
#(ribcage
(emit
quasivector
quasilist*
@@ -25710,26 +24047,26 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+
("l-*-28117"
+
"l-*-28115"
+
"l-*-28113"
+
"l-*-28111"
+
"l-*-28109"
+
"l-*-28107"
+
"l-*-28105")))
(hygiene
guile))
- #{x
-ANAU$bmvAmthP7L7xwtAm}#))))))))))
- (#{f -ANAU$bmvAmthP7L7xwtAu}#
- #{x -ANAU$bmvAmthP7L7xwtAm}#
- (lambda (#{ls
-ANAU$bmvAmthP7L7xwtAw}#)
- (let ((#{tmp
-ANAU$bmvAmthP7L7xwtAy}#
+ x-28496))))))))))
+ (f-28504
+ x-28496
+ (lambda (ls-28506)
+ (let ((tmp-28508
($sc-dispatch
- #{ls
-ANAU$bmvAmthP7L7xwtAw}#
+ ls-28506
'each-any)))
- (if #{tmp -ANAU$bmvAmthP7L7xwtAy}#
+ (if tmp-28508
(@apply
- (lambda (#{
g-ANAU$bmvAmthP7L7xws9X -ANAU$bmvAmthP7L7xwtA1}#)
+ (lambda (t-28262-28511)
(cons '#(syntax-object
"vector"
((top)
@@ -25738,10 +24075,10 @@
()
())
#(ribcage
- #(#{
g-ANAU$bmvAmthP7L7xws9X}#)
-
#((m-ANAU$bmvAmthP7L7xws9Y
+ #(t-28262)
+ #((m-*-28263
top))
- #("1et"))
+ #("l-*-28267"))
#(ribcage
()
()
@@ -25757,11 +24094,11 @@
#(ribcage
#(ls)
#((top))
- #("1es"))
+ #("l-*-28261"))
#(ribcage
#(_)
#((top))
- #("1eo"))
+ #("l-*-28252"))
#(ribcage
()
()
@@ -25769,7 +24106,7 @@
#(ribcage
#(x)
#((top))
- #("1em"))
+ #("l-*-28246"))
#(ribcage
(emit
quasivector
quasilist*
@@ -25784,30 +24121,30 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{
g-ANAU$bmvAmthP7L7xws9X -ANAU$bmvAmthP7L7xwtA1}#))
- #{tmp
-ANAU$bmvAmthP7L7xwtAy}#)
+ t-28262-28511))
+ tmp-28508)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{ls
-ANAU$bmvAmthP7L7xwtAw}#))))))))))
- #{tmp -ANAU$bmvAmthP7L7xwtAf}#)
+ ls-28506))))))))))
+ tmp-28489)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1du"))
+ #(ribcage #(p) #((top)) #("l-*-28152"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dk" "1dl"))
+ #("l-*-28121" "l-*-28122"))
#(ribcage
(emit quasivector
quasilist*
@@ -25822,29 +24159,24 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{p address@hidden)))))))))))
- (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
- (lambda (#{p -ANAU$bmvAmthP7L7xwtBn}#
- #{lev -ANAU$bmvAmthP7L7xwtBo}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtBq}#
- ($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwtBn}#
- '(any . any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtBq}#
+ p-28399)))))))))))
+ (vquasi-28376
+ (lambda (p-28561 lev-28562)
+ (let ((tmp-28564 ($sc-dispatch p-28561 '(any . any))))
+ (if tmp-28564
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xwtBu}#
- #{q -ANAU$bmvAmthP7L7xwtBv}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtBx}#
+ (lambda (p-28568 q-28569)
+ (let ((tmp-28571
($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwtBu}#
+ p-28568
'(#(free-id
#(syntax-object
unquote
@@ -25852,12 +24184,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160" "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
@@ -25872,38 +24204,38 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtBx}#
+ (if tmp-28571
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xwtB1}#)
- (if (= #{lev -ANAU$bmvAmthP7L7xwtBo}# 0)
- (#{quasilist* -ANAU$bmvAmthP7L7xws$x}#
- (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8W
-ANAU$bmvAmthP7L7xwtCZ}#)
+ (lambda (p-28575)
+ (if (= lev-28562 0)
+ (quasilist*-28379
+ (map (lambda (tmp-28168-28611)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1dz"))
+ #("l-*-28166"))
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160" "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
@@ -25918,34 +24250,32 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{tmp -ANAU$bmvAmthP7L7xws8W
-ANAU$bmvAmthP7L7xwtCZ}#))
- #{p -ANAU$bmvAmthP7L7xwtB1}#)
- (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
- #{q -ANAU$bmvAmthP7L7xwtBv}#
- #{lev -ANAU$bmvAmthP7L7xwtBo}#))
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ tmp-28168-28611))
+ p-28575)
+ (vquasi-28376 q-28569 lev-28562))
+ (quasicons-28377
+ (quasicons-28377
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1dz"))
+ #(ribcage #(p) #((top)) #("l-*-28166"))
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160" "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
@@ -25960,27 +24290,27 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("1dz"))
+ #(ribcage #(p) #((top)) #("l-*-28166"))
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160" "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
@@ -25995,24 +24325,20 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{p -ANAU$bmvAmthP7L7xwtB1}#
- (#{1-}# #{lev -ANAU$bmvAmthP7L7xwtBo}#)))
- (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
- #{q -ANAU$bmvAmthP7L7xwtBv}#
- #{lev -ANAU$bmvAmthP7L7xwtBo}#))))
- #{tmp -ANAU$bmvAmthP7L7xwtBx}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtCg}#
+ (quasi-28375 p-28575 (#{1-}# lev-28562)))
+ (vquasi-28376 q-28569 lev-28562))))
+ tmp-28571)
+ (let ((tmp-28618
($sc-dispatch
- #{p -ANAU$bmvAmthP7L7xwtBu}#
+ p-28568
'(#(free-id
#(syntax-object
unquote-splicing
@@ -26020,12 +24346,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160" "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
@@ -26040,38 +24366,40 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtCg}#
+ (if tmp-28618
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xwtCk}#)
- (if (= #{lev -ANAU$bmvAmthP7L7xwtBo}# 0)
- (#{quasiappend -ANAU$bmvAmthP7L7xws$w}#
- (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8a
-ANAU$bmvAmthP7L7xwtCn}#)
+ (lambda (p-28622)
+ (if (= lev-28562 0)
+ (quasiappend-28378
+ (map (lambda (tmp-28173-28625)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1e0"))
+ #("l-*-28171"))
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160"
+ "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156"
+ "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
@@ -26086,34 +24414,35 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{tmp -ANAU$bmvAmthP7L7xws8a
-ANAU$bmvAmthP7L7xwtCn}#))
- #{p -ANAU$bmvAmthP7L7xwtCk}#)
- (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
- #{q -ANAU$bmvAmthP7L7xwtBv}#
- #{lev -ANAU$bmvAmthP7L7xwtBo}#))
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ tmp-28173-28625))
+ p-28622)
+ (vquasi-28376 q-28569 lev-28562))
+ (quasicons-28377
+ (quasicons-28377
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1e0"))
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-28171"))
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160" "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
@@ -26128,27 +24457,30 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("1e0"))
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-28171"))
#(ribcage
#(p q)
#((top) (top))
- #("1dx" "1dy"))
+ #("l-*-28160" "l-*-28161"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1dv" "1dw"))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
@@ -26163,39 +24495,33 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile)))
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{p -ANAU$bmvAmthP7L7xwtCk}#
- (#{1-}# #{lev
-ANAU$bmvAmthP7L7xwtBo}#)))
- (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
- #{q -ANAU$bmvAmthP7L7xwtBv}#
- #{lev -ANAU$bmvAmthP7L7xwtBo}#))))
- #{tmp -ANAU$bmvAmthP7L7xwtCg}#)
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{p -ANAU$bmvAmthP7L7xwtBu}#
- #{lev -ANAU$bmvAmthP7L7xwtBo}#)
- (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
- #{q -ANAU$bmvAmthP7L7xwtBv}#
- #{lev -ANAU$bmvAmthP7L7xwtBo}#)))))))
- #{tmp -ANAU$bmvAmthP7L7xwtBq}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtC5}#
- ($sc-dispatch #{p -ANAU$bmvAmthP7L7xwtBn}# '())))
- (if #{tmp -ANAU$bmvAmthP7L7xwtC5}#
+ (quasi-28375 p-28622 (#{1-}# lev-28562)))
+ (vquasi-28376 q-28569 lev-28562))))
+ tmp-28618)
+ (quasicons-28377
+ (quasi-28375 p-28568 lev-28562)
+ (vquasi-28376 q-28569 lev-28562)))))))
+ tmp-28564)
+ (let ((tmp-28643 ($sc-dispatch p-28561 '())))
+ (if tmp-28643
(@apply
(lambda ()
'(#(syntax-object
"quote"
((top)
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1dv" "1dw"))
+ #(ribcage
+ #(p lev)
+ #((top) (top))
+ #("l-*-28156" "l-*-28157"))
#(ribcage
(emit quasivector
quasilist*
@@ -26204,64 +24530,61 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
()))
- #{tmp -ANAU$bmvAmthP7L7xwtC5}#)
+ tmp-28643)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{p -ANAU$bmvAmthP7L7xwtBn}#)))))))
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwtDG}#
- #{y -ANAU$bmvAmthP7L7xwtDH}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtDI}#
- (list #{x -ANAU$bmvAmthP7L7xwtDG}#
- #{y -ANAU$bmvAmthP7L7xwtDH}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtDJ}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwtDI}#
- '(any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtDJ}#
+ p-28561)))))))
+ (quasicons-28377
+ (lambda (x-28656 y-28657)
+ (let ((tmp-28658 (list x-28656 y-28657)))
+ (let ((tmp-28659 ($sc-dispatch tmp-28658 '(any any))))
+ (if tmp-28659
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtDL}#
- #{y -ANAU$bmvAmthP7L7xwtDM}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtDO}#
- ($sc-dispatch
- #{y -ANAU$bmvAmthP7L7xwtDM}#
- '(#(atom "quote") any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtDO}#
+ (lambda (x-28661 y-28662)
+ (let ((tmp-28664
+ ($sc-dispatch y-28662 '(#(atom "quote") any))))
+ (if tmp-28664
(@apply
- (lambda (#{dy -ANAU$bmvAmthP7L7xwtDS}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtDU}#
+ (lambda (dy-28668)
+ (let ((tmp-28670
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtDL}#
+ x-28661
'(#(atom "quote") any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtDU}#
+ (if tmp-28670
(@apply
- (lambda (#{dx -ANAU$bmvAmthP7L7xwtDY}#)
+ (lambda (dx-28674)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("1e7"))
+ #("l-*-28195"))
#(ribcage
#(dy)
#((top))
- #("1e6"))
+ #("l-*-28191"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e4" "1e5"))
+ #("l-*-28185" "l-*-28186"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e2" "1e3"))
+ #("l-*-28180" "l-*-28181"))
#(ribcage
(emit quasivector
quasilist*
@@ -26276,34 +24599,39 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- (cons #{dx -ANAU$bmvAmthP7L7xwtDY}#
- #{dy
-ANAU$bmvAmthP7L7xwtDS}#)))
- #{tmp -ANAU$bmvAmthP7L7xwtDU}#)
- (if (null? #{dy -ANAU$bmvAmthP7L7xwtDS}#)
+ (cons dx-28674 dy-28668)))
+ tmp-28670)
+ (if (null? dy-28668)
(list '#(syntax-object
"list"
((top)
- #(ribcage #(_) #((top)) #("1e8"))
- #(ribcage #(dy) #((top)) #("1e6"))
+ #(ribcage
+ #(_)
+ #((top))
+ #("l-*-28197"))
+ #(ribcage
+ #(dy)
+ #((top))
+ #("l-*-28191"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e4" "1e5"))
+ #("l-*-28185" "l-*-28186"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e2" "1e3"))
+ #("l-*-28180" "l-*-28181"))
#(ribcage
(emit quasivector
quasilist*
@@ -26318,31 +24646,37 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{x -ANAU$bmvAmthP7L7xwtDL}#)
+ x-28661)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("1e8"))
- #(ribcage #(dy) #((top)) #("1e6"))
+ #(ribcage
+ #(_)
+ #((top))
+ #("l-*-28197"))
+ #(ribcage
+ #(dy)
+ #((top))
+ #("l-*-28191"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e4" "1e5"))
+ #("l-*-28185" "l-*-28186"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e2" "1e3"))
+ #("l-*-28180" "l-*-28181"))
#(ribcage
(emit quasivector
quasilist*
@@ -26357,42 +24691,42 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{x -ANAU$bmvAmthP7L7xwtDL}#
- #{y -ANAU$bmvAmthP7L7xwtDM}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwtDO}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtDd}#
+ x-28661
+ y-28662)))))
+ tmp-28664)
+ (let ((tmp-28679
($sc-dispatch
- #{y -ANAU$bmvAmthP7L7xwtDM}#
+ y-28662
'(#(atom "list") . any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtDd}#
+ (if tmp-28679
(@apply
- (lambda (#{stuff -ANAU$bmvAmthP7L7xwtDh}#)
+ (lambda (stuff-28683)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("1e9"))
+ #("l-*-28200"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e4" "1e5"))
+ #("l-*-28185" "l-*-28186"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e2" "1e3"))
+ #("l-*-28180" "l-*-28181"))
#(ribcage
(emit quasivector
quasilist*
@@ -26407,42 +24741,41 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- (cons #{x -ANAU$bmvAmthP7L7xwtDL}#
- #{stuff
-ANAU$bmvAmthP7L7xwtDh}#)))
- #{tmp -ANAU$bmvAmthP7L7xwtDd}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtDi}#
+ (cons x-28661 stuff-28683)))
+ tmp-28679)
+ (let ((tmp-28684
($sc-dispatch
- #{y -ANAU$bmvAmthP7L7xwtDM}#
+ y-28662
'(#(atom "list*") . any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtDi}#
+ (if tmp-28684
(@apply
- (lambda (#{stuff -ANAU$bmvAmthP7L7xwtDm}#)
+ (lambda (stuff-28688)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("1ea"))
+ #("l-*-28203"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e4" "1e5"))
+ #("l-*-28185" "l-*-28186"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e2" "1e3"))
+ #("l-*-28180" "l-*-28181"))
#(ribcage
(emit quasivector
quasilist*
@@ -26457,32 +24790,34 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- (cons #{x -ANAU$bmvAmthP7L7xwtDL}#
- #{stuff
-ANAU$bmvAmthP7L7xwtDm}#)))
- #{tmp -ANAU$bmvAmthP7L7xwtDi}#)
+ (cons x-28661 stuff-28688)))
+ tmp-28684)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("1eb"))
+ #(ribcage
+ #(_)
+ #((top))
+ #("l-*-28205"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e4" "1e5"))
+ #("l-*-28185" "l-*-28186"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1e2" "1e3"))
+ #("l-*-28180" "l-*-28181"))
#(ribcage
(emit quasivector
quasilist*
@@ -26497,37 +24832,37 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{x -ANAU$bmvAmthP7L7xwtDL}#
- #{y -ANAU$bmvAmthP7L7xwtDM}#))))))))
- #{tmp -ANAU$bmvAmthP7L7xwtDJ}#)
+ x-28661
+ y-28662))))))))
+ tmp-28659)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwtDI}#))))))
- (#{quasiappend -ANAU$bmvAmthP7L7xws$w}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwtDx}#
- #{y -ANAU$bmvAmthP7L7xwtDy}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtD0}#
- ($sc-dispatch
- #{y -ANAU$bmvAmthP7L7xwtDy}#
- '(#(atom "quote") ()))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtD0}#
+ tmp-28658))))))
+ (quasiappend-28378
+ (lambda (x-28699 y-28700)
+ (let ((tmp-28702
+ ($sc-dispatch y-28700 '(#(atom "quote") ()))))
+ (if tmp-28702
(@apply
(lambda ()
- (if (null? #{x -ANAU$bmvAmthP7L7xwtDx}#)
+ (if (null? x-28699)
'(#(syntax-object
"quote"
((top)
#(ribcage () () ())
- #(ribcage #(x y) #((top) (top)) #("1ec" "1ed"))
+ #(ribcage
+ #(x y)
+ #((top) (top))
+ #("l-*-28209" "l-*-28210"))
#(ribcage
(emit quasivector
quasilist*
@@ -26536,28 +24871,34 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
())
- (if (null? (cdr #{x -ANAU$bmvAmthP7L7xwtDx}#))
- (car #{x -ANAU$bmvAmthP7L7xwtDx}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtD5}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtDx}#
- 'each-any)))
- (if #{tmp -ANAU$bmvAmthP7L7xwtD5}#
+ (if (null? (cdr x-28699))
+ (car x-28699)
+ (let ((tmp-28707 ($sc-dispatch x-28699 'each-any)))
+ (if tmp-28707
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xwtD9}#)
+ (lambda (p-28711)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("1ee"))
+ #(ribcage
+ #(p)
+ #((top))
+ #("l-*-28221"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1ec" "1ed"))
+ #("l-*-28209" "l-*-28210"))
#(ribcage
(emit quasivector
quasilist*
@@ -26572,34 +24913,29 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{p -ANAU$bmvAmthP7L7xwtD9}#))
- #{tmp -ANAU$bmvAmthP7L7xwtD5}#)
+ p-28711))
+ tmp-28707)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xwtDx}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwtD0}#)
- (if (null? #{x -ANAU$bmvAmthP7L7xwtDx}#)
- #{y -ANAU$bmvAmthP7L7xwtDy}#
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtEF}#
- (list #{x -ANAU$bmvAmthP7L7xwtDx}#
- #{y -ANAU$bmvAmthP7L7xwtDy}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtEG}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwtEF}#
- '(each-any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtEG}#
+ x-28699))))))
+ tmp-28702)
+ (if (null? x-28699)
+ y-28700
+ (let ((tmp-28719 (list x-28699 y-28700)))
+ (let ((tmp-28720
+ ($sc-dispatch tmp-28719 '(each-any any))))
+ (if tmp-28720
(@apply
- (lambda (#{p -ANAU$bmvAmthP7L7xwtEI}#
- #{y -ANAU$bmvAmthP7L7xwtEJ}#)
+ (lambda (p-28722 y-28723)
(cons '#(syntax-object
"append"
((top)
@@ -26607,13 +24943,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("1eg" "1eh"))
- #(ribcage #(_) #((top)) #("1ef"))
+ #("l-*-28232" "l-*-28233"))
+ #(ribcage #(_) #((top)) #("l-*-28224"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1ec" "1ed"))
+ #("l-*-28209" "l-*-28210"))
#(ribcage
(emit quasivector
quasilist*
@@ -26628,51 +24964,44 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- (append
- #{p -ANAU$bmvAmthP7L7xwtEI}#
- (list #{y -ANAU$bmvAmthP7L7xwtEJ}#))))
- #{tmp -ANAU$bmvAmthP7L7xwtEG}#)
+ (append p-28722 (list y-28723))))
+ tmp-28720)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwtEF}#)))))))))
- (#{quasilist* -ANAU$bmvAmthP7L7xws$x}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwtEN}#
- #{y -ANAU$bmvAmthP7L7xwtEO}#)
+ tmp-28719)))))))))
+ (quasilist*-28379
+ (lambda (x-28727 y-28728)
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwtEP}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwtFo}#)
- (if (null? #{x -ANAU$bmvAmthP7L7xwtFo}#)
- #{y -ANAU$bmvAmthP7L7xwtEO}#
- (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
- (car #{x -ANAU$bmvAmthP7L7xwtFo}#)
- (#{f -ANAU$bmvAmthP7L7xwtEP}#
- (cdr #{x -ANAU$bmvAmthP7L7xwtFo}#)))))))
- (#{f -ANAU$bmvAmthP7L7xwtEP}#
- #{x -ANAU$bmvAmthP7L7xwtEN}#))))
- (#{emit -ANAU$bmvAmthP7L7xws$z}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwtFr}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtFt}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtFr}#
- '(#(atom "quote") any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtFt}#
+ ((f-28729
+ (lambda (x-28818)
+ (if (null? x-28818)
+ y-28728
+ (quasicons-28377
+ (car x-28818)
+ (f-28729 (cdr x-28818)))))))
+ (f-28729 x-28727))))
+ (emit-28381
+ (lambda (x-28821)
+ (let ((tmp-28823
+ ($sc-dispatch x-28821 '(#(atom "quote") any))))
+ (if tmp-28823
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtFx}#)
+ (lambda (x-28827)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("1f2"))
+ #(ribcage #(x) #((top)) #("l-*-28299"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1f1"))
+ #(ribcage #(x) #((top)) #("l-*-28296"))
#(ribcage
(emit quasivector
quasilist*
@@ -26681,38 +25010,45 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{x -ANAU$bmvAmthP7L7xwtFx}#))
- #{tmp -ANAU$bmvAmthP7L7xwtFt}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtFy}#
+ x-28827))
+ tmp-28823)
+ (let ((tmp-28828
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtFr}#
+ x-28821
'(#(atom "list") . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtFy}#
+ (if tmp-28828
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtF2}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtF3}#
- (map #{emit -ANAU$bmvAmthP7L7xws$z}#
- #{x -ANAU$bmvAmthP7L7xwtF2}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtF4}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwtF3}#
- 'each-any)))
- (if #{tmp -ANAU$bmvAmthP7L7xwtF4}#
+ (lambda (x-28832)
+ (let ((tmp-28833 (map emit-28381 x-28832)))
+ (let ((tmp-28834 ($sc-dispatch tmp-28833 'each-any)))
+ (if tmp-28834
(@apply
- (lambda (#{ g-ANAU$bmvAmthP7L7xws92
-ANAU$bmvAmthP7L7xwtF6}#)
+ (lambda (t-28304-28836)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g-ANAU$bmvAmthP7L7xws92}#)
- #((m-ANAU$bmvAmthP7L7xws93 top))
- #("1f4"))
- #(ribcage #(x) #((top)) #("1f3"))
+ #(t-28304)
+ #((m-*-28305 top))
+ #("l-*-28309"))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-28302"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1f1"))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-28296"))
#(ribcage
(emit quasivector
quasilist*
@@ -26727,74 +25063,70 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{ g-ANAU$bmvAmthP7L7xws92
-ANAU$bmvAmthP7L7xwtF6}#))
- #{tmp -ANAU$bmvAmthP7L7xwtF4}#)
+ t-28304-28836))
+ tmp-28834)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwtF3}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwtFy}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtF7}#
+ tmp-28833)))))
+ tmp-28828)
+ (let ((tmp-28837
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtFr}#
+ x-28821
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtF7}#
+ (if tmp-28837
(@apply
- (lambda (#{x address@hidden
- #{y -ANAU$bmvAmthP7L7xwtGA}#)
+ (lambda (x-28841 y-28842)
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwtGB}#
- (lambda (#{x* -ANAU$bmvAmthP7L7xwtGE}#)
- (if (null? #{x* -ANAU$bmvAmthP7L7xwtGE}#)
- (#{emit -ANAU$bmvAmthP7L7xws$z}#
- #{y -ANAU$bmvAmthP7L7xwtGA}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGF}#
- (list (#{emit
-ANAU$bmvAmthP7L7xws$z}#
- (car #{x*
-ANAU$bmvAmthP7L7xwtGE}#))
- (#{f -ANAU$bmvAmthP7L7xwtGB}#
- (cdr #{x*
-ANAU$bmvAmthP7L7xwtGE}#)))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGG}#
+ ((f-28843
+ (lambda (x*-28846)
+ (if (null? x*-28846)
+ (emit-28381 y-28842)
+ (let ((tmp-28847
+ (list (emit-28381 (car x*-28846))
+ (f-28843 (cdr x*-28846)))))
+ (let ((tmp-28848
($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwtGF}#
+ tmp-28847
'(any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtGG}#
+ (if tmp-28848
(@apply
- (lambda (#{
g-ANAU$bmvAmthP7L7xws$F -ANAU$bmvAmthP7L7xwtGI}#
- #{
g-ANAU$bmvAmthP7L7xws$E -ANAU$bmvAmthP7L7xwtGJ}#)
+ (lambda (t-28324-28850
+ t-28323-28851)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{
g-ANAU$bmvAmthP7L7xws$F}#
- #{
g-ANAU$bmvAmthP7L7xws$E}#)
-
#((m-ANAU$bmvAmthP7L7xws$G
- top)
-
(m-ANAU$bmvAmthP7L7xws$G
- top))
- #("1f9" "1fa"))
+ #(t-28324 t-28323)
+ #((m-*-28325 top)
+ (m-*-28325 top))
+ #("l-*-28329"
+ "l-*-28330"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("1f7" "1f8"))
+ #("l-*-28318"
+ "l-*-28319"))
#(ribcage
#(x y)
#((top) (top))
- #("1f5" "1f6"))
+ #("l-*-28314"
+ "l-*-28315"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f1"))
+ #("l-*-28296"))
#(ribcage
(emit quasivector
quasilist*
@@ -26809,59 +25141,53 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{ g-ANAU$bmvAmthP7L7xws$F
-ANAU$bmvAmthP7L7xwtGI}#
- #{ g-ANAU$bmvAmthP7L7xws$E
-ANAU$bmvAmthP7L7xwtGJ}#))
- #{tmp -ANAU$bmvAmthP7L7xwtGG}#)
+ t-28324-28850
+ t-28323-28851))
+ tmp-28848)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp
-ANAU$bmvAmthP7L7xwtGF}#))))))))
- (#{f -ANAU$bmvAmthP7L7xwtGB}#
- #{x address@hidden)))
- #{tmp -ANAU$bmvAmthP7L7xwtF7}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGK}#
+ tmp-28847))))))))
+ (f-28843 x-28841)))
+ tmp-28837)
+ (let ((tmp-28852
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtFr}#
+ x-28821
'(#(atom "append") . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtGK}#
+ (if tmp-28852
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtGO}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGP}#
- (map #{emit -ANAU$bmvAmthP7L7xws$z}#
- #{x -ANAU$bmvAmthP7L7xwtGO}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGQ}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwtGP}#
- 'each-any)))
- (if #{tmp -ANAU$bmvAmthP7L7xwtGQ}#
+ (lambda (x-28856)
+ (let ((tmp-28857 (map emit-28381 x-28856)))
+ (let ((tmp-28858
+ ($sc-dispatch tmp-28857 'each-any)))
+ (if tmp-28858
(@apply
- (lambda (#{ g-ANAU$bmvAmthP7L7xws$O
-ANAU$bmvAmthP7L7xwtGS}#)
+ (lambda (t-28336-28860)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{
g-ANAU$bmvAmthP7L7xws$O}#)
- #((m-ANAU$bmvAmthP7L7xws$P
- top))
- #("1fc"))
+ #(t-28336)
+ #((m-*-28337 top))
+ #("l-*-28341"))
#(ribcage
#(x)
#((top))
- #("1fb"))
+ #("l-*-28334"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f1"))
+ #("l-*-28296"))
#(ribcage
(emit quasivector
quasilist*
@@ -26876,56 +25202,53 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{ g-ANAU$bmvAmthP7L7xws$O
-ANAU$bmvAmthP7L7xwtGS}#))
- #{tmp -ANAU$bmvAmthP7L7xwtGQ}#)
+ t-28336-28860))
+ tmp-28858)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp -ANAU$bmvAmthP7L7xwtGP}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwtGK}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGT}#
+ tmp-28857)))))
+ tmp-28852)
+ (let ((tmp-28861
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtFr}#
+ x-28821
'(#(atom "vector") . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtGT}#
+ (if tmp-28861
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtGX}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGY}#
- (map #{emit -ANAU$bmvAmthP7L7xws$z}#
- #{x -ANAU$bmvAmthP7L7xwtGX}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGZ}#
+ (lambda (x-28865)
+ (let ((tmp-28866 (map emit-28381 x-28865)))
+ (let ((tmp-28867
($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwtGY}#
+ tmp-28866
'each-any)))
- (if #{tmp -ANAU$bmvAmthP7L7xwtGZ}#
+ (if tmp-28867
(@apply
- (lambda (#{ g-ANAU$bmvAmthP7L7xws$Y
-ANAU$bmvAmthP7L7xwtGb}#)
+ (lambda (t-28348-28869)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{
g-ANAU$bmvAmthP7L7xws$Y}#)
-
#((m-ANAU$bmvAmthP7L7xws$Z
- top))
- #("1fe"))
+ #(t-28348)
+ #((m-*-28349 top))
+ #("l-*-28353"))
#(ribcage
#(x)
#((top))
- #("1fd"))
+ #("l-*-28346"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f1"))
+ #("l-*-28296"))
#(ribcage
(emit quasivector
quasilist*
@@ -26940,49 +25263,46 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{ g-ANAU$bmvAmthP7L7xws$Y
-ANAU$bmvAmthP7L7xwtGb}#))
- #{tmp -ANAU$bmvAmthP7L7xwtGZ}#)
+ t-28348-28869))
+ tmp-28867)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwtGY}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwtGT}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGc}#
+ tmp-28866)))))
+ tmp-28861)
+ (let ((tmp-28870
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtFr}#
+ x-28821
'(#(atom "list->vector") any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtGc}#
+ (if tmp-28870
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtGg}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGh}#
- (#{emit -ANAU$bmvAmthP7L7xws$z}#
- #{x
-ANAU$bmvAmthP7L7xwtGg}#)))
+ (lambda (x-28874)
+ (let ((tmp-28875 (emit-28381 x-28874)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{
g-ANAU$bmvAmthP7L7xws$i}#)
- #((m-ANAU$bmvAmthP7L7xws$j
- top))
- #("1fg"))
+ #(t-28360)
+ #((m-*-28361 top))
+ #("l-*-28364"))
#(ribcage
#(x)
#((top))
- #("1ff"))
+ #("l-*-28358"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f1"))
+ #("l-*-28296"))
#(ribcage
(emit quasivector
quasilist*
@@ -26997,218 +25317,183 @@
(top)
(top)
(top))
- ("1dj"
- "1di"
- "1dh"
- "1dg"
- "1df"
- "1de"
- "1dd")))
+ ("l-*-28117"
+ "l-*-28115"
+ "l-*-28113"
+ "l-*-28111"
+ "l-*-28109"
+ "l-*-28107"
+ "l-*-28105")))
(hygiene guile))
- #{tmp
-ANAU$bmvAmthP7L7xwtGh}#)))
- #{tmp -ANAU$bmvAmthP7L7xwtGc}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtGk}#
+ tmp-28875)))
+ tmp-28870)
+ (let ((tmp-28878
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtFr}#
+ x-28821
'(#(atom "value") any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtGk}#
+ (if tmp-28878
(@apply
- (lambda (#{x -ANAU$bmvAmthP7L7xwtGo}#)
- #{x -ANAU$bmvAmthP7L7xwtGo}#)
- #{tmp -ANAU$bmvAmthP7L7xwtGk}#)
+ (lambda (x-28882) x-28882)
+ tmp-28878)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{x
-ANAU$bmvAmthP7L7xwtFr}#))))))))))))))))))
- (lambda (#{x -ANAU$bmvAmthP7L7xws$0}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xws$2}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xws$0}#
- '(_ any))))
- (if #{tmp -ANAU$bmvAmthP7L7xws$2}#
+ x-28821))))))))))))))))))
+ (lambda (x-28382)
+ (let ((tmp-28384 ($sc-dispatch x-28382 '(_ any))))
+ (if tmp-28384
(@apply
- (lambda (#{e -ANAU$bmvAmthP7L7xws$6}#)
- (#{emit -ANAU$bmvAmthP7L7xws$z}#
- (#{quasi -ANAU$bmvAmthP7L7xws$t}#
- #{e -ANAU$bmvAmthP7L7xws$6}#
- 0)))
- #{tmp -ANAU$bmvAmthP7L7xws$2}#)
+ (lambda (e-28388)
+ (emit-28381 (quasi-28375 e-28388 0)))
+ tmp-28384)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xws$0}#)))))))
+ x-28382)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xwtHT}#)
+ (lambda (x-28937)
(letrec*
- ((#{read-file -ANAU$bmvAmthP7L7xwtHU}#
- (lambda (#{fn -ANAU$bmvAmthP7L7xwtJB}#
- #{k -ANAU$bmvAmthP7L7xwtJC}#)
- (let ((#{p -ANAU$bmvAmthP7L7xwtJD}#
- (open-input-file #{fn -ANAU$bmvAmthP7L7xwtJB}#)))
+ ((read-file-28938
+ (lambda (fn-29047 k-29048)
+ (let ((p-29049 (open-input-file fn-29047)))
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwtJE}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwtJ6}#
- #{result -ANAU$bmvAmthP7L7xwtJ7}#)
- (if (eof-object? #{x -ANAU$bmvAmthP7L7xwtJ6}#)
+ ((f-29050
+ (lambda (x-29104 result-29105)
+ (if (eof-object? x-29104)
(begin
- (close-input-port #{p -ANAU$bmvAmthP7L7xwtJD}#)
- (reverse #{result -ANAU$bmvAmthP7L7xwtJ7}#))
- (#{f -ANAU$bmvAmthP7L7xwtJE}#
- (read #{p -ANAU$bmvAmthP7L7xwtJD}#)
- (cons (datum->syntax
- #{k -ANAU$bmvAmthP7L7xwtJC}#
- #{x -ANAU$bmvAmthP7L7xwtJ6}#)
- #{result -ANAU$bmvAmthP7L7xwtJ7}#))))))
- (#{f -ANAU$bmvAmthP7L7xwtJE}#
- (read #{p -ANAU$bmvAmthP7L7xwtJD}#)
- '()))))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtHW}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtHT}#
- '(any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtHW}#
+ (close-input-port p-29049)
+ (reverse result-29105))
+ (f-29050
+ (read p-29049)
+ (cons (datum->syntax k-29048 x-29104)
+ result-29105))))))
+ (f-29050 (read p-29049) '()))))))
+ (let ((tmp-28940 ($sc-dispatch x-28937 '(any any))))
+ (if tmp-28940
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xwtHa}#
- #{filename -ANAU$bmvAmthP7L7xwtHb}#)
- (let ((#{fn -ANAU$bmvAmthP7L7xwtHc}#
- (syntax->datum
- #{filename -ANAU$bmvAmthP7L7xwtHb}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtHd}#
- (#{read-file -ANAU$bmvAmthP7L7xwtHU}#
- #{fn -ANAU$bmvAmthP7L7xwtHc}#
- #{filename -ANAU$bmvAmthP7L7xwtHb}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtHe}#
- ($sc-dispatch
- #{tmp -ANAU$bmvAmthP7L7xwtHd}#
- 'each-any)))
- (if #{tmp -ANAU$bmvAmthP7L7xwtHe}#
+ (lambda (k-28944 filename-28945)
+ (let ((fn-28946 (syntax->datum filename-28945)))
+ (let ((tmp-28947
+ (read-file-28938 fn-28946 filename-28945)))
+ (let ((tmp-28948 ($sc-dispatch tmp-28947 'each-any)))
+ (if tmp-28948
(@apply
- (lambda (#{exp -ANAU$bmvAmthP7L7xwtHw}#)
+ (lambda (exp-28966)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("1fv"))
+ #(ribcage #(exp) #((top)) #("l-*-28934"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("1fu"))
+ #(ribcage #(fn) #((top)) #("l-*-28929"))
#(ribcage
#(k filename)
#((top) (top))
- #("1fs" "1ft"))
- #(ribcage (read-file) ((top)) ("1fl"))
- #(ribcage #(x) #((top)) #("1fk")))
+ #("l-*-28925" "l-*-28926"))
+ #(ribcage
+ (read-file)
+ ((top))
+ ("l-*-28909"))
+ #(ribcage #(x) #((top)) #("l-*-28908")))
(hygiene guile))
- #{exp -ANAU$bmvAmthP7L7xwtHw}#))
- #{tmp -ANAU$bmvAmthP7L7xwtHe}#)
+ exp-28966))
+ tmp-28948)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp -ANAU$bmvAmthP7L7xwtHd}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwtHW}#)
+ tmp-28947))))))
+ tmp-28940)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xwtHT}#)))))))
+ x-28937)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xwtKI}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtKK}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtKI}#
- '(any any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtKK}#
+ (lambda (x-29124)
+ (let ((tmp-29126 ($sc-dispatch x-29124 '(any any))))
+ (if tmp-29126
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xwtKO}#
- #{filename -ANAU$bmvAmthP7L7xwtKP}#)
- (let ((#{fn -ANAU$bmvAmthP7L7xwtKQ}#
- (syntax->datum
- #{filename -ANAU$bmvAmthP7L7xwtKP}#)))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtKR}#
+ (lambda (k-29130 filename-29131)
+ (let ((fn-29132 (syntax->datum filename-29131)))
+ (let ((tmp-29133
(datum->syntax
- #{filename -ANAU$bmvAmthP7L7xwtKP}#
- (let ((#{t -ANAU$bmvAmthP7L7xwtKU}#
- (%search-load-path
- #{fn -ANAU$bmvAmthP7L7xwtKQ}#)))
- (if #{t -ANAU$bmvAmthP7L7xwtKU}#
- #{t -ANAU$bmvAmthP7L7xwtKU}#
+ filename-29131
+ (let ((t-29136 (%search-load-path fn-29132)))
+ (if t-29136
+ t-29136
(syntax-violation
'include-from-path
"file not found in path"
- #{x -ANAU$bmvAmthP7L7xwtKI}#
- #{filename -ANAU$bmvAmthP7L7xwtKP}#))))))
+ x-29124
+ filename-29131))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("1g0"))
+ #(ribcage #(fn) #((top)) #("l-*-29118"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("1fz"))
+ #(ribcage #(fn) #((top)) #("l-*-29114"))
#(ribcage
#(k filename)
#((top) (top))
- #("1fx" "1fy"))
+ #("l-*-29110" "l-*-29111"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fw")))
+ #(ribcage #(x) #((top)) #("l-*-29107")))
(hygiene guile))
- #{tmp -ANAU$bmvAmthP7L7xwtKR}#))))
- #{tmp -ANAU$bmvAmthP7L7xwtKK}#)
+ tmp-29133))))
+ tmp-29126)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xwtKI}#))))))
+ x-29124))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xwtKc}#)
+ (lambda (x-29145)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x -ANAU$bmvAmthP7L7xwtKc}#))))
+ x-29145))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xwtKe}#)
+ (lambda (x-29148)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x -ANAU$bmvAmthP7L7xwtKe}#))))
+ x-29148))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xwtLD}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtLF}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtLD}#
- '(_ any any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtLF}#
+ (lambda (x-29204)
+ (let ((tmp-29206
+ ($sc-dispatch x-29204 '(_ any any . each-any))))
+ (if tmp-29206
(@apply
- (lambda (#{e -ANAU$bmvAmthP7L7xwtLJ}#
- #{m1 -ANAU$bmvAmthP7L7xwtLK}#
- #{m2 -ANAU$bmvAmthP7L7xwtLL}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtLM}#
+ (lambda (e-29210 m1-29211 m2-29212)
+ (let ((tmp-29213
(letrec*
- ((#{f -ANAU$bmvAmthP7L7xwtL2}#
- (lambda (#{clause -ANAU$bmvAmthP7L7xwtL5}#
- #{clauses -ANAU$bmvAmthP7L7xwtL6}#)
- (if (null? #{clauses -ANAU$bmvAmthP7L7xwtL6}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtL8}#
+ ((f-29255
+ (lambda (clause-29258 clauses-29259)
+ (if (null? clauses-29259)
+ (let ((tmp-29261
($sc-dispatch
- #{clause -ANAU$bmvAmthP7L7xwtL5}#
+ clause-29258
'(#(free-id
#(syntax-object
else
@@ -27217,79 +25502,89 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1g9" "1ga" "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5" "1g6" "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtL8}#
+ (if tmp-29261
(@apply
- (lambda (#{e1 -ANAU$bmvAmthP7L7xwtMA}#
- #{e2 -ANAU$bmvAmthP7L7xwtMB}#)
+ (lambda (e1-29265 e2-29266)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1gc" "1gd"))
+ #("l-*-29172" "l-*-29173"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1g9" "1ga" "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5" "1g6" "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
- (cons #{e1
-ANAU$bmvAmthP7L7xwtMA}#
- #{e2
-ANAU$bmvAmthP7L7xwtMB}#)))
- #{tmp -ANAU$bmvAmthP7L7xwtL8}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtMC}#
+ (cons e1-29265 e2-29266)))
+ tmp-29261)
+ (let ((tmp-29267
($sc-dispatch
- #{clause -ANAU$bmvAmthP7L7xwtL5}#
+ clause-29258
'(each-any any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtMC}#
+ (if tmp-29267
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xwtMG}#
- #{e1 -ANAU$bmvAmthP7L7xwtMH}#
- #{e2
-ANAU$bmvAmthP7L7xwtMI}#)
+ (lambda (k-29271 e1-29272 e2-29273)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1ge" "1gf" "1gg"))
+ #("l-*-29178"
+ "l-*-29179"
+ "l-*-29180"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1g9" "1ga" "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5" "1g6" "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -27299,9 +25594,9 @@
#((top)
(top)
(top))
- #("1ge"
- "1gf"
- "1gg"))
+ #("l-*-29178"
+ "l-*-29179"
+ "l-*-29180"))
#(ribcage () () ())
#(ribcage
#(f
@@ -27310,22 +25605,22 @@
#((top)
(top)
(top))
- #("1g9"
- "1ga"
- "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1g5"
- "1g6"
- "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
'#(syntax-object
t
@@ -27335,9 +25630,9 @@
#((top)
(top)
(top))
- #("1ge"
- "1gf"
- "1gg"))
+ #("l-*-29178"
+ "l-*-29179"
+ "l-*-29180"))
#(ribcage () () ())
#(ribcage
#(f
@@ -27346,22 +25641,22 @@
#((top)
(top)
(top))
- #("1g9"
- "1ga"
- "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1g5"
- "1g6"
- "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -27371,9 +25666,9 @@
#((top)
(top)
(top))
- #("1ge"
- "1gf"
- "1gg"))
+
#("l-*-29178"
+
"l-*-29179"
+
"l-*-29180"))
#(ribcage
()
()
@@ -27385,17 +25680,17 @@
#((top)
(top)
(top))
- #("1g9"
- "1ga"
- "1gb"))
+
#("l-*-29163"
+
"l-*-29164"
+
"l-*-29165"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1g5"
- "1g6"
- "1g7"))
+
#("l-*-29153"
+
"l-*-29154"
+
"l-*-29155"))
#(ribcage
()
()
@@ -27403,10 +25698,10 @@
#(ribcage
#(x)
#((top))
- #("1g4")))
+
#("l-*-29150")))
(hygiene
guile))
- #{k
-ANAU$bmvAmthP7L7xwtMG}#))
+ k-29271))
(cons '#(syntax-object
begin
((top)
@@ -27415,9 +25710,9 @@
#((top)
(top)
(top))
- #("1ge"
- "1gf"
- "1gg"))
+ #("l-*-29178"
+ "l-*-29179"
+ "l-*-29180"))
#(ribcage () () ())
#(ribcage
#(f
@@ -27426,70 +25721,74 @@
#((top)
(top)
(top))
- #("1g9"
- "1ga"
- "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1g5"
- "1g6"
- "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
- (cons #{e1
-ANAU$bmvAmthP7L7xwtMH}#
- #{e2
-ANAU$bmvAmthP7L7xwtMI}#))))
- #{tmp -ANAU$bmvAmthP7L7xwtMC}#)
+ (cons e1-29272
+ e2-29273))))
+ tmp-29267)
(syntax-violation
'case
"bad clause"
- #{x -ANAU$bmvAmthP7L7xwtLD}#
- #{clause -ANAU$bmvAmthP7L7xwtL5}#)))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtMQ}#
- (#{f -ANAU$bmvAmthP7L7xwtL2}#
- (car #{clauses
-ANAU$bmvAmthP7L7xwtL6}#)
- (cdr #{clauses
-ANAU$bmvAmthP7L7xwtL6}#))))
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtMT}#
+ x-29204
+ clause-29258)))))
+ (let ((tmp-29281
+ (f-29255
+ (car clauses-29259)
+ (cdr clauses-29259))))
+ (let ((tmp-29284
($sc-dispatch
- #{clause -ANAU$bmvAmthP7L7xwtL5}#
+ clause-29258
'(each-any any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtMT}#
+ (if tmp-29284
(@apply
- (lambda (#{k -ANAU$bmvAmthP7L7xwtMX}#
- #{e1 -ANAU$bmvAmthP7L7xwtMY}#
- #{e2 -ANAU$bmvAmthP7L7xwtMZ}#)
+ (lambda (k-29288 e1-29289 e2-29290)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1gj" "1gk" "1gl"))
+ #("l-*-29194"
+ "l-*-29195"
+ "l-*-29196"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1gi"))
+ #("l-*-29190"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1g9" "1ga" "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5" "1g6" "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -27497,32 +25796,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1gj"
- "1gk"
- "1gl"))
+ #("l-*-29194"
+ "l-*-29195"
+ "l-*-29196"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1gi"))
+ #("l-*-29190"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1g9"
- "1ga"
- "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5"
- "1g6"
- "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
'#(syntax-object
t
@@ -27530,32 +25829,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1gj"
- "1gk"
- "1gl"))
+ #("l-*-29194"
+ "l-*-29195"
+ "l-*-29196"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1gi"))
+ #("l-*-29190"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1g9"
- "1ga"
- "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5"
- "1g6"
- "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -27565,9 +25864,9 @@
#((top)
(top)
(top))
- #("1gj"
- "1gk"
- "1gl"))
+ #("l-*-29194"
+ "l-*-29195"
+
"l-*-29196"))
#(ribcage
()
()
@@ -27575,7 +25874,7 @@
#(ribcage
#(rest)
#((top))
- #("1gi"))
+
#("l-*-29190"))
#(ribcage
()
()
@@ -27587,17 +25886,17 @@
#((top)
(top)
(top))
- #("1g9"
- "1ga"
- "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+
"l-*-29165"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1g5"
- "1g6"
- "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+
"l-*-29155"))
#(ribcage
()
()
@@ -27605,238 +25904,249 @@
#(ribcage
#(x)
#((top))
- #("1g4")))
+
#("l-*-29150")))
(hygiene guile))
- #{k
-ANAU$bmvAmthP7L7xwtMX}#))
+ k-29288))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1gj"
- "1gk"
- "1gl"))
+ #("l-*-29194"
+ "l-*-29195"
+ "l-*-29196"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1gi"))
+ #("l-*-29190"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1g9"
- "1ga"
- "1gb"))
+ #("l-*-29163"
+ "l-*-29164"
+ "l-*-29165"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5"
- "1g6"
- "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1g4")))
+ #("l-*-29150")))
(hygiene guile))
- (cons #{e1
-ANAU$bmvAmthP7L7xwtMY}#
- #{e2
-ANAU$bmvAmthP7L7xwtMZ}#))
- #{tmp -ANAU$bmvAmthP7L7xwtMQ}#))
- #{tmp -ANAU$bmvAmthP7L7xwtMT}#)
+ (cons e1-29289 e2-29290))
+ tmp-29281))
+ tmp-29284)
(syntax-violation
'case
"bad clause"
- #{x -ANAU$bmvAmthP7L7xwtLD}#
- #{clause
-ANAU$bmvAmthP7L7xwtL5}#))))))))
- (#{f -ANAU$bmvAmthP7L7xwtL2}#
- #{m1 -ANAU$bmvAmthP7L7xwtLK}#
- #{m2 -ANAU$bmvAmthP7L7xwtLL}#))))
- (let ((#{body -ANAU$bmvAmthP7L7xwtLN}#
- #{tmp -ANAU$bmvAmthP7L7xwtLM}#))
+ x-29204
+ clause-29258))))))))
+ (f-29255 m1-29211 m2-29212))))
+ (let ((body-29214 tmp-29213))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("1g8"))
+ #(ribcage #(body) #((top)) #("l-*-29161"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5" "1g6" "1g7"))
+ #("l-*-29153" "l-*-29154" "l-*-29155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1g4")))
+ #(ribcage #(x) #((top)) #("l-*-29150")))
(hygiene guile))
(list (list '#(syntax-object
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("1g8"))
+ #(ribcage
+ #(body)
+ #((top))
+ #("l-*-29161"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1g5" "1g6" "1g7"))
+ #("l-*-29153"
+ "l-*-29154"
+ "l-*-29155"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1g4")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-29150")))
(hygiene guile))
- #{e -ANAU$bmvAmthP7L7xwtLJ}#))
- #{body -ANAU$bmvAmthP7L7xwtLN}#))))
- #{tmp -ANAU$bmvAmthP7L7xwtLF}#)
+ e-29210))
+ body-29214))))
+ tmp-29206)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xwtLD}#))))))
+ x-29204))))))
(define make-variable-transformer
- (lambda (#{proc -ANAU$bmvAmthP7L7xwtMo}#)
- (if (procedure? #{proc -ANAU$bmvAmthP7L7xwtMo}#)
+ (lambda (proc-29308)
+ (if (procedure? proc-29308)
(letrec*
- ((#{trans -ANAU$bmvAmthP7L7xwtMp}#
- (lambda (#{x -ANAU$bmvAmthP7L7xwtMv}#)
- (#{proc -ANAU$bmvAmthP7L7xwtMo}#
- #{x -ANAU$bmvAmthP7L7xwtMv}#))))
+ ((trans-29309
+ (lambda (x-29315) (proc-29308 x-29315))))
(begin
(set-procedure-property!
- #{trans -ANAU$bmvAmthP7L7xwtMp}#
+ trans-29309
'variable-transformer
#t)
- #{trans -ANAU$bmvAmthP7L7xwtMp}#))
+ trans-29309))
(error "variable transformer not a procedure"
- #{proc -ANAU$bmvAmthP7L7xwtMo}#))))
+ proc-29308))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xwtND}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtNF}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtND}#
- '(_ any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtNF}#
+ (lambda (x-29347)
+ (let ((tmp-29349 ($sc-dispatch x-29347 '(_ any))))
+ (if tmp-29349
(@apply
- (lambda (#{e -ANAU$bmvAmthP7L7xwtNJ}#)
+ (lambda (e-29353)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage
+ #(e)
+ #((top))
+ #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-29319")))
(hygiene guile))
- #{e -ANAU$bmvAmthP7L7xwtNJ}#))
+ e-29353))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage #(e) #((top)) #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("1gr"))
+ #(ribcage
+ #(e)
+ #((top))
+ #("l-*-29322"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-29319")))
(hygiene guile))
- (cons #{e -ANAU$bmvAmthP7L7xwtNJ}#
+ (cons e-29353
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("1gr"))
+ #("l-*-29322"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
#(syntax-object
...
@@ -27844,55 +26154,59 @@
#(ribcage
#(e)
#((top))
- #("1gr"))
+ #("l-*-29322"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile)))))))))
- #{tmp -ANAU$bmvAmthP7L7xwtNF}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtNK}#
+ tmp-29349)
+ (let ((tmp-29354
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtND}#
+ x-29347
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwtNK}#
+ (if (if tmp-29354
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwtNO}#
- #{exp1 -ANAU$bmvAmthP7L7xwtNP}#
- #{var -ANAU$bmvAmthP7L7xwtNQ}#
- #{val -ANAU$bmvAmthP7L7xwtNR}#
- #{exp2 -ANAU$bmvAmthP7L7xwtNS}#)
- (if (identifier? #{id -ANAU$bmvAmthP7L7xwtNO}#)
- (identifier? #{var -ANAU$bmvAmthP7L7xwtNQ}#)
+ (lambda (id-29358
+ exp1-29359
+ var-29360
+ val-29361
+ exp2-29362)
+ (if (identifier? id-29358)
+ (identifier? var-29360)
#f))
- #{tmp -ANAU$bmvAmthP7L7xwtNK}#)
+ tmp-29354)
#f)
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwtNT}#
- #{exp1 -ANAU$bmvAmthP7L7xwtNU}#
- #{var -ANAU$bmvAmthP7L7xwtNV}#
- #{val -ANAU$bmvAmthP7L7xwtNW}#
- #{exp2 -ANAU$bmvAmthP7L7xwtNX}#)
+ (lambda (id-29363
+ exp1-29364
+ var-29365
+ val-29366
+ exp2-29367)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -27900,9 +26214,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
'(#(syntax-object
x
@@ -27910,9 +26228,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -27920,9 +26242,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))
.
#(syntax-object
@@ -27931,9 +26257,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage #(x) #((top)) #("l-*-29319")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -27941,9 +26271,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-29319")))
(hygiene guile))
'#(syntax-object
x
@@ -27951,9 +26288,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-29319")))
(hygiene guile))
'(#(syntax-object
set!
@@ -27961,9 +26305,16 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1gx" "1gy" "1gz" "1h0" "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1gq")))
+ #(ribcage
+ #(x)
+ #((top))
+ #("l-*-29319")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -27975,19 +26326,19 @@
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
- #{var -ANAU$bmvAmthP7L7xwtNV}#
- #{val -ANAU$bmvAmthP7L7xwtNW}#)
+ var-29365
+ val-29366)
(list '#(syntax-object
syntax
((top)
@@ -27998,19 +26349,19 @@
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
- #{exp2
-ANAU$bmvAmthP7L7xwtNX}#))
- (list (cons #{id -ANAU$bmvAmthP7L7xwtNT}#
+ exp2-29367))
+ (list (cons id-29363
'(#(syntax-object
x
((top)
@@ -28021,16 +26372,16 @@
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
#(syntax-object
...
@@ -28042,16 +26393,16 @@
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -28063,18 +26414,18 @@
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
- (cons #{exp1
-ANAU$bmvAmthP7L7xwtNU}#
+ (cons exp1-29364
'(#(syntax-object
x
((top)
@@ -28089,16 +26440,16 @@
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
#(syntax-object
...
@@ -28114,18 +26465,18 @@
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))))))
- (list #{id -ANAU$bmvAmthP7L7xwtNT}#
+ (list id-29363
(list '#(syntax-object
identifier?
((top)
@@ -28136,16 +26487,16 @@
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -28161,18 +26512,18 @@
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
- #{id
-ANAU$bmvAmthP7L7xwtNT}#))
+ id-29363))
(list '#(syntax-object
syntax
((top)
@@ -28183,72 +26534,69 @@
(top)
(top)
(top))
- #("1gx"
- "1gy"
- "1gz"
- "1h0"
- "1h1"))
+ #("l-*-29337"
+ "l-*-29338"
+ "l-*-29339"
+ "l-*-29340"
+ "l-*-29341"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1gq")))
+ #("l-*-29319")))
(hygiene guile))
- #{exp1
-ANAU$bmvAmthP7L7xwtNU}#))))))
- #{tmp -ANAU$bmvAmthP7L7xwtNK}#)
+ exp1-29364))))))
+ tmp-29354)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xwtND}#))))))))
+ x-29347))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x -ANAU$bmvAmthP7L7xwtNu}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtNw}#
+ (lambda (x-29399)
+ (let ((tmp-29401
($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtNu}#
+ x-29399
'(_ (any . any) any . each-any))))
- (if #{tmp -ANAU$bmvAmthP7L7xwtNw}#
+ (if tmp-29401
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwtN0}#
- #{args -ANAU$bmvAmthP7L7xwtN1}#
- #{b0 -ANAU$bmvAmthP7L7xwtN2}#
- #{b1 -ANAU$bmvAmthP7L7xwtN3}#)
+ (lambda (id-29405 args-29406 b0-29407 b1-29408)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("1h3" "1h4" "1h5" "1h6"))
+ #("l-*-29381"
+ "l-*-29382"
+ "l-*-29383"
+ "l-*-29384"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1h2")))
+ #(ribcage #(x) #((top)) #("l-*-29378")))
(hygiene guile))
- #{id -ANAU$bmvAmthP7L7xwtN0}#
+ id-29405
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("1h3" "1h4" "1h5" "1h6"))
+ #("l-*-29381"
+ "l-*-29382"
+ "l-*-29383"
+ "l-*-29384"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1h2")))
+ #(ribcage #(x) #((top)) #("l-*-29378")))
(hygiene guile))
- (cons #{args -ANAU$bmvAmthP7L7xwtN1}#
- (cons #{b0 -ANAU$bmvAmthP7L7xwtN2}#
- #{b1 -ANAU$bmvAmthP7L7xwtN3}#)))))
- #{tmp -ANAU$bmvAmthP7L7xwtNw}#)
- (let ((#{tmp -ANAU$bmvAmthP7L7xwtN4}#
- ($sc-dispatch
- #{x -ANAU$bmvAmthP7L7xwtNu}#
- '(_ any any))))
- (if (if #{tmp -ANAU$bmvAmthP7L7xwtN4}#
+ (cons args-29406 (cons b0-29407 b1-29408)))))
+ tmp-29401)
+ (let ((tmp-29409 ($sc-dispatch x-29399 '(_ any any))))
+ (if (if tmp-29409
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwtN8}#
- #{val -ANAU$bmvAmthP7L7xwtN9}#)
+ (lambda (id-29413 val-29414)
(identifier?
'#(syntax-object
x
@@ -28256,30 +26604,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("1h7" "1h8"))
+ #("l-*-29391" "l-*-29392"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1h2")))
+ #(ribcage #(x) #((top)) #("l-*-29378")))
(hygiene guile))))
- #{tmp -ANAU$bmvAmthP7L7xwtN4}#)
+ tmp-29409)
#f)
(@apply
- (lambda (#{id -ANAU$bmvAmthP7L7xwtN$}#
- #{val address@hidden)
+ (lambda (id-29415 val-29416)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("1h9" "1ha"))
+ #("l-*-29395" "l-*-29396"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1h2")))
+ #(ribcage #(x) #((top)) #("l-*-29378")))
(hygiene guile))
- #{id -ANAU$bmvAmthP7L7xwtN$}#
- #{val address@hidden))
- #{tmp -ANAU$bmvAmthP7L7xwtN4}#)
+ id-29415
+ val-29416))
+ tmp-29409)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x -ANAU$bmvAmthP7L7xwtNu}#))))))))
+ x-29399))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 8220829..20ea8eb 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -273,8 +273,11 @@
(lambda (x mod)
(primitive-eval x)))
- (define-syntax-rule (gensym-hook)
- (gensym))
+ ;; Capture syntax-session-id before we shove it off into a module.
+ (define session-id
+ (let ((v (module-variable (current-module) 'syntax-session-id)))
+ (lambda ()
+ ((variable-ref v)))))
(define put-global-definition-hook
(lambda (symbol type val)
@@ -450,7 +453,7 @@
;; FIXME: use a faster gensym
(define-syntax-rule (build-lexical-var src id)
- (gensym (string-append (symbol->string id) " ")))
+ (gensym (string-append (symbol->string id) "-")))
(define-structure (syntax-object expression wrap module))
@@ -635,13 +638,8 @@
;; labels must be comparable with "eq?", have read-write invariance,
;; and distinct from symbols.
- (define gen-label
- (let ((i 0))
- (lambda ()
- (let ((n i))
- ;; FIXME: Use atomic ops.
- (set! i (1+ n))
- (number->string n 36)))))
+ (define (gen-label)
+ (string-append "l-" (session-id) (symbol->string (gensym "-"))))
(define gen-labels
(lambda (ls)
@@ -670,7 +668,7 @@
(cons 'shift (wrap-subst w)))))
(define-syntax-rule (new-mark)
- (gensym "m"))
+ (gensym (string-append "m-" (session-id) "-")))
;; make-empty-ribcage and extend-ribcage maintain list-based ribcages for
;; internal definitions, in which the ribcages are built incrementally
@@ -2529,7 +2527,7 @@
(lambda (ls)
(arg-check list? ls 'generate-temporaries)
(let ((mod (cons 'hygiene (module-name (current-module)))))
- (map (lambda (x) (wrap (gensym-hook) top-wrap mod)) ls))))
+ (map (lambda (x) (wrap (gensym "t-") top-wrap mod)) ls))))
(set! free-identifier=?
(lambda (x y)
diff --git a/module/language/tree-il/peval.scm
b/module/language/tree-il/peval.scm
index abc0199..7aad399 100644
--- a/module/language/tree-il/peval.scm
+++ b/module/language/tree-il/peval.scm
@@ -417,7 +417,7 @@ top-level bindings from ENV and return the resulting
expression."
(define (fresh-gensyms vars)
(map (lambda (var)
(let ((new (gensym (string-append (symbol->string (var-name var))
- " "))))
+ "-"))))
(set! store (vhash-consq new var store))
new))
vars))
@@ -919,7 +919,7 @@ top-level bindings from ENV and return the resulting
expression."
((not (constant-expression? pre))
(cond
((not (constant-expression? post))
- (let ((pre-sym (gensym "pre ")) (post-sym (gensym "post ")))
+ (let ((pre-sym (gensym "pre-")) (post-sym (gensym "post-")))
(record-new-temporary! 'pre pre-sym 1)
(record-new-temporary! 'post post-sym 1)
(make-let src '(pre post) (list pre-sym post-sym) (list pre
post)
@@ -928,7 +928,7 @@ top-level bindings from ENV and return the resulting
expression."
body
(make-lexical-ref #f 'post post-sym)))))
(else
- (let ((pre-sym (gensym "pre ")))
+ (let ((pre-sym (gensym "pre-")))
(record-new-temporary! 'pre pre-sym 1)
(make-let src '(pre) (list pre-sym) (list pre)
(make-dynwind src
@@ -936,7 +936,7 @@ top-level bindings from ENV and return the resulting
expression."
body
post))))))
((not (constant-expression? post))
- (let ((post-sym (gensym "post ")))
+ (let ((post-sym (gensym "post-")))
(record-new-temporary! 'post post-sym 1)
(make-let src '(post) (list post-sym) (list post)
(make-dynwind src
@@ -1089,7 +1089,7 @@ top-level bindings from ENV and return the resulting
expression."
(for-tail
(make-sequence src (list k (make-const #f #f)))))
(else
- (let ((t (gensym "t "))
+ (let ((t (gensym "t-"))
(eq (if (eq? name 'memq) 'eq? 'eqv?)))
(record-new-temporary! 't t (length elts))
(for-tail
diff --git a/module/language/tree-il/primitives.scm
b/module/language/tree-il/primitives.scm
index f7bb5ca..23f5df5 100644
--- a/module/language/tree-il/primitives.scm
+++ b/module/language/tree-il/primitives.scm
@@ -1,6 +1,6 @@
;;; open-coding primitive procedures
-;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc.
+;; Copyright (C) 2009, 2010, 2011, 2012 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
@@ -473,9 +473,9 @@
'dynamic-wind
(case-lambda
((src pre thunk post)
- (let ((PRE (gensym " pre"))
- (THUNK (gensym " thunk"))
- (POST (gensym " post")))
+ (let ((PRE (gensym "pre-"))
+ (THUNK (gensym "thunk-"))
+ (POST (gensym "post-")))
(make-let
src
'(pre thunk post)
@@ -492,8 +492,8 @@
'@dynamic-wind
(case-lambda
((src pre expr post)
- (let ((PRE (gensym " pre"))
- (POST (gensym " post")))
+ (let ((PRE (gensym "pre-"))
+ (POST (gensym "post-")))
(make-let
src
'(pre post)
diff --git a/test-suite/standalone/test-loose-ends.c
b/test-suite/standalone/test-loose-ends.c
index 2fdbe7d..f815ae2 100644
--- a/test-suite/standalone/test-loose-ends.c
+++ b/test-suite/standalone/test-loose-ends.c
@@ -3,7 +3,7 @@
* Test items of the Guile C API that aren't covered by any other tests.
*/
-/* Copyright (C) 2009 Free Software Foundation, Inc.
+/* Copyright (C) 2009, 2012 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
@@ -43,9 +43,23 @@ test_scm_from_locale_keywordn ()
}
static void
+test_scm_local_eval ()
+{
+ SCM result = scm_local_eval
+ (scm_list_3 (scm_from_latin1_symbol ("+"),
+ scm_from_latin1_symbol ("x"),
+ scm_from_latin1_symbol ("y")),
+ scm_c_eval_string ("(let ((x 1) (y 2)) (the-environment))"));
+
+ assert (scm_is_true (scm_equal_p (result,
+ scm_from_signed_integer (3))));
+}
+
+static void
tests (void *data, int argc, char **argv)
{
test_scm_from_locale_keywordn ();
+ test_scm_local_eval ();
}
int
diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test
index a128cd7..f532059 100644
--- a/test-suite/tests/eval.test
+++ b/test-suite/tests/eval.test
@@ -1,5 +1,5 @@
;;;; eval.test --- tests guile's evaluator -*- scheme -*-
-;;;; Copyright (C) 2000, 2001, 2006, 2007, 2009, 2010, 2011 Free Software
Foundation, Inc.
+;;;; Copyright (C) 2000, 2001, 2006, 2007, 2009, 2010, 2011, 2012 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
@@ -19,7 +19,8 @@
:use-module (test-suite lib)
:use-module ((srfi srfi-1) :select (unfold count))
:use-module ((system vm vm) :select (make-vm call-with-vm))
- :use-module (ice-9 documentation))
+ :use-module (ice-9 documentation)
+ :use-module (ice-9 local-eval))
(define exception:bad-expression
@@ -422,4 +423,94 @@
(thunk (let loop () (cons 's (loop)))))
(call-with-vm vm thunk))))
+;;;
+;;; local-eval
+;;;
+
+(with-test-prefix "local evaluation"
+
+ (pass-if "local-eval"
+
+ (let* ((env1 (let ((x 1) (y 2) (z 3))
+ (define-syntax-rule (foo x) (quote x))
+ (the-environment)))
+ (env2 (local-eval '(let ((x 111) (a 'a))
+ (define-syntax-rule (bar x) (quote x))
+ (the-environment))
+ env1)))
+ (local-eval '(set! x 11) env1)
+ (local-eval '(set! y 22) env1)
+ (local-eval '(set! z 33) env2)
+ (and (equal? (local-eval '(list x y z) env1)
+ '(11 22 33))
+ (equal? (local-eval '(list x y z a) env2)
+ '(111 22 33 a)))))
+
+ (pass-if "local-compile"
+
+ (let* ((env1 (let ((x 1) (y 2) (z 3))
+ (define-syntax-rule (foo x) (quote x))
+ (the-environment)))
+ (env2 (local-compile '(let ((x 111) (a 'a))
+ (define-syntax-rule (bar x) (quote x))
+ (the-environment))
+ env1)))
+ (local-compile '(set! x 11) env1)
+ (local-compile '(set! y 22) env1)
+ (local-compile '(set! z 33) env2)
+ (and (equal? (local-compile '(list x y z) env1)
+ '(11 22 33))
+ (equal? (local-compile '(list x y z a) env2)
+ '(111 22 33 a)))))
+
+ (pass-if "the-environment within a macro"
+ (let ((module-a-name '(test module the-environment a))
+ (module-b-name '(test module the-environment b)))
+ (let ((module-a (resolve-module module-a-name))
+ (module-b (resolve-module module-b-name)))
+ (module-use! module-a (resolve-interface '(guile)))
+ (module-use! module-a (resolve-interface '(ice-9 local-eval)))
+ (eval '(begin
+ (define z 3)
+ (define-syntax-rule (test)
+ (let ((x 1) (y 2))
+ (the-environment))))
+ module-a)
+ (module-use! module-b (resolve-interface '(guile)))
+ (let ((env (eval `(let ((x 111) (y 222))
+ ((@@ ,module-a-name test)))
+ module-b)))
+ (equal? (local-eval '(list x y z) env)
+ '(1 2 3))))))
+
+ (pass-if "capture pattern variables"
+ (let ((env (syntax-case #'(((a 1) (b 2) (c 3))
+ ((d 4) (e 5) (f 6))) ()
+ ((((k v) ...) ...) (the-environment)))))
+ (equal? (syntax->datum (local-eval '#'((k ... v ...) ...) env))
+ '((a b c 1 2 3) (d e f 4 5 6)))))
+
+ (pass-if "mixed primitive-eval, local-eval and local-compile"
+
+ (let* ((env1 (primitive-eval '(let ((x 1) (y 2) (z 3))
+ (define-syntax-rule (foo x) (quote x))
+ (the-environment))))
+ (env2 (local-eval '(let ((x 111) (a 'a))
+ (define-syntax-rule (bar x) (quote x))
+ (the-environment))
+ env1))
+ (env3 (local-compile '(let ((y 222) (b 'b))
+ (the-environment))
+ env2)))
+ (local-eval '(set! x 11) env1)
+ (local-compile '(set! y 22) env2)
+ (local-eval '(set! z 33) env2)
+ (local-compile '(set! a (* y 2)) env3)
+ (and (equal? (local-compile '(list x y z) env1)
+ '(11 22 33))
+ (equal? (local-eval '(list x y z a) env2)
+ '(111 22 33 444))
+ (equal? (local-eval '(list x y z a b) env3)
+ '(111 222 33 444 b))))))
+
;;; eval.test ends here
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-194-g6dc8c13,
Andy Wingo <=