[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, master, updated. v2.1.0-284-g91ee751
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, master, updated. v2.1.0-284-g91ee751 |
Date: |
Mon, 09 Jan 2012 23:41:58 +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=91ee7515da0bad91330ce5c87b250d6cf12a2789
The branch, master has been updated
via 91ee7515da0bad91330ce5c87b250d6cf12a2789 (commit)
via 0bdd43515eb3c62839512181cf33e5aea383e661 (commit)
via bbc2364a3e15fd4c7bbaf2c1c41554d7e9a87b9b (commit)
via 0e947e1d14597651c5762a4209225c472bdaef45 (commit)
via 9d608ede96b67ad8f5a3bbab1837bdf0ee39ed0a (commit)
via 211e71a18480309904f672bd8fb943a94f447c7c (commit)
via 67543d076175d000bc95b902be8ea71cd9b75e26 (commit)
via 94a751bdccbeaeba9f871d36c085f21b90ac3a84 (commit)
via 17cdda21810939443f29362355a334b6d2f174cf (commit)
via 002aab40bc19d5a4c7408b8d49658b438c8b59e0 (commit)
via ff1feca9bd6d23b248f4e3eb768a08f7c3aabc1d (commit)
via b2637c985ce93bc15e0378b8120d04a98ebdd212 (commit)
via 017eb4a6be938c50df7fe6a27ca38486e75e02d5 (commit)
via 9858e529621193222a28b7ee0e53a428aa007363 (commit)
via 7b87f5de55392f038f19b21c6d6c129272cb431d (commit)
via 8f47877fc7a9f36ffcfba7d63c5cdf8ebe40347a (commit)
via b2fb40a90358fcc5264a4a2fe8c7d24d3d7db2a2 (commit)
via c60e6ed4b855cb451b45fbba7e19e714d20be466 (commit)
via fb2be758b76ea0ede398ed9a7f559d96d806c50e (commit)
via 20c360b298dd9d29d0b1a6301f43ff6da4968908 (commit)
via be96155b508d220efe6f419d7743cf39744ee47c (commit)
via 9a38439301aac35961e8f7e316cd02a589b5956f (commit)
via 866ecf54c04c2b841f40f3a02814eeba6aeb4dee (commit)
via 4f5fb3519471a7e1e520c3cc39e7853f4170349e (commit)
via 729b62bd95c61b6e2992f823b469b76bdc483b0d (commit)
via 49d09292ac6d92a86b574478a69450b85d2dd8c1 (commit)
via a7e392c1fff2921af027675e8655b5892ac1142e (commit)
via 213544e0dccb67339b009fbd7640ff9b48ca33f6 (commit)
via ab66fb3cd1d6e4343741ccb406e17eb3314eba84 (commit)
via eaaf94c4ec6d6768eaa11029c9fd3029e1bd5a0c (commit)
via 992a387958946a8726583567ff630760e50bf7b3 (commit)
via 449bf60b819afed8063e45dfbb9ea61280ae518f (commit)
via 286dc5e1c31090eea363e8236fd0210fde2510d9 (commit)
via 9133716faaa57babe66ea53135ce86771076fe77 (commit)
via b3da54d1813f34fca31cdb5fd3db90b9141b1b7a (commit)
via a3989357b32ba51c0780732e06c88baec16d3229 (commit)
via fe2400c993927cd7d7ff89ebbe3af4c35e30a0e1 (commit)
via f78a1ccede02ccad89d6c91a6b297f1f14a30907 (commit)
via 4dbd29a9b8ea272fde54dcb0e8f47e23961f65d2 (commit)
via 34a1045f7d60d733c259dc262682bbfb78fbd20e (commit)
via aed9483ba1c22d5de5f3ec4b5b915e2095e233be (commit)
via 2f50d0a89758894a39bcec5a94c658d63d20701b (commit)
via 3004fe262401f87aa92e24ec69115d9269c0df99 (commit)
via b72ab481cd71d5d72f501d4469ecbdf6892ffb7b (commit)
via 848431b6b296c22cd3892ad4a70ff605f00fe060 (commit)
via 2b414e247fcf28b9431a326b59decebbe859bdb8 (commit)
via ba20d2629eea673b10c74c1f8168821709ed3807 (commit)
via c1d5d6d755ff1613ff92efad841487c9e5bb979b (commit)
via 34cf38c3a2eb143d982aa14e76888098aea468b2 (commit)
via e0a8221dcf0c6592a968a10e511a69bb05728753 (commit)
via 61fe8eafc236e2f76259e987d66f43e97fc1eed4 (commit)
via 321770b2a3d7b43a7f24e5a1b3ed8bb36c411ffe (commit)
via cc8afa2b361635953dfba7f10e4193b1f243a50f (commit)
via fff39e1aa5df70a65e78a3d49d6d841f58bafde7 (commit)
via dc65d1cf5b59daafdff23d48a48da7f13982efc9 (commit)
via a2c66014cf4b8799812e45eedbb9b1a2c61236b0 (commit)
from 296004b3ba34139292eb1d8bf54739ee1a082712 (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 91ee7515da0bad91330ce5c87b250d6cf12a2789
Merge: 0bdd435 0e947e1
Author: Andy Wingo <address@hidden>
Date: Tue Jan 10 00:41:42 2012 +0100
Merge remote-tracking branch 'origin/stable-2.0'
Conflicts:
libguile/__scm.h
libguile/array-map.c
libguile/procprop.c
libguile/tags.h
module/ice-9/deprecated.scm
module/ice-9/psyntax-pp.scm
module/ice-9/psyntax.scm
test-suite/standalone/test-num2integral.c
test-suite/tests/regexp.test
commit 0bdd43515eb3c62839512181cf33e5aea383e661
Merge: bbc2364 f78a1cc
Author: Andy Wingo <address@hidden>
Date: Tue Jan 10 00:23:17 2012 +0100
Merge commit 'f78a1ccede02ccad89d6c91a6b297f1f14a30907'
commit bbc2364a3e15fd4c7bbaf2c1c41554d7e9a87b9b
Merge: 296004b cc8afa2
Author: Andy Wingo <address@hidden>
Date: Tue Jan 10 00:21:48 2012 +0100
Merge commit 'cc8afa2b361635953dfba7f10e4193b1f243a50f'
Conflicts:
module/ice-9/psyntax-pp.scm
module/language/tree-il/peval.scm
-----------------------------------------------------------------------
Summary of changes:
.x-sc_bindtextdomain | 1 +
.x-sc_error_message_uppercase | 1 +
.x-sc_obsolete_symbols | 1 +
.x-sc_prohibit_doubled_word | 7 +
.x-sc_prohibit_have_config_h | 5 +
.x-sc_prohibit_magic_number_exit | 1 +
...atoi_atof => .x-sc_prohibit_path_max_allocation | 2 +-
.x-sc_prohibit_strcmp | 3 +
HACKING | 4 +-
NEWS | 8 +-
configure.ac | 9 +-
doc/maint/guile.texi | 2 +-
doc/ref/api-compound.texi | 13 +-
doc/ref/api-control.texi | 87 +-
doc/ref/api-data.texi | 2 +-
doc/ref/api-foreign.texi | 4 +-
doc/ref/api-io.texi | 2 +-
doc/ref/api-macros.texi | 78 +-
doc/ref/api-modules.texi | 716 +-
doc/ref/api-procedures.texi | 6 +-
doc/ref/libguile-program.texi | 13 +-
doc/ref/libguile-snarf.texi | 10 +-
doc/ref/misc-modules.texi | 20 +-
doc/sources/env.texi | 4 +-
libguile/Makefile.am | 2 +-
libguile/__scm.h | 2 +-
libguile/array-map.c | 3 +-
libguile/arrays.c | 26 +-
libguile/arrays.h | 11 +-
libguile/backtrace.c | 13 +
libguile/bitvectors.c | 32 +-
libguile/bitvectors.h | 2 +
libguile/eq.c | 19 +-
libguile/evalext.c | 2 +
libguile/fports.c | 1 +
libguile/gc-malloc.c | 5 +-
libguile/gc.c | 5 +-
libguile/generalized-vectors.c | 8 +-
libguile/goops.c | 10 +
libguile/i18n.c | 22 +-
libguile/load.c | 12 +-
libguile/mallocs.c | 5 +-
libguile/objcodes.c | 7 +-
libguile/print.c | 14 +-
libguile/smob.c | 5 +-
libguile/srfi-13.c | 170 +-
libguile/srfi-60.c | 4 +-
libguile/strings.c | 16 +-
libguile/strings.h | 2 +-
libguile/tags.h | 6 +-
libguile/threads.c | 47 +-
module/ice-9/boot-9.scm | 9 +-
module/ice-9/ftw.scm | 135 +-
module/ice-9/psyntax-pp.scm |22595 ++++++++++----------
module/ice-9/psyntax.scm | 10 +-
module/ice-9/test.scm | 2 +-
module/ice-9/vlist.scm | 21 +-
module/language/elisp/runtime/macros.scm | 2 +-
module/language/tree-il/analyze.scm | 3 +-
module/language/tree-il/fix-letrec.scm | 2 +-
module/language/tree-il/peval.scm | 4 +-
module/srfi/srfi-1.scm | 2 +-
module/system/base/compile.scm | 4 +-
module/system/base/target.scm | 6 +-
module/web/http.scm | 40 +-
test-suite/lib.scm | 2 +-
test-suite/standalone/test-num2integral.c | 6 +-
.../standalone/test-pthread-create-secondary.c | 2 +-
test-suite/standalone/test-scm-spawn-thread.c | 2 +-
test-suite/tests/arrays.test | 18 +-
test-suite/tests/c-api.test | 27 +-
test-suite/tests/ftw.test | 159 +-
test-suite/tests/i18n.test | 8 +-
test-suite/tests/load.test | 20 +-
test-suite/tests/procprop.test | 10 +-
test-suite/tests/r4rs.test | 2 +-
test-suite/tests/ramap.test | 73 +-
test-suite/tests/regexp.test | 15 +-
test-suite/tests/srfi-67.test | 2 +-
test-suite/tests/statprof.test | 2 +-
test-suite/tests/syntax.test | 18 +-
test-suite/tests/tree-il.test | 5 +
test-suite/tests/web-http.test | 18 +
83 files changed, 12664 insertions(+), 12010 deletions(-)
create mode 100644 .x-sc_bindtextdomain
create mode 100644 .x-sc_prohibit_doubled_word
create mode 100644 .x-sc_prohibit_have_config_h
copy .x-sc_prohibit_atoi_atof => .x-sc_prohibit_path_max_allocation (68%)
create mode 100644 .x-sc_prohibit_strcmp
diff --git a/.x-sc_bindtextdomain b/.x-sc_bindtextdomain
new file mode 100644
index 0000000..72e8ffc
--- /dev/null
+++ b/.x-sc_bindtextdomain
@@ -0,0 +1 @@
+*
diff --git a/.x-sc_error_message_uppercase b/.x-sc_error_message_uppercase
index 25078a1..cc3fe0d 100644
--- a/.x-sc_error_message_uppercase
+++ b/.x-sc_error_message_uppercase
@@ -4,3 +4,4 @@
^emacs/
^NEWS
^doc/
+^test-suite/tests/ports.test
diff --git a/.x-sc_obsolete_symbols b/.x-sc_obsolete_symbols
index 5b1140c..6f9b57d 100644
--- a/.x-sc_obsolete_symbols
+++ b/.x-sc_obsolete_symbols
@@ -1,4 +1,5 @@
doc/*
lib/flock.c
+lib/fcntl.in.h
libguile/filesys.c
libguile/ChangeLog-2008
diff --git a/.x-sc_prohibit_doubled_word b/.x-sc_prohibit_doubled_word
new file mode 100644
index 0000000..fe2d3d0
--- /dev/null
+++ b/.x-sc_prohibit_doubled_word
@@ -0,0 +1,7 @@
+^AUTHORS
+^gc-benchmarks/larceny/
+^module/ice-9/format.scm
+^module/ice-9/match.upstream.scm
+^module/sxml/upstream
+compile.scm
+ChangeLog
diff --git a/.x-sc_prohibit_have_config_h b/.x-sc_prohibit_have_config_h
new file mode 100644
index 0000000..4f18e84
--- /dev/null
+++ b/.x-sc_prohibit_have_config_h
@@ -0,0 +1,5 @@
+libguile/*
+srfi/*
+test-suite/*
+guile-readline/*
+lib/*
diff --git a/.x-sc_prohibit_magic_number_exit b/.x-sc_prohibit_magic_number_exit
index adcd138..3aac7a4 100644
--- a/.x-sc_prohibit_magic_number_exit
+++ b/.x-sc_prohibit_magic_number_exit
@@ -2,3 +2,4 @@ configure.ac
NEWS
doc/ref/api-init.texi
libguile/ChangeLog*
+m4/*
diff --git a/.x-sc_prohibit_atoi_atof b/.x-sc_prohibit_path_max_allocation
similarity index 68%
copy from .x-sc_prohibit_atoi_atof
copy to .x-sc_prohibit_path_max_allocation
index bf0f25f..4e46d8b 100644
--- a/.x-sc_prohibit_atoi_atof
+++ b/.x-sc_prohibit_path_max_allocation
@@ -1,2 +1,2 @@
-lib/*
libguile/win32-socket.c
+lib/stat.c
diff --git a/.x-sc_prohibit_strcmp b/.x-sc_prohibit_strcmp
new file mode 100644
index 0000000..784791f
--- /dev/null
+++ b/.x-sc_prohibit_strcmp
@@ -0,0 +1,3 @@
+m4/*
+lib/*
+test-suite/*
diff --git a/HACKING b/HACKING
index 82839a5..b08f7c2 100644
--- a/HACKING
+++ b/HACKING
@@ -1,6 +1,6 @@
-*-text-*-
Guile Hacking Guide
-Copyright (c) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2008 Free software
Foundation, Inc.
+Copyright (c) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2008, 2012 Free
software Foundation, Inc.
Permission is granted to anyone to make or distribute verbatim copies
of this document as received, in any medium, provided that the
@@ -222,7 +222,7 @@ When deprecating a definition, always follow this procedure:
manage without the deprecated definition.
4. Add an entry that the definition has been deprecated in NEWS and
- explain what do do instead.
+ explain what to do instead.
5. In file TODO, there is a list of releases with reminders about what
to do at each release. Add a reminder about the removal of the
diff --git a/NEWS b/NEWS
index cb0dafc..6098130 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,5 @@
Guile NEWS --- history of user-visible changes.
-Copyright (C) 1996-2011 Free Software Foundation, Inc.
+Copyright (C) 1996-2012 Free Software Foundation, Inc.
See the end for copying conditions.
Please send Guile bug reports to address@hidden
@@ -1386,7 +1386,7 @@ Arguments", and "Case-lambda" in the manual.
Instead of accessing a procedure's arity as a property, use the new
`procedure-minimum-arity' function, which gives the most permissive
-arity that the the function has, in the same format as the old arity
+arity that the function has, in the same format as the old arity
accessor.
** `lambda*' and `define*' are now available in the default environment
@@ -2156,7 +2156,7 @@ allocated to primitive procedures, each with its own
calling convention.
Now there is only one, the gsubr. This may affect user code if you were
defining a procedure using scm_c_make_subr rather scm_c_make_gsubr. The
solution is to switch to use scm_c_make_gsubr. This solution works well
-both with the old 1.8 and and with the current 1.9 branch.
+both with the old 1.8 and with the current 1.9 branch.
Guile's old evaluator used to have special cases for applying "gsubrs",
primitive procedures with specified numbers of required, optional, and
@@ -6193,7 +6193,7 @@ incrementally add to the innermost environment, without
checking
whether the restrictions specified in RnRS were met. This lead to the
correct behaviour when these restriction actually were met, but didn't
catch all illegal uses. Such an illegal use could lead to crashes of
-the Guile interpreter or or other unwanted results. An example of
+the Guile interpreter or other unwanted results. An example of
incorrect internal defines that made Guile behave erratically:
(let ()
diff --git a/configure.ac b/configure.ac
index a32ff4b..5f9ead1 100644
--- a/configure.ac
+++ b/configure.ac
@@ -655,7 +655,7 @@ AC_SUBST([SCM_I_GSC_HAVE_STRUCT_DIRENT64])
# langinfo.h, nl_types.h - SuS v2
# sched.h - missing on MinGW
#
-AC_CHECK_HEADERS([complex.h fenv.h io.h libc.h limits.h malloc.h memory.h
process.h string.h \
+AC_CHECK_HEADERS([complex.h fenv.h io.h libc.h limits.h memory.h process.h
string.h \
regex.h rxposix.h rx/rxposix.h sys/dir.h sys/ioctl.h sys/select.h \
sys/time.h sys/timeb.h sys/times.h sys/stdtypes.h sys/types.h \
sys/utime.h time.h unistd.h utime.h pwd.h grp.h sys/utsname.h \
@@ -775,6 +775,7 @@ AC_CHECK_FUNCS([DINFINITY DQNAN cexp chsize clog clog10
ctermid fesetround ftime
# sys/param.h - not in mingw
# pthread.h - only available with pthreads. ACX_PTHREAD doesn't
# check this specifically, we need it for the timespec test below.
+# pthread_np.h - available on FreeBSD
# sethostname - the function itself check because it's not in mingw,
# the DECL is checked because Solaris 10 doens't have in any header
# hstrerror - on Tru64 5.1b the symbol is available in libc but the
@@ -782,7 +783,7 @@ AC_CHECK_FUNCS([DINFINITY DQNAN cexp chsize clog clog10
ctermid fesetround ftime
# cuserid - on Tru64 5.1b the declaration is documented to be available
# only with `_XOPEN_SOURCE' or some such.
#
-AC_CHECK_HEADERS([crypt.h netdb.h pthread.h sys/param.h sys/resource.h
sys/file.h sys/mman.h])
+AC_CHECK_HEADERS([crypt.h netdb.h pthread.h pthread_np.h sys/param.h
sys/resource.h sys/file.h sys/mman.h])
AC_CHECK_FUNCS(chroot flock getlogin cuserid getpriority setpriority getpass
sethostname gethostname)
AC_CHECK_DECLS([sethostname, hstrerror, cuserid])
@@ -1364,9 +1365,11 @@ case "$with_threads" in
# all; not present on MacOS X or Solaris 10
# pthread_get_stackaddr_np - "np" meaning "non portable" says it
# all; specific to MacOS X
+ # pthread_attr_get_np - "np" meaning "non portable" says it
+ # all; specific to FreeBSD
# pthread_sigmask - not available on mingw
#
- AC_CHECK_FUNCS(pthread_attr_getstack pthread_getattr_np
pthread_get_stackaddr_np pthread_sigmask)
+ AC_CHECK_FUNCS(pthread_attr_getstack pthread_getattr_np
pthread_get_stackaddr_np pthread_attr_get_np pthread_sigmask)
# On past versions of Solaris, believe 8 through 10 at least, you
# had to write "pthread_once_t foo = { PTHREAD_ONCE_INIT };".
diff --git a/doc/maint/guile.texi b/doc/maint/guile.texi
index d521f98..c0570f2 100644
--- a/doc/maint/guile.texi
+++ b/doc/maint/guile.texi
@@ -7132,7 +7132,7 @@ with the strings in the list @var{ls}.
@deffn {Scheme Procedure} string-concatenate-reverse/shared ls [final_string
[end]]
@deffnx {C Function} scm_string_concatenate_reverse_shared (ls, final_string,
end)
Like @code{string-concatenate-reverse}, but the result may
-share memory with the the strings in the @var{ls} arguments.
+share memory with the strings in the @var{ls} arguments.
@end deffn
string-map
diff --git a/doc/ref/api-compound.texi b/doc/ref/api-compound.texi
index c52fed4..03891fa 100644
--- a/doc/ref/api-compound.texi
+++ b/doc/ref/api-compound.texi
@@ -1560,7 +1560,7 @@ same type, and have corresponding elements which are
either
@c FIXME: array-for-each doesn't say what happens if the sources have
@c different index ranges. The code currently iterates over the
@c indices of the first and expects the others to cover those. That
address@hidden at least vaguely matches array-map!, but is is meant to be a
address@hidden at least vaguely matches array-map!, but is it meant to be a
@c documented feature?
@deffn {Scheme Procedure} array-map! dst proc src1 @dots{} srcN
@@ -3293,10 +3293,13 @@ Again the choice of @var{hash-proc} must be consistent
with previous calls to
@code{vhash-cons}.
@end deffn
address@hidden {Scheme Procedure} vhash-fold proc vhash
address@hidden {Scheme Procedure} vhash-fold-right proc vhash
-Fold over the key/value elements of @var{vhash} in the given direction.
-For each pair call @var{proc} as @code{(@var{proc} key value result)}.
address@hidden {Scheme Procedure} vhash-fold proc init vhash
address@hidden {Scheme Procedure} vhash-fold-right proc init vhash
+Fold over the key/value elements of @var{vhash} in the given direction,
+with each call to @var{proc} having the form @code{(@var{proc} key value
+result)}, where @var{result} is the result of the previous call to
address@hidden and @var{init} the value of @var{result} for the first call
+to @var{proc}.
@end deffn
@deffn {Scheme Procedure} vhash-fold* proc init key vhash [equal? [hash]]
diff --git a/doc/ref/api-control.texi b/doc/ref/api-control.texi
index ad36806..c1502b0 100644
--- a/doc/ref/api-control.texi
+++ b/doc/ref/api-control.texi
@@ -1,6 +1,6 @@
@c -*-texinfo-*-
@c This is part of the GNU Guile Reference Manual.
address@hidden Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2009,
2010, 2011
address@hidden Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2009,
2010, 2011, 2012
@c Free Software Foundation, Inc.
@c See the file guile.texi for copying conditions.
@@ -11,7 +11,7 @@ See @ref{Control Flow} for a discussion of how the more
general control
flow of Scheme affects C code.
@menu
-* begin:: Evaluating a sequence of expressions.
+* begin:: Sequencing and splicing.
* if cond case:: Simple conditional evaluation.
* and or:: Conditional evaluation of a sequence.
* while do:: Iteration mechanisms.
@@ -26,38 +26,83 @@ flow of Scheme affects C code.
@end menu
@node begin
address@hidden Evaluating a Sequence of Expressions
address@hidden Sequencing and Splicing
@cindex begin
@cindex sequencing
@cindex expression sequencing
-The @code{begin} syntax is used for grouping several expressions
-together so that they are treated as if they were one expression.
-This is particularly important when syntactic expressions are used
-which only allow one expression, but the programmer wants to use more
-than one expression in that place. As an example, consider the
-conditional expression below:
+As an expression, the @code{begin} syntax is used to evaluate a sequence
+of sub-expressions in order. Consider the conditional expression below:
@lisp
(if (> x 0)
(begin (display "greater") (newline)))
@end lisp
-If the two calls to @code{display} and @code{newline} were not embedded
-in a @code{begin}-statement, the call to @code{newline} would get
-misinterpreted as the else-branch of the @code{if}-expression.
+If the test is true, we want to display ``greater'' to the current
+output port, then display a newline. We use @code{begin} to form a
+compound expression out of this sequence of sub-expressions.
@deffn syntax begin expr1 expr2 @dots{}
-The expression(s) are evaluated in left-to-right order and the value
-of the last expression is returned as the value of the
+The expression(s) are evaluated in left-to-right order and the value of
+the last expression is returned as the value of the
@code{begin}-expression. This expression type is used when the
expressions before the last one are evaluated for their side effects.
-
-Guile also allows the expression @code{(begin)}, a @code{begin} with no
-sub-expressions. Such an expression returns the `unspecified' value.
@end deffn
address@hidden splicing
address@hidden definition splicing
+
+The @code{begin} syntax has another role in definition context
+(@pxref{Internal Definitions}). A @code{begin} form in a definition
+context @dfn{splices} its subforms into its place. For example,
+consider the following procedure:
+
address@hidden
+(define (make-seal)
+ (define-sealant seal open)
+ (values seal open))
address@hidden lisp
+
+Let us assume the existence of a @code{define-sealant} macro that
+expands out to some definitions wrapped in a @code{begin}, like so:
+
address@hidden
+(define (make-seal)
+ (begin
+ (define seal-tag
+ (list 'seal))
+ (define (seal x)
+ (cons seal-tag x))
+ (define (sealed? x)
+ (and (pair? x) (eq? (car x) seal-tag)))
+ (define (open x)
+ (if (sealed? x)
+ (cdr x)
+ (error "Expected a sealed value:" x))))
+ (values seal open))
address@hidden lisp
+
+Here, because the @code{begin} is in definition context, its subforms
+are @dfn{spliced} into the place of the @code{begin}. This allows the
+definitions created by the macro to be visible to the following
+expression, the @code{values} form.
+
+It is a fine point, but splicing and sequencing are different. It can
+make sense to splice zero forms, because it can make sense to have zero
+internal definitions before the expressions in a procedure or lexical
+binding form. However it does not make sense to have a sequence of zero
+expressions, because in that case it would not be clear what the value
+of the sequence would be, because in a sequence of zero expressions,
+there can be no last value. Sequencing zero expressions is an error.
+
+It would be more elegant in some ways to eliminate splicing from the
+Scheme language, and without macros (@pxref{Macros}), that would be a
+good idea. But it is useful to be able to write macros that expand out
+to multiple definitions, as in @code{define-sealant} above, so Scheme
+abuses the @code{begin} form for these two tasks.
+
@node if cond case
@subsection Simple Conditional Evaluation
@@ -1667,14 +1712,6 @@ leave it unspecified which argument's type is incorrect.
Again,
@code{SCM_ARGn} should be preferred over a raw zero constant.
@end deftypefn
-The @code{SCM_ASRTGO} macro provides another strategy for handling
-incorrect types.
-
address@hidden Macro void SCM_ASRTGO (int @var{test}, label)
-If @var{test} is zero, use @code{goto} to jump to the given @var{label}.
address@hidden must appear within the current function.
address@hidden deftypefn
-
@node Continuation Barriers
@subsection Continuation Barriers
diff --git a/doc/ref/api-data.texi b/doc/ref/api-data.texi
index 5017165..f2450ce 100644
--- a/doc/ref/api-data.texi
+++ b/doc/ref/api-data.texi
@@ -3366,7 +3366,7 @@ Change every character in @var{str} between @var{start}
and
@var{end} to @var{fill}.
@lisp
-(define y "abcdefg")
+(define y (string-copy "abcdefg"))
(substring-fill! y 1 3 #\r)
y
@result{} "arrdefg"
diff --git a/doc/ref/api-foreign.texi b/doc/ref/api-foreign.texi
index 2dd6916..82925e6 100644
--- a/doc/ref/api-foreign.texi
+++ b/doc/ref/api-foreign.texi
@@ -1,7 +1,7 @@
@c -*-texinfo-*-
@c This is part of the GNU Guile Reference Manual.
@c Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2007, 2008,
address@hidden 2009, 2010, 2011 Free Software Foundation, Inc.
address@hidden 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
@c See the file guile.texi for copying conditions.
@node Foreign Function Interface
@@ -680,7 +680,7 @@ pointers to manipulate them. We could write:
(lambda (b p)
(format p "#<bottle of ~a ~x>"
(bottle-contents b)
- (pointer-address (unwrap-foo b)))))
+ (pointer-address (unwrap-bottle b)))))
(define grab-bottle
;; Wrapper for `bottle_t *grab (void)'.
diff --git a/doc/ref/api-io.texi b/doc/ref/api-io.texi
index afcde57..9799c31 100644
--- a/doc/ref/api-io.texi
+++ b/doc/ref/api-io.texi
@@ -1181,7 +1181,7 @@ procedures and does not rely on R6RS support.
Some of the procedures described in this chapter accept a file name as an
argument. Valid values for such a file name include strings that name a file
-using the native notation of filesystem paths on an implementation's
+using the native notation of file system paths on an implementation's
underlying operating system, and may include implementation-dependent
values as well.
diff --git a/doc/ref/api-macros.texi b/doc/ref/api-macros.texi
index 92816ad..e60864b 100644
--- a/doc/ref/api-macros.texi
+++ b/doc/ref/api-macros.texi
@@ -1,6 +1,6 @@
@c -*-texinfo-*-
@c This is part of the GNU Guile Reference Manual.
address@hidden Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2009,
2010, 2011
address@hidden Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2009,
2010, 2011, 2012
@c Free Software Foundation, Inc.
@c See the file guile.texi for copying conditions.
@@ -40,6 +40,7 @@ languages}, or EDSLs.}.
* Syntax Case:: Procedural, hygienic macros.
* Defmacros:: Lisp-style macros.
* Identifier Macros:: Identifier macros.
+* Syntax Parameters:: Syntax Parameters
* Eval When:: Affecting the expand-time environment.
* Internal Macros:: Macros as first-class values.
@end menu
@@ -861,6 +862,81 @@ wrapping in @code{#'} syntax forms.
@end deffn
address@hidden Syntax Parameters
address@hidden Syntax Parameters
+
+Syntax address@hidden in the paper @cite{Keeping it Clean
+with Syntax Parameters} by Barzilay, Culpepper and Flatt.} are a
+mechanism for rebinding a macro definition within the dynamic extent of
+a macro expansion. This provides a convenient solution to one of the
+most common types of unhygienic macro: those that introduce a unhygienic
+binding each time the macro is used. Examples include a @code{lambda}
+form with a @code{return} keyword, or class macros that introduce a
+special @code{self} binding.
+
+With syntax parameters, instead of introducing the binding
+unhygienically each time, we instead create one binding for the keyword,
+which we can then adjust later when we want the keyword to have a
+different meaning. As no new bindings are introduced, hygiene is
+preserved. This is similar to the dynamic binding mechanisms we have at
+run-time (@pxref{SRFI-39, parameters}), except that the dynamic binding
+only occurs during macro expansion. The code after macro expansion
+remains lexically scoped.
+
address@hidden {Syntax} define-syntax-parameter keyword transformer
+Binds @var{keyword} to the value obtained by evaluating
address@hidden The @var{transformer} provides the default expansion
+for the syntax parameter, and in the absence of
address@hidden, is functionally equivalent to
address@hidden Usually, you will just want to have the
address@hidden throw a syntax error indicating that the @var{keyword}
+is supposed to be used in conjunction with another macro, for example:
address@hidden
+(define-syntax-parameter return
+ (lambda (stx)
+ (syntax-violation 'return "return used outside of a lambda^" stx)))
address@hidden example
address@hidden deffn
+
address@hidden {Syntax} syntax-parameterize ((keyword transformer) @dots{}) exp
@dots{}
+Adjusts @var{keyword} @dots{} to use the values obtained by evaluating
+their @var{transformer} @dots{}, in the expansion of the @var{exp}
address@hidden forms. Each @var{keyword} must be bound to a syntax-parameter.
address@hidden differs from @code{let-syntax}, in that the
+binding is not shadowed, but adjusted, and so uses of the keyword in the
+expansion of @var{exp} @dots{} use the new transformers. This is
+somewhat similar to how @code{parameterize} adjusts the values of
+regular parameters, rather than creating new bindings.
+
address@hidden
+(define-syntax lambda^
+ (syntax-rules ()
+ [(lambda^ argument-list body body* ...)
+ (lambda argument-list
+ (call-with-current-continuation
+ (lambda (escape)
+ ;; In the body we adjust the 'return' keyword so that calls
+ ;; to 'return' are replaced with calls to the escape
+ ;; continuation.
+ (syntax-parameterize ([return (syntax-rules ()
+ [(return vals (... ...))
+ (escape vals (... ...))])])
+ body body* ...))))]))
+
+;; Now we can write functions that return early. Here, 'product' will
+;; return immediately if it sees any 0 element.
+(define product
+ (lambda^ (list)
+ (fold (lambda (n o)
+ (if (zero? n)
+ (return 0)
+ (* n o)))
+ 1
+ list)))
address@hidden example
address@hidden deffn
+
+
@node Eval When
@subsection Eval-when
diff --git a/doc/ref/api-modules.texi b/doc/ref/api-modules.texi
index 33c9819..9830cfd 100644
--- a/doc/ref/api-modules.texi
+++ b/doc/ref/api-modules.texi
@@ -1,6 +1,6 @@
@c -*-texinfo-*-
@c This is part of the GNU Guile Reference Manual.
address@hidden Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2007,
2008, 2009, 2010, 2011
address@hidden Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2007,
2008, 2009, 2010, 2011, 2012
@c Free Software Foundation, Inc.
@c See the file guile.texi for copying conditions.
@@ -44,12 +44,13 @@ be used for interacting with the module system.
* General Information about Modules:: Guile module basics.
* Using Guile Modules:: How to use existing modules.
* Creating Guile Modules:: How to package your code into modules.
-* Module System Reflection:: Accessing module objects at run-time.
-* Included Guile Modules:: Which modules come with Guile?
+* Modules and the File System:: Installing modules in the file system.
* R6RS Version References:: Using version numbers with modules.
* R6RS Libraries:: The library and import forms.
-* Accessing Modules from C:: How to work with modules with C code.
* Variables:: First-class variables.
+* Module System Reflection:: First-class modules.
+* Accessing Modules from C:: How to work with modules with C code.
+* Included Guile Modules:: Which modules come with Guile?
* provide and require:: The SLIB feature mechanism.
* Environments:: R5RS top-level environments.
@end menu
@@ -61,12 +62,6 @@ A Guile module can be thought of as a collection of named
procedures,
variables and macros. More precisely, it is a set of @dfn{bindings}
of symbols (names) to Scheme objects.
-An environment is a mapping from identifiers (or symbols) to locations,
-i.e., a set of bindings.
-There are top-level environments and lexical environments.
-The environment in which a lambda is executed is remembered as part of its
-definition.
-
Within a module, all bindings are visible. Certain bindings
can be declared @dfn{public}, in which case they are added to the
module's so-called @dfn{export list}; this set of public bindings is
@@ -81,42 +76,18 @@ algorithmically @dfn{rename} bindings. In contrast, when
using the
providing module's public interface, the entire export list is available
without renaming (@pxref{Using Guile Modules}).
-To use a module, it must be found and loaded. All Guile modules have a
-unique @dfn{module name}, which is a list of one or more symbols.
-Examples are @code{(ice-9 popen)} or @code{(srfi srfi-11)}. When Guile
-searches for the code of a module, it constructs the name of the file to
-load by concatenating the name elements with slashes between the
-elements and appending a number of file name extensions from the list
address@hidden (@pxref{Loading}). The resulting file name is
-then searched in all directories in the variable @code{%load-path}
-(@pxref{Build Config}). For example, the @code{(ice-9 popen)} module
-would result in the filename @code{ice-9/popen.scm} and searched in the
-installation directories of Guile and in all other directories in the
-load path.
-
-A slightly different search mechanism is used when a client module
-specifies a version reference as part of a request to load a module
-(@pxref{R6RS Version References}). Instead of searching the directories
-in the load path for a single filename, Guile uses the elements of the
-version reference to locate matching, numbered subdirectories of a
-constructed base path. For example, a request for the
address@hidden(rnrs base)} module with version reference @code{(6)} would cause
-Guile to discover the @code{rnrs/6} subdirectory (if it exists in any of
-the directories in the load path) and search its contents for the
-filename @code{base.scm}.
-
-When multiple modules are found that match a version reference, Guile
-sorts these modules by version number, followed by the length of their
-version specifications, in order to choose a ``best'' match.
-
address@hidden FIXME::martin: Not sure about this, maybe someone knows better?
-Every module has a so-called syntax transformer associated with it.
-This is a procedure which performs all syntax transformation for the
-time the module is read in and evaluated. When working with modules,
-you can manipulate the current syntax transformer using the
address@hidden syntactic form or the @code{#:use-syntax} module
-definition option (@pxref{Creating Guile Modules}).
+All Guile modules have a unique @dfn{module name}, for example
address@hidden(ice-9 popen)} or @code{(srfi srfi-11)}. Module names are lists
+of one or more symbols.
+
+When Guile goes to use an interface from a module, for example
address@hidden(ice-9 popen)}, Guile first looks to see if it has loaded
address@hidden(ice-9 popen)} for any reason. If the module has not been loaded
+yet, Guile searches a @dfn{load path} for a file that might define it,
+and loads that file.
+The following subsections go into more detail on using, creating,
+installing, and otherwise manipulating modules and the module system.
@node Using Guile Modules
@subsection Using Guile Modules
@@ -198,14 +169,11 @@ has not yet been loaded yet will be loaded when
referenced by a
You can also use the @code{@@} and @code{@@@@} syntaxes as the target
of a @code{set!} when the binding refers to a variable.
address@hidden begin (scm-doc-string "boot-9.scm" "symbol-prefix-proc")
@deffn {Scheme Procedure} symbol-prefix-proc prefix-sym
Return a procedure that prefixes its arg (a symbol) with
@var{prefix-sym}.
address@hidden Insert gratuitous C++ slam here. --ttn
@end deffn
address@hidden begin (scm-doc-string "boot-9.scm" "use-modules")
@deffn syntax use-modules spec @dots{}
Resolve each interface specification @var{spec} into an interface and
arrange for these to be accessible by the current module. The return
@@ -218,7 +186,7 @@ whose public interface is found and used.
@cindex binding renamer
@lisp
- (MODULE-NAME [:select SELECTION] [:renamer RENAMER])
+ (MODULE-NAME [#:select SELECTION] [#:renamer RENAMER])
@end lisp
in which case a custom interface is newly created and used.
@@ -229,37 +197,26 @@ a pair of symbols @code{(ORIG . SEEN)}, where @var{orig}
is the name in
the used module and @var{seen} is the name in the using module. Note
that @var{seen} is also passed through @var{renamer}.
-The @code{:select} and @code{:renamer} clauses are optional. If both are
-omitted, the returned interface has no bindings. If the @code{:select}
+The @code{#:select} and @code{#:renamer} clauses are optional. If both are
+omitted, the returned interface has no bindings. If the @code{#:select}
clause is omitted, @var{renamer} operates on the used module's public
interface.
-In addition to the above, @var{spec} can also include a @code{:version}
+In addition to the above, @var{spec} can also include a @code{#:version}
clause, of the form:
@lisp
- :version VERSION-SPEC
+ #:version VERSION-SPEC
@end lisp
-where @var{version-spec} is an R6RS-compatible version reference. The
-presence of this clause changes Guile's search behavior as described in
-the section on module name resolution
-(@pxref{General Information about Modules}). An error will be signaled
-in the case in which a module with the same name has already been
-loaded, if that module specifies a version and that version is not
-compatible with @var{version-spec}.
-
-Signal error if module name is not resolvable.
address@hidden deffn
-
-
address@hidden FIXME::martin: Is this correct, and is there more to say?
address@hidden FIXME::martin: Define term and concept `syntax transformer'
somewhere.
+where @var{version-spec} is an R6RS-compatible version reference. An
+error will be signaled in the case in which a module with the same name
+has already been loaded, if that module specifies a version and that
+version is not compatible with @var{version-spec}. @xref{R6RS Version
+References}, for more on version references.
address@hidden syntax use-syntax module-name
-Load the module @code{module-name} and use its syntax
-transformer as the syntax transformer for the currently defined module,
-as well as installing it as the current syntax transformer.
+If the module name is not resolvable, @code{use-modules} will signal an
+error.
@end deffn
@deffn syntax @@ module-name binding-name
@@ -293,10 +250,8 @@ Export all bindings which should be in the public
interface, either
by using @code{define-public} or @code{export} (both documented below).
@end itemize
address@hidden begin (scm-doc-string "boot-9.scm" "define-module")
@deffn syntax define-module module-name [options @dots{}]
address@hidden is of the form @code{(hierarchy file)}. One
-example of this is
address@hidden is a list of one or more symbols.
@lisp
(define-module (ice-9 popen))
@@ -309,17 +264,11 @@ The @var{options} are keyword/value pairs which specify
more about the
defined module. The recognized options and their meaning is shown in
the following table.
address@hidden fixme: Should we use "#:" or ":"?
-
@table @code
@item #:use-module @var{interface-specification}
Equivalent to a @code{(use-modules @var{interface-specification})}
(@pxref{Using Guile Modules}).
address@hidden #:use-syntax @var{module}
-Use @var{module} when loading the currently defined module, and install
-it as the syntax transformer.
-
@item #:autoload @var{module} @var{symbol-list}
@cindex autoload
Load @var{module} when any of @var{symbol-list} are accessed. For
@@ -347,7 +296,7 @@ the module is used.
@item #:export @var{list}
@cindex export
Export all identifiers in @var{list} which must be a list of symbols
-or pairs of symbols. This is equivalent to @code{(export @var{list})}
+or pairs of symbols. This is equivalent to @code{(export @var{list})}
in the module body.
@item #:re-export @var{list}
@@ -357,20 +306,6 @@ symbols or pairs of symbols. The symbols in @var{list}
must be
imported by the current module from other modules. This is equivalent
to @code{re-export} below.
address@hidden #:export-syntax @var{list}
address@hidden export-syntax
-Export all identifiers in @var{list} which must be a list of symbols
-or pairs of symbols. The identifiers in @var{list} must refer to
-macros (@pxref{Macros}) defined in the current module. This is
-equivalent to @code{(export-syntax @var{list})} in the module body.
-
address@hidden #:re-export-syntax @var{list}
address@hidden re-export-syntax
-Re-export all identifiers in @var{list} which must be a list of
-symbols or pairs of symbols. The symbols in @var{list} must refer to
-macros imported by the current module from other modules. This is
-equivalent to @code{(re-export-syntax @var{list})} in the module body.
-
@item #:replace @var{list}
@cindex replace
@cindex replacing binding
@@ -400,6 +335,9 @@ function (@pxref{Time}). Guile assumes that a user
importing a module
knows what she is doing, and uses @code{#:replace} for this binding
rather than @code{#:export}.
+A @code{#:replace} clause is equivalent to @code{(export! @var{list})}
+in the module body.
+
The @code{#:duplicates} (see below) provides fine-grain control about
duplicate binding handling on the module-user side.
@@ -464,6 +402,10 @@ a duplicate binding situation. As mentioned above, some
resolution
policies may explicitly leave the responsibility of handling the
duplication to the next handler in @var{list}.
+If GOOPS has been loaded before the @code{#:duplicates} clause is
+processed, there are additional strategies available for dealing with
+generic functions. @xref{Merging Generics}, for more information.
+
@findex default-duplicate-binding-handler
The default duplicate binding resolution policy is given by the
@code{default-duplicate-binding-handler} procedure, and is
@@ -472,11 +414,6 @@ The default duplicate binding resolution policy is given
by the
(replace warn-override-core warn last)
@end lisp
address@hidden #:no-backtrace
address@hidden no backtrace
-Tell Guile not to record information for procedure backtraces when
-executing the procedures in this module.
-
@item #:pure
@cindex pure module
Create a @dfn{pure} module, that is a module which does not contain any
@@ -486,7 +423,6 @@ do not know anything about dangerous procedures.
@end table
@end deffn
address@hidden end
@deffn syntax export variable @dots{}
Add all @var{variable}s (which must be symbols or pairs of symbols) to
@@ -496,11 +432,9 @@ current module and its @code{cdr} specifies a name for the
binding in
the current module's public interface.
@end deffn
address@hidden begin (scm-doc-string "boot-9.scm" "define-public")
@deffn syntax define-public @dots{}
Equivalent to @code{(begin (define foo ...) (export foo))}.
@end deffn
address@hidden end
@deffn syntax re-export variable @dots{}
Add all @var{variable}s (which must be symbols or pairs of symbols) to
@@ -509,184 +443,47 @@ symbols are handled as in @code{export}. Re-exported
bindings must be
imported by the current module from some other module.
@end deffn
address@hidden Module System Reflection
address@hidden Module System Reflection
-
-The previous sections have described a declarative view of the module
-system. You can also work with it programmatically by accessing and
-modifying various parts of the Scheme objects that Guile uses to
-implement the module system.
-
-At any time, there is a @dfn{current module}. This module is the one
-where a top-level @code{define} and similar syntax will add new
-bindings. You can find other module objects with @code{resolve-module},
-for example.
-
-These module objects can be used as the second argument to @code{eval}.
-
address@hidden {Scheme Procedure} current-module
-Return the current module object.
address@hidden deffn
-
address@hidden {Scheme Procedure} set-current-module module
-Set the current module to @var{module} and return
-the previous current module.
address@hidden deffn
-
address@hidden {Scheme Procedure} save-module-excursion thunk
-Call @var{thunk} within a @code{dynamic-wind} such that the module that
-is current at invocation time is restored when @var{thunk}'s dynamic
-extent is left (@pxref{Dynamic Wind}).
-
-More precisely, if @var{thunk} escapes non-locally, the current module
-(at the time of escape) is saved, and the original current module (at
-the time @var{thunk}'s dynamic extent was last entered) is restored. If
address@hidden's dynamic extent is re-entered, then the current module is
-saved, and the previously saved inner module is set current again.
address@hidden deffn
-
address@hidden {Scheme Procedure} resolve-module name
-Find the module named @var{name} and return it. When it has not already
-been defined, try to auto-load it. When it can't be found that way
-either, create an empty module. The name is a list of symbols.
address@hidden deffn
-
address@hidden {Scheme Procedure} resolve-interface name
-Find the module named @var{name} as with @code{resolve-module} and
-return its interface. The interface of a module is also a module
-object, but it contains only the exported bindings.
address@hidden syntax export! variable @dots{}
+Like @code{export}, but marking the exported variables as replacing.
+Using a module with replacing bindings will cause any existing bindings
+to be replaced without issuing any warnings. See the discussion of
address@hidden:replace} above.
@end deffn
address@hidden {Scheme Procedure} module-use! module interface
-Add @var{interface} to the front of the use-list of @var{module}. Both
-arguments should be module objects, and @var{interface} should very
-likely be a module returned by @code{resolve-interface}.
address@hidden deffn
-
address@hidden {Scheme Procedure} reload-module module
-Revisit the source file that corresponds to @var{module}. Raises an
-error if no source file is associated with the given module.
address@hidden deffn
-
-
address@hidden Included Guile Modules
address@hidden Included Guile Modules
-
address@hidden FIXME::martin: Review me!
-
-Some modules are included in the Guile distribution; here are references
-to the entries in this manual which describe them in more detail:
-
address@hidden @strong
address@hidden boot-9
-boot-9 is Guile's initialization module, and it is always loaded when
-Guile starts up.
-
address@hidden (ice-9 expect)
-Actions based on matching input from a port (@pxref{Expect}).
-
address@hidden (ice-9 format)
-Formatted output in the style of Common Lisp (@pxref{Formatted
-Output}).
-
address@hidden (ice-9 ftw)
-File tree walker (@pxref{File Tree Walk}).
-
address@hidden (ice-9 getopt-long)
-Command line option processing (@pxref{getopt-long}).
-
address@hidden (ice-9 history)
-Refer to previous interactive expressions (@pxref{Value History}).
-
address@hidden (ice-9 popen)
-Pipes to and from child processes (@pxref{Pipes}).
-
address@hidden (ice-9 pretty-print)
-Nicely formatted output of Scheme expressions and objects
-(@pxref{Pretty Printing}).
-
address@hidden (ice-9 q)
-First-in first-out queues (@pxref{Queues}).
-
address@hidden (ice-9 rdelim)
-Line- and character-delimited input (@pxref{Line/Delimited}).
-
address@hidden (ice-9 readline)
address@hidden interactive command line editing (@pxref{Readline
-Support}).
-
address@hidden (ice-9 receive)
-Multiple-value handling with @code{receive} (@pxref{Multiple Values}).
-
address@hidden (ice-9 regex)
-Regular expression matching (@pxref{Regular Expressions}).
-
address@hidden (ice-9 rw)
-Block string input/output (@pxref{Block Reading and Writing}).
-
address@hidden (ice-9 streams)
-Sequence of values calculated on-demand (@pxref{Streams}).
-
address@hidden (ice-9 syncase)
-R5RS @code{syntax-rules} macro system (@pxref{Syntax Rules}).
-
address@hidden (ice-9 threads)
-Guile's support for multi threaded execution (@pxref{Scheduling}).
-
address@hidden (ice-9 documentation)
-Online documentation (REFFIXME).
-
address@hidden (srfi srfi-1)
-A library providing a lot of useful list and pair processing
-procedures (@pxref{SRFI-1}).
-
address@hidden (srfi srfi-2)
-Support for @code{and-let*} (@pxref{SRFI-2}).
-
address@hidden (srfi srfi-4)
-Support for homogeneous numeric vectors (@pxref{SRFI-4}).
-
address@hidden (srfi srfi-6)
-Support for some additional string port procedures (@pxref{SRFI-6}).
-
address@hidden (srfi srfi-8)
-Multiple-value handling with @code{receive} (@pxref{SRFI-8}).
-
address@hidden (srfi srfi-9)
-Record definition with @code{define-record-type} (@pxref{SRFI-9}).
-
address@hidden (srfi srfi-10)
-Read hash extension @code{#,()} (@pxref{SRFI-10}).
-
address@hidden (srfi srfi-11)
-Multiple-value handling with @code{let-values} and @code{let*-values}
-(@pxref{SRFI-11}).
-
address@hidden (srfi srfi-13)
-String library (@pxref{SRFI-13}).
-
address@hidden (srfi srfi-14)
-Character-set library (@pxref{SRFI-14}).
address@hidden Modules and the File System
address@hidden Modules and the File System
address@hidden (srfi srfi-16)
address@hidden procedures of variable arity (@pxref{SRFI-16}).
+Typical programs only use a small subset of modules installed on a Guile
+system. In order to keep startup time down, Guile only loads modules
+when a program uses them, on demand.
address@hidden (srfi srfi-17)
-Getter-with-setter support (@pxref{SRFI-17}).
+When a program evaluates @code{(use-modules (ice-9 popen))}, and the
+module is not loaded, Guile searches for a conventionally-named file
+from in the @dfn{load path}.
address@hidden (srfi srfi-19)
-Time/Date library (@pxref{SRFI-19}).
+In this case, loading @code{(ice-9 popen)} will eventually cause Guile
+to run @code{(primitive-load-path "ice-9/popen")}.
address@hidden will search for a file @file{ice-9/popen} in
+the @code{%load-path} (@pxref{Build Config}). For each directory in
address@hidden, Guile will try to find the file name, concatenated
+with the extensions from @code{%load-extensions}. By default, this will
+cause Guile to @code{stat} @file{ice-9/popen.scm}, and then
address@hidden/popen}. @xref{Loading}, for more on
address@hidden
address@hidden (srfi srfi-26)
-Convenient syntax for partial application (@pxref{SRFI-26})
+If a corresponding compiled @file{.go} file is found in the
address@hidden or in the fallback path, and is as fresh as
+the source file, it will be loaded instead of the source file. If no
+compiled file is found, Guile may try to compile the source file and
+cache away the resulting @file{.go} file. @xref{Compilation}, for more
+on compilation.
address@hidden (srfi srfi-31)
address@hidden convenient recursive expressions (@pxref{SRFI-31})
+Once Guile finds a suitable source or compiled file is found, the file
+will be loaded. If, after loading the file, the module under
+consideration is still not defined, Guile will signal an error.
address@hidden (ice-9 slib)
-This module contains hooks for using Aubrey Jaffer's portable Scheme
-library SLIB from Guile (@pxref{SLIB}).
address@hidden table
+For more information on where and how to install Scheme modules,
address@hidden Site Packages}.
@node R6RS Version References
@@ -910,6 +707,196 @@ same form as in the @code{library} form described above.
@end deffn
address@hidden Variables
address@hidden Variables
address@hidden Variables
+
+Each module has its own hash table, sometimes known as an @dfn{obarray},
+that maps the names defined in that module to their corresponding
+variable objects.
+
+A variable is a box-like object that can hold any Scheme value. It is
+said to be @dfn{undefined} if its box holds a special Scheme value that
+denotes undefined-ness (which is different from all other Scheme values,
+including for example @code{#f}); otherwise the variable is
address@hidden
+
+On its own, a variable object is anonymous. A variable is said to be
address@hidden when it is associated with a name in some way, usually a
+symbol in a module obarray. When this happens, the name is said to be
+bound to the variable, in that module.
+
+(That's the theory, anyway. In practice, defined-ness and bound-ness
+sometimes get confused, because Lisp and Scheme implementations have
+often conflated --- or deliberately drawn no distinction between --- a
+name that is unbound and a name that is bound to a variable whose value
+is undefined. We will try to be clear about the difference and explain
+any confusion where it is unavoidable.)
+
+Variables do not have a read syntax. Most commonly they are created and
+bound implicitly by @code{define} expressions: a top-level @code{define}
+expression of the form
+
address@hidden
+(define @var{name} @var{value})
address@hidden lisp
+
address@hidden
+creates a variable with initial value @var{value} and binds it to the
+name @var{name} in the current module. But they can also be created
+dynamically by calling one of the constructor procedures
address@hidden and @code{make-undefined-variable}.
+
address@hidden {Scheme Procedure} make-undefined-variable
address@hidden {C Function} scm_make_undefined_variable ()
+Return a variable that is initially unbound.
address@hidden deffn
+
address@hidden {Scheme Procedure} make-variable init
address@hidden {C Function} scm_make_variable (init)
+Return a variable initialized to value @var{init}.
address@hidden deffn
+
address@hidden {Scheme Procedure} variable-bound? var
address@hidden {C Function} scm_variable_bound_p (var)
+Return @code{#t} iff @var{var} is bound to a value.
+Throws an error if @var{var} is not a variable object.
address@hidden deffn
+
address@hidden {Scheme Procedure} variable-ref var
address@hidden {C Function} scm_variable_ref (var)
+Dereference @var{var} and return its value.
address@hidden must be a variable object; see @code{make-variable}
+and @code{make-undefined-variable}.
address@hidden deffn
+
address@hidden {Scheme Procedure} variable-set! var val
address@hidden {C Function} scm_variable_set_x (var, val)
+Set the value of the variable @var{var} to @var{val}.
address@hidden must be a variable object, @var{val} can be any
+value. Return an unspecified value.
address@hidden deffn
+
address@hidden {Scheme Procedure} variable-unset! var
address@hidden {C Function} scm_variable_unset_x (var)
+Unset the value of the variable @var{var}, leaving @var{var} unbound.
address@hidden deffn
+
address@hidden {Scheme Procedure} variable? obj
address@hidden {C Function} scm_variable_p (obj)
+Return @code{#t} iff @var{obj} is a variable object, else
+return @code{#f}.
address@hidden deffn
+
+
address@hidden Module System Reflection
address@hidden Module System Reflection
+
+The previous sections have described a declarative view of the module
+system. You can also work with it programmatically by accessing and
+modifying various parts of the Scheme objects that Guile uses to
+implement the module system.
+
+At any time, there is a @dfn{current module}. This module is the one
+where a top-level @code{define} and similar syntax will add new
+bindings. You can find other module objects with @code{resolve-module},
+for example.
+
+These module objects can be used as the second argument to @code{eval}.
+
address@hidden {Scheme Procedure} current-module
address@hidden {C Function} scm_current_module ()
+Return the current module object.
address@hidden deffn
+
address@hidden {Scheme Procedure} set-current-module module
address@hidden {C Function} scm_set_current_module (module)
+Set the current module to @var{module} and return
+the previous current module.
address@hidden deffn
+
address@hidden {Scheme Procedure} save-module-excursion thunk
+Call @var{thunk} within a @code{dynamic-wind} such that the module that
+is current at invocation time is restored when @var{thunk}'s dynamic
+extent is left (@pxref{Dynamic Wind}).
+
+More precisely, if @var{thunk} escapes non-locally, the current module
+(at the time of escape) is saved, and the original current module (at
+the time @var{thunk}'s dynamic extent was last entered) is restored. If
address@hidden's dynamic extent is re-entered, then the current module is
+saved, and the previously saved inner module is set current again.
address@hidden deffn
+
address@hidden {Scheme Procedure} resolve-module name [autoload=#t]
[version=#f] [#:ensure=#t]
address@hidden {C Function} scm_resolve_module (name)
+Find the module named @var{name} and return it. When it has not already
+been defined and @var{autoload} is true, try to auto-load it. When it
+can't be found that way either, create an empty module if @var{ensure}
+is true, otherwise return @code{#f}. If @var{version} is true, ensure
+that the resulting module is compatible with the given version reference
+(@pxref{R6RS Version References}). The name is a list of symbols.
address@hidden deffn
+
address@hidden {Scheme Procedure} resolve-interface name [#:select=#f]
[#:hide='()] [#:select=()] [#:prefix=#f] [#:renamer] [#:version=#f]
+Find the module named @var{name} as with @code{resolve-module} and
+return its interface. The interface of a module is also a module
+object, but it contains only the exported bindings.
address@hidden deffn
+
address@hidden {Scheme Procedure} module-uses module
+Return a list of the interfaces used by @var{module}.
address@hidden deffn
+
address@hidden {Scheme Procedure} module-use! module interface
+Add @var{interface} to the front of the use-list of @var{module}. Both
+arguments should be module objects, and @var{interface} should very
+likely be a module returned by @code{resolve-interface}.
address@hidden deffn
+
address@hidden {Scheme Procedure} reload-module module
+Revisit the source file that corresponds to @var{module}. Raises an
+error if no source file is associated with the given module.
address@hidden deffn
+
+As mentioned in the previous section, modules contain a mapping between
+identifiers (as symbols) and storage locations (as variables). Guile
+defines a number of procedures to allow access to this mapping. If you
+are programming in C, @ref{Accessing Modules from C}.
+
address@hidden {Scheme Procedure} module-variable module name
+Return the variable bound to @var{name} (a symbol) in @var{module}, or
address@hidden if @var{name} is unbound.
address@hidden deffn
+
address@hidden {Scheme Procedure} module-add! module name var
+Define a new binding between @var{name} (a symbol) and @var{var} (a
+variable) in @var{module}.
address@hidden deffn
+
address@hidden {Scheme Procedure} module-ref module name
+Look up the value bound to @var{name} in @var{module}. Like
address@hidden, but also does a @code{variable-ref} on the
+resulting variable, raising an error if @var{name} is unbound.
address@hidden deffn
+
address@hidden {Scheme Procedure} module-define! module name value
+Locally bind @var{name} to @var{value} in @var{module}. If @var{name}
+was already locally bound in @var{module}, i.e., defined locally and not
+by an imported module, the value stored in the existing variable will be
+updated. Otherwise, a new variable will be added to the module, via
address@hidden
address@hidden deffn
+
address@hidden {Scheme Procedure} module-set! module name value
+Update the binding of @var{name} in @var{module} to @var{value}, raising
+an error if @var{name} is not already bound in @var{module}.
address@hidden deffn
+
+There are many other reflective procedures available in the default
+environment. If you find yourself using one of them, please contact the
+Guile developers so that we can commit to stability for that interface.
+
+
@node Accessing Modules from C
@subsection Accessing Modules from C
@@ -919,15 +906,6 @@ can also work with modules from C, but it is more
cumbersome.
The following procedures are available.
address@hidden {C Function} SCM scm_current_module ()
-Return the module that is the @emph{current module}.
address@hidden deftypefn
-
address@hidden {C Function} SCM scm_set_current_module (SCM @var{module})
-Set the current module to @var{module} and return the previous current
-module.
address@hidden deftypefn
-
@deftypefn {C Function} SCM scm_c_call_with_current_module (SCM @var{module},
SCM (address@hidden)(void *), void address@hidden)
Call @var{func} and make @var{module} the current module during the
call. The argument @var{data} is passed to @var{func}. The return
@@ -1053,11 +1031,6 @@ that way either, create an empty module. The name is
interpreted as
for @code{scm_c_define_module}.
@end deftypefn
address@hidden {C Function} SCM scm_resolve_module (SCM @var{name})
-Like @code{scm_c_resolve_module}, but the name is given as a real list
-of symbols.
address@hidden deftypefn
-
@deftypefn {C Function} SCM scm_c_use_module ({const char address@hidden)
Add the module named @var{name} to the uses list of the current
module, as with @code{(use-modules @var{name})}. The name is
@@ -1071,87 +1044,122 @@ of the current module. The list of names is
terminated by
@end deftypefn
address@hidden Variables
address@hidden Variables
address@hidden Variables
address@hidden Included Guile Modules
address@hidden Included Guile Modules
-Each module has its own hash table, sometimes known as an @dfn{obarray},
-that maps the names defined in that module to their corresponding
-variable objects.
+Some modules are included in the Guile distribution; here are references
+to the entries in this manual which describe them in more detail:
-A variable is a box-like object that can hold any Scheme value. It is
-said to be @dfn{undefined} if its box holds a special Scheme value that
-denotes undefined-ness (which is different from all other Scheme values,
-including for example @code{#f}); otherwise the variable is
address@hidden
address@hidden @strong
address@hidden boot-9
+boot-9 is Guile's initialization module, and it is always loaded when
+Guile starts up.
-On its own, a variable object is anonymous. A variable is said to be
address@hidden when it is associated with a name in some way, usually a
-symbol in a module obarray. When this happens, the relationship is
-mutual: the variable is bound to the name (in that module), and the name
-(in that module) is bound to the variable.
address@hidden (ice-9 expect)
+Actions based on matching input from a port (@pxref{Expect}).
-(That's the theory, anyway. In practice, defined-ness and bound-ness
-sometimes get confused, because Lisp and Scheme implementations have
-often conflated --- or deliberately drawn no distinction between --- a
-name that is unbound and a name that is bound to a variable whose value
-is undefined. We will try to be clear about the difference and explain
-any confusion where it is unavoidable.)
address@hidden (ice-9 format)
+Formatted output in the style of Common Lisp (@pxref{Formatted
+Output}).
-Variables do not have a read syntax. Most commonly they are created and
-bound implicitly by @code{define} expressions: a top-level @code{define}
-expression of the form
address@hidden (ice-9 ftw)
+File tree walker (@pxref{File Tree Walk}).
address@hidden
-(define @var{name} @var{value})
address@hidden lisp
address@hidden (ice-9 getopt-long)
+Command line option processing (@pxref{getopt-long}).
address@hidden
-creates a variable with initial value @var{value} and binds it to the
-name @var{name} in the current module. But they can also be created
-dynamically by calling one of the constructor procedures
address@hidden and @code{make-undefined-variable}.
address@hidden (ice-9 history)
+Refer to previous interactive expressions (@pxref{Value History}).
address@hidden {Scheme Procedure} make-undefined-variable
address@hidden {C Function} scm_make_undefined_variable ()
-Return a variable that is initially unbound.
address@hidden deffn
address@hidden (ice-9 popen)
+Pipes to and from child processes (@pxref{Pipes}).
address@hidden {Scheme Procedure} make-variable init
address@hidden {C Function} scm_make_variable (init)
-Return a variable initialized to value @var{init}.
address@hidden deffn
address@hidden (ice-9 pretty-print)
+Nicely formatted output of Scheme expressions and objects
+(@pxref{Pretty Printing}).
address@hidden {Scheme Procedure} variable-bound? var
address@hidden {C Function} scm_variable_bound_p (var)
-Return @code{#t} iff @var{var} is bound to a value.
-Throws an error if @var{var} is not a variable object.
address@hidden deffn
address@hidden (ice-9 q)
+First-in first-out queues (@pxref{Queues}).
address@hidden {Scheme Procedure} variable-ref var
address@hidden {C Function} scm_variable_ref (var)
-Dereference @var{var} and return its value.
address@hidden must be a variable object; see @code{make-variable}
-and @code{make-undefined-variable}.
address@hidden deffn
address@hidden (ice-9 rdelim)
+Line- and character-delimited input (@pxref{Line/Delimited}).
address@hidden {Scheme Procedure} variable-set! var val
address@hidden {C Function} scm_variable_set_x (var, val)
-Set the value of the variable @var{var} to @var{val}.
address@hidden must be a variable object, @var{val} can be any
-value. Return an unspecified value.
address@hidden deffn
address@hidden (ice-9 readline)
address@hidden interactive command line editing (@pxref{Readline
+Support}).
address@hidden {Scheme Procedure} variable-unset! var
address@hidden {C Function} scm_variable_unset_x (var)
-Unset the value of the variable @var{var}, leaving @var{var} unbound.
address@hidden deffn
address@hidden (ice-9 receive)
+Multiple-value handling with @code{receive} (@pxref{Multiple Values}).
address@hidden {Scheme Procedure} variable? obj
address@hidden {C Function} scm_variable_p (obj)
-Return @code{#t} iff @var{obj} is a variable object, else
-return @code{#f}.
address@hidden deffn
address@hidden (ice-9 regex)
+Regular expression matching (@pxref{Regular Expressions}).
+
address@hidden (ice-9 rw)
+Block string input/output (@pxref{Block Reading and Writing}).
+
address@hidden (ice-9 streams)
+Sequence of values calculated on-demand (@pxref{Streams}).
+
address@hidden (ice-9 syncase)
+R5RS @code{syntax-rules} macro system (@pxref{Syntax Rules}).
+
address@hidden (ice-9 threads)
+Guile's support for multi threaded execution (@pxref{Scheduling}).
+
address@hidden (ice-9 documentation)
+Online documentation (REFFIXME).
+
address@hidden (srfi srfi-1)
+A library providing a lot of useful list and pair processing
+procedures (@pxref{SRFI-1}).
+
address@hidden (srfi srfi-2)
+Support for @code{and-let*} (@pxref{SRFI-2}).
+
address@hidden (srfi srfi-4)
+Support for homogeneous numeric vectors (@pxref{SRFI-4}).
+
address@hidden (srfi srfi-6)
+Support for some additional string port procedures (@pxref{SRFI-6}).
+
address@hidden (srfi srfi-8)
+Multiple-value handling with @code{receive} (@pxref{SRFI-8}).
+
address@hidden (srfi srfi-9)
+Record definition with @code{define-record-type} (@pxref{SRFI-9}).
+
address@hidden (srfi srfi-10)
+Read hash extension @code{#,()} (@pxref{SRFI-10}).
+
address@hidden (srfi srfi-11)
+Multiple-value handling with @code{let-values} and @code{let*-values}
+(@pxref{SRFI-11}).
+
address@hidden (srfi srfi-13)
+String library (@pxref{SRFI-13}).
+
address@hidden (srfi srfi-14)
+Character-set library (@pxref{SRFI-14}).
+
address@hidden (srfi srfi-16)
address@hidden procedures of variable arity (@pxref{SRFI-16}).
+
address@hidden (srfi srfi-17)
+Getter-with-setter support (@pxref{SRFI-17}).
+
address@hidden (srfi srfi-19)
+Time/Date library (@pxref{SRFI-19}).
+
address@hidden (srfi srfi-26)
+Convenient syntax for partial application (@pxref{SRFI-26})
+
address@hidden (srfi srfi-31)
address@hidden convenient recursive expressions (@pxref{SRFI-31})
+
address@hidden (ice-9 slib)
+This module contains hooks for using Aubrey Jaffer's portable Scheme
+library SLIB from Guile (@pxref{SLIB}).
address@hidden table
@node provide and require
diff --git a/doc/ref/api-procedures.texi b/doc/ref/api-procedures.texi
index f1861a5..2b4a05e 100644
--- a/doc/ref/api-procedures.texi
+++ b/doc/ref/api-procedures.texi
@@ -1,7 +1,7 @@
@c -*-texinfo-*-
@c This is part of the GNU Guile Reference Manual.
address@hidden Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2009,
2010, 2011
address@hidden Free Software Foundation, Inc.
address@hidden Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2009,
2010,
address@hidden 2011, 2012 Free Software Foundation, Inc.
@c See the file guile.texi for copying conditions.
@node Procedures
@@ -838,7 +838,7 @@ demonstrably improves performance in a crucial way.
In general, only small procedures should be considered for inlining, as
making large procedures inlinable will probably result in an increase in
code size. Additionally, the elimination of the call overhead rarely
-matters for for large procedures.
+matters for large procedures.
@deffn {Scheme Syntax} define-inlinable (name parameter ...) body ...
Define @var{name} as a procedure with parameters @var{parameter}s and
diff --git a/doc/ref/libguile-program.texi b/doc/ref/libguile-program.texi
index 2c30d24..f565b91 100644
--- a/doc/ref/libguile-program.texi
+++ b/doc/ref/libguile-program.texi
@@ -279,13 +279,12 @@ As an example, here is a possible implementation of the
@code{square?}
primitive:
@lisp
-#define FUNC_NAME "square?"
static SCM square_p (SCM shape)
@{
struct dia_guile_shape * guile_shape;
/* Check that arg is really a shape SMOB. */
- SCM_VALIDATE_SHAPE (SCM_ARG1, shape);
+ scm_assert_smob_type (shape_tag, shape);
/* Access Scheme-specific shape structure. */
guile_shape = SCM_SMOB_DATA (shape);
@@ -295,7 +294,6 @@ static SCM square_p (SCM shape)
return scm_from_bool (guile_shape->c_shape &&
(guile_shape->c_shape->type == DIA_SQUARE));
@}
-#undef FUNC_NAME
@end lisp
Notice how easy it is to chain through from the @code{SCM shape}
@@ -303,10 +301,11 @@ parameter that @code{square_p} receives --- which is a
SMOB --- to the
Scheme-specific structure inside the SMOB, and thence to the underlying
C structure for the shape.
-In this code, @code{SCM_SMOB_DATA} and @code{scm_from_bool} are from
-the standard Guile API. @code{SCM_VALIDATE_SHAPE} is a macro that you
-should define as part of your SMOB definition: it checks that the
-passed parameter is of the expected type. This is needed to guard
+In this code, @code{scm_assert_smob_type}, @code{SCM_SMOB_DATA}, and
address@hidden are from the standard Guile API. We assume that
address@hidden was given to us when we made the shape SMOB type, using
address@hidden The call to @code{scm_assert_smob_type}
+ensures that @var{shape} is indeed a shape. This is needed to guard
against Scheme code using the @code{square?} procedure incorrectly, as
in @code{(square? "hello")}; Scheme's latent typing means that usage
errors like this must be caught at run time.
diff --git a/doc/ref/libguile-snarf.texi b/doc/ref/libguile-snarf.texi
index b295270..c70727f 100644
--- a/doc/ref/libguile-snarf.texi
+++ b/doc/ref/libguile-snarf.texi
@@ -1,6 +1,6 @@
@c -*-texinfo-*-
@c This is part of the GNU Guile Reference Manual.
address@hidden Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004
address@hidden Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2012
@c Free Software Foundation, Inc.
@c See the file guile.texi for copying conditions.
@@ -82,10 +82,10 @@ The @code{SCM_DEFINE} declaration says that the C function
rest argument. The string @code{"Clear the image."} provides a short
help text for the function, it is called a @dfn{docstring}.
-For historical reasons, the @code{SCM_DEFINE} macro also defines a
-static array of characters named @code{s_clear_image}, initialized to
-the string "clear-image". You shouldn't use this array, but you might
-need to be aware that it exists.
address@hidden macro also defines a static array of characters
+initialized to the Scheme name of the function. In this case,
address@hidden is set to the C string, "clear-image". You might
+want to use this symbol when generating error messages.
Assuming the text above lives in a file named @file{image-type.c}, you
will need to execute the following command to prepare this file for
diff --git a/doc/ref/misc-modules.texi b/doc/ref/misc-modules.texi
index 5322034..00354ac 100644
--- a/doc/ref/misc-modules.texi
+++ b/doc/ref/misc-modules.texi
@@ -1,7 +1,7 @@
@c -*-texinfo-*-
@c This is part of the GNU Guile Reference Manual.
address@hidden Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2006,
2009, 2010, 2011
address@hidden Free Software Foundation, Inc.
address@hidden Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2006,
2009,
address@hidden 2010, 2011, 2012 Free Software Foundation, Inc.
@c See the file guile.texi for copying conditions.
@node Pretty Printing
@@ -1180,7 +1180,7 @@ than building up a tree of entries in memory, like
directly as a directory tree is traversed; in fact,
@code{file-system-tree} is implemented in terms of it.
address@hidden {Scheme Procedure} file-system-fold enter? leaf down up skip
init file-name [stat]
address@hidden {Scheme Procedure} file-system-fold enter? leaf down up skip
error init file-name [stat]
Traverse the directory at @var{file-name}, recursively, and return the
result of the successive applications of the @var{leaf}, @var{down},
@var{up}, and @var{skip} procedures as described below.
@@ -1202,6 +1202,12 @@ encountered, call @code{(@var{skip} @var{path} @var{stat}
When @var{file-name} names a flat file, @code{(@var{leaf} @var{path}
@var{stat} @var{init})} is returned.
+When an @code{opendir} or @var{stat} call fails, call @code{(@var{error}
address@hidden @var{stat} @var{errno} @var{result})}, with @var{errno} being
+the operating system error number that was raised---e.g.,
address@hidden @var{stat} either @code{#f} or the result of the
address@hidden call for that entry, when available.
+
The special @file{.} and @file{..} entries are not passed to these
procedures. The @var{path} argument to the procedures is a full file
name---e.g., @code{"../foo/bar/gnu"}; if @var{file-name} is an absolute
@@ -1235,7 +1241,13 @@ to `du --apparent-size' with GNU Coreutils.)"
;; Likewise for skipped directories.
(define (skip name stat result) result)
- (file-system-fold enter? leaf down up skip
+ ;; Ignore unreadable files/directories but warn the user.
+ (define (error name stat errno result)
+ (format (current-error-port) "warning: ~a: ~a~%"
+ name (strerror errno))
+ result)
+
+ (file-system-fold enter? leaf down up skip error
0 ; initial counter is zero bytes
file-name))
diff --git a/doc/sources/env.texi b/doc/sources/env.texi
index a3efce2..7a37b76 100644
--- a/doc/sources/env.texi
+++ b/doc/sources/env.texi
@@ -21,7 +21,7 @@
[[add refs for all conditions signalled]]
@ifinfo
-Copyright 1999, 2006 Free Software Foundation, Inc.
+Copyright 1999, 2006, 2012 Free Software Foundation, Inc.
@end ifinfo
@titlepage
@@ -204,7 +204,7 @@ can implement any module system you like, as long as its
efforts produce
an environment object the interpreter can consult.
Finally, environments may prove a convenient way for Guile to access the
-features of other systems. For example, one might export the The GIMP's
+features of other systems. For example, one might export The GIMP's
Procedural Database to Guile as a custom environment type; this
environment could create Scheme procedure objects corresponding to GIMP
procedures, as the user referenced them.
diff --git a/libguile/Makefile.am b/libguile/Makefile.am
index 502ae56..52ffc34 100644
--- a/libguile/Makefile.am
+++ b/libguile/Makefile.am
@@ -62,7 +62,7 @@ gen-scmconfig.$(OBJEXT): gen-scmconfig.c
$(AM_V_GEN) \
if [ "$(cross_compiling)" = "yes" ]; then \
$(CC_FOR_BUILD) $(DEFS) $(DEFAULT_INCLUDES) -I$(top_builddir) \
- -c -o $@ $<; \
+ -c -o $@ $<; \
else \
$(COMPILE) -c -o $@ $<; \
fi
diff --git a/libguile/__scm.h b/libguile/__scm.h
index ee73855..d0a4213 100644
--- a/libguile/__scm.h
+++ b/libguile/__scm.h
@@ -4,7 +4,7 @@
#define SCM___SCM_H
/* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2006,
- * 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
+ * 2007, 2008, 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 License
diff --git a/libguile/array-map.c b/libguile/array-map.c
index 395fa11..acd167d 100644
--- a/libguile/array-map.c
+++ b/libguile/array-map.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1996,1998,2000,2001,2004,2005, 2006, 2008, 2009, 2010, 2011
Free Software Foundation, Inc.
+/* Copyright (C) 1996,1998,2000,2001,2004,2005, 2006, 2008, 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 License
@@ -892,7 +892,6 @@ SCM_DEFINE (scm_i_array_equal_p, "array-equal?", 0, 2, 1,
void
scm_init_array_map (void)
{
- scm_smobs[SCM_TC2SMOBNUM (scm_i_tc16_array)].equalp = scm_array_equal_p;
#include "libguile/array-map.x"
scm_add_feature (s_scm_array_for_each);
}
diff --git a/libguile/arrays.c b/libguile/arrays.c
index bcc351c..935d6f3 100644
--- a/libguile/arrays.c
+++ b/libguile/arrays.c
@@ -33,7 +33,6 @@
#include "libguile/chars.h"
#include "libguile/eval.h"
#include "libguile/fports.h"
-#include "libguile/smob.h"
#include "libguile/feature.h"
#include "libguile/root.h"
#include "libguile/strings.h"
@@ -54,11 +53,10 @@
#include "libguile/uniform.h"
-scm_t_bits scm_i_tc16_array;
#define SCM_SET_ARRAY_CONTIGUOUS_FLAG(x) \
- (SCM_SET_SMOB_FLAGS ((x), SCM_SMOB_FLAGS (x) | SCM_I_ARRAY_FLAG_CONTIGUOUS))
+ (SCM_SET_CELL_WORD_0 ((x), SCM_CELL_WORD_0 (x) |
(SCM_I_ARRAY_FLAG_CONTIGUOUS << 16)))
#define SCM_CLR_ARRAY_CONTIGUOUS_FLAG(x) \
- (SCM_SET_SMOB_FLAGS ((x), SCM_SMOB_FLAGS (x) & ~SCM_I_ARRAY_FLAG_CONTIGUOUS))
+ (SCM_SET_CELL_WORD_0 ((x), SCM_CELL_WORD_0 (x) &
~(SCM_I_ARRAY_FLAG_CONTIGUOUS << 16)))
SCM_DEFINE (scm_shared_array_root, "shared-array-root", 1, 0, 0,
@@ -111,14 +109,14 @@ SCM_DEFINE (scm_shared_array_increments,
"shared-array-increments", 1, 0, 0,
}
#undef FUNC_NAME
-SCM
+SCM
scm_i_make_array (int ndim)
{
SCM ra;
- SCM_NEWSMOB(ra, ((scm_t_bits) ndim << 17) + scm_i_tc16_array,
- scm_gc_malloc ((sizeof (scm_i_t_array) +
- ndim * sizeof (scm_t_array_dim)),
- "array"));
+ ra = scm_cell (((scm_t_bits) ndim << 17) + scm_tc7_array,
+ (scm_t_bits) scm_gc_malloc (sizeof (scm_i_t_array) +
+ ndim * sizeof (scm_t_array_dim),
+ "array"));
SCM_I_ARRAY_V (ra) = SCM_BOOL_F;
return ra;
}
@@ -743,7 +741,7 @@ scm_i_print_array_dimension (scm_t_array_handle *h, int
dim, int pos,
/* Print an array.
*/
-static int
+int
scm_i_print_array (SCM array, SCM port, scm_print_state *pstate)
{
scm_t_array_handle h;
@@ -1015,18 +1013,14 @@ array_get_handle (SCM array, scm_t_array_handle *h)
h->base = SCM_I_ARRAY_BASE (array);
}
-SCM_ARRAY_IMPLEMENTATION (SCM_SMOB_TYPE_BITS (scm_i_tc16_array),
- SCM_SMOB_TYPE_MASK,
+SCM_ARRAY_IMPLEMENTATION (scm_tc7_array,
+ 0x7f,
array_handle_ref, array_handle_set,
array_get_handle)
void
scm_init_arrays ()
{
- scm_i_tc16_array = scm_make_smob_type ("array", 0);
- scm_set_smob_print (scm_i_tc16_array, scm_i_print_array);
- scm_set_smob_equalp (scm_i_tc16_array, scm_array_equal_p);
-
scm_add_feature ("array");
#include "libguile/arrays.x"
diff --git a/libguile/arrays.h b/libguile/arrays.h
index 9b14d4e..5ea604d 100644
--- a/libguile/arrays.h
+++ b/libguile/arrays.h
@@ -59,21 +59,20 @@ typedef struct scm_i_t_array
unsigned long base;
} scm_i_t_array;
-SCM_INTERNAL scm_t_bits scm_i_tc16_array;
-
#define SCM_I_ARRAY_FLAG_CONTIGUOUS (1 << 0)
-#define SCM_I_ARRAYP(a) SCM_TYP16_PREDICATE (scm_i_tc16_array, a)
-#define SCM_I_ARRAY_NDIM(x) ((size_t) (SCM_SMOB_FLAGS (x)>>1))
-#define SCM_I_ARRAY_CONTP(x) (SCM_SMOB_FLAGS(x) & SCM_I_ARRAY_FLAG_CONTIGUOUS)
+#define SCM_I_ARRAYP(a) SCM_TYP16_PREDICATE (scm_tc7_array, a)
+#define SCM_I_ARRAY_NDIM(x) ((size_t) (SCM_CELL_WORD_0 (x)>>17))
+#define SCM_I_ARRAY_CONTP(x) (SCM_CELL_WORD_0 (x) &
(SCM_I_ARRAY_FLAG_CONTIGUOUS << 16))
-#define SCM_I_ARRAY_MEM(a) ((scm_i_t_array *) SCM_SMOB_DATA_1 (a))
+#define SCM_I_ARRAY_MEM(a) ((scm_i_t_array *) SCM_CELL_WORD_1 (a))
#define SCM_I_ARRAY_V(a) (SCM_I_ARRAY_MEM (a)->v)
#define SCM_I_ARRAY_BASE(a) (SCM_I_ARRAY_MEM (a)->base)
#define SCM_I_ARRAY_DIMS(a) \
((scm_t_array_dim *)((char *) SCM_I_ARRAY_MEM (a) + sizeof (scm_i_t_array)))
SCM_INTERNAL SCM scm_i_make_array (int ndim);
+SCM_INTERNAL int scm_i_print_array (SCM array, SCM port, scm_print_state
*pstate);
SCM_INTERNAL SCM scm_i_read_array (SCM port, int c);
SCM_INTERNAL void scm_init_arrays (void);
diff --git a/libguile/backtrace.c b/libguile/backtrace.c
index 351e600..11a0cb1 100644
--- a/libguile/backtrace.c
+++ b/libguile/backtrace.c
@@ -144,6 +144,19 @@ SCM_DEFINE (scm_display_error, "display-error", 6, 0, 0,
{
SCM_VALIDATE_OUTPUT_PORT (2, port);
+#if SCM_ENABLE_DEPRECATED
+ if (SCM_STACKP (frame))
+ {
+ scm_c_issue_deprecation_warning
+ ("Passing a stack as the first argument to `scm_display_error' is "
+ "deprecated. Pass a frame instead.");
+ if (SCM_STACK_LENGTH (frame))
+ frame = scm_stack_ref (frame, SCM_INUM0);
+ else
+ frame = SCM_BOOL_F;
+ }
+#endif
+
scm_i_display_error (frame, port, subr, message, args, rest);
return SCM_UNSPECIFIED;
diff --git a/libguile/bitvectors.c b/libguile/bitvectors.c
index 5b5a1b8..bc273a3 100644
--- a/libguile/bitvectors.c
+++ b/libguile/bitvectors.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998,2000,2001,2002,2003,2004, 2005, 2006,
2009, 2010, 2011 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1997,1998,2000,2001,2002,2003,2004, 2005, 2006,
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 License
@@ -27,7 +27,6 @@
#include "libguile/_scm.h"
#include "libguile/__scm.h"
-#include "libguile/smob.h"
#include "libguile/strings.h"
#include "libguile/array-handle.h"
#include "libguile/bitvectors.h"
@@ -39,14 +38,12 @@
* but alack, all we have is this crufty C.
*/
-static scm_t_bits scm_tc16_bitvector;
+#define IS_BITVECTOR(obj) SCM_TYP16_PREDICATE(scm_tc7_bitvector,(obj))
+#define BITVECTOR_BITS(obj) ((scm_t_uint32 *)SCM_CELL_WORD_1(obj))
+#define BITVECTOR_LENGTH(obj) ((size_t)SCM_CELL_WORD_2(obj))
-#define IS_BITVECTOR(obj) SCM_SMOB_PREDICATE(scm_tc16_bitvector,(obj))
-#define BITVECTOR_BITS(obj) ((scm_t_uint32 *)SCM_SMOB_DATA(obj))
-#define BITVECTOR_LENGTH(obj) ((size_t)SCM_SMOB_DATA_2(obj))
-
-static int
-bitvector_print (SCM vec, SCM port, scm_print_state *pstate)
+int
+scm_i_print_bitvector (SCM vec, SCM port, scm_print_state *pstate)
{
size_t bit_len = BITVECTOR_LENGTH (vec);
size_t word_len = (bit_len+31)/32;
@@ -64,8 +61,8 @@ bitvector_print (SCM vec, SCM port, scm_print_state *pstate)
return 1;
}
-static SCM
-bitvector_equalp (SCM vec1, SCM vec2)
+SCM
+scm_i_bitvector_equal_p (SCM vec1, SCM vec2)
{
size_t bit_len = BITVECTOR_LENGTH (vec1);
size_t word_len = (bit_len + 31) / 32;
@@ -113,7 +110,7 @@ scm_c_make_bitvector (size_t len, SCM fill)
bits = scm_gc_malloc_pointerless (sizeof (scm_t_uint32) * word_len,
"bitvector");
- SCM_NEWSMOB2 (res, scm_tc16_bitvector, bits, len);
+ res = scm_double_cell (scm_tc7_bitvector, (scm_t_bits)bits, len, 0);
if (!SCM_UNBNDP (fill))
scm_bitvector_fill_x (res, fill);
@@ -145,7 +142,8 @@ SCM_DEFINE (scm_bitvector, "bitvector", 0, 0, 1,
size_t
scm_c_bitvector_length (SCM vec)
{
- scm_assert_smob_type (scm_tc16_bitvector, vec);
+ if (!IS_BITVECTOR (vec))
+ scm_wrong_type_arg_msg (NULL, 0, vec, "bitvector");
return BITVECTOR_LENGTH (vec);
}
@@ -880,8 +878,8 @@ bitvector_get_handle (SCM bv, scm_t_array_handle *h)
h->elements = h->writable_elements = BITVECTOR_BITS (bv);
}
-SCM_ARRAY_IMPLEMENTATION (SCM_SMOB_TYPE_BITS (scm_tc16_bitvector),
- SCM_SMOB_TYPE_MASK,
+SCM_ARRAY_IMPLEMENTATION (scm_tc7_bitvector,
+ 0x7f,
bitvector_handle_ref, bitvector_handle_set,
bitvector_get_handle)
SCM_VECTOR_IMPLEMENTATION (SCM_ARRAY_ELEMENT_TYPE_BIT, scm_make_bitvector)
@@ -889,10 +887,6 @@ SCM_VECTOR_IMPLEMENTATION (SCM_ARRAY_ELEMENT_TYPE_BIT,
scm_make_bitvector)
void
scm_init_bitvectors ()
{
- scm_tc16_bitvector = scm_make_smob_type ("bitvector", 0);
- scm_set_smob_print (scm_tc16_bitvector, bitvector_print);
- scm_set_smob_equalp (scm_tc16_bitvector, bitvector_equalp);
-
#include "libguile/bitvectors.x"
}
diff --git a/libguile/bitvectors.h b/libguile/bitvectors.h
index b6cf383..6b25327 100644
--- a/libguile/bitvectors.h
+++ b/libguile/bitvectors.h
@@ -70,6 +70,8 @@ SCM_API scm_t_uint32 *scm_bitvector_writable_elements (SCM
vec,
size_t *lenp,
ssize_t *incp);
+SCM_INTERNAL int scm_i_print_bitvector (SCM vec, SCM port, scm_print_state
*pstate);
+SCM_INTERNAL SCM scm_i_bitvector_equal_p (SCM vec1, SCM vec2);
SCM_INTERNAL void scm_init_bitvectors (void);
#endif /* SCM_BITVECTORS_H */
diff --git a/libguile/eq.c b/libguile/eq.c
index 5e270a2..5a6f574 100644
--- a/libguile/eq.c
+++ b/libguile/eq.c
@@ -302,10 +302,6 @@ scm_equal_p (SCM x, SCM y)
y = SCM_CDR(y);
goto tailrecurse;
}
- if (SCM_TYP7 (x) == scm_tc7_string && SCM_TYP7 (y) == scm_tc7_string)
- return scm_string_equal_p (x, y);
- if (SCM_TYP7 (x) == scm_tc7_bytevector && SCM_TYP7 (y) == scm_tc7_bytevector)
- return scm_bytevector_eq_p (x, y);
if (SCM_TYP7 (x) == scm_tc7_smob && SCM_TYP16 (x) == SCM_TYP16 (y))
{
int i = SCM_SMOBNUM (x);
@@ -316,8 +312,6 @@ scm_equal_p (SCM x, SCM y)
else
goto generic_equal;
}
- if (SCM_POINTER_P (x) && SCM_POINTER_P (y))
- return scm_from_bool (SCM_POINTER_VALUE (x) == SCM_POINTER_VALUE (y));
/* This ensures that types and scm_length are the same. */
if (SCM_CELL_TYPE (x) != SCM_CELL_TYPE (y))
@@ -352,7 +346,20 @@ scm_equal_p (SCM x, SCM y)
return scm_complex_equalp (x, y);
case scm_tc16_fraction:
return scm_i_fraction_equalp (x, y);
+ default:
+ /* assert not reached? */
+ return SCM_BOOL_F;
}
+ case scm_tc7_pointer:
+ return scm_from_bool (SCM_POINTER_VALUE (x) == SCM_POINTER_VALUE (y));
+ case scm_tc7_string:
+ return scm_string_equal_p (x, y);
+ case scm_tc7_bytevector:
+ return scm_bytevector_eq_p (x, y);
+ case scm_tc7_array:
+ return scm_array_equal_p (x, y);
+ case scm_tc7_bitvector:
+ return scm_i_bitvector_equal_p (x, y);
case scm_tc7_vector:
case scm_tc7_wvect:
return scm_i_vector_equal_p (x, y);
diff --git a/libguile/evalext.c b/libguile/evalext.c
index 779c63d..3e04a7a 100644
--- a/libguile/evalext.c
+++ b/libguile/evalext.c
@@ -89,6 +89,8 @@ SCM_DEFINE (scm_self_evaluating_p, "self-evaluating?", 1, 0,
0,
case scm_tc7_smob:
case scm_tc7_program:
case scm_tc7_bytevector:
+ case scm_tc7_array:
+ case scm_tc7_bitvector:
case scm_tcs_struct:
return SCM_BOOL_T;
default:
diff --git a/libguile/fports.c b/libguile/fports.c
index 683c25b..97dadde 100644
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -20,6 +20,7 @@
#define _LARGEFILE64_SOURCE /* ask for stat64 etc */
+#define _GNU_SOURCE /* ask for LONG_LONG_MAX/LONG_LONG_MIN */
#ifdef HAVE_CONFIG_H
# include <config.h>
diff --git a/libguile/gc-malloc.c b/libguile/gc-malloc.c
index fb844ff..5c230dd 100644
--- a/libguile/gc-malloc.c
+++ b/libguile/gc-malloc.c
@@ -26,6 +26,7 @@
#include <stdio.h>
#include <errno.h>
#include <string.h>
+#include <stdlib.h>
#ifdef __ia64__
#include <ucontext.h>
@@ -57,10 +58,6 @@ extern unsigned long *
__libc_ia64_register_backing_store_base;
#include "libguile/debug-malloc.h"
#endif
-#ifdef HAVE_MALLOC_H
-#include <malloc.h>
-#endif
-
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
diff --git a/libguile/gc.c b/libguile/gc.c
index 0d271af..5f61a1d 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -27,6 +27,7 @@
#include <stdio.h>
#include <errno.h>
#include <string.h>
+#include <stdlib.h>
#include <math.h>
#ifdef __ia64__
@@ -64,10 +65,6 @@ extern unsigned long *
__libc_ia64_register_backing_store_base;
#include "libguile/debug-malloc.h"
#endif
-#ifdef HAVE_MALLOC_H
-#include <malloc.h>
-#endif
-
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
diff --git a/libguile/generalized-vectors.c b/libguile/generalized-vectors.c
index b65b654..d8a3bf8 100644
--- a/libguile/generalized-vectors.c
+++ b/libguile/generalized-vectors.c
@@ -131,9 +131,11 @@ SCM
scm_c_generalized_vector_ref (SCM v, size_t idx)
{
scm_t_array_handle h;
+ size_t pos;
SCM ret;
scm_generalized_vector_get_handle (v, &h);
- ret = h.impl->vref (&h, idx);
+ pos = h.base + h.dims[0].lbnd + idx * h.dims[0].inc;
+ ret = h.impl->vref (&h, pos);
scm_array_handle_release (&h);
return ret;
}
@@ -152,8 +154,10 @@ void
scm_c_generalized_vector_set_x (SCM v, size_t idx, SCM val)
{
scm_t_array_handle h;
+ size_t pos;
scm_generalized_vector_get_handle (v, &h);
- h.impl->vset (&h, idx, val);
+ pos = h.base + h.dims[0].lbnd + idx * h.dims[0].inc;
+ h.impl->vset (&h, pos, val);
scm_array_handle_release (&h);
}
diff --git a/libguile/goops.c b/libguile/goops.c
index df1a64f..5e846ee 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -160,6 +160,8 @@ static SCM class_vm;
static SCM class_vm_cont;
static SCM class_bytevector;
static SCM class_uvec;
+static SCM class_array;
+static SCM class_bitvector;
static SCM vtable_class_map = SCM_BOOL_F;
@@ -275,6 +277,10 @@ SCM_DEFINE (scm_class_of, "class-of", 1, 0, 0,
return class_bytevector;
else
return class_uvec;
+ case scm_tc7_array:
+ return class_array;
+ case scm_tc7_bitvector:
+ return class_bitvector;
case scm_tc7_string:
return scm_class_string;
case scm_tc7_number:
@@ -2519,6 +2525,10 @@ create_standard_classes (void)
scm_class_class, scm_class_top, SCM_EOL);
make_stdcls (&class_uvec, "<uvec>",
scm_class_class, class_bytevector, SCM_EOL);
+ make_stdcls (&class_array, "<array>",
+ scm_class_class, scm_class_top, SCM_EOL);
+ make_stdcls (&class_bitvector, "<bitvector>",
+ scm_class_class, scm_class_top, SCM_EOL);
make_stdcls (&scm_class_number, "<number>",
scm_class_class, scm_class_top, SCM_EOL);
make_stdcls (&scm_class_complex, "<complex>",
diff --git a/libguile/i18n.c b/libguile/i18n.c
index c0deb98..f833e5d 100644
--- a/libguile/i18n.c
+++ b/libguile/i18n.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation,
Inc.
+/* Copyright (C) 2006, 2007, 2008, 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 License
@@ -196,22 +196,11 @@ typedef struct scm_locale
int category_mask;
} *scm_t_locale;
-
-/* Free the resources used by LOCALE. */
-static inline void
-scm_i_locale_free (scm_t_locale locale)
-{
- free (locale->locale_name);
- locale->locale_name = NULL;
-}
-
#else /* USE_GNU_LOCALE_API */
/* Alias for glibc's locale type. */
typedef locale_t scm_t_locale;
-#define scm_i_locale_free freelocale
-
#endif /* USE_GNU_LOCALE_API */
@@ -244,16 +233,20 @@ SCM_GLOBAL_VARIABLE (scm_global_locale, "%global-locale");
SCM_SMOB (scm_tc16_locale_smob_type, "locale", 0);
+#ifdef USE_GNU_LOCALE_API
+
SCM_SMOB_FREE (scm_tc16_locale_smob_type, smob_locale_free, locale)
{
scm_t_locale c_locale;
c_locale = (scm_t_locale) SCM_SMOB_DATA (locale);
- scm_i_locale_free (c_locale);
+ freelocale (c_locale);
return 0;
}
+#endif /* USE_GNU_LOCALE_API */
+
static void inline scm_locale_error (const char *, int) SCM_NORETURN;
@@ -667,7 +660,8 @@ SCM_DEFINE (scm_make_locale, "make-locale", 2, 1, 0,
c_locale = scm_gc_malloc (sizeof (* c_locale), "locale");
c_locale->category_mask = c_category_mask;
- c_locale->locale_name = c_locale_name;
+ c_locale->locale_name = scm_gc_strdup (c_locale_name, "locale");
+ free (c_locale_name);
if (scm_is_eq (base_locale, SCM_VARIABLE_REF (scm_global_locale)))
{
diff --git a/libguile/load.c b/libguile/load.c
index b28e30b..135a621 100644
--- a/libguile/load.c
+++ b/libguile/load.c
@@ -87,7 +87,9 @@ SCM_DEFINE (scm_primitive_load, "primitive-load", 1, 0, 0,
#define FUNC_NAME s_scm_primitive_load
{
SCM hook = *scm_loc_load_hook;
+ SCM ret = SCM_UNSPECIFIED;
char *encoding;
+
SCM_VALIDATE_STRING (1, filename);
if (scm_is_true (hook) && scm_is_false (scm_procedure_p (hook)))
SCM_MISC_ERROR ("value of %load-hook is neither a procedure nor #f",
@@ -96,8 +98,10 @@ SCM_DEFINE (scm_primitive_load, "primitive-load", 1, 0, 0,
if (!scm_is_false (hook))
scm_call_1 (hook, filename);
- { /* scope */
- SCM port = scm_open_file (filename, scm_from_locale_string ("r"));
+ {
+ SCM port;
+
+ port = scm_open_file (filename, scm_from_locale_string ("r"));
scm_dynwind_begin (SCM_F_DYNWIND_REWINDABLE);
scm_i_dynwind_current_load_port (port);
@@ -124,13 +128,13 @@ SCM_DEFINE (scm_primitive_load, "primitive-load", 1, 0, 0,
if (SCM_EOF_OBJECT_P (form))
break;
- scm_primitive_eval_x (form);
+ ret = scm_primitive_eval_x (form);
}
scm_dynwind_end ();
scm_close_port (port);
}
- return SCM_UNSPECIFIED;
+ return ret;
}
#undef FUNC_NAME
diff --git a/libguile/mallocs.c b/libguile/mallocs.c
index bd8aee8..b4499bc 100644
--- a/libguile/mallocs.c
+++ b/libguile/mallocs.c
@@ -24,15 +24,14 @@
# include <config.h>
#endif
+#include <stdlib.h>
+
#include "libguile/_scm.h"
#include "libguile/ports.h"
#include "libguile/smob.h"
#include "libguile/mallocs.h"
-#ifdef HAVE_MALLOC_H
-#include <malloc.h>
-#endif
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
diff --git a/libguile/objcodes.c b/libguile/objcodes.c
index 5db8ed3..df10ea3 100644
--- a/libguile/objcodes.c
+++ b/libguile/objcodes.c
@@ -145,7 +145,7 @@ verify_cookie (char *cookie, struct stat *st, int map_fd,
void *map_addr)
- scm_tc7_objcode | type | flags
- the struct scm_objcode C object
- the parent of this objcode: either another objcode, a bytevector,
- or, in the case of mmap types, file descriptors (as an inum)
+ or, in the case of mmap types, #f
- "native code" -- not currently used.
*/
@@ -203,12 +203,11 @@ make_objcode_from_file (int fd)
scm_from_size_t (total_len)));
}
- /* FIXME: we leak ourselves and the file descriptor. but then again so does
- dlopen(). */
+ (void) close (fd);
return scm_permanent_object
(scm_double_cell (SCM_MAKE_OBJCODE_TAG (SCM_OBJCODE_TYPE_MMAP, 0),
(scm_t_bits)(addr + strlen (SCM_OBJCODE_COOKIE)),
- SCM_UNPACK (scm_from_int (fd)), 0));
+ SCM_BOOL_F_BITS, 0));
}
#else
{
diff --git a/libguile/print.c b/libguile/print.c
index d8dd24c..a1c36eb 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -651,14 +651,20 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
case scm_tc7_with_fluids:
scm_i_with_fluids_print (exp, port, pstate);
break;
- case scm_tc7_wvect:
+ case scm_tc7_array:
ENTER_NESTED_DATA (pstate, exp, circref);
- scm_puts_unlocked ("#w(", port);
- goto common_vector_printer;
-
+ scm_i_print_array (exp, port, pstate);
+ break;
case scm_tc7_bytevector:
scm_i_print_bytevector (exp, port, pstate);
break;
+ case scm_tc7_bitvector:
+ scm_i_print_bitvector (exp, port, pstate);
+ break;
+ case scm_tc7_wvect:
+ ENTER_NESTED_DATA (pstate, exp, circref);
+ scm_puts_unlocked ("#w(", port);
+ goto common_vector_printer;
case scm_tc7_vector:
ENTER_NESTED_DATA (pstate, exp, circref);
scm_puts_unlocked ("#(", port);
diff --git a/libguile/smob.c b/libguile/smob.c
index cb6f803..e966da8 100644
--- a/libguile/smob.c
+++ b/libguile/smob.c
@@ -23,6 +23,7 @@
#endif
#include <stdio.h>
+#include <stdlib.h>
#include <errno.h>
#include "libguile/_scm.h"
@@ -33,10 +34,6 @@
#include "libguile/objcodes.h"
#include "libguile/programs.h"
-#ifdef HAVE_MALLOC_H
-#include <malloc.h>
-#endif
-
#include "libguile/smob.h"
#include "libguile/bdw-gc.h"
diff --git a/libguile/srfi-13.c b/libguile/srfi-13.c
index 5bba81c..92d4a9d 100644
--- a/libguile/srfi-13.c
+++ b/libguile/srfi-13.c
@@ -546,17 +546,20 @@ SCM_DEFINE (scm_string_copy_x, "string-copy!", 3, 2, 0,
MY_VALIDATE_SUBSTRING_SPEC (3, s,
4, start, cstart,
5, end, cend);
- len = cend - cstart;
- SCM_ASSERT_RANGE (3, s, len <= scm_i_string_length (target) - ctstart);
-
- target = scm_i_string_start_writing (target);
- for (i = 0; i < cend - cstart; i++)
+ if (cstart < cend)
{
- scm_i_string_set_x (target, ctstart + i,
- scm_i_string_ref (s, cstart + i));
+ len = cend - cstart;
+ SCM_ASSERT_RANGE (3, s, len <= scm_i_string_length (target) - ctstart);
+
+ target = scm_i_string_start_writing (target);
+ for (i = 0; i < cend - cstart; i++)
+ {
+ scm_i_string_set_x (target, ctstart + i,
+ scm_i_string_ref (s, cstart + i));
+ }
+ scm_i_string_stop_writing ();
+ scm_remember_upto_here_1 (target);
}
- scm_i_string_stop_writing ();
- scm_remember_upto_here_1 (target);
return SCM_UNSPECIFIED;
}
@@ -970,11 +973,13 @@ SCM_DEFINE (scm_substring_fill_x, "string-fill!", 2, 2, 0,
4, end, cend);
SCM_VALIDATE_CHAR (2, chr);
-
- str = scm_i_string_start_writing (str);
- for (k = cstart; k < cend; k++)
- scm_i_string_set_x (str, k, SCM_CHAR (chr));
- scm_i_string_stop_writing ();
+ if (cstart < cend)
+ {
+ str = scm_i_string_start_writing (str);
+ for (k = cstart; k < cend; k++)
+ scm_i_string_set_x (str, k, SCM_CHAR (chr));
+ scm_i_string_stop_writing ();
+ }
return SCM_UNSPECIFIED;
}
@@ -2089,11 +2094,14 @@ string_upcase_x (SCM v, size_t start, size_t end)
{
size_t k;
- v = scm_i_string_start_writing (v);
- for (k = start; k < end; ++k)
- scm_i_string_set_x (v, k, uc_toupper (scm_i_string_ref (v, k)));
- scm_i_string_stop_writing ();
- scm_remember_upto_here_1 (v);
+ if (start < end)
+ {
+ v = scm_i_string_start_writing (v);
+ for (k = start; k < end; ++k)
+ scm_i_string_set_x (v, k, uc_toupper (scm_i_string_ref (v, k)));
+ scm_i_string_stop_writing ();
+ scm_remember_upto_here_1 (v);
+ }
return v;
}
@@ -2152,11 +2160,14 @@ string_downcase_x (SCM v, size_t start, size_t end)
{
size_t k;
- v = scm_i_string_start_writing (v);
- for (k = start; k < end; ++k)
- scm_i_string_set_x (v, k, uc_tolower (scm_i_string_ref (v, k)));
- scm_i_string_stop_writing ();
- scm_remember_upto_here_1 (v);
+ if (start < end)
+ {
+ v = scm_i_string_start_writing (v);
+ for (k = start; k < end; ++k)
+ scm_i_string_set_x (v, k, uc_tolower (scm_i_string_ref (v, k)));
+ scm_i_string_stop_writing ();
+ scm_remember_upto_here_1 (v);
+ }
return v;
}
@@ -2219,27 +2230,30 @@ string_titlecase_x (SCM str, size_t start, size_t end)
size_t i;
int in_word = 0;
- str = scm_i_string_start_writing (str);
- for(i = start; i < end; i++)
+ if (start < end)
{
- ch = SCM_MAKE_CHAR (scm_i_string_ref (str, i));
- if (scm_is_true (scm_char_alphabetic_p (ch)))
- {
- if (!in_word)
- {
- scm_i_string_set_x (str, i, uc_totitle (SCM_CHAR (ch)));
- in_word = 1;
- }
- else
- {
- scm_i_string_set_x (str, i, uc_tolower (SCM_CHAR (ch)));
- }
- }
- else
- in_word = 0;
+ str = scm_i_string_start_writing (str);
+ for(i = start; i < end; i++)
+ {
+ ch = SCM_MAKE_CHAR (scm_i_string_ref (str, i));
+ if (scm_is_true (scm_char_alphabetic_p (ch)))
+ {
+ if (!in_word)
+ {
+ scm_i_string_set_x (str, i, uc_totitle (SCM_CHAR (ch)));
+ in_word = 1;
+ }
+ else
+ {
+ scm_i_string_set_x (str, i, uc_tolower (SCM_CHAR (ch)));
+ }
+ }
+ else
+ in_word = 0;
+ }
+ scm_i_string_stop_writing ();
+ scm_remember_upto_here_1 (str);
}
- scm_i_string_stop_writing ();
- scm_remember_upto_here_1 (str);
return str;
}
@@ -2309,22 +2323,25 @@ SCM_DEFINE (scm_string_capitalize, "string-capitalize",
1, 0, 0,
static void
string_reverse_x (SCM str, size_t cstart, size_t cend)
{
- SCM tmp;
-
- str = scm_i_string_start_writing (str);
- if (cend > 0)
+ if (cstart < cend)
{
- cend--;
- while (cstart < cend)
- {
- tmp = SCM_MAKE_CHAR (scm_i_string_ref (str, cstart));
- scm_i_string_set_x (str, cstart, scm_i_string_ref (str, cend));
- scm_i_string_set_x (str, cend, SCM_CHAR (tmp));
- cstart++;
- cend--;
- }
+ str = scm_i_string_start_writing (str);
+ if (cend > 0)
+ {
+ SCM tmp;
+
+ cend--;
+ while (cstart < cend)
+ {
+ tmp = SCM_MAKE_CHAR (scm_i_string_ref (str, cstart));
+ scm_i_string_set_x (str, cstart, scm_i_string_ref (str, cend));
+ scm_i_string_set_x (str, cend, SCM_CHAR (tmp));
+ cstart++;
+ cend--;
+ }
+ }
+ scm_i_string_stop_writing ();
}
- scm_i_string_stop_writing ();
}
@@ -2866,26 +2883,29 @@ SCM_DEFINE (scm_string_xcopy_x, "string-xcopy!", 4, 3,
0,
csto = csfrom + (cend - cstart);
else
csto = scm_to_int (sto);
- if (cstart == cend && csfrom != csto)
- SCM_MISC_ERROR ("start and end indices must not be equal", SCM_EOL);
- SCM_ASSERT_RANGE (1, tstart,
- ctstart + (csto - csfrom) <= scm_i_string_length (target));
-
- p = 0;
- target = scm_i_string_start_writing (target);
- while (csfrom < csto)
+ if (csfrom < csto)
{
- size_t t = ((csfrom < 0) ? -csfrom : csfrom) % (cend - cstart);
- if (csfrom < 0)
- scm_i_string_set_x (target, p + cstart, scm_i_string_ref (s, (cend -
cstart) - t));
- else
- scm_i_string_set_x (target, p + cstart, scm_i_string_ref (s, t));
- csfrom++;
- p++;
- }
- scm_i_string_stop_writing ();
+ if (cstart == cend)
+ SCM_MISC_ERROR ("start and end indices must not be equal", SCM_EOL);
+ SCM_ASSERT_RANGE (1, tstart,
+ ctstart + (csto - csfrom) <= scm_i_string_length
(target));
+
+ p = 0;
+ target = scm_i_string_start_writing (target);
+ while (csfrom < csto)
+ {
+ size_t t = ((csfrom < 0) ? -csfrom : csfrom) % (cend - cstart);
+ if (csfrom < 0)
+ scm_i_string_set_x (target, p + cstart, scm_i_string_ref (s, (cend
- cstart) - t));
+ else
+ scm_i_string_set_x (target, p + cstart, scm_i_string_ref (s, t));
+ csfrom++;
+ p++;
+ }
+ scm_i_string_stop_writing ();
- scm_remember_upto_here_2 (target, s);
+ scm_remember_upto_here_2 (target, s);
+ }
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME
diff --git a/libguile/srfi-60.c b/libguile/srfi-60.c
index 264f4cb..1ed3c9e 100644
--- a/libguile/srfi-60.c
+++ b/libguile/srfi-60.c
@@ -70,7 +70,7 @@ SCM_DEFINE (scm_srfi60_log2_binary_factors,
"log2-binary-factors", 1, 0, 0,
SCM_DEFINE (scm_srfi60_copy_bit, "copy-bit", 3, 0, 0,
- (SCM index, SCM n, SCM bit),
+ (SCM index, SCM n, SCM newbit),
"Return @var{n} with the bit at @var{index} set according to\n"
"@var{newbit}. @var{newbit} should be @code{#t} to set the bit\n"
"to 1, or @code{#f} to set it to 0. Bits other than at\n"
@@ -86,7 +86,7 @@ SCM_DEFINE (scm_srfi60_copy_bit, "copy-bit", 3, 0, 0,
int bb;
ii = scm_to_ulong (index);
- bb = scm_to_bool (bit);
+ bb = scm_to_bool (newbit);
if (SCM_I_INUMP (n))
{
diff --git a/libguile/strings.c b/libguile/strings.c
index b996301..cb883fa 100644
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1998,2000,2001, 2004, 2006, 2008, 2009, 2010, 2011
Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1998,2000,2001, 2004, 2006, 2008, 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 License
@@ -436,6 +436,9 @@ scm_i_string_length (SCM str)
int
scm_i_is_narrow_string (SCM str)
{
+ if (IS_SH_STRING (str))
+ str = SH_STRING_STRING (str);
+
return !STRINGBUF_WIDE (STRING_STRINGBUF (str));
}
@@ -446,6 +449,9 @@ scm_i_is_narrow_string (SCM str)
int
scm_i_try_narrow_string (SCM str)
{
+ if (IS_SH_STRING (str))
+ str = SH_STRING_STRING (str);
+
SET_STRING_STRINGBUF (str, narrow_stringbuf (STRING_STRINGBUF (str)));
return scm_i_is_narrow_string (str);
@@ -664,6 +670,12 @@ scm_i_string_strcmp (SCM sstr, size_t start_x, const char
*cstr)
void
scm_i_string_set_x (SCM str, size_t p, scm_t_wchar chr)
{
+ if (IS_SH_STRING (str))
+ {
+ p += STRING_START (str);
+ str = SH_STRING_STRING (str);
+ }
+
if (chr > 0xFF && scm_i_is_narrow_string (str))
SET_STRING_STRINGBUF (str, wide_stringbuf (STRING_STRINGBUF (str)));
@@ -2243,7 +2255,7 @@ SCM_VECTOR_IMPLEMENTATION (SCM_ARRAY_ELEMENT_TYPE_CHAR,
scm_make_string)
void
scm_init_strings ()
{
- scm_nullstr = scm_i_make_string (0, NULL, 1);
+ scm_nullstr = scm_i_make_string (0, NULL, 0);
#include "libguile/strings.x"
}
diff --git a/libguile/strings.h b/libguile/strings.h
index 0c163db..04a9762 100644
--- a/libguile/strings.h
+++ b/libguile/strings.h
@@ -85,7 +85,7 @@
- SCM_STRING_CHARS uses scm_i_string_writable_chars and immediately
calls scm_i_stop_writing, hoping for the best. SCM_STRING_LENGTH
is the same as scm_i_string_length. SCM_STRING_CHARS will throw
- an error for for strings that are not null-terminated. There is
+ an error for strings that are not null-terminated. There is
no wide version of this interface.
*/
diff --git a/libguile/tags.h b/libguile/tags.h
index 54b74e0..fb55047 100644
--- a/libguile/tags.h
+++ b/libguile/tags.h
@@ -3,7 +3,7 @@
#ifndef SCM_TAGS_H
#define SCM_TAGS_H
-/* Copyright (C)
1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2008,2009,2010,2011
+/* Copyright (C)
1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2008,2009,2010,2011,2012
* Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
@@ -440,8 +440,8 @@ typedef union SCM { struct { scm_t_bits n; } n; } SCM;
#define scm_tc7_program 79
#define scm_tc7_weak_set 85
#define scm_tc7_weak_table 87
-#define scm_tc7_unused_20 93
-#define scm_tc7_unused_11 95
+#define scm_tc7_array 93
+#define scm_tc7_bitvector 95
#define scm_tc7_unused_12 101
#define scm_tc7_unused_18 103
#define scm_tc7_unused_13 109
diff --git a/libguile/threads.c b/libguile/threads.c
index aeadcfe..0dba50f 100644
--- a/libguile/threads.c
+++ b/libguile/threads.c
@@ -1,4 +1,6 @@
-/* Copyright (C) 1995,1996,1997,1998,2000,2001, 2002, 2003, 2004, 2005, 2006,
2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
+/* Copyright (C) 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003, 2004,
+ * 2005, 2006, 2007, 2008, 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 License
@@ -25,6 +27,7 @@
#include "libguile/bdw-gc.h"
#include "libguile/_scm.h"
+#include <stdlib.h>
#if HAVE_UNISTD_H
#include <unistd.h>
#endif
@@ -38,6 +41,10 @@
#include <sys/time.h>
#endif
+#if HAVE_PTHREAD_NP_H
+# include <pthread_np.h>
+#endif
+
#include <assert.h>
#include <fcntl.h>
#include <nproc.h>
@@ -140,6 +147,29 @@ get_thread_stack_base ()
return pthread_get_stackaddr_np (pthread_self ());
}
+#elif HAVE_PTHREAD_ATTR_GET_NP
+/* This one is for FreeBSD 9. */
+static void *
+get_thread_stack_base ()
+{
+ pthread_attr_t attr;
+ void *start, *end;
+ size_t size;
+
+ pthread_attr_init (&attr);
+ pthread_attr_get_np (pthread_self (), &attr);
+ pthread_attr_getstack (&attr, &start, &size);
+ pthread_attr_destroy (&attr);
+
+ end = (char *)start + size;
+
+#if SCM_STACK_GROWS_UP
+ return start;
+#else
+ return end;
+#endif
+}
+
#else
#error Threads enabled with old BDW-GC, but missing get_thread_stack_base
impl. Please upgrade to libgc >= 7.1.
#endif
@@ -2216,6 +2246,21 @@ scm_ia64_ar_bsp (const void *opaque)
return (void *) ctx->uc_mcontext.sc_ar_bsp;
}
# endif /* linux */
+# ifdef __FreeBSD__
+# include <ucontext.h>
+void *
+scm_ia64_register_backing_store_base (void)
+{
+ return (void *)0x8000000000000000;
+}
+void *
+scm_ia64_ar_bsp (const void *opaque)
+{
+ const ucontext_t *ctx = opaque;
+ return (void *)(ctx->uc_mcontext.mc_special.bspstore
+ + ctx->uc_mcontext.mc_special.ndirty);
+}
+# endif /* __FreeBSD__ */
#endif /* __ia64__ */
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 5395ed1..1de5edf 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -1,7 +1,8 @@
;;; -*- mode: scheme; coding: utf-8; -*-
-;;;; Copyright (C)
1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011
-;;;; Free Software Foundation, Inc.
+;;;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
+;;;; 2004, 2005, 2006, 2007, 2008, 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
@@ -2979,7 +2980,7 @@ module '(ice-9 q) '(make-q q-length))}."
;; 0 by printing a newline, but we then advance it by printing
;; the prompt. However the port-column of the output port
;; does not typically correspond with the actual column on the
- ;; screen, because the input is is echoed back! Since the
+ ;; screen, because the input is echoed back! Since the
;; input is line-buffered and thus ends with a newline, the
;; output will really start on column zero. So, here we zero
;; it out. See bug 9664.
@@ -3463,7 +3464,7 @@ module '(ice-9 q) '(make-q q-length))}."
;;; {`load'.}
;;;
;;; Load is tricky when combined with relative paths, compilation, and
-;;; the filesystem. If a path is relative, what is it relative to? The
+;;; the file system. If a path is relative, what is it relative to? The
;;; path of the source file at the time it was compiled? The path of
;;; the compiled file? What if both or either were installed? And how
;;; do you get that information? Tricky, I say.
diff --git a/module/ice-9/ftw.scm b/module/ice-9/ftw.scm
index eed3eeb..96422b5 100644
--- a/module/ice-9/ftw.scm
+++ b/module/ice-9/ftw.scm
@@ -1,6 +1,6 @@
;;;; ftw.scm --- file system tree walk
-;;;; Copyright (C) 2002, 2003, 2006, 2011 Free Software Foundation, Inc.
+;;;; Copyright (C) 2002, 2003, 2006, 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
@@ -389,7 +389,14 @@
;;; `file-system-fold' & co.
;;;
-(define* (file-system-fold enter? leaf down up skip init file-name
+(define-syntax-rule (errno-if-exception expr)
+ (catch 'system-error
+ (lambda ()
+ expr)
+ (lambda args
+ (system-error-errno args))))
+
+(define* (file-system-fold enter? leaf down up skip error init file-name
#:optional (stat lstat))
"Traverse the directory at FILE-NAME, recursively. Enter
sub-directories only when (ENTER? PATH STAT RESULT) returns true. When
@@ -397,7 +404,11 @@ a sub-directory is entered, call (DOWN PATH STAT RESULT),
where PATH is
the path of the sub-directory and STAT the result of (stat PATH); when
it is left, call (UP PATH STAT RESULT). For each file in a directory,
call (LEAF PATH STAT RESULT). When ENTER? returns false, call (SKIP
-PATH STAT RESULT). Return the result of these successive applications.
+PATH STAT RESULT). When an `opendir' or STAT call raises an exception,
+call (ERROR PATH STAT ERRNO RESULT), with ERRNO being the operating
+system error number that was raised.
+
+Return the result of these successive applications.
When FILE-NAME names a flat file, (LEAF PATH STAT INIT) is returned.
The optional STAT parameter defaults to `lstat'."
@@ -409,7 +420,7 @@ The optional STAT parameter defaults to `lstat'."
(let loop ((name file-name)
(path "")
- (dir-stat (false-if-exception (stat file-name)))
+ (dir-stat (errno-if-exception (stat file-name)))
(result init)
(visited vlist-null))
@@ -419,57 +430,60 @@ The optional STAT parameter defaults to `lstat'."
(string-append path "/" name)))
(cond
- ((not dir-stat)
+ ((integer? dir-stat)
;; FILE-NAME is not readable.
- (leaf full-name dir-stat result))
+ (error full-name #f dir-stat result))
((visited? visited dir-stat)
(values result visited))
((eq? 'directory (stat:type dir-stat)) ; true except perhaps the 1st time
(if (enter? full-name dir-stat result)
- (let ((dir (false-if-exception (opendir full-name)))
+ (let ((dir (errno-if-exception (opendir full-name)))
(visited (mark visited dir-stat)))
- (if dir
- (let liip ((entry (readdir dir))
- (result (down full-name dir-stat result))
- (subdirs '()))
- (cond ((eof-object? entry)
- (begin
- (closedir dir)
- (let ((r+v
- (fold (lambda (subdir result+visited)
- (call-with-values
- (lambda ()
- (loop (car subdir)
- full-name
- (cdr subdir)
- (car result+visited)
- (cdr result+visited)))
- cons))
- (cons result visited)
- subdirs)))
- (values (up full-name dir-stat (car r+v))
- (cdr r+v)))))
- ((or (string=? entry ".")
- (string=? entry ".."))
- (liip (readdir dir)
- result
- subdirs))
- (else
- (let* ((child (string-append full-name "/" entry))
- (st (false-if-exception (stat child))))
- (if (and st (eq? (stat:type st) 'directory))
- (liip (readdir dir)
- result
- (alist-cons entry st subdirs))
- (liip (readdir dir)
- (leaf child st result)
- subdirs))))))
-
- ;; Directory FULL-NAME not readable.
- ;; XXX: It's up to the user to distinguish between not
- ;; readable and not ENTER?.
- (values (skip full-name dir-stat result)
- visited)))
+ (cond
+ ((directory-stream? dir)
+ (let liip ((entry (readdir dir))
+ (result (down full-name dir-stat result))
+ (subdirs '()))
+ (cond ((eof-object? entry)
+ (begin
+ (closedir dir)
+ (let ((r+v
+ (fold (lambda (subdir result+visited)
+ (call-with-values
+ (lambda ()
+ (loop (car subdir)
+ full-name
+ (cdr subdir)
+ (car result+visited)
+ (cdr result+visited)))
+ cons))
+ (cons result visited)
+ subdirs)))
+ (values (up full-name dir-stat (car r+v))
+ (cdr r+v)))))
+ ((or (string=? entry ".")
+ (string=? entry ".."))
+ (liip (readdir dir)
+ result
+ subdirs))
+ (else
+ (let* ((child (string-append full-name "/" entry))
+ (st (errno-if-exception (stat child))))
+ (if (integer? st) ; CHILD is a dangling symlink?
+ (liip (readdir dir)
+ (error child #f st result)
+ subdirs)
+ (if (eq? (stat:type st) 'directory)
+ (liip (readdir dir)
+ result
+ (alist-cons entry st subdirs))
+ (liip (readdir dir)
+ (leaf child st result)
+ subdirs))))))))
+ (else
+ ;; Directory FULL-NAME not readable, but it is stat'able.
+ (values (error full-name dir-stat dir result)
+ visited))))
(values (skip full-name dir-stat result)
(mark visited dir-stat))))
(else
@@ -480,13 +494,14 @@ The optional STAT parameter defaults to `lstat'."
#:optional (enter? (lambda (n s) #t))
(stat lstat))
"Return a tree of the form (FILE-NAME STAT CHILDREN ...) where STAT is
-the result of (stat FILE-NAME) and CHILDREN are similar structures for
+the result of (STAT FILE-NAME) and CHILDREN are similar structures for
each file contained in FILE-NAME when it designates a directory. The
optional ENTER? predicate is invoked as (ENTER? NAME STAT) and should
return true to allow recursion into directory NAME; the default value is
a procedure that always returns #t. When a directory does not match
ENTER?, it nonetheless appears in the resulting tree, only with zero
-children. The optional STAT parameter defaults to `lstat'."
+children. The optional STAT parameter defaults to `lstat'. Return #f
+when FILE-NAME is not readable."
(define (enter?* name stat result)
(enter? name stat))
(define (leaf name stat result)
@@ -504,8 +519,15 @@ children. The optional STAT parameter defaults to
`lstat'."
rest))))
(define skip ; keep an entry for skipped directories
leaf)
+ (define (error name stat errno result)
+ (if (string=? name file-name)
+ result
+ (leaf name stat result)))
- (caar (file-system-fold enter?* leaf down up skip '(()) file-name stat)))
+ (match (file-system-fold enter?* leaf down up skip error '(())
+ file-name stat)
+ (((tree)) tree)
+ ((()) #f))) ; FILE-NAME is unreadable
(define* (scandir name #:optional (select? (const #t))
(entry<? string-locale<?))
@@ -530,9 +552,14 @@ of file names is sorted according to ENTRY<?, which
defaults to
(define (skip name stat result)
;; All the sub-directories are skipped.
- result)
+ (cons (basename name) result))
+
+ (define (error name* stat errno result)
+ (if (string=? name name*) ; top-level NAME is unreadable
+ result
+ (cons (basename name*) result)))
- (and=> (file-system-fold enter? leaf down up skip #f name stat)
+ (and=> (file-system-fold enter? leaf down up skip error #f name stat)
(lambda (files)
(sort files entry<?))))
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 68c7667..43a2cf5 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1997 +2,1999 @@
(if #f #f)
(letrec*
- ((#{top-level-eval-hook 4370}#
- (lambda (#{x 35759}# #{mod 35760}#)
- (primitive-eval #{x 35759}#)))
- (#{maybe-name-value! 4375}#
- (lambda (#{name 18991}# #{val 18992}#)
- (if (if (struct? #{val 18992}#)
- (eq? (struct-vtable #{val 18992}#)
+ ((#{top-level-eval-hook 28198}#
+ (lambda (#{x 58998}# #{mod 58999}#)
+ (primitive-eval #{x 58998}#)))
+ (#{maybe-name-value! 28203}#
+ (lambda (#{name 42551}# #{val 42552}#)
+ (if (if (struct? #{val 42552}#)
+ (eq? (struct-vtable #{val 42552}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 18999}# (struct-ref #{val 18992}# 1)))
- (if (not (assq 'name #{meta 18999}#))
- (let ((#{v 19004}#
- (cons (cons 'name #{name 18991}#) #{meta 18999}#)))
- (struct-set! #{val 18992}# 1 #{v 19004}#)))))))
- (#{build-call 4377}#
- (lambda (#{source 18736}#
- #{fun-exp 18737}#
- #{arg-exps 18738}#)
+ (let ((#{meta 42559}# (struct-ref #{val 42552}# 1)))
+ (if (not (assq 'name #{meta 42559}#))
+ (let ((#{v 42564}#
+ (cons (cons 'name #{name 42551}#) #{meta 42559}#)))
+ (struct-set! #{val 42552}# 1 #{v 42564}#)))))))
+ (#{build-call 28205}#
+ (lambda (#{source 42296}#
+ #{fun-exp 42297}#
+ #{arg-exps 42298}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{source 18736}#
- #{fun-exp 18737}#
- #{arg-exps 18738}#)))
- (#{build-conditional 4378}#
- (lambda (#{source 18744}#
- #{test-exp 18745}#
- #{then-exp 18746}#
- #{else-exp 18747}#)
+ #{source 42296}#
+ #{fun-exp 42297}#
+ #{arg-exps 42298}#)))
+ (#{build-conditional 28206}#
+ (lambda (#{source 42304}#
+ #{test-exp 42305}#
+ #{then-exp 42306}#
+ #{else-exp 42307}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{source 18744}#
- #{test-exp 18745}#
- #{then-exp 18746}#
- #{else-exp 18747}#)))
- (#{build-dynlet 4379}#
- (lambda (#{source 18754}#
- #{fluids 18755}#
- #{vals 18756}#
- #{body 18757}#)
+ #{source 42304}#
+ #{test-exp 42305}#
+ #{then-exp 42306}#
+ #{else-exp 42307}#)))
+ (#{build-dynlet 28207}#
+ (lambda (#{source 42314}#
+ #{fluids 42315}#
+ #{vals 42316}#
+ #{body 42317}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 18)
- #{source 18754}#
- #{fluids 18755}#
- #{vals 18756}#
- #{body 18757}#)))
- (#{build-lexical-reference 4380}#
- (lambda (#{type 35761}#
- #{source 35762}#
- #{name 35763}#
- #{var 35764}#)
+ #{source 42314}#
+ #{fluids 42315}#
+ #{vals 42316}#
+ #{body 42317}#)))
+ (#{build-lexical-reference 28208}#
+ (lambda (#{type 59000}#
+ #{source 59001}#
+ #{name 59002}#
+ #{var 59003}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{source 35762}#
- #{name 35763}#
- #{var 35764}#)))
- (#{build-lexical-assignment 4381}#
- (lambda (#{source 18764}#
- #{name 18765}#
- #{var 18766}#
- #{exp 18767}#)
+ #{source 59001}#
+ #{name 59002}#
+ #{var 59003}#)))
+ (#{build-lexical-assignment 28209}#
+ (lambda (#{source 42324}#
+ #{name 42325}#
+ #{var 42326}#
+ #{exp 42327}#)
(begin
- (if (if (struct? #{exp 18767}#)
- (eq? (struct-vtable #{exp 18767}#)
+ (if (if (struct? #{exp 42327}#)
+ (eq? (struct-vtable #{exp 42327}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 18783}# (struct-ref #{exp 18767}# 1)))
- (if (not (assq 'name #{meta 18783}#))
- (let ((#{v 18790}#
- (cons (cons 'name #{name 18765}#) #{meta 18783}#)))
- (struct-set! #{exp 18767}# 1 #{v 18790}#)))))
+ (let ((#{meta 42343}# (struct-ref #{exp 42327}# 1)))
+ (if (not (assq 'name #{meta 42343}#))
+ (let ((#{v 42350}#
+ (cons (cons 'name #{name 42325}#) #{meta 42343}#)))
+ (struct-set! #{exp 42327}# 1 #{v 42350}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{source 18764}#
- #{name 18765}#
- #{var 18766}#
- #{exp 18767}#))))
- (#{analyze-variable 4382}#
- (lambda (#{mod 35770}#
- #{var 35771}#
- #{modref-cont 35772}#
- #{bare-cont 35773}#)
- (if (not #{mod 35770}#)
- (#{bare-cont 35773}# #{var 35771}#)
- (let ((#{kind 35774}# (car #{mod 35770}#))
- (#{mod 35775}# (cdr #{mod 35770}#)))
- (if (eqv? #{kind 35774}# 'public)
- (#{modref-cont 35772}#
- #{mod 35775}#
- #{var 35771}#
+ #{source 42324}#
+ #{name 42325}#
+ #{var 42326}#
+ #{exp 42327}#))))
+ (#{analyze-variable 28210}#
+ (lambda (#{mod 59009}#
+ #{var 59010}#
+ #{modref-cont 59011}#
+ #{bare-cont 59012}#)
+ (if (not #{mod 59009}#)
+ (#{bare-cont 59012}# #{var 59010}#)
+ (let ((#{kind 59013}# (car #{mod 59009}#))
+ (#{mod 59014}# (cdr #{mod 59009}#)))
+ (if (eqv? #{kind 59013}# 'public)
+ (#{modref-cont 59011}#
+ #{mod 59014}#
+ #{var 59010}#
#t)
- (if (eqv? #{kind 35774}# 'private)
+ (if (eqv? #{kind 59013}# 'private)
(if (not (equal?
- #{mod 35775}#
+ #{mod 59014}#
(module-name (current-module))))
- (#{modref-cont 35772}#
- #{mod 35775}#
- #{var 35771}#
+ (#{modref-cont 59011}#
+ #{mod 59014}#
+ #{var 59010}#
#f)
- (#{bare-cont 35773}# #{var 35771}#))
- (if (eqv? #{kind 35774}# 'bare)
- (#{bare-cont 35773}# #{var 35771}#)
- (if (eqv? #{kind 35774}# 'hygiene)
+ (#{bare-cont 59012}# #{var 59010}#))
+ (if (eqv? #{kind 59013}# 'bare)
+ (#{bare-cont 59012}# #{var 59010}#)
+ (if (eqv? #{kind 59013}# 'hygiene)
(if (if (not (equal?
- #{mod 35775}#
+ #{mod 59014}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod 35775}#)
- #{var 35771}#)
+ (resolve-module #{mod 59014}#)
+ #{var 59010}#)
#f)
- (#{modref-cont 35772}#
- #{mod 35775}#
- #{var 35771}#
+ (#{modref-cont 59011}#
+ #{mod 59014}#
+ #{var 59010}#
#f)
- (#{bare-cont 35773}# #{var 35771}#))
+ (#{bare-cont 59012}# #{var 59010}#))
(syntax-violation
#f
"bad module kind"
- #{var 35771}#
- #{mod 35775}#)))))))))
- (#{build-global-reference 4383}#
- (lambda (#{source 35790}# #{var 35791}# #{mod 35792}#)
- (#{analyze-variable 4382}#
- #{mod 35792}#
- #{var 35791}#
- (lambda (#{mod 35795}# #{var 35796}# #{public? 35797}#)
+ #{var 59010}#
+ #{mod 59014}#)))))))))
+ (#{build-global-reference 28211}#
+ (lambda (#{source 59029}# #{var 59030}# #{mod 59031}#)
+ (#{analyze-variable 28210}#
+ #{mod 59031}#
+ #{var 59030}#
+ (lambda (#{mod 59034}# #{var 59035}# #{public? 59036}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{source 35790}#
- #{mod 35795}#
- #{var 35796}#
- #{public? 35797}#))
- (lambda (#{var 35804}#)
+ #{source 59029}#
+ #{mod 59034}#
+ #{var 59035}#
+ #{public? 59036}#))
+ (lambda (#{var 59043}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{source 35790}#
- #{var 35804}#)))))
- (#{build-global-assignment 4384}#
- (lambda (#{source 18799}#
- #{var 18800}#
- #{exp 18801}#
- #{mod 18802}#)
+ #{source 59029}#
+ #{var 59043}#)))))
+ (#{build-global-assignment 28212}#
+ (lambda (#{source 42359}#
+ #{var 42360}#
+ #{exp 42361}#
+ #{mod 42362}#)
(begin
- (if (if (struct? #{exp 18801}#)
- (eq? (struct-vtable #{exp 18801}#)
+ (if (if (struct? #{exp 42361}#)
+ (eq? (struct-vtable #{exp 42361}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 18818}# (struct-ref #{exp 18801}# 1)))
- (if (not (assq 'name #{meta 18818}#))
- (let ((#{v 18825}#
- (cons (cons 'name #{var 18800}#) #{meta 18818}#)))
- (struct-set! #{exp 18801}# 1 #{v 18825}#)))))
- (#{analyze-variable 4382}#
- #{mod 18802}#
- #{var 18800}#
- (lambda (#{mod 18830}# #{var 18831}# #{public? 18832}#)
+ (let ((#{meta 42378}# (struct-ref #{exp 42361}# 1)))
+ (if (not (assq 'name #{meta 42378}#))
+ (let ((#{v 42385}#
+ (cons (cons 'name #{var 42360}#) #{meta 42378}#)))
+ (struct-set! #{exp 42361}# 1 #{v 42385}#)))))
+ (#{analyze-variable 28210}#
+ #{mod 42362}#
+ #{var 42360}#
+ (lambda (#{mod 42390}# #{var 42391}# #{public? 42392}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{source 18799}#
- #{mod 18830}#
- #{var 18831}#
- #{public? 18832}#
- #{exp 18801}#))
- (lambda (#{var 18840}#)
+ #{source 42359}#
+ #{mod 42390}#
+ #{var 42391}#
+ #{public? 42392}#
+ #{exp 42361}#))
+ (lambda (#{var 42400}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{source 18799}#
- #{var 18840}#
- #{exp 18801}#))))))
- (#{build-global-definition 4385}#
- (lambda (#{source 35809}# #{var 35810}# #{exp 35811}#)
+ #{source 42359}#
+ #{var 42400}#
+ #{exp 42361}#))))))
+ (#{build-global-definition 28213}#
+ (lambda (#{source 59048}# #{var 59049}# #{exp 59050}#)
(begin
- (if (if (struct? #{exp 35811}#)
- (eq? (struct-vtable #{exp 35811}#)
+ (if (if (struct? #{exp 59050}#)
+ (eq? (struct-vtable #{exp 59050}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 35827}# (struct-ref #{exp 35811}# 1)))
- (if (not (assq 'name #{meta 35827}#))
- (let ((#{v 35834}#
- (cons (cons 'name #{var 35810}#) #{meta 35827}#)))
- (struct-set! #{exp 35811}# 1 #{v 35834}#)))))
+ (let ((#{meta 59066}# (struct-ref #{exp 59050}# 1)))
+ (if (not (assq 'name #{meta 59066}#))
+ (let ((#{v 59073}#
+ (cons (cons 'name #{var 59049}#) #{meta 59066}#)))
+ (struct-set! #{exp 59050}# 1 #{v 59073}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{source 35809}#
- #{var 35810}#
- #{exp 35811}#))))
- (#{build-simple-lambda 4386}#
- (lambda (#{src 18846}#
- #{req 18847}#
- #{rest 18848}#
- #{vars 18849}#
- #{meta 18850}#
- #{exp 18851}#)
- (let ((#{body 18857}#
+ #{source 59048}#
+ #{var 59049}#
+ #{exp 59050}#))))
+ (#{build-simple-lambda 28214}#
+ (lambda (#{src 42406}#
+ #{req 42407}#
+ #{rest 42408}#
+ #{vars 42409}#
+ #{meta 42410}#
+ #{exp 42411}#)
+ (let ((#{body 42417}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 18846}#
- #{req 18847}#
+ #{src 42406}#
+ #{req 42407}#
#f
- #{rest 18848}#
+ #{rest 42408}#
#f
'()
- #{vars 18849}#
- #{exp 18851}#
+ #{vars 42409}#
+ #{exp 42411}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 18846}#
- #{meta 18850}#
- #{body 18857}#))))
- (#{build-primcall 4389}#
- (lambda (#{src 18869}# #{name 18870}# #{args 18871}#)
+ #{src 42406}#
+ #{meta 42410}#
+ #{body 42417}#))))
+ (#{build-primcall 28217}#
+ (lambda (#{src 42429}# #{name 42430}# #{args 42431}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src 18869}#
- #{name 18870}#
- #{args 18871}#)))
- (#{build-sequence 4392}#
- (lambda (#{src 35842}# #{exps 35843}#)
- (if (null? (cdr #{exps 35843}#))
- (car #{exps 35843}#)
- (let ((#{head 35847}# (car #{exps 35843}#))
- (#{tail 35848}#
- (#{build-sequence 4392}# #f (cdr #{exps 35843}#))))
+ #{src 42429}#
+ #{name 42430}#
+ #{args 42431}#)))
+ (#{build-sequence 28220}#
+ (lambda (#{src 59081}# #{exps 59082}#)
+ (if (null? (cdr #{exps 59082}#))
+ (car #{exps 59082}#)
+ (let ((#{head 59086}# (car #{exps 59082}#))
+ (#{tail 59087}#
+ (#{build-sequence 28220}#
+ #f
+ (cdr #{exps 59082}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 35842}#
- #{head 35847}#
- #{tail 35848}#)))))
- (#{build-named-let 4394}#
- (lambda (#{src 18877}#
- #{ids 18878}#
- #{vars 18879}#
- #{val-exps 18880}#
- #{body-exp 18881}#)
- (let ((#{f 18882}# (car #{vars 18879}#))
- (#{f-name 18883}# (car #{ids 18878}#))
- (#{vars 18884}# (cdr #{vars 18879}#))
- (#{ids 18885}# (cdr #{ids 18878}#)))
- (let ((#{proc 18886}#
- (let ((#{body 18906}#
+ #{src 59081}#
+ #{head 59086}#
+ #{tail 59087}#)))))
+ (#{build-named-let 28222}#
+ (lambda (#{src 42437}#
+ #{ids 42438}#
+ #{vars 42439}#
+ #{val-exps 42440}#
+ #{body-exp 42441}#)
+ (let ((#{f 42442}# (car #{vars 42439}#))
+ (#{f-name 42443}# (car #{ids 42438}#))
+ (#{vars 42444}# (cdr #{vars 42439}#))
+ (#{ids 42445}# (cdr #{ids 42438}#)))
+ (let ((#{proc 42446}#
+ (let ((#{body 42466}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 18877}#
- #{ids 18885}#
+ #{src 42437}#
+ #{ids 42445}#
#f
#f
#f
'()
- #{vars 18884}#
- #{body-exp 18881}#
+ #{vars 42444}#
+ #{body-exp 42441}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 18877}#
+ #{src 42437}#
'()
- #{body 18906}#))))
+ #{body 42466}#))))
(begin
- (if (if (struct? #{proc 18886}#)
- (eq? (struct-vtable #{proc 18886}#)
+ (if (if (struct? #{proc 42446}#)
+ (eq? (struct-vtable #{proc 42446}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 18930}# (struct-ref #{proc 18886}# 1)))
- (if (not (assq 'name #{meta 18930}#))
- (let ((#{v 18937}#
- (cons (cons 'name #{f-name 18883}#)
- #{meta 18930}#)))
- (struct-set! #{proc 18886}# 1 #{v 18937}#)))))
+ (let ((#{meta 42490}# (struct-ref #{proc 42446}# 1)))
+ (if (not (assq 'name #{meta 42490}#))
+ (let ((#{v 42497}#
+ (cons (cons 'name #{f-name 42443}#)
+ #{meta 42490}#)))
+ (struct-set! #{proc 42446}# 1 #{v 42497}#)))))
(for-each
- #{maybe-name-value! 4375}#
- #{ids 18885}#
- #{val-exps 18880}#)
- (let ((#{names 18961}# (list #{f-name 18883}#))
- (#{gensyms 18962}# (list #{f 18882}#))
- (#{vals 18963}# (list #{proc 18886}#))
- (#{body 18964}#
- (let ((#{fun-exp 18968}#
+ #{maybe-name-value! 28203}#
+ #{ids 42445}#
+ #{val-exps 42440}#)
+ (let ((#{names 42521}# (list #{f-name 42443}#))
+ (#{gensyms 42522}# (list #{f 42442}#))
+ (#{vals 42523}# (list #{proc 42446}#))
+ (#{body 42524}#
+ (let ((#{fun-exp 42528}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src 18877}#
- #{f-name 18883}#
- #{f 18882}#)))
+ #{src 42437}#
+ #{f-name 42443}#
+ #{f 42442}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src 18877}#
- #{fun-exp 18968}#
- #{val-exps 18880}#))))
+ #{src 42437}#
+ #{fun-exp 42528}#
+ #{val-exps 42440}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src 18877}#
+ #{src 42437}#
#f
- #{names 18961}#
- #{gensyms 18962}#
- #{vals 18963}#
- #{body 18964}#)))))))
- (#{build-letrec 4395}#
- (lambda (#{src 18984}#
- #{in-order? 18985}#
- #{ids 18986}#
- #{vars 18987}#
- #{val-exps 18988}#
- #{body-exp 18989}#)
- (if (null? #{vars 18987}#)
- #{body-exp 18989}#
+ #{names 42521}#
+ #{gensyms 42522}#
+ #{vals 42523}#
+ #{body 42524}#)))))))
+ (#{build-letrec 28223}#
+ (lambda (#{src 42544}#
+ #{in-order? 42545}#
+ #{ids 42546}#
+ #{vars 42547}#
+ #{val-exps 42548}#
+ #{body-exp 42549}#)
+ (if (null? #{vars 42547}#)
+ #{body-exp 42549}#
(begin
(for-each
- #{maybe-name-value! 4375}#
- #{ids 18986}#
- #{val-exps 18988}#)
+ #{maybe-name-value! 28203}#
+ #{ids 42546}#
+ #{val-exps 42548}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src 18984}#
- #{in-order? 18985}#
- #{ids 18986}#
- #{vars 18987}#
- #{val-exps 18988}#
- #{body-exp 18989}#)))))
- (#{source-annotation 4404}#
- (lambda (#{x 19015}#)
- (if (if (vector? #{x 19015}#)
- (if (= (vector-length #{x 19015}#) 4)
- (eq? (vector-ref #{x 19015}# 0) 'syntax-object)
+ #{src 42544}#
+ #{in-order? 42545}#
+ #{ids 42546}#
+ #{vars 42547}#
+ #{val-exps 42548}#
+ #{body-exp 42549}#)))))
+ (#{source-annotation 28232}#
+ (lambda (#{x 42575}#)
+ (if (if (vector? #{x 42575}#)
+ (if (= (vector-length #{x 42575}#) 4)
+ (eq? (vector-ref #{x 42575}# 0) 'syntax-object)
#f)
#f)
- (#{source-annotation 4404}#
- (vector-ref #{x 19015}# 1))
- (if (pair? #{x 19015}#)
- (let ((#{props 19030}# (source-properties #{x 19015}#)))
- (if (pair? #{props 19030}#) #{props 19030}# #f))
+ (#{source-annotation 28232}#
+ (vector-ref #{x 42575}# 1))
+ (if (pair? #{x 42575}#)
+ (let ((#{props 42590}# (source-properties #{x 42575}#)))
+ (if (pair? #{props 42590}#) #{props 42590}# #f))
#f))))
- (#{extend-env 4405}#
- (lambda (#{labels 19032}# #{bindings 19033}# #{r 19034}#)
- (if (null? #{labels 19032}#)
- #{r 19034}#
- (#{extend-env 4405}#
- (cdr #{labels 19032}#)
- (cdr #{bindings 19033}#)
- (cons (cons (car #{labels 19032}#)
- (car #{bindings 19033}#))
- #{r 19034}#)))))
- (#{extend-var-env 4406}#
- (lambda (#{labels 19035}# #{vars 19036}# #{r 19037}#)
- (if (null? #{labels 19035}#)
- #{r 19037}#
- (#{extend-var-env 4406}#
- (cdr #{labels 19035}#)
- (cdr #{vars 19036}#)
- (cons (cons (car #{labels 19035}#)
- (cons 'lexical (car #{vars 19036}#)))
- #{r 19037}#)))))
- (#{macros-only-env 4407}#
- (lambda (#{r 19038}#)
- (if (null? #{r 19038}#)
+ (#{extend-env 28233}#
+ (lambda (#{labels 42592}# #{bindings 42593}# #{r 42594}#)
+ (if (null? #{labels 42592}#)
+ #{r 42594}#
+ (#{extend-env 28233}#
+ (cdr #{labels 42592}#)
+ (cdr #{bindings 42593}#)
+ (cons (cons (car #{labels 42592}#)
+ (car #{bindings 42593}#))
+ #{r 42594}#)))))
+ (#{extend-var-env 28234}#
+ (lambda (#{labels 42595}# #{vars 42596}# #{r 42597}#)
+ (if (null? #{labels 42595}#)
+ #{r 42597}#
+ (#{extend-var-env 28234}#
+ (cdr #{labels 42595}#)
+ (cdr #{vars 42596}#)
+ (cons (cons (car #{labels 42595}#)
+ (cons 'lexical (car #{vars 42596}#)))
+ #{r 42597}#)))))
+ (#{macros-only-env 28235}#
+ (lambda (#{r 42598}#)
+ (if (null? #{r 42598}#)
'()
- (let ((#{a 19039}# (car #{r 19038}#)))
- (if (let ((#{t 19042}# (car (cdr #{a 19039}#))))
- (if (eq? #{t 19042}# 'macro)
+ (let ((#{a 42599}# (car #{r 42598}#)))
+ (if (let ((#{t 42602}# (car (cdr #{a 42599}#))))
+ (if (eq? #{t 42602}# 'macro)
#t
- (eq? #{t 19042}# 'syntax-parameter)))
- (cons #{a 19039}#
- (#{macros-only-env 4407}# (cdr #{r 19038}#)))
- (#{macros-only-env 4407}# (cdr #{r 19038}#)))))))
- (#{global-extend 4408}#
- (lambda (#{type 19044}# #{sym 19045}# #{val 19046}#)
+ (eq? #{t 42602}# 'syntax-parameter)))
+ (cons #{a 42599}#
+ (#{macros-only-env 28235}# (cdr #{r 42598}#)))
+ (#{macros-only-env 28235}# (cdr #{r 42598}#)))))))
+ (#{global-extend 28236}#
+ (lambda (#{type 42604}# #{sym 42605}# #{val 42606}#)
(module-define!
(current-module)
- #{sym 19045}#
+ #{sym 42605}#
(make-syntax-transformer
- #{sym 19045}#
- #{type 19044}#
- #{val 19046}#))))
- (#{id? 4410}#
- (lambda (#{x 11968}#)
- (if (symbol? #{x 11968}#)
+ #{sym 42605}#
+ #{type 42604}#
+ #{val 42606}#))))
+ (#{id? 28238}#
+ (lambda (#{x 35679}#)
+ (if (symbol? #{x 35679}#)
#t
- (if (if (vector? #{x 11968}#)
- (if (= (vector-length #{x 11968}#) 4)
- (eq? (vector-ref #{x 11968}# 0) 'syntax-object)
+ (if (if (vector? #{x 35679}#)
+ (if (= (vector-length #{x 35679}#) 4)
+ (eq? (vector-ref #{x 35679}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 11968}# 1))
+ (symbol? (vector-ref #{x 35679}# 1))
#f))))
- (#{gen-labels 4413}#
- (lambda (#{ls 19056}#)
- (if (null? #{ls 19056}#)
+ (#{gen-labels 28241}#
+ (lambda (#{ls 42616}#)
+ (if (null? #{ls 42616}#)
'()
(cons (symbol->string (gensym "i"))
- (#{gen-labels 4413}# (cdr #{ls 19056}#))))))
- (#{make-binding-wrap 4424}#
- (lambda (#{ids 19060}# #{labels 19061}# #{w 19062}#)
- (if (null? #{ids 19060}#)
- #{w 19062}#
- (cons (car #{w 19062}#)
- (cons (let ((#{labelvec 19063}#
- (list->vector #{labels 19061}#)))
- (let ((#{n 19064}# (vector-length #{labelvec 19063}#)))
- (let ((#{symnamevec 19065}# (make-vector #{n 19064}#))
- (#{marksvec 19066}# (make-vector #{n 19064}#)))
+ (#{gen-labels 28241}# (cdr #{ls 42616}#))))))
+ (#{make-binding-wrap 28252}#
+ (lambda (#{ids 42620}# #{labels 42621}# #{w 42622}#)
+ (if (null? #{ids 42620}#)
+ #{w 42622}#
+ (cons (car #{w 42622}#)
+ (cons (let ((#{labelvec 42623}#
+ (list->vector #{labels 42621}#)))
+ (let ((#{n 42624}# (vector-length #{labelvec 42623}#)))
+ (let ((#{symnamevec 42625}# (make-vector #{n 42624}#))
+ (#{marksvec 42626}# (make-vector #{n 42624}#)))
(begin
(letrec*
- ((#{f 19067}#
- (lambda (#{ids 19266}# #{i 19267}#)
- (if (not (null? #{ids 19266}#))
+ ((#{f 42627}#
+ (lambda (#{ids 42824}# #{i 42825}#)
+ (if (not (null? #{ids 42824}#))
(call-with-values
(lambda ()
- (let ((#{x 19270}#
- (car #{ids 19266}#)))
- (if (if (vector? #{x 19270}#)
+ (let ((#{x 42828}#
+ (car #{ids 42824}#)))
+ (if (if (vector? #{x 42828}#)
(if (= (vector-length
- #{x 19270}#)
+ #{x 42828}#)
4)
(eq? (vector-ref
- #{x 19270}#
+ #{x 42828}#
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref #{x 19270}# 1)
- (let ((#{m1 19286}#
- (car #{w 19062}#))
- (#{m2 19287}#
+ (vector-ref #{x 42828}# 1)
+ (let ((#{m1 42844}#
+ (car #{w 42622}#))
+ (#{m2 42845}#
(car (vector-ref
- #{x 19270}#
+ #{x 42828}#
2))))
- (if (null? #{m2 19287}#)
- #{m1 19286}#
+ (if (null? #{m2 42845}#)
+ #{m1 42844}#
(append
- #{m1 19286}#
- #{m2 19287}#))))
+ #{m1 42844}#
+ #{m2 42845}#))))
(values
- #{x 19270}#
- (car #{w 19062}#)))))
- (lambda (#{symname 19307}#
- #{marks 19308}#)
+ #{x 42828}#
+ (car #{w 42622}#)))))
+ (lambda (#{symname 42865}#
+ #{marks 42866}#)
(begin
(vector-set!
- #{symnamevec 19065}#
- #{i 19267}#
- #{symname 19307}#)
+ #{symnamevec 42625}#
+ #{i 42825}#
+ #{symname 42865}#)
(vector-set!
- #{marksvec 19066}#
- #{i 19267}#
- #{marks 19308}#)
- (#{f 19067}#
- (cdr #{ids 19266}#)
- (#{1+}# #{i 19267}#)))))))))
- (#{f 19067}# #{ids 19060}# 0))
+ #{marksvec 42626}#
+ #{i 42825}#
+ #{marks 42866}#)
+ (#{f 42627}#
+ (cdr #{ids 42824}#)
+ (#{1+}# #{i 42825}#)))))))))
+ (#{f 42627}# #{ids 42620}# 0))
(vector
'ribcage
- #{symnamevec 19065}#
- #{marksvec 19066}#
- #{labelvec 19063}#)))))
- (cdr #{w 19062}#))))))
- (#{same-marks? 4428}#
- (lambda (#{x 35849}# #{y 35850}#)
- (if (eq? #{x 35849}# #{y 35850}#)
- (eq? #{x 35849}# #{y 35850}#)
- (if (not (null? #{x 35849}#))
- (if (not (null? #{y 35850}#))
- (if (eq? (car #{x 35849}#) (car #{y 35850}#))
- (#{same-marks? 4428}#
- (cdr #{x 35849}#)
- (cdr #{y 35850}#))
+ #{symnamevec 42625}#
+ #{marksvec 42626}#
+ #{labelvec 42623}#)))))
+ (cdr #{w 42622}#))))))
+ (#{same-marks? 28256}#
+ (lambda (#{x 59088}# #{y 59089}#)
+ (if (eq? #{x 59088}# #{y 59089}#)
+ (eq? #{x 59088}# #{y 59089}#)
+ (if (not (null? #{x 59088}#))
+ (if (not (null? #{y 59089}#))
+ (if (eq? (car #{x 59088}#) (car #{y 59089}#))
+ (#{same-marks? 28256}#
+ (cdr #{x 59088}#)
+ (cdr #{y 59089}#))
#f)
#f)
#f))))
- (#{id-var-name 4429}#
- (lambda (#{id 35858}# #{w 35859}# #{mod 35860}#)
+ (#{id-var-name 28257}#
+ (lambda (#{id 59097}# #{w 59098}# #{mod 59099}#)
(letrec*
- ((#{search 35861}#
- (lambda (#{sym 35927}#
- #{subst 35928}#
- #{marks 35929}#
- #{mod 35930}#)
- (if (null? #{subst 35928}#)
- (values #f #{marks 35929}#)
- (let ((#{fst 35931}# (car #{subst 35928}#)))
- (if (eq? #{fst 35931}# 'shift)
- (#{search 35861}#
- #{sym 35927}#
- (cdr #{subst 35928}#)
- (cdr #{marks 35929}#)
- #{mod 35930}#)
- (let ((#{symnames 35933}# (vector-ref #{fst 35931}# 1)))
- (if (vector? #{symnames 35933}#)
- (#{search-vector-rib 35863}#
- #{sym 35927}#
- #{subst 35928}#
- #{marks 35929}#
- #{symnames 35933}#
- #{fst 35931}#
- #{mod 35930}#)
- (#{search-list-rib 35862}#
- #{sym 35927}#
- #{subst 35928}#
- #{marks 35929}#
- #{symnames 35933}#
- #{fst 35931}#
- #{mod 35930}#))))))))
- (#{search-list-rib 35862}#
- (lambda (#{sym 36108}#
- #{subst 36109}#
- #{marks 36110}#
- #{symnames 36111}#
- #{ribcage 36112}#
- #{mod 36113}#)
+ ((#{search 59100}#
+ (lambda (#{sym 59166}#
+ #{subst 59167}#
+ #{marks 59168}#
+ #{mod 59169}#)
+ (if (null? #{subst 59167}#)
+ (values #f #{marks 59168}#)
+ (let ((#{fst 59170}# (car #{subst 59167}#)))
+ (if (eq? #{fst 59170}# 'shift)
+ (#{search 59100}#
+ #{sym 59166}#
+ (cdr #{subst 59167}#)
+ (cdr #{marks 59168}#)
+ #{mod 59169}#)
+ (let ((#{symnames 59172}# (vector-ref #{fst 59170}# 1)))
+ (if (vector? #{symnames 59172}#)
+ (#{search-vector-rib 59102}#
+ #{sym 59166}#
+ #{subst 59167}#
+ #{marks 59168}#
+ #{symnames 59172}#
+ #{fst 59170}#
+ #{mod 59169}#)
+ (#{search-list-rib 59101}#
+ #{sym 59166}#
+ #{subst 59167}#
+ #{marks 59168}#
+ #{symnames 59172}#
+ #{fst 59170}#
+ #{mod 59169}#))))))))
+ (#{search-list-rib 59101}#
+ (lambda (#{sym 59347}#
+ #{subst 59348}#
+ #{marks 59349}#
+ #{symnames 59350}#
+ #{ribcage 59351}#
+ #{mod 59352}#)
(letrec*
- ((#{f 36114}#
- (lambda (#{symnames 36117}# #{i 36118}#)
- (if (null? #{symnames 36117}#)
- (#{search 35861}#
- #{sym 36108}#
- (cdr #{subst 36109}#)
- #{marks 36110}#
- #{mod 36113}#)
- (if (if (eq? (car #{symnames 36117}#) #{sym 36108}#)
- (#{same-marks? 4428}#
- #{marks 36110}#
+ ((#{f 59353}#
+ (lambda (#{symnames 59356}# #{i 59357}#)
+ (if (null? #{symnames 59356}#)
+ (#{search 59100}#
+ #{sym 59347}#
+ (cdr #{subst 59348}#)
+ #{marks 59349}#
+ #{mod 59352}#)
+ (if (if (eq? (car #{symnames 59356}#) #{sym 59347}#)
+ (#{same-marks? 28256}#
+ #{marks 59349}#
(list-ref
- (vector-ref #{ribcage 36112}# 2)
- #{i 36118}#))
+ (vector-ref #{ribcage 59351}# 2)
+ #{i 59357}#))
#f)
- (let ((#{n 36264}#
+ (let ((#{n 59503}#
(list-ref
- (vector-ref #{ribcage 36112}# 3)
- #{i 36118}#)))
- (if (pair? #{n 36264}#)
- (if (equal? #{mod 36113}# (car #{n 36264}#))
- (values (cdr #{n 36264}#) #{marks 36110}#)
- (#{f 36114}#
- (cdr #{symnames 36117}#)
- (#{1+}# #{i 36118}#)))
- (values #{n 36264}# #{marks 36110}#)))
- (#{f 36114}#
- (cdr #{symnames 36117}#)
- (#{1+}# #{i 36118}#)))))))
- (#{f 36114}# #{symnames 36111}# 0))))
- (#{search-vector-rib 35863}#
- (lambda (#{sym 36269}#
- #{subst 36270}#
- #{marks 36271}#
- #{symnames 36272}#
- #{ribcage 36273}#
- #{mod 36274}#)
- (let ((#{n 36275}# (vector-length #{symnames 36272}#)))
+ (vector-ref #{ribcage 59351}# 3)
+ #{i 59357}#)))
+ (if (pair? #{n 59503}#)
+ (if (equal? #{mod 59352}# (car #{n 59503}#))
+ (values (cdr #{n 59503}#) #{marks 59349}#)
+ (#{f 59353}#
+ (cdr #{symnames 59356}#)
+ (#{1+}# #{i 59357}#)))
+ (values #{n 59503}# #{marks 59349}#)))
+ (#{f 59353}#
+ (cdr #{symnames 59356}#)
+ (#{1+}# #{i 59357}#)))))))
+ (#{f 59353}# #{symnames 59350}# 0))))
+ (#{search-vector-rib 59102}#
+ (lambda (#{sym 59508}#
+ #{subst 59509}#
+ #{marks 59510}#
+ #{symnames 59511}#
+ #{ribcage 59512}#
+ #{mod 59513}#)
+ (let ((#{n 59514}# (vector-length #{symnames 59511}#)))
(letrec*
- ((#{f 36276}#
- (lambda (#{i 36279}#)
- (if (= #{i 36279}# #{n 36275}#)
- (#{search 35861}#
- #{sym 36269}#
- (cdr #{subst 36270}#)
- #{marks 36271}#
- #{mod 36274}#)
+ ((#{f 59515}#
+ (lambda (#{i 59518}#)
+ (if (= #{i 59518}# #{n 59514}#)
+ (#{search 59100}#
+ #{sym 59508}#
+ (cdr #{subst 59509}#)
+ #{marks 59510}#
+ #{mod 59513}#)
(if (if (eq? (vector-ref
- #{symnames 36272}#
- #{i 36279}#)
- #{sym 36269}#)
- (#{same-marks? 4428}#
- #{marks 36271}#
+ #{symnames 59511}#
+ #{i 59518}#)
+ #{sym 59508}#)
+ (#{same-marks? 28256}#
+ #{marks 59510}#
(vector-ref
- (vector-ref #{ribcage 36273}# 2)
- #{i 36279}#))
+ (vector-ref #{ribcage 59512}# 2)
+ #{i 59518}#))
#f)
- (let ((#{n 36426}#
+ (let ((#{n 59665}#
(vector-ref
- (vector-ref #{ribcage 36273}# 3)
- #{i 36279}#)))
- (if (pair? #{n 36426}#)
- (if (equal? #{mod 36274}# (car #{n 36426}#))
- (values (cdr #{n 36426}#) #{marks 36271}#)
- (#{f 36276}# (#{1+}# #{i 36279}#)))
- (values #{n 36426}# #{marks 36271}#)))
- (#{f 36276}# (#{1+}# #{i 36279}#)))))))
- (#{f 36276}# 0))))))
- (if (symbol? #{id 35858}#)
- (let ((#{t 35864}#
- (#{search 35861}#
- #{id 35858}#
- (cdr #{w 35859}#)
- (car #{w 35859}#)
- #{mod 35860}#)))
- (if #{t 35864}# #{t 35864}# #{id 35858}#))
- (if (if (vector? #{id 35858}#)
- (if (= (vector-length #{id 35858}#) 4)
- (eq? (vector-ref #{id 35858}# 0) 'syntax-object)
+ (vector-ref #{ribcage 59512}# 3)
+ #{i 59518}#)))
+ (if (pair? #{n 59665}#)
+ (if (equal? #{mod 59513}# (car #{n 59665}#))
+ (values (cdr #{n 59665}#) #{marks 59510}#)
+ (#{f 59515}# (#{1+}# #{i 59518}#)))
+ (values #{n 59665}# #{marks 59510}#)))
+ (#{f 59515}# (#{1+}# #{i 59518}#)))))))
+ (#{f 59515}# 0))))))
+ (if (symbol? #{id 59097}#)
+ (let ((#{t 59103}#
+ (#{search 59100}#
+ #{id 59097}#
+ (cdr #{w 59098}#)
+ (car #{w 59098}#)
+ #{mod 59099}#)))
+ (if #{t 59103}# #{t 59103}# #{id 59097}#))
+ (if (if (vector? #{id 59097}#)
+ (if (= (vector-length #{id 59097}#) 4)
+ (eq? (vector-ref #{id 59097}# 0) 'syntax-object)
#f)
#f)
- (let ((#{id 35879}# (vector-ref #{id 35858}# 1))
- (#{w1 35880}# (vector-ref #{id 35858}# 2))
- (#{mod 35881}# (vector-ref #{id 35858}# 3)))
- (let ((#{marks 35882}#
- (let ((#{m1 35892}# (car #{w 35859}#))
- (#{m2 35893}# (car #{w1 35880}#)))
- (if (null? #{m2 35893}#)
- #{m1 35892}#
- (append #{m1 35892}# #{m2 35893}#)))))
+ (let ((#{id 59118}# (vector-ref #{id 59097}# 1))
+ (#{w1 59119}# (vector-ref #{id 59097}# 2))
+ (#{mod 59120}# (vector-ref #{id 59097}# 3)))
+ (let ((#{marks 59121}#
+ (let ((#{m1 59131}# (car #{w 59098}#))
+ (#{m2 59132}# (car #{w1 59119}#)))
+ (if (null? #{m2 59132}#)
+ #{m1 59131}#
+ (append #{m1 59131}# #{m2 59132}#)))))
(call-with-values
(lambda ()
- (#{search 35861}#
- #{id 35879}#
- (cdr #{w 35859}#)
- #{marks 35882}#
- #{mod 35881}#))
- (lambda (#{new-id 35913}# #{marks 35914}#)
- (if #{new-id 35913}#
- #{new-id 35913}#
- (let ((#{t 35922}#
- (#{search 35861}#
- #{id 35879}#
- (cdr #{w1 35880}#)
- #{marks 35914}#
- #{mod 35881}#)))
- (if #{t 35922}# #{t 35922}# #{id 35879}#)))))))
+ (#{search 59100}#
+ #{id 59118}#
+ (cdr #{w 59098}#)
+ #{marks 59121}#
+ #{mod 59120}#))
+ (lambda (#{new-id 59152}# #{marks 59153}#)
+ (if #{new-id 59152}#
+ #{new-id 59152}#
+ (let ((#{t 59161}#
+ (#{search 59100}#
+ #{id 59118}#
+ (cdr #{w1 59119}#)
+ #{marks 59153}#
+ #{mod 59120}#)))
+ (if #{t 59161}# #{t 59161}# #{id 59118}#)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id 35858}#))))))
- (#{resolve-identifier 4430}#
- (lambda (#{id 19315}#
- #{w 19316}#
- #{r 19317}#
- #{mod 19318}#
- #{resolve-syntax-parameters? 19319}#)
- (let ((#{n 19323}#
- (#{id-var-name 4429}#
- #{id 19315}#
- #{w 19316}#
- #{mod 19318}#)))
- (if (if (vector? #{n 19323}#)
- (if (= (vector-length #{n 19323}#) 4)
- (eq? (vector-ref #{n 19323}# 0) 'syntax-object)
+ #{id 59097}#))))))
+ (#{resolve-identifier 28258}#
+ (lambda (#{id 42873}#
+ #{w 42874}#
+ #{r 42875}#
+ #{mod 42876}#
+ #{resolve-syntax-parameters? 42877}#)
+ (let ((#{n 42881}#
+ (#{id-var-name 28257}#
+ #{id 42873}#
+ #{w 42874}#
+ #{mod 42876}#)))
+ (if (if (vector? #{n 42881}#)
+ (if (= (vector-length #{n 42881}#) 4)
+ (eq? (vector-ref #{n 42881}# 0) 'syntax-object)
#f)
#f)
- (#{resolve-identifier 4430}#
- #{n 19323}#
- #{w 19316}#
- #{r 19317}#
- #{mod 19318}#
- #{resolve-syntax-parameters? 19319}#)
- (if (symbol? #{n 19323}#)
- (let ((#{mod 19338}#
- (if (if (vector? #{id 19315}#)
- (if (= (vector-length #{id 19315}#) 4)
- (eq? (vector-ref #{id 19315}# 0) 'syntax-object)
+ (#{resolve-identifier 28258}#
+ #{n 42881}#
+ #{w 42874}#
+ #{r 42875}#
+ #{mod 42876}#
+ #{resolve-syntax-parameters? 42877}#)
+ (if (symbol? #{n 42881}#)
+ (let ((#{mod 42896}#
+ (if (if (vector? #{id 42873}#)
+ (if (= (vector-length #{id 42873}#) 4)
+ (eq? (vector-ref #{id 42873}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id 19315}# 3)
- #{mod 19318}#)))
- (let ((#{b 19339}#
- (let ((#{b 19342}#
- (let ((#{t 19343}#
+ (vector-ref #{id 42873}# 3)
+ #{mod 42876}#)))
+ (let ((#{b 42897}#
+ (let ((#{b 42900}#
+ (let ((#{t 42901}#
(begin
- (if (if (not #{mod 19338}#)
+ (if (if (not #{mod 42896}#)
(current-module)
#f)
(warn "module system is booted, we
should have a module"
- #{n 19323}#))
- (let ((#{v 19392}#
+ #{n 42881}#))
+ (let ((#{v 42950}#
(module-variable
- (if #{mod 19338}#
+ (if #{mod 42896}#
(resolve-module
- (cdr #{mod 19338}#))
+ (cdr #{mod 42896}#))
(current-module))
- #{n 19323}#)))
- (if #{v 19392}#
- (if (variable-bound? #{v 19392}#)
- (let ((#{val 19401}#
+ #{n 42881}#)))
+ (if #{v 42950}#
+ (if (variable-bound? #{v 42950}#)
+ (let ((#{val 42959}#
(variable-ref
- #{v 19392}#)))
- (if (macro? #{val 19401}#)
+ #{v 42950}#)))
+ (if (macro? #{val 42959}#)
(if (macro-type
- #{val 19401}#)
+ #{val 42959}#)
(cons (macro-type
- #{val 19401}#)
+ #{val 42959}#)
(macro-binding
- #{val 19401}#))
+ #{val 42959}#))
#f)
#f))
#f)
#f)))))
- (if #{t 19343}# #{t 19343}# '(global)))))
- (if (if #{resolve-syntax-parameters? 19319}#
- (eq? (car #{b 19342}#) 'syntax-parameter)
+ (if #{t 42901}# #{t 42901}# '(global)))))
+ (if (if #{resolve-syntax-parameters? 42877}#
+ (eq? (car #{b 42900}#) 'syntax-parameter)
#f)
- (let ((#{t 19410}#
- (assq-ref #{r 19317}# (cdr #{b 19342}#))))
- (if #{t 19410}#
- #{t 19410}#
- (cons 'macro (car (cdr #{b 19342}#)))))
- #{b 19342}#))))
- (if (eq? (car #{b 19339}#) 'global)
- (values 'global #{n 19323}# #{mod 19338}#)
+ (let ((#{t 42968}#
+ (assq-ref #{r 42875}# (cdr #{b 42900}#))))
+ (if #{t 42968}#
+ #{t 42968}#
+ (cons 'macro (car (cdr #{b 42900}#)))))
+ #{b 42900}#))))
+ (if (eq? (car #{b 42897}#) 'global)
+ (values 'global #{n 42881}# #{mod 42896}#)
(values
- (car #{b 19339}#)
- (cdr #{b 19339}#)
- #{mod 19338}#))))
- (if (string? #{n 19323}#)
- (let ((#{mod 19416}#
- (if (if (vector? #{id 19315}#)
- (if (= (vector-length #{id 19315}#) 4)
- (eq? (vector-ref #{id 19315}# 0) 'syntax-object)
+ (car #{b 42897}#)
+ (cdr #{b 42897}#)
+ #{mod 42896}#))))
+ (if (string? #{n 42881}#)
+ (let ((#{mod 42974}#
+ (if (if (vector? #{id 42873}#)
+ (if (= (vector-length #{id 42873}#) 4)
+ (eq? (vector-ref #{id 42873}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id 19315}# 3)
- #{mod 19318}#)))
- (let ((#{b 19417}#
- (let ((#{b 19420}#
- (let ((#{t 19421}#
- (assq-ref #{r 19317}# #{n 19323}#)))
- (if #{t 19421}#
- #{t 19421}#
+ (vector-ref #{id 42873}# 3)
+ #{mod 42876}#)))
+ (let ((#{b 42975}#
+ (let ((#{b 42978}#
+ (let ((#{t 42979}#
+ (assq-ref #{r 42875}# #{n 42881}#)))
+ (if #{t 42979}#
+ #{t 42979}#
'(displaced-lexical)))))
- (if (if #{resolve-syntax-parameters? 19319}#
- (eq? (car #{b 19420}#) 'syntax-parameter)
+ (if (if #{resolve-syntax-parameters? 42877}#
+ (eq? (car #{b 42978}#) 'syntax-parameter)
#f)
- (let ((#{t 19422}#
- (assq-ref #{r 19317}# (cdr #{b 19420}#))))
- (if #{t 19422}#
- #{t 19422}#
- (cons 'macro (car (cdr #{b 19420}#)))))
- #{b 19420}#))))
+ (let ((#{t 42980}#
+ (assq-ref #{r 42875}# (cdr #{b 42978}#))))
+ (if #{t 42980}#
+ #{t 42980}#
+ (cons 'macro (car (cdr #{b 42978}#)))))
+ #{b 42978}#))))
(values
- (car #{b 19417}#)
- (cdr #{b 19417}#)
- #{mod 19416}#)))
+ (car #{b 42975}#)
+ (cdr #{b 42975}#)
+ #{mod 42974}#)))
(error "unexpected id-var-name"
- #{id 19315}#
- #{w 19316}#
- #{n 19323}#)))))))
- (#{free-id=? 4431}#
- (lambda (#{i 19435}# #{j 19436}#)
- (let ((#{mi 19437}#
- (if (if (vector? #{i 19435}#)
- (if (= (vector-length #{i 19435}#) 4)
- (eq? (vector-ref #{i 19435}# 0) 'syntax-object)
+ #{id 42873}#
+ #{w 42874}#
+ #{n 42881}#)))))))
+ (#{free-id=? 28259}#
+ (lambda (#{i 42993}# #{j 42994}#)
+ (let ((#{mi 42995}#
+ (if (if (vector? #{i 42993}#)
+ (if (= (vector-length #{i 42993}#) 4)
+ (eq? (vector-ref #{i 42993}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{i 19435}# 3)
+ (vector-ref #{i 42993}# 3)
#f)))
- (let ((#{mj 19438}#
- (if (if (vector? #{j 19436}#)
- (if (= (vector-length #{j 19436}#) 4)
- (eq? (vector-ref #{j 19436}# 0) 'syntax-object)
+ (let ((#{mj 42996}#
+ (if (if (vector? #{j 42994}#)
+ (if (= (vector-length #{j 42994}#) 4)
+ (eq? (vector-ref #{j 42994}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{j 19436}# 3)
+ (vector-ref #{j 42994}# 3)
#f)))
- (let ((#{ni 19439}#
- (#{id-var-name 4429}#
- #{i 19435}#
+ (let ((#{ni 42997}#
+ (#{id-var-name 28257}#
+ #{i 42993}#
'(())
- #{mi 19437}#)))
- (let ((#{nj 19440}#
- (#{id-var-name 4429}#
- #{j 19436}#
+ #{mi 42995}#)))
+ (let ((#{nj 42998}#
+ (#{id-var-name 28257}#
+ #{j 42994}#
'(())
- #{mj 19438}#)))
- (if (if (vector? #{ni 19439}#)
- (if (= (vector-length #{ni 19439}#) 4)
- (eq? (vector-ref #{ni 19439}# 0) 'syntax-object)
+ #{mj 42996}#)))
+ (if (if (vector? #{ni 42997}#)
+ (if (= (vector-length #{ni 42997}#) 4)
+ (eq? (vector-ref #{ni 42997}# 0) 'syntax-object)
#f)
#f)
- (#{free-id=? 4431}# #{ni 19439}# #{j 19436}#)
- (if (if (vector? #{nj 19440}#)
- (if (= (vector-length #{nj 19440}#) 4)
- (eq? (vector-ref #{nj 19440}# 0) 'syntax-object)
+ (#{free-id=? 28259}# #{ni 42997}# #{j 42994}#)
+ (if (if (vector? #{nj 42998}#)
+ (if (= (vector-length #{nj 42998}#) 4)
+ (eq? (vector-ref #{nj 42998}# 0) 'syntax-object)
#f)
#f)
- (#{free-id=? 4431}# #{i 19435}# #{nj 19440}#)
- (if (symbol? #{ni 19439}#)
- (if (eq? #{nj 19440}#
- (if (if (vector? #{j 19436}#)
- (if (= (vector-length #{j 19436}#) 4)
- (eq? (vector-ref #{j 19436}# 0)
+ (#{free-id=? 28259}# #{i 42993}# #{nj 42998}#)
+ (if (symbol? #{ni 42997}#)
+ (if (eq? #{nj 42998}#
+ (if (if (vector? #{j 42994}#)
+ (if (= (vector-length #{j 42994}#) 4)
+ (eq? (vector-ref #{j 42994}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 19436}# 1)
- #{j 19436}#))
- (if (let ((#{bi 19512}#
+ (vector-ref #{j 42994}# 1)
+ #{j 42994}#))
+ (if (let ((#{bi 43070}#
(module-variable
- (if #{mi 19437}#
- (resolve-module (cdr #{mi 19437}#))
+ (if #{mi 42995}#
+ (resolve-module (cdr #{mi 42995}#))
(current-module))
- (if (if (vector? #{i 19435}#)
- (if (= (vector-length #{i 19435}#)
+ (if (if (vector? #{i 42993}#)
+ (if (= (vector-length #{i 42993}#)
4)
- (eq? (vector-ref #{i 19435}# 0)
+ (eq? (vector-ref #{i 42993}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 19435}# 1)
- #{i 19435}#))))
- (if #{bi 19512}#
- (eq? #{bi 19512}#
+ (vector-ref #{i 42993}# 1)
+ #{i 42993}#))))
+ (if #{bi 43070}#
+ (eq? #{bi 43070}#
(module-variable
- (if #{mj 19438}#
- (resolve-module (cdr #{mj 19438}#))
+ (if #{mj 42996}#
+ (resolve-module (cdr #{mj 42996}#))
(current-module))
- (if (if (vector? #{j 19436}#)
- (if (= (vector-length #{j 19436}#)
+ (if (if (vector? #{j 42994}#)
+ (if (= (vector-length #{j 42994}#)
4)
- (eq? (vector-ref #{j 19436}# 0)
+ (eq? (vector-ref #{j 42994}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 19436}# 1)
- #{j 19436}#)))
+ (vector-ref #{j 42994}# 1)
+ #{j 42994}#)))
(if (not (module-variable
- (if #{mj 19438}#
- (resolve-module (cdr #{mj 19438}#))
+ (if #{mj 42996}#
+ (resolve-module (cdr #{mj 42996}#))
(current-module))
- (if (if (vector? #{j 19436}#)
+ (if (if (vector? #{j 42994}#)
(if (= (vector-length
- #{j 19436}#)
+ #{j 42994}#)
4)
(eq? (vector-ref
- #{j 19436}#
+ #{j 42994}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 19436}# 1)
- #{j 19436}#)))
- (eq? #{ni 19439}# #{nj 19440}#)
+ (vector-ref #{j 42994}# 1)
+ #{j 42994}#)))
+ (eq? #{ni 42997}# #{nj 42998}#)
#f)))
(eq? (module-variable
- (if #{mi 19437}#
- (resolve-module (cdr #{mi 19437}#))
+ (if #{mi 42995}#
+ (resolve-module (cdr #{mi 42995}#))
(current-module))
- (if (if (vector? #{i 19435}#)
- (if (= (vector-length #{i 19435}#) 4)
- (eq? (vector-ref #{i 19435}# 0)
+ (if (if (vector? #{i 42993}#)
+ (if (= (vector-length #{i 42993}#) 4)
+ (eq? (vector-ref #{i 42993}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 19435}# 1)
- #{i 19435}#))
+ (vector-ref #{i 42993}# 1)
+ #{i 42993}#))
(module-variable
- (if #{mj 19438}#
- (resolve-module (cdr #{mj 19438}#))
+ (if #{mj 42996}#
+ (resolve-module (cdr #{mj 42996}#))
(current-module))
- (if (if (vector? #{j 19436}#)
- (if (= (vector-length #{j 19436}#) 4)
- (eq? (vector-ref #{j 19436}# 0)
+ (if (if (vector? #{j 42994}#)
+ (if (= (vector-length #{j 42994}#) 4)
+ (eq? (vector-ref #{j 42994}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 19436}# 1)
- #{j 19436}#)))
+ (vector-ref #{j 42994}# 1)
+ #{j 42994}#)))
#f)
#f)
- (equal? #{ni 19439}# #{nj 19440}#))))))))))
- (#{bound-id=? 4432}#
- (lambda (#{i 19705}# #{j 19706}#)
- (if (if (if (vector? #{i 19705}#)
- (if (= (vector-length #{i 19705}#) 4)
- (eq? (vector-ref #{i 19705}# 0) 'syntax-object)
+ (equal? #{ni 42997}# #{nj 42998}#))))))))))
+ (#{bound-id=? 28260}#
+ (lambda (#{i 43263}# #{j 43264}#)
+ (if (if (if (vector? #{i 43263}#)
+ (if (= (vector-length #{i 43263}#) 4)
+ (eq? (vector-ref #{i 43263}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{j 19706}#)
- (if (= (vector-length #{j 19706}#) 4)
- (eq? (vector-ref #{j 19706}# 0) 'syntax-object)
+ (if (vector? #{j 43264}#)
+ (if (= (vector-length #{j 43264}#) 4)
+ (eq? (vector-ref #{j 43264}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{i 19705}# 1)
- (vector-ref #{j 19706}# 1))
- (#{same-marks? 4428}#
- (car (vector-ref #{i 19705}# 2))
- (car (vector-ref #{j 19706}# 2)))
+ (if (eq? (vector-ref #{i 43263}# 1)
+ (vector-ref #{j 43264}# 1))
+ (#{same-marks? 28256}#
+ (car (vector-ref #{i 43263}# 2))
+ (car (vector-ref #{j 43264}# 2)))
#f)
- (eq? #{i 19705}# #{j 19706}#))))
- (#{valid-bound-ids? 4433}#
- (lambda (#{ids 19875}#)
+ (eq? #{i 43263}# #{j 43264}#))))
+ (#{valid-bound-ids? 28261}#
+ (lambda (#{ids 43433}#)
(if (letrec*
- ((#{all-ids? 19876}#
- (lambda (#{ids 20073}#)
- (if (null? #{ids 20073}#)
- (null? #{ids 20073}#)
- (if (let ((#{x 20084}# (car #{ids 20073}#)))
- (if (symbol? #{x 20084}#)
+ ((#{all-ids? 43434}#
+ (lambda (#{ids 43631}#)
+ (if (null? #{ids 43631}#)
+ (null? #{ids 43631}#)
+ (if (let ((#{x 43642}# (car #{ids 43631}#)))
+ (if (symbol? #{x 43642}#)
#t
- (if (if (vector? #{x 20084}#)
- (if (= (vector-length #{x 20084}#) 4)
- (eq? (vector-ref #{x 20084}# 0)
+ (if (if (vector? #{x 43642}#)
+ (if (= (vector-length #{x 43642}#) 4)
+ (eq? (vector-ref #{x 43642}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 20084}# 1))
+ (symbol? (vector-ref #{x 43642}# 1))
#f)))
- (#{all-ids? 19876}# (cdr #{ids 20073}#))
+ (#{all-ids? 43434}# (cdr #{ids 43631}#))
#f)))))
- (#{all-ids? 19876}# #{ids 19875}#))
- (#{distinct-bound-ids? 4434}# #{ids 19875}#)
+ (#{all-ids? 43434}# #{ids 43433}#))
+ (#{distinct-bound-ids? 28262}# #{ids 43433}#)
#f)))
- (#{distinct-bound-ids? 4434}#
- (lambda (#{ids 20205}#)
+ (#{distinct-bound-ids? 28262}#
+ (lambda (#{ids 43763}#)
(letrec*
- ((#{distinct? 20206}#
- (lambda (#{ids 20311}#)
- (if (null? #{ids 20311}#)
- (null? #{ids 20311}#)
- (if (not (#{bound-id-member? 4435}#
- (car #{ids 20311}#)
- (cdr #{ids 20311}#)))
- (#{distinct? 20206}# (cdr #{ids 20311}#))
+ ((#{distinct? 43764}#
+ (lambda (#{ids 43869}#)
+ (if (null? #{ids 43869}#)
+ (null? #{ids 43869}#)
+ (if (not (#{bound-id-member? 28263}#
+ (car #{ids 43869}#)
+ (cdr #{ids 43869}#)))
+ (#{distinct? 43764}# (cdr #{ids 43869}#))
#f)))))
- (#{distinct? 20206}# #{ids 20205}#))))
- (#{bound-id-member? 4435}#
- (lambda (#{x 20407}# #{list 20408}#)
- (if (not (null? #{list 20408}#))
- (let ((#{t 20409}#
- (#{bound-id=? 4432}#
- #{x 20407}#
- (car #{list 20408}#))))
- (if #{t 20409}#
- #{t 20409}#
- (#{bound-id-member? 4435}#
- #{x 20407}#
- (cdr #{list 20408}#))))
+ (#{distinct? 43764}# #{ids 43763}#))))
+ (#{bound-id-member? 28263}#
+ (lambda (#{x 43965}# #{list 43966}#)
+ (if (not (null? #{list 43966}#))
+ (let ((#{t 43967}#
+ (#{bound-id=? 28260}#
+ #{x 43965}#
+ (car #{list 43966}#))))
+ (if #{t 43967}#
+ #{t 43967}#
+ (#{bound-id-member? 28263}#
+ #{x 43965}#
+ (cdr #{list 43966}#))))
#f)))
- (#{source-wrap 4437}#
- (lambda (#{x 20587}#
- #{w 20588}#
- #{s 20589}#
- #{defmod 20590}#)
- (let ((#{x 20594}#
+ (#{source-wrap 28265}#
+ (lambda (#{x 44145}#
+ #{w 44146}#
+ #{s 44147}#
+ #{defmod 44148}#)
+ (let ((#{x 44152}#
(begin
- (if (if (pair? #{x 20587}#) #{s 20589}# #f)
- (set-source-properties! #{x 20587}# #{s 20589}#))
- #{x 20587}#)))
- (if (if (null? (car #{w 20588}#))
- (null? (cdr #{w 20588}#))
+ (if (if (pair? #{x 44145}#) #{s 44147}# #f)
+ (set-source-properties! #{x 44145}# #{s 44147}#))
+ #{x 44145}#)))
+ (if (if (null? (car #{w 44146}#))
+ (null? (cdr #{w 44146}#))
#f)
- #{x 20594}#
- (if (if (vector? #{x 20594}#)
- (if (= (vector-length #{x 20594}#) 4)
- (eq? (vector-ref #{x 20594}# 0) 'syntax-object)
+ #{x 44152}#
+ (if (if (vector? #{x 44152}#)
+ (if (= (vector-length #{x 44152}#) 4)
+ (eq? (vector-ref #{x 44152}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 20626}# (vector-ref #{x 20594}# 1))
- (#{wrap 20627}#
- (let ((#{w2 20635}# (vector-ref #{x 20594}# 2)))
- (let ((#{m1 20636}# (car #{w 20588}#))
- (#{s1 20637}# (cdr #{w 20588}#)))
- (if (null? #{m1 20636}#)
- (if (null? #{s1 20637}#)
- #{w2 20635}#
- (cons (car #{w2 20635}#)
- (let ((#{m2 20652}# (cdr #{w2 20635}#)))
- (if (null? #{m2 20652}#)
- #{s1 20637}#
- (append #{s1 20637}# #{m2 20652}#)))))
- (cons (let ((#{m2 20660}# (car #{w2 20635}#)))
- (if (null? #{m2 20660}#)
- #{m1 20636}#
- (append #{m1 20636}# #{m2 20660}#)))
- (let ((#{m2 20668}# (cdr #{w2 20635}#)))
- (if (null? #{m2 20668}#)
- #{s1 20637}#
- (append #{s1 20637}# #{m2 20668}#))))))))
- (#{module 20628}# (vector-ref #{x 20594}# 3)))
+ (let ((#{expression 44184}# (vector-ref #{x 44152}# 1))
+ (#{wrap 44185}#
+ (let ((#{w2 44193}# (vector-ref #{x 44152}# 2)))
+ (let ((#{m1 44194}# (car #{w 44146}#))
+ (#{s1 44195}# (cdr #{w 44146}#)))
+ (if (null? #{m1 44194}#)
+ (if (null? #{s1 44195}#)
+ #{w2 44193}#
+ (cons (car #{w2 44193}#)
+ (let ((#{m2 44210}# (cdr #{w2 44193}#)))
+ (if (null? #{m2 44210}#)
+ #{s1 44195}#
+ (append #{s1 44195}# #{m2 44210}#)))))
+ (cons (let ((#{m2 44218}# (car #{w2 44193}#)))
+ (if (null? #{m2 44218}#)
+ #{m1 44194}#
+ (append #{m1 44194}# #{m2 44218}#)))
+ (let ((#{m2 44226}# (cdr #{w2 44193}#)))
+ (if (null? #{m2 44226}#)
+ #{s1 44195}#
+ (append #{s1 44195}# #{m2 44226}#))))))))
+ (#{module 44186}# (vector-ref #{x 44152}# 3)))
(vector
'syntax-object
- #{expression 20626}#
- #{wrap 20627}#
- #{module 20628}#))
- (if (null? #{x 20594}#)
- #{x 20594}#
+ #{expression 44184}#
+ #{wrap 44185}#
+ #{module 44186}#))
+ (if (null? #{x 44152}#)
+ #{x 44152}#
(vector
'syntax-object
- #{x 20594}#
- #{w 20588}#
- #{defmod 20590}#)))))))
- (#{expand-sequence 4438}#
- (lambda (#{body 36431}#
- #{r 36432}#
- #{w 36433}#
- #{s 36434}#
- #{mod 36435}#)
- (#{build-sequence 4392}#
- #{s 36434}#
+ #{x 44152}#
+ #{w 44146}#
+ #{defmod 44148}#)))))))
+ (#{expand-sequence 28266}#
+ (lambda (#{body 59670}#
+ #{r 59671}#
+ #{w 59672}#
+ #{s 59673}#
+ #{mod 59674}#)
+ (#{build-sequence 28220}#
+ #{s 59673}#
(letrec*
- ((#{dobody 36527}#
- (lambda (#{body 36614}#
- #{r 36615}#
- #{w 36616}#
- #{mod 36617}#)
- (if (null? #{body 36614}#)
+ ((#{dobody 59762}#
+ (lambda (#{body 59845}#
+ #{r 59846}#
+ #{w 59847}#
+ #{mod 59848}#)
+ (if (null? #{body 59845}#)
'()
- (let ((#{first 36618}#
- (#{expand 4443}#
- (car #{body 36614}#)
- #{r 36615}#
- #{w 36616}#
- #{mod 36617}#)))
- (cons #{first 36618}#
- (#{dobody 36527}#
- (cdr #{body 36614}#)
- #{r 36615}#
- #{w 36616}#
- #{mod 36617}#)))))))
- (#{dobody 36527}#
- #{body 36431}#
- #{r 36432}#
- #{w 36433}#
- #{mod 36435}#)))))
- (#{expand-top-sequence 4439}#
- (lambda (#{body 20683}#
- #{r 20684}#
- #{w 20685}#
- #{s 20686}#
- #{m 20687}#
- #{esew 20688}#
- #{mod 20689}#)
- (let ((#{r 20690}#
- (cons '("placeholder" placeholder) #{r 20684}#)))
- (let ((#{ribcage 20691}# (vector 'ribcage '() '() '())))
- (let ((#{w 20692}#
- (cons (car #{w 20685}#)
- (cons #{ribcage 20691}# (cdr #{w 20685}#)))))
+ (let ((#{first 59849}#
+ (#{expand 28271}#
+ (car #{body 59845}#)
+ #{r 59846}#
+ #{w 59847}#
+ #{mod 59848}#)))
+ (cons #{first 59849}#
+ (#{dobody 59762}#
+ (cdr #{body 59845}#)
+ #{r 59846}#
+ #{w 59847}#
+ #{mod 59848}#)))))))
+ (#{dobody 59762}#
+ #{body 59670}#
+ #{r 59671}#
+ #{w 59672}#
+ #{mod 59674}#)))))
+ (#{expand-top-sequence 28267}#
+ (lambda (#{body 44255}#
+ #{r 44256}#
+ #{w 44257}#
+ #{s 44258}#
+ #{m 44259}#
+ #{esew 44260}#
+ #{mod 44261}#)
+ (let ((#{r 44262}#
+ (cons '("placeholder" placeholder) #{r 44256}#)))
+ (let ((#{ribcage 44263}# (vector 'ribcage '() '() '())))
+ (let ((#{w 44264}#
+ (cons (car #{w 44257}#)
+ (cons #{ribcage 44263}# (cdr #{w 44257}#)))))
(letrec*
- ((#{record-definition! 20693}#
- (lambda (#{id 24185}# #{var 24186}#)
- (let ((#{mod 24187}#
+ ((#{record-definition! 44265}#
+ (lambda (#{id 47641}# #{var 47642}#)
+ (let ((#{mod 47643}#
(cons 'hygiene (module-name (current-module)))))
- (let ((#{label 24193}#
- (cons (vector-ref #{id 24185}# 3)
- (if (if (vector? #{var 24186}#)
- (if (= (vector-length #{var 24186}#)
+ (let ((#{label 47649}#
+ (cons (vector-ref #{id 47641}# 3)
+ (if (if (vector? #{var 47642}#)
+ (if (= (vector-length #{var 47642}#)
4)
- (eq? (vector-ref #{var 24186}# 0)
+ (eq? (vector-ref #{var 47642}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 24255}#
- (vector-ref #{var 24186}# 1))
- (#{wrap 24256}#
- (let ((#{w2 24266}#
+ (let ((#{expression 47711}#
+ (vector-ref #{var 47642}# 1))
+ (#{wrap 47712}#
+ (let ((#{w2 47722}#
(vector-ref
- #{var 24186}#
+ #{var 47642}#
2)))
- (cons (let ((#{m2 24273}#
- (car #{w2
24266}#)))
- (if (null? #{m2
24273}#)
+ (cons (let ((#{m2 47729}#
+ (car #{w2
47722}#)))
+ (if (null? #{m2
47729}#)
'(top)
(append
'(top)
- #{m2 24273}#)))
- (let ((#{m2 24282}#
- (cdr #{w2
24266}#)))
- (if (null? #{m2
24282}#)
+ #{m2 47729}#)))
+ (let ((#{m2 47738}#
+ (cdr #{w2
47722}#)))
+ (if (null? #{m2
47738}#)
'()
(append
'()
- #{m2 24282}#))))))
- (#{module 24257}#
- (vector-ref #{var 24186}# 3)))
+ #{m2 47738}#))))))
+ (#{module 47713}#
+ (vector-ref #{var 47642}# 3)))
(vector
'syntax-object
- #{expression 24255}#
- #{wrap 24256}#
- #{module 24257}#))
- (if (null? #{var 24186}#)
- #{var 24186}#
+ #{expression 47711}#
+ #{wrap 47712}#
+ #{module 47713}#))
+ (if (null? #{var 47642}#)
+ #{var 47642}#
(vector
'syntax-object
- #{var 24186}#
+ #{var 47642}#
'((top))
- #{mod 24187}#))))))
+ #{mod 47643}#))))))
(begin
- (let ((#{update 24196}#
- (cons (vector-ref #{id 24185}# 1)
- (vector-ref #{ribcage 20691}# 1))))
+ (let ((#{update 47652}#
+ (cons (vector-ref #{id 47641}# 1)
+ (vector-ref #{ribcage 44263}# 1))))
(vector-set!
- #{ribcage 20691}#
+ #{ribcage 44263}#
1
- #{update 24196}#))
- (let ((#{update 24211}#
- (cons (car (vector-ref #{id 24185}# 2))
- (vector-ref #{ribcage 20691}# 2))))
+ #{update 47652}#))
+ (let ((#{update 47667}#
+ (cons (car (vector-ref #{id 47641}# 2))
+ (vector-ref #{ribcage 44263}# 2))))
(vector-set!
- #{ribcage 20691}#
+ #{ribcage 44263}#
2
- #{update 24211}#))
- (let ((#{update 24226}#
- (cons #{label 24193}#
- (vector-ref #{ribcage 20691}# 3))))
+ #{update 47667}#))
+ (let ((#{update 47682}#
+ (cons #{label 47649}#
+ (vector-ref #{ribcage 44263}# 3))))
(vector-set!
- #{ribcage 20691}#
+ #{ribcage 44263}#
3
- #{update 24226}#)))))))
- (#{parse 20696}#
- (lambda (#{body 20901}#
- #{r 20902}#
- #{w 20903}#
- #{s 20904}#
- #{m 20905}#
- #{esew 20906}#
- #{mod 20907}#)
+ #{update 47682}#)))))))
+ (#{parse 44268}#
+ (lambda (#{body 44463}#
+ #{r 44464}#
+ #{w 44465}#
+ #{s 44466}#
+ #{m 44467}#
+ #{esew 44468}#
+ #{mod 44469}#)
(letrec*
- ((#{lp 20908}#
- (lambda (#{body 20995}# #{exps 20996}#)
- (if (null? #{body 20995}#)
- #{exps 20996}#
- (#{lp 20908}#
- (cdr #{body 20995}#)
+ ((#{lp 44470}#
+ (lambda (#{body 44553}# #{exps 44554}#)
+ (if (null? #{body 44553}#)
+ #{exps 44554}#
+ (#{lp 44470}#
+ (cdr #{body 44553}#)
(append
- (#{parse1 20697}#
- (car #{body 20995}#)
- #{r 20902}#
- #{w 20903}#
- #{s 20904}#
- #{m 20905}#
- #{esew 20906}#
- #{mod 20907}#)
- #{exps 20996}#))))))
- (#{lp 20908}# #{body 20901}# '()))))
- (#{parse1 20697}#
- (lambda (#{x 21070}#
- #{r 21071}#
- #{w 21072}#
- #{s 21073}#
- #{m 21074}#
- #{esew 21075}#
- #{mod 21076}#)
+ (#{parse1 44269}#
+ (car #{body 44553}#)
+ #{r 44464}#
+ #{w 44465}#
+ #{s 44466}#
+ #{m 44467}#
+ #{esew 44468}#
+ #{mod 44469}#)
+ #{exps 44554}#))))))
+ (#{lp 44470}# #{body 44463}# '()))))
+ (#{parse1 44269}#
+ (lambda (#{x 44624}#
+ #{r 44625}#
+ #{w 44626}#
+ #{s 44627}#
+ #{m 44628}#
+ #{esew 44629}#
+ #{mod 44630}#)
(call-with-values
(lambda ()
- (#{syntax-type 4442}#
- #{x 21070}#
- #{r 21071}#
- #{w 21072}#
- (#{source-annotation 4404}# #{x 21070}#)
- #{ribcage 20691}#
- #{mod 21076}#
+ (#{syntax-type 28270}#
+ #{x 44624}#
+ #{r 44625}#
+ #{w 44626}#
+ (#{source-annotation 28232}# #{x 44624}#)
+ #{ribcage 44263}#
+ #{mod 44630}#
#f))
- (lambda (#{type 21280}#
- #{value 21281}#
- #{e 21282}#
- #{w 21283}#
- #{s 21284}#
- #{mod 21285}#)
- (if (eqv? #{type 21280}# 'define-form)
- (let ((#{id 21289}#
- (if (if (null? (car #{w 21283}#))
- (null? (cdr #{w 21283}#))
+ (lambda (#{type 44816}#
+ #{value 44817}#
+ #{e 44818}#
+ #{w 44819}#
+ #{s 44820}#
+ #{mod 44821}#)
+ (if (eqv? #{type 44816}# 'define-form)
+ (let ((#{id 44825}#
+ (if (if (null? (car #{w 44819}#))
+ (null? (cdr #{w 44819}#))
#f)
- #{value 21281}#
- (if (if (vector? #{value 21281}#)
+ #{value 44817}#
+ (if (if (vector? #{value 44817}#)
(if (= (vector-length
- #{value 21281}#)
+ #{value 44817}#)
4)
- (eq? (vector-ref #{value 21281}# 0)
+ (eq? (vector-ref #{value 44817}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 21339}#
- (vector-ref #{value 21281}# 1))
- (#{wrap 21340}#
- (let ((#{w2 21350}#
+ (let ((#{expression 44875}#
+ (vector-ref #{value 44817}# 1))
+ (#{wrap 44876}#
+ (let ((#{w2 44886}#
(vector-ref
- #{value 21281}#
+ #{value 44817}#
2)))
- (let ((#{m1 21351}#
- (car #{w 21283}#))
- (#{s1 21352}#
- (cdr #{w 21283}#)))
- (if (null? #{m1 21351}#)
- (if (null? #{s1 21352}#)
- #{w2 21350}#
- (cons (car #{w2 21350}#)
- (let ((#{m2 21369}#
- (cdr #{w2
21350}#)))
- (if (null? #{m2
21369}#)
- #{s1 21352}#
+ (let ((#{m1 44887}#
+ (car #{w 44819}#))
+ (#{s1 44888}#
+ (cdr #{w 44819}#)))
+ (if (null? #{m1 44887}#)
+ (if (null? #{s1 44888}#)
+ #{w2 44886}#
+ (cons (car #{w2 44886}#)
+ (let ((#{m2 44905}#
+ (cdr #{w2
44886}#)))
+ (if (null? #{m2
44905}#)
+ #{s1 44888}#
(append
- #{s1 21352}#
- #{m2
21369}#)))))
- (cons (let ((#{m2 21377}#
- (car #{w2
21350}#)))
- (if (null? #{m2
21377}#)
- #{m1 21351}#
+ #{s1 44888}#
+ #{m2
44905}#)))))
+ (cons (let ((#{m2 44913}#
+ (car #{w2
44886}#)))
+ (if (null? #{m2
44913}#)
+ #{m1 44887}#
(append
- #{m1 21351}#
- #{m2 21377}#)))
- (let ((#{m2 21385}#
- (cdr #{w2
21350}#)))
- (if (null? #{m2
21385}#)
- #{s1 21352}#
+ #{m1 44887}#
+ #{m2 44913}#)))
+ (let ((#{m2 44921}#
+ (cdr #{w2
44886}#)))
+ (if (null? #{m2
44921}#)
+ #{s1 44888}#
(append
- #{s1 21352}#
- #{m2
21385}#))))))))
- (#{module 21341}#
- (vector-ref #{value 21281}# 3)))
+ #{s1 44888}#
+ #{m2
44921}#))))))))
+ (#{module 44877}#
+ (vector-ref #{value 44817}# 3)))
(vector
'syntax-object
- #{expression 21339}#
- #{wrap 21340}#
- #{module 21341}#))
- (if (null? #{value 21281}#)
- #{value 21281}#
+ #{expression 44875}#
+ #{wrap 44876}#
+ #{module 44877}#))
+ (if (null? #{value 44817}#)
+ #{value 44817}#
(vector
'syntax-object
- #{value 21281}#
- #{w 21283}#
- #{mod 21285}#))))))
+ #{value 44817}#
+ #{w 44819}#
+ #{mod 44821}#))))))
(begin
(symbol->string (gensym "i"))
- (let ((#{var 21291}#
+ (let ((#{var 44827}#
(if (not (equal?
(car (vector-ref
- #{id 21289}#
+ #{id 44825}#
2))
'(top)))
(symbol-append
- (vector-ref #{id 21289}# 1)
+ (vector-ref #{id 44825}# 1)
'-
(string->symbol
(number->string
- (hash (syntax->datum #{x 21070}#)
+ (hash (syntax->datum #{x 44624}#)
most-positive-fixnum)
16)))
- (vector-ref #{id 21289}# 1))))
+ (vector-ref #{id 44825}# 1))))
(begin
- (#{record-definition! 20693}#
- #{id 21289}#
- #{var 21291}#)
- (list (if (eq? #{m 21074}# 'c&e)
- (let ((#{x 21516}#
- (#{build-global-definition
4385}#
- #{s 21284}#
- #{var 21291}#
- (#{expand 4443}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{mod 21285}#))))
+ (#{record-definition! 44265}#
+ #{id 44825}#
+ #{var 44827}#)
+ (list (if (eq? #{m 44628}# 'c&e)
+ (let ((#{x 45047}#
+ (#{build-global-definition
28213}#
+ #{s 44820}#
+ #{var 44827}#
+ (#{expand 28271}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{mod 44821}#))))
(begin
- (#{top-level-eval-hook 4370}#
- #{x 21516}#
- #{mod 21285}#)
- (lambda () #{x 21516}#)))
+ (#{top-level-eval-hook 28198}#
+ #{x 45047}#
+ #{mod 44821}#)
+ (lambda () #{x 45047}#)))
(lambda ()
- (#{build-global-definition 4385}#
- #{s 21284}#
- #{var 21291}#
- (#{expand 4443}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{mod 21285}#)))))))))
- (if (if (eqv? #{type 21280}# 'define-syntax-form)
+ (#{build-global-definition 28213}#
+ #{s 44820}#
+ #{var 44827}#
+ (#{expand 28271}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{mod 44821}#)))))))))
+ (if (if (eqv? #{type 44816}# 'define-syntax-form)
#t
- (eqv? #{type 21280}#
+ (eqv? #{type 44816}#
'define-syntax-parameter-form))
- (let ((#{id 22032}#
- (if (if (null? (car #{w 21283}#))
- (null? (cdr #{w 21283}#))
+ (let ((#{id 45541}#
+ (if (if (null? (car #{w 44819}#))
+ (null? (cdr #{w 44819}#))
#f)
- #{value 21281}#
- (if (if (vector? #{value 21281}#)
+ #{value 44817}#
+ (if (if (vector? #{value 44817}#)
(if (= (vector-length
- #{value 21281}#)
+ #{value 44817}#)
4)
(eq? (vector-ref
- #{value 21281}#
+ #{value 44817}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 22082}#
- (vector-ref #{value 21281}# 1))
- (#{wrap 22083}#
- (let ((#{w2 22093}#
+ (let ((#{expression 45591}#
+ (vector-ref #{value 44817}# 1))
+ (#{wrap 45592}#
+ (let ((#{w2 45602}#
(vector-ref
- #{value 21281}#
+ #{value 44817}#
2)))
- (let ((#{m1 22094}#
- (car #{w 21283}#))
- (#{s1 22095}#
- (cdr #{w 21283}#)))
- (if (null? #{m1 22094}#)
- (if (null? #{s1 22095}#)
- #{w2 22093}#
- (cons (car #{w2
22093}#)
- (let ((#{m2
22112}#
- (cdr
#{w2 22093}#)))
- (if (null?
#{m2 22112}#)
- #{s1 22095}#
+ (let ((#{m1 45603}#
+ (car #{w 44819}#))
+ (#{s1 45604}#
+ (cdr #{w 44819}#)))
+ (if (null? #{m1 45603}#)
+ (if (null? #{s1 45604}#)
+ #{w2 45602}#
+ (cons (car #{w2
45602}#)
+ (let ((#{m2
45621}#
+ (cdr
#{w2 45602}#)))
+ (if (null?
#{m2 45621}#)
+ #{s1 45604}#
(append
- #{s1
22095}#
- #{m2
22112}#)))))
- (cons (let ((#{m2 22120}#
- (car #{w2
22093}#)))
- (if (null? #{m2
22120}#)
- #{m1 22094}#
+ #{s1
45604}#
+ #{m2
45621}#)))))
+ (cons (let ((#{m2 45629}#
+ (car #{w2
45602}#)))
+ (if (null? #{m2
45629}#)
+ #{m1 45603}#
(append
- #{m1 22094}#
- #{m2
22120}#)))
- (let ((#{m2 22128}#
- (cdr #{w2
22093}#)))
- (if (null? #{m2
22128}#)
- #{s1 22095}#
+ #{m1 45603}#
+ #{m2
45629}#)))
+ (let ((#{m2 45637}#
+ (cdr #{w2
45602}#)))
+ (if (null? #{m2
45637}#)
+ #{s1 45604}#
(append
- #{s1 22095}#
- #{m2
22128}#))))))))
- (#{module 22084}#
+ #{s1 45604}#
+ #{m2
45637}#))))))))
+ (#{module 45593}#
(vector-ref
- #{value 21281}#
+ #{value 44817}#
3)))
(vector
'syntax-object
- #{expression 22082}#
- #{wrap 22083}#
- #{module 22084}#))
- (if (null? #{value 21281}#)
- #{value 21281}#
+ #{expression 45591}#
+ #{wrap 45592}#
+ #{module 45593}#))
+ (if (null? #{value 44817}#)
+ #{value 44817}#
(vector
'syntax-object
- #{value 21281}#
- #{w 21283}#
- #{mod 21285}#))))))
+ #{value 44817}#
+ #{w 44819}#
+ #{mod 44821}#))))))
(begin
(symbol->string (gensym "i"))
- (let ((#{var 22034}#
+ (let ((#{var 45543}#
(if (not (equal?
(car (vector-ref
- #{id 22032}#
+ #{id 45541}#
2))
'(top)))
(symbol-append
- (vector-ref #{id 22032}# 1)
+ (vector-ref #{id 45541}# 1)
'-
(string->symbol
(number->string
(hash (syntax->datum
- #{x 21070}#)
+ #{x 44624}#)
most-positive-fixnum)
16)))
- (vector-ref #{id 22032}# 1))))
+ (vector-ref #{id 45541}# 1))))
(begin
- (#{record-definition! 20693}#
- #{id 22032}#
- #{var 22034}#)
- (if (eqv? #{m 21074}# 'c)
- (if (memq 'compile #{esew 21075}#)
- (let ((#{e 22262}#
- (#{expand-install-global 4440}#
- #{var 22034}#
- #{type 21280}#
- (#{expand 4443}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{mod 21285}#))))
+ (#{record-definition! 44265}#
+ #{id 45541}#
+ #{var 45543}#)
+ (if (eqv? #{m 44628}# 'c)
+ (if (memq 'compile #{esew 44629}#)
+ (let ((#{e 45766}#
+ (#{expand-install-global
28268}#
+ #{var 45543}#
+ #{type 44816}#
+ (#{expand 28271}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{mod 44821}#))))
(begin
- (#{top-level-eval-hook 4370}#
- #{e 22262}#
- #{mod 21285}#)
- (if (memq 'load #{esew 21075}#)
- (list (lambda () #{e 22262}#))
+ (#{top-level-eval-hook 28198}#
+ #{e 45766}#
+ #{mod 44821}#)
+ (if (memq 'load #{esew 44629}#)
+ (list (lambda () #{e 45766}#))
'())))
- (if (memq 'load #{esew 21075}#)
+ (if (memq 'load #{esew 44629}#)
(list (lambda ()
- (#{expand-install-global
4440}#
- #{var 22034}#
- #{type 21280}#
- (#{expand 4443}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{mod 21285}#))))
+ (#{expand-install-global
28268}#
+ #{var 45543}#
+ #{type 44816}#
+ (#{expand 28271}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{mod 44821}#))))
'()))
- (if (eqv? #{m 21074}# 'c&e)
- (let ((#{e 22782}#
- (#{expand-install-global 4440}#
- #{var 22034}#
- #{type 21280}#
- (#{expand 4443}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{mod 21285}#))))
+ (if (eqv? #{m 44628}# 'c&e)
+ (let ((#{e 46269}#
+ (#{expand-install-global
28268}#
+ #{var 45543}#
+ #{type 44816}#
+ (#{expand 28271}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{mod 44821}#))))
(begin
- (#{top-level-eval-hook 4370}#
- #{e 22782}#
- #{mod 21285}#)
- (list (lambda () #{e 22782}#))))
+ (#{top-level-eval-hook 28198}#
+ #{e 46269}#
+ #{mod 44821}#)
+ (list (lambda () #{e 46269}#))))
(begin
- (if (memq 'eval #{esew 21075}#)
- (#{top-level-eval-hook 4370}#
- (#{expand-install-global 4440}#
- #{var 22034}#
- #{type 21280}#
- (#{expand 4443}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{mod 21285}#))
- #{mod 21285}#))
+ (if (memq 'eval #{esew 44629}#)
+ (#{top-level-eval-hook 28198}#
+ (#{expand-install-global 28268}#
+ #{var 45543}#
+ #{type 44816}#
+ (#{expand 28271}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{mod 44821}#))
+ #{mod 44821}#))
'())))))))
- (if (eqv? #{type 21280}# 'begin-form)
- (let ((#{tmp 23411}#
+ (if (eqv? #{type 44816}# 'begin-form)
+ (let ((#{tmp 46879}#
($sc-dispatch
- #{e 21282}#
+ #{e 44818}#
'(_ . each-any))))
- (if #{tmp 23411}#
+ (if #{tmp 46879}#
(@apply
- (lambda (#{e1 23415}#)
- (#{parse 20696}#
- #{e1 23415}#
- #{r 21071}#
- #{w 21283}#
- #{s 21284}#
- #{m 21074}#
- #{esew 21075}#
- #{mod 21285}#))
- #{tmp 23411}#)
+ (lambda (#{e1 46883}#)
+ (#{parse 44268}#
+ #{e1 46883}#
+ #{r 44625}#
+ #{w 44819}#
+ #{s 44820}#
+ #{m 44628}#
+ #{esew 44629}#
+ #{mod 44821}#))
+ #{tmp 46879}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 21282}#)))
- (if (eqv? #{type 21280}# 'local-syntax-form)
- (#{expand-local-syntax 4448}#
- #{value 21281}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{s 21284}#
- #{mod 21285}#
- (lambda (#{forms 23461}#
- #{r 23462}#
- #{w 23463}#
- #{s 23464}#
- #{mod 23465}#)
- (#{parse 20696}#
- #{forms 23461}#
- #{r 23462}#
- #{w 23463}#
- #{s 23464}#
- #{m 21074}#
- #{esew 21075}#
- #{mod 23465}#)))
- (if (eqv? #{type 21280}# 'eval-when-form)
- (let ((#{tmp 23504}#
+ #{e 44818}#)))
+ (if (eqv? #{type 44816}# 'local-syntax-form)
+ (#{expand-local-syntax 28276}#
+ #{value 44817}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{s 44820}#
+ #{mod 44821}#
+ (lambda (#{forms 46926}#
+ #{r 46927}#
+ #{w 46928}#
+ #{s 46929}#
+ #{mod 46930}#)
+ (#{parse 44268}#
+ #{forms 46926}#
+ #{r 46927}#
+ #{w 46928}#
+ #{s 46929}#
+ #{m 44628}#
+ #{esew 44629}#
+ #{mod 46930}#)))
+ (if (eqv? #{type 44816}# 'eval-when-form)
+ (let ((#{tmp 46966}#
($sc-dispatch
- #{e 21282}#
+ #{e 44818}#
'(_ each-any any . each-any))))
- (if #{tmp 23504}#
+ (if #{tmp 46966}#
(@apply
- (lambda (#{x 23508}#
- #{e1 23509}#
- #{e2 23510}#)
- (let ((#{when-list 23511}#
- (#{parse-when-list 4441}#
- #{e 21282}#
- #{x 23508}#))
- (#{body 23512}#
- (cons #{e1 23509}#
- #{e2 23510}#)))
+ (lambda (#{x 46970}#
+ #{e1 46971}#
+ #{e2 46972}#)
+ (let ((#{when-list 46973}#
+ (#{parse-when-list 28269}#
+ #{e 44818}#
+ #{x 46970}#))
+ (#{body 46974}#
+ (cons #{e1 46971}#
+ #{e2 46972}#)))
(letrec*
- ((#{recurse 23513}#
- (lambda (#{m 24102}#
- #{esew 24103}#)
- (#{parse 20696}#
- #{body 23512}#
- #{r 21071}#
- #{w 21283}#
- #{s 21284}#
- #{m 24102}#
- #{esew 24103}#
- #{mod 21285}#))))
- (if (eq? #{m 21074}# 'e)
+ ((#{recurse 46975}#
+ (lambda (#{m 47561}#
+ #{esew 47562}#)
+ (#{parse 44268}#
+ #{body 46974}#
+ #{r 44625}#
+ #{w 44819}#
+ #{s 44820}#
+ #{m 47561}#
+ #{esew 47562}#
+ #{mod 44821}#))))
+ (if (eq? #{m 44628}# 'e)
(if (memq 'eval
- #{when-list 23511}#)
- (#{recurse 23513}#
+ #{when-list 46973}#)
+ (#{recurse 46975}#
(if (memq 'expand
- #{when-list
23511}#)
+ #{when-list
46973}#)
'c&e
'e)
'(eval))
(begin
(if (memq 'expand
- #{when-list
23511}#)
- (let ((#{x 23621}#
-
(#{expand-top-sequence 4439}#
- #{body 23512}#
- #{r 21071}#
- #{w 21283}#
- #{s 21284}#
+ #{when-list
46973}#)
+ (let ((#{x 47082}#
+
(#{expand-top-sequence 28267}#
+ #{body 46974}#
+ #{r 44625}#
+ #{w 44819}#
+ #{s 44820}#
'e
'(eval)
- #{mod
21285}#)))
+ #{mod
44821}#)))
(primitive-eval
- #{x 23621}#)))
+ #{x 47082}#)))
'()))
(if (memq 'load
- #{when-list 23511}#)
- (if (let ((#{t 23649}#
+ #{when-list 46973}#)
+ (if (let ((#{t 47110}#
(memq 'compile
-
#{when-list 23511}#)))
- (if #{t 23649}#
- #{t 23649}#
- (let ((#{t 23702}#
+
#{when-list 46973}#)))
+ (if #{t 47110}#
+ #{t 47110}#
+ (let ((#{t 47163}#
(memq 'expand
-
#{when-list 23511}#)))
- (if #{t 23702}#
- #{t 23702}#
- (if (eq? #{m
21074}#
+
#{when-list 46973}#)))
+ (if #{t 47163}#
+ #{t 47163}#
+ (if (eq? #{m
44628}#
'c&e)
(memq 'eval
-
#{when-list 23511}#)
+
#{when-list 46973}#)
#f)))))
- (#{recurse 23513}#
+ (#{recurse 46975}#
'c&e
'(compile load))
- (if (if (eq? #{m 21074}#
+ (if (if (eq? #{m 44628}#
'c)
#t
- (eq? #{m 21074}#
+ (eq? #{m 44628}#
'c&e))
- (#{recurse 23513}#
+ (#{recurse 46975}#
'c
'(load))
'()))
- (if (let ((#{t 23913}#
+ (if (let ((#{t 47372}#
(memq 'compile
-
#{when-list 23511}#)))
- (if #{t 23913}#
- #{t 23913}#
- (let ((#{t 23966}#
+
#{when-list 46973}#)))
+ (if #{t 47372}#
+ #{t 47372}#
+ (let ((#{t 47425}#
(memq 'expand
-
#{when-list 23511}#)))
- (if #{t 23966}#
- #{t 23966}#
- (if (eq? #{m
21074}#
+
#{when-list 46973}#)))
+ (if #{t 47425}#
+ #{t 47425}#
+ (if (eq? #{m
44628}#
'c&e)
(memq 'eval
-
#{when-list 23511}#)
+
#{when-list 46973}#)
#f)))))
(begin
- (let ((#{x 24100}#
-
(#{expand-top-sequence 4439}#
- #{body 23512}#
- #{r 21071}#
- #{w 21283}#
- #{s 21284}#
+ (let ((#{x 47559}#
+
(#{expand-top-sequence 28267}#
+ #{body 46974}#
+ #{r 44625}#
+ #{w 44819}#
+ #{s 44820}#
'e
'(eval)
- #{mod
21285}#)))
+ #{mod
44821}#)))
(primitive-eval
- #{x 24100}#))
+ #{x 47559}#))
'())
'()))))))
- #{tmp 23504}#)
+ #{tmp 46966}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 21282}#)))
- (list (if (eq? #{m 21074}# 'c&e)
- (let ((#{x 24176}#
- (#{expand-expr 4444}#
- #{type 21280}#
- #{value 21281}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{s 21284}#
- #{mod 21285}#)))
+ #{e 44818}#)))
+ (list (if (eq? #{m 44628}# 'c&e)
+ (let ((#{x 47632}#
+ (#{expand-expr 28272}#
+ #{type 44816}#
+ #{value 44817}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{s 44820}#
+ #{mod 44821}#)))
(begin
- (primitive-eval #{x 24176}#)
- (lambda () #{x 24176}#)))
+ (primitive-eval #{x 47632}#)
+ (lambda () #{x 47632}#)))
(lambda ()
- (#{expand-expr 4444}#
- #{type 21280}#
- #{value 21281}#
- #{e 21282}#
- #{r 21071}#
- #{w 21283}#
- #{s 21284}#
- #{mod 21285}#))))))))))))))
- (let ((#{exps 20698}#
- (map (lambda (#{x 20829}#) (#{x 20829}#))
+ (#{expand-expr 28272}#
+ #{type 44816}#
+ #{value 44817}#
+ #{e 44818}#
+ #{r 44625}#
+ #{w 44819}#
+ #{s 44820}#
+ #{mod 44821}#))))))))))))))
+ (let ((#{exps 44270}#
+ (map (lambda (#{x 44393}#) (#{x 44393}#))
(reverse
- (#{parse 20696}#
- #{body 20683}#
- #{r 20690}#
- #{w 20692}#
- #{s 20686}#
- #{m 20687}#
- #{esew 20688}#
- #{mod 20689}#)))))
- (if (null? #{exps 20698}#)
+ (#{parse 44268}#
+ #{body 44255}#
+ #{r 44262}#
+ #{w 44264}#
+ #{s 44258}#
+ #{m 44259}#
+ #{esew 44260}#
+ #{mod 44261}#)))))
+ (if (null? #{exps 44270}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{s 20686}#)
- (#{build-sequence 4392}#
- #{s 20686}#
- #{exps 20698}#)))))))))
- (#{expand-install-global 4440}#
- (lambda (#{name 24304}# #{type 24305}# #{e 24306}#)
- (let ((#{exp 24312}#
- (let ((#{args 24323}#
- (if (eq? #{type 24305}#
+ #{s 44258}#)
+ (#{build-sequence 28220}#
+ #{s 44258}#
+ #{exps 44270}#)))))))))
+ (#{expand-install-global 28268}#
+ (lambda (#{name 47760}# #{type 47761}# #{e 47762}#)
+ (let ((#{exp 47768}#
+ (let ((#{args 47779}#
+ (if (eq? #{type 47761}#
'define-syntax-parameter-form)
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name 24304}#)
+ #{name 47760}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'syntax-parameter)
- (let ((#{args 24346}# (list #{e 24306}#)))
+ (let ((#{args 47802}# (list #{e 47762}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'list
- #{args 24346}#)))
+ #{args 47802}#)))
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name 24304}#)
+ #{name 47760}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- #{e 24306}#))))
+ #{e 47762}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'make-syntax-transformer
- #{args 24323}#))))
+ #{args 47779}#))))
(begin
- (if (if (struct? #{exp 24312}#)
- (eq? (struct-vtable #{exp 24312}#)
+ (if (if (struct? #{exp 47768}#)
+ (eq? (struct-vtable #{exp 47768}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 24373}# (struct-ref #{exp 24312}# 1)))
- (if (not (assq 'name #{meta 24373}#))
- (let ((#{v 24380}#
- (cons (cons 'name #{name 24304}#) #{meta 24373}#)))
- (struct-set! #{exp 24312}# 1 #{v 24380}#)))))
+ (let ((#{meta 47829}# (struct-ref #{exp 47768}# 1)))
+ (if (not (assq 'name #{meta 47829}#))
+ (let ((#{v 47836}#
+ (cons (cons 'name #{name 47760}#) #{meta 47829}#)))
+ (struct-set! #{exp 47768}# 1 #{v 47836}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- #{name 24304}#
- #{exp 24312}#)))))
- (#{parse-when-list 4441}#
- (lambda (#{e 24391}# #{when-list 24392}#)
- (let ((#{result 24393}#
- (#{strip 4456}# #{when-list 24392}# '(()))))
+ #{name 47760}#
+ #{exp 47768}#)))))
+ (#{parse-when-list 28269}#
+ (lambda (#{e 47847}# #{when-list 47848}#)
+ (let ((#{result 47849}#
+ (#{strip 28284}# #{when-list 47848}# '(()))))
(letrec*
- ((#{lp 24394}#
- (lambda (#{l 24460}#)
- (if (null? #{l 24460}#)
- #{result 24393}#
- (if (let ((#{t 24462}# (car #{l 24460}#)))
- (if (eq? #{t 24462}# 'compile)
+ ((#{lp 47850}#
+ (lambda (#{l 47916}#)
+ (if (null? #{l 47916}#)
+ #{result 47849}#
+ (if (let ((#{t 47918}# (car #{l 47916}#)))
+ (if (eq? #{t 47918}# 'compile)
#t
- (if (eq? #{t 24462}# 'load)
+ (if (eq? #{t 47918}# 'load)
#t
- (if (eq? #{t 24462}# 'eval)
+ (if (eq? #{t 47918}# 'eval)
#t
- (eq? #{t 24462}# 'expand)))))
- (#{lp 24394}# (cdr #{l 24460}#))
+ (eq? #{t 47918}# 'expand)))))
+ (#{lp 47850}# (cdr #{l 47916}#))
(syntax-violation
'eval-when
"invalid situation"
- #{e 24391}#
- (car #{l 24460}#)))))))
- (#{lp 24394}# #{result 24393}#)))))
- (#{syntax-type 4442}#
- (lambda (#{e 24464}#
- #{r 24465}#
- #{w 24466}#
- #{s 24467}#
- #{rib 24468}#
- #{mod 24469}#
- #{for-car? 24470}#)
- (if (symbol? #{e 24464}#)
+ #{e 47847}#
+ (car #{l 47916}#)))))))
+ (#{lp 47850}# #{result 47849}#)))))
+ (#{syntax-type 28270}#
+ (lambda (#{e 47920}#
+ #{r 47921}#
+ #{w 47922}#
+ #{s 47923}#
+ #{rib 47924}#
+ #{mod 47925}#
+ #{for-car? 47926}#)
+ (if (symbol? #{e 47920}#)
(call-with-values
(lambda ()
- (#{resolve-identifier 4430}#
- #{e 24464}#
- #{w 24466}#
- #{r 24465}#
- #{mod 24469}#
+ (#{resolve-identifier 28258}#
+ #{e 47920}#
+ #{w 47922}#
+ #{r 47921}#
+ #{mod 47925}#
#t))
- (lambda (#{type 24473}# #{value 24474}# #{mod* 24475}#)
- (if (eqv? #{type 24473}# 'macro)
- (if #{for-car? 24470}#
+ (lambda (#{type 47929}# #{value 47930}# #{mod* 47931}#)
+ (if (eqv? #{type 47929}# 'macro)
+ (if #{for-car? 47926}#
(values
- #{type 24473}#
- #{value 24474}#
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
- (#{syntax-type 4442}#
- (#{expand-macro 4446}#
- #{value 24474}#
- #{e 24464}#
- #{r 24465}#
- #{w 24466}#
- #{s 24467}#
- #{rib 24468}#
- #{mod 24469}#)
- #{r 24465}#
+ #{type 47929}#
+ #{value 47930}#
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
+ (#{syntax-type 28270}#
+ (#{expand-macro 28274}#
+ #{value 47930}#
+ #{e 47920}#
+ #{r 47921}#
+ #{w 47922}#
+ #{s 47923}#
+ #{rib 47924}#
+ #{mod 47925}#)
+ #{r 47921}#
'(())
- #{s 24467}#
- #{rib 24468}#
- #{mod 24469}#
+ #{s 47923}#
+ #{rib 47924}#
+ #{mod 47925}#
#f))
- (if (eqv? #{type 24473}# 'global)
+ (if (eqv? #{type 47929}# 'global)
(values
- #{type 24473}#
- #{value 24474}#
- #{value 24474}#
- #{w 24466}#
- #{s 24467}#
- #{mod* 24475}#)
+ #{type 47929}#
+ #{value 47930}#
+ #{value 47930}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod* 47931}#)
(values
- #{type 24473}#
- #{value 24474}#
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)))))
- (if (pair? #{e 24464}#)
- (let ((#{first 24484}# (car #{e 24464}#)))
+ #{type 47929}#
+ #{value 47930}#
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)))))
+ (if (pair? #{e 47920}#)
+ (let ((#{first 47940}# (car #{e 47920}#)))
(call-with-values
(lambda ()
- (#{syntax-type 4442}#
- #{first 24484}#
- #{r 24465}#
- #{w 24466}#
- #{s 24467}#
- #{rib 24468}#
- #{mod 24469}#
+ (#{syntax-type 28270}#
+ #{first 47940}#
+ #{r 47921}#
+ #{w 47922}#
+ #{s 47923}#
+ #{rib 47924}#
+ #{mod 47925}#
#t))
- (lambda (#{ftype 24486}#
- #{fval 24487}#
- #{fe 24488}#
- #{fw 24489}#
- #{fs 24490}#
- #{fmod 24491}#)
- (if (eqv? #{ftype 24486}# 'lexical)
+ (lambda (#{ftype 47942}#
+ #{fval 47943}#
+ #{fe 47944}#
+ #{fw 47945}#
+ #{fs 47946}#
+ #{fmod 47947}#)
+ (if (eqv? #{ftype 47942}# 'lexical)
(values
'lexical-call
- #{fval 24487}#
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
- (if (eqv? #{ftype 24486}# 'global)
+ #{fval 47943}#
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
+ (if (eqv? #{ftype 47942}# 'global)
(values
'global-call
(vector
'syntax-object
- #{fval 24487}#
- #{w 24466}#
- #{fmod 24491}#)
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
- (if (eqv? #{ftype 24486}# 'macro)
- (#{syntax-type 4442}#
- (#{expand-macro 4446}#
- #{fval 24487}#
- #{e 24464}#
- #{r 24465}#
- #{w 24466}#
- #{s 24467}#
- #{rib 24468}#
- #{mod 24469}#)
- #{r 24465}#
+ #{fval 47943}#
+ #{w 47922}#
+ #{fmod 47947}#)
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
+ (if (eqv? #{ftype 47942}# 'macro)
+ (#{syntax-type 28270}#
+ (#{expand-macro 28274}#
+ #{fval 47943}#
+ #{e 47920}#
+ #{r 47921}#
+ #{w 47922}#
+ #{s 47923}#
+ #{rib 47924}#
+ #{mod 47925}#)
+ #{r 47921}#
'(())
- #{s 24467}#
- #{rib 24468}#
- #{mod 24469}#
- #{for-car? 24470}#)
- (if (eqv? #{ftype 24486}# 'module-ref)
+ #{s 47923}#
+ #{rib 47924}#
+ #{mod 47925}#
+ #{for-car? 47926}#)
+ (if (eqv? #{ftype 47942}# 'module-ref)
(call-with-values
(lambda ()
- (#{fval 24487}#
- #{e 24464}#
- #{r 24465}#
- #{w 24466}#))
- (lambda (#{e 24512}#
- #{r 24513}#
- #{w 24514}#
- #{s 24515}#
- #{mod 24516}#)
- (#{syntax-type 4442}#
- #{e 24512}#
- #{r 24513}#
- #{w 24514}#
- #{s 24515}#
- #{rib 24468}#
- #{mod 24516}#
- #{for-car? 24470}#)))
- (if (eqv? #{ftype 24486}# 'core)
+ (#{fval 47943}#
+ #{e 47920}#
+ #{r 47921}#
+ #{w 47922}#))
+ (lambda (#{e 47968}#
+ #{r 47969}#
+ #{w 47970}#
+ #{s 47971}#
+ #{mod 47972}#)
+ (#{syntax-type 28270}#
+ #{e 47968}#
+ #{r 47969}#
+ #{w 47970}#
+ #{s 47971}#
+ #{rib 47924}#
+ #{mod 47972}#
+ #{for-car? 47926}#)))
+ (if (eqv? #{ftype 47942}# 'core)
(values
'core-form
- #{fval 24487}#
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
- (if (eqv? #{ftype 24486}# 'local-syntax)
+ #{fval 47943}#
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
+ (if (eqv? #{ftype 47942}# 'local-syntax)
(values
'local-syntax-form
- #{fval 24487}#
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
- (if (eqv? #{ftype 24486}# 'begin)
+ #{fval 47943}#
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
+ (if (eqv? #{ftype 47942}# 'begin)
(values
'begin-form
#f
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
- (if (eqv? #{ftype 24486}# 'eval-when)
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
+ (if (eqv? #{ftype 47942}# 'eval-when)
(values
'eval-when-form
#f
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
- (if (eqv? #{ftype 24486}# 'define)
- (let ((#{tmp 24533}#
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
+ (if (eqv? #{ftype 47942}# 'define)
+ (let ((#{tmp 47989}#
($sc-dispatch
- #{e 24464}#
+ #{e 47920}#
'(_ any any))))
- (if (if #{tmp 24533}#
+ (if (if #{tmp 47989}#
(@apply
- (lambda (#{name 24537}#
- #{val 24538}#)
- (if (symbol? #{name 24537}#)
+ (lambda (#{name 47993}#
+ #{val 47994}#)
+ (if (symbol? #{name 47993}#)
#t
(if (if (vector?
- #{name 24537}#)
+ #{name 47993}#)
(if (= (vector-length
- #{name 24537}#)
+ #{name 47993}#)
4)
(eq? (vector-ref
- #{name 24537}#
+ #{name 47993}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 24537}#
+ #{name 47993}#
1))
#f)))
- #{tmp 24533}#)
+ #{tmp 47989}#)
#f)
(@apply
- (lambda (#{name 24565}# #{val 24566}#)
+ (lambda (#{name 48021}# #{val 48022}#)
(values
'define-form
- #{name 24565}#
- #{val 24566}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#))
- #{tmp 24533}#)
- (let ((#{tmp 24567}#
+ #{name 48021}#
+ #{val 48022}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#))
+ #{tmp 47989}#)
+ (let ((#{tmp 48023}#
($sc-dispatch
- #{e 24464}#
+ #{e 47920}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp 24567}#
+ (if (if #{tmp 48023}#
(@apply
- (lambda (#{name 24571}#
- #{args 24572}#
- #{e1 24573}#
- #{e2 24574}#)
+ (lambda (#{name 48027}#
+ #{args 48028}#
+ #{e1 48029}#
+ #{e2 48030}#)
(if (if (symbol?
- #{name 24571}#)
+ #{name 48027}#)
#t
(if (if (vector?
- #{name
24571}#)
+ #{name
48027}#)
(if (=
(vector-length
- #{name
24571}#)
+ #{name
48027}#)
4)
(eq?
(vector-ref
- #{name
24571}#
+ #{name
48027}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 24571}#
+ #{name 48027}#
1))
#f))
- (#{valid-bound-ids? 4433}#
- (#{lambda-var-list
4458}#
- #{args 24572}#))
+ (#{valid-bound-ids?
28261}#
+ (#{lambda-var-list
28286}#
+ #{args 48028}#))
#f))
- #{tmp 24567}#)
+ #{tmp 48023}#)
#f)
(@apply
- (lambda (#{name 25055}#
- #{args 25056}#
- #{e1 25057}#
- #{e2 25058}#)
+ (lambda (#{name 48493}#
+ #{args 48494}#
+ #{e1 48495}#
+ #{e2 48496}#)
(values
'define-form
- (if (if (null? (car #{w
24466}#))
- (null? (cdr #{w
24466}#))
+ (if (if (null? (car #{w
47922}#))
+ (null? (cdr #{w
47922}#))
#f)
- #{name 25055}#
+ #{name 48493}#
(if (if (vector?
- #{name 25055}#)
+ #{name 48493}#)
(if (= (vector-length
- #{name
25055}#)
+ #{name
48493}#)
4)
(eq? (vector-ref
- #{name
25055}#
+ #{name
48493}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression
25088}#
+ (let ((#{expression
48526}#
(vector-ref
- #{name 25055}#
+ #{name 48493}#
1))
- (#{wrap 25089}#
- (let ((#{w2
25099}#
+ (#{wrap 48527}#
+ (let ((#{w2
48537}#
(vector-ref
- #{name
25055}#
+ #{name
48493}#
2)))
- (let ((#{m1
25100}#
- (car
#{w 24466}#))
- (#{s1
25101}#
- (cdr
#{w 24466}#)))
- (if (null?
#{m1 25100}#)
- (if (null?
#{s1 25101}#)
- #{w2
25099}#
- (cons
(car #{w2 25099}#)
-
(let ((#{m2 25118}#
-
(cdr #{w2 25099}#)))
-
(if (null? #{m2 25118}#)
-
#{s1 25101}#
+ (let ((#{m1
48538}#
+ (car
#{w 47922}#))
+ (#{s1
48539}#
+ (cdr
#{w 47922}#)))
+ (if (null?
#{m1 48538}#)
+ (if (null?
#{s1 48539}#)
+ #{w2
48537}#
+ (cons
(car #{w2 48537}#)
+
(let ((#{m2 48556}#
+
(cdr #{w2 48537}#)))
+
(if (null? #{m2 48556}#)
+
#{s1 48539}#
(append
-
#{s1 25101}#
-
#{m2 25118}#)))))
- (cons (let
((#{m2 25126}#
-
(car #{w2 25099}#)))
- (if
(null? #{m2 25126}#)
-
#{m1 25100}#
+
#{s1 48539}#
+
#{m2 48556}#)))))
+ (cons (let
((#{m2 48564}#
+
(car #{w2 48537}#)))
+ (if
(null? #{m2 48564}#)
+
#{m1 48538}#
(append
-
#{m1 25100}#
-
#{m2 25126}#)))
- (let
((#{m2 25134}#
-
(cdr #{w2 25099}#)))
- (if
(null? #{m2 25134}#)
-
#{s1 25101}#
+
#{m1 48538}#
+
#{m2 48564}#)))
+ (let
((#{m2 48572}#
+
(cdr #{w2 48537}#)))
+ (if
(null? #{m2 48572}#)
+
#{s1 48539}#
(append
-
#{s1 25101}#
-
#{m2 25134}#))))))))
- (#{module 25090}#
+
#{s1 48539}#
+
#{m2 48572}#))))))))
+ (#{module 48528}#
(vector-ref
- #{name 25055}#
+ #{name 48493}#
3)))
(vector
'syntax-object
- #{expression 25088}#
- #{wrap 25089}#
- #{module 25090}#))
- (if (null? #{name 25055}#)
- #{name 25055}#
+ #{expression 48526}#
+ #{wrap 48527}#
+ #{module 48528}#))
+ (if (null? #{name 48493}#)
+ #{name 48493}#
(vector
'syntax-object
- #{name 25055}#
- #{w 24466}#
- #{mod 24469}#))))
- (let ((#{e 25160}#
+ #{name 48493}#
+ #{w 47922}#
+ #{mod 47925}#))))
+ (let ((#{e 48598}#
(cons '#(syntax-object
lambda
((top)
@@ -2005,10 +2007,10 @@
(top)
(top)
(top))
- #("i1952"
- "i1953"
- "i1954"
-
"i1955"))
+ #("i25779"
+ "i25780"
+ "i25781"
+
"i25782"))
#(ribcage
()
()
@@ -2030,12 +2032,12 @@
(top)
(top)
(top))
- #("i1905"
- "i1906"
- "i1907"
- "i1908"
- "i1909"
-
"i1910"))
+ #("i25732"
+ "i25733"
+ "i25734"
+ "i25735"
+ "i25736"
+
"i25737"))
#(ribcage
()
()
@@ -2043,7 +2045,7 @@
#(ribcage
#(first)
#((top))
-
#("i1897"))
+
#("i25724"))
#(ribcage
()
()
@@ -2071,13 +2073,13 @@
(top)
(top)
(top))
- #("i1876"
- "i1877"
- "i1878"
- "i1879"
- "i1880"
- "i1881"
-
"i1882"))
+ #("i25703"
+ "i25704"
+ "i25705"
+ "i25706"
+ "i25707"
+ "i25708"
+
"i25709"))
#(ribcage
(lambda-var-list
gen-var
@@ -2355,144 +2357,144 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+
"i24035"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -2500,208 +2502,208 @@
((top)
(top)
(top))
- ("i46"
- "i45"
- "i44"))
+ ("i23873"
+ "i23872"
+
"i23871"))
#(ribcage
()
()
()))
(hygiene
guile))
- (let ((#{x
25164}#
- (cons
#{args 25056}#
-
(cons #{e1 25057}#
-
#{e2 25058}#))))
- (if (if
(null? (car #{w 24466}#))
- (null?
(cdr #{w 24466}#))
+ (let ((#{x
48602}#
+ (cons
#{args 48494}#
+
(cons #{e1 48495}#
+
#{e2 48496}#))))
+ (if (if
(null? (car #{w 47922}#))
+ (null?
(cdr #{w 47922}#))
#f)
- #{x 25164}#
+ #{x 48602}#
(if (if
(vector?
-
#{x 25164}#)
+
#{x 48602}#)
(if
(= (vector-length
-
#{x 25164}#)
+
#{x 48602}#)
4)
(eq? (vector-ref
-
#{x 25164}#
+
#{x 48602}#
0)
'syntax-object)
#f)
#f)
- (let
((#{expression 25182}#
+ (let
((#{expression 48620}#
(vector-ref
-
#{x 25164}#
+
#{x 48602}#
1))
-
(#{wrap 25183}#
-
(let ((#{w2 25191}#
+
(#{wrap 48621}#
+
(let ((#{w2 48629}#
(vector-ref
-
#{x 25164}#
+
#{x 48602}#
2)))
-
(let ((#{m1 25192}#
-
(car #{w 24466}#))
-
(#{s1 25193}#
-
(cdr #{w 24466}#)))
-
(if (null? #{m1 25192}#)
-
(if (null? #{s1 25193}#)
-
#{w2 25191}#
-
(cons (car #{w2 25191}#)
-
(let ((#{m2 25208}#
-
(cdr #{w2 25191}#)))
-
(if (null? #{m2 25208}#)
-
#{s1 25193}#
+
(let ((#{m1 48630}#
+
(car #{w 47922}#))
+
(#{s1 48631}#
+
(cdr #{w 47922}#)))
+
(if (null? #{m1 48630}#)
+
(if (null? #{s1 48631}#)
+
#{w2 48629}#
+
(cons (car #{w2 48629}#)
+
(let ((#{m2 48646}#
+
(cdr #{w2 48629}#)))
+
(if (null? #{m2 48646}#)
+
#{s1 48631}#
(append
-
#{s1 25193}#
-
#{m2 25208}#)))))
-
(cons (let ((#{m2 25216}#
-
(car #{w2 25191}#)))
-
(if (null? #{m2 25216}#)
-
#{m1 25192}#
+
#{s1 48631}#
+
#{m2 48646}#)))))
+
(cons (let ((#{m2 48654}#
+
(car #{w2 48629}#)))
+
(if (null? #{m2 48654}#)
+
#{m1 48630}#
(append
-
#{m1 25192}#
-
#{m2 25216}#)))
-
(let ((#{m2 25224}#
-
(cdr #{w2 25191}#)))
-
(if (null? #{m2 25224}#)
-
#{s1 25193}#
+
#{m1 48630}#
+
#{m2 48654}#)))
+
(let ((#{m2 48662}#
+
(cdr #{w2 48629}#)))
+
(if (null? #{m2 48662}#)
+
#{s1 48631}#
(append
-
#{s1 25193}#
-
#{m2 25224}#))))))))
-
(#{module 25184}#
+
#{s1 48631}#
+
#{m2 48662}#))))))))
+
(#{module 48622}#
(vector-ref
-
#{x 25164}#
+
#{x 48602}#
3)))
(vector
'syntax-object
-
#{expression 25182}#
-
#{wrap 25183}#
-
#{module 25184}#))
- (if
(null? #{x 25164}#)
- #{x
25164}#
+
#{expression 48620}#
+
#{wrap 48621}#
+
#{module 48622}#))
+ (if
(null? #{x 48602}#)
+ #{x
48602}#
(vector
'syntax-object
- #{x
25164}#
- #{w
24466}#
- #{mod
24469}#))))))))
+ #{x
48602}#
+ #{w
47922}#
+ #{mod
47925}#))))))))
(begin
- (if (if (pair? #{e
25160}#)
- #{s 24467}#
+ (if (if (pair? #{e
48598}#)
+ #{s 47923}#
#f)
(set-source-properties!
- #{e 25160}#
- #{s 24467}#))
- #{e 25160}#))
+ #{e 48598}#
+ #{s 47923}#))
+ #{e 48598}#))
'(())
- #{s 24467}#
- #{mod 24469}#))
- #{tmp 24567}#)
- (let ((#{tmp 25243}#
+ #{s 47923}#
+ #{mod 47925}#))
+ #{tmp 48023}#)
+ (let ((#{tmp 48681}#
($sc-dispatch
- #{e 24464}#
+ #{e 47920}#
'(_ any))))
- (if (if #{tmp 25243}#
+ (if (if #{tmp 48681}#
(@apply
- (lambda (#{name 25247}#)
+ (lambda (#{name 48685}#)
(if (symbol?
- #{name 25247}#)
+ #{name 48685}#)
#t
(if (if (vector?
- #{name
25247}#)
+ #{name
48685}#)
(if (=
(vector-length
- #{name
25247}#)
+ #{name
48685}#)
4)
(eq?
(vector-ref
- #{name
25247}#
+ #{name
48685}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 25247}#
+ #{name 48685}#
1))
#f)))
- #{tmp 25243}#)
+ #{tmp 48681}#)
#f)
(@apply
- (lambda (#{name 25274}#)
+ (lambda (#{name 48712}#)
(values
'define-form
- (if (if (null? (car #{w
24466}#))
- (null? (cdr #{w
24466}#))
+ (if (if (null? (car #{w
47922}#))
+ (null? (cdr #{w
47922}#))
#f)
- #{name 25274}#
+ #{name 48712}#
(if (if (vector?
- #{name
25274}#)
+ #{name
48712}#)
(if (=
(vector-length
- #{name
25274}#)
+ #{name
48712}#)
4)
(eq? (vector-ref
- #{name
25274}#
+ #{name
48712}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression
25304}#
+ (let ((#{expression
48742}#
(vector-ref
- #{name
25274}#
+ #{name
48712}#
1))
- (#{wrap 25305}#
- (let ((#{w2
25315}#
+ (#{wrap 48743}#
+ (let ((#{w2
48753}#
(vector-ref
-
#{name 25274}#
+
#{name 48712}#
2)))
- (let ((#{m1
25316}#
-
(car #{w 24466}#))
- (#{s1
25317}#
-
(cdr #{w 24466}#)))
- (if
(null? #{m1 25316}#)
- (if
(null? #{s1 25317}#)
- #{w2
25315}#
- (cons
(car #{w2 25315}#)
-
(let ((#{m2 25334}#
-
(cdr #{w2 25315}#)))
-
(if (null? #{m2 25334}#)
-
#{s1 25317}#
+ (let ((#{m1
48754}#
+
(car #{w 47922}#))
+ (#{s1
48755}#
+
(cdr #{w 47922}#)))
+ (if
(null? #{m1 48754}#)
+ (if
(null? #{s1 48755}#)
+ #{w2
48753}#
+ (cons
(car #{w2 48753}#)
+
(let ((#{m2 48772}#
+
(cdr #{w2 48753}#)))
+
(if (null? #{m2 48772}#)
+
#{s1 48755}#
(append
-
#{s1 25317}#
-
#{m2 25334}#)))))
- (cons
(let ((#{m2 25342}#
-
(car #{w2 25315}#)))
-
(if (null? #{m2 25342}#)
-
#{m1 25316}#
+
#{s1 48755}#
+
#{m2 48772}#)))))
+ (cons
(let ((#{m2 48780}#
+
(car #{w2 48753}#)))
+
(if (null? #{m2 48780}#)
+
#{m1 48754}#
(append
-
#{m1 25316}#
-
#{m2 25342}#)))
-
(let ((#{m2 25350}#
-
(cdr #{w2 25315}#)))
-
(if (null? #{m2 25350}#)
-
#{s1 25317}#
+
#{m1 48754}#
+
#{m2 48780}#)))
+
(let ((#{m2 48788}#
+
(cdr #{w2 48753}#)))
+
(if (null? #{m2 48788}#)
+
#{s1 48755}#
(append
-
#{s1 25317}#
-
#{m2 25350}#))))))))
- (#{module
25306}#
+
#{s1 48755}#
+
#{m2 48788}#))))))))
+ (#{module
48744}#
(vector-ref
- #{name
25274}#
+ #{name
48712}#
3)))
(vector
'syntax-object
- #{expression
25304}#
- #{wrap 25305}#
- #{module 25306}#))
- (if (null? #{name
25274}#)
- #{name 25274}#
+ #{expression
48742}#
+ #{wrap 48743}#
+ #{module 48744}#))
+ (if (null? #{name
48712}#)
+ #{name 48712}#
(vector
'syntax-object
- #{name 25274}#
- #{w 24466}#
- #{mod 24469}#))))
+ #{name 48712}#
+ #{w 47922}#
+ #{mod 47925}#))))
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("i1965"))
+ #("i25792"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2717,17 +2719,17 @@
(top)
(top)
(top))
- #("i1905"
- "i1906"
- "i1907"
- "i1908"
- "i1909"
- "i1910"))
+ #("i25732"
+ "i25733"
+ "i25734"
+ "i25735"
+ "i25736"
+ "i25737"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1897"))
+ #("i25724"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -2746,13 +2748,13 @@
(top)
(top)
(top))
- #("i1876"
- "i1877"
- "i1878"
- "i1879"
- "i1880"
- "i1881"
- "i1882"))
+ #("i25703"
+ "i25704"
+ "i25705"
+ "i25706"
+ "i25707"
+ "i25708"
+ "i25709"))
#(ribcage
(lambda-var-list
gen-var
@@ -3030,152 +3032,152 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46"
- "i45"
- "i44"))
+ ("i23873"
+ "i23872"
+ "i23871"))
#(ribcage () () ()))
(hygiene guile))
#(syntax-object
@@ -3184,7 +3186,7 @@
#(ribcage
#(name)
#((top))
- #("i1965"))
+ #("i25792"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3200,17 +3202,17 @@
(top)
(top)
(top))
- #("i1905"
- "i1906"
- "i1907"
- "i1908"
- "i1909"
- "i1910"))
+ #("i25732"
+ "i25733"
+ "i25734"
+ "i25735"
+ "i25736"
+ "i25737"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1897"))
+ #("i25724"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3229,13 +3231,13 @@
(top)
(top)
(top))
- #("i1876"
- "i1877"
- "i1878"
- "i1879"
- "i1880"
- "i1881"
- "i1882"))
+ #("i25703"
+ "i25704"
+ "i25705"
+ "i25706"
+ "i25707"
+ "i25708"
+ "i25709"))
#(ribcage
(lambda-var-list
gen-var
@@ -3513,152 +3515,152 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46"
- "i45"
- "i44"))
+ ("i23873"
+ "i23872"
+ "i23871"))
#(ribcage () () ()))
(hygiene guile))
#(syntax-object
@@ -3667,7 +3669,7 @@
#(ribcage
#(name)
#((top))
- #("i1965"))
+ #("i25792"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3683,17 +3685,17 @@
(top)
(top)
(top))
- #("i1905"
- "i1906"
- "i1907"
- "i1908"
- "i1909"
- "i1910"))
+ #("i25732"
+ "i25733"
+ "i25734"
+ "i25735"
+ "i25736"
+ "i25737"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1897"))
+ #("i25724"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3712,13 +3714,13 @@
(top)
(top)
(top))
- #("i1876"
- "i1877"
- "i1878"
- "i1879"
- "i1880"
- "i1881"
- "i1882"))
+ #("i25703"
+ "i25704"
+ "i25705"
+ "i25706"
+ "i25707"
+ "i25708"
+ "i25709"))
#(ribcage
(lambda-var-list
gen-var
@@ -3996,2225 +3998,2238 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46"
- "i45"
- "i44"))
+ ("i23873"
+ "i23872"
+ "i23871"))
#(ribcage () () ()))
(hygiene guile)))
'(())
- #{s 24467}#
- #{mod 24469}#))
- #{tmp 25243}#)
+ #{s 47923}#
+ #{mod 47925}#))
+ #{tmp 48681}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{e 24464}#)))))))
- (if (eqv? #{ftype 24486}# 'define-syntax)
- (let ((#{tmp 25389}#
+ #{e 47920}#)))))))
+ (if (eqv? #{ftype 47942}# 'define-syntax)
+ (let ((#{tmp 48827}#
($sc-dispatch
- #{e 24464}#
+ #{e 47920}#
'(_ any any))))
- (if (if #{tmp 25389}#
+ (if (if #{tmp 48827}#
(@apply
- (lambda (#{name 25393}#
- #{val 25394}#)
- (if (symbol? #{name 25393}#)
+ (lambda (#{name 48831}#
+ #{val 48832}#)
+ (if (symbol? #{name 48831}#)
#t
(if (if (vector?
- #{name 25393}#)
+ #{name 48831}#)
(if (= (vector-length
- #{name
25393}#)
+ #{name
48831}#)
4)
(eq? (vector-ref
- #{name
25393}#
+ #{name
48831}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 25393}#
+ #{name 48831}#
1))
#f)))
- #{tmp 25389}#)
+ #{tmp 48827}#)
#f)
(@apply
- (lambda (#{name 25421}#
- #{val 25422}#)
+ (lambda (#{name 48859}#
+ #{val 48860}#)
(values
'define-syntax-form
- #{name 25421}#
- #{val 25422}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#))
- #{tmp 25389}#)
+ #{name 48859}#
+ #{val 48860}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#))
+ #{tmp 48827}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{e 24464}#)))
- (if (eqv? #{ftype 24486}#
+ #{e 47920}#)))
+ (if (eqv? #{ftype 47942}#
'define-syntax-parameter)
- (let ((#{tmp 25433}#
+ (let ((#{tmp 48871}#
($sc-dispatch
- #{e 24464}#
+ #{e 47920}#
'(_ any any))))
- (if (if #{tmp 25433}#
+ (if (if #{tmp 48871}#
(@apply
- (lambda (#{name 25437}#
- #{val 25438}#)
- (if (symbol? #{name 25437}#)
+ (lambda (#{name 48875}#
+ #{val 48876}#)
+ (if (symbol? #{name 48875}#)
#t
(if (if (vector?
- #{name 25437}#)
+ #{name 48875}#)
(if (=
(vector-length
- #{name
25437}#)
+ #{name
48875}#)
4)
(eq? (vector-ref
- #{name
25437}#
+ #{name
48875}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 25437}#
+ #{name 48875}#
1))
#f)))
- #{tmp 25433}#)
+ #{tmp 48871}#)
#f)
(@apply
- (lambda (#{name 25465}#
- #{val 25466}#)
+ (lambda (#{name 48903}#
+ #{val 48904}#)
(values
'define-syntax-parameter-form
- #{name 25465}#
- #{val 25466}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#))
- #{tmp 25433}#)
+ #{name 48903}#
+ #{val 48904}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#))
+ #{tmp 48871}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{e 24464}#)))
+ #{e 47920}#)))
(values
'call
#f
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)))))))))))))))
- (if (if (vector? #{e 24464}#)
- (if (= (vector-length #{e 24464}#) 4)
- (eq? (vector-ref #{e 24464}# 0) 'syntax-object)
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)))))))))))))))
+ (if (if (vector? #{e 47920}#)
+ (if (= (vector-length #{e 47920}#) 4)
+ (eq? (vector-ref #{e 47920}# 0) 'syntax-object)
#f)
#f)
- (#{syntax-type 4442}#
- (vector-ref #{e 24464}# 1)
- #{r 24465}#
- (let ((#{w2 25491}# (vector-ref #{e 24464}# 2)))
- (let ((#{m1 25492}# (car #{w 24466}#))
- (#{s1 25493}# (cdr #{w 24466}#)))
- (if (null? #{m1 25492}#)
- (if (null? #{s1 25493}#)
- #{w2 25491}#
- (cons (car #{w2 25491}#)
- (let ((#{m2 25504}# (cdr #{w2 25491}#)))
- (if (null? #{m2 25504}#)
- #{s1 25493}#
- (append #{s1 25493}# #{m2 25504}#)))))
- (cons (let ((#{m2 25512}# (car #{w2 25491}#)))
- (if (null? #{m2 25512}#)
- #{m1 25492}#
- (append #{m1 25492}# #{m2 25512}#)))
- (let ((#{m2 25520}# (cdr #{w2 25491}#)))
- (if (null? #{m2 25520}#)
- #{s1 25493}#
- (append #{s1 25493}# #{m2 25520}#)))))))
- (let ((#{t 25525}#
- (#{source-annotation 4404}# #{e 24464}#)))
- (if #{t 25525}# #{t 25525}# #{s 24467}#))
- #{rib 24468}#
- (let ((#{t 25823}# (vector-ref #{e 24464}# 3)))
- (if #{t 25823}# #{t 25823}# #{mod 24469}#))
- #{for-car? 24470}#)
- (if (self-evaluating? #{e 24464}#)
+ (#{syntax-type 28270}#
+ (vector-ref #{e 47920}# 1)
+ #{r 47921}#
+ (let ((#{w2 48929}# (vector-ref #{e 47920}# 2)))
+ (let ((#{m1 48930}# (car #{w 47922}#))
+ (#{s1 48931}# (cdr #{w 47922}#)))
+ (if (null? #{m1 48930}#)
+ (if (null? #{s1 48931}#)
+ #{w2 48929}#
+ (cons (car #{w2 48929}#)
+ (let ((#{m2 48942}# (cdr #{w2 48929}#)))
+ (if (null? #{m2 48942}#)
+ #{s1 48931}#
+ (append #{s1 48931}# #{m2 48942}#)))))
+ (cons (let ((#{m2 48950}# (car #{w2 48929}#)))
+ (if (null? #{m2 48950}#)
+ #{m1 48930}#
+ (append #{m1 48930}# #{m2 48950}#)))
+ (let ((#{m2 48958}# (cdr #{w2 48929}#)))
+ (if (null? #{m2 48958}#)
+ #{s1 48931}#
+ (append #{s1 48931}# #{m2 48958}#)))))))
+ (let ((#{t 48963}#
+ (#{source-annotation 28232}# #{e 47920}#)))
+ (if #{t 48963}# #{t 48963}# #{s 47923}#))
+ #{rib 47924}#
+ (let ((#{t 49239}# (vector-ref #{e 47920}# 3)))
+ (if #{t 49239}# #{t 49239}# #{mod 47925}#))
+ #{for-car? 47926}#)
+ (if (self-evaluating? #{e 47920}#)
(values
'constant
#f
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)
(values
'other
#f
- #{e 24464}#
- #{w 24466}#
- #{s 24467}#
- #{mod 24469}#)))))))
- (#{expand 4443}#
- (lambda (#{e 25832}#
- #{r 25833}#
- #{w 25834}#
- #{mod 25835}#)
+ #{e 47920}#
+ #{w 47922}#
+ #{s 47923}#
+ #{mod 47925}#)))))))
+ (#{expand 28271}#
+ (lambda (#{e 49248}#
+ #{r 49249}#
+ #{w 49250}#
+ #{mod 49251}#)
(call-with-values
(lambda ()
- (#{syntax-type 4442}#
- #{e 25832}#
- #{r 25833}#
- #{w 25834}#
- (#{source-annotation 4404}# #{e 25832}#)
+ (#{syntax-type 28270}#
+ #{e 49248}#
+ #{r 49249}#
+ #{w 49250}#
+ (#{source-annotation 28232}# #{e 49248}#)
#f
- #{mod 25835}#
+ #{mod 49251}#
#f))
- (lambda (#{type 26039}#
- #{value 26040}#
- #{e 26041}#
- #{w 26042}#
- #{s 26043}#
- #{mod 26044}#)
- (#{expand-expr 4444}#
- #{type 26039}#
- #{value 26040}#
- #{e 26041}#
- #{r 25833}#
- #{w 26042}#
- #{s 26043}#
- #{mod 26044}#)))))
- (#{expand-expr 4444}#
- (lambda (#{type 26047}#
- #{value 26048}#
- #{e 26049}#
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#)
- (if (eqv? #{type 26047}# 'lexical)
+ (lambda (#{type 49437}#
+ #{value 49438}#
+ #{e 49439}#
+ #{w 49440}#
+ #{s 49441}#
+ #{mod 49442}#)
+ (#{expand-expr 28272}#
+ #{type 49437}#
+ #{value 49438}#
+ #{e 49439}#
+ #{r 49249}#
+ #{w 49440}#
+ #{s 49441}#
+ #{mod 49442}#)))))
+ (#{expand-expr 28272}#
+ (lambda (#{type 49445}#
+ #{value 49446}#
+ #{e 49447}#
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#)
+ (if (eqv? #{type 49445}# 'lexical)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{s 26052}#
- #{e 26049}#
- #{value 26048}#)
- (if (if (eqv? #{type 26047}# 'core)
+ #{s 49450}#
+ #{e 49447}#
+ #{value 49446}#)
+ (if (if (eqv? #{type 49445}# 'core)
#t
- (eqv? #{type 26047}# 'core-form))
- (#{value 26048}#
- #{e 26049}#
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#)
- (if (eqv? #{type 26047}# 'module-ref)
+ (eqv? #{type 49445}# 'core-form))
+ (#{value 49446}#
+ #{e 49447}#
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#)
+ (if (eqv? #{type 49445}# 'module-ref)
(call-with-values
(lambda ()
- (#{value 26048}#
- #{e 26049}#
- #{r 26050}#
- #{w 26051}#))
- (lambda (#{e 26079}#
- #{r 26080}#
- #{w 26081}#
- #{s 26082}#
- #{mod 26083}#)
- (#{expand 4443}#
- #{e 26079}#
- #{r 26080}#
- #{w 26081}#
- #{mod 26083}#)))
- (if (eqv? #{type 26047}# 'lexical-call)
- (#{expand-call 4445}#
- (let ((#{id 26264}# (car #{e 26049}#)))
- (#{build-lexical-reference 4380}#
+ (#{value 49446}#
+ #{e 49447}#
+ #{r 49448}#
+ #{w 49449}#))
+ (lambda (#{e 49477}#
+ #{r 49478}#
+ #{w 49479}#
+ #{s 49480}#
+ #{mod 49481}#)
+ (#{expand 28271}#
+ #{e 49477}#
+ #{r 49478}#
+ #{w 49479}#
+ #{mod 49481}#)))
+ (if (eqv? #{type 49445}# 'lexical-call)
+ (#{expand-call 28273}#
+ (let ((#{id 49654}# (car #{e 49447}#)))
+ (#{build-lexical-reference 28208}#
'fun
- (#{source-annotation 4404}# #{id 26264}#)
- (if (if (vector? #{id 26264}#)
- (if (= (vector-length #{id 26264}#) 4)
- (eq? (vector-ref #{id 26264}# 0) 'syntax-object)
+ (#{source-annotation 28232}# #{id 49654}#)
+ (if (if (vector? #{id 49654}#)
+ (if (= (vector-length #{id 49654}#) 4)
+ (eq? (vector-ref #{id 49654}# 0) 'syntax-object)
#f)
#f)
- (syntax->datum #{id 26264}#)
- #{id 26264}#)
- #{value 26048}#))
- #{e 26049}#
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#)
- (if (eqv? #{type 26047}# 'global-call)
- (#{expand-call 4445}#
- (#{build-global-reference 4383}#
- (#{source-annotation 4404}# (car #{e 26049}#))
- (if (if (vector? #{value 26048}#)
- (if (= (vector-length #{value 26048}#) 4)
- (eq? (vector-ref #{value 26048}# 0)
+ (syntax->datum #{id 49654}#)
+ #{id 49654}#)
+ #{value 49446}#))
+ #{e 49447}#
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#)
+ (if (eqv? #{type 49445}# 'global-call)
+ (#{expand-call 28273}#
+ (#{build-global-reference 28211}#
+ (#{source-annotation 28232}# (car #{e 49447}#))
+ (if (if (vector? #{value 49446}#)
+ (if (= (vector-length #{value 49446}#) 4)
+ (eq? (vector-ref #{value 49446}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 26048}# 1)
- #{value 26048}#)
- (if (if (vector? #{value 26048}#)
- (if (= (vector-length #{value 26048}#) 4)
- (eq? (vector-ref #{value 26048}# 0)
+ (vector-ref #{value 49446}# 1)
+ #{value 49446}#)
+ (if (if (vector? #{value 49446}#)
+ (if (= (vector-length #{value 49446}#) 4)
+ (eq? (vector-ref #{value 49446}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 26048}# 3)
- #{mod 26053}#))
- #{e 26049}#
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#)
- (if (eqv? #{type 26047}# 'constant)
- (let ((#{exp 26986}#
- (#{strip 4456}#
- (let ((#{x 26999}#
+ (vector-ref #{value 49446}# 3)
+ #{mod 49451}#))
+ #{e 49447}#
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#)
+ (if (eqv? #{type 49445}# 'constant)
+ (let ((#{exp 50328}#
+ (#{strip 28284}#
+ (let ((#{x 50341}#
(begin
- (if (if (pair? #{e 26049}#)
- #{s 26052}#
+ (if (if (pair? #{e 49447}#)
+ #{s 49450}#
#f)
(set-source-properties!
- #{e 26049}#
- #{s 26052}#))
- #{e 26049}#)))
- (if (if (null? (car #{w 26051}#))
- (null? (cdr #{w 26051}#))
+ #{e 49447}#
+ #{s 49450}#))
+ #{e 49447}#)))
+ (if (if (null? (car #{w 49449}#))
+ (null? (cdr #{w 49449}#))
#f)
- #{x 26999}#
- (if (if (vector? #{x 26999}#)
- (if (= (vector-length #{x 26999}#) 4)
- (eq? (vector-ref #{x 26999}# 0)
+ #{x 50341}#
+ (if (if (vector? #{x 50341}#)
+ (if (= (vector-length #{x 50341}#) 4)
+ (eq? (vector-ref #{x 50341}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 27031}#
- (vector-ref #{x 26999}# 1))
- (#{wrap 27032}#
- (let ((#{w2 27040}#
- (vector-ref #{x 26999}# 2)))
- (let ((#{m1 27041}#
- (car #{w 26051}#))
- (#{s1 27042}#
- (cdr #{w 26051}#)))
- (if (null? #{m1 27041}#)
- (if (null? #{s1 27042}#)
- #{w2 27040}#
- (cons (car #{w2 27040}#)
- (let ((#{m2 27057}#
- (cdr #{w2
27040}#)))
- (if (null? #{m2
27057}#)
- #{s1 27042}#
+ (let ((#{expression 50373}#
+ (vector-ref #{x 50341}# 1))
+ (#{wrap 50374}#
+ (let ((#{w2 50382}#
+ (vector-ref #{x 50341}# 2)))
+ (let ((#{m1 50383}#
+ (car #{w 49449}#))
+ (#{s1 50384}#
+ (cdr #{w 49449}#)))
+ (if (null? #{m1 50383}#)
+ (if (null? #{s1 50384}#)
+ #{w2 50382}#
+ (cons (car #{w2 50382}#)
+ (let ((#{m2 50399}#
+ (cdr #{w2
50382}#)))
+ (if (null? #{m2
50399}#)
+ #{s1 50384}#
(append
- #{s1 27042}#
- #{m2
27057}#)))))
- (cons (let ((#{m2 27065}#
- (car #{w2
27040}#)))
- (if (null? #{m2
27065}#)
- #{m1 27041}#
+ #{s1 50384}#
+ #{m2
50399}#)))))
+ (cons (let ((#{m2 50407}#
+ (car #{w2
50382}#)))
+ (if (null? #{m2
50407}#)
+ #{m1 50383}#
(append
- #{m1 27041}#
- #{m2 27065}#)))
- (let ((#{m2 27073}#
- (cdr #{w2
27040}#)))
- (if (null? #{m2
27073}#)
- #{s1 27042}#
+ #{m1 50383}#
+ #{m2 50407}#)))
+ (let ((#{m2 50415}#
+ (cdr #{w2
50382}#)))
+ (if (null? #{m2
50415}#)
+ #{s1 50384}#
(append
- #{s1 27042}#
- #{m2
27073}#))))))))
- (#{module 27033}#
- (vector-ref #{x 26999}# 3)))
+ #{s1 50384}#
+ #{m2
50415}#))))))))
+ (#{module 50375}#
+ (vector-ref #{x 50341}# 3)))
(vector
'syntax-object
- #{expression 27031}#
- #{wrap 27032}#
- #{module 27033}#))
- (if (null? #{x 26999}#)
- #{x 26999}#
+ #{expression 50373}#
+ #{wrap 50374}#
+ #{module 50375}#))
+ (if (null? #{x 50341}#)
+ #{x 50341}#
(vector
'syntax-object
- #{x 26999}#
- #{w 26051}#
- #{mod 26053}#)))))
+ #{x 50341}#
+ #{w 49449}#
+ #{mod 49451}#)))))
'(()))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 26052}#
- #{exp 26986}#))
- (if (eqv? #{type 26047}# 'global)
- (#{analyze-variable 4382}#
- #{mod 26053}#
- #{value 26048}#
- (lambda (#{mod 27098}# #{var 27099}# #{public? 27100}#)
+ #{s 49450}#
+ #{exp 50328}#))
+ (if (eqv? #{type 49445}# 'global)
+ (#{analyze-variable 28210}#
+ #{mod 49451}#
+ #{value 49446}#
+ (lambda (#{mod 50440}# #{var 50441}# #{public? 50442}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{s 26052}#
- #{mod 27098}#
- #{var 27099}#
- #{public? 27100}#))
- (lambda (#{var 27108}#)
+ #{s 49450}#
+ #{mod 50440}#
+ #{var 50441}#
+ #{public? 50442}#))
+ (lambda (#{var 50450}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{s 26052}#
- #{var 27108}#)))
- (if (eqv? #{type 26047}# 'call)
- (#{expand-call 4445}#
- (#{expand 4443}#
- (car #{e 26049}#)
- #{r 26050}#
- #{w 26051}#
- #{mod 26053}#)
- #{e 26049}#
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#)
- (if (eqv? #{type 26047}# 'begin-form)
- (let ((#{tmp 27286}#
+ #{s 49450}#
+ #{var 50450}#)))
+ (if (eqv? #{type 49445}# 'call)
+ (#{expand-call 28273}#
+ (#{expand 28271}#
+ (car #{e 49447}#)
+ #{r 49448}#
+ #{w 49449}#
+ #{mod 49451}#)
+ #{e 49447}#
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#)
+ (if (eqv? #{type 49445}# 'begin-form)
+ (let ((#{tmp 50620}#
($sc-dispatch
- #{e 26049}#
+ #{e 49447}#
'(_ any . each-any))))
- (if #{tmp 27286}#
+ (if #{tmp 50620}#
(@apply
- (lambda (#{e1 27290}# #{e2 27291}#)
- (#{expand-sequence 4438}#
- (cons #{e1 27290}# #{e2 27291}#)
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#))
- #{tmp 27286}#)
- (syntax-violation
- #f
- "source expression failed to match any pattern"
- #{e 26049}#)))
- (if (eqv? #{type 26047}# 'local-syntax-form)
- (#{expand-local-syntax 4448}#
- #{value 26048}#
- #{e 26049}#
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#
- #{expand-sequence 4438}#)
- (if (eqv? #{type 26047}# 'eval-when-form)
- (let ((#{tmp 27471}#
+ (lambda (#{e1 50624}# #{e2 50625}#)
+ (#{expand-sequence 28266}#
+ (cons #{e1 50624}# #{e2 50625}#)
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#))
+ #{tmp 50620}#)
+ (let ((#{tmp 50720}#
+ ($sc-dispatch #{e 49447}# '(_))))
+ (if #{tmp 50720}#
+ (@apply
+ (lambda ()
+ (begin
+ (issue-deprecation-warning
+ "Sequences of zero expressions are
deprecated. Use *unspecified*.")
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #f)))
+ #{tmp 50720}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 49447}#)))))
+ (if (eqv? #{type 49445}# 'local-syntax-form)
+ (#{expand-local-syntax 28276}#
+ #{value 49446}#
+ #{e 49447}#
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#
+ #{expand-sequence 28266}#)
+ (if (eqv? #{type 49445}# 'eval-when-form)
+ (let ((#{tmp 50812}#
($sc-dispatch
- #{e 26049}#
+ #{e 49447}#
'(_ each-any any . each-any))))
- (if #{tmp 27471}#
+ (if #{tmp 50812}#
(@apply
- (lambda (#{x 27475}#
- #{e1 27476}#
- #{e2 27477}#)
- (let ((#{when-list 27478}#
- (#{parse-when-list 4441}#
- #{e 26049}#
- #{x 27475}#)))
- (if (memq 'eval #{when-list 27478}#)
- (#{expand-sequence 4438}#
- (cons #{e1 27476}# #{e2 27477}#)
- #{r 26050}#
- #{w 26051}#
- #{s 26052}#
- #{mod 26053}#)
+ (lambda (#{x 50816}#
+ #{e1 50817}#
+ #{e2 50818}#)
+ (let ((#{when-list 50819}#
+ (#{parse-when-list 28269}#
+ #{e 49447}#
+ #{x 50816}#)))
+ (if (memq 'eval #{when-list 50819}#)
+ (#{expand-sequence 28266}#
+ (cons #{e1 50817}# #{e2 50818}#)
+ #{r 49448}#
+ #{w 49449}#
+ #{s 49450}#
+ #{mod 49451}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f))))
- #{tmp 27471}#)
+ #{tmp 50812}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 26049}#)))
- (if (if (eqv? #{type 26047}# 'define-form)
+ #{e 49447}#)))
+ (if (if (eqv? #{type 49445}# 'define-form)
#t
- (if (eqv? #{type 26047}#
+ (if (eqv? #{type 49445}#
'define-syntax-form)
#t
- (eqv? #{type 26047}#
+ (eqv? #{type 49445}#
'define-syntax-parameter-form)))
(syntax-violation
#f
"definition in expression context"
- #{e 26049}#
- (if (if (null? (car #{w 26051}#))
- (null? (cdr #{w 26051}#))
+ #{e 49447}#
+ (if (if (null? (car #{w 49449}#))
+ (null? (cdr #{w 49449}#))
#f)
- #{value 26048}#
- (if (if (vector? #{value 26048}#)
- (if (= (vector-length #{value 26048}#)
+ #{value 49446}#
+ (if (if (vector? #{value 49446}#)
+ (if (= (vector-length #{value 49446}#)
4)
- (eq? (vector-ref #{value 26048}# 0)
+ (eq? (vector-ref #{value 49446}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 27688}#
- (vector-ref #{value 26048}# 1))
- (#{wrap 27689}#
- (let ((#{w2 27699}#
+ (let ((#{expression 51026}#
+ (vector-ref #{value 49446}# 1))
+ (#{wrap 51027}#
+ (let ((#{w2 51037}#
(vector-ref
- #{value 26048}#
+ #{value 49446}#
2)))
- (let ((#{m1 27700}#
- (car #{w 26051}#))
- (#{s1 27701}#
- (cdr #{w 26051}#)))
- (if (null? #{m1 27700}#)
- (if (null? #{s1 27701}#)
- #{w2 27699}#
- (cons (car #{w2 27699}#)
- (let ((#{m2 27718}#
- (cdr #{w2
27699}#)))
- (if (null? #{m2
27718}#)
- #{s1 27701}#
+ (let ((#{m1 51038}#
+ (car #{w 49449}#))
+ (#{s1 51039}#
+ (cdr #{w 49449}#)))
+ (if (null? #{m1 51038}#)
+ (if (null? #{s1 51039}#)
+ #{w2 51037}#
+ (cons (car #{w2 51037}#)
+ (let ((#{m2 51056}#
+ (cdr #{w2
51037}#)))
+ (if (null? #{m2
51056}#)
+ #{s1 51039}#
(append
- #{s1 27701}#
- #{m2
27718}#)))))
- (cons (let ((#{m2 27726}#
- (car #{w2
27699}#)))
- (if (null? #{m2
27726}#)
- #{m1 27700}#
+ #{s1 51039}#
+ #{m2
51056}#)))))
+ (cons (let ((#{m2 51064}#
+ (car #{w2
51037}#)))
+ (if (null? #{m2
51064}#)
+ #{m1 51038}#
(append
- #{m1 27700}#
- #{m2 27726}#)))
- (let ((#{m2 27734}#
- (cdr #{w2
27699}#)))
- (if (null? #{m2
27734}#)
- #{s1 27701}#
+ #{m1 51038}#
+ #{m2 51064}#)))
+ (let ((#{m2 51072}#
+ (cdr #{w2
51037}#)))
+ (if (null? #{m2
51072}#)
+ #{s1 51039}#
(append
- #{s1 27701}#
- #{m2
27734}#))))))))
- (#{module 27690}#
- (vector-ref #{value 26048}# 3)))
+ #{s1 51039}#
+ #{m2
51072}#))))))))
+ (#{module 51028}#
+ (vector-ref #{value 49446}# 3)))
(vector
'syntax-object
- #{expression 27688}#
- #{wrap 27689}#
- #{module 27690}#))
- (if (null? #{value 26048}#)
- #{value 26048}#
+ #{expression 51026}#
+ #{wrap 51027}#
+ #{module 51028}#))
+ (if (null? #{value 49446}#)
+ #{value 49446}#
(vector
'syntax-object
- #{value 26048}#
- #{w 26051}#
- #{mod 26053}#)))))
- (if (eqv? #{type 26047}# 'syntax)
+ #{value 49446}#
+ #{w 49449}#
+ #{mod 49451}#)))))
+ (if (eqv? #{type 49445}# 'syntax)
(syntax-violation
#f
"reference to pattern variable outside
syntax form"
- (let ((#{x 27769}#
+ (let ((#{x 51107}#
(begin
- (if (if (pair? #{e 26049}#)
- #{s 26052}#
+ (if (if (pair? #{e 49447}#)
+ #{s 49450}#
#f)
(set-source-properties!
- #{e 26049}#
- #{s 26052}#))
- #{e 26049}#)))
- (if (if (null? (car #{w 26051}#))
- (null? (cdr #{w 26051}#))
+ #{e 49447}#
+ #{s 49450}#))
+ #{e 49447}#)))
+ (if (if (null? (car #{w 49449}#))
+ (null? (cdr #{w 49449}#))
#f)
- #{x 27769}#
- (if (if (vector? #{x 27769}#)
- (if (= (vector-length #{x 27769}#)
+ #{x 51107}#
+ (if (if (vector? #{x 51107}#)
+ (if (= (vector-length #{x 51107}#)
4)
- (eq? (vector-ref #{x 27769}# 0)
+ (eq? (vector-ref #{x 51107}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 27801}#
- (vector-ref #{x 27769}# 1))
- (#{wrap 27802}#
- (let ((#{w2 27810}#
+ (let ((#{expression 51139}#
+ (vector-ref #{x 51107}# 1))
+ (#{wrap 51140}#
+ (let ((#{w2 51148}#
(vector-ref
- #{x 27769}#
+ #{x 51107}#
2)))
- (let ((#{m1 27811}#
- (car #{w 26051}#))
- (#{s1 27812}#
- (cdr #{w 26051}#)))
- (if (null? #{m1 27811}#)
- (if (null? #{s1 27812}#)
- #{w2 27810}#
- (cons (car #{w2
27810}#)
- (let ((#{m2
27827}#
- (cdr
#{w2 27810}#)))
- (if (null?
#{m2 27827}#)
- #{s1 27812}#
+ (let ((#{m1 51149}#
+ (car #{w 49449}#))
+ (#{s1 51150}#
+ (cdr #{w 49449}#)))
+ (if (null? #{m1 51149}#)
+ (if (null? #{s1 51150}#)
+ #{w2 51148}#
+ (cons (car #{w2
51148}#)
+ (let ((#{m2
51165}#
+ (cdr
#{w2 51148}#)))
+ (if (null?
#{m2 51165}#)
+ #{s1 51150}#
(append
- #{s1
27812}#
- #{m2
27827}#)))))
- (cons (let ((#{m2
27835}#
- (car #{w2
27810}#)))
- (if (null? #{m2
27835}#)
- #{m1 27811}#
+ #{s1
51150}#
+ #{m2
51165}#)))))
+ (cons (let ((#{m2
51173}#
+ (car #{w2
51148}#)))
+ (if (null? #{m2
51173}#)
+ #{m1 51149}#
(append
- #{m1 27811}#
- #{m2
27835}#)))
- (let ((#{m2
27843}#
- (cdr #{w2
27810}#)))
- (if (null? #{m2
27843}#)
- #{s1 27812}#
+ #{m1 51149}#
+ #{m2
51173}#)))
+ (let ((#{m2
51181}#
+ (cdr #{w2
51148}#)))
+ (if (null? #{m2
51181}#)
+ #{s1 51150}#
(append
- #{s1 27812}#
- #{m2
27843}#))))))))
- (#{module 27803}#
- (vector-ref #{x 27769}# 3)))
+ #{s1 51150}#
+ #{m2
51181}#))))))))
+ (#{module 51141}#
+ (vector-ref #{x 51107}# 3)))
(vector
'syntax-object
- #{expression 27801}#
- #{wrap 27802}#
- #{module 27803}#))
- (if (null? #{x 27769}#)
- #{x 27769}#
+ #{expression 51139}#
+ #{wrap 51140}#
+ #{module 51141}#))
+ (if (null? #{x 51107}#)
+ #{x 51107}#
(vector
'syntax-object
- #{x 27769}#
- #{w 26051}#
- #{mod 26053}#))))))
- (if (eqv? #{type 26047}# 'displaced-lexical)
+ #{x 51107}#
+ #{w 49449}#
+ #{mod 49451}#))))))
+ (if (eqv? #{type 49445}# 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its
scope"
- (let ((#{x 27870}#
+ (let ((#{x 51208}#
(begin
- (if (if (pair? #{e 26049}#)
- #{s 26052}#
+ (if (if (pair? #{e 49447}#)
+ #{s 49450}#
#f)
(set-source-properties!
- #{e 26049}#
- #{s 26052}#))
- #{e 26049}#)))
- (if (if (null? (car #{w 26051}#))
- (null? (cdr #{w 26051}#))
+ #{e 49447}#
+ #{s 49450}#))
+ #{e 49447}#)))
+ (if (if (null? (car #{w 49449}#))
+ (null? (cdr #{w 49449}#))
#f)
- #{x 27870}#
- (if (if (vector? #{x 27870}#)
+ #{x 51208}#
+ (if (if (vector? #{x 51208}#)
(if (= (vector-length
- #{x 27870}#)
+ #{x 51208}#)
4)
(eq? (vector-ref
- #{x 27870}#
+ #{x 51208}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 27902}#
- (vector-ref #{x 27870}# 1))
- (#{wrap 27903}#
- (let ((#{w2 27911}#
+ (let ((#{expression 51240}#
+ (vector-ref #{x 51208}# 1))
+ (#{wrap 51241}#
+ (let ((#{w2 51249}#
(vector-ref
- #{x 27870}#
+ #{x 51208}#
2)))
- (let ((#{m1 27912}#
- (car #{w 26051}#))
- (#{s1 27913}#
- (cdr #{w
26051}#)))
- (if (null? #{m1 27912}#)
- (if (null? #{s1
27913}#)
- #{w2 27911}#
- (cons (car #{w2
27911}#)
- (let ((#{m2
27928}#
- (cdr
#{w2 27911}#)))
- (if (null?
#{m2 27928}#)
- #{s1
27913}#
+ (let ((#{m1 51250}#
+ (car #{w 49449}#))
+ (#{s1 51251}#
+ (cdr #{w
49449}#)))
+ (if (null? #{m1 51250}#)
+ (if (null? #{s1
51251}#)
+ #{w2 51249}#
+ (cons (car #{w2
51249}#)
+ (let ((#{m2
51266}#
+ (cdr
#{w2 51249}#)))
+ (if (null?
#{m2 51266}#)
+ #{s1
51251}#
(append
- #{s1
27913}#
- #{m2
27928}#)))))
- (cons (let ((#{m2
27936}#
- (car
#{w2 27911}#)))
- (if (null?
#{m2 27936}#)
- #{m1 27912}#
+ #{s1
51251}#
+ #{m2
51266}#)))))
+ (cons (let ((#{m2
51274}#
+ (car
#{w2 51249}#)))
+ (if (null?
#{m2 51274}#)
+ #{m1 51250}#
(append
- #{m1
27912}#
- #{m2
27936}#)))
- (let ((#{m2
27944}#
- (cdr
#{w2 27911}#)))
- (if (null?
#{m2 27944}#)
- #{s1 27913}#
+ #{m1
51250}#
+ #{m2
51274}#)))
+ (let ((#{m2
51282}#
+ (cdr
#{w2 51249}#)))
+ (if (null?
#{m2 51282}#)
+ #{s1 51251}#
(append
- #{s1
27913}#
- #{m2
27944}#))))))))
- (#{module 27904}#
- (vector-ref #{x 27870}# 3)))
+ #{s1
51251}#
+ #{m2
51282}#))))))))
+ (#{module 51242}#
+ (vector-ref #{x 51208}# 3)))
(vector
'syntax-object
- #{expression 27902}#
- #{wrap 27903}#
- #{module 27904}#))
- (if (null? #{x 27870}#)
- #{x 27870}#
+ #{expression 51240}#
+ #{wrap 51241}#
+ #{module 51242}#))
+ (if (null? #{x 51208}#)
+ #{x 51208}#
(vector
'syntax-object
- #{x 27870}#
- #{w 26051}#
- #{mod 26053}#))))))
+ #{x 51208}#
+ #{w 49449}#
+ #{mod 49451}#))))))
(syntax-violation
#f
"unexpected syntax"
- (let ((#{x 27968}#
+ (let ((#{x 51306}#
(begin
- (if (if (pair? #{e 26049}#)
- #{s 26052}#
+ (if (if (pair? #{e 49447}#)
+ #{s 49450}#
#f)
(set-source-properties!
- #{e 26049}#
- #{s 26052}#))
- #{e 26049}#)))
- (if (if (null? (car #{w 26051}#))
- (null? (cdr #{w 26051}#))
+ #{e 49447}#
+ #{s 49450}#))
+ #{e 49447}#)))
+ (if (if (null? (car #{w 49449}#))
+ (null? (cdr #{w 49449}#))
#f)
- #{x 27968}#
- (if (if (vector? #{x 27968}#)
+ #{x 51306}#
+ (if (if (vector? #{x 51306}#)
(if (= (vector-length
- #{x 27968}#)
+ #{x 51306}#)
4)
(eq? (vector-ref
- #{x 27968}#
+ #{x 51306}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28000}#
- (vector-ref #{x 27968}# 1))
- (#{wrap 28001}#
- (let ((#{w2 28009}#
+ (let ((#{expression 51338}#
+ (vector-ref #{x 51306}# 1))
+ (#{wrap 51339}#
+ (let ((#{w2 51347}#
(vector-ref
- #{x 27968}#
+ #{x 51306}#
2)))
- (let ((#{m1 28010}#
- (car #{w 26051}#))
- (#{s1 28011}#
- (cdr #{w
26051}#)))
- (if (null? #{m1 28010}#)
- (if (null? #{s1
28011}#)
- #{w2 28009}#
- (cons (car #{w2
28009}#)
- (let ((#{m2
28026}#
- (cdr
#{w2 28009}#)))
- (if (null?
#{m2 28026}#)
- #{s1
28011}#
+ (let ((#{m1 51348}#
+ (car #{w 49449}#))
+ (#{s1 51349}#
+ (cdr #{w
49449}#)))
+ (if (null? #{m1 51348}#)
+ (if (null? #{s1
51349}#)
+ #{w2 51347}#
+ (cons (car #{w2
51347}#)
+ (let ((#{m2
51364}#
+ (cdr
#{w2 51347}#)))
+ (if (null?
#{m2 51364}#)
+ #{s1
51349}#
(append
- #{s1
28011}#
- #{m2
28026}#)))))
- (cons (let ((#{m2
28034}#
- (car
#{w2 28009}#)))
- (if (null?
#{m2 28034}#)
- #{m1 28010}#
+ #{s1
51349}#
+ #{m2
51364}#)))))
+ (cons (let ((#{m2
51372}#
+ (car
#{w2 51347}#)))
+ (if (null?
#{m2 51372}#)
+ #{m1 51348}#
(append
- #{m1
28010}#
- #{m2
28034}#)))
- (let ((#{m2
28042}#
- (cdr
#{w2 28009}#)))
- (if (null?
#{m2 28042}#)
- #{s1 28011}#
+ #{m1
51348}#
+ #{m2
51372}#)))
+ (let ((#{m2
51380}#
+ (cdr
#{w2 51347}#)))
+ (if (null?
#{m2 51380}#)
+ #{s1 51349}#
(append
- #{s1
28011}#
- #{m2
28042}#))))))))
- (#{module 28002}#
- (vector-ref #{x 27968}# 3)))
+ #{s1
51349}#
+ #{m2
51380}#))))))))
+ (#{module 51340}#
+ (vector-ref #{x 51306}# 3)))
(vector
'syntax-object
- #{expression 28000}#
- #{wrap 28001}#
- #{module 28002}#))
- (if (null? #{x 27968}#)
- #{x 27968}#
+ #{expression 51338}#
+ #{wrap 51339}#
+ #{module 51340}#))
+ (if (null? #{x 51306}#)
+ #{x 51306}#
(vector
'syntax-object
- #{x 27968}#
- #{w 26051}#
- #{mod
26053}#))))))))))))))))))))))
- (#{expand-call 4445}#
- (lambda (#{x 28057}#
- #{e 28058}#
- #{r 28059}#
- #{w 28060}#
- #{s 28061}#
- #{mod 28062}#)
- (let ((#{tmp 28064}#
- ($sc-dispatch #{e 28058}# '(any . each-any))))
- (if #{tmp 28064}#
+ #{x 51306}#
+ #{w 49449}#
+ #{mod
49451}#))))))))))))))))))))))
+ (#{expand-call 28273}#
+ (lambda (#{x 51395}#
+ #{e 51396}#
+ #{r 51397}#
+ #{w 51398}#
+ #{s 51399}#
+ #{mod 51400}#)
+ (let ((#{tmp 51402}#
+ ($sc-dispatch #{e 51396}# '(any . each-any))))
+ (if #{tmp 51402}#
(@apply
- (lambda (#{e0 28068}# #{e1 28069}#)
- (#{build-call 4377}#
- #{s 28061}#
- #{x 28057}#
- (map (lambda (#{e 28161}#)
- (#{expand 4443}#
- #{e 28161}#
- #{r 28059}#
- #{w 28060}#
- #{mod 28062}#))
- #{e1 28069}#)))
- #{tmp 28064}#)
+ (lambda (#{e0 51406}# #{e1 51407}#)
+ (#{build-call 28205}#
+ #{s 51399}#
+ #{x 51395}#
+ (map (lambda (#{e 51495}#)
+ (#{expand 28271}#
+ #{e 51495}#
+ #{r 51397}#
+ #{w 51398}#
+ #{mod 51400}#))
+ #{e1 51407}#)))
+ #{tmp 51402}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 28058}#)))))
- (#{expand-macro 4446}#
- (lambda (#{p 28249}#
- #{e 28250}#
- #{r 28251}#
- #{w 28252}#
- #{s 28253}#
- #{rib 28254}#
- #{mod 28255}#)
+ #{e 51396}#)))))
+ (#{expand-macro 28274}#
+ (lambda (#{p 51579}#
+ #{e 51580}#
+ #{r 51581}#
+ #{w 51582}#
+ #{s 51583}#
+ #{rib 51584}#
+ #{mod 51585}#)
(letrec*
- ((#{rebuild-macro-output 28256}#
- (lambda (#{x 28363}# #{m 28364}#)
- (if (pair? #{x 28363}#)
- (let ((#{e 28368}#
- (cons (#{rebuild-macro-output 28256}#
- (car #{x 28363}#)
- #{m 28364}#)
- (#{rebuild-macro-output 28256}#
- (cdr #{x 28363}#)
- #{m 28364}#))))
+ ((#{rebuild-macro-output 51586}#
+ (lambda (#{x 51693}# #{m 51694}#)
+ (if (pair? #{x 51693}#)
+ (let ((#{e 51698}#
+ (cons (#{rebuild-macro-output 51586}#
+ (car #{x 51693}#)
+ #{m 51694}#)
+ (#{rebuild-macro-output 51586}#
+ (cdr #{x 51693}#)
+ #{m 51694}#))))
(begin
- (if (if (pair? #{e 28368}#) #{s 28253}# #f)
- (set-source-properties! #{e 28368}# #{s 28253}#))
- #{e 28368}#))
- (if (if (vector? #{x 28363}#)
- (if (= (vector-length #{x 28363}#) 4)
- (eq? (vector-ref #{x 28363}# 0) 'syntax-object)
+ (if (if (pair? #{e 51698}#) #{s 51583}# #f)
+ (set-source-properties! #{e 51698}# #{s 51583}#))
+ #{e 51698}#))
+ (if (if (vector? #{x 51693}#)
+ (if (= (vector-length #{x 51693}#) 4)
+ (eq? (vector-ref #{x 51693}# 0) 'syntax-object)
#f)
#f)
- (let ((#{w 28384}# (vector-ref #{x 28363}# 2)))
- (let ((#{ms 28385}# (car #{w 28384}#))
- (#{s 28386}# (cdr #{w 28384}#)))
- (if (if (pair? #{ms 28385}#)
- (eq? (car #{ms 28385}#) #f)
+ (let ((#{w 51714}# (vector-ref #{x 51693}# 2)))
+ (let ((#{ms 51715}# (car #{w 51714}#))
+ (#{s 51716}# (cdr #{w 51714}#)))
+ (if (if (pair? #{ms 51715}#)
+ (eq? (car #{ms 51715}#) #f)
#f)
- (let ((#{expression 28394}# (vector-ref #{x 28363}# 1))
- (#{wrap 28395}#
- (cons (cdr #{ms 28385}#)
- (if #{rib 28254}#
- (cons #{rib 28254}# (cdr #{s 28386}#))
- (cdr #{s 28386}#))))
- (#{module 28396}# (vector-ref #{x 28363}# 3)))
+ (let ((#{expression 51724}# (vector-ref #{x 51693}# 1))
+ (#{wrap 51725}#
+ (cons (cdr #{ms 51715}#)
+ (if #{rib 51584}#
+ (cons #{rib 51584}# (cdr #{s 51716}#))
+ (cdr #{s 51716}#))))
+ (#{module 51726}# (vector-ref #{x 51693}# 3)))
(vector
'syntax-object
- #{expression 28394}#
- #{wrap 28395}#
- #{module 28396}#))
- (let ((#{expression 28406}#
- (let ((#{e 28411}# (vector-ref #{x 28363}# 1)))
+ #{expression 51724}#
+ #{wrap 51725}#
+ #{module 51726}#))
+ (let ((#{expression 51736}#
+ (let ((#{e 51741}# (vector-ref #{x 51693}# 1)))
(begin
- (if (if (pair? #{e 28411}#) #{s 28386}# #f)
+ (if (if (pair? #{e 51741}#) #{s 51716}# #f)
(set-source-properties!
- #{e 28411}#
- #{s 28386}#))
- #{e 28411}#)))
- (#{wrap 28407}#
- (cons (cons #{m 28364}# #{ms 28385}#)
- (if #{rib 28254}#
- (cons #{rib 28254}#
- (cons 'shift #{s 28386}#))
- (cons 'shift #{s 28386}#))))
- (#{module 28408}# (vector-ref #{x 28363}# 3)))
+ #{e 51741}#
+ #{s 51716}#))
+ #{e 51741}#)))
+ (#{wrap 51737}#
+ (cons (cons #{m 51694}# #{ms 51715}#)
+ (if #{rib 51584}#
+ (cons #{rib 51584}#
+ (cons 'shift #{s 51716}#))
+ (cons 'shift #{s 51716}#))))
+ (#{module 51738}# (vector-ref #{x 51693}# 3)))
(vector
'syntax-object
- #{expression 28406}#
- #{wrap 28407}#
- #{module 28408}#)))))
- (if (vector? #{x 28363}#)
- (let ((#{n 28423}# (vector-length #{x 28363}#)))
- (let ((#{v 28424}#
- (let ((#{e 28432}# (make-vector #{n 28423}#)))
+ #{expression 51736}#
+ #{wrap 51737}#
+ #{module 51738}#)))))
+ (if (vector? #{x 51693}#)
+ (let ((#{n 51753}# (vector-length #{x 51693}#)))
+ (let ((#{v 51754}#
+ (let ((#{e 51820}# (make-vector #{n 51753}#)))
(begin
- (if (if (pair? #{e 28432}#) #{x 28363}# #f)
+ (if (if (pair? #{e 51820}#) #{x 51693}# #f)
(set-source-properties!
- #{e 28432}#
- #{x 28363}#))
- #{e 28432}#))))
+ #{e 51820}#
+ #{x 51693}#))
+ #{e 51820}#))))
(letrec*
- ((#{loop 28425}#
- (lambda (#{i 28486}#)
- (if (= #{i 28486}# #{n 28423}#)
- #{v 28424}#
+ ((#{loop 51755}#
+ (lambda (#{i 51816}#)
+ (if (= #{i 51816}# #{n 51753}#)
+ #{v 51754}#
(begin
(vector-set!
- #{v 28424}#
- #{i 28486}#
- (#{rebuild-macro-output 28256}#
- (vector-ref #{x 28363}# #{i 28486}#)
- #{m 28364}#))
- (#{loop 28425}# (#{1+}# #{i 28486}#)))))))
- (#{loop 28425}# 0))))
- (if (symbol? #{x 28363}#)
+ #{v 51754}#
+ #{i 51816}#
+ (#{rebuild-macro-output 51586}#
+ (vector-ref #{x 51693}# #{i 51816}#)
+ #{m 51694}#))
+ (#{loop 51755}# (#{1+}# #{i 51816}#)))))))
+ (#{loop 51755}# 0))))
+ (if (symbol? #{x 51693}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (let ((#{s 28492}# (cdr #{w 28252}#)))
- (let ((#{x 28496}#
+ (let ((#{s 51831}# (cdr #{w 51582}#)))
+ (let ((#{x 51835}#
(begin
- (if (if (pair? #{e 28250}#) #{s 28492}# #f)
+ (if (if (pair? #{e 51580}#) #{s 51831}# #f)
(set-source-properties!
- #{e 28250}#
- #{s 28492}#))
- #{e 28250}#)))
- (if (if (null? (car #{w 28252}#))
- (null? (cdr #{w 28252}#))
+ #{e 51580}#
+ #{s 51831}#))
+ #{e 51580}#)))
+ (if (if (null? (car #{w 51582}#))
+ (null? (cdr #{w 51582}#))
#f)
- #{x 28496}#
- (if (if (vector? #{x 28496}#)
- (if (= (vector-length #{x 28496}#) 4)
- (eq? (vector-ref #{x 28496}# 0)
+ #{x 51835}#
+ (if (if (vector? #{x 51835}#)
+ (if (= (vector-length #{x 51835}#) 4)
+ (eq? (vector-ref #{x 51835}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28528}#
- (vector-ref #{x 28496}# 1))
- (#{wrap 28529}#
- (let ((#{w2 28537}#
- (vector-ref #{x 28496}# 2)))
- (let ((#{m1 28538}#
- (car #{w 28252}#))
- (#{s1 28539}#
- (cdr #{w 28252}#)))
- (if (null? #{m1 28538}#)
- (if (null? #{s1 28539}#)
- #{w2 28537}#
- (cons (car #{w2 28537}#)
- (let ((#{m2 28554}#
- (cdr #{w2
28537}#)))
- (if (null? #{m2
28554}#)
- #{s1 28539}#
+ (let ((#{expression 51867}#
+ (vector-ref #{x 51835}# 1))
+ (#{wrap 51868}#
+ (let ((#{w2 51876}#
+ (vector-ref #{x 51835}# 2)))
+ (let ((#{m1 51877}#
+ (car #{w 51582}#))
+ (#{s1 51878}#
+ (cdr #{w 51582}#)))
+ (if (null? #{m1 51877}#)
+ (if (null? #{s1 51878}#)
+ #{w2 51876}#
+ (cons (car #{w2 51876}#)
+ (let ((#{m2 51893}#
+ (cdr #{w2
51876}#)))
+ (if (null? #{m2
51893}#)
+ #{s1 51878}#
(append
- #{s1 28539}#
- #{m2 28554}#)))))
- (cons (let ((#{m2 28562}#
- (car #{w2
28537}#)))
- (if (null? #{m2 28562}#)
- #{m1 28538}#
+ #{s1 51878}#
+ #{m2 51893}#)))))
+ (cons (let ((#{m2 51901}#
+ (car #{w2
51876}#)))
+ (if (null? #{m2 51901}#)
+ #{m1 51877}#
(append
- #{m1 28538}#
- #{m2 28562}#)))
- (let ((#{m2 28570}#
- (cdr #{w2
28537}#)))
- (if (null? #{m2 28570}#)
- #{s1 28539}#
+ #{m1 51877}#
+ #{m2 51901}#)))
+ (let ((#{m2 51909}#
+ (cdr #{w2
51876}#)))
+ (if (null? #{m2 51909}#)
+ #{s1 51878}#
(append
- #{s1 28539}#
- #{m2 28570}#))))))))
- (#{module 28530}#
- (vector-ref #{x 28496}# 3)))
+ #{s1 51878}#
+ #{m2 51909}#))))))))
+ (#{module 51869}#
+ (vector-ref #{x 51835}# 3)))
(vector
'syntax-object
- #{expression 28528}#
- #{wrap 28529}#
- #{module 28530}#))
- (if (null? #{x 28496}#)
- #{x 28496}#
+ #{expression 51867}#
+ #{wrap 51868}#
+ #{module 51869}#))
+ (if (null? #{x 51835}#)
+ #{x 51835}#
(vector
'syntax-object
- #{x 28496}#
- #{w 28252}#
- #{mod 28255}#))))))
- #{x 28363}#)
+ #{x 51835}#
+ #{w 51582}#
+ #{mod 51585}#))))))
+ #{x 51693}#)
(begin
- (if (if (pair? #{x 28363}#) #{s 28253}# #f)
- (set-source-properties! #{x 28363}# #{s 28253}#))
- #{x 28363}#))))))))
- (#{rebuild-macro-output 28256}#
- (#{p 28249}#
- (let ((#{w 28263}#
- (cons (cons #f (car #{w 28252}#))
- (cons 'shift (cdr #{w 28252}#)))))
- (let ((#{x 28268}#
+ (if (if (pair? #{x 51693}#) #{s 51583}# #f)
+ (set-source-properties! #{x 51693}# #{s 51583}#))
+ #{x 51693}#))))))))
+ (#{rebuild-macro-output 51586}#
+ (#{p 51579}#
+ (let ((#{w 51593}#
+ (cons (cons #f (car #{w 51582}#))
+ (cons 'shift (cdr #{w 51582}#)))))
+ (let ((#{x 51598}#
(begin
- (if (if (pair? #{e 28250}#) #{s 28253}# #f)
- (set-source-properties! #{e 28250}# #{s 28253}#))
- #{e 28250}#)))
- (if (if (null? (car #{w 28263}#))
- (null? (cdr #{w 28263}#))
+ (if (if (pair? #{e 51580}#) #{s 51583}# #f)
+ (set-source-properties! #{e 51580}# #{s 51583}#))
+ #{e 51580}#)))
+ (if (if (null? (car #{w 51593}#))
+ (null? (cdr #{w 51593}#))
#f)
- #{x 28268}#
- (if (if (vector? #{x 28268}#)
- (if (= (vector-length #{x 28268}#) 4)
- (eq? (vector-ref #{x 28268}# 0) 'syntax-object)
+ #{x 51598}#
+ (if (if (vector? #{x 51598}#)
+ (if (= (vector-length #{x 51598}#) 4)
+ (eq? (vector-ref #{x 51598}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 28306}# (vector-ref #{x 28268}# 1))
- (#{wrap 28307}#
- (let ((#{w2 28315}# (vector-ref #{x 28268}# 2)))
- (let ((#{m1 28316}# (car #{w 28263}#))
- (#{s1 28317}# (cdr #{w 28263}#)))
- (if (null? #{m1 28316}#)
- (if (null? #{s1 28317}#)
- #{w2 28315}#
- (cons (car #{w2 28315}#)
- (let ((#{m2 28332}#
- (cdr #{w2 28315}#)))
- (if (null? #{m2 28332}#)
- #{s1 28317}#
+ (let ((#{expression 51636}# (vector-ref #{x 51598}# 1))
+ (#{wrap 51637}#
+ (let ((#{w2 51645}# (vector-ref #{x 51598}# 2)))
+ (let ((#{m1 51646}# (car #{w 51593}#))
+ (#{s1 51647}# (cdr #{w 51593}#)))
+ (if (null? #{m1 51646}#)
+ (if (null? #{s1 51647}#)
+ #{w2 51645}#
+ (cons (car #{w2 51645}#)
+ (let ((#{m2 51662}#
+ (cdr #{w2 51645}#)))
+ (if (null? #{m2 51662}#)
+ #{s1 51647}#
(append
- #{s1 28317}#
- #{m2 28332}#)))))
- (cons (let ((#{m2 28340}#
- (car #{w2 28315}#)))
- (if (null? #{m2 28340}#)
- #{m1 28316}#
+ #{s1 51647}#
+ #{m2 51662}#)))))
+ (cons (let ((#{m2 51670}#
+ (car #{w2 51645}#)))
+ (if (null? #{m2 51670}#)
+ #{m1 51646}#
(append
- #{m1 28316}#
- #{m2 28340}#)))
- (let ((#{m2 28348}#
- (cdr #{w2 28315}#)))
- (if (null? #{m2 28348}#)
- #{s1 28317}#
+ #{m1 51646}#
+ #{m2 51670}#)))
+ (let ((#{m2 51678}#
+ (cdr #{w2 51645}#)))
+ (if (null? #{m2 51678}#)
+ #{s1 51647}#
(append
- #{s1 28317}#
- #{m2 28348}#))))))))
- (#{module 28308}# (vector-ref #{x 28268}# 3)))
+ #{s1 51647}#
+ #{m2 51678}#))))))))
+ (#{module 51638}# (vector-ref #{x 51598}# 3)))
(vector
'syntax-object
- #{expression 28306}#
- #{wrap 28307}#
- #{module 28308}#))
- (if (null? #{x 28268}#)
- #{x 28268}#
+ #{expression 51636}#
+ #{wrap 51637}#
+ #{module 51638}#))
+ (if (null? #{x 51598}#)
+ #{x 51598}#
(vector
'syntax-object
- #{x 28268}#
- #{w 28263}#
- #{mod 28255}#)))))))
+ #{x 51598}#
+ #{w 51593}#
+ #{mod 51585}#)))))))
(gensym "m")))))
- (#{expand-body 4447}#
- (lambda (#{body 28600}#
- #{outer-form 28601}#
- #{r 28602}#
- #{w 28603}#
- #{mod 28604}#)
- (let ((#{r 28605}#
- (cons '("placeholder" placeholder) #{r 28602}#)))
- (let ((#{ribcage 28606}# (vector 'ribcage '() '() '())))
- (let ((#{w 28607}#
- (cons (car #{w 28603}#)
- (cons #{ribcage 28606}# (cdr #{w 28603}#)))))
+ (#{expand-body 28275}#
+ (lambda (#{body 51939}#
+ #{outer-form 51940}#
+ #{r 51941}#
+ #{w 51942}#
+ #{mod 51943}#)
+ (let ((#{r 51944}#
+ (cons '("placeholder" placeholder) #{r 51941}#)))
+ (let ((#{ribcage 51945}# (vector 'ribcage '() '() '())))
+ (let ((#{w 51946}#
+ (cons (car #{w 51942}#)
+ (cons #{ribcage 51945}# (cdr #{w 51942}#)))))
(letrec*
- ((#{parse 28608}#
- (lambda (#{body 28716}#
- #{ids 28717}#
- #{labels 28718}#
- #{var-ids 28719}#
- #{vars 28720}#
- #{vals 28721}#
- #{bindings 28722}#)
- (if (null? #{body 28716}#)
+ ((#{parse 51947}#
+ (lambda (#{body 52055}#
+ #{ids 52056}#
+ #{labels 52057}#
+ #{var-ids 52058}#
+ #{vars 52059}#
+ #{vals 52060}#
+ #{bindings 52061}#)
+ (if (null? #{body 52055}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form 28601}#)
- (let ((#{e 28723}# (cdr (car #{body 28716}#)))
- (#{er 28724}# (car (car #{body 28716}#))))
+ #{outer-form 51940}#)
+ (let ((#{e 52062}# (cdr (car #{body 52055}#)))
+ (#{er 52063}# (car (car #{body 52055}#))))
(call-with-values
(lambda ()
- (#{syntax-type 4442}#
- #{e 28723}#
- #{er 28724}#
+ (#{syntax-type 28270}#
+ #{e 52062}#
+ #{er 52063}#
'(())
- (#{source-annotation 4404}# #{er 28724}#)
- #{ribcage 28606}#
- #{mod 28604}#
+ (#{source-annotation 28232}# #{er 52063}#)
+ #{ribcage 51945}#
+ #{mod 51943}#
#f))
- (lambda (#{type 28930}#
- #{value 28931}#
- #{e 28932}#
- #{w 28933}#
- #{s 28934}#
- #{mod 28935}#)
- (if (eqv? #{type 28930}# 'define-form)
- (let ((#{id 28939}#
- (if (if (null? (car #{w 28933}#))
- (null? (cdr #{w 28933}#))
+ (lambda (#{type 52251}#
+ #{value 52252}#
+ #{e 52253}#
+ #{w 52254}#
+ #{s 52255}#
+ #{mod 52256}#)
+ (if (eqv? #{type 52251}# 'define-form)
+ (let ((#{id 52260}#
+ (if (if (null? (car #{w 52254}#))
+ (null? (cdr #{w 52254}#))
#f)
- #{value 28931}#
- (if (if (vector? #{value 28931}#)
+ #{value 52252}#
+ (if (if (vector? #{value 52252}#)
(if (= (vector-length
- #{value 28931}#)
+ #{value 52252}#)
4)
(eq? (vector-ref
- #{value 28931}#
+ #{value 52252}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28984}#
+ (let ((#{expression 52305}#
(vector-ref
- #{value 28931}#
+ #{value 52252}#
1))
- (#{wrap 28985}#
- (let ((#{w2 28995}#
+ (#{wrap 52306}#
+ (let ((#{w2 52316}#
(vector-ref
- #{value 28931}#
+ #{value 52252}#
2)))
- (let ((#{m1 28996}#
- (car #{w 28933}#))
- (#{s1 28997}#
- (cdr #{w 28933}#)))
- (if (null? #{m1 28996}#)
- (if (null? #{s1
28997}#)
- #{w2 28995}#
- (cons (car #{w2
28995}#)
- (let ((#{m2
29014}#
- (cdr
#{w2 28995}#)))
- (if (null?
#{m2 29014}#)
- #{s1
28997}#
+ (let ((#{m1 52317}#
+ (car #{w 52254}#))
+ (#{s1 52318}#
+ (cdr #{w 52254}#)))
+ (if (null? #{m1 52317}#)
+ (if (null? #{s1
52318}#)
+ #{w2 52316}#
+ (cons (car #{w2
52316}#)
+ (let ((#{m2
52335}#
+ (cdr
#{w2 52316}#)))
+ (if (null?
#{m2 52335}#)
+ #{s1
52318}#
(append
- #{s1
28997}#
- #{m2
29014}#)))))
- (cons (let ((#{m2
29022}#
- (car
#{w2 28995}#)))
- (if (null?
#{m2 29022}#)
- #{m1 28996}#
+ #{s1
52318}#
+ #{m2
52335}#)))))
+ (cons (let ((#{m2
52343}#
+ (car
#{w2 52316}#)))
+ (if (null?
#{m2 52343}#)
+ #{m1 52317}#
(append
- #{m1
28996}#
- #{m2
29022}#)))
- (let ((#{m2
29030}#
- (cdr
#{w2 28995}#)))
- (if (null?
#{m2 29030}#)
- #{s1 28997}#
+ #{m1
52317}#
+ #{m2
52343}#)))
+ (let ((#{m2
52351}#
+ (cdr
#{w2 52316}#)))
+ (if (null?
#{m2 52351}#)
+ #{s1 52318}#
(append
- #{s1
28997}#
- #{m2
29030}#))))))))
- (#{module 28986}#
+ #{s1
52318}#
+ #{m2
52351}#))))))))
+ (#{module 52307}#
(vector-ref
- #{value 28931}#
+ #{value 52252}#
3)))
(vector
'syntax-object
- #{expression 28984}#
- #{wrap 28985}#
- #{module 28986}#))
- (if (null? #{value 28931}#)
- #{value 28931}#
+ #{expression 52305}#
+ #{wrap 52306}#
+ #{module 52307}#))
+ (if (null? #{value 52252}#)
+ #{value 52252}#
(vector
'syntax-object
- #{value 28931}#
- #{w 28933}#
- #{mod 28935}#)))))
- (#{label 28940}#
+ #{value 52252}#
+ #{w 52254}#
+ #{mod 52256}#)))))
+ (#{label 52261}#
(symbol->string (gensym "i"))))
- (let ((#{var 28941}#
- (let ((#{id 29091}#
- (if (if (vector? #{id 28939}#)
+ (let ((#{var 52262}#
+ (let ((#{id 52412}#
+ (if (if (vector? #{id 52260}#)
(if (= (vector-length
- #{id 28939}#)
+ #{id 52260}#)
4)
(eq? (vector-ref
- #{id 28939}#
+ #{id 52260}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 28939}# 1)
- #{id 28939}#)))
+ (vector-ref #{id 52260}# 1)
+ #{id 52260}#)))
(gensym
(string-append
- (symbol->string #{id 29091}#)
+ (symbol->string #{id 52412}#)
" ")))))
(begin
(begin
- (let ((#{update 28950}#
- (cons (vector-ref #{id 28939}# 1)
+ (let ((#{update 52271}#
+ (cons (vector-ref #{id 52260}# 1)
(vector-ref
- #{ribcage 28606}#
+ #{ribcage 51945}#
1))))
(vector-set!
- #{ribcage 28606}#
+ #{ribcage 51945}#
1
- #{update 28950}#))
- (let ((#{update 29062}#
+ #{update 52271}#))
+ (let ((#{update 52383}#
(cons (car (vector-ref
- #{id 28939}#
+ #{id 52260}#
2))
(vector-ref
- #{ribcage 28606}#
+ #{ribcage 51945}#
2))))
(vector-set!
- #{ribcage 28606}#
+ #{ribcage 51945}#
2
- #{update 29062}#))
- (let ((#{update 29077}#
- (cons #{label 28940}#
+ #{update 52383}#))
+ (let ((#{update 52398}#
+ (cons #{label 52261}#
(vector-ref
- #{ribcage 28606}#
+ #{ribcage 51945}#
3))))
(vector-set!
- #{ribcage 28606}#
+ #{ribcage 51945}#
3
- #{update 29077}#)))
- (#{parse 28608}#
- (cdr #{body 28716}#)
- (cons #{id 28939}# #{ids 28717}#)
- (cons #{label 28940}# #{labels 28718}#)
- (cons #{id 28939}# #{var-ids 28719}#)
- (cons #{var 28941}# #{vars 28720}#)
- (cons (cons #{er 28724}#
- (if (if (null? (car #{w
28933}#))
- (null? (cdr #{w
28933}#))
+ #{update 52398}#)))
+ (#{parse 51947}#
+ (cdr #{body 52055}#)
+ (cons #{id 52260}# #{ids 52056}#)
+ (cons #{label 52261}# #{labels 52057}#)
+ (cons #{id 52260}# #{var-ids 52058}#)
+ (cons #{var 52262}# #{vars 52059}#)
+ (cons (cons #{er 52063}#
+ (if (if (null? (car #{w
52254}#))
+ (null? (cdr #{w
52254}#))
#f)
- #{e 28932}#
+ #{e 52253}#
(if (if (vector?
- #{e 28932}#)
+ #{e 52253}#)
(if (= (vector-length
- #{e 28932}#)
+ #{e 52253}#)
4)
(eq? (vector-ref
- #{e 28932}#
+ #{e 52253}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression
29143}#
+ (let ((#{expression
52464}#
(vector-ref
- #{e 28932}#
+ #{e 52253}#
1))
- (#{wrap 29144}#
- (let ((#{w2
29154}#
+ (#{wrap 52465}#
+ (let ((#{w2
52475}#
(vector-ref
- #{e
28932}#
+ #{e
52253}#
2)))
- (let ((#{m1
29155}#
- (car
#{w 28933}#))
- (#{s1
29156}#
- (cdr
#{w 28933}#)))
- (if (null?
#{m1 29155}#)
- (if (null?
#{s1 29156}#)
- #{w2
29154}#
- (cons
(car #{w2 29154}#)
-
(let ((#{m2 29173}#
-
(cdr #{w2 29154}#)))
-
(if (null? #{m2 29173}#)
-
#{s1 29156}#
+ (let ((#{m1
52476}#
+ (car
#{w 52254}#))
+ (#{s1
52477}#
+ (cdr
#{w 52254}#)))
+ (if (null?
#{m1 52476}#)
+ (if (null?
#{s1 52477}#)
+ #{w2
52475}#
+ (cons
(car #{w2 52475}#)
+
(let ((#{m2 52494}#
+
(cdr #{w2 52475}#)))
+
(if (null? #{m2 52494}#)
+
#{s1 52477}#
(append
-
#{s1 29156}#
-
#{m2 29173}#)))))
- (cons (let
((#{m2 29181}#
-
(car #{w2 29154}#)))
-
(if (null? #{m2 29181}#)
-
#{m1 29155}#
+
#{s1 52477}#
+
#{m2 52494}#)))))
+ (cons (let
((#{m2 52502}#
+
(car #{w2 52475}#)))
+
(if (null? #{m2 52502}#)
+
#{m1 52476}#
(append
-
#{m1 29155}#
-
#{m2 29181}#)))
- (let
((#{m2 29189}#
-
(cdr #{w2 29154}#)))
-
(if (null? #{m2 29189}#)
-
#{s1 29156}#
+
#{m1 52476}#
+
#{m2 52502}#)))
+ (let
((#{m2 52510}#
+
(cdr #{w2 52475}#)))
+
(if (null? #{m2 52510}#)
+
#{s1 52477}#
(append
-
#{s1 29156}#
-
#{m2 29189}#))))))))
- (#{module 29145}#
+
#{s1 52477}#
+
#{m2 52510}#))))))))
+ (#{module 52466}#
(vector-ref
- #{e 28932}#
+ #{e 52253}#
3)))
(vector
'syntax-object
- #{expression 29143}#
- #{wrap 29144}#
- #{module 29145}#))
- (if (null? #{e 28932}#)
- #{e 28932}#
+ #{expression 52464}#
+ #{wrap 52465}#
+ #{module 52466}#))
+ (if (null? #{e 52253}#)
+ #{e 52253}#
(vector
'syntax-object
- #{e 28932}#
- #{w 28933}#
- #{mod 28935}#)))))
- #{vals 28721}#)
- (cons (cons 'lexical #{var 28941}#)
- #{bindings 28722}#)))))
- (if (if (eqv? #{type 28930}# 'define-syntax-form)
+ #{e 52253}#
+ #{w 52254}#
+ #{mod 52256}#)))))
+ #{vals 52060}#)
+ (cons (cons 'lexical #{var 52262}#)
+ #{bindings 52061}#)))))
+ (if (if (eqv? #{type 52251}# 'define-syntax-form)
#t
- (eqv? #{type 28930}#
+ (eqv? #{type 52251}#
'define-syntax-parameter-form))
- (let ((#{id 29220}#
- (if (if (null? (car #{w 28933}#))
- (null? (cdr #{w 28933}#))
+ (let ((#{id 52541}#
+ (if (if (null? (car #{w 52254}#))
+ (null? (cdr #{w 52254}#))
#f)
- #{value 28931}#
- (if (if (vector? #{value 28931}#)
+ #{value 52252}#
+ (if (if (vector? #{value 52252}#)
(if (= (vector-length
- #{value 28931}#)
+ #{value 52252}#)
4)
(eq? (vector-ref
- #{value 28931}#
+ #{value 52252}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 29264}#
+ (let ((#{expression 52585}#
(vector-ref
- #{value 28931}#
+ #{value 52252}#
1))
- (#{wrap 29265}#
- (let ((#{w2 29275}#
+ (#{wrap 52586}#
+ (let ((#{w2 52596}#
(vector-ref
- #{value 28931}#
+ #{value 52252}#
2)))
- (let ((#{m1 29276}#
- (car #{w
28933}#))
- (#{s1 29277}#
- (cdr #{w
28933}#)))
- (if (null? #{m1
29276}#)
- (if (null? #{s1
29277}#)
- #{w2 29275}#
- (cons (car #{w2
29275}#)
- (let ((#{m2
29294}#
- (cdr
#{w2 29275}#)))
- (if (null?
#{m2 29294}#)
- #{s1
29277}#
+ (let ((#{m1 52597}#
+ (car #{w
52254}#))
+ (#{s1 52598}#
+ (cdr #{w
52254}#)))
+ (if (null? #{m1
52597}#)
+ (if (null? #{s1
52598}#)
+ #{w2 52596}#
+ (cons (car #{w2
52596}#)
+ (let ((#{m2
52615}#
+ (cdr
#{w2 52596}#)))
+ (if (null?
#{m2 52615}#)
+ #{s1
52598}#
(append
- #{s1
29277}#
- #{m2
29294}#)))))
- (cons (let ((#{m2
29302}#
- (car
#{w2 29275}#)))
- (if (null?
#{m2 29302}#)
- #{m1
29276}#
+ #{s1
52598}#
+ #{m2
52615}#)))))
+ (cons (let ((#{m2
52623}#
+ (car
#{w2 52596}#)))
+ (if (null?
#{m2 52623}#)
+ #{m1
52597}#
(append
- #{m1
29276}#
- #{m2
29302}#)))
- (let ((#{m2
29310}#
- (cdr
#{w2 29275}#)))
- (if (null?
#{m2 29310}#)
- #{s1
29277}#
+ #{m1
52597}#
+ #{m2
52623}#)))
+ (let ((#{m2
52631}#
+ (cdr
#{w2 52596}#)))
+ (if (null?
#{m2 52631}#)
+ #{s1
52598}#
(append
- #{s1
29277}#
- #{m2
29310}#))))))))
- (#{module 29266}#
+ #{s1
52598}#
+ #{m2
52631}#))))))))
+ (#{module 52587}#
(vector-ref
- #{value 28931}#
+ #{value 52252}#
3)))
(vector
'syntax-object
- #{expression 29264}#
- #{wrap 29265}#
- #{module 29266}#))
- (if (null? #{value 28931}#)
- #{value 28931}#
+ #{expression 52585}#
+ #{wrap 52586}#
+ #{module 52587}#))
+ (if (null? #{value 52252}#)
+ #{value 52252}#
(vector
'syntax-object
- #{value 28931}#
- #{w 28933}#
- #{mod 28935}#)))))
- (#{label 29221}#
+ #{value 52252}#
+ #{w 52254}#
+ #{mod 52256}#)))))
+ (#{label 52542}#
(symbol->string (gensym "i"))))
(begin
(begin
- (let ((#{update 29230}#
- (cons (vector-ref #{id 29220}# 1)
+ (let ((#{update 52551}#
+ (cons (vector-ref #{id 52541}# 1)
(vector-ref
- #{ribcage 28606}#
+ #{ribcage 51945}#
1))))
(vector-set!
- #{ribcage 28606}#
+ #{ribcage 51945}#
1
- #{update 29230}#))
- (let ((#{update 29342}#
+ #{update 52551}#))
+ (let ((#{update 52663}#
(cons (car (vector-ref
- #{id 29220}#
+ #{id 52541}#
2))
(vector-ref
- #{ribcage 28606}#
+ #{ribcage 51945}#
2))))
(vector-set!
- #{ribcage 28606}#
+ #{ribcage 51945}#
2
- #{update 29342}#))
- (let ((#{update 29357}#
- (cons #{label 29221}#
+ #{update 52663}#))
+ (let ((#{update 52678}#
+ (cons #{label 52542}#
(vector-ref
- #{ribcage 28606}#
+ #{ribcage 51945}#
3))))
(vector-set!
- #{ribcage 28606}#
+ #{ribcage 51945}#
3
- #{update 29357}#)))
- (#{parse 28608}#
- (cdr #{body 28716}#)
- (cons #{id 29220}# #{ids 28717}#)
- (cons #{label 29221}# #{labels 28718}#)
- #{var-ids 28719}#
- #{vars 28720}#
- #{vals 28721}#
- (cons (cons (if (eq? #{type 28930}#
+ #{update 52678}#)))
+ (#{parse 51947}#
+ (cdr #{body 52055}#)
+ (cons #{id 52541}# #{ids 52056}#)
+ (cons #{label 52542}# #{labels 52057}#)
+ #{var-ids 52058}#
+ #{vars 52059}#
+ #{vals 52060}#
+ (cons (cons (if (eq? #{type 52251}#
'define-syntax-parameter-form)
'syntax-parameter
'macro)
- (cons #{er 28724}#
- (if (if (null? (car
#{w 28933}#))
- (null? (cdr #{w
28933}#))
+ (cons #{er 52063}#
+ (if (if (null? (car
#{w 52254}#))
+ (null? (cdr #{w
52254}#))
#f)
- #{e 28932}#
+ #{e 52253}#
(if (if (vector?
- #{e
28932}#)
+ #{e
52253}#)
(if (=
(vector-length
- #{e
28932}#)
+ #{e
52253}#)
4)
(eq?
(vector-ref
- #{e
28932}#
+ #{e
52253}#
0)
'syntax-object)
#f)
#f)
- (let
((#{expression 29396}#
+ (let
((#{expression 52717}#
(vector-ref
- #{e
28932}#
+ #{e
52253}#
1))
- (#{wrap
29397}#
- (let
((#{w2 29407}#
+ (#{wrap
52718}#
+ (let
((#{w2 52728}#
(vector-ref
-
#{e 28932}#
+
#{e 52253}#
2)))
- (let
((#{m1 29408}#
-
(car #{w 28933}#))
-
(#{s1 29409}#
-
(cdr #{w 28933}#)))
- (if
(null? #{m1 29408}#)
- (if
(null? #{s1 29409}#)
-
#{w2 29407}#
-
(cons (car #{w2 29407}#)
-
(let ((#{m2 29426}#
-
(cdr #{w2 29407}#)))
-
(if (null? #{m2 29426}#)
-
#{s1 29409}#
+ (let
((#{m1 52729}#
+
(car #{w 52254}#))
+
(#{s1 52730}#
+
(cdr #{w 52254}#)))
+ (if
(null? #{m1 52729}#)
+ (if
(null? #{s1 52730}#)
+
#{w2 52728}#
+
(cons (car #{w2 52728}#)
+
(let ((#{m2 52747}#
+
(cdr #{w2 52728}#)))
+
(if (null? #{m2 52747}#)
+
#{s1 52730}#
(append
-
#{s1 29409}#
-
#{m2 29426}#)))))
-
(cons (let ((#{m2 29434}#
-
(car #{w2 29407}#)))
-
(if (null? #{m2 29434}#)
-
#{m1 29408}#
+
#{s1 52730}#
+
#{m2 52747}#)))))
+
(cons (let ((#{m2 52755}#
+
(car #{w2 52728}#)))
+
(if (null? #{m2 52755}#)
+
#{m1 52729}#
(append
-
#{m1 29408}#
-
#{m2 29434}#)))
-
(let ((#{m2 29442}#
-
(cdr #{w2 29407}#)))
-
(if (null? #{m2 29442}#)
-
#{s1 29409}#
+
#{m1 52729}#
+
#{m2 52755}#)))
+
(let ((#{m2 52763}#
+
(cdr #{w2 52728}#)))
+
(if (null? #{m2 52763}#)
+
#{s1 52730}#
(append
-
#{s1 29409}#
-
#{m2 29442}#))))))))
- (#{module
29398}#
+
#{s1 52730}#
+
#{m2 52763}#))))))))
+ (#{module
52719}#
(vector-ref
- #{e
28932}#
+ #{e
52253}#
3)))
(vector
'syntax-object
- #{expression
29396}#
- #{wrap 29397}#
- #{module
29398}#))
- (if (null? #{e
28932}#)
- #{e 28932}#
+ #{expression
52717}#
+ #{wrap 52718}#
+ #{module
52719}#))
+ (if (null? #{e
52253}#)
+ #{e 52253}#
(vector
'syntax-object
- #{e 28932}#
- #{w 28933}#
- #{mod
28935}#))))))
- #{bindings 28722}#))))
- (if (eqv? #{type 28930}# 'begin-form)
- (let ((#{tmp 29469}#
+ #{e 52253}#
+ #{w 52254}#
+ #{mod
52256}#))))))
+ #{bindings 52061}#))))
+ (if (eqv? #{type 52251}# 'begin-form)
+ (let ((#{tmp 52790}#
($sc-dispatch
- #{e 28932}#
+ #{e 52253}#
'(_ . each-any))))
- (if #{tmp 29469}#
+ (if #{tmp 52790}#
(@apply
- (lambda (#{e1 29473}#)
- (#{parse 28608}#
+ (lambda (#{e1 52794}#)
+ (#{parse 51947}#
(letrec*
- ((#{f 29474}#
- (lambda (#{forms 29690}#)
- (if (null? #{forms 29690}#)
- (cdr #{body 28716}#)
- (cons (cons #{er 28724}#
- (let ((#{x
29694}#
- (car
#{forms 29690}#)))
- (if (if
(null? (car #{w 28933}#))
-
(null? (cdr #{w 28933}#))
+ ((#{f 52795}#
+ (lambda (#{forms 52996}#)
+ (if (null? #{forms 52996}#)
+ (cdr #{body 52055}#)
+ (cons (cons #{er 52063}#
+ (let ((#{x
53000}#
+ (car
#{forms 52996}#)))
+ (if (if
(null? (car #{w 52254}#))
+
(null? (cdr #{w 52254}#))
#f)
- #{x
29694}#
+ #{x
53000}#
(if (if
(vector?
-
#{x 29694}#)
+
#{x 53000}#)
(if
(= (vector-length
-
#{x 29694}#)
+
#{x 53000}#)
4)
(eq? (vector-ref
-
#{x 29694}#
+
#{x 53000}#
0)
'syntax-object)
#f)
#f)
- (let
((#{expression 29712}#
+ (let
((#{expression 53018}#
(vector-ref
-
#{x 29694}#
+
#{x 53000}#
1))
-
(#{wrap 29713}#
-
(let ((#{w2 29721}#
+
(#{wrap 53019}#
+
(let ((#{w2 53027}#
(vector-ref
-
#{x 29694}#
+
#{x 53000}#
2)))
-
(let ((#{m1 29722}#
-
(car #{w 28933}#))
-
(#{s1 29723}#
-
(cdr #{w 28933}#)))
-
(if (null? #{m1 29722}#)
-
(if (null? #{s1 29723}#)
-
#{w2 29721}#
-
(cons (car #{w2 29721}#)
-
(let ((#{m2 29738}#
-
(cdr #{w2 29721}#)))
-
(if (null? #{m2 29738}#)
-
#{s1 29723}#
+
(let ((#{m1 53028}#
+
(car #{w 52254}#))
+
(#{s1 53029}#
+
(cdr #{w 52254}#)))
+
(if (null? #{m1 53028}#)
+
(if (null? #{s1 53029}#)
+
#{w2 53027}#
+
(cons (car #{w2 53027}#)
+
(let ((#{m2 53044}#
+
(cdr #{w2 53027}#)))
+
(if (null? #{m2 53044}#)
+
#{s1 53029}#
(append
-
#{s1 29723}#
-
#{m2 29738}#)))))
-
(cons (let ((#{m2 29746}#
-
(car #{w2 29721}#)))
-
(if (null? #{m2 29746}#)
-
#{m1 29722}#
+
#{s1 53029}#
+
#{m2 53044}#)))))
+
(cons (let ((#{m2 53052}#
+
(car #{w2 53027}#)))
+
(if (null? #{m2 53052}#)
+
#{m1 53028}#
(append
-
#{m1 29722}#
-
#{m2 29746}#)))
-
(let ((#{m2 29754}#
-
(cdr #{w2 29721}#)))
-
(if (null? #{m2 29754}#)
-
#{s1 29723}#
+
#{m1 53028}#
+
#{m2 53052}#)))
+
(let ((#{m2 53060}#
+
(cdr #{w2 53027}#)))
+
(if (null? #{m2 53060}#)
+
#{s1 53029}#
(append
-
#{s1 29723}#
-
#{m2 29754}#))))))))
-
(#{module 29714}#
+
#{s1 53029}#
+
#{m2 53060}#))))))))
+
(#{module 53020}#
(vector-ref
-
#{x 29694}#
+
#{x 53000}#
3)))
(vector
'syntax-object
-
#{expression 29712}#
-
#{wrap 29713}#
-
#{module 29714}#))
- (if
(null? #{x 29694}#)
- #{x
29694}#
+
#{expression 53018}#
+
#{wrap 53019}#
+
#{module 53020}#))
+ (if
(null? #{x 53000}#)
+ #{x
53000}#
(vector
'syntax-object
- #{x
29694}#
- #{w
28933}#
-
#{mod 28935}#))))))
- (#{f 29474}#
- (cdr #{forms
29690}#)))))))
- (#{f 29474}# #{e1 29473}#))
- #{ids 28717}#
- #{labels 28718}#
- #{var-ids 28719}#
- #{vars 28720}#
- #{vals 28721}#
- #{bindings 28722}#))
- #{tmp 29469}#)
+ #{x
53000}#
+ #{w
52254}#
+
#{mod 52256}#))))))
+ (#{f 52795}#
+ (cdr #{forms
52996}#)))))))
+ (#{f 52795}# #{e1 52794}#))
+ #{ids 52056}#
+ #{labels 52057}#
+ #{var-ids 52058}#
+ #{vars 52059}#
+ #{vals 52060}#
+ #{bindings 52061}#))
+ #{tmp 52790}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 28932}#)))
- (if (eqv? #{type 28930}# 'local-syntax-form)
- (#{expand-local-syntax 4448}#
- #{value 28931}#
- #{e 28932}#
- #{er 28724}#
- #{w 28933}#
- #{s 28934}#
- #{mod 28935}#
- (lambda (#{forms 29780}#
- #{er 29781}#
- #{w 29782}#
- #{s 29783}#
- #{mod 29784}#)
- (#{parse 28608}#
+ #{e 52253}#)))
+ (if (eqv? #{type 52251}# 'local-syntax-form)
+ (#{expand-local-syntax 28276}#
+ #{value 52252}#
+ #{e 52253}#
+ #{er 52063}#
+ #{w 52254}#
+ #{s 52255}#
+ #{mod 52256}#
+ (lambda (#{forms 53086}#
+ #{er 53087}#
+ #{w 53088}#
+ #{s 53089}#
+ #{mod 53090}#)
+ (#{parse 51947}#
(letrec*
- ((#{f 29785}#
- (lambda (#{forms 30001}#)
- (if (null? #{forms 30001}#)
- (cdr #{body 28716}#)
- (cons (cons #{er 29781}#
- (let ((#{x
30005}#
- (car
#{forms 30001}#)))
- (if (if
(null? (car #{w 29782}#))
- (null?
(cdr #{w 29782}#))
+ ((#{f 53091}#
+ (lambda (#{forms 53292}#)
+ (if (null? #{forms 53292}#)
+ (cdr #{body 52055}#)
+ (cons (cons #{er 53087}#
+ (let ((#{x
53296}#
+ (car
#{forms 53292}#)))
+ (if (if
(null? (car #{w 53088}#))
+ (null?
(cdr #{w 53088}#))
#f)
- #{x 30005}#
+ #{x 53296}#
(if (if
(vector?
-
#{x 30005}#)
+
#{x 53296}#)
(if
(= (vector-length
-
#{x 30005}#)
+
#{x 53296}#)
4)
(eq? (vector-ref
-
#{x 30005}#
+
#{x 53296}#
0)
'syntax-object)
#f)
#f)
- (let
((#{expression 30023}#
+ (let
((#{expression 53314}#
(vector-ref
-
#{x 30005}#
+
#{x 53296}#
1))
-
(#{wrap 30024}#
-
(let ((#{w2 30032}#
+
(#{wrap 53315}#
+
(let ((#{w2 53323}#
(vector-ref
-
#{x 30005}#
+
#{x 53296}#
2)))
-
(let ((#{m1 30033}#
-
(car #{w 29782}#))
-
(#{s1 30034}#
-
(cdr #{w 29782}#)))
-
(if (null? #{m1 30033}#)
-
(if (null? #{s1 30034}#)
-
#{w2 30032}#
-
(cons (car #{w2 30032}#)
-
(let ((#{m2 30049}#
-
(cdr #{w2 30032}#)))
-
(if (null? #{m2 30049}#)
-
#{s1 30034}#
+
(let ((#{m1 53324}#
+
(car #{w 53088}#))
+
(#{s1 53325}#
+
(cdr #{w 53088}#)))
+
(if (null? #{m1 53324}#)
+
(if (null? #{s1 53325}#)
+
#{w2 53323}#
+
(cons (car #{w2 53323}#)
+
(let ((#{m2 53340}#
+
(cdr #{w2 53323}#)))
+
(if (null? #{m2 53340}#)
+
#{s1 53325}#
(append
-
#{s1 30034}#
-
#{m2 30049}#)))))
-
(cons (let ((#{m2 30057}#
-
(car #{w2 30032}#)))
-
(if (null? #{m2 30057}#)
-
#{m1 30033}#
+
#{s1 53325}#
+
#{m2 53340}#)))))
+
(cons (let ((#{m2 53348}#
+
(car #{w2 53323}#)))
+
(if (null? #{m2 53348}#)
+
#{m1 53324}#
(append
-
#{m1 30033}#
-
#{m2 30057}#)))
-
(let ((#{m2 30065}#
-
(cdr #{w2 30032}#)))
-
(if (null? #{m2 30065}#)
-
#{s1 30034}#
+
#{m1 53324}#
+
#{m2 53348}#)))
+
(let ((#{m2 53356}#
+
(cdr #{w2 53323}#)))
+
(if (null? #{m2 53356}#)
+
#{s1 53325}#
(append
-
#{s1 30034}#
-
#{m2 30065}#))))))))
-
(#{module 30025}#
+
#{s1 53325}#
+
#{m2 53356}#))))))))
+
(#{module 53316}#
(vector-ref
-
#{x 30005}#
+
#{x 53296}#
3)))
(vector
'syntax-object
-
#{expression 30023}#
-
#{wrap 30024}#
-
#{module 30025}#))
- (if
(null? #{x 30005}#)
- #{x
30005}#
+
#{expression 53314}#
+
#{wrap 53315}#
+
#{module 53316}#))
+ (if
(null? #{x 53296}#)
+ #{x
53296}#
(vector
'syntax-object
- #{x
30005}#
- #{w
29782}#
- #{mod
29784}#))))))
- (#{f 29785}#
- (cdr #{forms
30001}#)))))))
- (#{f 29785}# #{forms 29780}#))
- #{ids 28717}#
- #{labels 28718}#
- #{var-ids 28719}#
- #{vars 28720}#
- #{vals 28721}#
- #{bindings 28722}#)))
- (if (null? #{ids 28717}#)
- (#{build-sequence 4392}#
+ #{x
53296}#
+ #{w
53088}#
+ #{mod
53090}#))))))
+ (#{f 53091}#
+ (cdr #{forms
53292}#)))))))
+ (#{f 53091}# #{forms 53086}#))
+ #{ids 52056}#
+ #{labels 52057}#
+ #{var-ids 52058}#
+ #{vars 52059}#
+ #{vals 52060}#
+ #{bindings 52061}#)))
+ (if (null? #{ids 52056}#)
+ (#{build-sequence 28220}#
#f
- (map (lambda (#{x 30154}#)
- (#{expand 4443}#
- (cdr #{x 30154}#)
- (car #{x 30154}#)
+ (map (lambda (#{x 53441}#)
+ (#{expand 28271}#
+ (cdr #{x 53441}#)
+ (car #{x 53441}#)
'(())
- #{mod 28935}#))
- (cons (cons #{er 28724}#
- (let ((#{x 30233}#
+ #{mod 52256}#))
+ (cons (cons #{er 52063}#
+ (let ((#{x 53516}#
(begin
- (if (if
(pair? #{e 28932}#)
- #{s
28934}#
+ (if (if
(pair? #{e 52253}#)
+ #{s
52255}#
#f)
(set-source-properties!
- #{e
28932}#
- #{s
28934}#))
- #{e
28932}#)))
- (if (if (null? (car
#{w 28933}#))
- (null? (cdr
#{w 28933}#))
+ #{e
52253}#
+ #{s
52255}#))
+ #{e
52253}#)))
+ (if (if (null? (car
#{w 52254}#))
+ (null? (cdr
#{w 52254}#))
#f)
- #{x 30233}#
+ #{x 53516}#
(if (if (vector?
- #{x
30233}#)
+ #{x
53516}#)
(if (=
(vector-length
-
#{x 30233}#)
+
#{x 53516}#)
4)
(eq?
(vector-ref
-
#{x 30233}#
+
#{x 53516}#
0)
'syntax-object)
#f)
#f)
- (let
((#{expression 30265}#
+ (let
((#{expression 53548}#
(vector-ref
- #{x
30233}#
+ #{x
53516}#
1))
- (#{wrap
30266}#
- (let
((#{w2 30274}#
+ (#{wrap
53549}#
+ (let
((#{w2 53557}#
(vector-ref
-
#{x 30233}#
+
#{x 53516}#
2)))
- (let
((#{m1 30275}#
-
(car #{w 28933}#))
-
(#{s1 30276}#
-
(cdr #{w 28933}#)))
- (if
(null? #{m1 30275}#)
-
(if (null? #{s1 30276}#)
-
#{w2 30274}#
-
(cons (car #{w2 30274}#)
-
(let ((#{m2 30291}#
-
(cdr #{w2 30274}#)))
-
(if (null? #{m2 30291}#)
-
#{s1 30276}#
+ (let
((#{m1 53558}#
+
(car #{w 52254}#))
+
(#{s1 53559}#
+
(cdr #{w 52254}#)))
+ (if
(null? #{m1 53558}#)
+
(if (null? #{s1 53559}#)
+
#{w2 53557}#
+
(cons (car #{w2 53557}#)
+
(let ((#{m2 53574}#
+
(cdr #{w2 53557}#)))
+
(if (null? #{m2 53574}#)
+
#{s1 53559}#
(append
-
#{s1 30276}#
-
#{m2 30291}#)))))
-
(cons (let ((#{m2 30299}#
-
(car #{w2 30274}#)))
-
(if (null? #{m2 30299}#)
-
#{m1 30275}#
+
#{s1 53559}#
+
#{m2 53574}#)))))
+
(cons (let ((#{m2 53582}#
+
(car #{w2 53557}#)))
+
(if (null? #{m2 53582}#)
+
#{m1 53558}#
(append
-
#{m1 30275}#
-
#{m2 30299}#)))
-
(let ((#{m2 30307}#
-
(cdr #{w2 30274}#)))
-
(if (null? #{m2 30307}#)
-
#{s1 30276}#
+
#{m1 53558}#
+
#{m2 53582}#)))
+
(let ((#{m2 53590}#
+
(cdr #{w2 53557}#)))
+
(if (null? #{m2 53590}#)
+
#{s1 53559}#
(append
-
#{s1 30276}#
-
#{m2 30307}#))))))))
- (#{module
30267}#
+
#{s1 53559}#
+
#{m2 53590}#))))))))
+ (#{module
53550}#
(vector-ref
- #{x
30233}#
+ #{x
53516}#
3)))
(vector
'syntax-object
-
#{expression 30265}#
- #{wrap
30266}#
- #{module
30267}#))
- (if (null? #{x
30233}#)
- #{x 30233}#
+
#{expression 53548}#
+ #{wrap
53549}#
+ #{module
53550}#))
+ (if (null? #{x
53516}#)
+ #{x 53516}#
(vector
'syntax-object
- #{x 30233}#
- #{w 28933}#
- #{mod
28935}#))))))
- (cdr #{body 28716}#))))
+ #{x 53516}#
+ #{w 52254}#
+ #{mod
52256}#))))))
+ (cdr #{body 52055}#))))
(begin
- (if (not (#{valid-bound-ids? 4433}#
- #{ids 28717}#))
+ (if (not (#{valid-bound-ids? 28261}#
+ #{ids 52056}#))
(syntax-violation
#f
"invalid or duplicate identifier
in definition"
- #{outer-form 28601}#))
+ #{outer-form 51940}#))
(letrec*
- ((#{loop 30406}#
- (lambda (#{bs 30409}#
- #{er-cache 30410}#
- #{r-cache 30411}#)
- (if (not (null? #{bs 30409}#))
- (let ((#{b 30412}#
- (car #{bs 30409}#)))
- (if (let ((#{t 30415}#
- (car #{b
30412}#)))
- (if (eq? #{t 30415}#
+ ((#{loop 53689}#
+ (lambda (#{bs 53692}#
+ #{er-cache 53693}#
+ #{r-cache 53694}#)
+ (if (not (null? #{bs 53692}#))
+ (let ((#{b 53695}#
+ (car #{bs 53692}#)))
+ (if (let ((#{t 53698}#
+ (car #{b
53695}#)))
+ (if (eq? #{t 53698}#
'macro)
#t
- (eq? #{t 30415}#
+ (eq? #{t 53698}#
'syntax-parameter)))
- (let ((#{er 30417}#
- (car (cdr #{b
30412}#))))
- (let ((#{r-cache 30418}#
- (if (eq? #{er
30417}#
-
#{er-cache 30410}#)
- #{r-cache
30411}#
-
(#{macros-only-env 4407}#
- #{er
30417}#))))
+ (let ((#{er 53700}#
+ (car (cdr #{b
53695}#))))
+ (let ((#{r-cache 53701}#
+ (if (eq? #{er
53700}#
+
#{er-cache 53693}#)
+ #{r-cache
53694}#
+
(#{macros-only-env 28235}#
+ #{er
53700}#))))
(begin
(set-cdr!
- #{b 30412}#
-
(#{eval-local-transformer 4449}#
- (#{expand 4443}#
- (cdr (cdr #{b
30412}#))
- #{r-cache
30418}#
+ #{b 53695}#
+
(#{eval-local-transformer 28277}#
+ (#{expand
28271}#
+ (cdr (cdr #{b
53695}#))
+ #{r-cache
53701}#
'(())
- #{mod 28935}#)
- #{mod 28935}#))
- (if (eq? (car #{b
30412}#)
+ #{mod 52256}#)
+ #{mod 52256}#))
+ (if (eq? (car #{b
53695}#)
'syntax-parameter)
(set-cdr!
- #{b 30412}#
- (list (cdr #{b
30412}#))))
- (#{loop 30406}#
- (cdr #{bs 30409}#)
- #{er 30417}#
- #{r-cache
30418}#))))
- (#{loop 30406}#
- (cdr #{bs 30409}#)
- #{er-cache 30410}#
- #{r-cache 30411}#)))))))
- (#{loop 30406}#
- #{bindings 28722}#
+ #{b 53695}#
+ (list (cdr #{b
53695}#))))
+ (#{loop 53689}#
+ (cdr #{bs 53692}#)
+ #{er 53700}#
+ #{r-cache
53701}#))))
+ (#{loop 53689}#
+ (cdr #{bs 53692}#)
+ #{er-cache 53693}#
+ #{r-cache 53694}#)))))))
+ (#{loop 53689}#
+ #{bindings 52061}#
#f
#f))
(set-cdr!
- #{r 28605}#
- (#{extend-env 4405}#
- #{labels 28718}#
- #{bindings 28722}#
- (cdr #{r 28605}#)))
- (#{build-letrec 4395}#
+ #{r 51944}#
+ (#{extend-env 28233}#
+ #{labels 52057}#
+ #{bindings 52061}#
+ (cdr #{r 51944}#)))
+ (#{build-letrec 28223}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids 28719}#))
- (reverse #{vars 28720}#)
- (map (lambda (#{x 30846}#)
- (#{expand 4443}#
- (cdr #{x 30846}#)
- (car #{x 30846}#)
+ #{var-ids 52058}#))
+ (reverse #{vars 52059}#)
+ (map (lambda (#{x 54121}#)
+ (#{expand 28271}#
+ (cdr #{x 54121}#)
+ (car #{x 54121}#)
'(())
- #{mod 28935}#))
- (reverse #{vals 28721}#))
- (#{build-sequence 4392}#
+ #{mod 52256}#))
+ (reverse #{vals 52060}#))
+ (#{build-sequence 28220}#
#f
- (map (lambda (#{x 30990}#)
- (#{expand 4443}#
- (cdr #{x 30990}#)
- (car #{x 30990}#)
+ (map (lambda (#{x 54257}#)
+ (#{expand 28271}#
+ (cdr #{x 54257}#)
+ (car #{x 54257}#)
'(())
- #{mod 28935}#))
- (cons (cons #{er 28724}#
- (let ((#{x 31069}#
+ #{mod 52256}#))
+ (cons (cons #{er 52063}#
+ (let ((#{x 54332}#
(begin
- (if (if
(pair? #{e 28932}#)
-
#{s 28934}#
+ (if (if
(pair? #{e 52253}#)
+
#{s 52255}#
#f)
(set-source-properties!
- #{e
28932}#
- #{s
28934}#))
- #{e
28932}#)))
- (if (if (null?
(car #{w 28933}#))
- (null?
(cdr #{w 28933}#))
+ #{e
52253}#
+ #{s
52255}#))
+ #{e
52253}#)))
+ (if (if (null?
(car #{w 52254}#))
+ (null?
(cdr #{w 52254}#))
#f)
- #{x 31069}#
+ #{x 54332}#
(if (if
(vector?
- #{x
31069}#)
+ #{x
54332}#)
(if (=
(vector-length
-
#{x 31069}#)
+
#{x 54332}#)
4)
(eq?
(vector-ref
-
#{x 31069}#
+
#{x 54332}#
0)
'syntax-object)
#f)
#f)
- (let
((#{expression 31101}#
+ (let
((#{expression 54364}#
(vector-ref
-
#{x 31069}#
+
#{x 54332}#
1))
-
(#{wrap 31102}#
-
(let ((#{w2 31110}#
+
(#{wrap 54365}#
+
(let ((#{w2 54373}#
(vector-ref
-
#{x 31069}#
+
#{x 54332}#
2)))
-
(let ((#{m1 31111}#
-
(car #{w 28933}#))
-
(#{s1 31112}#
-
(cdr #{w 28933}#)))
-
(if (null? #{m1 31111}#)
-
(if (null? #{s1 31112}#)
-
#{w2 31110}#
-
(cons (car #{w2 31110}#)
-
(let ((#{m2 31127}#
-
(cdr #{w2 31110}#)))
-
(if (null? #{m2 31127}#)
-
#{s1 31112}#
+
(let ((#{m1 54374}#
+
(car #{w 52254}#))
+
(#{s1 54375}#
+
(cdr #{w 52254}#)))
+
(if (null? #{m1 54374}#)
+
(if (null? #{s1 54375}#)
+
#{w2 54373}#
+
(cons (car #{w2 54373}#)
+
(let ((#{m2 54390}#
+
(cdr #{w2 54373}#)))
+
(if (null? #{m2 54390}#)
+
#{s1 54375}#
(append
-
#{s1 31112}#
-
#{m2 31127}#)))))
-
(cons (let ((#{m2 31135}#
-
(car #{w2 31110}#)))
-
(if (null? #{m2 31135}#)
-
#{m1 31111}#
+
#{s1 54375}#
+
#{m2 54390}#)))))
+
(cons (let ((#{m2 54398}#
+
(car #{w2 54373}#)))
+
(if (null? #{m2 54398}#)
+
#{m1 54374}#
(append
-
#{m1 31111}#
-
#{m2 31135}#)))
-
(let ((#{m2 31143}#
-
(cdr #{w2 31110}#)))
-
(if (null? #{m2 31143}#)
-
#{s1 31112}#
+
#{m1 54374}#
+
#{m2 54398}#)))
+
(let ((#{m2 54406}#
+
(cdr #{w2 54373}#)))
+
(if (null? #{m2 54406}#)
+
#{s1 54375}#
(append
-
#{s1 31112}#
-
#{m2 31143}#))))))))
-
(#{module 31103}#
+
#{s1 54375}#
+
#{m2 54406}#))))))))
+
(#{module 54366}#
(vector-ref
-
#{x 31069}#
+
#{x 54332}#
3)))
(vector
'syntax-object
-
#{expression 31101}#
- #{wrap
31102}#
-
#{module 31103}#))
- (if (null?
#{x 31069}#)
- #{x
31069}#
+
#{expression 54364}#
+ #{wrap
54365}#
+
#{module 54366}#))
+ (if (null?
#{x 54332}#)
+ #{x
54332}#
(vector
'syntax-object
- #{x
31069}#
- #{w
28933}#
- #{mod
28935}#))))))
- (cdr #{body
28716}#))))))))))))))))))
- (#{parse 28608}#
- (map (lambda (#{x 28611}#)
- (cons #{r 28605}#
- (if (if (null? (car #{w 28607}#))
- (null? (cdr #{w 28607}#))
+ #{x
54332}#
+ #{w
52254}#
+ #{mod
52256}#))))))
+ (cdr #{body
52055}#))))))))))))))))))
+ (#{parse 51947}#
+ (map (lambda (#{x 51950}#)
+ (cons #{r 51944}#
+ (if (if (null? (car #{w 51946}#))
+ (null? (cdr #{w 51946}#))
#f)
- #{x 28611}#
- (if (if (vector? #{x 28611}#)
- (if (= (vector-length #{x 28611}#) 4)
- (eq? (vector-ref #{x 28611}# 0)
+ #{x 51950}#
+ (if (if (vector? #{x 51950}#)
+ (if (= (vector-length #{x 51950}#) 4)
+ (eq? (vector-ref #{x 51950}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28647}#
- (vector-ref #{x 28611}# 1))
- (#{wrap 28648}#
- (let ((#{w2 28658}#
- (vector-ref #{x 28611}# 2)))
- (let ((#{m1 28659}#
- (car #{w 28607}#))
- (#{s1 28660}#
- (cdr #{w 28607}#)))
- (if (null? #{m1 28659}#)
- (if (null? #{s1 28660}#)
- #{w2 28658}#
- (cons (car #{w2 28658}#)
- (let ((#{m2 28677}#
- (cdr #{w2
28658}#)))
- (if (null? #{m2
28677}#)
- #{s1 28660}#
+ (let ((#{expression 51986}#
+ (vector-ref #{x 51950}# 1))
+ (#{wrap 51987}#
+ (let ((#{w2 51997}#
+ (vector-ref #{x 51950}# 2)))
+ (let ((#{m1 51998}#
+ (car #{w 51946}#))
+ (#{s1 51999}#
+ (cdr #{w 51946}#)))
+ (if (null? #{m1 51998}#)
+ (if (null? #{s1 51999}#)
+ #{w2 51997}#
+ (cons (car #{w2 51997}#)
+ (let ((#{m2 52016}#
+ (cdr #{w2
51997}#)))
+ (if (null? #{m2
52016}#)
+ #{s1 51999}#
(append
- #{s1 28660}#
- #{m2 28677}#)))))
- (cons (let ((#{m2 28685}#
- (car #{w2
28658}#)))
- (if (null? #{m2
28685}#)
- #{m1 28659}#
+ #{s1 51999}#
+ #{m2 52016}#)))))
+ (cons (let ((#{m2 52024}#
+ (car #{w2
51997}#)))
+ (if (null? #{m2
52024}#)
+ #{m1 51998}#
(append
- #{m1 28659}#
- #{m2 28685}#)))
- (let ((#{m2 28693}#
- (cdr #{w2
28658}#)))
- (if (null? #{m2
28693}#)
- #{s1 28660}#
+ #{m1 51998}#
+ #{m2 52024}#)))
+ (let ((#{m2 52032}#
+ (cdr #{w2
51997}#)))
+ (if (null? #{m2
52032}#)
+ #{s1 51999}#
(append
- #{s1 28660}#
- #{m2
28693}#))))))))
- (#{module 28649}#
- (vector-ref #{x 28611}# 3)))
+ #{s1 51999}#
+ #{m2
52032}#))))))))
+ (#{module 51988}#
+ (vector-ref #{x 51950}# 3)))
(vector
'syntax-object
- #{expression 28647}#
- #{wrap 28648}#
- #{module 28649}#))
- (if (null? #{x 28611}#)
- #{x 28611}#
+ #{expression 51986}#
+ #{wrap 51987}#
+ #{module 51988}#))
+ (if (null? #{x 51950}#)
+ #{x 51950}#
(vector
'syntax-object
- #{x 28611}#
- #{w 28607}#
- #{mod 28604}#))))))
- #{body 28600}#)
+ #{x 51950}#
+ #{w 51946}#
+ #{mod 51943}#))))))
+ #{body 51939}#)
'()
'()
'()
'()
'()
'())))))))
- (#{expand-local-syntax 4448}#
- (lambda (#{rec? 31158}#
- #{e 31159}#
- #{r 31160}#
- #{w 31161}#
- #{s 31162}#
- #{mod 31163}#
- #{k 31164}#)
- (let ((#{tmp 31166}#
+ (#{expand-local-syntax 28276}#
+ (lambda (#{rec? 54421}#
+ #{e 54422}#
+ #{r 54423}#
+ #{w 54424}#
+ #{s 54425}#
+ #{mod 54426}#
+ #{k 54427}#)
+ (let ((#{tmp 54429}#
($sc-dispatch
- #{e 31159}#
+ #{e 54422}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 31166}#
+ (if #{tmp 54429}#
(@apply
- (lambda (#{id 31170}#
- #{val 31171}#
- #{e1 31172}#
- #{e2 31173}#)
- (if (not (#{valid-bound-ids? 4433}# #{id 31170}#))
+ (lambda (#{id 54433}#
+ #{val 54434}#
+ #{e1 54435}#
+ #{e2 54436}#)
+ (if (not (#{valid-bound-ids? 28261}# #{id 54433}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e 31159}#)
- (let ((#{labels 31270}#
- (#{gen-labels 4413}# #{id 31170}#)))
- (let ((#{new-w 31271}#
- (#{make-binding-wrap 4424}#
- #{id 31170}#
- #{labels 31270}#
- #{w 31161}#)))
- (#{k 31164}#
- (cons #{e1 31172}# #{e2 31173}#)
- (#{extend-env 4405}#
- #{labels 31270}#
- (let ((#{trans-r 31311}#
- (#{macros-only-env 4407}# #{r 31160}#)))
+ #{e 54422}#)
+ (let ((#{labels 54533}#
+ (#{gen-labels 28241}# #{id 54433}#)))
+ (let ((#{new-w 54534}#
+ (#{make-binding-wrap 28252}#
+ #{id 54433}#
+ #{labels 54533}#
+ #{w 54424}#)))
+ (#{k 54427}#
+ (cons #{e1 54435}# #{e2 54436}#)
+ (#{extend-env 28233}#
+ #{labels 54533}#
+ (let ((#{trans-r 54574}#
+ (#{macros-only-env 28235}# #{r 54423}#)))
(begin
- (if #{rec? 31158}# (if #f #f))
- (map (lambda (#{x 31312}#)
+ (if #{rec? 54421}# #{new-w 54534}# #{w 54424}#)
+ (map (lambda (#{x 54575}#)
(cons 'macro
- (#{eval-local-transformer 4449}#
- (#{expand 4443}#
- #{x 31312}#
- #{trans-r 31311}#
- (if #{rec? 31158}#
- #{new-w 31271}#
- #{w 31161}#)
- #{mod 31163}#)
- #{mod 31163}#)))
- #{val 31171}#)))
- #{r 31160}#)
- #{new-w 31271}#
- #{s 31162}#
- #{mod 31163}#)))))
- #{tmp 31166}#)
+ (#{eval-local-transformer 28277}#
+ (#{expand 28271}#
+ #{x 54575}#
+ #{trans-r 54574}#
+ (values
+ (if #{rec? 54421}#
+ #{new-w 54534}#
+ #{w 54424}#))
+ #{mod 54426}#)
+ #{mod 54426}#)))
+ #{val 54434}#)))
+ #{r 54423}#)
+ #{new-w 54534}#
+ #{s 54425}#
+ #{mod 54426}#)))))
+ #{tmp 54429}#)
(syntax-violation
#f
"bad local syntax definition"
- (let ((#{x 31645}#
+ (let ((#{x 54904}#
(begin
- (if (if (pair? #{e 31159}#) #{s 31162}# #f)
- (set-source-properties! #{e 31159}# #{s 31162}#))
- #{e 31159}#)))
- (if (if (null? (car #{w 31161}#))
- (null? (cdr #{w 31161}#))
+ (if (if (pair? #{e 54422}#) #{s 54425}# #f)
+ (set-source-properties! #{e 54422}# #{s 54425}#))
+ #{e 54422}#)))
+ (if (if (null? (car #{w 54424}#))
+ (null? (cdr #{w 54424}#))
#f)
- #{x 31645}#
- (if (if (vector? #{x 31645}#)
- (if (= (vector-length #{x 31645}#) 4)
- (eq? (vector-ref #{x 31645}# 0) 'syntax-object)
+ #{x 54904}#
+ (if (if (vector? #{x 54904}#)
+ (if (= (vector-length #{x 54904}#) 4)
+ (eq? (vector-ref #{x 54904}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 31677}# (vector-ref #{x 31645}# 1))
- (#{wrap 31678}#
- (let ((#{w2 31686}# (vector-ref #{x 31645}# 2)))
- (let ((#{m1 31687}# (car #{w 31161}#))
- (#{s1 31688}# (cdr #{w 31161}#)))
- (if (null? #{m1 31687}#)
- (if (null? #{s1 31688}#)
- #{w2 31686}#
- (cons (car #{w2 31686}#)
- (let ((#{m2 31703}#
- (cdr #{w2 31686}#)))
- (if (null? #{m2 31703}#)
- #{s1 31688}#
+ (let ((#{expression 54936}# (vector-ref #{x 54904}# 1))
+ (#{wrap 54937}#
+ (let ((#{w2 54945}# (vector-ref #{x 54904}# 2)))
+ (let ((#{m1 54946}# (car #{w 54424}#))
+ (#{s1 54947}# (cdr #{w 54424}#)))
+ (if (null? #{m1 54946}#)
+ (if (null? #{s1 54947}#)
+ #{w2 54945}#
+ (cons (car #{w2 54945}#)
+ (let ((#{m2 54962}#
+ (cdr #{w2 54945}#)))
+ (if (null? #{m2 54962}#)
+ #{s1 54947}#
(append
- #{s1 31688}#
- #{m2 31703}#)))))
- (cons (let ((#{m2 31711}# (car #{w2 31686}#)))
- (if (null? #{m2 31711}#)
- #{m1 31687}#
- (append #{m1 31687}# #{m2 31711}#)))
- (let ((#{m2 31719}# (cdr #{w2 31686}#)))
- (if (null? #{m2 31719}#)
- #{s1 31688}#
+ #{s1 54947}#
+ #{m2 54962}#)))))
+ (cons (let ((#{m2 54970}# (car #{w2 54945}#)))
+ (if (null? #{m2 54970}#)
+ #{m1 54946}#
+ (append #{m1 54946}# #{m2 54970}#)))
+ (let ((#{m2 54978}# (cdr #{w2 54945}#)))
+ (if (null? #{m2 54978}#)
+ #{s1 54947}#
(append
- #{s1 31688}#
- #{m2 31719}#))))))))
- (#{module 31679}# (vector-ref #{x 31645}# 3)))
+ #{s1 54947}#
+ #{m2 54978}#))))))))
+ (#{module 54938}# (vector-ref #{x 54904}# 3)))
(vector
'syntax-object
- #{expression 31677}#
- #{wrap 31678}#
- #{module 31679}#))
- (if (null? #{x 31645}#)
- #{x 31645}#
+ #{expression 54936}#
+ #{wrap 54937}#
+ #{module 54938}#))
+ (if (null? #{x 54904}#)
+ #{x 54904}#
(vector
'syntax-object
- #{x 31645}#
- #{w 31161}#
- #{mod 31163}#))))))))))
- (#{eval-local-transformer 4449}#
- (lambda (#{expanded 31737}# #{mod 31738}#)
- (let ((#{p 31739}# (primitive-eval #{expanded 31737}#)))
- (if (procedure? #{p 31739}#)
- #{p 31739}#
+ #{x 54904}#
+ #{w 54424}#
+ #{mod 54426}#))))))))))
+ (#{eval-local-transformer 28277}#
+ (lambda (#{expanded 54996}# #{mod 54997}#)
+ (let ((#{p 54998}# (primitive-eval #{expanded 54996}#)))
+ (if (procedure? #{p 54998}#)
+ #{p 54998}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p 31739}#)))))
- (#{ellipsis? 4451}#
- (lambda (#{x 6020}#)
- (if (if (if (vector? #{x 6020}#)
- (if (= (vector-length #{x 6020}#) 4)
- (eq? (vector-ref #{x 6020}# 0) 'syntax-object)
+ #{p 54998}#)))))
+ (#{ellipsis? 28279}#
+ (lambda (#{x 29819}#)
+ (if (if (if (vector? #{x 29819}#)
+ (if (= (vector-length #{x 29819}#) 4)
+ (eq? (vector-ref #{x 29819}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 6020}# 1))
+ (symbol? (vector-ref #{x 29819}# 1))
#f)
- (#{free-id=? 4431}#
- #{x 6020}#
+ (#{free-id=? 28259}#
+ #{x 29819}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2338"))
+ #(ribcage #(x) #((top)) #("i26166"))
#(ribcage
(lambda-var-list
gen-var
@@ -6492,497 +6507,497 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile)))
#f)))
- (#{lambda-formals 4452}#
- (lambda (#{orig-args 31744}#)
+ (#{lambda-formals 28280}#
+ (lambda (#{orig-args 55003}#)
(letrec*
- ((#{req 31745}#
- (lambda (#{args 31749}# #{rreq 31750}#)
- (let ((#{tmp 31752}# ($sc-dispatch #{args 31749}# '())))
- (if #{tmp 31752}#
+ ((#{req 55004}#
+ (lambda (#{args 55008}# #{rreq 55009}#)
+ (let ((#{tmp 55011}# ($sc-dispatch #{args 55008}# '())))
+ (if #{tmp 55011}#
(@apply
(lambda ()
- (#{check 31746}# (reverse #{rreq 31750}#) #f))
- #{tmp 31752}#)
- (let ((#{tmp 31868}#
- ($sc-dispatch #{args 31749}# '(any . any))))
- (if (if #{tmp 31868}#
+ (#{check 55005}# (reverse #{rreq 55009}#) #f))
+ #{tmp 55011}#)
+ (let ((#{tmp 55127}#
+ ($sc-dispatch #{args 55008}# '(any . any))))
+ (if (if #{tmp 55127}#
(@apply
- (lambda (#{a 31872}# #{b 31873}#)
- (if (symbol? #{a 31872}#)
+ (lambda (#{a 55131}# #{b 55132}#)
+ (if (symbol? #{a 55131}#)
#t
- (if (if (vector? #{a 31872}#)
- (if (= (vector-length #{a 31872}#) 4)
- (eq? (vector-ref #{a 31872}# 0)
+ (if (if (vector? #{a 55131}#)
+ (if (= (vector-length #{a 55131}#) 4)
+ (eq? (vector-ref #{a 55131}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 31872}# 1))
+ (symbol? (vector-ref #{a 55131}# 1))
#f)))
- #{tmp 31868}#)
+ #{tmp 55127}#)
#f)
(@apply
- (lambda (#{a 31900}# #{b 31901}#)
- (#{req 31745}#
- #{b 31901}#
- (cons #{a 31900}# #{rreq 31750}#)))
- #{tmp 31868}#)
- (let ((#{tmp 31902}# (list #{args 31749}#)))
+ (lambda (#{a 55159}# #{b 55160}#)
+ (#{req 55004}#
+ #{b 55160}#
+ (cons #{a 55159}# #{rreq 55009}#)))
+ #{tmp 55127}#)
+ (let ((#{tmp 55161}# (list #{args 55008}#)))
(if (@apply
- (lambda (#{r 31904}#)
- (if (symbol? #{r 31904}#)
+ (lambda (#{r 55163}#)
+ (if (symbol? #{r 55163}#)
#t
- (if (if (vector? #{r 31904}#)
- (if (= (vector-length #{r 31904}#) 4)
- (eq? (vector-ref #{r 31904}# 0)
+ (if (if (vector? #{r 55163}#)
+ (if (= (vector-length #{r 55163}#) 4)
+ (eq? (vector-ref #{r 55163}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 31904}# 1))
+ (symbol? (vector-ref #{r 55163}# 1))
#f)))
- #{tmp 31902}#)
+ #{tmp 55161}#)
(@apply
- (lambda (#{r 31934}#)
- (#{check 31746}#
- (reverse #{rreq 31750}#)
- #{r 31934}#))
- #{tmp 31902}#)
+ (lambda (#{r 55193}#)
+ (#{check 55005}#
+ (reverse #{rreq 55009}#)
+ #{r 55193}#))
+ #{tmp 55161}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args 31744}#
- #{args 31749}#)))))))))
- (#{check 31746}#
- (lambda (#{req 32058}# #{rest 32059}#)
- (if (#{distinct-bound-ids? 4434}#
- (if #{rest 32059}#
- (cons #{rest 32059}# #{req 32058}#)
- #{req 32058}#))
- (values #{req 32058}# #f #{rest 32059}# #f)
+ #{orig-args 55003}#
+ #{args 55008}#)))))))))
+ (#{check 55005}#
+ (lambda (#{req 55317}# #{rest 55318}#)
+ (if (#{distinct-bound-ids? 28262}#
+ (if #{rest 55318}#
+ (cons #{rest 55318}# #{req 55317}#)
+ #{req 55317}#))
+ (values #{req 55317}# #f #{rest 55318}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args 31744}#)))))
- (#{req 31745}# #{orig-args 31744}# '()))))
- (#{expand-simple-lambda 4453}#
- (lambda (#{e 32168}#
- #{r 32169}#
- #{w 32170}#
- #{s 32171}#
- #{mod 32172}#
- #{req 32173}#
- #{rest 32174}#
- #{meta 32175}#
- #{body 32176}#)
- (let ((#{ids 32177}#
- (if #{rest 32174}#
- (append #{req 32173}# (list #{rest 32174}#))
- #{req 32173}#)))
- (let ((#{vars 32178}#
- (map #{gen-var 4457}# #{ids 32177}#)))
- (let ((#{labels 32179}#
- (#{gen-labels 4413}# #{ids 32177}#)))
- (#{build-simple-lambda 4386}#
- #{s 32171}#
- (map syntax->datum #{req 32173}#)
- (if #{rest 32174}#
- (syntax->datum #{rest 32174}#)
+ #{orig-args 55003}#)))))
+ (#{req 55004}# #{orig-args 55003}# '()))))
+ (#{expand-simple-lambda 28281}#
+ (lambda (#{e 55427}#
+ #{r 55428}#
+ #{w 55429}#
+ #{s 55430}#
+ #{mod 55431}#
+ #{req 55432}#
+ #{rest 55433}#
+ #{meta 55434}#
+ #{body 55435}#)
+ (let ((#{ids 55436}#
+ (if #{rest 55433}#
+ (append #{req 55432}# (list #{rest 55433}#))
+ #{req 55432}#)))
+ (let ((#{vars 55437}#
+ (map #{gen-var 28285}# #{ids 55436}#)))
+ (let ((#{labels 55438}#
+ (#{gen-labels 28241}# #{ids 55436}#)))
+ (#{build-simple-lambda 28214}#
+ #{s 55430}#
+ (map syntax->datum #{req 55432}#)
+ (if #{rest 55433}#
+ (syntax->datum #{rest 55433}#)
#f)
- #{vars 32178}#
- #{meta 32175}#
- (#{expand-body 4447}#
- #{body 32176}#
- (let ((#{x 32368}#
+ #{vars 55437}#
+ #{meta 55434}#
+ (#{expand-body 28275}#
+ #{body 55435}#
+ (let ((#{x 55627}#
(begin
- (if (if (pair? #{e 32168}#) #{s 32171}# #f)
- (set-source-properties! #{e 32168}# #{s 32171}#))
- #{e 32168}#)))
- (if (if (null? (car #{w 32170}#))
- (null? (cdr #{w 32170}#))
+ (if (if (pair? #{e 55427}#) #{s 55430}# #f)
+ (set-source-properties! #{e 55427}# #{s 55430}#))
+ #{e 55427}#)))
+ (if (if (null? (car #{w 55429}#))
+ (null? (cdr #{w 55429}#))
#f)
- #{x 32368}#
- (if (if (vector? #{x 32368}#)
- (if (= (vector-length #{x 32368}#) 4)
- (eq? (vector-ref #{x 32368}# 0) 'syntax-object)
+ #{x 55627}#
+ (if (if (vector? #{x 55627}#)
+ (if (= (vector-length #{x 55627}#) 4)
+ (eq? (vector-ref #{x 55627}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 32400}# (vector-ref #{x 32368}# 1))
- (#{wrap 32401}#
- (let ((#{w2 32409}# (vector-ref #{x 32368}# 2)))
- (let ((#{m1 32410}# (car #{w 32170}#))
- (#{s1 32411}# (cdr #{w 32170}#)))
- (if (null? #{m1 32410}#)
- (if (null? #{s1 32411}#)
- #{w2 32409}#
- (cons (car #{w2 32409}#)
- (let ((#{m2 32426}#
- (cdr #{w2 32409}#)))
- (if (null? #{m2 32426}#)
- #{s1 32411}#
+ (let ((#{expression 55659}# (vector-ref #{x 55627}# 1))
+ (#{wrap 55660}#
+ (let ((#{w2 55668}# (vector-ref #{x 55627}# 2)))
+ (let ((#{m1 55669}# (car #{w 55429}#))
+ (#{s1 55670}# (cdr #{w 55429}#)))
+ (if (null? #{m1 55669}#)
+ (if (null? #{s1 55670}#)
+ #{w2 55668}#
+ (cons (car #{w2 55668}#)
+ (let ((#{m2 55685}#
+ (cdr #{w2 55668}#)))
+ (if (null? #{m2 55685}#)
+ #{s1 55670}#
(append
- #{s1 32411}#
- #{m2 32426}#)))))
- (cons (let ((#{m2 32434}#
- (car #{w2 32409}#)))
- (if (null? #{m2 32434}#)
- #{m1 32410}#
+ #{s1 55670}#
+ #{m2 55685}#)))))
+ (cons (let ((#{m2 55693}#
+ (car #{w2 55668}#)))
+ (if (null? #{m2 55693}#)
+ #{m1 55669}#
(append
- #{m1 32410}#
- #{m2 32434}#)))
- (let ((#{m2 32442}#
- (cdr #{w2 32409}#)))
- (if (null? #{m2 32442}#)
- #{s1 32411}#
+ #{m1 55669}#
+ #{m2 55693}#)))
+ (let ((#{m2 55701}#
+ (cdr #{w2 55668}#)))
+ (if (null? #{m2 55701}#)
+ #{s1 55670}#
(append
- #{s1 32411}#
- #{m2 32442}#))))))))
- (#{module 32402}# (vector-ref #{x 32368}# 3)))
+ #{s1 55670}#
+ #{m2 55701}#))))))))
+ (#{module 55661}# (vector-ref #{x 55627}# 3)))
(vector
'syntax-object
- #{expression 32400}#
- #{wrap 32401}#
- #{module 32402}#))
- (if (null? #{x 32368}#)
- #{x 32368}#
+ #{expression 55659}#
+ #{wrap 55660}#
+ #{module 55661}#))
+ (if (null? #{x 55627}#)
+ #{x 55627}#
(vector
'syntax-object
- #{x 32368}#
- #{w 32170}#
- #{mod 32172}#)))))
- (#{extend-var-env 4406}#
- #{labels 32179}#
- #{vars 32178}#
- #{r 32169}#)
- (#{make-binding-wrap 4424}#
- #{ids 32177}#
- #{labels 32179}#
- #{w 32170}#)
- #{mod 32172}#)))))))
- (#{lambda*-formals 4454}#
- (lambda (#{orig-args 32673}#)
+ #{x 55627}#
+ #{w 55429}#
+ #{mod 55431}#)))))
+ (#{extend-var-env 28234}#
+ #{labels 55438}#
+ #{vars 55437}#
+ #{r 55428}#)
+ (#{make-binding-wrap 28252}#
+ #{ids 55436}#
+ #{labels 55438}#
+ #{w 55429}#)
+ #{mod 55431}#)))))))
+ (#{lambda*-formals 28282}#
+ (lambda (#{orig-args 55932}#)
(letrec*
- ((#{req 32674}#
- (lambda (#{args 32681}# #{rreq 32682}#)
- (let ((#{tmp 32684}# ($sc-dispatch #{args 32681}# '())))
- (if #{tmp 32684}#
+ ((#{req 55933}#
+ (lambda (#{args 55940}# #{rreq 55941}#)
+ (let ((#{tmp 55943}# ($sc-dispatch #{args 55940}# '())))
+ (if #{tmp 55943}#
(@apply
(lambda ()
- (#{check 32678}#
- (reverse #{rreq 32682}#)
+ (#{check 55937}#
+ (reverse #{rreq 55941}#)
'()
#f
'()))
- #{tmp 32684}#)
- (let ((#{tmp 32803}#
- ($sc-dispatch #{args 32681}# '(any . any))))
- (if (if #{tmp 32803}#
+ #{tmp 55943}#)
+ (let ((#{tmp 56062}#
+ ($sc-dispatch #{args 55940}# '(any . any))))
+ (if (if #{tmp 56062}#
(@apply
- (lambda (#{a 32807}# #{b 32808}#)
- (if (symbol? #{a 32807}#)
+ (lambda (#{a 56066}# #{b 56067}#)
+ (if (symbol? #{a 56066}#)
#t
- (if (if (vector? #{a 32807}#)
- (if (= (vector-length #{a 32807}#) 4)
- (eq? (vector-ref #{a 32807}# 0)
+ (if (if (vector? #{a 56066}#)
+ (if (= (vector-length #{a 56066}#) 4)
+ (eq? (vector-ref #{a 56066}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 32807}# 1))
+ (symbol? (vector-ref #{a 56066}# 1))
#f)))
- #{tmp 32803}#)
+ #{tmp 56062}#)
#f)
(@apply
- (lambda (#{a 32835}# #{b 32836}#)
- (#{req 32674}#
- #{b 32836}#
- (cons #{a 32835}# #{rreq 32682}#)))
- #{tmp 32803}#)
- (let ((#{tmp 32837}#
- ($sc-dispatch #{args 32681}# '(any . any))))
- (if (if #{tmp 32837}#
+ (lambda (#{a 56094}# #{b 56095}#)
+ (#{req 55933}#
+ #{b 56095}#
+ (cons #{a 56094}# #{rreq 55941}#)))
+ #{tmp 56062}#)
+ (let ((#{tmp 56096}#
+ ($sc-dispatch #{args 55940}# '(any . any))))
+ (if (if #{tmp 56096}#
(@apply
- (lambda (#{a 32841}# #{b 32842}#)
- (eq? (syntax->datum #{a 32841}#) #:optional))
- #{tmp 32837}#)
+ (lambda (#{a 56100}# #{b 56101}#)
+ (eq? (syntax->datum #{a 56100}#) #:optional))
+ #{tmp 56096}#)
#f)
(@apply
- (lambda (#{a 32843}# #{b 32844}#)
- (#{opt 32675}#
- #{b 32844}#
- (reverse #{rreq 32682}#)
+ (lambda (#{a 56102}# #{b 56103}#)
+ (#{opt 55934}#
+ #{b 56103}#
+ (reverse #{rreq 55941}#)
'()))
- #{tmp 32837}#)
- (let ((#{tmp 32847}#
- ($sc-dispatch #{args 32681}# '(any . any))))
- (if (if #{tmp 32847}#
+ #{tmp 56096}#)
+ (let ((#{tmp 56106}#
+ ($sc-dispatch #{args 55940}# '(any . any))))
+ (if (if #{tmp 56106}#
(@apply
- (lambda (#{a 32851}# #{b 32852}#)
- (eq? (syntax->datum #{a 32851}#) #:key))
- #{tmp 32847}#)
+ (lambda (#{a 56110}# #{b 56111}#)
+ (eq? (syntax->datum #{a 56110}#) #:key))
+ #{tmp 56106}#)
#f)
(@apply
- (lambda (#{a 32853}# #{b 32854}#)
- (#{key 32676}#
- #{b 32854}#
- (reverse #{rreq 32682}#)
+ (lambda (#{a 56112}# #{b 56113}#)
+ (#{key 55935}#
+ #{b 56113}#
+ (reverse #{rreq 55941}#)
'()
'()))
- #{tmp 32847}#)
- (let ((#{tmp 32857}#
+ #{tmp 56106}#)
+ (let ((#{tmp 56116}#
($sc-dispatch
- #{args 32681}#
+ #{args 55940}#
'(any any))))
- (if (if #{tmp 32857}#
+ (if (if #{tmp 56116}#
(@apply
- (lambda (#{a 32861}# #{b 32862}#)
- (eq? (syntax->datum #{a 32861}#)
+ (lambda (#{a 56120}# #{b 56121}#)
+ (eq? (syntax->datum #{a 56120}#)
#:rest))
- #{tmp 32857}#)
+ #{tmp 56116}#)
#f)
(@apply
- (lambda (#{a 32863}# #{b 32864}#)
- (#{rest 32677}#
- #{b 32864}#
- (reverse #{rreq 32682}#)
+ (lambda (#{a 56122}# #{b 56123}#)
+ (#{rest 55936}#
+ #{b 56123}#
+ (reverse #{rreq 55941}#)
'()
'()))
- #{tmp 32857}#)
- (let ((#{tmp 32867}# (list #{args 32681}#)))
+ #{tmp 56116}#)
+ (let ((#{tmp 56126}# (list #{args 55940}#)))
(if (@apply
- (lambda (#{r 32869}#)
- (if (symbol? #{r 32869}#)
+ (lambda (#{r 56128}#)
+ (if (symbol? #{r 56128}#)
#t
- (if (if (vector? #{r 32869}#)
+ (if (if (vector? #{r 56128}#)
(if (= (vector-length
- #{r 32869}#)
+ #{r 56128}#)
4)
(eq? (vector-ref
- #{r 32869}#
+ #{r 56128}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 32869}# 1))
+ (vector-ref #{r 56128}# 1))
#f)))
- #{tmp 32867}#)
+ #{tmp 56126}#)
(@apply
- (lambda (#{r 32899}#)
- (#{rest 32677}#
- #{r 32899}#
- (reverse #{rreq 32682}#)
+ (lambda (#{r 56158}#)
+ (#{rest 55936}#
+ #{r 56158}#
+ (reverse #{rreq 55941}#)
'()
'()))
- #{tmp 32867}#)
+ #{tmp 56126}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args 32673}#
- #{args 32681}#)))))))))))))))
- (#{opt 32675}#
- (lambda (#{args 32918}# #{req 32919}# #{ropt 32920}#)
- (let ((#{tmp 32922}# ($sc-dispatch #{args 32918}# '())))
- (if #{tmp 32922}#
+ #{orig-args 55932}#
+ #{args 55940}#)))))))))))))))
+ (#{opt 55934}#
+ (lambda (#{args 56177}# #{req 56178}# #{ropt 56179}#)
+ (let ((#{tmp 56181}# ($sc-dispatch #{args 56177}# '())))
+ (if #{tmp 56181}#
(@apply
(lambda ()
- (#{check 32678}#
- #{req 32919}#
- (reverse #{ropt 32920}#)
+ (#{check 55937}#
+ #{req 56178}#
+ (reverse #{ropt 56179}#)
#f
'()))
- #{tmp 32922}#)
- (let ((#{tmp 33043}#
- ($sc-dispatch #{args 32918}# '(any . any))))
- (if (if #{tmp 33043}#
+ #{tmp 56181}#)
+ (let ((#{tmp 56302}#
+ ($sc-dispatch #{args 56177}# '(any . any))))
+ (if (if #{tmp 56302}#
(@apply
- (lambda (#{a 33047}# #{b 33048}#)
- (if (symbol? #{a 33047}#)
+ (lambda (#{a 56306}# #{b 56307}#)
+ (if (symbol? #{a 56306}#)
#t
- (if (if (vector? #{a 33047}#)
- (if (= (vector-length #{a 33047}#) 4)
- (eq? (vector-ref #{a 33047}# 0)
+ (if (if (vector? #{a 56306}#)
+ (if (= (vector-length #{a 56306}#) 4)
+ (eq? (vector-ref #{a 56306}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 33047}# 1))
+ (symbol? (vector-ref #{a 56306}# 1))
#f)))
- #{tmp 33043}#)
+ #{tmp 56302}#)
#f)
(@apply
- (lambda (#{a 33075}# #{b 33076}#)
- (#{opt 32675}#
- #{b 33076}#
- #{req 32919}#
- (cons (cons #{a 33075}#
+ (lambda (#{a 56334}# #{b 56335}#)
+ (#{opt 55934}#
+ #{b 56335}#
+ #{req 56178}#
+ (cons (cons #{a 56334}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2477" "i2478"))
+ #("i26305" "i26306"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2467" "i2468" "i2469"))
+ #("i26295" "i26296" "i26297"))
#(ribcage
(check rest key opt req)
((top) (top) (top) (top) (top))
- ("i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"))
+ ("i26241"
+ "i26239"
+ "i26237"
+ "i26235"
+ "i26233"))
#(ribcage
#(orig-args)
#((top))
- #("i2404"))
+ #("i26232"))
#(ribcage
(lambda-var-list
gen-var
@@ -7260,293 +7275,293 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile))))
- #{ropt 32920}#)))
- #{tmp 33043}#)
- (let ((#{tmp 33077}#
+ #{ropt 56179}#)))
+ #{tmp 56302}#)
+ (let ((#{tmp 56336}#
($sc-dispatch
- #{args 32918}#
+ #{args 56177}#
'((any any) . any))))
- (if (if #{tmp 33077}#
+ (if (if #{tmp 56336}#
(@apply
- (lambda (#{a 33081}#
- #{init 33082}#
- #{b 33083}#)
- (if (symbol? #{a 33081}#)
+ (lambda (#{a 56340}#
+ #{init 56341}#
+ #{b 56342}#)
+ (if (symbol? #{a 56340}#)
#t
- (if (if (vector? #{a 33081}#)
- (if (= (vector-length #{a 33081}#) 4)
- (eq? (vector-ref #{a 33081}# 0)
+ (if (if (vector? #{a 56340}#)
+ (if (= (vector-length #{a 56340}#) 4)
+ (eq? (vector-ref #{a 56340}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 33081}# 1))
+ (symbol? (vector-ref #{a 56340}# 1))
#f)))
- #{tmp 33077}#)
+ #{tmp 56336}#)
#f)
(@apply
- (lambda (#{a 33110}# #{init 33111}# #{b 33112}#)
- (#{opt 32675}#
- #{b 33112}#
- #{req 32919}#
- (cons (list #{a 33110}# #{init 33111}#)
- #{ropt 32920}#)))
- #{tmp 33077}#)
- (let ((#{tmp 33113}#
- ($sc-dispatch #{args 32918}# '(any . any))))
- (if (if #{tmp 33113}#
+ (lambda (#{a 56369}# #{init 56370}# #{b 56371}#)
+ (#{opt 55934}#
+ #{b 56371}#
+ #{req 56178}#
+ (cons (list #{a 56369}# #{init 56370}#)
+ #{ropt 56179}#)))
+ #{tmp 56336}#)
+ (let ((#{tmp 56372}#
+ ($sc-dispatch #{args 56177}# '(any . any))))
+ (if (if #{tmp 56372}#
(@apply
- (lambda (#{a 33117}# #{b 33118}#)
- (eq? (syntax->datum #{a 33117}#) #:key))
- #{tmp 33113}#)
+ (lambda (#{a 56376}# #{b 56377}#)
+ (eq? (syntax->datum #{a 56376}#) #:key))
+ #{tmp 56372}#)
#f)
(@apply
- (lambda (#{a 33119}# #{b 33120}#)
- (#{key 32676}#
- #{b 33120}#
- #{req 32919}#
- (reverse #{ropt 32920}#)
+ (lambda (#{a 56378}# #{b 56379}#)
+ (#{key 55935}#
+ #{b 56379}#
+ #{req 56178}#
+ (reverse #{ropt 56179}#)
'()))
- #{tmp 33113}#)
- (let ((#{tmp 33123}#
+ #{tmp 56372}#)
+ (let ((#{tmp 56382}#
($sc-dispatch
- #{args 32918}#
+ #{args 56177}#
'(any any))))
- (if (if #{tmp 33123}#
+ (if (if #{tmp 56382}#
(@apply
- (lambda (#{a 33127}# #{b 33128}#)
- (eq? (syntax->datum #{a 33127}#)
+ (lambda (#{a 56386}# #{b 56387}#)
+ (eq? (syntax->datum #{a 56386}#)
#:rest))
- #{tmp 33123}#)
+ #{tmp 56382}#)
#f)
(@apply
- (lambda (#{a 33129}# #{b 33130}#)
- (#{rest 32677}#
- #{b 33130}#
- #{req 32919}#
- (reverse #{ropt 32920}#)
+ (lambda (#{a 56388}# #{b 56389}#)
+ (#{rest 55936}#
+ #{b 56389}#
+ #{req 56178}#
+ (reverse #{ropt 56179}#)
'()))
- #{tmp 33123}#)
- (let ((#{tmp 33133}# (list #{args 32918}#)))
+ #{tmp 56382}#)
+ (let ((#{tmp 56392}# (list #{args 56177}#)))
(if (@apply
- (lambda (#{r 33135}#)
- (if (symbol? #{r 33135}#)
+ (lambda (#{r 56394}#)
+ (if (symbol? #{r 56394}#)
#t
- (if (if (vector? #{r 33135}#)
+ (if (if (vector? #{r 56394}#)
(if (= (vector-length
- #{r 33135}#)
+ #{r 56394}#)
4)
(eq? (vector-ref
- #{r 33135}#
+ #{r 56394}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 33135}# 1))
+ (vector-ref #{r 56394}# 1))
#f)))
- #{tmp 33133}#)
+ #{tmp 56392}#)
(@apply
- (lambda (#{r 33165}#)
- (#{rest 32677}#
- #{r 33165}#
- #{req 32919}#
- (reverse #{ropt 32920}#)
+ (lambda (#{r 56424}#)
+ (#{rest 55936}#
+ #{r 56424}#
+ #{req 56178}#
+ (reverse #{ropt 56179}#)
'()))
- #{tmp 33133}#)
+ #{tmp 56392}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args 32673}#
- #{args 32918}#)))))))))))))))
- (#{key 32676}#
- (lambda (#{args 33184}#
- #{req 33185}#
- #{opt 33186}#
- #{rkey 33187}#)
- (let ((#{tmp 33189}# ($sc-dispatch #{args 33184}# '())))
- (if #{tmp 33189}#
+ #{orig-args 55932}#
+ #{args 56177}#)))))))))))))))
+ (#{key 55935}#
+ (lambda (#{args 56443}#
+ #{req 56444}#
+ #{opt 56445}#
+ #{rkey 56446}#)
+ (let ((#{tmp 56448}# ($sc-dispatch #{args 56443}# '())))
+ (if #{tmp 56448}#
(@apply
(lambda ()
- (#{check 32678}#
- #{req 33185}#
- #{opt 33186}#
+ (#{check 55937}#
+ #{req 56444}#
+ #{opt 56445}#
#f
- (cons #f (reverse #{rkey 33187}#))))
- #{tmp 33189}#)
- (let ((#{tmp 33311}#
- ($sc-dispatch #{args 33184}# '(any . any))))
- (if (if #{tmp 33311}#
+ (cons #f (reverse #{rkey 56446}#))))
+ #{tmp 56448}#)
+ (let ((#{tmp 56570}#
+ ($sc-dispatch #{args 56443}# '(any . any))))
+ (if (if #{tmp 56570}#
(@apply
- (lambda (#{a 33315}# #{b 33316}#)
- (if (symbol? #{a 33315}#)
+ (lambda (#{a 56574}# #{b 56575}#)
+ (if (symbol? #{a 56574}#)
#t
- (if (if (vector? #{a 33315}#)
- (if (= (vector-length #{a 33315}#) 4)
- (eq? (vector-ref #{a 33315}# 0)
+ (if (if (vector? #{a 56574}#)
+ (if (= (vector-length #{a 56574}#) 4)
+ (eq? (vector-ref #{a 56574}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 33315}# 1))
+ (symbol? (vector-ref #{a 56574}# 1))
#f)))
- #{tmp 33311}#)
+ #{tmp 56570}#)
#f)
(@apply
- (lambda (#{a 33343}# #{b 33344}#)
- (let ((#{tmp 33345}#
+ (lambda (#{a 56602}# #{b 56603}#)
+ (let ((#{tmp 56604}#
(symbol->keyword
- (syntax->datum #{a 33343}#))))
- (#{key 32676}#
- #{b 33344}#
- #{req 33185}#
- #{opt 33186}#
- (cons (cons #{tmp 33345}#
- (cons #{a 33343}#
+ (syntax->datum #{a 56602}#))))
+ (#{key 55935}#
+ #{b 56603}#
+ #{req 56444}#
+ #{opt 56445}#
+ (cons (cons #{tmp 56604}#
+ (cons #{a 56602}#
'(#(syntax-object
#f
((top)
@@ -7554,11 +7569,11 @@
#(ribcage
#(k)
#((top))
- #("i2540"))
+ #("i26368"))
#(ribcage
#(a b)
#((top) (top))
- #("i2534" "i2535"))
+ #("i26362" "i26363"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -7566,10 +7581,10 @@
(top)
(top)
(top))
- #("i2523"
- "i2524"
- "i2525"
- "i2526"))
+ #("i26351"
+ "i26352"
+ "i26353"
+ "i26354"))
#(ribcage
(check rest key opt req)
((top)
@@ -7577,15 +7592,15 @@
(top)
(top)
(top))
- ("i2413"
- "i2411"
- "i2409"
- "i2407"
- "i2405"))
+ ("i26241"
+ "i26239"
+ "i26237"
+ "i26235"
+ "i26233"))
#(ribcage
#(orig-args)
#((top))
- #("i2404"))
+ #("i26232"))
#(ribcage
(lambda-var-list
gen-var
@@ -7863,1155 +7878,1157 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873"
+ "i23872"
+ "i23871"))
#(ribcage () () ()))
(hygiene guile)))))
- #{rkey 33187}#))))
- #{tmp 33311}#)
- (let ((#{tmp 33348}#
+ #{rkey 56446}#))))
+ #{tmp 56570}#)
+ (let ((#{tmp 56607}#
($sc-dispatch
- #{args 33184}#
+ #{args 56443}#
'((any any) . any))))
- (if (if #{tmp 33348}#
+ (if (if #{tmp 56607}#
(@apply
- (lambda (#{a 33352}#
- #{init 33353}#
- #{b 33354}#)
- (if (symbol? #{a 33352}#)
+ (lambda (#{a 56611}#
+ #{init 56612}#
+ #{b 56613}#)
+ (if (symbol? #{a 56611}#)
#t
- (if (if (vector? #{a 33352}#)
- (if (= (vector-length #{a 33352}#) 4)
- (eq? (vector-ref #{a 33352}# 0)
+ (if (if (vector? #{a 56611}#)
+ (if (= (vector-length #{a 56611}#) 4)
+ (eq? (vector-ref #{a 56611}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 33352}# 1))
+ (symbol? (vector-ref #{a 56611}# 1))
#f)))
- #{tmp 33348}#)
+ #{tmp 56607}#)
#f)
(@apply
- (lambda (#{a 33381}# #{init 33382}# #{b 33383}#)
- (let ((#{tmp 33384}#
+ (lambda (#{a 56640}# #{init 56641}# #{b 56642}#)
+ (let ((#{tmp 56643}#
(symbol->keyword
- (syntax->datum #{a 33381}#))))
- (#{key 32676}#
- #{b 33383}#
- #{req 33185}#
- #{opt 33186}#
- (cons (list #{tmp 33384}#
- #{a 33381}#
- #{init 33382}#)
- #{rkey 33187}#))))
- #{tmp 33348}#)
- (let ((#{tmp 33387}#
+ (syntax->datum #{a 56640}#))))
+ (#{key 55935}#
+ #{b 56642}#
+ #{req 56444}#
+ #{opt 56445}#
+ (cons (list #{tmp 56643}#
+ #{a 56640}#
+ #{init 56641}#)
+ #{rkey 56446}#))))
+ #{tmp 56607}#)
+ (let ((#{tmp 56646}#
($sc-dispatch
- #{args 33184}#
+ #{args 56443}#
'((any any any) . any))))
- (if (if #{tmp 33387}#
+ (if (if #{tmp 56646}#
(@apply
- (lambda (#{a 33391}#
- #{init 33392}#
- #{k 33393}#
- #{b 33394}#)
- (if (if (symbol? #{a 33391}#)
+ (lambda (#{a 56650}#
+ #{init 56651}#
+ #{k 56652}#
+ #{b 56653}#)
+ (if (if (symbol? #{a 56650}#)
#t
- (if (if (vector? #{a 33391}#)
+ (if (if (vector? #{a 56650}#)
(if (= (vector-length
- #{a 33391}#)
+ #{a 56650}#)
4)
(eq? (vector-ref
- #{a 33391}#
+ #{a 56650}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{a 33391}# 1))
+ (vector-ref #{a 56650}# 1))
#f))
- (keyword? (syntax->datum #{k 33393}#))
+ (keyword? (syntax->datum #{k 56652}#))
#f))
- #{tmp 33387}#)
+ #{tmp 56646}#)
#f)
(@apply
- (lambda (#{a 33421}#
- #{init 33422}#
- #{k 33423}#
- #{b 33424}#)
- (#{key 32676}#
- #{b 33424}#
- #{req 33185}#
- #{opt 33186}#
- (cons (list #{k 33423}#
- #{a 33421}#
- #{init 33422}#)
- #{rkey 33187}#)))
- #{tmp 33387}#)
- (let ((#{tmp 33425}#
- ($sc-dispatch #{args 33184}# '(any))))
- (if (if #{tmp 33425}#
+ (lambda (#{a 56680}#
+ #{init 56681}#
+ #{k 56682}#
+ #{b 56683}#)
+ (#{key 55935}#
+ #{b 56683}#
+ #{req 56444}#
+ #{opt 56445}#
+ (cons (list #{k 56682}#
+ #{a 56680}#
+ #{init 56681}#)
+ #{rkey 56446}#)))
+ #{tmp 56646}#)
+ (let ((#{tmp 56684}#
+ ($sc-dispatch #{args 56443}# '(any))))
+ (if (if #{tmp 56684}#
(@apply
- (lambda (#{aok 33429}#)
- (eq? (syntax->datum #{aok 33429}#)
+ (lambda (#{aok 56688}#)
+ (eq? (syntax->datum #{aok 56688}#)
#:allow-other-keys))
- #{tmp 33425}#)
+ #{tmp 56684}#)
#f)
(@apply
- (lambda (#{aok 33430}#)
- (#{check 32678}#
- #{req 33185}#
- #{opt 33186}#
+ (lambda (#{aok 56689}#)
+ (#{check 55937}#
+ #{req 56444}#
+ #{opt 56445}#
#f
- (cons #t (reverse #{rkey 33187}#))))
- #{tmp 33425}#)
- (let ((#{tmp 33549}#
+ (cons #t (reverse #{rkey 56446}#))))
+ #{tmp 56684}#)
+ (let ((#{tmp 56808}#
($sc-dispatch
- #{args 33184}#
+ #{args 56443}#
'(any any any))))
- (if (if #{tmp 33549}#
+ (if (if #{tmp 56808}#
(@apply
- (lambda (#{aok 33553}#
- #{a 33554}#
- #{b 33555}#)
+ (lambda (#{aok 56812}#
+ #{a 56813}#
+ #{b 56814}#)
(if (eq? (syntax->datum
- #{aok 33553}#)
+ #{aok 56812}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a 33554}#)
+ #{a 56813}#)
#:rest)
#f))
- #{tmp 33549}#)
+ #{tmp 56808}#)
#f)
(@apply
- (lambda (#{aok 33556}#
- #{a 33557}#
- #{b 33558}#)
- (#{rest 32677}#
- #{b 33558}#
- #{req 33185}#
- #{opt 33186}#
+ (lambda (#{aok 56815}#
+ #{a 56816}#
+ #{b 56817}#)
+ (#{rest 55936}#
+ #{b 56817}#
+ #{req 56444}#
+ #{opt 56445}#
(cons #t
- (reverse #{rkey 33187}#))))
- #{tmp 33549}#)
- (let ((#{tmp 33561}#
+ (reverse #{rkey 56446}#))))
+ #{tmp 56808}#)
+ (let ((#{tmp 56820}#
($sc-dispatch
- #{args 33184}#
+ #{args 56443}#
'(any . any))))
- (if (if #{tmp 33561}#
+ (if (if #{tmp 56820}#
(@apply
- (lambda (#{aok 33565}#
- #{r 33566}#)
+ (lambda (#{aok 56824}#
+ #{r 56825}#)
(if (eq? (syntax->datum
- #{aok 33565}#)
+ #{aok 56824}#)
#:allow-other-keys)
- (if (symbol? #{r 33566}#)
+ (if (symbol? #{r 56825}#)
#t
(if (if (vector?
- #{r 33566}#)
+ #{r 56825}#)
(if (=
(vector-length
- #{r
33566}#)
+ #{r
56825}#)
4)
(eq? (vector-ref
- #{r
33566}#
+ #{r
56825}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 33566}#
+ #{r 56825}#
1))
#f))
#f))
- #{tmp 33561}#)
+ #{tmp 56820}#)
#f)
(@apply
- (lambda (#{aok 33593}# #{r 33594}#)
- (#{rest 32677}#
- #{r 33594}#
- #{req 33185}#
- #{opt 33186}#
+ (lambda (#{aok 56852}# #{r 56853}#)
+ (#{rest 55936}#
+ #{r 56853}#
+ #{req 56444}#
+ #{opt 56445}#
(cons #t
(reverse
- #{rkey 33187}#))))
- #{tmp 33561}#)
- (let ((#{tmp 33597}#
+ #{rkey 56446}#))))
+ #{tmp 56820}#)
+ (let ((#{tmp 56856}#
($sc-dispatch
- #{args 33184}#
+ #{args 56443}#
'(any any))))
- (if (if #{tmp 33597}#
+ (if (if #{tmp 56856}#
(@apply
- (lambda (#{a 33601}#
- #{b 33602}#)
+ (lambda (#{a 56860}#
+ #{b 56861}#)
(eq? (syntax->datum
- #{a 33601}#)
+ #{a 56860}#)
#:rest))
- #{tmp 33597}#)
+ #{tmp 56856}#)
#f)
(@apply
- (lambda (#{a 33603}#
- #{b 33604}#)
- (#{rest 32677}#
- #{b 33604}#
- #{req 33185}#
- #{opt 33186}#
+ (lambda (#{a 56862}#
+ #{b 56863}#)
+ (#{rest 55936}#
+ #{b 56863}#
+ #{req 56444}#
+ #{opt 56445}#
(cons #f
(reverse
- #{rkey 33187}#))))
- #{tmp 33597}#)
- (let ((#{tmp 33607}#
- (list #{args 33184}#)))
+ #{rkey 56446}#))))
+ #{tmp 56856}#)
+ (let ((#{tmp 56866}#
+ (list #{args 56443}#)))
(if (@apply
- (lambda (#{r 33609}#)
+ (lambda (#{r 56868}#)
(if (symbol?
- #{r 33609}#)
+ #{r 56868}#)
#t
(if (if (vector?
- #{r
33609}#)
+ #{r
56868}#)
(if (=
(vector-length
- #{r
33609}#)
+ #{r
56868}#)
4)
(eq?
(vector-ref
- #{r
33609}#
+ #{r
56868}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 33609}#
+ #{r 56868}#
1))
#f)))
- #{tmp 33607}#)
+ #{tmp 56866}#)
(@apply
- (lambda (#{r 33639}#)
- (#{rest 32677}#
- #{r 33639}#
- #{req 33185}#
- #{opt 33186}#
+ (lambda (#{r 56898}#)
+ (#{rest 55936}#
+ #{r 56898}#
+ #{req 56444}#
+ #{opt 56445}#
(cons #f
(reverse
- #{rkey
33187}#))))
- #{tmp 33607}#)
+ #{rkey
56446}#))))
+ #{tmp 56866}#)
(syntax-violation
'lambda*
"invalid keyword argument
list"
- #{orig-args 32673}#
- #{args
33184}#)))))))))))))))))))))
- (#{rest 32677}#
- (lambda (#{args 33667}#
- #{req 33668}#
- #{opt 33669}#
- #{kw 33670}#)
- (let ((#{tmp 33672}# (list #{args 33667}#)))
+ #{orig-args 55932}#
+ #{args
56443}#)))))))))))))))))))))
+ (#{rest 55936}#
+ (lambda (#{args 56926}#
+ #{req 56927}#
+ #{opt 56928}#
+ #{kw 56929}#)
+ (let ((#{tmp 56931}# (list #{args 56926}#)))
(if (@apply
- (lambda (#{r 33674}#)
- (if (symbol? #{r 33674}#)
+ (lambda (#{r 56933}#)
+ (if (symbol? #{r 56933}#)
#t
- (if (if (vector? #{r 33674}#)
- (if (= (vector-length #{r 33674}#) 4)
- (eq? (vector-ref #{r 33674}# 0)
+ (if (if (vector? #{r 56933}#)
+ (if (= (vector-length #{r 56933}#) 4)
+ (eq? (vector-ref #{r 56933}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 33674}# 1))
+ (symbol? (vector-ref #{r 56933}# 1))
#f)))
- #{tmp 33672}#)
+ #{tmp 56931}#)
(@apply
- (lambda (#{r 33704}#)
- (#{check 32678}#
- #{req 33668}#
- #{opt 33669}#
- #{r 33704}#
- #{kw 33670}#))
- #{tmp 33672}#)
+ (lambda (#{r 56963}#)
+ (#{check 55937}#
+ #{req 56927}#
+ #{opt 56928}#
+ #{r 56963}#
+ #{kw 56929}#))
+ #{tmp 56931}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args 32673}#
- #{args 33667}#)))))
- (#{check 32678}#
- (lambda (#{req 33832}#
- #{opt 33833}#
- #{rest 33834}#
- #{kw 33835}#)
- (if (#{distinct-bound-ids? 4434}#
+ #{orig-args 55932}#
+ #{args 56926}#)))))
+ (#{check 55937}#
+ (lambda (#{req 57091}#
+ #{opt 57092}#
+ #{rest 57093}#
+ #{kw 57094}#)
+ (if (#{distinct-bound-ids? 28262}#
(append
- #{req 33832}#
- (map car #{opt 33833}#)
- (if #{rest 33834}# (list #{rest 33834}#) '())
- (if (pair? #{kw 33835}#)
- (map cadr (cdr #{kw 33835}#))
+ #{req 57091}#
+ (map car #{opt 57092}#)
+ (if #{rest 57093}# (list #{rest 57093}#) '())
+ (if (pair? #{kw 57094}#)
+ (map cadr (cdr #{kw 57094}#))
'())))
(values
- #{req 33832}#
- #{opt 33833}#
- #{rest 33834}#
- #{kw 33835}#)
+ #{req 57091}#
+ #{opt 57092}#
+ #{rest 57093}#
+ #{kw 57094}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args 32673}#)))))
- (#{req 32674}# #{orig-args 32673}# '()))))
- (#{expand-lambda-case 4455}#
- (lambda (#{e 33944}#
- #{r 33945}#
- #{w 33946}#
- #{s 33947}#
- #{mod 33948}#
- #{get-formals 33949}#
- #{clauses 33950}#)
+ #{orig-args 55932}#)))))
+ (#{req 55933}# #{orig-args 55932}# '()))))
+ (#{expand-lambda-case 28283}#
+ (lambda (#{e 57203}#
+ #{r 57204}#
+ #{w 57205}#
+ #{s 57206}#
+ #{mod 57207}#
+ #{get-formals 57208}#
+ #{clauses 57209}#)
(letrec*
- ((#{parse-req 33951}#
- (lambda (#{req 34087}#
- #{opt 34088}#
- #{rest 34089}#
- #{kw 34090}#
- #{body 34091}#)
- (let ((#{vars 34092}#
- (map #{gen-var 4457}# #{req 34087}#))
- (#{labels 34093}#
- (#{gen-labels 4413}# #{req 34087}#)))
- (let ((#{r* 34094}#
- (#{extend-var-env 4406}#
- #{labels 34093}#
- #{vars 34092}#
- #{r 33945}#))
- (#{w* 34095}#
- (#{make-binding-wrap 4424}#
- #{req 34087}#
- #{labels 34093}#
- #{w 33946}#)))
- (#{parse-opt 33952}#
- (map syntax->datum #{req 34087}#)
- #{opt 34088}#
- #{rest 34089}#
- #{kw 34090}#
- #{body 34091}#
- (reverse #{vars 34092}#)
- #{r* 34094}#
- #{w* 34095}#
+ ((#{parse-req 57210}#
+ (lambda (#{req 57345}#
+ #{opt 57346}#
+ #{rest 57347}#
+ #{kw 57348}#
+ #{body 57349}#)
+ (let ((#{vars 57350}#
+ (map #{gen-var 28285}# #{req 57345}#))
+ (#{labels 57351}#
+ (#{gen-labels 28241}# #{req 57345}#)))
+ (let ((#{r* 57352}#
+ (#{extend-var-env 28234}#
+ #{labels 57351}#
+ #{vars 57350}#
+ #{r 57204}#))
+ (#{w* 57353}#
+ (#{make-binding-wrap 28252}#
+ #{req 57345}#
+ #{labels 57351}#
+ #{w 57205}#)))
+ (#{parse-opt 57211}#
+ (map syntax->datum #{req 57345}#)
+ #{opt 57346}#
+ #{rest 57347}#
+ #{kw 57348}#
+ #{body 57349}#
+ (reverse #{vars 57350}#)
+ #{r* 57352}#
+ #{w* 57353}#
'()
'())))))
- (#{parse-opt 33952}#
- (lambda (#{req 34331}#
- #{opt 34332}#
- #{rest 34333}#
- #{kw 34334}#
- #{body 34335}#
- #{vars 34336}#
- #{r* 34337}#
- #{w* 34338}#
- #{out 34339}#
- #{inits 34340}#)
- (if (pair? #{opt 34332}#)
- (let ((#{tmp 34341}# (car #{opt 34332}#)))
- (let ((#{tmp 34342}#
- ($sc-dispatch #{tmp 34341}# '(any any))))
- (if #{tmp 34342}#
+ (#{parse-opt 57211}#
+ (lambda (#{req 57587}#
+ #{opt 57588}#
+ #{rest 57589}#
+ #{kw 57590}#
+ #{body 57591}#
+ #{vars 57592}#
+ #{r* 57593}#
+ #{w* 57594}#
+ #{out 57595}#
+ #{inits 57596}#)
+ (if (pair? #{opt 57588}#)
+ (let ((#{tmp 57597}# (car #{opt 57588}#)))
+ (let ((#{tmp 57598}#
+ ($sc-dispatch #{tmp 57597}# '(any any))))
+ (if #{tmp 57598}#
(@apply
- (lambda (#{id 34344}# #{i 34345}#)
- (let ((#{v 34346}#
- (let ((#{id 34354}#
- (if (if (vector? #{id 34344}#)
+ (lambda (#{id 57600}# #{i 57601}#)
+ (let ((#{v 57602}#
+ (let ((#{id 57610}#
+ (if (if (vector? #{id 57600}#)
(if (= (vector-length
- #{id 34344}#)
+ #{id 57600}#)
4)
(eq? (vector-ref
- #{id 34344}#
+ #{id 57600}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 34344}# 1)
- #{id 34344}#)))
+ (vector-ref #{id 57600}# 1)
+ #{id 57600}#)))
(gensym
(string-append
- (symbol->string #{id 34354}#)
+ (symbol->string #{id 57610}#)
" ")))))
- (let ((#{l 34347}#
- (#{gen-labels 4413}# (list #{v 34346}#))))
- (let ((#{r** 34348}#
- (#{extend-var-env 4406}#
- #{l 34347}#
- (list #{v 34346}#)
- #{r* 34337}#)))
- (let ((#{w** 34349}#
- (#{make-binding-wrap 4424}#
- (list #{id 34344}#)
- #{l 34347}#
- #{w* 34338}#)))
- (#{parse-opt 33952}#
- #{req 34331}#
- (cdr #{opt 34332}#)
- #{rest 34333}#
- #{kw 34334}#
- #{body 34335}#
- (cons #{v 34346}# #{vars 34336}#)
- #{r** 34348}#
- #{w** 34349}#
- (cons (syntax->datum #{id 34344}#)
- #{out 34339}#)
- (cons (#{expand 4443}#
- #{i 34345}#
- #{r* 34337}#
- #{w* 34338}#
- #{mod 33948}#)
- #{inits 34340}#)))))))
- #{tmp 34342}#)
+ (let ((#{l 57603}#
+ (#{gen-labels 28241}# (list #{v 57602}#))))
+ (let ((#{r** 57604}#
+ (#{extend-var-env 28234}#
+ #{l 57603}#
+ (list #{v 57602}#)
+ #{r* 57593}#)))
+ (let ((#{w** 57605}#
+ (#{make-binding-wrap 28252}#
+ (list #{id 57600}#)
+ #{l 57603}#
+ #{w* 57594}#)))
+ (#{parse-opt 57211}#
+ #{req 57587}#
+ (cdr #{opt 57588}#)
+ #{rest 57589}#
+ #{kw 57590}#
+ #{body 57591}#
+ (cons #{v 57602}# #{vars 57592}#)
+ #{r** 57604}#
+ #{w** 57605}#
+ (cons (syntax->datum #{id 57600}#)
+ #{out 57595}#)
+ (cons (#{expand 28271}#
+ #{i 57601}#
+ #{r* 57593}#
+ #{w* 57594}#
+ #{mod 57207}#)
+ #{inits 57596}#)))))))
+ #{tmp 57598}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 34341}#))))
- (if #{rest 34333}#
- (let ((#{v 34655}#
- (let ((#{id 34665}#
- (if (if (vector? #{rest 34333}#)
- (if (= (vector-length #{rest 34333}#)
+ #{tmp 57597}#))))
+ (if #{rest 57589}#
+ (let ((#{v 57904}#
+ (let ((#{id 57914}#
+ (if (if (vector? #{rest 57589}#)
+ (if (= (vector-length #{rest 57589}#)
4)
- (eq? (vector-ref #{rest 34333}# 0)
+ (eq? (vector-ref #{rest 57589}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{rest 34333}# 1)
- #{rest 34333}#)))
+ (vector-ref #{rest 57589}# 1)
+ #{rest 57589}#)))
(gensym
(string-append
- (symbol->string #{id 34665}#)
+ (symbol->string #{id 57914}#)
" ")))))
- (let ((#{l 34656}#
- (#{gen-labels 4413}# (list #{v 34655}#))))
- (let ((#{r* 34657}#
- (#{extend-var-env 4406}#
- #{l 34656}#
- (list #{v 34655}#)
- #{r* 34337}#)))
- (let ((#{w* 34658}#
- (#{make-binding-wrap 4424}#
- (list #{rest 34333}#)
- #{l 34656}#
- #{w* 34338}#)))
- (#{parse-kw 33953}#
- #{req 34331}#
- (if (pair? #{out 34339}#)
- (reverse #{out 34339}#)
+ (let ((#{l 57905}#
+ (#{gen-labels 28241}# (list #{v 57904}#))))
+ (let ((#{r* 57906}#
+ (#{extend-var-env 28234}#
+ #{l 57905}#
+ (list #{v 57904}#)
+ #{r* 57593}#)))
+ (let ((#{w* 57907}#
+ (#{make-binding-wrap 28252}#
+ (list #{rest 57589}#)
+ #{l 57905}#
+ #{w* 57594}#)))
+ (#{parse-kw 57212}#
+ #{req 57587}#
+ (if (pair? #{out 57595}#)
+ (reverse #{out 57595}#)
#f)
- (syntax->datum #{rest 34333}#)
- (if (pair? #{kw 34334}#)
- (cdr #{kw 34334}#)
- #{kw 34334}#)
- #{body 34335}#
- (cons #{v 34655}# #{vars 34336}#)
- #{r* 34657}#
- #{w* 34658}#
- (if (pair? #{kw 34334}#) (car #{kw 34334}#) #f)
+ (syntax->datum #{rest 57589}#)
+ (if (pair? #{kw 57590}#)
+ (cdr #{kw 57590}#)
+ #{kw 57590}#)
+ #{body 57591}#
+ (cons #{v 57904}# #{vars 57592}#)
+ #{r* 57906}#
+ #{w* 57907}#
+ (if (pair? #{kw 57590}#) (car #{kw 57590}#) #f)
'()
- #{inits 34340}#)))))
- (#{parse-kw 33953}#
- #{req 34331}#
- (if (pair? #{out 34339}#)
- (reverse #{out 34339}#)
+ #{inits 57596}#)))))
+ (#{parse-kw 57212}#
+ #{req 57587}#
+ (if (pair? #{out 57595}#)
+ (reverse #{out 57595}#)
#f)
#f
- (if (pair? #{kw 34334}#)
- (cdr #{kw 34334}#)
- #{kw 34334}#)
- #{body 34335}#
- #{vars 34336}#
- #{r* 34337}#
- #{w* 34338}#
- (if (pair? #{kw 34334}#) (car #{kw 34334}#) #f)
+ (if (pair? #{kw 57590}#)
+ (cdr #{kw 57590}#)
+ #{kw 57590}#)
+ #{body 57591}#
+ #{vars 57592}#
+ #{r* 57593}#
+ #{w* 57594}#
+ (if (pair? #{kw 57590}#) (car #{kw 57590}#) #f)
'()
- #{inits 34340}#)))))
- (#{parse-kw 33953}#
- (lambda (#{req 34887}#
- #{opt 34888}#
- #{rest 34889}#
- #{kw 34890}#
- #{body 34891}#
- #{vars 34892}#
- #{r* 34893}#
- #{w* 34894}#
- #{aok 34895}#
- #{out 34896}#
- #{inits 34897}#)
- (if (pair? #{kw 34890}#)
- (let ((#{tmp 34898}# (car #{kw 34890}#)))
- (let ((#{tmp 34899}#
- ($sc-dispatch #{tmp 34898}# '(any any any))))
- (if #{tmp 34899}#
+ #{inits 57596}#)))))
+ (#{parse-kw 57212}#
+ (lambda (#{req 58133}#
+ #{opt 58134}#
+ #{rest 58135}#
+ #{kw 58136}#
+ #{body 58137}#
+ #{vars 58138}#
+ #{r* 58139}#
+ #{w* 58140}#
+ #{aok 58141}#
+ #{out 58142}#
+ #{inits 58143}#)
+ (if (pair? #{kw 58136}#)
+ (let ((#{tmp 58144}# (car #{kw 58136}#)))
+ (let ((#{tmp 58145}#
+ ($sc-dispatch #{tmp 58144}# '(any any any))))
+ (if #{tmp 58145}#
(@apply
- (lambda (#{k 34901}# #{id 34902}# #{i 34903}#)
- (let ((#{v 34904}#
- (let ((#{id 34912}#
- (if (if (vector? #{id 34902}#)
+ (lambda (#{k 58147}# #{id 58148}# #{i 58149}#)
+ (let ((#{v 58150}#
+ (let ((#{id 58158}#
+ (if (if (vector? #{id 58148}#)
(if (= (vector-length
- #{id 34902}#)
+ #{id 58148}#)
4)
(eq? (vector-ref
- #{id 34902}#
+ #{id 58148}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 34902}# 1)
- #{id 34902}#)))
+ (vector-ref #{id 58148}# 1)
+ #{id 58148}#)))
(gensym
(string-append
- (symbol->string #{id 34912}#)
+ (symbol->string #{id 58158}#)
" ")))))
- (let ((#{l 34905}#
- (#{gen-labels 4413}# (list #{v 34904}#))))
- (let ((#{r** 34906}#
- (#{extend-var-env 4406}#
- #{l 34905}#
- (list #{v 34904}#)
- #{r* 34893}#)))
- (let ((#{w** 34907}#
- (#{make-binding-wrap 4424}#
- (list #{id 34902}#)
- #{l 34905}#
- #{w* 34894}#)))
- (#{parse-kw 33953}#
- #{req 34887}#
- #{opt 34888}#
- #{rest 34889}#
- (cdr #{kw 34890}#)
- #{body 34891}#
- (cons #{v 34904}# #{vars 34892}#)
- #{r** 34906}#
- #{w** 34907}#
- #{aok 34895}#
- (cons (list (syntax->datum #{k 34901}#)
- (syntax->datum #{id 34902}#)
- #{v 34904}#)
- #{out 34896}#)
- (cons (#{expand 4443}#
- #{i 34903}#
- #{r* 34893}#
- #{w* 34894}#
- #{mod 33948}#)
- #{inits 34897}#)))))))
- #{tmp 34899}#)
+ (let ((#{l 58151}#
+ (#{gen-labels 28241}# (list #{v 58150}#))))
+ (let ((#{r** 58152}#
+ (#{extend-var-env 28234}#
+ #{l 58151}#
+ (list #{v 58150}#)
+ #{r* 58139}#)))
+ (let ((#{w** 58153}#
+ (#{make-binding-wrap 28252}#
+ (list #{id 58148}#)
+ #{l 58151}#
+ #{w* 58140}#)))
+ (#{parse-kw 57212}#
+ #{req 58133}#
+ #{opt 58134}#
+ #{rest 58135}#
+ (cdr #{kw 58136}#)
+ #{body 58137}#
+ (cons #{v 58150}# #{vars 58138}#)
+ #{r** 58152}#
+ #{w** 58153}#
+ #{aok 58141}#
+ (cons (list (syntax->datum #{k 58147}#)
+ (syntax->datum #{id 58148}#)
+ #{v 58150}#)
+ #{out 58142}#)
+ (cons (#{expand 28271}#
+ #{i 58149}#
+ #{r* 58139}#
+ #{w* 58140}#
+ #{mod 57207}#)
+ #{inits 58143}#)))))))
+ #{tmp 58145}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 34898}#))))
- (#{parse-body 33954}#
- #{req 34887}#
- #{opt 34888}#
- #{rest 34889}#
- (if (if #{aok 34895}#
- #{aok 34895}#
- (pair? #{out 34896}#))
- (cons #{aok 34895}# (reverse #{out 34896}#))
+ #{tmp 58144}#))))
+ (#{parse-body 57213}#
+ #{req 58133}#
+ #{opt 58134}#
+ #{rest 58135}#
+ (if (if #{aok 58141}#
+ #{aok 58141}#
+ (pair? #{out 58142}#))
+ (cons #{aok 58141}# (reverse #{out 58142}#))
#f)
- #{body 34891}#
- (reverse #{vars 34892}#)
- #{r* 34893}#
- #{w* 34894}#
- (reverse #{inits 34897}#)
+ #{body 58137}#
+ (reverse #{vars 58138}#)
+ #{r* 58139}#
+ #{w* 58140}#
+ (reverse #{inits 58143}#)
'()))))
- (#{parse-body 33954}#
- (lambda (#{req 35222}#
- #{opt 35223}#
- #{rest 35224}#
- #{kw 35225}#
- #{body 35226}#
- #{vars 35227}#
- #{r* 35228}#
- #{w* 35229}#
- #{inits 35230}#
- #{meta 35231}#)
- (let ((#{tmp 35233}#
+ (#{parse-body 57213}#
+ (lambda (#{req 58461}#
+ #{opt 58462}#
+ #{rest 58463}#
+ #{kw 58464}#
+ #{body 58465}#
+ #{vars 58466}#
+ #{r* 58467}#
+ #{w* 58468}#
+ #{inits 58469}#
+ #{meta 58470}#)
+ (let ((#{tmp 58472}#
($sc-dispatch
- #{body 35226}#
+ #{body 58465}#
'(any any . each-any))))
- (if (if #{tmp 35233}#
+ (if (if #{tmp 58472}#
(@apply
- (lambda (#{docstring 35237}# #{e1 35238}# #{e2 35239}#)
- (string? (syntax->datum #{docstring 35237}#)))
- #{tmp 35233}#)
+ (lambda (#{docstring 58476}# #{e1 58477}# #{e2 58478}#)
+ (string? (syntax->datum #{docstring 58476}#)))
+ #{tmp 58472}#)
#f)
(@apply
- (lambda (#{docstring 35240}# #{e1 35241}# #{e2 35242}#)
- (#{parse-body 33954}#
- #{req 35222}#
- #{opt 35223}#
- #{rest 35224}#
- #{kw 35225}#
- (cons #{e1 35241}# #{e2 35242}#)
- #{vars 35227}#
- #{r* 35228}#
- #{w* 35229}#
- #{inits 35230}#
+ (lambda (#{docstring 58479}# #{e1 58480}# #{e2 58481}#)
+ (#{parse-body 57213}#
+ #{req 58461}#
+ #{opt 58462}#
+ #{rest 58463}#
+ #{kw 58464}#
+ (cons #{e1 58480}# #{e2 58481}#)
+ #{vars 58466}#
+ #{r* 58467}#
+ #{w* 58468}#
+ #{inits 58469}#
(append
- #{meta 35231}#
+ #{meta 58470}#
(list (cons 'documentation
- (syntax->datum #{docstring 35240}#))))))
- #{tmp 35233}#)
- (let ((#{tmp 35243}#
+ (syntax->datum #{docstring 58479}#))))))
+ #{tmp 58472}#)
+ (let ((#{tmp 58482}#
($sc-dispatch
- #{body 35226}#
+ #{body 58465}#
'(#(vector #(each (any . any))) any . each-any))))
- (if #{tmp 35243}#
+ (if #{tmp 58482}#
(@apply
- (lambda (#{k 35247}#
- #{v 35248}#
- #{e1 35249}#
- #{e2 35250}#)
- (#{parse-body 33954}#
- #{req 35222}#
- #{opt 35223}#
- #{rest 35224}#
- #{kw 35225}#
- (cons #{e1 35249}# #{e2 35250}#)
- #{vars 35227}#
- #{r* 35228}#
- #{w* 35229}#
- #{inits 35230}#
+ (lambda (#{k 58486}#
+ #{v 58487}#
+ #{e1 58488}#
+ #{e2 58489}#)
+ (#{parse-body 57213}#
+ #{req 58461}#
+ #{opt 58462}#
+ #{rest 58463}#
+ #{kw 58464}#
+ (cons #{e1 58488}# #{e2 58489}#)
+ #{vars 58466}#
+ #{r* 58467}#
+ #{w* 58468}#
+ #{inits 58469}#
(append
- #{meta 35231}#
+ #{meta 58470}#
(syntax->datum
- (map cons #{k 35247}# #{v 35248}#)))))
- #{tmp 35243}#)
- (let ((#{tmp 35251}#
- ($sc-dispatch #{body 35226}# '(any . each-any))))
- (if #{tmp 35251}#
+ (map cons #{k 58486}# #{v 58487}#)))))
+ #{tmp 58482}#)
+ (let ((#{tmp 58490}#
+ ($sc-dispatch #{body 58465}# '(any . each-any))))
+ (if #{tmp 58490}#
(@apply
- (lambda (#{e1 35255}# #{e2 35256}#)
+ (lambda (#{e1 58494}# #{e2 58495}#)
(values
- #{meta 35231}#
- #{req 35222}#
- #{opt 35223}#
- #{rest 35224}#
- #{kw 35225}#
- #{inits 35230}#
- #{vars 35227}#
- (#{expand-body 4447}#
- (cons #{e1 35255}# #{e2 35256}#)
- (let ((#{x 35268}#
+ #{meta 58470}#
+ #{req 58461}#
+ #{opt 58462}#
+ #{rest 58463}#
+ #{kw 58464}#
+ #{inits 58469}#
+ #{vars 58466}#
+ (#{expand-body 28275}#
+ (cons #{e1 58494}# #{e2 58495}#)
+ (let ((#{x 58507}#
(begin
- (if (if (pair? #{e 33944}#)
- #{s 33947}#
+ (if (if (pair? #{e 57203}#)
+ #{s 57206}#
#f)
(set-source-properties!
- #{e 33944}#
- #{s 33947}#))
- #{e 33944}#)))
- (if (if (null? (car #{w 33946}#))
- (null? (cdr #{w 33946}#))
+ #{e 57203}#
+ #{s 57206}#))
+ #{e 57203}#)))
+ (if (if (null? (car #{w 57205}#))
+ (null? (cdr #{w 57205}#))
#f)
- #{x 35268}#
- (if (if (vector? #{x 35268}#)
- (if (= (vector-length #{x 35268}#)
+ #{x 58507}#
+ (if (if (vector? #{x 58507}#)
+ (if (= (vector-length #{x 58507}#)
4)
- (eq? (vector-ref #{x 35268}# 0)
+ (eq? (vector-ref #{x 58507}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 35300}#
- (vector-ref #{x 35268}# 1))
- (#{wrap 35301}#
- (let ((#{w2 35309}#
+ (let ((#{expression 58539}#
+ (vector-ref #{x 58507}# 1))
+ (#{wrap 58540}#
+ (let ((#{w2 58548}#
(vector-ref
- #{x 35268}#
+ #{x 58507}#
2)))
- (let ((#{m1 35310}#
- (car #{w 33946}#))
- (#{s1 35311}#
- (cdr #{w 33946}#)))
- (if (null? #{m1 35310}#)
- (if (null? #{s1 35311}#)
- #{w2 35309}#
- (cons (car #{w2
35309}#)
- (let ((#{m2
35326}#
- (cdr
#{w2 35309}#)))
- (if (null?
#{m2 35326}#)
- #{s1 35311}#
+ (let ((#{m1 58549}#
+ (car #{w 57205}#))
+ (#{s1 58550}#
+ (cdr #{w 57205}#)))
+ (if (null? #{m1 58549}#)
+ (if (null? #{s1 58550}#)
+ #{w2 58548}#
+ (cons (car #{w2
58548}#)
+ (let ((#{m2
58565}#
+ (cdr
#{w2 58548}#)))
+ (if (null?
#{m2 58565}#)
+ #{s1 58550}#
(append
- #{s1
35311}#
- #{m2
35326}#)))))
- (cons (let ((#{m2 35334}#
- (car #{w2
35309}#)))
- (if (null? #{m2
35334}#)
- #{m1 35310}#
+ #{s1
58550}#
+ #{m2
58565}#)))))
+ (cons (let ((#{m2 58573}#
+ (car #{w2
58548}#)))
+ (if (null? #{m2
58573}#)
+ #{m1 58549}#
(append
- #{m1 35310}#
- #{m2
35334}#)))
- (let ((#{m2 35342}#
- (cdr #{w2
35309}#)))
- (if (null? #{m2
35342}#)
- #{s1 35311}#
+ #{m1 58549}#
+ #{m2
58573}#)))
+ (let ((#{m2 58581}#
+ (cdr #{w2
58548}#)))
+ (if (null? #{m2
58581}#)
+ #{s1 58550}#
(append
- #{s1 35311}#
- #{m2
35342}#))))))))
- (#{module 35302}#
- (vector-ref #{x 35268}# 3)))
+ #{s1 58550}#
+ #{m2
58581}#))))))))
+ (#{module 58541}#
+ (vector-ref #{x 58507}# 3)))
(vector
'syntax-object
- #{expression 35300}#
- #{wrap 35301}#
- #{module 35302}#))
- (if (null? #{x 35268}#)
- #{x 35268}#
+ #{expression 58539}#
+ #{wrap 58540}#
+ #{module 58541}#))
+ (if (null? #{x 58507}#)
+ #{x 58507}#
(vector
'syntax-object
- #{x 35268}#
- #{w 33946}#
- #{mod 33948}#)))))
- #{r* 35228}#
- #{w* 35229}#
- #{mod 33948}#)))
- #{tmp 35251}#)
+ #{x 58507}#
+ #{w 57205}#
+ #{mod 57207}#)))))
+ #{r* 58467}#
+ #{w* 58468}#
+ #{mod 57207}#)))
+ #{tmp 58490}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{body 35226}#))))))))))
- (let ((#{tmp 33956}#
- ($sc-dispatch #{clauses 33950}# '())))
- (if #{tmp 33956}#
+ #{body 58465}#))))))))))
+ (let ((#{tmp 57215}#
+ ($sc-dispatch #{clauses 57209}# '())))
+ (if #{tmp 57215}#
(@apply
(lambda () (values '() #f))
- #{tmp 33956}#)
- (let ((#{tmp 33961}#
+ #{tmp 57215}#)
+ (let ((#{tmp 57219}#
($sc-dispatch
- #{clauses 33950}#
+ #{clauses 57209}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 33961}#
+ (if #{tmp 57219}#
(@apply
- (lambda (#{args 33965}#
- #{e1 33966}#
- #{e2 33967}#
- #{args* 33968}#
- #{e1* 33969}#
- #{e2* 33970}#)
+ (lambda (#{args 57223}#
+ #{e1 57224}#
+ #{e2 57225}#
+ #{args* 57226}#
+ #{e1* 57227}#
+ #{e2* 57228}#)
(call-with-values
(lambda ()
- (#{get-formals 33949}# #{args 33965}#))
- (lambda (#{req 33971}#
- #{opt 33972}#
- #{rest 33973}#
- #{kw 33974}#)
+ (#{get-formals 57208}# #{args 57223}#))
+ (lambda (#{req 57229}#
+ #{opt 57230}#
+ #{rest 57231}#
+ #{kw 57232}#)
(call-with-values
(lambda ()
- (#{parse-req 33951}#
- #{req 33971}#
- #{opt 33972}#
- #{rest 33973}#
- #{kw 33974}#
- (cons #{e1 33966}# #{e2 33967}#)))
- (lambda (#{meta 34043}#
- #{req 34044}#
- #{opt 34045}#
- #{rest 34046}#
- #{kw 34047}#
- #{inits 34048}#
- #{vars 34049}#
- #{body 34050}#)
+ (#{parse-req 57210}#
+ #{req 57229}#
+ #{opt 57230}#
+ #{rest 57231}#
+ #{kw 57232}#
+ (cons #{e1 57224}# #{e2 57225}#)))
+ (lambda (#{meta 57301}#
+ #{req 57302}#
+ #{opt 57303}#
+ #{rest 57304}#
+ #{kw 57305}#
+ #{inits 57306}#
+ #{vars 57307}#
+ #{body 57308}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4455}#
- #{e 33944}#
- #{r 33945}#
- #{w 33946}#
- #{s 33947}#
- #{mod 33948}#
- #{get-formals 33949}#
- (map (lambda (#{tmp 2883 34051}#
- #{tmp 2882 34052}#
- #{tmp 2881 34053}#)
- (cons #{tmp 2881 34053}#
- (cons #{tmp 2882 34052}#
- #{tmp 2883 34051}#)))
- #{e2* 33970}#
- #{e1* 33969}#
- #{args* 33968}#)))
- (lambda (#{meta* 34054}# #{else* 34055}#)
+ (#{expand-lambda-case 28283}#
+ #{e 57203}#
+ #{r 57204}#
+ #{w 57205}#
+ #{s 57206}#
+ #{mod 57207}#
+ #{get-formals 57208}#
+ (map (lambda (#{tmp 26711 57309}#
+ #{tmp 26710 57310}#
+ #{tmp 26709 57311}#)
+ (cons #{tmp 26709 57311}#
+ (cons #{tmp 26710 57310}#
+ #{tmp 26711 57309}#)))
+ #{e2* 57228}#
+ #{e1* 57227}#
+ #{args* 57226}#)))
+ (lambda (#{meta* 57312}# #{else* 57313}#)
(values
- (append #{meta 34043}# #{meta* 34054}#)
+ (append #{meta 57301}# #{meta* 57312}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{s 33947}#
- #{req 34044}#
- #{opt 34045}#
- #{rest 34046}#
- #{kw 34047}#
- #{inits 34048}#
- #{vars 34049}#
- #{body 34050}#
- #{else* 34055}#)))))))))
- #{tmp 33961}#)
+ #{s 57206}#
+ #{req 57302}#
+ #{opt 57303}#
+ #{rest 57304}#
+ #{kw 57305}#
+ #{inits 57306}#
+ #{vars 57307}#
+ #{body 57308}#
+ #{else* 57313}#)))))))))
+ #{tmp 57219}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{clauses 33950}#))))))))
- (#{strip 4456}#
- (lambda (#{x 35369}# #{w 35370}#)
- (if (memq 'top (car #{w 35370}#))
- #{x 35369}#
+ #{clauses 57209}#))))))))
+ (#{strip 28284}#
+ (lambda (#{x 58608}# #{w 58609}#)
+ (if (memq 'top (car #{w 58609}#))
+ #{x 58608}#
(letrec*
- ((#{f 35371}#
- (lambda (#{x 35374}#)
- (if (if (vector? #{x 35374}#)
- (if (= (vector-length #{x 35374}#) 4)
- (eq? (vector-ref #{x 35374}# 0) 'syntax-object)
+ ((#{f 58610}#
+ (lambda (#{x 58613}#)
+ (if (if (vector? #{x 58613}#)
+ (if (= (vector-length #{x 58613}#) 4)
+ (eq? (vector-ref #{x 58613}# 0) 'syntax-object)
#f)
#f)
- (#{strip 4456}#
- (vector-ref #{x 35374}# 1)
- (vector-ref #{x 35374}# 2))
- (if (pair? #{x 35374}#)
- (let ((#{a 35393}# (#{f 35371}# (car #{x 35374}#)))
- (#{d 35394}# (#{f 35371}# (cdr #{x 35374}#))))
- (if (if (eq? #{a 35393}# (car #{x 35374}#))
- (eq? #{d 35394}# (cdr #{x 35374}#))
+ (#{strip 28284}#
+ (vector-ref #{x 58613}# 1)
+ (vector-ref #{x 58613}# 2))
+ (if (pair? #{x 58613}#)
+ (let ((#{a 58632}# (#{f 58610}# (car #{x 58613}#)))
+ (#{d 58633}# (#{f 58610}# (cdr #{x 58613}#))))
+ (if (if (eq? #{a 58632}# (car #{x 58613}#))
+ (eq? #{d 58633}# (cdr #{x 58613}#))
#f)
- #{x 35374}#
- (cons #{a 35393}# #{d 35394}#)))
- (if (vector? #{x 35374}#)
- (let ((#{old 35397}# (vector->list #{x 35374}#)))
- (let ((#{new 35398}# (map #{f 35371}# #{old 35397}#)))
+ #{x 58613}#
+ (cons #{a 58632}# #{d 58633}#)))
+ (if (vector? #{x 58613}#)
+ (let ((#{old 58636}# (vector->list #{x 58613}#)))
+ (let ((#{new 58637}# (map #{f 58610}# #{old 58636}#)))
(letrec*
- ((#{lp 35399}#
- (lambda (#{l1 35496}# #{l2 35497}#)
- (if (null? #{l1 35496}#)
- #{x 35374}#
- (if (eq? (car #{l1 35496}#)
- (car #{l2 35497}#))
- (#{lp 35399}#
- (cdr #{l1 35496}#)
- (cdr #{l2 35497}#))
- (list->vector #{new 35398}#))))))
- (#{lp 35399}# #{old 35397}# #{new 35398}#))))
- #{x 35374}#))))))
- (#{f 35371}# #{x 35369}#)))))
- (#{gen-var 4457}#
- (lambda (#{id 34099}#)
- (let ((#{id 34100}#
- (if (if (vector? #{id 34099}#)
- (if (= (vector-length #{id 34099}#) 4)
- (eq? (vector-ref #{id 34099}# 0) 'syntax-object)
+ ((#{lp 58638}#
+ (lambda (#{l1 58735}# #{l2 58736}#)
+ (if (null? #{l1 58735}#)
+ #{x 58613}#
+ (if (eq? (car #{l1 58735}#)
+ (car #{l2 58736}#))
+ (#{lp 58638}#
+ (cdr #{l1 58735}#)
+ (cdr #{l2 58736}#))
+ (list->vector #{new 58637}#))))))
+ (#{lp 58638}# #{old 58636}# #{new 58637}#))))
+ #{x 58613}#))))))
+ (#{f 58610}# #{x 58608}#)))))
+ (#{gen-var 28285}#
+ (lambda (#{id 57357}#)
+ (let ((#{id 57358}#
+ (if (if (vector? #{id 57357}#)
+ (if (= (vector-length #{id 57357}#) 4)
+ (eq? (vector-ref #{id 57357}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id 34099}# 1)
- #{id 34099}#)))
+ (vector-ref #{id 57357}# 1)
+ #{id 57357}#)))
(gensym
- (string-append (symbol->string #{id 34100}#) " ")))))
- (#{lambda-var-list 4458}#
- (lambda (#{vars 35498}#)
+ (string-append (symbol->string #{id 57358}#) " ")))))
+ (#{lambda-var-list 28286}#
+ (lambda (#{vars 58737}#)
(letrec*
- ((#{lvl 35499}#
- (lambda (#{vars 35502}# #{ls 35503}# #{w 35504}#)
- (if (pair? #{vars 35502}#)
- (#{lvl 35499}#
- (cdr #{vars 35502}#)
- (cons (let ((#{x 35508}# (car #{vars 35502}#)))
- (if (if (null? (car #{w 35504}#))
- (null? (cdr #{w 35504}#))
+ ((#{lvl 58738}#
+ (lambda (#{vars 58741}# #{ls 58742}# #{w 58743}#)
+ (if (pair? #{vars 58741}#)
+ (#{lvl 58738}#
+ (cdr #{vars 58741}#)
+ (cons (let ((#{x 58747}# (car #{vars 58741}#)))
+ (if (if (null? (car #{w 58743}#))
+ (null? (cdr #{w 58743}#))
#f)
- #{x 35508}#
- (if (if (vector? #{x 35508}#)
- (if (= (vector-length #{x 35508}#) 4)
- (eq? (vector-ref #{x 35508}# 0)
+ #{x 58747}#
+ (if (if (vector? #{x 58747}#)
+ (if (= (vector-length #{x 58747}#) 4)
+ (eq? (vector-ref #{x 58747}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 35526}#
- (vector-ref #{x 35508}# 1))
- (#{wrap 35527}#
- (let ((#{w2 35535}#
- (vector-ref #{x 35508}# 2)))
- (let ((#{m1 35536}# (car #{w 35504}#))
- (#{s1 35537}# (cdr #{w 35504}#)))
- (if (null? #{m1 35536}#)
- (if (null? #{s1 35537}#)
- #{w2 35535}#
- (cons (car #{w2 35535}#)
- (let ((#{m2 35552}#
- (cdr #{w2
35535}#)))
- (if (null? #{m2 35552}#)
- #{s1 35537}#
+ (let ((#{expression 58765}#
+ (vector-ref #{x 58747}# 1))
+ (#{wrap 58766}#
+ (let ((#{w2 58774}#
+ (vector-ref #{x 58747}# 2)))
+ (let ((#{m1 58775}# (car #{w 58743}#))
+ (#{s1 58776}# (cdr #{w 58743}#)))
+ (if (null? #{m1 58775}#)
+ (if (null? #{s1 58776}#)
+ #{w2 58774}#
+ (cons (car #{w2 58774}#)
+ (let ((#{m2 58791}#
+ (cdr #{w2
58774}#)))
+ (if (null? #{m2 58791}#)
+ #{s1 58776}#
(append
- #{s1 35537}#
- #{m2 35552}#)))))
- (cons (let ((#{m2 35560}#
- (car #{w2 35535}#)))
- (if (null? #{m2 35560}#)
- #{m1 35536}#
+ #{s1 58776}#
+ #{m2 58791}#)))))
+ (cons (let ((#{m2 58799}#
+ (car #{w2 58774}#)))
+ (if (null? #{m2 58799}#)
+ #{m1 58775}#
(append
- #{m1 35536}#
- #{m2 35560}#)))
- (let ((#{m2 35568}#
- (cdr #{w2 35535}#)))
- (if (null? #{m2 35568}#)
- #{s1 35537}#
+ #{m1 58775}#
+ #{m2 58799}#)))
+ (let ((#{m2 58807}#
+ (cdr #{w2 58774}#)))
+ (if (null? #{m2 58807}#)
+ #{s1 58776}#
(append
- #{s1 35537}#
- #{m2 35568}#))))))))
- (#{module 35528}#
- (vector-ref #{x 35508}# 3)))
+ #{s1 58776}#
+ #{m2 58807}#))))))))
+ (#{module 58767}#
+ (vector-ref #{x 58747}# 3)))
(vector
'syntax-object
- #{expression 35526}#
- #{wrap 35527}#
- #{module 35528}#))
- (if (null? #{x 35508}#)
- #{x 35508}#
+ #{expression 58765}#
+ #{wrap 58766}#
+ #{module 58767}#))
+ (if (null? #{x 58747}#)
+ #{x 58747}#
(vector
'syntax-object
- #{x 35508}#
- #{w 35504}#
+ #{x 58747}#
+ #{w 58743}#
#f)))))
- #{ls 35503}#)
- #{w 35504}#)
- (if (if (symbol? #{vars 35502}#)
+ #{ls 58742}#)
+ #{w 58743}#)
+ (if (if (symbol? #{vars 58741}#)
#t
- (if (if (vector? #{vars 35502}#)
- (if (= (vector-length #{vars 35502}#) 4)
- (eq? (vector-ref #{vars 35502}# 0)
+ (if (if (vector? #{vars 58741}#)
+ (if (= (vector-length #{vars 58741}#) 4)
+ (eq? (vector-ref #{vars 58741}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{vars 35502}# 1))
+ (symbol? (vector-ref #{vars 58741}# 1))
#f))
- (cons (if (if (null? (car #{w 35504}#))
- (null? (cdr #{w 35504}#))
+ (cons (if (if (null? (car #{w 58743}#))
+ (null? (cdr #{w 58743}#))
#f)
- #{vars 35502}#
- (if (if (vector? #{vars 35502}#)
- (if (= (vector-length #{vars 35502}#) 4)
- (eq? (vector-ref #{vars 35502}# 0)
+ #{vars 58741}#
+ (if (if (vector? #{vars 58741}#)
+ (if (= (vector-length #{vars 58741}#) 4)
+ (eq? (vector-ref #{vars 58741}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 35638}#
- (vector-ref #{vars 35502}# 1))
- (#{wrap 35639}#
- (let ((#{w2 35649}#
- (vector-ref #{vars 35502}# 2)))
- (let ((#{m1 35650}# (car #{w 35504}#))
- (#{s1 35651}# (cdr #{w 35504}#)))
- (if (null? #{m1 35650}#)
- (if (null? #{s1 35651}#)
- #{w2 35649}#
- (cons (car #{w2 35649}#)
- (let ((#{m2 35668}#
- (cdr #{w2 35649}#)))
- (if (null? #{m2 35668}#)
- #{s1 35651}#
+ (let ((#{expression 58877}#
+ (vector-ref #{vars 58741}# 1))
+ (#{wrap 58878}#
+ (let ((#{w2 58888}#
+ (vector-ref #{vars 58741}# 2)))
+ (let ((#{m1 58889}# (car #{w 58743}#))
+ (#{s1 58890}# (cdr #{w 58743}#)))
+ (if (null? #{m1 58889}#)
+ (if (null? #{s1 58890}#)
+ #{w2 58888}#
+ (cons (car #{w2 58888}#)
+ (let ((#{m2 58907}#
+ (cdr #{w2 58888}#)))
+ (if (null? #{m2 58907}#)
+ #{s1 58890}#
(append
- #{s1 35651}#
- #{m2 35668}#)))))
- (cons (let ((#{m2 35676}#
- (car #{w2 35649}#)))
- (if (null? #{m2 35676}#)
- #{m1 35650}#
+ #{s1 58890}#
+ #{m2 58907}#)))))
+ (cons (let ((#{m2 58915}#
+ (car #{w2 58888}#)))
+ (if (null? #{m2 58915}#)
+ #{m1 58889}#
(append
- #{m1 35650}#
- #{m2 35676}#)))
- (let ((#{m2 35684}#
- (cdr #{w2 35649}#)))
- (if (null? #{m2 35684}#)
- #{s1 35651}#
+ #{m1 58889}#
+ #{m2 58915}#)))
+ (let ((#{m2 58923}#
+ (cdr #{w2 58888}#)))
+ (if (null? #{m2 58923}#)
+ #{s1 58890}#
(append
- #{s1 35651}#
- #{m2 35684}#))))))))
- (#{module 35640}#
- (vector-ref #{vars 35502}# 3)))
+ #{s1 58890}#
+ #{m2 58923}#))))))))
+ (#{module 58879}#
+ (vector-ref #{vars 58741}# 3)))
(vector
'syntax-object
- #{expression 35638}#
- #{wrap 35639}#
- #{module 35640}#))
- (if (null? #{vars 35502}#)
- #{vars 35502}#
+ #{expression 58877}#
+ #{wrap 58878}#
+ #{module 58879}#))
+ (if (null? #{vars 58741}#)
+ #{vars 58741}#
(vector
'syntax-object
- #{vars 35502}#
- #{w 35504}#
+ #{vars 58741}#
+ #{w 58743}#
#f))))
- #{ls 35503}#)
- (if (null? #{vars 35502}#)
- #{ls 35503}#
- (if (if (vector? #{vars 35502}#)
- (if (= (vector-length #{vars 35502}#) 4)
- (eq? (vector-ref #{vars 35502}# 0)
+ #{ls 58742}#)
+ (if (null? #{vars 58741}#)
+ #{ls 58742}#
+ (if (if (vector? #{vars 58741}#)
+ (if (= (vector-length #{vars 58741}#) 4)
+ (eq? (vector-ref #{vars 58741}# 0)
'syntax-object)
#f)
#f)
- (#{lvl 35499}#
- (vector-ref #{vars 35502}# 1)
- #{ls 35503}#
- (let ((#{w2 35725}# (vector-ref #{vars 35502}# 2)))
- (let ((#{m1 35726}# (car #{w 35504}#))
- (#{s1 35727}# (cdr #{w 35504}#)))
- (if (null? #{m1 35726}#)
- (if (null? #{s1 35727}#)
- #{w2 35725}#
- (cons (car #{w2 35725}#)
- (let ((#{m2 35738}# (cdr #{w2 35725}#)))
- (if (null? #{m2 35738}#)
- #{s1 35727}#
+ (#{lvl 58738}#
+ (vector-ref #{vars 58741}# 1)
+ #{ls 58742}#
+ (let ((#{w2 58964}# (vector-ref #{vars 58741}# 2)))
+ (let ((#{m1 58965}# (car #{w 58743}#))
+ (#{s1 58966}# (cdr #{w 58743}#)))
+ (if (null? #{m1 58965}#)
+ (if (null? #{s1 58966}#)
+ #{w2 58964}#
+ (cons (car #{w2 58964}#)
+ (let ((#{m2 58977}# (cdr #{w2 58964}#)))
+ (if (null? #{m2 58977}#)
+ #{s1 58966}#
(append
- #{s1 35727}#
- #{m2 35738}#)))))
- (cons (let ((#{m2 35746}# (car #{w2 35725}#)))
- (if (null? #{m2 35746}#)
- #{m1 35726}#
- (append #{m1 35726}# #{m2 35746}#)))
- (let ((#{m2 35754}# (cdr #{w2 35725}#)))
- (if (null? #{m2 35754}#)
- #{s1 35727}#
+ #{s1 58966}#
+ #{m2 58977}#)))))
+ (cons (let ((#{m2 58985}# (car #{w2 58964}#)))
+ (if (null? #{m2 58985}#)
+ #{m1 58965}#
+ (append #{m1 58965}# #{m2 58985}#)))
+ (let ((#{m2 58993}# (cdr #{w2 58964}#)))
+ (if (null? #{m2 58993}#)
+ #{s1 58966}#
(append
- #{s1 35727}#
- #{m2 35754}#))))))))
- (cons #{vars 35502}# #{ls 35503}#))))))))
- (#{lvl 35499}# #{vars 35498}# '() '(()))))))
+ #{s1 58966}#
+ #{m2 58993}#))))))))
+ (cons #{vars 58741}# #{ls 58742}#))))))))
+ (#{lvl 58738}# #{vars 58737}# '() '(()))))))
(begin
(module-define!
(current-module)
@@ -9027,2070 +9044,2102 @@
'let-syntax
'local-syntax
#f))
- (#{global-extend 4408}#
+ (#{global-extend 28236}#
'core
'syntax-parameterize
- (lambda (#{e 4585}#
- #{r 4586}#
- #{w 4587}#
- #{s 4588}#
- #{mod 4589}#)
- (let ((#{tmp 4591}#
+ (lambda (#{e 28413}#
+ #{r 28414}#
+ #{w 28415}#
+ #{s 28416}#
+ #{mod 28417}#)
+ (let ((#{tmp 28419}#
($sc-dispatch
- #{e 4585}#
+ #{e 28413}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 4591}#
+ (if (if #{tmp 28419}#
(@apply
- (lambda (#{var 4595}#
- #{val 4596}#
- #{e1 4597}#
- #{e2 4598}#)
- (#{valid-bound-ids? 4433}# #{var 4595}#))
- #{tmp 4591}#)
+ (lambda (#{var 28423}#
+ #{val 28424}#
+ #{e1 28425}#
+ #{e2 28426}#)
+ (#{valid-bound-ids? 28261}# #{var 28423}#))
+ #{tmp 28419}#)
#f)
(@apply
- (lambda (#{var 4683}#
- #{val 4684}#
- #{e1 4685}#
- #{e2 4686}#)
- (let ((#{names 4687}#
- (map (lambda (#{x 5036}#)
+ (lambda (#{var 28511}#
+ #{val 28512}#
+ #{e1 28513}#
+ #{e2 28514}#)
+ (let ((#{names 28515}#
+ (map (lambda (#{x 28855}#)
(call-with-values
(lambda ()
- (#{resolve-identifier 4430}#
- #{x 5036}#
- #{w 4587}#
- #{r 4586}#
- #{mod 4589}#
+ (#{resolve-identifier 28258}#
+ #{x 28855}#
+ #{w 28415}#
+ #{r 28414}#
+ #{mod 28417}#
#f))
- (lambda (#{type 5039}#
- #{value 5040}#
- #{mod 5041}#)
- (if (eqv? #{type 5039}# 'displaced-lexical)
+ (lambda (#{type 28858}#
+ #{value 28859}#
+ #{mod 28860}#)
+ (if (eqv? #{type 28858}# 'displaced-lexical)
(syntax-violation
'syntax-parameterize
"identifier out of context"
- #{e 4585}#
- (let ((#{x 5054}#
+ #{e 28413}#
+ (let ((#{x 28873}#
(begin
- (if (if (pair? #{x 5036}#)
- #{s 4588}#
+ (if (if (pair? #{x 28855}#)
+ #{s 28416}#
#f)
(set-source-properties!
- #{x 5036}#
- #{s 4588}#))
- #{x 5036}#)))
- (if (if (null? (car #{w 4587}#))
- (null? (cdr #{w 4587}#))
+ #{x 28855}#
+ #{s 28416}#))
+ #{x 28855}#)))
+ (if (if (null? (car #{w 28415}#))
+ (null? (cdr #{w 28415}#))
#f)
- #{x 5054}#
- (if (if (vector? #{x 5054}#)
+ #{x 28873}#
+ (if (if (vector? #{x 28873}#)
(if (= (vector-length
- #{x 5054}#)
+ #{x 28873}#)
4)
(eq? (vector-ref
- #{x 5054}#
+ #{x 28873}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 5086}#
- (vector-ref #{x 5054}# 1))
- (#{wrap 5087}#
- (let ((#{w2 5095}#
+ (let ((#{expression 28905}#
+ (vector-ref
+ #{x 28873}#
+ 1))
+ (#{wrap 28906}#
+ (let ((#{w2 28914}#
(vector-ref
- #{x 5054}#
+ #{x 28873}#
2)))
- (let ((#{m1 5096}#
- (car #{w
4587}#))
- (#{s1 5097}#
- (cdr #{w
4587}#)))
- (if (null? #{m1
5096}#)
- (if (null? #{s1
5097}#)
- #{w2 5095}#
- (cons (car #{w2
5095}#)
- (let ((#{m2
5112}#
-
(cdr #{w2 5095}#)))
- (if
(null? #{m2 5112}#)
- #{s1
5097}#
+ (let ((#{m1 28915}#
+ (car #{w
28415}#))
+ (#{s1 28916}#
+ (cdr #{w
28415}#)))
+ (if (null? #{m1
28915}#)
+ (if (null? #{s1
28916}#)
+ #{w2 28914}#
+ (cons (car #{w2
28914}#)
+ (let ((#{m2
28931}#
+
(cdr #{w2 28914}#)))
+ (if
(null? #{m2 28931}#)
+ #{s1
28916}#
(append
- #{s1
5097}#
- #{m2
5112}#)))))
- (cons (let ((#{m2
5120}#
- (car
#{w2 5095}#)))
- (if (null?
#{m2 5120}#)
- #{m1
5096}#
+ #{s1
28916}#
+ #{m2
28931}#)))))
+ (cons (let ((#{m2
28939}#
+ (car
#{w2 28914}#)))
+ (if (null?
#{m2 28939}#)
+ #{m1
28915}#
(append
- #{m1
5096}#
- #{m2
5120}#)))
- (let ((#{m2
5128}#
- (cdr
#{w2 5095}#)))
- (if (null?
#{m2 5128}#)
- #{s1
5097}#
+ #{m1
28915}#
+ #{m2
28939}#)))
+ (let ((#{m2
28947}#
+ (cdr
#{w2 28914}#)))
+ (if (null?
#{m2 28947}#)
+ #{s1
28916}#
(append
- #{s1
5097}#
- #{m2
5128}#))))))))
- (#{module 5088}#
+ #{s1
28916}#
+ #{m2
28947}#))))))))
+ (#{module 28907}#
(vector-ref
- #{x 5054}#
+ #{x 28873}#
3)))
(vector
'syntax-object
- #{expression 5086}#
- #{wrap 5087}#
- #{module 5088}#))
- (if (null? #{x 5054}#)
- #{x 5054}#
+ #{expression 28905}#
+ #{wrap 28906}#
+ #{module 28907}#))
+ (if (null? #{x 28873}#)
+ #{x 28873}#
(vector
'syntax-object
- #{x 5054}#
- #{w 4587}#
- #{mod 5041}#))))))
- (if (eqv? #{type 5039}# 'syntax-parameter)
- #{value 5040}#
+ #{x 28873}#
+ #{w 28415}#
+ #{mod 28860}#))))))
+ (if (eqv? #{type 28858}#
+ 'syntax-parameter)
+ #{value 28859}#
(syntax-violation
'syntax-parameterize
"invalid syntax parameter"
- #{e 4585}#
- (let ((#{x 5155}#
+ #{e 28413}#
+ (let ((#{x 28974}#
(begin
- (if (if (pair? #{x 5036}#)
- #{s 4588}#
+ (if (if (pair? #{x 28855}#)
+ #{s 28416}#
#f)
(set-source-properties!
- #{x 5036}#
- #{s 4588}#))
- #{x 5036}#)))
- (if (if (null? (car #{w 4587}#))
- (null? (cdr #{w 4587}#))
+ #{x 28855}#
+ #{s 28416}#))
+ #{x 28855}#)))
+ (if (if (null? (car #{w 28415}#))
+ (null? (cdr #{w 28415}#))
#f)
- #{x 5155}#
- (if (if (vector? #{x 5155}#)
+ #{x 28974}#
+ (if (if (vector? #{x 28974}#)
(if (= (vector-length
- #{x 5155}#)
+ #{x 28974}#)
4)
(eq? (vector-ref
- #{x 5155}#
+ #{x 28974}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 5187}#
+ (let ((#{expression 29006}#
(vector-ref
- #{x 5155}#
+ #{x 28974}#
1))
- (#{wrap 5188}#
- (let ((#{w2 5196}#
+ (#{wrap 29007}#
+ (let ((#{w2 29015}#
(vector-ref
- #{x 5155}#
+ #{x 28974}#
2)))
- (let ((#{m1 5197}#
- (car #{w
4587}#))
- (#{s1 5198}#
- (cdr #{w
4587}#)))
- (if (null? #{m1
5197}#)
- (if (null? #{s1
5198}#)
- #{w2 5196}#
- (cons (car #{w2
5196}#)
- (let
((#{m2 5213}#
-
(cdr #{w2 5196}#)))
- (if
(null? #{m2 5213}#)
- #{s1
5198}#
+ (let ((#{m1 29016}#
+ (car #{w
28415}#))
+ (#{s1 29017}#
+ (cdr #{w
28415}#)))
+ (if (null? #{m1
29016}#)
+ (if (null? #{s1
29017}#)
+ #{w2 29015}#
+ (cons (car #{w2
29015}#)
+ (let
((#{m2 29032}#
+
(cdr #{w2 29015}#)))
+ (if
(null? #{m2 29032}#)
+ #{s1
29017}#
(append
-
#{s1 5198}#
-
#{m2 5213}#)))))
- (cons (let ((#{m2
5221}#
-
(car #{w2 5196}#)))
- (if
(null? #{m2 5221}#)
- #{m1
5197}#
+
#{s1 29017}#
+
#{m2 29032}#)))))
+ (cons (let ((#{m2
29040}#
+
(car #{w2 29015}#)))
+ (if
(null? #{m2 29040}#)
+ #{m1
29016}#
(append
- #{m1
5197}#
- #{m2
5221}#)))
- (let ((#{m2
5229}#
-
(cdr #{w2 5196}#)))
- (if
(null? #{m2 5229}#)
- #{s1
5198}#
+ #{m1
29016}#
+ #{m2
29040}#)))
+ (let ((#{m2
29048}#
+
(cdr #{w2 29015}#)))
+ (if
(null? #{m2 29048}#)
+ #{s1
29017}#
(append
- #{s1
5198}#
- #{m2
5229}#))))))))
- (#{module 5189}#
+ #{s1
29017}#
+ #{m2
29048}#))))))))
+ (#{module 29008}#
(vector-ref
- #{x 5155}#
+ #{x 28974}#
3)))
(vector
'syntax-object
- #{expression 5187}#
- #{wrap 5188}#
- #{module 5189}#))
- (if (null? #{x 5155}#)
- #{x 5155}#
+ #{expression 29006}#
+ #{wrap 29007}#
+ #{module 29008}#))
+ (if (null? #{x 28974}#)
+ #{x 28974}#
(vector
'syntax-object
- #{x 5155}#
- #{w 4587}#
- #{mod 5041}#)))))))))))
- #{var 4683}#))
- (#{bindings 4688}#
- (let ((#{trans-r 5244}#
- (#{macros-only-env 4407}# #{r 4586}#)))
- (map (lambda (#{x 5245}#)
+ #{x 28974}#
+ #{w 28415}#
+ #{mod 28860}#)))))))))))
+ #{var 28511}#))
+ (#{bindings 28516}#
+ (let ((#{trans-r 29063}#
+ (#{macros-only-env 28235}# #{r 28414}#)))
+ (map (lambda (#{x 29064}#)
(cons 'macro
- (#{eval-local-transformer 4449}#
- (#{expand 4443}#
- #{x 5245}#
- #{trans-r 5244}#
- #{w 4587}#
- #{mod 4589}#)
- #{mod 4589}#)))
- #{val 4684}#))))
- (#{expand-body 4447}#
- (cons #{e1 4685}# #{e2 4686}#)
- (let ((#{x 4700}#
+ (#{eval-local-transformer 28277}#
+ (#{expand 28271}#
+ #{x 29064}#
+ #{trans-r 29063}#
+ #{w 28415}#
+ #{mod 28417}#)
+ #{mod 28417}#)))
+ #{val 28512}#))))
+ (#{expand-body 28275}#
+ (cons #{e1 28513}# #{e2 28514}#)
+ (let ((#{x 28528}#
(begin
- (if (if (pair? #{e 4585}#) #{s 4588}# #f)
- (set-source-properties! #{e 4585}# #{s 4588}#))
- #{e 4585}#)))
- (if (if (null? (car #{w 4587}#))
- (null? (cdr #{w 4587}#))
+ (if (if (pair? #{e 28413}#) #{s 28416}# #f)
+ (set-source-properties!
+ #{e 28413}#
+ #{s 28416}#))
+ #{e 28413}#)))
+ (if (if (null? (car #{w 28415}#))
+ (null? (cdr #{w 28415}#))
#f)
- #{x 4700}#
- (if (if (vector? #{x 4700}#)
- (if (= (vector-length #{x 4700}#) 4)
- (eq? (vector-ref #{x 4700}# 0) 'syntax-object)
+ #{x 28528}#
+ (if (if (vector? #{x 28528}#)
+ (if (= (vector-length #{x 28528}#) 4)
+ (eq? (vector-ref #{x 28528}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 4732}# (vector-ref #{x 4700}# 1))
- (#{wrap 4733}#
- (let ((#{w2 4741}#
- (vector-ref #{x 4700}# 2)))
- (let ((#{m1 4742}# (car #{w 4587}#))
- (#{s1 4743}# (cdr #{w 4587}#)))
- (if (null? #{m1 4742}#)
- (if (null? #{s1 4743}#)
- #{w2 4741}#
- (cons (car #{w2 4741}#)
- (let ((#{m2 4758}#
- (cdr #{w2 4741}#)))
- (if (null? #{m2 4758}#)
- #{s1 4743}#
+ (let ((#{expression 28560}#
+ (vector-ref #{x 28528}# 1))
+ (#{wrap 28561}#
+ (let ((#{w2 28569}#
+ (vector-ref #{x 28528}# 2)))
+ (let ((#{m1 28570}# (car #{w 28415}#))
+ (#{s1 28571}# (cdr #{w 28415}#)))
+ (if (null? #{m1 28570}#)
+ (if (null? #{s1 28571}#)
+ #{w2 28569}#
+ (cons (car #{w2 28569}#)
+ (let ((#{m2 28586}#
+ (cdr #{w2 28569}#)))
+ (if (null? #{m2 28586}#)
+ #{s1 28571}#
(append
- #{s1 4743}#
- #{m2 4758}#)))))
- (cons (let ((#{m2 4766}#
- (car #{w2 4741}#)))
- (if (null? #{m2 4766}#)
- #{m1 4742}#
+ #{s1 28571}#
+ #{m2 28586}#)))))
+ (cons (let ((#{m2 28594}#
+ (car #{w2 28569}#)))
+ (if (null? #{m2 28594}#)
+ #{m1 28570}#
(append
- #{m1 4742}#
- #{m2 4766}#)))
- (let ((#{m2 4774}#
- (cdr #{w2 4741}#)))
- (if (null? #{m2 4774}#)
- #{s1 4743}#
+ #{m1 28570}#
+ #{m2 28594}#)))
+ (let ((#{m2 28602}#
+ (cdr #{w2 28569}#)))
+ (if (null? #{m2 28602}#)
+ #{s1 28571}#
(append
- #{s1 4743}#
- #{m2 4774}#))))))))
- (#{module 4734}# (vector-ref #{x 4700}# 3)))
+ #{s1 28571}#
+ #{m2 28602}#))))))))
+ (#{module 28562}# (vector-ref #{x 28528}# 3)))
(vector
'syntax-object
- #{expression 4732}#
- #{wrap 4733}#
- #{module 4734}#))
- (if (null? #{x 4700}#)
- #{x 4700}#
+ #{expression 28560}#
+ #{wrap 28561}#
+ #{module 28562}#))
+ (if (null? #{x 28528}#)
+ #{x 28528}#
(vector
'syntax-object
- #{x 4700}#
- #{w 4587}#
- #{mod 4589}#)))))
- (#{extend-env 4405}#
- #{names 4687}#
- #{bindings 4688}#
- #{r 4586}#)
- #{w 4587}#
- #{mod 4589}#)))
- #{tmp 4591}#)
+ #{x 28528}#
+ #{w 28415}#
+ #{mod 28417}#)))))
+ (#{extend-env 28233}#
+ #{names 28515}#
+ #{bindings 28516}#
+ #{r 28414}#)
+ #{w 28415}#
+ #{mod 28417}#)))
+ #{tmp 28419}#)
(syntax-violation
'syntax-parameterize
"bad syntax"
- (let ((#{x 5469}#
+ (let ((#{x 29284}#
(begin
- (if (if (pair? #{e 4585}#) #{s 4588}# #f)
- (set-source-properties! #{e 4585}# #{s 4588}#))
- #{e 4585}#)))
- (if (if (null? (car #{w 4587}#))
- (null? (cdr #{w 4587}#))
+ (if (if (pair? #{e 28413}#) #{s 28416}# #f)
+ (set-source-properties! #{e 28413}# #{s 28416}#))
+ #{e 28413}#)))
+ (if (if (null? (car #{w 28415}#))
+ (null? (cdr #{w 28415}#))
#f)
- #{x 5469}#
- (if (if (vector? #{x 5469}#)
- (if (= (vector-length #{x 5469}#) 4)
- (eq? (vector-ref #{x 5469}# 0) 'syntax-object)
+ #{x 29284}#
+ (if (if (vector? #{x 29284}#)
+ (if (= (vector-length #{x 29284}#) 4)
+ (eq? (vector-ref #{x 29284}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 5501}# (vector-ref #{x 5469}# 1))
- (#{wrap 5502}#
- (let ((#{w2 5510}# (vector-ref #{x 5469}# 2)))
- (let ((#{m1 5511}# (car #{w 4587}#))
- (#{s1 5512}# (cdr #{w 4587}#)))
- (if (null? #{m1 5511}#)
- (if (null? #{s1 5512}#)
- #{w2 5510}#
- (cons (car #{w2 5510}#)
- (let ((#{m2 5527}#
- (cdr #{w2 5510}#)))
- (if (null? #{m2 5527}#)
- #{s1 5512}#
+ (let ((#{expression 29316}# (vector-ref #{x 29284}# 1))
+ (#{wrap 29317}#
+ (let ((#{w2 29325}# (vector-ref #{x 29284}# 2)))
+ (let ((#{m1 29326}# (car #{w 28415}#))
+ (#{s1 29327}# (cdr #{w 28415}#)))
+ (if (null? #{m1 29326}#)
+ (if (null? #{s1 29327}#)
+ #{w2 29325}#
+ (cons (car #{w2 29325}#)
+ (let ((#{m2 29342}#
+ (cdr #{w2 29325}#)))
+ (if (null? #{m2 29342}#)
+ #{s1 29327}#
(append
- #{s1 5512}#
- #{m2 5527}#)))))
- (cons (let ((#{m2 5535}# (car #{w2 5510}#)))
- (if (null? #{m2 5535}#)
- #{m1 5511}#
- (append #{m1 5511}# #{m2 5535}#)))
- (let ((#{m2 5543}# (cdr #{w2 5510}#)))
- (if (null? #{m2 5543}#)
- #{s1 5512}#
+ #{s1 29327}#
+ #{m2 29342}#)))))
+ (cons (let ((#{m2 29350}#
+ (car #{w2 29325}#)))
+ (if (null? #{m2 29350}#)
+ #{m1 29326}#
(append
- #{s1 5512}#
- #{m2 5543}#))))))))
- (#{module 5503}# (vector-ref #{x 5469}# 3)))
+ #{m1 29326}#
+ #{m2 29350}#)))
+ (let ((#{m2 29358}#
+ (cdr #{w2 29325}#)))
+ (if (null? #{m2 29358}#)
+ #{s1 29327}#
+ (append
+ #{s1 29327}#
+ #{m2 29358}#))))))))
+ (#{module 29318}# (vector-ref #{x 29284}# 3)))
(vector
'syntax-object
- #{expression 5501}#
- #{wrap 5502}#
- #{module 5503}#))
- (if (null? #{x 5469}#)
- #{x 5469}#
+ #{expression 29316}#
+ #{wrap 29317}#
+ #{module 29318}#))
+ (if (null? #{x 29284}#)
+ #{x 29284}#
(vector
'syntax-object
- #{x 5469}#
- #{w 4587}#
- #{mod 4589}#))))))))))
+ #{x 29284}#
+ #{w 28415}#
+ #{mod 28417}#))))))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (#{e 5571}#
- #{r 5572}#
- #{w 5573}#
- #{s 5574}#
- #{mod 5575}#)
- (let ((#{tmp 5577}# ($sc-dispatch #{e 5571}# '(_ any))))
- (if #{tmp 5577}#
+ (lambda (#{e 29386}#
+ #{r 29387}#
+ #{w 29388}#
+ #{s 29389}#
+ #{mod 29390}#)
+ (let ((#{tmp 29392}#
+ ($sc-dispatch #{e 29386}# '(_ any))))
+ (if #{tmp 29392}#
(@apply
- (lambda (#{e 5580}#)
- (let ((#{exp 5584}#
- (#{strip 4456}# #{e 5580}# #{w 5573}#)))
+ (lambda (#{e 29395}#)
+ (let ((#{exp 29399}#
+ (#{strip 28284}# #{e 29395}# #{w 29388}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 5574}#
- #{exp 5584}#)))
- #{tmp 5577}#)
+ #{s 29389}#
+ #{exp 29399}#)))
+ #{tmp 29392}#)
(syntax-violation
'quote
"bad syntax"
- (let ((#{x 5598}#
+ (let ((#{x 29413}#
(begin
- (if (if (pair? #{e 5571}#) #{s 5574}# #f)
- (set-source-properties! #{e 5571}# #{s 5574}#))
- #{e 5571}#)))
- (if (if (null? (car #{w 5573}#))
- (null? (cdr #{w 5573}#))
+ (if (if (pair? #{e 29386}#) #{s 29389}# #f)
+ (set-source-properties! #{e 29386}# #{s 29389}#))
+ #{e 29386}#)))
+ (if (if (null? (car #{w 29388}#))
+ (null? (cdr #{w 29388}#))
#f)
- #{x 5598}#
- (if (if (vector? #{x 5598}#)
- (if (= (vector-length #{x 5598}#) 4)
- (eq? (vector-ref #{x 5598}# 0) 'syntax-object)
+ #{x 29413}#
+ (if (if (vector? #{x 29413}#)
+ (if (= (vector-length #{x 29413}#) 4)
+ (eq? (vector-ref #{x 29413}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 5630}# (vector-ref #{x 5598}# 1))
- (#{wrap 5631}#
- (let ((#{w2 5639}# (vector-ref #{x 5598}# 2)))
- (let ((#{m1 5640}# (car #{w 5573}#))
- (#{s1 5641}# (cdr #{w 5573}#)))
- (if (null? #{m1 5640}#)
- (if (null? #{s1 5641}#)
- #{w2 5639}#
- (cons (car #{w2 5639}#)
- (let ((#{m2 5656}#
- (cdr #{w2 5639}#)))
- (if (null? #{m2 5656}#)
- #{s1 5641}#
+ (let ((#{expression 29445}# (vector-ref #{x 29413}# 1))
+ (#{wrap 29446}#
+ (let ((#{w2 29454}# (vector-ref #{x 29413}# 2)))
+ (let ((#{m1 29455}# (car #{w 29388}#))
+ (#{s1 29456}# (cdr #{w 29388}#)))
+ (if (null? #{m1 29455}#)
+ (if (null? #{s1 29456}#)
+ #{w2 29454}#
+ (cons (car #{w2 29454}#)
+ (let ((#{m2 29471}#
+ (cdr #{w2 29454}#)))
+ (if (null? #{m2 29471}#)
+ #{s1 29456}#
(append
- #{s1 5641}#
- #{m2 5656}#)))))
- (cons (let ((#{m2 5664}#
- (car #{w2 5639}#)))
- (if (null? #{m2 5664}#)
- #{m1 5640}#
+ #{s1 29456}#
+ #{m2 29471}#)))))
+ (cons (let ((#{m2 29479}#
+ (car #{w2 29454}#)))
+ (if (null? #{m2 29479}#)
+ #{m1 29455}#
(append
- #{m1 5640}#
- #{m2 5664}#)))
- (let ((#{m2 5672}#
- (cdr #{w2 5639}#)))
- (if (null? #{m2 5672}#)
- #{s1 5641}#
+ #{m1 29455}#
+ #{m2 29479}#)))
+ (let ((#{m2 29487}#
+ (cdr #{w2 29454}#)))
+ (if (null? #{m2 29487}#)
+ #{s1 29456}#
(append
- #{s1 5641}#
- #{m2 5672}#))))))))
- (#{module 5632}# (vector-ref #{x 5598}# 3)))
+ #{s1 29456}#
+ #{m2 29487}#))))))))
+ (#{module 29447}# (vector-ref #{x 29413}# 3)))
(vector
'syntax-object
- #{expression 5630}#
- #{wrap 5631}#
- #{module 5632}#))
- (if (null? #{x 5598}#)
- #{x 5598}#
+ #{expression 29445}#
+ #{wrap 29446}#
+ #{module 29447}#))
+ (if (null? #{x 29413}#)
+ #{x 29413}#
(vector
'syntax-object
- #{x 5598}#
- #{w 5573}#
- #{mod 5575}#)))))))))))
- (#{global-extend 4408}#
+ #{x 29413}#
+ #{w 29388}#
+ #{mod 29390}#)))))))))))
+ (#{global-extend 28236}#
'core
'syntax
(letrec*
- ((#{gen-syntax 5896}#
- (lambda (#{src 6359}#
- #{e 6360}#
- #{r 6361}#
- #{maps 6362}#
- #{ellipsis? 6363}#
- #{mod 6364}#)
- (if (if (symbol? #{e 6360}#)
+ ((#{gen-syntax 29705}#
+ (lambda (#{src 30136}#
+ #{e 30137}#
+ #{r 30138}#
+ #{maps 30139}#
+ #{ellipsis? 30140}#
+ #{mod 30141}#)
+ (if (if (symbol? #{e 30137}#)
#t
- (if (if (vector? #{e 6360}#)
- (if (= (vector-length #{e 6360}#) 4)
- (eq? (vector-ref #{e 6360}# 0) 'syntax-object)
+ (if (if (vector? #{e 30137}#)
+ (if (= (vector-length #{e 30137}#) 4)
+ (eq? (vector-ref #{e 30137}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 6360}# 1))
+ (symbol? (vector-ref #{e 30137}# 1))
#f))
(call-with-values
(lambda ()
- (#{resolve-identifier 4430}#
- #{e 6360}#
+ (#{resolve-identifier 28258}#
+ #{e 30137}#
'(())
- #{r 6361}#
- #{mod 6364}#
+ #{r 30138}#
+ #{mod 30141}#
#f))
- (lambda (#{type 6393}# #{value 6394}# #{mod 6395}#)
- (if (eqv? #{type 6393}# 'syntax)
+ (lambda (#{type 30170}# #{value 30171}# #{mod 30172}#)
+ (if (eqv? #{type 30170}# 'syntax)
(call-with-values
(lambda ()
- (#{gen-ref 5897}#
- #{src 6359}#
- (car #{value 6394}#)
- (cdr #{value 6394}#)
- #{maps 6362}#))
- (lambda (#{var 6401}# #{maps 6402}#)
- (values (list 'ref #{var 6401}#) #{maps 6402}#)))
- (if (#{ellipsis? 6363}# #{e 6360}#)
+ (#{gen-ref 29706}#
+ #{src 30136}#
+ (car #{value 30171}#)
+ (cdr #{value 30171}#)
+ #{maps 30139}#))
+ (lambda (#{var 30178}# #{maps 30179}#)
+ (values (list 'ref #{var 30178}#) #{maps 30179}#)))
+ (if (#{ellipsis? 30140}# #{e 30137}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src 6359}#)
- (values (list 'quote #{e 6360}#) #{maps 6362}#)))))
- (let ((#{tmp 6404}#
- ($sc-dispatch #{e 6360}# '(any any))))
- (if (if #{tmp 6404}#
+ #{src 30136}#)
+ (values (list 'quote #{e 30137}#) #{maps 30139}#)))))
+ (let ((#{tmp 30181}#
+ ($sc-dispatch #{e 30137}# '(any any))))
+ (if (if #{tmp 30181}#
(@apply
- (lambda (#{dots 6408}# #{e 6409}#)
- (#{ellipsis? 6363}# #{dots 6408}#))
- #{tmp 6404}#)
+ (lambda (#{dots 30185}# #{e 30186}#)
+ (#{ellipsis? 30140}# #{dots 30185}#))
+ #{tmp 30181}#)
#f)
(@apply
- (lambda (#{dots 6410}# #{e 6411}#)
- (#{gen-syntax 5896}#
- #{src 6359}#
- #{e 6411}#
- #{r 6361}#
- #{maps 6362}#
- (lambda (#{x 6412}#) #f)
- #{mod 6364}#))
- #{tmp 6404}#)
- (let ((#{tmp 6413}#
- ($sc-dispatch #{e 6360}# '(any any . any))))
- (if (if #{tmp 6413}#
+ (lambda (#{dots 30187}# #{e 30188}#)
+ (#{gen-syntax 29705}#
+ #{src 30136}#
+ #{e 30188}#
+ #{r 30138}#
+ #{maps 30139}#
+ (lambda (#{x 30189}#) #f)
+ #{mod 30141}#))
+ #{tmp 30181}#)
+ (let ((#{tmp 30190}#
+ ($sc-dispatch #{e 30137}# '(any any . any))))
+ (if (if #{tmp 30190}#
(@apply
- (lambda (#{x 6417}# #{dots 6418}# #{y 6419}#)
- (#{ellipsis? 6363}# #{dots 6418}#))
- #{tmp 6413}#)
+ (lambda (#{x 30194}# #{dots 30195}# #{y 30196}#)
+ (#{ellipsis? 30140}# #{dots 30195}#))
+ #{tmp 30190}#)
#f)
(@apply
- (lambda (#{x 6420}# #{dots 6421}# #{y 6422}#)
+ (lambda (#{x 30197}# #{dots 30198}# #{y 30199}#)
(letrec*
- ((#{f 6423}#
- (lambda (#{y 6431}# #{k 6432}#)
- (let ((#{tmp 6434}#
+ ((#{f 30200}#
+ (lambda (#{y 30208}# #{k 30209}#)
+ (let ((#{tmp 30211}#
($sc-dispatch
- #{y 6431}#
+ #{y 30208}#
'(any . any))))
- (if (if #{tmp 6434}#
+ (if (if #{tmp 30211}#
(@apply
- (lambda (#{dots 6438}# #{y 6439}#)
- (#{ellipsis? 6363}#
- #{dots 6438}#))
- #{tmp 6434}#)
+ (lambda (#{dots 30215}#
+ #{y 30216}#)
+ (#{ellipsis? 30140}#
+ #{dots 30215}#))
+ #{tmp 30211}#)
#f)
(@apply
- (lambda (#{dots 6440}# #{y 6441}#)
- (#{f 6423}#
- #{y 6441}#
- (lambda (#{maps 6442}#)
+ (lambda (#{dots 30217}# #{y 30218}#)
+ (#{f 30200}#
+ #{y 30218}#
+ (lambda (#{maps 30219}#)
(call-with-values
(lambda ()
- (#{k 6432}#
- (cons '() #{maps 6442}#)))
- (lambda (#{x 6443}#
- #{maps 6444}#)
- (if (null? (car #{maps
6444}#))
+ (#{k 30209}#
+ (cons '() #{maps 30219}#)))
+ (lambda (#{x 30220}#
+ #{maps 30221}#)
+ (if (null? (car #{maps
30221}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 6359}#)
+ #{src 30136}#)
(values
- (let ((#{map-env 6448}#
- (car #{maps
6444}#)))
+ (let ((#{map-env 30225}#
+ (car #{maps
30221}#)))
(list 'apply
'(primitive
append)
- (#{gen-map 5899}#
- #{x 6443}#
- #{map-env
6448}#)))
- (cdr #{maps
6444}#))))))))
- #{tmp 6434}#)
+ (#{gen-map
29708}#
+ #{x 30220}#
+ #{map-env
30225}#)))
+ (cdr #{maps
30221}#))))))))
+ #{tmp 30211}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5896}#
- #{src 6359}#
- #{y 6431}#
- #{r 6361}#
- #{maps 6362}#
- #{ellipsis? 6363}#
- #{mod 6364}#))
- (lambda (#{y 6451}# #{maps 6452}#)
+ (#{gen-syntax 29705}#
+ #{src 30136}#
+ #{y 30208}#
+ #{r 30138}#
+ #{maps 30139}#
+ #{ellipsis? 30140}#
+ #{mod 30141}#))
+ (lambda (#{y 30228}# #{maps 30229}#)
(call-with-values
(lambda ()
- (#{k 6432}# #{maps 6452}#))
- (lambda (#{x 6453}# #{maps 6454}#)
+ (#{k 30209}# #{maps 30229}#))
+ (lambda (#{x 30230}#
+ #{maps 30231}#)
(values
- (if (equal? #{y 6451}# ''())
- #{x 6453}#
+ (if (equal? #{y 30228}# ''())
+ #{x 30230}#
(list 'append
- #{x 6453}#
- #{y 6451}#))
- #{maps 6454}#))))))))))
- (#{f 6423}#
- #{y 6422}#
- (lambda (#{maps 6426}#)
+ #{x 30230}#
+ #{y 30228}#))
+ #{maps 30231}#))))))))))
+ (#{f 30200}#
+ #{y 30199}#
+ (lambda (#{maps 30203}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5896}#
- #{src 6359}#
- #{x 6420}#
- #{r 6361}#
- (cons '() #{maps 6426}#)
- #{ellipsis? 6363}#
- #{mod 6364}#))
- (lambda (#{x 6427}# #{maps 6428}#)
- (if (null? (car #{maps 6428}#))
+ (#{gen-syntax 29705}#
+ #{src 30136}#
+ #{x 30197}#
+ #{r 30138}#
+ (cons '() #{maps 30203}#)
+ #{ellipsis? 30140}#
+ #{mod 30141}#))
+ (lambda (#{x 30204}# #{maps 30205}#)
+ (if (null? (car #{maps 30205}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 6359}#)
+ #{src 30136}#)
(values
- (#{gen-map 5899}#
- #{x 6427}#
- (car #{maps 6428}#))
- (cdr #{maps 6428}#)))))))))
- #{tmp 6413}#)
- (let ((#{tmp 6470}#
- ($sc-dispatch #{e 6360}# '(any . any))))
- (if #{tmp 6470}#
+ (#{gen-map 29708}#
+ #{x 30204}#
+ (car #{maps 30205}#))
+ (cdr #{maps 30205}#)))))))))
+ #{tmp 30190}#)
+ (let ((#{tmp 30247}#
+ ($sc-dispatch #{e 30137}# '(any . any))))
+ (if #{tmp 30247}#
(@apply
- (lambda (#{x 6474}# #{y 6475}#)
+ (lambda (#{x 30251}# #{y 30252}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5896}#
- #{src 6359}#
- #{x 6474}#
- #{r 6361}#
- #{maps 6362}#
- #{ellipsis? 6363}#
- #{mod 6364}#))
- (lambda (#{x 6476}# #{maps 6477}#)
+ (#{gen-syntax 29705}#
+ #{src 30136}#
+ #{x 30251}#
+ #{r 30138}#
+ #{maps 30139}#
+ #{ellipsis? 30140}#
+ #{mod 30141}#))
+ (lambda (#{x 30253}# #{maps 30254}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5896}#
- #{src 6359}#
- #{y 6475}#
- #{r 6361}#
- #{maps 6477}#
- #{ellipsis? 6363}#
- #{mod 6364}#))
- (lambda (#{y 6478}# #{maps 6479}#)
+ (#{gen-syntax 29705}#
+ #{src 30136}#
+ #{y 30252}#
+ #{r 30138}#
+ #{maps 30254}#
+ #{ellipsis? 30140}#
+ #{mod 30141}#))
+ (lambda (#{y 30255}# #{maps 30256}#)
(values
- (let ((#{atom-key 6484}#
- (car #{y 6478}#)))
- (if (eqv? #{atom-key 6484}# 'quote)
- (if (eq? (car #{x 6476}#) 'quote)
+ (let ((#{atom-key 30261}#
+ (car #{y 30255}#)))
+ (if (eqv? #{atom-key 30261}# 'quote)
+ (if (eq? (car #{x 30253}#) 'quote)
(list 'quote
- (cons (car (cdr #{x
6476}#))
- (car (cdr #{y
6478}#))))
- (if (eq? (car (cdr #{y 6478}#))
+ (cons (car (cdr #{x
30253}#))
+ (car (cdr #{y
30255}#))))
+ (if (eq? (car (cdr #{y 30255}#))
'())
- (list 'list #{x 6476}#)
+ (list 'list #{x 30253}#)
(list 'cons
- #{x 6476}#
- #{y 6478}#)))
- (if (eqv? #{atom-key 6484}# 'list)
+ #{x 30253}#
+ #{y 30255}#)))
+ (if (eqv? #{atom-key 30261}#
+ 'list)
(cons 'list
- (cons #{x 6476}#
- (cdr #{y 6478}#)))
+ (cons #{x 30253}#
+ (cdr #{y 30255}#)))
(list 'cons
- #{x 6476}#
- #{y 6478}#))))
- #{maps 6479}#))))))
- #{tmp 6470}#)
- (let ((#{tmp 6513}#
+ #{x 30253}#
+ #{y 30255}#))))
+ #{maps 30256}#))))))
+ #{tmp 30247}#)
+ (let ((#{tmp 30290}#
($sc-dispatch
- #{e 6360}#
+ #{e 30137}#
'#(vector (any . each-any)))))
- (if #{tmp 6513}#
+ (if #{tmp 30290}#
(@apply
- (lambda (#{e1 6517}# #{e2 6518}#)
+ (lambda (#{e1 30294}# #{e2 30295}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5896}#
- #{src 6359}#
- (cons #{e1 6517}# #{e2 6518}#)
- #{r 6361}#
- #{maps 6362}#
- #{ellipsis? 6363}#
- #{mod 6364}#))
- (lambda (#{e 6519}# #{maps 6520}#)
+ (#{gen-syntax 29705}#
+ #{src 30136}#
+ (cons #{e1 30294}# #{e2 30295}#)
+ #{r 30138}#
+ #{maps 30139}#
+ #{ellipsis? 30140}#
+ #{mod 30141}#))
+ (lambda (#{e 30296}# #{maps 30297}#)
(values
- (if (eq? (car #{e 6519}#) 'list)
- (cons 'vector (cdr #{e 6519}#))
- (if (eq? (car #{e 6519}#) 'quote)
+ (if (eq? (car #{e 30296}#) 'list)
+ (cons 'vector (cdr #{e 30296}#))
+ (if (eq? (car #{e 30296}#) 'quote)
(list 'quote
(list->vector
- (car (cdr #{e 6519}#))))
- (list 'list->vector #{e 6519}#)))
- #{maps 6520}#))))
- #{tmp 6513}#)
+ (car (cdr #{e 30296}#))))
+ (list 'list->vector #{e 30296}#)))
+ #{maps 30297}#))))
+ #{tmp 30290}#)
(values
- (list 'quote #{e 6360}#)
- #{maps 6362}#))))))))))))
- (#{gen-ref 5897}#
- (lambda (#{src 6547}#
- #{var 6548}#
- #{level 6549}#
- #{maps 6550}#)
- (if (= #{level 6549}# 0)
- (values #{var 6548}# #{maps 6550}#)
- (if (null? #{maps 6550}#)
+ (list 'quote #{e 30137}#)
+ #{maps 30139}#))))))))))))
+ (#{gen-ref 29706}#
+ (lambda (#{src 30324}#
+ #{var 30325}#
+ #{level 30326}#
+ #{maps 30327}#)
+ (if (= #{level 30326}# 0)
+ (values #{var 30325}# #{maps 30327}#)
+ (if (null? #{maps 30327}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src 6547}#)
+ #{src 30324}#)
(call-with-values
(lambda ()
- (#{gen-ref 5897}#
- #{src 6547}#
- #{var 6548}#
- (#{1-}# #{level 6549}#)
- (cdr #{maps 6550}#)))
- (lambda (#{outer-var 6551}# #{outer-maps 6552}#)
- (let ((#{b 6553}#
- (assq #{outer-var 6551}# (car #{maps 6550}#))))
- (if #{b 6553}#
- (values (cdr #{b 6553}#) #{maps 6550}#)
- (let ((#{inner-var 6555}#
+ (#{gen-ref 29706}#
+ #{src 30324}#
+ #{var 30325}#
+ (#{1-}# #{level 30326}#)
+ (cdr #{maps 30327}#)))
+ (lambda (#{outer-var 30328}# #{outer-maps 30329}#)
+ (let ((#{b 30330}#
+ (assq #{outer-var 30328}# (car #{maps 30327}#))))
+ (if #{b 30330}#
+ (values (cdr #{b 30330}#) #{maps 30327}#)
+ (let ((#{inner-var 30332}#
(gensym
(string-append (symbol->string 'tmp) " "))))
(values
- #{inner-var 6555}#
- (cons (cons (cons #{outer-var 6551}#
- #{inner-var 6555}#)
- (car #{maps 6550}#))
- #{outer-maps 6552}#)))))))))))
- (#{gen-map 5899}#
- (lambda (#{e 6569}# #{map-env 6570}#)
- (let ((#{formals 6571}# (map cdr #{map-env 6570}#))
- (#{actuals 6572}#
- (map (lambda (#{x 6574}#)
- (list 'ref (car #{x 6574}#)))
- #{map-env 6570}#)))
- (if (eq? (car #{e 6569}#) 'ref)
- (car #{actuals 6572}#)
+ #{inner-var 30332}#
+ (cons (cons (cons #{outer-var 30328}#
+ #{inner-var 30332}#)
+ (car #{maps 30327}#))
+ #{outer-maps 30329}#)))))))))))
+ (#{gen-map 29708}#
+ (lambda (#{e 30346}# #{map-env 30347}#)
+ (let ((#{formals 30348}# (map cdr #{map-env 30347}#))
+ (#{actuals 30349}#
+ (map (lambda (#{x 30351}#)
+ (list 'ref (car #{x 30351}#)))
+ #{map-env 30347}#)))
+ (if (eq? (car #{e 30346}#) 'ref)
+ (car #{actuals 30349}#)
(if (and-map
- (lambda (#{x 6575}#)
- (if (eq? (car #{x 6575}#) 'ref)
- (memq (car (cdr #{x 6575}#)) #{formals 6571}#)
+ (lambda (#{x 30352}#)
+ (if (eq? (car #{x 30352}#) 'ref)
+ (memq (car (cdr #{x 30352}#)) #{formals 30348}#)
#f))
- (cdr #{e 6569}#))
+ (cdr #{e 30346}#))
(cons 'map
- (cons (list 'primitive (car #{e 6569}#))
- (map (let ((#{r 6577}#
+ (cons (list 'primitive (car #{e 30346}#))
+ (map (let ((#{r 30354}#
(map cons
- #{formals 6571}#
- #{actuals 6572}#)))
- (lambda (#{x 6578}#)
- (cdr (assq (car (cdr #{x 6578}#))
- #{r 6577}#))))
- (cdr #{e 6569}#))))
+ #{formals 30348}#
+ #{actuals 30349}#)))
+ (lambda (#{x 30355}#)
+ (cdr (assq (car (cdr #{x 30355}#))
+ #{r 30354}#))))
+ (cdr #{e 30346}#))))
(cons 'map
- (cons (list 'lambda #{formals 6571}# #{e 6569}#)
- #{actuals 6572}#)))))))
- (#{regen 5903}#
- (lambda (#{x 6580}#)
- (let ((#{atom-key 6581}# (car #{x 6580}#)))
- (if (eqv? #{atom-key 6581}# 'ref)
- (let ((#{name 6591}# (car (cdr #{x 6580}#)))
- (#{var 6592}# (car (cdr #{x 6580}#))))
+ (cons (list 'lambda #{formals 30348}# #{e 30346}#)
+ #{actuals 30349}#)))))))
+ (#{regen 29712}#
+ (lambda (#{x 30357}#)
+ (let ((#{atom-key 30358}# (car #{x 30357}#)))
+ (if (eqv? #{atom-key 30358}# 'ref)
+ (let ((#{name 30368}# (car (cdr #{x 30357}#)))
+ (#{var 30369}# (car (cdr #{x 30357}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- #{name 6591}#
- #{var 6592}#))
- (if (eqv? #{atom-key 6581}# 'primitive)
- (let ((#{name 6603}# (car (cdr #{x 6580}#))))
+ #{name 30368}#
+ #{var 30369}#))
+ (if (eqv? #{atom-key 30358}# 'primitive)
+ (let ((#{name 30380}# (car (cdr #{x 30357}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 2)
#f
- #{name 6603}#))
- (if (eqv? #{atom-key 6581}# 'quote)
- (let ((#{exp 6614}# (car (cdr #{x 6580}#))))
+ #{name 30380}#))
+ (if (eqv? #{atom-key 30358}# 'quote)
+ (let ((#{exp 30391}# (car (cdr #{x 30357}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{exp 6614}#))
- (if (eqv? #{atom-key 6581}# 'lambda)
- (if (list? (car (cdr #{x 6580}#)))
- (let ((#{req 6625}# (car (cdr #{x 6580}#)))
- (#{vars 6627}# (car (cdr #{x 6580}#)))
- (#{exp 6629}#
- (#{regen 5903}#
- (car (cdr (cdr #{x 6580}#))))))
- (let ((#{body 6634}#
+ #{exp 30391}#))
+ (if (eqv? #{atom-key 30358}# 'lambda)
+ (if (list? (car (cdr #{x 30357}#)))
+ (let ((#{req 30402}# (car (cdr #{x 30357}#)))
+ (#{vars 30404}# (car (cdr #{x 30357}#)))
+ (#{exp 30406}#
+ (#{regen 29712}#
+ (car (cdr (cdr #{x 30357}#))))))
+ (let ((#{body 30411}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
#f
- #{req 6625}#
+ #{req 30402}#
#f
#f
#f
'()
- #{vars 6627}#
- #{exp 6629}#
+ #{vars 30404}#
+ #{exp 30406}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
'()
- #{body 6634}#)))
- (error "how did we get here" #{x 6580}#))
- (let ((#{name 6650}# (car #{x 6580}#))
- (#{args 6651}#
- (map #{regen 5903}# (cdr #{x 6580}#))))
+ #{body 30411}#)))
+ (error "how did we get here" #{x 30357}#))
+ (let ((#{name 30427}# (car #{x 30357}#))
+ (#{args 30428}#
+ (map #{regen 29712}# (cdr #{x 30357}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
- #{name 6650}#
- #{args 6651}#))))))))))
- (lambda (#{e 5904}#
- #{r 5905}#
- #{w 5906}#
- #{s 5907}#
- #{mod 5908}#)
- (let ((#{e 5909}#
- (let ((#{x 6270}#
+ #{name 30427}#
+ #{args 30428}#))))))))))
+ (lambda (#{e 29713}#
+ #{r 29714}#
+ #{w 29715}#
+ #{s 29716}#
+ #{mod 29717}#)
+ (let ((#{e 29718}#
+ (let ((#{x 30047}#
(begin
- (if (if (pair? #{e 5904}#) #{s 5907}# #f)
- (set-source-properties! #{e 5904}# #{s 5907}#))
- #{e 5904}#)))
- (if (if (null? (car #{w 5906}#))
- (null? (cdr #{w 5906}#))
+ (if (if (pair? #{e 29713}#) #{s 29716}# #f)
+ (set-source-properties! #{e 29713}# #{s 29716}#))
+ #{e 29713}#)))
+ (if (if (null? (car #{w 29715}#))
+ (null? (cdr #{w 29715}#))
#f)
- #{x 6270}#
- (if (if (vector? #{x 6270}#)
- (if (= (vector-length #{x 6270}#) 4)
- (eq? (vector-ref #{x 6270}# 0) 'syntax-object)
+ #{x 30047}#
+ (if (if (vector? #{x 30047}#)
+ (if (= (vector-length #{x 30047}#) 4)
+ (eq? (vector-ref #{x 30047}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 6302}# (vector-ref #{x 6270}# 1))
- (#{wrap 6303}#
- (let ((#{w2 6311}# (vector-ref #{x 6270}# 2)))
- (let ((#{m1 6312}# (car #{w 5906}#))
- (#{s1 6313}# (cdr #{w 5906}#)))
- (if (null? #{m1 6312}#)
- (if (null? #{s1 6313}#)
- #{w2 6311}#
- (cons (car #{w2 6311}#)
- (let ((#{m2 6328}#
- (cdr #{w2 6311}#)))
- (if (null? #{m2 6328}#)
- #{s1 6313}#
+ (let ((#{expression 30079}# (vector-ref #{x 30047}# 1))
+ (#{wrap 30080}#
+ (let ((#{w2 30088}#
+ (vector-ref #{x 30047}# 2)))
+ (let ((#{m1 30089}# (car #{w 29715}#))
+ (#{s1 30090}# (cdr #{w 29715}#)))
+ (if (null? #{m1 30089}#)
+ (if (null? #{s1 30090}#)
+ #{w2 30088}#
+ (cons (car #{w2 30088}#)
+ (let ((#{m2 30105}#
+ (cdr #{w2 30088}#)))
+ (if (null? #{m2 30105}#)
+ #{s1 30090}#
(append
- #{s1 6313}#
- #{m2 6328}#)))))
- (cons (let ((#{m2 6336}#
- (car #{w2 6311}#)))
- (if (null? #{m2 6336}#)
- #{m1 6312}#
+ #{s1 30090}#
+ #{m2 30105}#)))))
+ (cons (let ((#{m2 30113}#
+ (car #{w2 30088}#)))
+ (if (null? #{m2 30113}#)
+ #{m1 30089}#
(append
- #{m1 6312}#
- #{m2 6336}#)))
- (let ((#{m2 6344}#
- (cdr #{w2 6311}#)))
- (if (null? #{m2 6344}#)
- #{s1 6313}#
+ #{m1 30089}#
+ #{m2 30113}#)))
+ (let ((#{m2 30121}#
+ (cdr #{w2 30088}#)))
+ (if (null? #{m2 30121}#)
+ #{s1 30090}#
(append
- #{s1 6313}#
- #{m2 6344}#))))))))
- (#{module 6304}# (vector-ref #{x 6270}# 3)))
+ #{s1 30090}#
+ #{m2 30121}#))))))))
+ (#{module 30081}# (vector-ref #{x 30047}# 3)))
(vector
'syntax-object
- #{expression 6302}#
- #{wrap 6303}#
- #{module 6304}#))
- (if (null? #{x 6270}#)
- #{x 6270}#
+ #{expression 30079}#
+ #{wrap 30080}#
+ #{module 30081}#))
+ (if (null? #{x 30047}#)
+ #{x 30047}#
(vector
'syntax-object
- #{x 6270}#
- #{w 5906}#
- #{mod 5908}#)))))))
- (let ((#{tmp 5910}# #{e 5909}#))
- (let ((#{tmp 5911}#
- ($sc-dispatch #{tmp 5910}# '(_ any))))
- (if #{tmp 5911}#
+ #{x 30047}#
+ #{w 29715}#
+ #{mod 29717}#)))))))
+ (let ((#{tmp 29719}# #{e 29718}#))
+ (let ((#{tmp 29720}#
+ ($sc-dispatch #{tmp 29719}# '(_ any))))
+ (if #{tmp 29720}#
(@apply
- (lambda (#{x 5963}#)
+ (lambda (#{x 29768}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5896}#
- #{e 5909}#
- #{x 5963}#
- #{r 5905}#
+ (#{gen-syntax 29705}#
+ #{e 29718}#
+ #{x 29768}#
+ #{r 29714}#
'()
- #{ellipsis? 4451}#
- #{mod 5908}#))
- (lambda (#{e 6046}# #{maps 6047}#)
- (#{regen 5903}# #{e 6046}#))))
- #{tmp 5911}#)
+ #{ellipsis? 28279}#
+ #{mod 29717}#))
+ (lambda (#{e 29845}# #{maps 29846}#)
+ (#{regen 29712}# #{e 29845}#))))
+ #{tmp 29720}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e 5909}#))))))))
- (#{global-extend 4408}#
+ #{e 29718}#))))))))
+ (#{global-extend 28236}#
'core
'lambda
- (lambda (#{e 6887}#
- #{r 6888}#
- #{w 6889}#
- #{s 6890}#
- #{mod 6891}#)
- (let ((#{tmp 6893}#
- ($sc-dispatch #{e 6887}# '(_ any any . each-any))))
- (if #{tmp 6893}#
+ (lambda (#{e 30659}#
+ #{r 30660}#
+ #{w 30661}#
+ #{s 30662}#
+ #{mod 30663}#)
+ (let ((#{tmp 30665}#
+ ($sc-dispatch
+ #{e 30659}#
+ '(_ any any . each-any))))
+ (if #{tmp 30665}#
(@apply
- (lambda (#{args 6897}# #{e1 6898}# #{e2 6899}#)
+ (lambda (#{args 30669}# #{e1 30670}# #{e2 30671}#)
(call-with-values
(lambda ()
- (#{lambda-formals 4452}# #{args 6897}#))
- (lambda (#{req 6902}#
- #{opt 6903}#
- #{rest 6904}#
- #{kw 6905}#)
+ (#{lambda-formals 28280}# #{args 30669}#))
+ (lambda (#{req 30674}#
+ #{opt 30675}#
+ #{rest 30676}#
+ #{kw 30677}#)
(letrec*
- ((#{lp 6906}#
- (lambda (#{body 6909}# #{meta 6910}#)
- (let ((#{tmp 6912}#
+ ((#{lp 30678}#
+ (lambda (#{body 30681}# #{meta 30682}#)
+ (let ((#{tmp 30684}#
($sc-dispatch
- #{body 6909}#
+ #{body 30681}#
'(any any . each-any))))
- (if (if #{tmp 6912}#
+ (if (if #{tmp 30684}#
(@apply
- (lambda (#{docstring 6916}#
- #{e1 6917}#
- #{e2 6918}#)
+ (lambda (#{docstring 30688}#
+ #{e1 30689}#
+ #{e2 30690}#)
(string?
- (syntax->datum #{docstring 6916}#)))
- #{tmp 6912}#)
+ (syntax->datum #{docstring 30688}#)))
+ #{tmp 30684}#)
#f)
(@apply
- (lambda (#{docstring 6919}#
- #{e1 6920}#
- #{e2 6921}#)
- (#{lp 6906}#
- (cons #{e1 6920}# #{e2 6921}#)
+ (lambda (#{docstring 30691}#
+ #{e1 30692}#
+ #{e2 30693}#)
+ (#{lp 30678}#
+ (cons #{e1 30692}# #{e2 30693}#)
(append
- #{meta 6910}#
+ #{meta 30682}#
(list (cons 'documentation
(syntax->datum
- #{docstring 6919}#))))))
- #{tmp 6912}#)
- (let ((#{tmp 6922}#
+ #{docstring 30691}#))))))
+ #{tmp 30684}#)
+ (let ((#{tmp 30694}#
($sc-dispatch
- #{body 6909}#
+ #{body 30681}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 6922}#
+ (if #{tmp 30694}#
(@apply
- (lambda (#{k 6926}#
- #{v 6927}#
- #{e1 6928}#
- #{e2 6929}#)
- (#{lp 6906}#
- (cons #{e1 6928}# #{e2 6929}#)
+ (lambda (#{k 30698}#
+ #{v 30699}#
+ #{e1 30700}#
+ #{e2 30701}#)
+ (#{lp 30678}#
+ (cons #{e1 30700}# #{e2 30701}#)
(append
- #{meta 6910}#
+ #{meta 30682}#
(syntax->datum
(map cons
- #{k 6926}#
- #{v 6927}#)))))
- #{tmp 6922}#)
- (#{expand-simple-lambda 4453}#
- #{e 6887}#
- #{r 6888}#
- #{w 6889}#
- #{s 6890}#
- #{mod 6891}#
- #{req 6902}#
- #{rest 6904}#
- #{meta 6910}#
- #{body 6909}#))))))))
- (#{lp 6906}# (cons #{e1 6898}# #{e2 6899}#) '())))))
- #{tmp 6893}#)
+ #{k 30698}#
+ #{v 30699}#)))))
+ #{tmp 30694}#)
+ (#{expand-simple-lambda 28281}#
+ #{e 30659}#
+ #{r 30660}#
+ #{w 30661}#
+ #{s 30662}#
+ #{mod 30663}#
+ #{req 30674}#
+ #{rest 30676}#
+ #{meta 30682}#
+ #{body 30681}#))))))))
+ (#{lp 30678}#
+ (cons #{e1 30670}# #{e2 30671}#)
+ '())))))
+ #{tmp 30665}#)
(syntax-violation
'lambda
"bad lambda"
- #{e 6887}#)))))
- (#{global-extend 4408}#
+ #{e 30659}#)))))
+ (#{global-extend 28236}#
'core
'lambda*
- (lambda (#{e 7313}#
- #{r 7314}#
- #{w 7315}#
- #{s 7316}#
- #{mod 7317}#)
- (let ((#{tmp 7319}#
- ($sc-dispatch #{e 7313}# '(_ any any . each-any))))
- (if #{tmp 7319}#
+ (lambda (#{e 31081}#
+ #{r 31082}#
+ #{w 31083}#
+ #{s 31084}#
+ #{mod 31085}#)
+ (let ((#{tmp 31087}#
+ ($sc-dispatch
+ #{e 31081}#
+ '(_ any any . each-any))))
+ (if #{tmp 31087}#
(@apply
- (lambda (#{args 7323}# #{e1 7324}# #{e2 7325}#)
+ (lambda (#{args 31091}# #{e1 31092}# #{e2 31093}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4455}#
- #{e 7313}#
- #{r 7314}#
- #{w 7315}#
- #{s 7316}#
- #{mod 7317}#
- #{lambda*-formals 4454}#
- (list (cons #{args 7323}#
- (cons #{e1 7324}# #{e2 7325}#)))))
- (lambda (#{meta 7328}# #{lcase 7329}#)
+ (#{expand-lambda-case 28283}#
+ #{e 31081}#
+ #{r 31082}#
+ #{w 31083}#
+ #{s 31084}#
+ #{mod 31085}#
+ #{lambda*-formals 28282}#
+ (list (cons #{args 31091}#
+ (cons #{e1 31092}# #{e2 31093}#)))))
+ (lambda (#{meta 31096}# #{lcase 31097}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 7316}#
- #{meta 7328}#
- #{lcase 7329}#))))
- #{tmp 7319}#)
+ #{s 31084}#
+ #{meta 31096}#
+ #{lcase 31097}#))))
+ #{tmp 31087}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e 7313}#)))))
- (#{global-extend 4408}#
+ #{e 31081}#)))))
+ (#{global-extend 28236}#
'core
'case-lambda
- (lambda (#{e 7492}#
- #{r 7493}#
- #{w 7494}#
- #{s 7495}#
- #{mod 7496}#)
- (let ((#{tmp 7498}#
+ (lambda (#{e 31260}#
+ #{r 31261}#
+ #{w 31262}#
+ #{s 31263}#
+ #{mod 31264}#)
+ (let ((#{tmp 31266}#
($sc-dispatch
- #{e 7492}#
+ #{e 31260}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 7498}#
+ (if #{tmp 31266}#
(@apply
- (lambda (#{args 7502}#
- #{e1 7503}#
- #{e2 7504}#
- #{args* 7505}#
- #{e1* 7506}#
- #{e2* 7507}#)
+ (lambda (#{args 31270}#
+ #{e1 31271}#
+ #{e2 31272}#
+ #{args* 31273}#
+ #{e1* 31274}#
+ #{e2* 31275}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4455}#
- #{e 7492}#
- #{r 7493}#
- #{w 7494}#
- #{s 7495}#
- #{mod 7496}#
- #{lambda-formals 4452}#
- (cons (cons #{args 7502}#
- (cons #{e1 7503}# #{e2 7504}#))
- (map (lambda (#{tmp 3382 7510}#
- #{tmp 3381 7511}#
- #{tmp 3380 7512}#)
- (cons #{tmp 3380 7512}#
- (cons #{tmp 3381 7511}#
- #{tmp 3382 7510}#)))
- #{e2* 7507}#
- #{e1* 7506}#
- #{args* 7505}#))))
- (lambda (#{meta 7513}# #{lcase 7514}#)
+ (#{expand-lambda-case 28283}#
+ #{e 31260}#
+ #{r 31261}#
+ #{w 31262}#
+ #{s 31263}#
+ #{mod 31264}#
+ #{lambda-formals 28280}#
+ (cons (cons #{args 31270}#
+ (cons #{e1 31271}# #{e2 31272}#))
+ (map (lambda (#{tmp 27210 31278}#
+ #{tmp 27209 31279}#
+ #{tmp 27208 31280}#)
+ (cons #{tmp 27208 31280}#
+ (cons #{tmp 27209 31279}#
+ #{tmp 27210 31278}#)))
+ #{e2* 31275}#
+ #{e1* 31274}#
+ #{args* 31273}#))))
+ (lambda (#{meta 31281}# #{lcase 31282}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 7495}#
- #{meta 7513}#
- #{lcase 7514}#))))
- #{tmp 7498}#)
+ #{s 31263}#
+ #{meta 31281}#
+ #{lcase 31282}#))))
+ #{tmp 31266}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e 7492}#)))))
- (#{global-extend 4408}#
+ #{e 31260}#)))))
+ (#{global-extend 28236}#
'core
'case-lambda*
- (lambda (#{e 7683}#
- #{r 7684}#
- #{w 7685}#
- #{s 7686}#
- #{mod 7687}#)
- (let ((#{tmp 7689}#
+ (lambda (#{e 31451}#
+ #{r 31452}#
+ #{w 31453}#
+ #{s 31454}#
+ #{mod 31455}#)
+ (let ((#{tmp 31457}#
($sc-dispatch
- #{e 7683}#
+ #{e 31451}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 7689}#
+ (if #{tmp 31457}#
(@apply
- (lambda (#{args 7693}#
- #{e1 7694}#
- #{e2 7695}#
- #{args* 7696}#
- #{e1* 7697}#
- #{e2* 7698}#)
+ (lambda (#{args 31461}#
+ #{e1 31462}#
+ #{e2 31463}#
+ #{args* 31464}#
+ #{e1* 31465}#
+ #{e2* 31466}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 4455}#
- #{e 7683}#
- #{r 7684}#
- #{w 7685}#
- #{s 7686}#
- #{mod 7687}#
- #{lambda*-formals 4454}#
- (cons (cons #{args 7693}#
- (cons #{e1 7694}# #{e2 7695}#))
- (map (lambda (#{tmp 3417 7701}#
- #{tmp 3416 7702}#
- #{tmp 3415 7703}#)
- (cons #{tmp 3415 7703}#
- (cons #{tmp 3416 7702}#
- #{tmp 3417 7701}#)))
- #{e2* 7698}#
- #{e1* 7697}#
- #{args* 7696}#))))
- (lambda (#{meta 7704}# #{lcase 7705}#)
+ (#{expand-lambda-case 28283}#
+ #{e 31451}#
+ #{r 31452}#
+ #{w 31453}#
+ #{s 31454}#
+ #{mod 31455}#
+ #{lambda*-formals 28282}#
+ (cons (cons #{args 31461}#
+ (cons #{e1 31462}# #{e2 31463}#))
+ (map (lambda (#{tmp 27245 31469}#
+ #{tmp 27244 31470}#
+ #{tmp 27243 31471}#)
+ (cons #{tmp 27243 31471}#
+ (cons #{tmp 27244 31470}#
+ #{tmp 27245 31469}#)))
+ #{e2* 31466}#
+ #{e1* 31465}#
+ #{args* 31464}#))))
+ (lambda (#{meta 31472}# #{lcase 31473}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 7686}#
- #{meta 7704}#
- #{lcase 7705}#))))
- #{tmp 7689}#)
+ #{s 31454}#
+ #{meta 31472}#
+ #{lcase 31473}#))))
+ #{tmp 31457}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e 7683}#)))))
- (#{global-extend 4408}#
+ #{e 31451}#)))))
+ (#{global-extend 28236}#
'core
'let
(letrec*
- ((#{expand-let 7914}#
- (lambda (#{e 8124}#
- #{r 8125}#
- #{w 8126}#
- #{s 8127}#
- #{mod 8128}#
- #{constructor 8129}#
- #{ids 8130}#
- #{vals 8131}#
- #{exps 8132}#)
- (if (not (#{valid-bound-ids? 4433}# #{ids 8130}#))
+ ((#{expand-let 31681}#
+ (lambda (#{e 31891}#
+ #{r 31892}#
+ #{w 31893}#
+ #{s 31894}#
+ #{mod 31895}#
+ #{constructor 31896}#
+ #{ids 31897}#
+ #{vals 31898}#
+ #{exps 31899}#)
+ (if (not (#{valid-bound-ids? 28261}# #{ids 31897}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e 8124}#)
- (let ((#{labels 8217}#
- (#{gen-labels 4413}# #{ids 8130}#))
- (#{new-vars 8218}#
- (map #{gen-var 4457}# #{ids 8130}#)))
- (let ((#{nw 8219}#
- (#{make-binding-wrap 4424}#
- #{ids 8130}#
- #{labels 8217}#
- #{w 8126}#))
- (#{nr 8220}#
- (#{extend-var-env 4406}#
- #{labels 8217}#
- #{new-vars 8218}#
- #{r 8125}#)))
- (#{constructor 8129}#
- #{s 8127}#
- (map syntax->datum #{ids 8130}#)
- #{new-vars 8218}#
- (map (lambda (#{x 8237}#)
- (#{expand 4443}#
- #{x 8237}#
- #{r 8125}#
- #{w 8126}#
- #{mod 8128}#))
- #{vals 8131}#)
- (#{expand-body 4447}#
- #{exps 8132}#
- (#{source-wrap 4437}#
- #{e 8124}#
- #{nw 8219}#
- #{s 8127}#
- #{mod 8128}#)
- #{nr 8220}#
- #{nw 8219}#
- #{mod 8128}#))))))))
- (lambda (#{e 7915}#
- #{r 7916}#
- #{w 7917}#
- #{s 7918}#
- #{mod 7919}#)
- (let ((#{tmp 7921}#
+ #{e 31891}#)
+ (let ((#{labels 31984}#
+ (#{gen-labels 28241}# #{ids 31897}#))
+ (#{new-vars 31985}#
+ (map #{gen-var 28285}# #{ids 31897}#)))
+ (let ((#{nw 31986}#
+ (#{make-binding-wrap 28252}#
+ #{ids 31897}#
+ #{labels 31984}#
+ #{w 31893}#))
+ (#{nr 31987}#
+ (#{extend-var-env 28234}#
+ #{labels 31984}#
+ #{new-vars 31985}#
+ #{r 31892}#)))
+ (#{constructor 31896}#
+ #{s 31894}#
+ (map syntax->datum #{ids 31897}#)
+ #{new-vars 31985}#
+ (map (lambda (#{x 32004}#)
+ (#{expand 28271}#
+ #{x 32004}#
+ #{r 31892}#
+ #{w 31893}#
+ #{mod 31895}#))
+ #{vals 31898}#)
+ (#{expand-body 28275}#
+ #{exps 31899}#
+ (#{source-wrap 28265}#
+ #{e 31891}#
+ #{nw 31986}#
+ #{s 31894}#
+ #{mod 31895}#)
+ #{nr 31987}#
+ #{nw 31986}#
+ #{mod 31895}#))))))))
+ (lambda (#{e 31682}#
+ #{r 31683}#
+ #{w 31684}#
+ #{s 31685}#
+ #{mod 31686}#)
+ (let ((#{tmp 31688}#
($sc-dispatch
- #{e 7915}#
+ #{e 31682}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 7921}#
+ (if (if #{tmp 31688}#
(@apply
- (lambda (#{id 7925}#
- #{val 7926}#
- #{e1 7927}#
- #{e2 7928}#)
- (and-map #{id? 4410}# #{id 7925}#))
- #{tmp 7921}#)
+ (lambda (#{id 31692}#
+ #{val 31693}#
+ #{e1 31694}#
+ #{e2 31695}#)
+ (and-map #{id? 28238}# #{id 31692}#))
+ #{tmp 31688}#)
#f)
(@apply
- (lambda (#{id 7944}#
- #{val 7945}#
- #{e1 7946}#
- #{e2 7947}#)
- (#{expand-let 7914}#
- #{e 7915}#
- #{r 7916}#
- #{w 7917}#
- #{s 7918}#
- #{mod 7919}#
- (lambda (#{src 7951}#
- #{ids 7952}#
- #{vars 7953}#
- #{val-exps 7954}#
- #{body-exp 7955}#)
+ (lambda (#{id 31711}#
+ #{val 31712}#
+ #{e1 31713}#
+ #{e2 31714}#)
+ (#{expand-let 31681}#
+ #{e 31682}#
+ #{r 31683}#
+ #{w 31684}#
+ #{s 31685}#
+ #{mod 31686}#
+ (lambda (#{src 31718}#
+ #{ids 31719}#
+ #{vars 31720}#
+ #{val-exps 31721}#
+ #{body-exp 31722}#)
(begin
(for-each
- #{maybe-name-value! 4375}#
- #{ids 7952}#
- #{val-exps 7954}#)
- (if (null? #{vars 7953}#)
- #{body-exp 7955}#
+ #{maybe-name-value! 28203}#
+ #{ids 31719}#
+ #{val-exps 31721}#)
+ (if (null? #{vars 31720}#)
+ #{body-exp 31722}#
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 7951}#
- #{ids 7952}#
- #{vars 7953}#
- #{val-exps 7954}#
- #{body-exp 7955}#))))
- #{id 7944}#
- #{val 7945}#
- (cons #{e1 7946}# #{e2 7947}#)))
- #{tmp 7921}#)
- (let ((#{tmp 7962}#
+ #{src 31718}#
+ #{ids 31719}#
+ #{vars 31720}#
+ #{val-exps 31721}#
+ #{body-exp 31722}#))))
+ #{id 31711}#
+ #{val 31712}#
+ (cons #{e1 31713}# #{e2 31714}#)))
+ #{tmp 31688}#)
+ (let ((#{tmp 31729}#
($sc-dispatch
- #{e 7915}#
+ #{e 31682}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 7962}#
+ (if (if #{tmp 31729}#
(@apply
- (lambda (#{f 7966}#
- #{id 7967}#
- #{val 7968}#
- #{e1 7969}#
- #{e2 7970}#)
- (if (if (symbol? #{f 7966}#)
+ (lambda (#{f 31733}#
+ #{id 31734}#
+ #{val 31735}#
+ #{e1 31736}#
+ #{e2 31737}#)
+ (if (if (symbol? #{f 31733}#)
#t
- (if (if (vector? #{f 7966}#)
- (if (= (vector-length #{f 7966}#) 4)
- (eq? (vector-ref #{f 7966}# 0)
+ (if (if (vector? #{f 31733}#)
+ (if (= (vector-length #{f 31733}#) 4)
+ (eq? (vector-ref #{f 31733}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{f 7966}# 1))
+ (symbol? (vector-ref #{f 31733}# 1))
#f))
- (and-map #{id? 4410}# #{id 7967}#)
+ (and-map #{id? 28238}# #{id 31734}#)
#f))
- #{tmp 7962}#)
+ #{tmp 31729}#)
#f)
(@apply
- (lambda (#{f 8012}#
- #{id 8013}#
- #{val 8014}#
- #{e1 8015}#
- #{e2 8016}#)
- (#{expand-let 7914}#
- #{e 7915}#
- #{r 7916}#
- #{w 7917}#
- #{s 7918}#
- #{mod 7919}#
- #{build-named-let 4394}#
- (cons #{f 8012}# #{id 8013}#)
- #{val 8014}#
- (cons #{e1 8015}# #{e2 8016}#)))
- #{tmp 7962}#)
+ (lambda (#{f 31779}#
+ #{id 31780}#
+ #{val 31781}#
+ #{e1 31782}#
+ #{e2 31783}#)
+ (#{expand-let 31681}#
+ #{e 31682}#
+ #{r 31683}#
+ #{w 31684}#
+ #{s 31685}#
+ #{mod 31686}#
+ #{build-named-let 28222}#
+ (cons #{f 31779}# #{id 31780}#)
+ #{val 31781}#
+ (cons #{e1 31782}# #{e2 31783}#)))
+ #{tmp 31729}#)
(syntax-violation
'let
"bad let"
- (let ((#{x 8029}#
+ (let ((#{x 31796}#
(begin
- (if (if (pair? #{e 7915}#) #{s 7918}# #f)
- (set-source-properties! #{e 7915}# #{s 7918}#))
- #{e 7915}#)))
- (if (if (null? (car #{w 7917}#))
- (null? (cdr #{w 7917}#))
+ (if (if (pair? #{e 31682}#) #{s 31685}# #f)
+ (set-source-properties!
+ #{e 31682}#
+ #{s 31685}#))
+ #{e 31682}#)))
+ (if (if (null? (car #{w 31684}#))
+ (null? (cdr #{w 31684}#))
#f)
- #{x 8029}#
- (if (if (vector? #{x 8029}#)
- (if (= (vector-length #{x 8029}#) 4)
- (eq? (vector-ref #{x 8029}# 0) 'syntax-object)
+ #{x 31796}#
+ (if (if (vector? #{x 31796}#)
+ (if (= (vector-length #{x 31796}#) 4)
+ (eq? (vector-ref #{x 31796}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 8061}# (vector-ref #{x 8029}# 1))
- (#{wrap 8062}#
- (let ((#{w2 8070}#
- (vector-ref #{x 8029}# 2)))
- (let ((#{m1 8071}# (car #{w 7917}#))
- (#{s1 8072}# (cdr #{w 7917}#)))
- (if (null? #{m1 8071}#)
- (if (null? #{s1 8072}#)
- #{w2 8070}#
- (cons (car #{w2 8070}#)
- (let ((#{m2 8087}#
- (cdr #{w2 8070}#)))
- (if (null? #{m2 8087}#)
- #{s1 8072}#
+ (let ((#{expression 31828}#
+ (vector-ref #{x 31796}# 1))
+ (#{wrap 31829}#
+ (let ((#{w2 31837}#
+ (vector-ref #{x 31796}# 2)))
+ (let ((#{m1 31838}# (car #{w 31684}#))
+ (#{s1 31839}# (cdr #{w 31684}#)))
+ (if (null? #{m1 31838}#)
+ (if (null? #{s1 31839}#)
+ #{w2 31837}#
+ (cons (car #{w2 31837}#)
+ (let ((#{m2 31854}#
+ (cdr #{w2 31837}#)))
+ (if (null? #{m2 31854}#)
+ #{s1 31839}#
(append
- #{s1 8072}#
- #{m2 8087}#)))))
- (cons (let ((#{m2 8095}#
- (car #{w2 8070}#)))
- (if (null? #{m2 8095}#)
- #{m1 8071}#
+ #{s1 31839}#
+ #{m2 31854}#)))))
+ (cons (let ((#{m2 31862}#
+ (car #{w2 31837}#)))
+ (if (null? #{m2 31862}#)
+ #{m1 31838}#
(append
- #{m1 8071}#
- #{m2 8095}#)))
- (let ((#{m2 8103}#
- (cdr #{w2 8070}#)))
- (if (null? #{m2 8103}#)
- #{s1 8072}#
+ #{m1 31838}#
+ #{m2 31862}#)))
+ (let ((#{m2 31870}#
+ (cdr #{w2 31837}#)))
+ (if (null? #{m2 31870}#)
+ #{s1 31839}#
(append
- #{s1 8072}#
- #{m2 8103}#))))))))
- (#{module 8063}# (vector-ref #{x 8029}# 3)))
+ #{s1 31839}#
+ #{m2 31870}#))))))))
+ (#{module 31830}# (vector-ref #{x 31796}# 3)))
(vector
'syntax-object
- #{expression 8061}#
- #{wrap 8062}#
- #{module 8063}#))
- (if (null? #{x 8029}#)
- #{x 8029}#
+ #{expression 31828}#
+ #{wrap 31829}#
+ #{module 31830}#))
+ (if (null? #{x 31796}#)
+ #{x 31796}#
(vector
'syntax-object
- #{x 8029}#
- #{w 7917}#
- #{mod 7919}#)))))))))))))
- (#{global-extend 4408}#
+ #{x 31796}#
+ #{w 31684}#
+ #{mod 31686}#)))))))))))))
+ (#{global-extend 28236}#
'core
'letrec
- (lambda (#{e 8714}#
- #{r 8715}#
- #{w 8716}#
- #{s 8717}#
- #{mod 8718}#)
- (let ((#{tmp 8720}#
+ (lambda (#{e 32475}#
+ #{r 32476}#
+ #{w 32477}#
+ #{s 32478}#
+ #{mod 32479}#)
+ (let ((#{tmp 32481}#
($sc-dispatch
- #{e 8714}#
+ #{e 32475}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 8720}#
+ (if (if #{tmp 32481}#
(@apply
- (lambda (#{id 8724}#
- #{val 8725}#
- #{e1 8726}#
- #{e2 8727}#)
- (and-map #{id? 4410}# #{id 8724}#))
- #{tmp 8720}#)
+ (lambda (#{id 32485}#
+ #{val 32486}#
+ #{e1 32487}#
+ #{e2 32488}#)
+ (and-map #{id? 28238}# #{id 32485}#))
+ #{tmp 32481}#)
#f)
(@apply
- (lambda (#{id 8743}#
- #{val 8744}#
- #{e1 8745}#
- #{e2 8746}#)
- (if (not (#{valid-bound-ids? 4433}# #{id 8743}#))
+ (lambda (#{id 32504}#
+ #{val 32505}#
+ #{e1 32506}#
+ #{e2 32507}#)
+ (if (not (#{valid-bound-ids? 28261}# #{id 32504}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e 8714}#)
- (let ((#{labels 8843}#
- (#{gen-labels 4413}# #{id 8743}#))
- (#{new-vars 8844}#
- (map #{gen-var 4457}# #{id 8743}#)))
- (let ((#{w 8845}#
- (#{make-binding-wrap 4424}#
- #{id 8743}#
- #{labels 8843}#
- #{w 8716}#))
- (#{r 8846}#
- (#{extend-var-env 4406}#
- #{labels 8843}#
- #{new-vars 8844}#
- #{r 8715}#)))
- (#{build-letrec 4395}#
- #{s 8717}#
+ #{e 32475}#)
+ (let ((#{labels 32604}#
+ (#{gen-labels 28241}# #{id 32504}#))
+ (#{new-vars 32605}#
+ (map #{gen-var 28285}# #{id 32504}#)))
+ (let ((#{w 32606}#
+ (#{make-binding-wrap 28252}#
+ #{id 32504}#
+ #{labels 32604}#
+ #{w 32477}#))
+ (#{r 32607}#
+ (#{extend-var-env 28234}#
+ #{labels 32604}#
+ #{new-vars 32605}#
+ #{r 32476}#)))
+ (#{build-letrec 28223}#
+ #{s 32478}#
#f
- (map syntax->datum #{id 8743}#)
- #{new-vars 8844}#
- (map (lambda (#{x 8925}#)
- (#{expand 4443}#
- #{x 8925}#
- #{r 8846}#
- #{w 8845}#
- #{mod 8718}#))
- #{val 8744}#)
- (#{expand-body 4447}#
- (cons #{e1 8745}# #{e2 8746}#)
- (let ((#{x 8987}#
+ (map syntax->datum #{id 32504}#)
+ #{new-vars 32605}#
+ (map (lambda (#{x 32686}#)
+ (#{expand 28271}#
+ #{x 32686}#
+ #{r 32607}#
+ #{w 32606}#
+ #{mod 32479}#))
+ #{val 32505}#)
+ (#{expand-body 28275}#
+ (cons #{e1 32506}# #{e2 32507}#)
+ (let ((#{x 32748}#
(begin
- (if (if (pair? #{e 8714}#) #{s 8717}# #f)
+ (if (if (pair? #{e 32475}#) #{s 32478}# #f)
(set-source-properties!
- #{e 8714}#
- #{s 8717}#))
- #{e 8714}#)))
- (if (if (null? (car #{w 8845}#))
- (null? (cdr #{w 8845}#))
+ #{e 32475}#
+ #{s 32478}#))
+ #{e 32475}#)))
+ (if (if (null? (car #{w 32606}#))
+ (null? (cdr #{w 32606}#))
#f)
- #{x 8987}#
- (if (if (vector? #{x 8987}#)
- (if (= (vector-length #{x 8987}#) 4)
- (eq? (vector-ref #{x 8987}# 0)
+ #{x 32748}#
+ (if (if (vector? #{x 32748}#)
+ (if (= (vector-length #{x 32748}#) 4)
+ (eq? (vector-ref #{x 32748}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 9019}#
- (vector-ref #{x 8987}# 1))
- (#{wrap 9020}#
- (let ((#{w2 9028}#
- (vector-ref #{x 8987}# 2)))
- (let ((#{m1 9029}# (car #{w 8845}#))
- (#{s1 9030}# (cdr #{w 8845}#)))
- (if (null? #{m1 9029}#)
- (if (null? #{s1 9030}#)
- #{w2 9028}#
- (cons (car #{w2 9028}#)
- (let ((#{m2 9045}#
- (cdr #{w2
9028}#)))
- (if (null? #{m2 9045}#)
- #{s1 9030}#
+ (let ((#{expression 32780}#
+ (vector-ref #{x 32748}# 1))
+ (#{wrap 32781}#
+ (let ((#{w2 32789}#
+ (vector-ref #{x 32748}# 2)))
+ (let ((#{m1 32790}#
+ (car #{w 32606}#))
+ (#{s1 32791}#
+ (cdr #{w 32606}#)))
+ (if (null? #{m1 32790}#)
+ (if (null? #{s1 32791}#)
+ #{w2 32789}#
+ (cons (car #{w2 32789}#)
+ (let ((#{m2 32806}#
+ (cdr #{w2
32789}#)))
+ (if (null? #{m2
32806}#)
+ #{s1 32791}#
(append
- #{s1 9030}#
- #{m2 9045}#)))))
- (cons (let ((#{m2 9053}#
- (car #{w2 9028}#)))
- (if (null? #{m2 9053}#)
- #{m1 9029}#
+ #{s1 32791}#
+ #{m2 32806}#)))))
+ (cons (let ((#{m2 32814}#
+ (car #{w2
32789}#)))
+ (if (null? #{m2 32814}#)
+ #{m1 32790}#
(append
- #{m1 9029}#
- #{m2 9053}#)))
- (let ((#{m2 9061}#
- (cdr #{w2 9028}#)))
- (if (null? #{m2 9061}#)
- #{s1 9030}#
+ #{m1 32790}#
+ #{m2 32814}#)))
+ (let ((#{m2 32822}#
+ (cdr #{w2
32789}#)))
+ (if (null? #{m2 32822}#)
+ #{s1 32791}#
(append
- #{s1 9030}#
- #{m2 9061}#))))))))
- (#{module 9021}#
- (vector-ref #{x 8987}# 3)))
+ #{s1 32791}#
+ #{m2 32822}#))))))))
+ (#{module 32782}#
+ (vector-ref #{x 32748}# 3)))
(vector
'syntax-object
- #{expression 9019}#
- #{wrap 9020}#
- #{module 9021}#))
- (if (null? #{x 8987}#)
- #{x 8987}#
+ #{expression 32780}#
+ #{wrap 32781}#
+ #{module 32782}#))
+ (if (null? #{x 32748}#)
+ #{x 32748}#
(vector
'syntax-object
- #{x 8987}#
- #{w 8845}#
- #{mod 8718}#)))))
- #{r 8846}#
- #{w 8845}#
- #{mod 8718}#))))))
- #{tmp 8720}#)
+ #{x 32748}#
+ #{w 32606}#
+ #{mod 32479}#)))))
+ #{r 32607}#
+ #{w 32606}#
+ #{mod 32479}#))))))
+ #{tmp 32481}#)
(syntax-violation
'letrec
"bad letrec"
- (let ((#{x 9301}#
+ (let ((#{x 33061}#
(begin
- (if (if (pair? #{e 8714}#) #{s 8717}# #f)
- (set-source-properties! #{e 8714}# #{s 8717}#))
- #{e 8714}#)))
- (if (if (null? (car #{w 8716}#))
- (null? (cdr #{w 8716}#))
+ (if (if (pair? #{e 32475}#) #{s 32478}# #f)
+ (set-source-properties! #{e 32475}# #{s 32478}#))
+ #{e 32475}#)))
+ (if (if (null? (car #{w 32477}#))
+ (null? (cdr #{w 32477}#))
#f)
- #{x 9301}#
- (if (if (vector? #{x 9301}#)
- (if (= (vector-length #{x 9301}#) 4)
- (eq? (vector-ref #{x 9301}# 0) 'syntax-object)
+ #{x 33061}#
+ (if (if (vector? #{x 33061}#)
+ (if (= (vector-length #{x 33061}#) 4)
+ (eq? (vector-ref #{x 33061}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 9333}# (vector-ref #{x 9301}# 1))
- (#{wrap 9334}#
- (let ((#{w2 9342}# (vector-ref #{x 9301}# 2)))
- (let ((#{m1 9343}# (car #{w 8716}#))
- (#{s1 9344}# (cdr #{w 8716}#)))
- (if (null? #{m1 9343}#)
- (if (null? #{s1 9344}#)
- #{w2 9342}#
- (cons (car #{w2 9342}#)
- (let ((#{m2 9359}#
- (cdr #{w2 9342}#)))
- (if (null? #{m2 9359}#)
- #{s1 9344}#
+ (let ((#{expression 33093}# (vector-ref #{x 33061}# 1))
+ (#{wrap 33094}#
+ (let ((#{w2 33102}# (vector-ref #{x 33061}# 2)))
+ (let ((#{m1 33103}# (car #{w 32477}#))
+ (#{s1 33104}# (cdr #{w 32477}#)))
+ (if (null? #{m1 33103}#)
+ (if (null? #{s1 33104}#)
+ #{w2 33102}#
+ (cons (car #{w2 33102}#)
+ (let ((#{m2 33119}#
+ (cdr #{w2 33102}#)))
+ (if (null? #{m2 33119}#)
+ #{s1 33104}#
(append
- #{s1 9344}#
- #{m2 9359}#)))))
- (cons (let ((#{m2 9367}# (car #{w2 9342}#)))
- (if (null? #{m2 9367}#)
- #{m1 9343}#
- (append #{m1 9343}# #{m2 9367}#)))
- (let ((#{m2 9375}# (cdr #{w2 9342}#)))
- (if (null? #{m2 9375}#)
- #{s1 9344}#
+ #{s1 33104}#
+ #{m2 33119}#)))))
+ (cons (let ((#{m2 33127}#
+ (car #{w2 33102}#)))
+ (if (null? #{m2 33127}#)
+ #{m1 33103}#
+ (append
+ #{m1 33103}#
+ #{m2 33127}#)))
+ (let ((#{m2 33135}#
+ (cdr #{w2 33102}#)))
+ (if (null? #{m2 33135}#)
+ #{s1 33104}#
(append
- #{s1 9344}#
- #{m2 9375}#))))))))
- (#{module 9335}# (vector-ref #{x 9301}# 3)))
+ #{s1 33104}#
+ #{m2 33135}#))))))))
+ (#{module 33095}# (vector-ref #{x 33061}# 3)))
(vector
'syntax-object
- #{expression 9333}#
- #{wrap 9334}#
- #{module 9335}#))
- (if (null? #{x 9301}#)
- #{x 9301}#
+ #{expression 33093}#
+ #{wrap 33094}#
+ #{module 33095}#))
+ (if (null? #{x 33061}#)
+ #{x 33061}#
(vector
'syntax-object
- #{x 9301}#
- #{w 8716}#
- #{mod 8718}#))))))))))
- (#{global-extend 4408}#
+ #{x 33061}#
+ #{w 32477}#
+ #{mod 32479}#))))))))))
+ (#{global-extend 28236}#
'core
'letrec*
- (lambda (#{e 9526}#
- #{r 9527}#
- #{w 9528}#
- #{s 9529}#
- #{mod 9530}#)
- (let ((#{tmp 9532}#
+ (lambda (#{e 33286}#
+ #{r 33287}#
+ #{w 33288}#
+ #{s 33289}#
+ #{mod 33290}#)
+ (let ((#{tmp 33292}#
($sc-dispatch
- #{e 9526}#
+ #{e 33286}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 9532}#
+ (if (if #{tmp 33292}#
(@apply
- (lambda (#{id 9536}#
- #{val 9537}#
- #{e1 9538}#
- #{e2 9539}#)
- (and-map #{id? 4410}# #{id 9536}#))
- #{tmp 9532}#)
+ (lambda (#{id 33296}#
+ #{val 33297}#
+ #{e1 33298}#
+ #{e2 33299}#)
+ (and-map #{id? 28238}# #{id 33296}#))
+ #{tmp 33292}#)
#f)
(@apply
- (lambda (#{id 9555}#
- #{val 9556}#
- #{e1 9557}#
- #{e2 9558}#)
- (if (not (#{valid-bound-ids? 4433}# #{id 9555}#))
+ (lambda (#{id 33315}#
+ #{val 33316}#
+ #{e1 33317}#
+ #{e2 33318}#)
+ (if (not (#{valid-bound-ids? 28261}# #{id 33315}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e 9526}#)
- (let ((#{labels 9655}#
- (#{gen-labels 4413}# #{id 9555}#))
- (#{new-vars 9656}#
- (map #{gen-var 4457}# #{id 9555}#)))
- (let ((#{w 9657}#
- (#{make-binding-wrap 4424}#
- #{id 9555}#
- #{labels 9655}#
- #{w 9528}#))
- (#{r 9658}#
- (#{extend-var-env 4406}#
- #{labels 9655}#
- #{new-vars 9656}#
- #{r 9527}#)))
- (#{build-letrec 4395}#
- #{s 9529}#
+ #{e 33286}#)
+ (let ((#{labels 33415}#
+ (#{gen-labels 28241}# #{id 33315}#))
+ (#{new-vars 33416}#
+ (map #{gen-var 28285}# #{id 33315}#)))
+ (let ((#{w 33417}#
+ (#{make-binding-wrap 28252}#
+ #{id 33315}#
+ #{labels 33415}#
+ #{w 33288}#))
+ (#{r 33418}#
+ (#{extend-var-env 28234}#
+ #{labels 33415}#
+ #{new-vars 33416}#
+ #{r 33287}#)))
+ (#{build-letrec 28223}#
+ #{s 33289}#
#t
- (map syntax->datum #{id 9555}#)
- #{new-vars 9656}#
- (map (lambda (#{x 9737}#)
- (#{expand 4443}#
- #{x 9737}#
- #{r 9658}#
- #{w 9657}#
- #{mod 9530}#))
- #{val 9556}#)
- (#{expand-body 4447}#
- (cons #{e1 9557}# #{e2 9558}#)
- (let ((#{x 9799}#
+ (map syntax->datum #{id 33315}#)
+ #{new-vars 33416}#
+ (map (lambda (#{x 33497}#)
+ (#{expand 28271}#
+ #{x 33497}#
+ #{r 33418}#
+ #{w 33417}#
+ #{mod 33290}#))
+ #{val 33316}#)
+ (#{expand-body 28275}#
+ (cons #{e1 33317}# #{e2 33318}#)
+ (let ((#{x 33559}#
(begin
- (if (if (pair? #{e 9526}#) #{s 9529}# #f)
+ (if (if (pair? #{e 33286}#) #{s 33289}# #f)
(set-source-properties!
- #{e 9526}#
- #{s 9529}#))
- #{e 9526}#)))
- (if (if (null? (car #{w 9657}#))
- (null? (cdr #{w 9657}#))
+ #{e 33286}#
+ #{s 33289}#))
+ #{e 33286}#)))
+ (if (if (null? (car #{w 33417}#))
+ (null? (cdr #{w 33417}#))
#f)
- #{x 9799}#
- (if (if (vector? #{x 9799}#)
- (if (= (vector-length #{x 9799}#) 4)
- (eq? (vector-ref #{x 9799}# 0)
+ #{x 33559}#
+ (if (if (vector? #{x 33559}#)
+ (if (= (vector-length #{x 33559}#) 4)
+ (eq? (vector-ref #{x 33559}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 9831}#
- (vector-ref #{x 9799}# 1))
- (#{wrap 9832}#
- (let ((#{w2 9840}#
- (vector-ref #{x 9799}# 2)))
- (let ((#{m1 9841}# (car #{w 9657}#))
- (#{s1 9842}# (cdr #{w 9657}#)))
- (if (null? #{m1 9841}#)
- (if (null? #{s1 9842}#)
- #{w2 9840}#
- (cons (car #{w2 9840}#)
- (let ((#{m2 9857}#
- (cdr #{w2
9840}#)))
- (if (null? #{m2 9857}#)
- #{s1 9842}#
+ (let ((#{expression 33591}#
+ (vector-ref #{x 33559}# 1))
+ (#{wrap 33592}#
+ (let ((#{w2 33600}#
+ (vector-ref #{x 33559}# 2)))
+ (let ((#{m1 33601}#
+ (car #{w 33417}#))
+ (#{s1 33602}#
+ (cdr #{w 33417}#)))
+ (if (null? #{m1 33601}#)
+ (if (null? #{s1 33602}#)
+ #{w2 33600}#
+ (cons (car #{w2 33600}#)
+ (let ((#{m2 33617}#
+ (cdr #{w2
33600}#)))
+ (if (null? #{m2
33617}#)
+ #{s1 33602}#
(append
- #{s1 9842}#
- #{m2 9857}#)))))
- (cons (let ((#{m2 9865}#
- (car #{w2 9840}#)))
- (if (null? #{m2 9865}#)
- #{m1 9841}#
+ #{s1 33602}#
+ #{m2 33617}#)))))
+ (cons (let ((#{m2 33625}#
+ (car #{w2
33600}#)))
+ (if (null? #{m2 33625}#)
+ #{m1 33601}#
(append
- #{m1 9841}#
- #{m2 9865}#)))
- (let ((#{m2 9873}#
- (cdr #{w2 9840}#)))
- (if (null? #{m2 9873}#)
- #{s1 9842}#
+ #{m1 33601}#
+ #{m2 33625}#)))
+ (let ((#{m2 33633}#
+ (cdr #{w2
33600}#)))
+ (if (null? #{m2 33633}#)
+ #{s1 33602}#
(append
- #{s1 9842}#
- #{m2 9873}#))))))))
- (#{module 9833}#
- (vector-ref #{x 9799}# 3)))
+ #{s1 33602}#
+ #{m2 33633}#))))))))
+ (#{module 33593}#
+ (vector-ref #{x 33559}# 3)))
(vector
'syntax-object
- #{expression 9831}#
- #{wrap 9832}#
- #{module 9833}#))
- (if (null? #{x 9799}#)
- #{x 9799}#
+ #{expression 33591}#
+ #{wrap 33592}#
+ #{module 33593}#))
+ (if (null? #{x 33559}#)
+ #{x 33559}#
(vector
'syntax-object
- #{x 9799}#
- #{w 9657}#
- #{mod 9530}#)))))
- #{r 9658}#
- #{w 9657}#
- #{mod 9530}#))))))
- #{tmp 9532}#)
+ #{x 33559}#
+ #{w 33417}#
+ #{mod 33290}#)))))
+ #{r 33418}#
+ #{w 33417}#
+ #{mod 33290}#))))))
+ #{tmp 33292}#)
(syntax-violation
'letrec*
"bad letrec*"
- (let ((#{x 10113}#
+ (let ((#{x 33872}#
(begin
- (if (if (pair? #{e 9526}#) #{s 9529}# #f)
- (set-source-properties! #{e 9526}# #{s 9529}#))
- #{e 9526}#)))
- (if (if (null? (car #{w 9528}#))
- (null? (cdr #{w 9528}#))
+ (if (if (pair? #{e 33286}#) #{s 33289}# #f)
+ (set-source-properties! #{e 33286}# #{s 33289}#))
+ #{e 33286}#)))
+ (if (if (null? (car #{w 33288}#))
+ (null? (cdr #{w 33288}#))
#f)
- #{x 10113}#
- (if (if (vector? #{x 10113}#)
- (if (= (vector-length #{x 10113}#) 4)
- (eq? (vector-ref #{x 10113}# 0) 'syntax-object)
+ #{x 33872}#
+ (if (if (vector? #{x 33872}#)
+ (if (= (vector-length #{x 33872}#) 4)
+ (eq? (vector-ref #{x 33872}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 10145}# (vector-ref #{x 10113}# 1))
- (#{wrap 10146}#
- (let ((#{w2 10154}# (vector-ref #{x 10113}# 2)))
- (let ((#{m1 10155}# (car #{w 9528}#))
- (#{s1 10156}# (cdr #{w 9528}#)))
- (if (null? #{m1 10155}#)
- (if (null? #{s1 10156}#)
- #{w2 10154}#
- (cons (car #{w2 10154}#)
- (let ((#{m2 10171}#
- (cdr #{w2 10154}#)))
- (if (null? #{m2 10171}#)
- #{s1 10156}#
+ (let ((#{expression 33904}# (vector-ref #{x 33872}# 1))
+ (#{wrap 33905}#
+ (let ((#{w2 33913}# (vector-ref #{x 33872}# 2)))
+ (let ((#{m1 33914}# (car #{w 33288}#))
+ (#{s1 33915}# (cdr #{w 33288}#)))
+ (if (null? #{m1 33914}#)
+ (if (null? #{s1 33915}#)
+ #{w2 33913}#
+ (cons (car #{w2 33913}#)
+ (let ((#{m2 33930}#
+ (cdr #{w2 33913}#)))
+ (if (null? #{m2 33930}#)
+ #{s1 33915}#
(append
- #{s1 10156}#
- #{m2 10171}#)))))
- (cons (let ((#{m2 10179}#
- (car #{w2 10154}#)))
- (if (null? #{m2 10179}#)
- #{m1 10155}#
+ #{s1 33915}#
+ #{m2 33930}#)))))
+ (cons (let ((#{m2 33938}#
+ (car #{w2 33913}#)))
+ (if (null? #{m2 33938}#)
+ #{m1 33914}#
(append
- #{m1 10155}#
- #{m2 10179}#)))
- (let ((#{m2 10187}#
- (cdr #{w2 10154}#)))
- (if (null? #{m2 10187}#)
- #{s1 10156}#
+ #{m1 33914}#
+ #{m2 33938}#)))
+ (let ((#{m2 33946}#
+ (cdr #{w2 33913}#)))
+ (if (null? #{m2 33946}#)
+ #{s1 33915}#
(append
- #{s1 10156}#
- #{m2 10187}#))))))))
- (#{module 10147}# (vector-ref #{x 10113}# 3)))
+ #{s1 33915}#
+ #{m2 33946}#))))))))
+ (#{module 33906}# (vector-ref #{x 33872}# 3)))
(vector
'syntax-object
- #{expression 10145}#
- #{wrap 10146}#
- #{module 10147}#))
- (if (null? #{x 10113}#)
- #{x 10113}#
+ #{expression 33904}#
+ #{wrap 33905}#
+ #{module 33906}#))
+ (if (null? #{x 33872}#)
+ #{x 33872}#
(vector
'syntax-object
- #{x 10113}#
- #{w 9528}#
- #{mod 9530}#))))))))))
- (#{global-extend 4408}#
+ #{x 33872}#
+ #{w 33288}#
+ #{mod 33290}#))))))))))
+ (#{global-extend 28236}#
'core
'set!
- (lambda (#{e 10350}#
- #{r 10351}#
- #{w 10352}#
- #{s 10353}#
- #{mod 10354}#)
- (let ((#{tmp 10356}#
- ($sc-dispatch #{e 10350}# '(_ any any))))
- (if (if #{tmp 10356}#
+ (lambda (#{e 34105}#
+ #{r 34106}#
+ #{w 34107}#
+ #{s 34108}#
+ #{mod 34109}#)
+ (let ((#{tmp 34111}#
+ ($sc-dispatch #{e 34105}# '(_ any any))))
+ (if (if #{tmp 34111}#
(@apply
- (lambda (#{id 10360}# #{val 10361}#)
- (if (symbol? #{id 10360}#)
+ (lambda (#{id 34115}# #{val 34116}#)
+ (if (symbol? #{id 34115}#)
#t
- (if (if (vector? #{id 10360}#)
- (if (= (vector-length #{id 10360}#) 4)
- (eq? (vector-ref #{id 10360}# 0) 'syntax-object)
+ (if (if (vector? #{id 34115}#)
+ (if (= (vector-length #{id 34115}#) 4)
+ (eq? (vector-ref #{id 34115}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 10360}# 1))
+ (symbol? (vector-ref #{id 34115}# 1))
#f)))
- #{tmp 10356}#)
+ #{tmp 34111}#)
#f)
(@apply
- (lambda (#{id 10388}# #{val 10389}#)
+ (lambda (#{id 34143}# #{val 34144}#)
(call-with-values
(lambda ()
- (#{resolve-identifier 4430}#
- #{id 10388}#
- #{w 10352}#
- #{r 10351}#
- #{mod 10354}#
+ (#{resolve-identifier 28258}#
+ #{id 34143}#
+ #{w 34107}#
+ #{r 34106}#
+ #{mod 34109}#
#t))
- (lambda (#{type 10392}# #{value 10393}# #{id-mod 10394}#)
- (if (eqv? #{type 10392}# 'lexical)
- (#{build-lexical-assignment 4381}#
- #{s 10353}#
- (syntax->datum #{id 10388}#)
- #{value 10393}#
- (#{expand 4443}#
- #{val 10389}#
- #{r 10351}#
- #{w 10352}#
- #{mod 10354}#))
- (if (eqv? #{type 10392}# 'global)
- (#{build-global-assignment 4384}#
- #{s 10353}#
- #{value 10393}#
- (#{expand 4443}#
- #{val 10389}#
- #{r 10351}#
- #{w 10352}#
- #{mod 10354}#)
- #{id-mod 10394}#)
- (if (eqv? #{type 10392}# 'macro)
+ (lambda (#{type 34147}# #{value 34148}# #{id-mod 34149}#)
+ (if (eqv? #{type 34147}# 'lexical)
+ (#{build-lexical-assignment 28209}#
+ #{s 34108}#
+ (syntax->datum #{id 34143}#)
+ #{value 34148}#
+ (#{expand 28271}#
+ #{val 34144}#
+ #{r 34106}#
+ #{w 34107}#
+ #{mod 34109}#))
+ (if (eqv? #{type 34147}# 'global)
+ (#{build-global-assignment 28212}#
+ #{s 34108}#
+ #{value 34148}#
+ (#{expand 28271}#
+ #{val 34144}#
+ #{r 34106}#
+ #{w 34107}#
+ #{mod 34109}#)
+ #{id-mod 34149}#)
+ (if (eqv? #{type 34147}# 'macro)
(if (procedure-property
- #{value 10393}#
+ #{value 34148}#
'variable-transformer)
- (#{expand 4443}#
- (#{expand-macro 4446}#
- #{value 10393}#
- #{e 10350}#
- #{r 10351}#
- #{w 10352}#
- #{s 10353}#
+ (#{expand 28271}#
+ (#{expand-macro 28274}#
+ #{value 34148}#
+ #{e 34105}#
+ #{r 34106}#
+ #{w 34107}#
+ #{s 34108}#
#f
- #{mod 10354}#)
- #{r 10351}#
+ #{mod 34109}#)
+ #{r 34106}#
'(())
- #{mod 10354}#)
+ #{mod 34109}#)
(syntax-violation
'set!
"not a variable transformer"
- (if (if (null? (car #{w 10352}#))
- (null? (cdr #{w 10352}#))
+ (if (if (null? (car #{w 34107}#))
+ (null? (cdr #{w 34107}#))
#f)
- #{e 10350}#
- (if (if (vector? #{e 10350}#)
- (if (= (vector-length #{e 10350}#) 4)
- (eq? (vector-ref #{e 10350}# 0)
+ #{e 34105}#
+ (if (if (vector? #{e 34105}#)
+ (if (= (vector-length #{e 34105}#) 4)
+ (eq? (vector-ref #{e 34105}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 10854}#
- (vector-ref #{e 10350}# 1))
- (#{wrap 10855}#
- (let ((#{w2 10865}#
- (vector-ref #{e 10350}# 2)))
- (let ((#{m1 10866}#
- (car #{w 10352}#))
- (#{s1 10867}#
- (cdr #{w 10352}#)))
- (if (null? #{m1 10866}#)
- (if (null? #{s1 10867}#)
- #{w2 10865}#
- (cons (car #{w2 10865}#)
- (let ((#{m2 10884}#
- (cdr #{w2
10865}#)))
- (if (null? #{m2
10884}#)
- #{s1 10867}#
+ (let ((#{expression 34589}#
+ (vector-ref #{e 34105}# 1))
+ (#{wrap 34590}#
+ (let ((#{w2 34600}#
+ (vector-ref #{e 34105}# 2)))
+ (let ((#{m1 34601}#
+ (car #{w 34107}#))
+ (#{s1 34602}#
+ (cdr #{w 34107}#)))
+ (if (null? #{m1 34601}#)
+ (if (null? #{s1 34602}#)
+ #{w2 34600}#
+ (cons (car #{w2 34600}#)
+ (let ((#{m2 34619}#
+ (cdr #{w2
34600}#)))
+ (if (null? #{m2
34619}#)
+ #{s1 34602}#
(append
- #{s1 10867}#
- #{m2 10884}#)))))
- (cons (let ((#{m2 10892}#
- (car #{w2
10865}#)))
- (if (null? #{m2
10892}#)
- #{m1 10866}#
+ #{s1 34602}#
+ #{m2 34619}#)))))
+ (cons (let ((#{m2 34627}#
+ (car #{w2
34600}#)))
+ (if (null? #{m2
34627}#)
+ #{m1 34601}#
(append
- #{m1 10866}#
- #{m2 10892}#)))
- (let ((#{m2 10900}#
- (cdr #{w2
10865}#)))
- (if (null? #{m2
10900}#)
- #{s1 10867}#
+ #{m1 34601}#
+ #{m2 34627}#)))
+ (let ((#{m2 34635}#
+ (cdr #{w2
34600}#)))
+ (if (null? #{m2
34635}#)
+ #{s1 34602}#
(append
- #{s1 10867}#
- #{m2
10900}#))))))))
- (#{module 10856}#
- (vector-ref #{e 10350}# 3)))
+ #{s1 34602}#
+ #{m2
34635}#))))))))
+ (#{module 34591}#
+ (vector-ref #{e 34105}# 3)))
(vector
'syntax-object
- #{expression 10854}#
- #{wrap 10855}#
- #{module 10856}#))
- (if (null? #{e 10350}#)
- #{e 10350}#
+ #{expression 34589}#
+ #{wrap 34590}#
+ #{module 34591}#))
+ (if (null? #{e 34105}#)
+ #{e 34105}#
(vector
'syntax-object
- #{e 10350}#
- #{w 10352}#
- #{mod 10354}#))))
- (if (if (null? (car #{w 10352}#))
- (null? (cdr #{w 10352}#))
+ #{e 34105}#
+ #{w 34107}#
+ #{mod 34109}#))))
+ (if (if (null? (car #{w 34107}#))
+ (null? (cdr #{w 34107}#))
#f)
- #{id 10388}#
- (if (if (vector? #{id 10388}#)
- (if (= (vector-length #{id 10388}#) 4)
- (eq? (vector-ref #{id 10388}# 0)
+ #{id 34143}#
+ (if (if (vector? #{id 34143}#)
+ (if (= (vector-length #{id 34143}#) 4)
+ (eq? (vector-ref #{id 34143}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 10952}#
- (vector-ref #{id 10388}# 1))
- (#{wrap 10953}#
- (let ((#{w2 10963}#
- (vector-ref #{id 10388}# 2)))
- (let ((#{m1 10964}#
- (car #{w 10352}#))
- (#{s1 10965}#
- (cdr #{w 10352}#)))
- (if (null? #{m1 10964}#)
- (if (null? #{s1 10965}#)
- #{w2 10963}#
- (cons (car #{w2 10963}#)
- (let ((#{m2 10982}#
- (cdr #{w2
10963}#)))
- (if (null? #{m2
10982}#)
- #{s1 10965}#
+ (let ((#{expression 34687}#
+ (vector-ref #{id 34143}# 1))
+ (#{wrap 34688}#
+ (let ((#{w2 34698}#
+ (vector-ref #{id 34143}# 2)))
+ (let ((#{m1 34699}#
+ (car #{w 34107}#))
+ (#{s1 34700}#
+ (cdr #{w 34107}#)))
+ (if (null? #{m1 34699}#)
+ (if (null? #{s1 34700}#)
+ #{w2 34698}#
+ (cons (car #{w2 34698}#)
+ (let ((#{m2 34717}#
+ (cdr #{w2
34698}#)))
+ (if (null? #{m2
34717}#)
+ #{s1 34700}#
(append
- #{s1 10965}#
- #{m2 10982}#)))))
- (cons (let ((#{m2 10990}#
- (car #{w2
10963}#)))
- (if (null? #{m2
10990}#)
- #{m1 10964}#
+ #{s1 34700}#
+ #{m2 34717}#)))))
+ (cons (let ((#{m2 34725}#
+ (car #{w2
34698}#)))
+ (if (null? #{m2
34725}#)
+ #{m1 34699}#
(append
- #{m1 10964}#
- #{m2 10990}#)))
- (let ((#{m2 10998}#
- (cdr #{w2
10963}#)))
- (if (null? #{m2
10998}#)
- #{s1 10965}#
+ #{m1 34699}#
+ #{m2 34725}#)))
+ (let ((#{m2 34733}#
+ (cdr #{w2
34698}#)))
+ (if (null? #{m2
34733}#)
+ #{s1 34700}#
(append
- #{s1 10965}#
- #{m2
10998}#))))))))
- (#{module 10954}#
- (vector-ref #{id 10388}# 3)))
+ #{s1 34700}#
+ #{m2
34733}#))))))))
+ (#{module 34689}#
+ (vector-ref #{id 34143}# 3)))
(vector
'syntax-object
- #{expression 10952}#
- #{wrap 10953}#
- #{module 10954}#))
- (if (null? #{id 10388}#)
- #{id 10388}#
+ #{expression 34687}#
+ #{wrap 34688}#
+ #{module 34689}#))
+ (if (null? #{id 34143}#)
+ #{id 34143}#
(vector
'syntax-object
- #{id 10388}#
- #{w 10352}#
- #{id-mod 10394}#))))))
- (if (eqv? #{type 10392}# 'displaced-lexical)
+ #{id 34143}#
+ #{w 34107}#
+ #{id-mod 34149}#))))))
+ (if (eqv? #{type 34147}# 'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (if (if (null? (car #{w 10352}#))
- (null? (cdr #{w 10352}#))
+ (if (if (null? (car #{w 34107}#))
+ (null? (cdr #{w 34107}#))
#f)
- #{id 10388}#
- (if (if (vector? #{id 10388}#)
- (if (= (vector-length #{id 10388}#) 4)
- (eq? (vector-ref #{id 10388}# 0)
+ #{id 34143}#
+ (if (if (vector? #{id 34143}#)
+ (if (= (vector-length #{id 34143}#) 4)
+ (eq? (vector-ref #{id 34143}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 11053}#
- (vector-ref #{id 10388}# 1))
- (#{wrap 11054}#
- (let ((#{w2 11064}#
- (vector-ref #{id 10388}# 2)))
- (let ((#{m1 11065}#
- (car #{w 10352}#))
- (#{s1 11066}#
- (cdr #{w 10352}#)))
- (if (null? #{m1 11065}#)
- (if (null? #{s1 11066}#)
- #{w2 11064}#
- (cons (car #{w2 11064}#)
- (let ((#{m2 11083}#
- (cdr #{w2
11064}#)))
- (if (null? #{m2
11083}#)
- #{s1 11066}#
+ (let ((#{expression 34788}#
+ (vector-ref #{id 34143}# 1))
+ (#{wrap 34789}#
+ (let ((#{w2 34799}#
+ (vector-ref #{id 34143}# 2)))
+ (let ((#{m1 34800}#
+ (car #{w 34107}#))
+ (#{s1 34801}#
+ (cdr #{w 34107}#)))
+ (if (null? #{m1 34800}#)
+ (if (null? #{s1 34801}#)
+ #{w2 34799}#
+ (cons (car #{w2 34799}#)
+ (let ((#{m2 34818}#
+ (cdr #{w2
34799}#)))
+ (if (null? #{m2
34818}#)
+ #{s1 34801}#
(append
- #{s1 11066}#
- #{m2 11083}#)))))
- (cons (let ((#{m2 11091}#
- (car #{w2
11064}#)))
- (if (null? #{m2
11091}#)
- #{m1 11065}#
+ #{s1 34801}#
+ #{m2 34818}#)))))
+ (cons (let ((#{m2 34826}#
+ (car #{w2
34799}#)))
+ (if (null? #{m2
34826}#)
+ #{m1 34800}#
(append
- #{m1 11065}#
- #{m2 11091}#)))
- (let ((#{m2 11099}#
- (cdr #{w2
11064}#)))
- (if (null? #{m2
11099}#)
- #{s1 11066}#
+ #{m1 34800}#
+ #{m2 34826}#)))
+ (let ((#{m2 34834}#
+ (cdr #{w2
34799}#)))
+ (if (null? #{m2
34834}#)
+ #{s1 34801}#
(append
- #{s1 11066}#
- #{m2
11099}#))))))))
- (#{module 11055}#
- (vector-ref #{id 10388}# 3)))
+ #{s1 34801}#
+ #{m2
34834}#))))))))
+ (#{module 34790}#
+ (vector-ref #{id 34143}# 3)))
(vector
'syntax-object
- #{expression 11053}#
- #{wrap 11054}#
- #{module 11055}#))
- (if (null? #{id 10388}#)
- #{id 10388}#
+ #{expression 34788}#
+ #{wrap 34789}#
+ #{module 34790}#))
+ (if (null? #{id 34143}#)
+ #{id 34143}#
(vector
'syntax-object
- #{id 10388}#
- #{w 10352}#
- #{mod 10354}#)))))
+ #{id 34143}#
+ #{w 34107}#
+ #{mod 34109}#)))))
(syntax-violation
'set!
"bad set!"
- (let ((#{x 11131}#
+ (let ((#{x 34866}#
(begin
- (if (if (pair? #{e 10350}#)
- #{s 10353}#
+ (if (if (pair? #{e 34105}#)
+ #{s 34108}#
#f)
(set-source-properties!
- #{e 10350}#
- #{s 10353}#))
- #{e 10350}#)))
- (if (if (null? (car #{w 10352}#))
- (null? (cdr #{w 10352}#))
+ #{e 34105}#
+ #{s 34108}#))
+ #{e 34105}#)))
+ (if (if (null? (car #{w 34107}#))
+ (null? (cdr #{w 34107}#))
#f)
- #{x 11131}#
- (if (if (vector? #{x 11131}#)
- (if (= (vector-length #{x 11131}#) 4)
- (eq? (vector-ref #{x 11131}# 0)
+ #{x 34866}#
+ (if (if (vector? #{x 34866}#)
+ (if (= (vector-length #{x 34866}#) 4)
+ (eq? (vector-ref #{x 34866}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 11163}#
- (vector-ref #{x 11131}# 1))
- (#{wrap 11164}#
- (let ((#{w2 11172}#
+ (let ((#{expression 34898}#
+ (vector-ref #{x 34866}# 1))
+ (#{wrap 34899}#
+ (let ((#{w2 34907}#
(vector-ref
- #{x 11131}#
+ #{x 34866}#
2)))
- (let ((#{m1 11173}#
- (car #{w 10352}#))
- (#{s1 11174}#
- (cdr #{w 10352}#)))
- (if (null? #{m1 11173}#)
- (if (null? #{s1 11174}#)
- #{w2 11172}#
- (cons (car #{w2 11172}#)
- (let ((#{m2 11189}#
- (cdr #{w2
11172}#)))
- (if (null? #{m2
11189}#)
- #{s1 11174}#
+ (let ((#{m1 34908}#
+ (car #{w 34107}#))
+ (#{s1 34909}#
+ (cdr #{w 34107}#)))
+ (if (null? #{m1 34908}#)
+ (if (null? #{s1 34909}#)
+ #{w2 34907}#
+ (cons (car #{w2 34907}#)
+ (let ((#{m2 34924}#
+ (cdr #{w2
34907}#)))
+ (if (null? #{m2
34924}#)
+ #{s1 34909}#
(append
- #{s1 11174}#
- #{m2
11189}#)))))
- (cons (let ((#{m2 11197}#
- (car #{w2
11172}#)))
- (if (null? #{m2
11197}#)
- #{m1 11173}#
+ #{s1 34909}#
+ #{m2
34924}#)))))
+ (cons (let ((#{m2 34932}#
+ (car #{w2
34907}#)))
+ (if (null? #{m2
34932}#)
+ #{m1 34908}#
(append
- #{m1 11173}#
- #{m2 11197}#)))
- (let ((#{m2 11205}#
- (cdr #{w2
11172}#)))
- (if (null? #{m2
11205}#)
- #{s1 11174}#
+ #{m1 34908}#
+ #{m2 34932}#)))
+ (let ((#{m2 34940}#
+ (cdr #{w2
34907}#)))
+ (if (null? #{m2
34940}#)
+ #{s1 34909}#
(append
- #{s1 11174}#
- #{m2
11205}#))))))))
- (#{module 11165}#
- (vector-ref #{x 11131}# 3)))
+ #{s1 34909}#
+ #{m2
34940}#))))))))
+ (#{module 34900}#
+ (vector-ref #{x 34866}# 3)))
(vector
'syntax-object
- #{expression 11163}#
- #{wrap 11164}#
- #{module 11165}#))
- (if (null? #{x 11131}#)
- #{x 11131}#
+ #{expression 34898}#
+ #{wrap 34899}#
+ #{module 34900}#))
+ (if (null? #{x 34866}#)
+ #{x 34866}#
(vector
'syntax-object
- #{x 11131}#
- #{w 10352}#
- #{mod 10354}#)))))))))))))
- #{tmp 10356}#)
- (let ((#{tmp 11220}#
+ #{x 34866}#
+ #{w 34107}#
+ #{mod 34109}#)))))))))))))
+ #{tmp 34111}#)
+ (let ((#{tmp 34955}#
($sc-dispatch
- #{e 10350}#
+ #{e 34105}#
'(_ (any . each-any) any))))
- (if #{tmp 11220}#
+ (if #{tmp 34955}#
(@apply
- (lambda (#{head 11224}# #{tail 11225}# #{val 11226}#)
+ (lambda (#{head 34959}# #{tail 34960}# #{val 34961}#)
(call-with-values
(lambda ()
- (#{syntax-type 4442}#
- #{head 11224}#
- #{r 10351}#
+ (#{syntax-type 28270}#
+ #{head 34959}#
+ #{r 34106}#
'(())
#f
#f
- #{mod 10354}#
+ #{mod 34109}#
#t))
- (lambda (#{type 11229}#
- #{value 11230}#
- #{ee 11231}#
- #{ww 11232}#
- #{ss 11233}#
- #{modmod 11234}#)
- (if (eqv? #{type 11229}# 'module-ref)
- (let ((#{val 11238}#
- (#{expand 4443}#
- #{val 11226}#
- #{r 10351}#
- #{w 10352}#
- #{mod 10354}#)))
+ (lambda (#{type 34964}#
+ #{value 34965}#
+ #{ee 34966}#
+ #{ww 34967}#
+ #{ss 34968}#
+ #{modmod 34969}#)
+ (if (eqv? #{type 34964}# 'module-ref)
+ (let ((#{val 34973}#
+ (#{expand 28271}#
+ #{val 34961}#
+ #{r 34106}#
+ #{w 34107}#
+ #{mod 34109}#)))
(call-with-values
(lambda ()
- (#{value 11230}#
- (cons #{head 11224}# #{tail 11225}#)
- #{r 10351}#
- #{w 10352}#))
- (lambda (#{e 11239}#
- #{r 11240}#
- #{w 11241}#
- #{s* 11242}#
- #{mod 11243}#)
- (let ((#{tmp 11245}# (list #{e 11239}#)))
+ (#{value 34965}#
+ (cons #{head 34959}# #{tail 34960}#)
+ #{r 34106}#
+ #{w 34107}#))
+ (lambda (#{e 34974}#
+ #{r 34975}#
+ #{w 34976}#
+ #{s* 34977}#
+ #{mod 34978}#)
+ (let ((#{tmp 34980}# (list #{e 34974}#)))
(if (@apply
- (lambda (#{e 11247}#)
- (if (symbol? #{e 11247}#)
+ (lambda (#{e 34982}#)
+ (if (symbol? #{e 34982}#)
#t
- (if (if (vector? #{e 11247}#)
+ (if (if (vector? #{e 34982}#)
(if (= (vector-length
- #{e 11247}#)
+ #{e 34982}#)
4)
(eq? (vector-ref
- #{e 11247}#
+ #{e 34982}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{e 11247}# 1))
+ (vector-ref #{e 34982}# 1))
#f)))
- #{tmp 11245}#)
+ #{tmp 34980}#)
(@apply
- (lambda (#{e 11277}#)
- (#{build-global-assignment 4384}#
- #{s 10353}#
- (syntax->datum #{e 11277}#)
- #{val 11238}#
- #{mod 11243}#))
- #{tmp 11245}#)
+ (lambda (#{e 35012}#)
+ (#{build-global-assignment 28212}#
+ #{s 34108}#
+ (syntax->datum #{e 35012}#)
+ #{val 34973}#
+ #{mod 34978}#))
+ #{tmp 34980}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 11239}#))))))
- (#{build-call 4377}#
- #{s 10353}#
- (#{expand 4443}#
+ #{e 34974}#))))))
+ (#{build-call 28205}#
+ #{s 34108}#
+ (#{expand 28271}#
(list '#(syntax-object
setter
((top)
@@ -11104,25 +11153,25 @@
(top)
(top)
(top))
- #("i3655"
- "i3656"
- "i3657"
- "i3658"
- "i3659"
- "i3660"))
+ #("i27483"
+ "i27484"
+ "i27485"
+ "i27486"
+ "i27487"
+ "i27488"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("i3641" "i3642" "i3643"))
+ #("i27469" "i27470" "i27471"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
#((top) (top) (top) (top) (top))
- #("i3613"
- "i3614"
- "i3615"
- "i3616"
- "i3617"))
+ #("i27441"
+ "i27442"
+ "i27443"
+ "i27444"
+ "i27445"))
#(ribcage
(lambda-var-list
gen-var
@@ -11400,259 +11449,259 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile))
- #{head 11224}#)
- #{r 10351}#
- #{w 10352}#
- #{mod 10354}#)
- (map (lambda (#{e 11606}#)
- (#{expand 4443}#
- #{e 11606}#
- #{r 10351}#
- #{w 10352}#
- #{mod 10354}#))
+ #{head 34959}#)
+ #{r 34106}#
+ #{w 34107}#
+ #{mod 34109}#)
+ (map (lambda (#{e 35325}#)
+ (#{expand 28271}#
+ #{e 35325}#
+ #{r 34106}#
+ #{w 34107}#
+ #{mod 34109}#))
(append
- #{tail 11225}#
- (list #{val 11226}#))))))))
- #{tmp 11220}#)
+ #{tail 34960}#
+ (list #{val 34961}#))))))))
+ #{tmp 34955}#)
(syntax-violation
'set!
"bad set!"
- (let ((#{x 11698}#
+ (let ((#{x 35413}#
(begin
- (if (if (pair? #{e 10350}#) #{s 10353}# #f)
- (set-source-properties! #{e 10350}# #{s 10353}#))
- #{e 10350}#)))
- (if (if (null? (car #{w 10352}#))
- (null? (cdr #{w 10352}#))
+ (if (if (pair? #{e 34105}#) #{s 34108}# #f)
+ (set-source-properties! #{e 34105}# #{s 34108}#))
+ #{e 34105}#)))
+ (if (if (null? (car #{w 34107}#))
+ (null? (cdr #{w 34107}#))
#f)
- #{x 11698}#
- (if (if (vector? #{x 11698}#)
- (if (= (vector-length #{x 11698}#) 4)
- (eq? (vector-ref #{x 11698}# 0) 'syntax-object)
+ #{x 35413}#
+ (if (if (vector? #{x 35413}#)
+ (if (= (vector-length #{x 35413}#) 4)
+ (eq? (vector-ref #{x 35413}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 11730}# (vector-ref #{x 11698}# 1))
- (#{wrap 11731}#
- (let ((#{w2 11739}#
- (vector-ref #{x 11698}# 2)))
- (let ((#{m1 11740}# (car #{w 10352}#))
- (#{s1 11741}# (cdr #{w 10352}#)))
- (if (null? #{m1 11740}#)
- (if (null? #{s1 11741}#)
- #{w2 11739}#
- (cons (car #{w2 11739}#)
- (let ((#{m2 11756}#
- (cdr #{w2 11739}#)))
- (if (null? #{m2 11756}#)
- #{s1 11741}#
+ (let ((#{expression 35445}# (vector-ref #{x 35413}# 1))
+ (#{wrap 35446}#
+ (let ((#{w2 35454}#
+ (vector-ref #{x 35413}# 2)))
+ (let ((#{m1 35455}# (car #{w 34107}#))
+ (#{s1 35456}# (cdr #{w 34107}#)))
+ (if (null? #{m1 35455}#)
+ (if (null? #{s1 35456}#)
+ #{w2 35454}#
+ (cons (car #{w2 35454}#)
+ (let ((#{m2 35471}#
+ (cdr #{w2 35454}#)))
+ (if (null? #{m2 35471}#)
+ #{s1 35456}#
(append
- #{s1 11741}#
- #{m2 11756}#)))))
- (cons (let ((#{m2 11764}#
- (car #{w2 11739}#)))
- (if (null? #{m2 11764}#)
- #{m1 11740}#
+ #{s1 35456}#
+ #{m2 35471}#)))))
+ (cons (let ((#{m2 35479}#
+ (car #{w2 35454}#)))
+ (if (null? #{m2 35479}#)
+ #{m1 35455}#
(append
- #{m1 11740}#
- #{m2 11764}#)))
- (let ((#{m2 11772}#
- (cdr #{w2 11739}#)))
- (if (null? #{m2 11772}#)
- #{s1 11741}#
+ #{m1 35455}#
+ #{m2 35479}#)))
+ (let ((#{m2 35487}#
+ (cdr #{w2 35454}#)))
+ (if (null? #{m2 35487}#)
+ #{s1 35456}#
(append
- #{s1 11741}#
- #{m2 11772}#))))))))
- (#{module 11732}# (vector-ref #{x 11698}# 3)))
+ #{s1 35456}#
+ #{m2 35487}#))))))))
+ (#{module 35447}# (vector-ref #{x 35413}# 3)))
(vector
'syntax-object
- #{expression 11730}#
- #{wrap 11731}#
- #{module 11732}#))
- (if (null? #{x 11698}#)
- #{x 11698}#
+ #{expression 35445}#
+ #{wrap 35446}#
+ #{module 35447}#))
+ (if (null? #{x 35413}#)
+ #{x 35413}#
(vector
'syntax-object
- #{x 11698}#
- #{w 10352}#
- #{mod 10354}#))))))))))))
+ #{x 35413}#
+ #{w 34107}#
+ #{mod 34109}#))))))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (#{e 11803}# #{r 11804}# #{w 11805}#)
- (let ((#{tmp 11807}#
- ($sc-dispatch #{e 11803}# '(_ each-any any))))
- (if (if #{tmp 11807}#
+ (lambda (#{e 35518}# #{r 35519}# #{w 35520}#)
+ (let ((#{tmp 35522}#
+ ($sc-dispatch #{e 35518}# '(_ each-any any))))
+ (if (if #{tmp 35522}#
(@apply
- (lambda (#{mod 11810}# #{id 11811}#)
- (if (and-map #{id? 4410}# #{mod 11810}#)
- (if (symbol? #{id 11811}#)
+ (lambda (#{mod 35525}# #{id 35526}#)
+ (if (and-map #{id? 28238}# #{mod 35525}#)
+ (if (symbol? #{id 35526}#)
#t
- (if (if (vector? #{id 11811}#)
- (if (= (vector-length #{id 11811}#) 4)
- (eq? (vector-ref #{id 11811}# 0)
+ (if (if (vector? #{id 35526}#)
+ (if (= (vector-length #{id 35526}#) 4)
+ (eq? (vector-ref #{id 35526}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 11811}# 1))
+ (symbol? (vector-ref #{id 35526}# 1))
#f))
#f))
- #{tmp 11807}#)
+ #{tmp 35522}#)
#f)
(@apply
- (lambda (#{mod 11851}# #{id 11852}#)
+ (lambda (#{mod 35566}# #{id 35567}#)
(values
- (syntax->datum #{id 11852}#)
- #{r 11804}#
- #{w 11805}#
+ (syntax->datum #{id 35567}#)
+ #{r 35519}#
+ #{w 35520}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -11661,12 +11710,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("i3702" "i3703"))
+ #("i27530" "i27531"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3690" "i3691" "i3692"))
+ #("i27518" "i27519" "i27520"))
#(ribcage
(lambda-var-list
gen-var
@@ -11944,216 +11993,216 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile))
- #{mod 11851}#))))
- #{tmp 11807}#)
+ #{mod 35566}#))))
+ #{tmp 35522}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 11803}#))))))
- (#{global-extend 4408}#
+ #{e 35518}#))))))
+ (#{global-extend 28236}#
'module-ref
'@@
- (lambda (#{e 11956}# #{r 11957}# #{w 11958}#)
+ (lambda (#{e 35667}# #{r 35668}# #{w 35669}#)
(letrec*
- ((#{remodulate 11959}#
- (lambda (#{x 12195}# #{mod 12196}#)
- (if (pair? #{x 12195}#)
- (cons (#{remodulate 11959}#
- (car #{x 12195}#)
- #{mod 12196}#)
- (#{remodulate 11959}#
- (cdr #{x 12195}#)
- #{mod 12196}#))
- (if (if (vector? #{x 12195}#)
- (if (= (vector-length #{x 12195}#) 4)
- (eq? (vector-ref #{x 12195}# 0) 'syntax-object)
+ ((#{remodulate 35670}#
+ (lambda (#{x 35888}# #{mod 35889}#)
+ (if (pair? #{x 35888}#)
+ (cons (#{remodulate 35670}#
+ (car #{x 35888}#)
+ #{mod 35889}#)
+ (#{remodulate 35670}#
+ (cdr #{x 35888}#)
+ #{mod 35889}#))
+ (if (if (vector? #{x 35888}#)
+ (if (= (vector-length #{x 35888}#) 4)
+ (eq? (vector-ref #{x 35888}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 12210}#
- (#{remodulate 11959}#
- (vector-ref #{x 12195}# 1)
- #{mod 12196}#))
- (#{wrap 12211}# (vector-ref #{x 12195}# 2)))
+ (let ((#{expression 35903}#
+ (#{remodulate 35670}#
+ (vector-ref #{x 35888}# 1)
+ #{mod 35889}#))
+ (#{wrap 35904}# (vector-ref #{x 35888}# 2)))
(vector
'syntax-object
- #{expression 12210}#
- #{wrap 12211}#
- #{mod 12196}#))
- (if (vector? #{x 12195}#)
- (let ((#{n 12219}# (vector-length #{x 12195}#)))
- (let ((#{v 12220}# (make-vector #{n 12219}#)))
+ #{expression 35903}#
+ #{wrap 35904}#
+ #{mod 35889}#))
+ (if (vector? #{x 35888}#)
+ (let ((#{n 35912}# (vector-length #{x 35888}#)))
+ (let ((#{v 35913}# (make-vector #{n 35912}#)))
(letrec*
- ((#{loop 12221}#
- (lambda (#{i 12276}#)
- (if (= #{i 12276}# #{n 12219}#)
- #{v 12220}#
+ ((#{loop 35914}#
+ (lambda (#{i 35969}#)
+ (if (= #{i 35969}# #{n 35912}#)
+ #{v 35913}#
(begin
(vector-set!
- #{v 12220}#
- #{i 12276}#
- (#{remodulate 11959}#
- (vector-ref #{x 12195}# #{i 12276}#)
- #{mod 12196}#))
- (#{loop 12221}# (#{1+}# #{i 12276}#)))))))
- (#{loop 12221}# 0))))
- #{x 12195}#))))))
- (let ((#{tmp 11961}#
- ($sc-dispatch #{e 11956}# '(_ each-any any))))
- (if (if #{tmp 11961}#
+ #{v 35913}#
+ #{i 35969}#
+ (#{remodulate 35670}#
+ (vector-ref #{x 35888}# #{i 35969}#)
+ #{mod 35889}#))
+ (#{loop 35914}# (#{1+}# #{i 35969}#)))))))
+ (#{loop 35914}# 0))))
+ #{x 35888}#))))))
+ (let ((#{tmp 35672}#
+ ($sc-dispatch #{e 35667}# '(_ each-any any))))
+ (if (if #{tmp 35672}#
(@apply
- (lambda (#{mod 11965}# #{exp 11966}#)
- (and-map #{id? 4410}# #{mod 11965}#))
- #{tmp 11961}#)
+ (lambda (#{mod 35676}# #{exp 35677}#)
+ (and-map #{id? 28238}# #{mod 35676}#))
+ #{tmp 35672}#)
#f)
(@apply
- (lambda (#{mod 11982}# #{exp 11983}#)
- (let ((#{mod 11984}#
+ (lambda (#{mod 35693}# #{exp 35694}#)
+ (let ((#{mod 35695}#
(syntax->datum
(cons '#(syntax-object
private
@@ -12161,12 +12210,15 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("i3746" "i3747"))
- #(ribcage (remodulate) ((top)) ("i3713"))
+ #("i27574" "i27575"))
+ #(ribcage
+ (remodulate)
+ ((top))
+ ("i27541"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3710" "i3711" "i3712"))
+ #("i27538" "i27539" "i27540"))
#(ribcage
(lambda-var-list
gen-var
@@ -12444,327 +12496,327 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile))
- #{mod 11982}#))))
+ #{mod 35693}#))))
(values
- (#{remodulate 11959}#
- #{exp 11983}#
- #{mod 11984}#)
- #{r 11957}#
- #{w 11958}#
- (#{source-annotation 4404}# #{exp 11983}#)
- #{mod 11984}#)))
- #{tmp 11961}#)
+ (#{remodulate 35670}#
+ #{exp 35694}#
+ #{mod 35695}#)
+ #{r 35668}#
+ #{w 35669}#
+ (#{source-annotation 28232}# #{exp 35694}#)
+ #{mod 35695}#)))
+ #{tmp 35672}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 11956}#))))))
- (#{global-extend 4408}#
+ #{e 35667}#))))))
+ (#{global-extend 28236}#
'core
'if
- (lambda (#{e 12389}#
- #{r 12390}#
- #{w 12391}#
- #{s 12392}#
- #{mod 12393}#)
- (let ((#{tmp 12395}#
- ($sc-dispatch #{e 12389}# '(_ any any))))
- (if #{tmp 12395}#
+ (lambda (#{e 36078}#
+ #{r 36079}#
+ #{w 36080}#
+ #{s 36081}#
+ #{mod 36082}#)
+ (let ((#{tmp 36084}#
+ ($sc-dispatch #{e 36078}# '(_ any any))))
+ (if #{tmp 36084}#
(@apply
- (lambda (#{test 12399}# #{then 12400}#)
- (#{build-conditional 4378}#
- #{s 12392}#
- (#{expand 4443}#
- #{test 12399}#
- #{r 12390}#
- #{w 12391}#
- #{mod 12393}#)
- (#{expand 4443}#
- #{then 12400}#
- #{r 12390}#
- #{w 12391}#
- #{mod 12393}#)
+ (lambda (#{test 36088}# #{then 36089}#)
+ (#{build-conditional 28206}#
+ #{s 36081}#
+ (#{expand 28271}#
+ #{test 36088}#
+ #{r 36079}#
+ #{w 36080}#
+ #{mod 36082}#)
+ (#{expand 28271}#
+ #{then 36089}#
+ #{r 36079}#
+ #{w 36080}#
+ #{mod 36082}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp 12395}#)
- (let ((#{tmp 12661}#
- ($sc-dispatch #{e 12389}# '(_ any any any))))
- (if #{tmp 12661}#
+ #{tmp 36084}#)
+ (let ((#{tmp 36338}#
+ ($sc-dispatch #{e 36078}# '(_ any any any))))
+ (if #{tmp 36338}#
(@apply
- (lambda (#{test 12665}# #{then 12666}# #{else 12667}#)
- (#{build-conditional 4378}#
- #{s 12392}#
- (#{expand 4443}#
- #{test 12665}#
- #{r 12390}#
- #{w 12391}#
- #{mod 12393}#)
- (#{expand 4443}#
- #{then 12666}#
- #{r 12390}#
- #{w 12391}#
- #{mod 12393}#)
- (#{expand 4443}#
- #{else 12667}#
- #{r 12390}#
- #{w 12391}#
- #{mod 12393}#)))
- #{tmp 12661}#)
+ (lambda (#{test 36342}# #{then 36343}# #{else 36344}#)
+ (#{build-conditional 28206}#
+ #{s 36081}#
+ (#{expand 28271}#
+ #{test 36342}#
+ #{r 36079}#
+ #{w 36080}#
+ #{mod 36082}#)
+ (#{expand 28271}#
+ #{then 36343}#
+ #{r 36079}#
+ #{w 36080}#
+ #{mod 36082}#)
+ (#{expand 28271}#
+ #{else 36344}#
+ #{r 36079}#
+ #{w 36080}#
+ #{mod 36082}#)))
+ #{tmp 36338}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 12389}#)))))))
- (#{global-extend 4408}#
+ #{e 36078}#)))))))
+ (#{global-extend 28236}#
'core
'with-fluids
- (lambda (#{e 13126}#
- #{r 13127}#
- #{w 13128}#
- #{s 13129}#
- #{mod 13130}#)
- (let ((#{tmp 13132}#
+ (lambda (#{e 36783}#
+ #{r 36784}#
+ #{w 36785}#
+ #{s 36786}#
+ #{mod 36787}#)
+ (let ((#{tmp 36789}#
($sc-dispatch
- #{e 13126}#
+ #{e 36783}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 13132}#
+ (if #{tmp 36789}#
(@apply
- (lambda (#{fluid 13136}#
- #{val 13137}#
- #{b 13138}#
- #{b* 13139}#)
- (#{build-dynlet 4379}#
- #{s 13129}#
- (map (lambda (#{x 13232}#)
- (#{expand 4443}#
- #{x 13232}#
- #{r 13127}#
- #{w 13128}#
- #{mod 13130}#))
- #{fluid 13136}#)
- (map (lambda (#{x 13314}#)
- (#{expand 4443}#
- #{x 13314}#
- #{r 13127}#
- #{w 13128}#
- #{mod 13130}#))
- #{val 13137}#)
- (#{expand-body 4447}#
- (cons #{b 13138}# #{b* 13139}#)
- (let ((#{x 13407}#
+ (lambda (#{fluid 36793}#
+ #{val 36794}#
+ #{b 36795}#
+ #{b* 36796}#)
+ (#{build-dynlet 28207}#
+ #{s 36786}#
+ (map (lambda (#{x 36885}#)
+ (#{expand 28271}#
+ #{x 36885}#
+ #{r 36784}#
+ #{w 36785}#
+ #{mod 36787}#))
+ #{fluid 36793}#)
+ (map (lambda (#{x 36963}#)
+ (#{expand 28271}#
+ #{x 36963}#
+ #{r 36784}#
+ #{w 36785}#
+ #{mod 36787}#))
+ #{val 36794}#)
+ (#{expand-body 28275}#
+ (cons #{b 36795}# #{b* 36796}#)
+ (let ((#{x 37052}#
(begin
- (if (if (pair? #{e 13126}#) #{s 13129}# #f)
+ (if (if (pair? #{e 36783}#) #{s 36786}# #f)
(set-source-properties!
- #{e 13126}#
- #{s 13129}#))
- #{e 13126}#)))
- (if (if (null? (car #{w 13128}#))
- (null? (cdr #{w 13128}#))
+ #{e 36783}#
+ #{s 36786}#))
+ #{e 36783}#)))
+ (if (if (null? (car #{w 36785}#))
+ (null? (cdr #{w 36785}#))
#f)
- #{x 13407}#
- (if (if (vector? #{x 13407}#)
- (if (= (vector-length #{x 13407}#) 4)
- (eq? (vector-ref #{x 13407}# 0) 'syntax-object)
+ #{x 37052}#
+ (if (if (vector? #{x 37052}#)
+ (if (= (vector-length #{x 37052}#) 4)
+ (eq? (vector-ref #{x 37052}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 13439}#
- (vector-ref #{x 13407}# 1))
- (#{wrap 13440}#
- (let ((#{w2 13448}#
- (vector-ref #{x 13407}# 2)))
- (let ((#{m1 13449}# (car #{w 13128}#))
- (#{s1 13450}# (cdr #{w 13128}#)))
- (if (null? #{m1 13449}#)
- (if (null? #{s1 13450}#)
- #{w2 13448}#
- (cons (car #{w2 13448}#)
- (let ((#{m2 13465}#
- (cdr #{w2 13448}#)))
- (if (null? #{m2 13465}#)
- #{s1 13450}#
+ (let ((#{expression 37084}#
+ (vector-ref #{x 37052}# 1))
+ (#{wrap 37085}#
+ (let ((#{w2 37093}#
+ (vector-ref #{x 37052}# 2)))
+ (let ((#{m1 37094}# (car #{w 36785}#))
+ (#{s1 37095}# (cdr #{w 36785}#)))
+ (if (null? #{m1 37094}#)
+ (if (null? #{s1 37095}#)
+ #{w2 37093}#
+ (cons (car #{w2 37093}#)
+ (let ((#{m2 37110}#
+ (cdr #{w2 37093}#)))
+ (if (null? #{m2 37110}#)
+ #{s1 37095}#
(append
- #{s1 13450}#
- #{m2 13465}#)))))
- (cons (let ((#{m2 13473}#
- (car #{w2 13448}#)))
- (if (null? #{m2 13473}#)
- #{m1 13449}#
+ #{s1 37095}#
+ #{m2 37110}#)))))
+ (cons (let ((#{m2 37118}#
+ (car #{w2 37093}#)))
+ (if (null? #{m2 37118}#)
+ #{m1 37094}#
(append
- #{m1 13449}#
- #{m2 13473}#)))
- (let ((#{m2 13481}#
- (cdr #{w2 13448}#)))
- (if (null? #{m2 13481}#)
- #{s1 13450}#
+ #{m1 37094}#
+ #{m2 37118}#)))
+ (let ((#{m2 37126}#
+ (cdr #{w2 37093}#)))
+ (if (null? #{m2 37126}#)
+ #{s1 37095}#
(append
- #{s1 13450}#
- #{m2 13481}#))))))))
- (#{module 13441}# (vector-ref #{x 13407}# 3)))
+ #{s1 37095}#
+ #{m2 37126}#))))))))
+ (#{module 37086}# (vector-ref #{x 37052}# 3)))
(vector
'syntax-object
- #{expression 13439}#
- #{wrap 13440}#
- #{module 13441}#))
- (if (null? #{x 13407}#)
- #{x 13407}#
+ #{expression 37084}#
+ #{wrap 37085}#
+ #{module 37086}#))
+ (if (null? #{x 37052}#)
+ #{x 37052}#
(vector
'syntax-object
- #{x 13407}#
- #{w 13128}#
- #{mod 13130}#)))))
- #{r 13127}#
- #{w 13128}#
- #{mod 13130}#)))
- #{tmp 13132}#)
+ #{x 37052}#
+ #{w 36785}#
+ #{mod 36787}#)))))
+ #{r 36784}#
+ #{w 36785}#
+ #{mod 36787}#)))
+ #{tmp 36789}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 13126}#)))))
+ #{e 36783}#)))))
(module-define!
(current-module)
'begin
@@ -12794,68 +12846,68 @@
'eval-when
'eval-when
'()))
- (#{global-extend 4408}#
+ (#{global-extend 28236}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern 13785}#
- (lambda (#{pattern 15441}# #{keys 15442}#)
+ ((#{convert-pattern 37426}#
+ (lambda (#{pattern 39048}# #{keys 39049}#)
(letrec*
- ((#{cvt* 15443}#
- (lambda (#{p* 16242}# #{n 16243}# #{ids 16244}#)
- (if (not (pair? #{p* 16242}#))
- (#{cvt 15445}#
- #{p* 16242}#
- #{n 16243}#
- #{ids 16244}#)
+ ((#{cvt* 39050}#
+ (lambda (#{p* 39849}# #{n 39850}# #{ids 39851}#)
+ (if (not (pair? #{p* 39849}#))
+ (#{cvt 39052}#
+ #{p* 39849}#
+ #{n 39850}#
+ #{ids 39851}#)
(call-with-values
(lambda ()
- (#{cvt* 15443}#
- (cdr #{p* 16242}#)
- #{n 16243}#
- #{ids 16244}#))
- (lambda (#{y 16247}# #{ids 16248}#)
+ (#{cvt* 39050}#
+ (cdr #{p* 39849}#)
+ #{n 39850}#
+ #{ids 39851}#))
+ (lambda (#{y 39854}# #{ids 39855}#)
(call-with-values
(lambda ()
- (#{cvt 15445}#
- (car #{p* 16242}#)
- #{n 16243}#
- #{ids 16248}#))
- (lambda (#{x 16251}# #{ids 16252}#)
+ (#{cvt 39052}#
+ (car #{p* 39849}#)
+ #{n 39850}#
+ #{ids 39855}#))
+ (lambda (#{x 39858}# #{ids 39859}#)
(values
- (cons #{x 16251}# #{y 16247}#)
- #{ids 16252}#))))))))
- (#{v-reverse 15444}#
- (lambda (#{x 16253}#)
+ (cons #{x 39858}# #{y 39854}#)
+ #{ids 39859}#))))))))
+ (#{v-reverse 39051}#
+ (lambda (#{x 39860}#)
(letrec*
- ((#{loop 16254}#
- (lambda (#{r 16355}# #{x 16356}#)
- (if (not (pair? #{x 16356}#))
- (values #{r 16355}# #{x 16356}#)
- (#{loop 16254}#
- (cons (car #{x 16356}#) #{r 16355}#)
- (cdr #{x 16356}#))))))
- (#{loop 16254}# '() #{x 16253}#))))
- (#{cvt 15445}#
- (lambda (#{p 15448}# #{n 15449}# #{ids 15450}#)
- (if (if (symbol? #{p 15448}#)
+ ((#{loop 39861}#
+ (lambda (#{r 39962}# #{x 39963}#)
+ (if (not (pair? #{x 39963}#))
+ (values #{r 39962}# #{x 39963}#)
+ (#{loop 39861}#
+ (cons (car #{x 39963}#) #{r 39962}#)
+ (cdr #{x 39963}#))))))
+ (#{loop 39861}# '() #{x 39860}#))))
+ (#{cvt 39052}#
+ (lambda (#{p 39055}# #{n 39056}# #{ids 39057}#)
+ (if (if (symbol? #{p 39055}#)
#t
- (if (if (vector? #{p 15448}#)
- (if (= (vector-length #{p 15448}#) 4)
- (eq? (vector-ref #{p 15448}# 0)
+ (if (if (vector? #{p 39055}#)
+ (if (= (vector-length #{p 39055}#) 4)
+ (eq? (vector-ref #{p 39055}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{p 15448}# 1))
+ (symbol? (vector-ref #{p 39055}# 1))
#f))
- (if (#{bound-id-member? 4435}#
- #{p 15448}#
- #{keys 15442}#)
+ (if (#{bound-id-member? 28263}#
+ #{p 39055}#
+ #{keys 39049}#)
(values
- (vector 'free-id #{p 15448}#)
- #{ids 15450}#)
- (if (#{free-id=? 4431}#
- #{p 15448}#
+ (vector 'free-id #{p 39055}#)
+ #{ids 39057}#)
+ (if (#{free-id=? 28259}#
+ #{p 39055}#
'#(syntax-object
_
((top)
@@ -12863,22 +12915,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3847" "i3848" "i3849"))
+ #("i27675" "i27676" "i27677"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3820" "i3818" "i3816"))
+ ("i27648" "i27646" "i27644"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3814" "i3815"))
+ #("i27642" "i27643"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3810" "i3808" "i3806" "i3804"))
+ ("i27638" "i27636" "i27634" "i27632"))
#(ribcage
(lambda-var-list
gen-var
@@ -13156,182 +13208,182 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile)))
- (values '_ #{ids 15450}#)
+ (values '_ #{ids 39057}#)
(values
'any
- (cons (cons #{p 15448}# #{n 15449}#)
- #{ids 15450}#))))
- (let ((#{tmp 15582}#
- ($sc-dispatch #{p 15448}# '(any any))))
- (if (if #{tmp 15582}#
+ (cons (cons #{p 39055}# #{n 39056}#)
+ #{ids 39057}#))))
+ (let ((#{tmp 39189}#
+ ($sc-dispatch #{p 39055}# '(any any))))
+ (if (if #{tmp 39189}#
(@apply
- (lambda (#{x 15586}# #{dots 15587}#)
- (if (if (if (vector? #{dots 15587}#)
+ (lambda (#{x 39193}# #{dots 39194}#)
+ (if (if (if (vector? #{dots 39194}#)
(if (= (vector-length
- #{dots 15587}#)
+ #{dots 39194}#)
4)
(eq? (vector-ref
- #{dots 15587}#
+ #{dots 39194}#
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{dots 15587}# 1))
+ (symbol? (vector-ref #{dots 39194}# 1))
#f)
- (#{free-id=? 4431}#
- #{dots 15587}#
+ (#{free-id=? 28259}#
+ #{dots 39194}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2338"))
+ #(ribcage #(x) #((top)) #("i26166"))
#(ribcage
(lambda-var-list
gen-var
@@ -13609,192 +13661,192 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile)))
#f))
- #{tmp 15582}#)
+ #{tmp 39189}#)
#f)
(@apply
- (lambda (#{x 15626}# #{dots 15627}#)
+ (lambda (#{x 39233}# #{dots 39234}#)
(call-with-values
(lambda ()
- (#{cvt 15445}#
- #{x 15626}#
- (#{1+}# #{n 15449}#)
- #{ids 15450}#))
- (lambda (#{p 15628}# #{ids 15629}#)
+ (#{cvt 39052}#
+ #{x 39233}#
+ (#{1+}# #{n 39056}#)
+ #{ids 39057}#))
+ (lambda (#{p 39235}# #{ids 39236}#)
(values
- (if (eq? #{p 15628}# 'any)
+ (if (eq? #{p 39235}# 'any)
'each-any
- (vector 'each #{p 15628}#))
- #{ids 15629}#))))
- #{tmp 15582}#)
- (let ((#{tmp 15630}#
- ($sc-dispatch #{p 15448}# '(any any . any))))
- (if (if #{tmp 15630}#
+ (vector 'each #{p 39235}#))
+ #{ids 39236}#))))
+ #{tmp 39189}#)
+ (let ((#{tmp 39237}#
+ ($sc-dispatch #{p 39055}# '(any any . any))))
+ (if (if #{tmp 39237}#
(@apply
- (lambda (#{x 15634}#
- #{dots 15635}#
- #{ys 15636}#)
- (if (if (if (vector? #{dots 15635}#)
+ (lambda (#{x 39241}#
+ #{dots 39242}#
+ #{ys 39243}#)
+ (if (if (if (vector? #{dots 39242}#)
(if (= (vector-length
- #{dots 15635}#)
+ #{dots 39242}#)
4)
(eq? (vector-ref
- #{dots 15635}#
+ #{dots 39242}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{dots 15635}# 1))
+ (vector-ref #{dots 39242}# 1))
#f)
- (#{free-id=? 4431}#
- #{dots 15635}#
+ (#{free-id=? 28259}#
+ #{dots 39242}#
'#(syntax-object
...
((top)
@@ -13803,7 +13855,7 @@
#(ribcage
#(x)
#((top))
- #("i2338"))
+ #("i26166"))
#(ribcage
(lambda-var-list
gen-var
@@ -14081,322 +14133,322 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile)))
#f))
- #{tmp 15630}#)
+ #{tmp 39237}#)
#f)
(@apply
- (lambda (#{x 15675}#
- #{dots 15676}#
- #{ys 15677}#)
+ (lambda (#{x 39282}#
+ #{dots 39283}#
+ #{ys 39284}#)
(call-with-values
(lambda ()
- (#{cvt* 15443}#
- #{ys 15677}#
- #{n 15449}#
- #{ids 15450}#))
- (lambda (#{ys 16162}# #{ids 16163}#)
+ (#{cvt* 39050}#
+ #{ys 39284}#
+ #{n 39056}#
+ #{ids 39057}#))
+ (lambda (#{ys 39769}# #{ids 39770}#)
(call-with-values
(lambda ()
- (#{cvt 15445}#
- #{x 15675}#
- (#{1+}# #{n 15449}#)
- #{ids 16163}#))
- (lambda (#{x 16164}# #{ids 16165}#)
+ (#{cvt 39052}#
+ #{x 39282}#
+ (#{1+}# #{n 39056}#)
+ #{ids 39770}#))
+ (lambda (#{x 39771}# #{ids 39772}#)
(call-with-values
(lambda ()
- (#{v-reverse 15444}#
- #{ys 16162}#))
- (lambda (#{ys 16201}# #{e 16202}#)
+ (#{v-reverse 39051}#
+ #{ys 39769}#))
+ (lambda (#{ys 39808}# #{e 39809}#)
(values
(vector
'each+
- #{x 16164}#
- #{ys 16201}#
- #{e 16202}#)
- #{ids 16165}#))))))))
- #{tmp 15630}#)
- (let ((#{tmp 16203}#
- ($sc-dispatch #{p 15448}# '(any . any))))
- (if #{tmp 16203}#
+ #{x 39771}#
+ #{ys 39808}#
+ #{e 39809}#)
+ #{ids 39772}#))))))))
+ #{tmp 39237}#)
+ (let ((#{tmp 39810}#
+ ($sc-dispatch #{p 39055}# '(any . any))))
+ (if #{tmp 39810}#
(@apply
- (lambda (#{x 16207}# #{y 16208}#)
+ (lambda (#{x 39814}# #{y 39815}#)
(call-with-values
(lambda ()
- (#{cvt 15445}#
- #{y 16208}#
- #{n 15449}#
- #{ids 15450}#))
- (lambda (#{y 16209}# #{ids 16210}#)
+ (#{cvt 39052}#
+ #{y 39815}#
+ #{n 39056}#
+ #{ids 39057}#))
+ (lambda (#{y 39816}# #{ids 39817}#)
(call-with-values
(lambda ()
- (#{cvt 15445}#
- #{x 16207}#
- #{n 15449}#
- #{ids 16210}#))
- (lambda (#{x 16211}# #{ids 16212}#)
+ (#{cvt 39052}#
+ #{x 39814}#
+ #{n 39056}#
+ #{ids 39817}#))
+ (lambda (#{x 39818}# #{ids 39819}#)
(values
- (cons #{x 16211}# #{y 16209}#)
- #{ids 16212}#))))))
- #{tmp 16203}#)
- (let ((#{tmp 16213}#
- ($sc-dispatch #{p 15448}# '())))
- (if #{tmp 16213}#
+ (cons #{x 39818}# #{y 39816}#)
+ #{ids 39819}#))))))
+ #{tmp 39810}#)
+ (let ((#{tmp 39820}#
+ ($sc-dispatch #{p 39055}# '())))
+ (if #{tmp 39820}#
(@apply
- (lambda () (values '() #{ids 15450}#))
- #{tmp 16213}#)
- (let ((#{tmp 16217}#
+ (lambda () (values '() #{ids 39057}#))
+ #{tmp 39820}#)
+ (let ((#{tmp 39824}#
($sc-dispatch
- #{p 15448}#
+ #{p 39055}#
'#(vector each-any))))
- (if #{tmp 16217}#
+ (if #{tmp 39824}#
(@apply
- (lambda (#{x 16221}#)
+ (lambda (#{x 39828}#)
(call-with-values
(lambda ()
- (#{cvt 15445}#
- #{x 16221}#
- #{n 15449}#
- #{ids 15450}#))
- (lambda (#{p 16222}#
- #{ids 16223}#)
+ (#{cvt 39052}#
+ #{x 39828}#
+ #{n 39056}#
+ #{ids 39057}#))
+ (lambda (#{p 39829}#
+ #{ids 39830}#)
(values
(vector
'vector
- #{p 16222}#)
- #{ids 16223}#))))
- #{tmp 16217}#)
+ #{p 39829}#)
+ #{ids 39830}#))))
+ #{tmp 39824}#)
(values
(vector
'atom
- (#{strip 4456}#
- #{p 15448}#
+ (#{strip 28284}#
+ #{p 39055}#
'(())))
- #{ids 15450}#)))))))))))))))
- (#{cvt 15445}# #{pattern 15441}# 0 '()))))
- (#{build-dispatch-call 13786}#
- (lambda (#{pvars 16357}#
- #{exp 16358}#
- #{y 16359}#
- #{r 16360}#
- #{mod 16361}#)
- (let ((#{ids 16362}# (map car #{pvars 16357}#)))
+ #{ids 39057}#)))))))))))))))
+ (#{cvt 39052}# #{pattern 39048}# 0 '()))))
+ (#{build-dispatch-call 37427}#
+ (lambda (#{pvars 39964}#
+ #{exp 39965}#
+ #{y 39966}#
+ #{r 39967}#
+ #{mod 39968}#)
+ (let ((#{ids 39969}# (map car #{pvars 39964}#)))
(begin
- (map cdr #{pvars 16357}#)
- (let ((#{labels 16364}#
- (#{gen-labels 4413}# #{ids 16362}#))
- (#{new-vars 16365}#
- (map #{gen-var 4457}# #{ids 16362}#)))
- (#{build-primcall 4389}#
+ (map cdr #{pvars 39964}#)
+ (let ((#{labels 39971}#
+ (#{gen-labels 28241}# #{ids 39969}#))
+ (#{new-vars 39972}#
+ (map #{gen-var 28285}# #{ids 39969}#)))
+ (#{build-primcall 28217}#
#f
'apply
- (list (#{build-simple-lambda 4386}#
+ (list (#{build-simple-lambda 28214}#
#f
- (map syntax->datum #{ids 16362}#)
+ (map syntax->datum #{ids 39969}#)
#f
- #{new-vars 16365}#
+ #{new-vars 39972}#
'()
- (#{expand 4443}#
- #{exp 16358}#
- (#{extend-env 4405}#
- #{labels 16364}#
- (map (lambda (#{var 16697}# #{level 16698}#)
+ (#{expand 28271}#
+ #{exp 39965}#
+ (#{extend-env 28233}#
+ #{labels 39971}#
+ (map (lambda (#{var 40304}# #{level 40305}#)
(cons 'syntax
- (cons #{var 16697}#
- #{level 16698}#)))
- #{new-vars 16365}#
- (map cdr #{pvars 16357}#))
- #{r 16360}#)
- (#{make-binding-wrap 4424}#
- #{ids 16362}#
- #{labels 16364}#
+ (cons #{var 40304}#
+ #{level 40305}#)))
+ #{new-vars 39972}#
+ (map cdr #{pvars 39964}#))
+ #{r 39967}#)
+ (#{make-binding-wrap 28252}#
+ #{ids 39969}#
+ #{labels 39971}#
'(()))
- #{mod 16361}#))
- #{y 16359}#)))))))
- (#{gen-clause 13787}#
- (lambda (#{x 15035}#
- #{keys 15036}#
- #{clauses 15037}#
- #{r 15038}#
- #{pat 15039}#
- #{fender 15040}#
- #{exp 15041}#
- #{mod 15042}#)
+ #{mod 39968}#))
+ #{y 39966}#)))))))
+ (#{gen-clause 37428}#
+ (lambda (#{x 38632}#
+ #{keys 38633}#
+ #{clauses 38634}#
+ #{r 38635}#
+ #{pat 38636}#
+ #{fender 38637}#
+ #{exp 38638}#
+ #{mod 38639}#)
(call-with-values
(lambda ()
- (#{convert-pattern 13785}#
- #{pat 15039}#
- #{keys 15036}#))
- (lambda (#{p 15180}# #{pvars 15181}#)
- (if (not (#{distinct-bound-ids? 4434}#
- (map car #{pvars 15181}#)))
+ (#{convert-pattern 37426}#
+ #{pat 38636}#
+ #{keys 38633}#))
+ (lambda (#{p 38777}# #{pvars 38778}#)
+ (if (not (#{distinct-bound-ids? 28262}#
+ (map car #{pvars 38778}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat 15039}#)
+ #{pat 38636}#)
(if (not (and-map
- (lambda (#{x 15290}#)
- (not (let ((#{x 15294}# (car #{x 15290}#)))
- (if (if (if (vector? #{x 15294}#)
+ (lambda (#{x 38887}#)
+ (not (let ((#{x 38891}# (car #{x 38887}#)))
+ (if (if (if (vector? #{x 38891}#)
(if (= (vector-length
- #{x 15294}#)
+ #{x 38891}#)
4)
(eq? (vector-ref
- #{x 15294}#
+ #{x 38891}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x 15294}# 1))
+ (vector-ref #{x 38891}# 1))
#f)
- (#{free-id=? 4431}#
- #{x 15294}#
+ (#{free-id=? 28259}#
+ #{x 38891}#
'#(syntax-object
...
((top)
@@ -14405,7 +14457,7 @@
#(ribcage
#(x)
#((top))
- #("i2338"))
+ #("i26166"))
#(ribcage
(lambda-var-list
gen-var
@@ -14683,190 +14735,190 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile)))
#f))))
- #{pvars 15181}#))
+ #{pvars 38778}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat 15039}#)
- (let ((#{y 15319}#
+ #{pat 38636}#)
+ (let ((#{y 38916}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (let ((#{fun-exp 15324}#
- (let ((#{req 15333}# (list 'tmp))
- (#{vars 15335}# (list #{y 15319}#))
- (#{exp 15337}#
- (let ((#{y 15366}#
+ (let ((#{fun-exp 38921}#
+ (let ((#{req 38930}# (list 'tmp))
+ (#{vars 38932}# (list #{y 38916}#))
+ (#{exp 38934}#
+ (let ((#{y 38963}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
3)
#f
'tmp
- #{y 15319}#)))
- (let ((#{test-exp 15370}#
- (let ((#{tmp 15379}#
+ #{y 38916}#)))
+ (let ((#{test-exp 38967}#
+ (let ((#{tmp 38976}#
($sc-dispatch
- #{fender 15040}#
+ #{fender 38637}#
'#(atom #t))))
- (if #{tmp 15379}#
+ (if #{tmp 38976}#
(@apply
- (lambda () #{y 15366}#)
- #{tmp 15379}#)
- (let ((#{then-exp 15397}#
-
(#{build-dispatch-call 13786}#
- #{pvars 15181}#
- #{fender 15040}#
- #{y 15366}#
- #{r 15038}#
- #{mod 15042}#))
- (#{else-exp 15398}#
+ (lambda () #{y 38963}#)
+ #{tmp 38976}#)
+ (let ((#{then-exp 38994}#
+
(#{build-dispatch-call 37427}#
+ #{pvars 38778}#
+ #{fender 38637}#
+ #{y 38963}#
+ #{r 38635}#
+ #{mod 38639}#))
+ (#{else-exp 38995}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
@@ -14878,81 +14930,81 @@
%expanded-vtables
10)
#f
- #{y 15366}#
- #{then-exp 15397}#
- #{else-exp
15398}#)))))
- (#{then-exp 15371}#
- (#{build-dispatch-call 13786}#
- #{pvars 15181}#
- #{exp 15041}#
- #{y 15366}#
- #{r 15038}#
- #{mod 15042}#))
- (#{else-exp 15372}#
- (#{gen-syntax-case 13788}#
- #{x 15035}#
- #{keys 15036}#
- #{clauses 15037}#
- #{r 15038}#
- #{mod 15042}#)))
+ #{y 38963}#
+ #{then-exp 38994}#
+ #{else-exp
38995}#)))))
+ (#{then-exp 38968}#
+ (#{build-dispatch-call 37427}#
+ #{pvars 38778}#
+ #{exp 38638}#
+ #{y 38963}#
+ #{r 38635}#
+ #{mod 38639}#))
+ (#{else-exp 38969}#
+ (#{gen-syntax-case 37429}#
+ #{x 38632}#
+ #{keys 38633}#
+ #{clauses 38634}#
+ #{r 38635}#
+ #{mod 38639}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
#f
- #{test-exp 15370}#
- #{then-exp 15371}#
- #{else-exp 15372}#)))))
- (let ((#{body 15342}#
+ #{test-exp 38967}#
+ #{then-exp 38968}#
+ #{else-exp 38969}#)))))
+ (let ((#{body 38939}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
#f
- #{req 15333}#
+ #{req 38930}#
#f
#f
#f
'()
- #{vars 15335}#
- #{exp 15337}#
+ #{vars 38932}#
+ #{exp 38934}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
'()
- #{body 15342}#))))
- (#{arg-exps 15325}#
- (list (if (eq? #{p 15180}# 'any)
- (let ((#{args 15420}#
- (list #{x 15035}#)))
+ #{body 38939}#))))
+ (#{arg-exps 38922}#
+ (list (if (eq? #{p 38777}# 'any)
+ (let ((#{args 39027}#
+ (list #{x 38632}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'list
- #{args 15420}#))
- (let ((#{args 15429}#
- (list #{x 15035}#
+ #{args 39027}#))
+ (let ((#{args 39036}#
+ (list #{x 38632}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- #{p 15180}#))))
+ #{p 38777}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'$sc-dispatch
- #{args 15429}#))))))
+ #{args 39036}#))))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 15324}#
- #{arg-exps 15325}#)))))))))
- (#{gen-syntax-case 13788}#
- (lambda (#{x 14532}#
- #{keys 14533}#
- #{clauses 14534}#
- #{r 14535}#
- #{mod 14536}#)
- (if (null? #{clauses 14534}#)
- (let ((#{args 14542}#
+ #{fun-exp 38921}#
+ #{arg-exps 38922}#)))))))))
+ (#{gen-syntax-case 37429}#
+ (lambda (#{x 38133}#
+ #{keys 38134}#
+ #{clauses 38135}#
+ #{r 38136}#
+ #{mod 38137}#)
+ (if (null? #{clauses 38135}#)
+ (let ((#{args 38143}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -14961,57 +15013,60 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- #{x 14532}#)))
+ #{x 38133}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'syntax-violation
- #{args 14542}#))
- (let ((#{tmp 14561}# (car #{clauses 14534}#)))
- (let ((#{tmp 14562}#
- ($sc-dispatch #{tmp 14561}# '(any any))))
- (if #{tmp 14562}#
+ #{args 38143}#))
+ (let ((#{tmp 38162}# (car #{clauses 38135}#)))
+ (let ((#{tmp 38163}#
+ ($sc-dispatch #{tmp 38162}# '(any any))))
+ (if #{tmp 38163}#
(@apply
- (lambda (#{pat 14564}# #{exp 14565}#)
- (if (if (if (symbol? #{pat 14564}#)
+ (lambda (#{pat 38165}# #{exp 38166}#)
+ (if (if (if (symbol? #{pat 38165}#)
#t
- (if (if (vector? #{pat 14564}#)
- (if (= (vector-length #{pat 14564}#)
+ (if (if (vector? #{pat 38165}#)
+ (if (= (vector-length #{pat 38165}#)
4)
- (eq? (vector-ref #{pat 14564}# 0)
+ (eq? (vector-ref #{pat 38165}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{pat 14564}# 1))
+ (symbol? (vector-ref #{pat 38165}# 1))
#f))
(and-map
- (lambda (#{x 14592}#)
- (not (#{free-id=? 4431}#
- #{pat 14564}#
- #{x 14592}#)))
+ (lambda (#{x 38193}#)
+ (not (#{free-id=? 28259}#
+ #{pat 38165}#
+ #{x 38193}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i4007" "i4008"))
+ #("i27835" "i27836"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3997"
- "i3998"
- "i3999"
- "i4000"
- "i4001"))
+ #("i27825"
+ "i27826"
+ "i27827"
+ "i27828"
+ "i27829"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3810" "i3808" "i3806" "i3804"))
+ ("i27638"
+ "i27636"
+ "i27634"
+ "i27632"))
#(ribcage
(lambda-var-list
gen-var
@@ -15289,178 +15344,178 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile))
- #{keys 14533}#))
+ #{keys 38134}#))
#f)
- (if (#{free-id=? 4431}#
+ (if (#{free-id=? 28259}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i4007" "i4008"))
+ #("i27835" "i27836"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3997"
- "i3998"
- "i3999"
- "i4000"
- "i4001"))
+ #("i27825"
+ "i27826"
+ "i27827"
+ "i27828"
+ "i27829"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3810" "i3808" "i3806" "i3804"))
+ ("i27638" "i27636" "i27634" "i27632"))
#(ribcage
(lambda-var-list
gen-var
@@ -15738,150 +15793,150 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile))
'#(syntax-object
@@ -15890,23 +15945,23 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i4007" "i4008"))
+ #("i27835" "i27836"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3997"
- "i3998"
- "i3999"
- "i4000"
- "i4001"))
+ #("i27825"
+ "i27826"
+ "i27827"
+ "i27828"
+ "i27829"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3810" "i3808" "i3806" "i3804"))
+ ("i27638" "i27636" "i27634" "i27632"))
#(ribcage
(lambda-var-list
gen-var
@@ -16184,327 +16239,327 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile)))
- (#{expand 4443}#
- #{exp 14565}#
- #{r 14535}#
+ (#{expand 28271}#
+ #{exp 38166}#
+ #{r 38136}#
'(())
- #{mod 14536}#)
- (let ((#{labels 14678}#
+ #{mod 38137}#)
+ (let ((#{labels 38275}#
(list (symbol->string (gensym "i"))))
- (#{var 14679}#
- (let ((#{id 14717}#
- (if (if (vector? #{pat 14564}#)
+ (#{var 38276}#
+ (let ((#{id 38314}#
+ (if (if (vector? #{pat 38165}#)
(if (= (vector-length
- #{pat 14564}#)
+ #{pat 38165}#)
4)
(eq? (vector-ref
- #{pat 14564}#
+ #{pat 38165}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 14564}# 1)
- #{pat 14564}#)))
+ (vector-ref #{pat 38165}# 1)
+ #{pat 38165}#)))
(gensym
(string-append
- (symbol->string #{id 14717}#)
+ (symbol->string #{id 38314}#)
" ")))))
- (#{build-call 4377}#
+ (#{build-call 28205}#
#f
- (#{build-simple-lambda 4386}#
+ (#{build-simple-lambda 28214}#
#f
- (list (syntax->datum #{pat 14564}#))
+ (list (syntax->datum #{pat 38165}#))
#f
- (list #{var 14679}#)
+ (list #{var 38276}#)
'()
- (#{expand 4443}#
- #{exp 14565}#
- (#{extend-env 4405}#
- #{labels 14678}#
+ (#{expand 28271}#
+ #{exp 38166}#
+ (#{extend-env 28233}#
+ #{labels 38275}#
(list (cons 'syntax
- (cons #{var 14679}# 0)))
- #{r 14535}#)
- (#{make-binding-wrap 4424}#
- (list #{pat 14564}#)
- #{labels 14678}#
+ (cons #{var 38276}# 0)))
+ #{r 38136}#)
+ (#{make-binding-wrap 28252}#
+ (list #{pat 38165}#)
+ #{labels 38275}#
'(()))
- #{mod 14536}#))
- (list #{x 14532}#))))
- (#{gen-clause 13787}#
- #{x 14532}#
- #{keys 14533}#
- (cdr #{clauses 14534}#)
- #{r 14535}#
- #{pat 14564}#
+ #{mod 38137}#))
+ (list #{x 38133}#))))
+ (#{gen-clause 37428}#
+ #{x 38133}#
+ #{keys 38134}#
+ (cdr #{clauses 38135}#)
+ #{r 38136}#
+ #{pat 38165}#
#t
- #{exp 14565}#
- #{mod 14536}#)))
- #{tmp 14562}#)
- (let ((#{tmp 15027}#
- ($sc-dispatch #{tmp 14561}# '(any any any))))
- (if #{tmp 15027}#
+ #{exp 38166}#
+ #{mod 38137}#)))
+ #{tmp 38163}#)
+ (let ((#{tmp 38624}#
+ ($sc-dispatch #{tmp 38162}# '(any any any))))
+ (if #{tmp 38624}#
(@apply
- (lambda (#{pat 15029}#
- #{fender 15030}#
- #{exp 15031}#)
- (#{gen-clause 13787}#
- #{x 14532}#
- #{keys 14533}#
- (cdr #{clauses 14534}#)
- #{r 14535}#
- #{pat 15029}#
- #{fender 15030}#
- #{exp 15031}#
- #{mod 14536}#))
- #{tmp 15027}#)
+ (lambda (#{pat 38626}#
+ #{fender 38627}#
+ #{exp 38628}#)
+ (#{gen-clause 37428}#
+ #{x 38133}#
+ #{keys 38134}#
+ (cdr #{clauses 38135}#)
+ #{r 38136}#
+ #{pat 38626}#
+ #{fender 38627}#
+ #{exp 38628}#
+ #{mod 38137}#))
+ #{tmp 38624}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses 14534}#)))))))))))
- (lambda (#{e 13789}#
- #{r 13790}#
- #{w 13791}#
- #{s 13792}#
- #{mod 13793}#)
- (let ((#{e 13794}#
- (let ((#{x 14443}#
+ (car #{clauses 38135}#)))))))))))
+ (lambda (#{e 37430}#
+ #{r 37431}#
+ #{w 37432}#
+ #{s 37433}#
+ #{mod 37434}#)
+ (let ((#{e 37435}#
+ (let ((#{x 38044}#
(begin
- (if (if (pair? #{e 13789}#) #{s 13792}# #f)
- (set-source-properties! #{e 13789}# #{s 13792}#))
- #{e 13789}#)))
- (if (if (null? (car #{w 13791}#))
- (null? (cdr #{w 13791}#))
+ (if (if (pair? #{e 37430}#) #{s 37433}# #f)
+ (set-source-properties! #{e 37430}# #{s 37433}#))
+ #{e 37430}#)))
+ (if (if (null? (car #{w 37432}#))
+ (null? (cdr #{w 37432}#))
#f)
- #{x 14443}#
- (if (if (vector? #{x 14443}#)
- (if (= (vector-length #{x 14443}#) 4)
- (eq? (vector-ref #{x 14443}# 0) 'syntax-object)
+ #{x 38044}#
+ (if (if (vector? #{x 38044}#)
+ (if (= (vector-length #{x 38044}#) 4)
+ (eq? (vector-ref #{x 38044}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 14475}# (vector-ref #{x 14443}# 1))
- (#{wrap 14476}#
- (let ((#{w2 14484}#
- (vector-ref #{x 14443}# 2)))
- (let ((#{m1 14485}# (car #{w 13791}#))
- (#{s1 14486}# (cdr #{w 13791}#)))
- (if (null? #{m1 14485}#)
- (if (null? #{s1 14486}#)
- #{w2 14484}#
- (cons (car #{w2 14484}#)
- (let ((#{m2 14501}#
- (cdr #{w2 14484}#)))
- (if (null? #{m2 14501}#)
- #{s1 14486}#
+ (let ((#{expression 38076}# (vector-ref #{x 38044}# 1))
+ (#{wrap 38077}#
+ (let ((#{w2 38085}#
+ (vector-ref #{x 38044}# 2)))
+ (let ((#{m1 38086}# (car #{w 37432}#))
+ (#{s1 38087}# (cdr #{w 37432}#)))
+ (if (null? #{m1 38086}#)
+ (if (null? #{s1 38087}#)
+ #{w2 38085}#
+ (cons (car #{w2 38085}#)
+ (let ((#{m2 38102}#
+ (cdr #{w2 38085}#)))
+ (if (null? #{m2 38102}#)
+ #{s1 38087}#
(append
- #{s1 14486}#
- #{m2 14501}#)))))
- (cons (let ((#{m2 14509}#
- (car #{w2 14484}#)))
- (if (null? #{m2 14509}#)
- #{m1 14485}#
+ #{s1 38087}#
+ #{m2 38102}#)))))
+ (cons (let ((#{m2 38110}#
+ (car #{w2 38085}#)))
+ (if (null? #{m2 38110}#)
+ #{m1 38086}#
(append
- #{m1 14485}#
- #{m2 14509}#)))
- (let ((#{m2 14517}#
- (cdr #{w2 14484}#)))
- (if (null? #{m2 14517}#)
- #{s1 14486}#
+ #{m1 38086}#
+ #{m2 38110}#)))
+ (let ((#{m2 38118}#
+ (cdr #{w2 38085}#)))
+ (if (null? #{m2 38118}#)
+ #{s1 38087}#
(append
- #{s1 14486}#
- #{m2 14517}#))))))))
- (#{module 14477}# (vector-ref #{x 14443}# 3)))
+ #{s1 38087}#
+ #{m2 38118}#))))))))
+ (#{module 38078}# (vector-ref #{x 38044}# 3)))
(vector
'syntax-object
- #{expression 14475}#
- #{wrap 14476}#
- #{module 14477}#))
- (if (null? #{x 14443}#)
- #{x 14443}#
+ #{expression 38076}#
+ #{wrap 38077}#
+ #{module 38078}#))
+ (if (null? #{x 38044}#)
+ #{x 38044}#
(vector
'syntax-object
- #{x 14443}#
- #{w 13791}#
- #{mod 13793}#)))))))
- (let ((#{tmp 13795}# #{e 13794}#))
- (let ((#{tmp 13796}#
+ #{x 38044}#
+ #{w 37432}#
+ #{mod 37434}#)))))))
+ (let ((#{tmp 37436}# #{e 37435}#))
+ (let ((#{tmp 37437}#
($sc-dispatch
- #{tmp 13795}#
+ #{tmp 37436}#
'(_ any each-any . each-any))))
- (if #{tmp 13796}#
+ (if #{tmp 37437}#
(@apply
- (lambda (#{val 13848}# #{key 13849}# #{m 13850}#)
+ (lambda (#{val 37485}# #{key 37486}# #{m 37487}#)
(if (and-map
- (lambda (#{x 13851}#)
- (if (if (symbol? #{x 13851}#)
+ (lambda (#{x 37488}#)
+ (if (if (symbol? #{x 37488}#)
#t
- (if (if (vector? #{x 13851}#)
- (if (= (vector-length #{x 13851}#) 4)
- (eq? (vector-ref #{x 13851}# 0)
+ (if (if (vector? #{x 37488}#)
+ (if (= (vector-length #{x 37488}#) 4)
+ (eq? (vector-ref #{x 37488}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 13851}# 1))
+ (symbol? (vector-ref #{x 37488}# 1))
#f))
- (not (if (if (if (vector? #{x 13851}#)
+ (not (if (if (if (vector? #{x 37488}#)
(if (= (vector-length
- #{x 13851}#)
+ #{x 37488}#)
4)
(eq? (vector-ref
- #{x 13851}#
+ #{x 37488}#
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 13851}# 1))
+ (symbol? (vector-ref #{x 37488}# 1))
#f)
- (#{free-id=? 4431}#
- #{x 13851}#
+ (#{free-id=? 28259}#
+ #{x 37488}#
'#(syntax-object
...
((top)
@@ -16513,7 +16568,7 @@
#(ribcage
#(x)
#((top))
- #("i2338"))
+ #("i26166"))
#(ribcage
(lambda-var-list
gen-var
@@ -16791,938 +16846,938 @@
(top)
(top)
(top))
- ("i471"
- "i469"
- "i467"
- "i465"
- "i463"
- "i461"
- "i459"
- "i457"
- "i455"
- "i453"
- "i451"
- "i449"
- "i447"
- "i445"
- "i443"
- "i441"
- "i439"
- "i437"
- "i435"
- "i433"
- "i431"
- "i429"
- "i427"
- "i425"
- "i423"
- "i421"
- "i419"
- "i417"
- "i415"
- "i413"
- "i411"
- "i409"
- "i407"
- "i405"
- "i403"
- "i401"
- "i400"
- "i398"
- "i395"
- "i394"
- "i393"
- "i391"
- "i390"
- "i388"
- "i386"
- "i384"
- "i382"
- "i380"
- "i378"
- "i376"
- "i374"
- "i371"
- "i369"
- "i368"
- "i366"
- "i364"
- "i362"
- "i360"
- "i359"
- "i358"
- "i357"
- "i355"
- "i354"
- "i351"
- "i349"
- "i347"
- "i345"
- "i343"
- "i341"
- "i340"
- "i339"
- "i337"
- "i335"
- "i334"
- "i331"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i309"
- "i307"
- "i305"
- "i303"
- "i301"
- "i299"
- "i297"
- "i295"
- "i293"
- "i291"
- "i289"
- "i287"
- "i285"
- "i283"
- "i281"
- "i279"
- "i277"
- "i275"
- "i273"
- "i271"
- "i269"
- "i267"
- "i265"
- "i263"
- "i262"
- "i259"
- "i257"
- "i256"
- "i255"
- "i254"
- "i253"
- "i251"
- "i249"
- "i247"
- "i244"
- "i242"
- "i240"
- "i238"
- "i236"
- "i234"
- "i232"
- "i230"
- "i228"
- "i226"
- "i224"
- "i222"
- "i220"
- "i218"
- "i216"
- "i214"
- "i212"
- "i210"
- "i208"))
+ ("i24298"
+ "i24296"
+ "i24294"
+ "i24292"
+ "i24290"
+ "i24288"
+ "i24286"
+ "i24284"
+ "i24282"
+ "i24280"
+ "i24278"
+ "i24276"
+ "i24274"
+ "i24272"
+ "i24270"
+ "i24268"
+ "i24266"
+ "i24264"
+ "i24262"
+ "i24260"
+ "i24258"
+ "i24256"
+ "i24254"
+ "i24252"
+ "i24250"
+ "i24248"
+ "i24246"
+ "i24244"
+ "i24242"
+ "i24240"
+ "i24238"
+ "i24236"
+ "i24234"
+ "i24232"
+ "i24230"
+ "i24228"
+ "i24227"
+ "i24225"
+ "i24222"
+ "i24221"
+ "i24220"
+ "i24218"
+ "i24217"
+ "i24215"
+ "i24213"
+ "i24211"
+ "i24209"
+ "i24207"
+ "i24205"
+ "i24203"
+ "i24201"
+ "i24198"
+ "i24196"
+ "i24195"
+ "i24193"
+ "i24191"
+ "i24189"
+ "i24187"
+ "i24186"
+ "i24185"
+ "i24184"
+ "i24182"
+ "i24181"
+ "i24178"
+ "i24176"
+ "i24174"
+ "i24172"
+ "i24170"
+ "i24168"
+ "i24167"
+ "i24166"
+ "i24164"
+ "i24162"
+ "i24161"
+ "i24158"
+ "i24157"
+ "i24155"
+ "i24153"
+ "i24151"
+ "i24149"
+ "i24147"
+ "i24145"
+ "i24143"
+ "i24141"
+ "i24139"
+ "i24136"
+ "i24134"
+ "i24132"
+ "i24130"
+ "i24128"
+ "i24126"
+ "i24124"
+ "i24122"
+ "i24120"
+ "i24118"
+ "i24116"
+ "i24114"
+ "i24112"
+ "i24110"
+ "i24108"
+ "i24106"
+ "i24104"
+ "i24102"
+ "i24100"
+ "i24098"
+ "i24096"
+ "i24094"
+ "i24092"
+ "i24090"
+ "i24089"
+ "i24086"
+ "i24084"
+ "i24083"
+ "i24082"
+ "i24081"
+ "i24080"
+ "i24078"
+ "i24076"
+ "i24074"
+ "i24071"
+ "i24069"
+ "i24067"
+ "i24065"
+ "i24063"
+ "i24061"
+ "i24059"
+ "i24057"
+ "i24055"
+ "i24053"
+ "i24051"
+ "i24049"
+ "i24047"
+ "i24045"
+ "i24043"
+ "i24041"
+ "i24039"
+ "i24037"
+ "i24035"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("i46" "i45" "i44"))
+ ("i23873" "i23872" "i23871"))
#(ribcage () () ()))
(hygiene guile)))
#f))
#f))
- #{key 13849}#)
- (let ((#{x 13916}#
+ #{key 37486}#)
+ (let ((#{x 37553}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-call 4377}#
- #{s 13792}#
- (let ((#{req 14058}# (list 'tmp))
- (#{vars 14060}# (list #{x 13916}#))
- (#{exp 14062}#
- (#{gen-syntax-case 13788}#
+ (#{build-call 28205}#
+ #{s 37433}#
+ (let ((#{req 37691}# (list 'tmp))
+ (#{vars 37693}# (list #{x 37553}#))
+ (#{exp 37695}#
+ (#{gen-syntax-case 37429}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x 13916}#)
- #{key 13849}#
- #{m 13850}#
- #{r 13790}#
- #{mod 13793}#)))
- (let ((#{body 14067}#
+ #{x 37553}#)
+ #{key 37486}#
+ #{m 37487}#
+ #{r 37431}#
+ #{mod 37434}#)))
+ (let ((#{body 37700}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
#f
- #{req 14058}#
+ #{req 37691}#
#f
#f
#f
'()
- #{vars 14060}#
- #{exp 14062}#
+ #{vars 37693}#
+ #{exp 37695}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
'()
- #{body 14067}#)))
- (list (#{expand 4443}#
- #{val 13848}#
- #{r 13790}#
+ #{body 37700}#)))
+ (list (#{expand 28271}#
+ #{val 37485}#
+ #{r 37431}#
'(())
- #{mod 13793}#))))
+ #{mod 37434}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e 13794}#)))
- #{tmp 13796}#)
+ #{e 37435}#)))
+ #{tmp 37437}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 13795}#))))))))
+ #{tmp 37436}#))))))))
(set! macroexpand
(lambda*
- (#{x 16799}#
+ (#{x 40406}#
#:optional
- (#{m 16800}# 'e)
- (#{esew 16801}# '(eval)))
- (#{expand-top-sequence 4439}#
- (list #{x 16799}#)
+ (#{m 40407}# 'e)
+ (#{esew 40408}# '(eval)))
+ (#{expand-top-sequence 28267}#
+ (list #{x 40406}#)
'()
'((top))
#f
- #{m 16800}#
- #{esew 16801}#
+ #{m 40407}#
+ #{esew 40408}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x 16804}#)
- (if (if (vector? #{x 16804}#)
- (if (= (vector-length #{x 16804}#) 4)
- (eq? (vector-ref #{x 16804}# 0) 'syntax-object)
+ (lambda (#{x 40411}#)
+ (if (if (vector? #{x 40411}#)
+ (if (= (vector-length #{x 40411}#) 4)
+ (eq? (vector-ref #{x 40411}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 16804}# 1))
+ (symbol? (vector-ref #{x 40411}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id 16829}# #{datum 16830}#)
- (let ((#{wrap 16835}# (vector-ref #{id 16829}# 2))
- (#{module 16836}# (vector-ref #{id 16829}# 3)))
+ (lambda (#{id 40436}# #{datum 40437}#)
+ (let ((#{wrap 40442}# (vector-ref #{id 40436}# 2))
+ (#{module 40443}# (vector-ref #{id 40436}# 3)))
(vector
'syntax-object
- #{datum 16830}#
- #{wrap 16835}#
- #{module 16836}#))))
+ #{datum 40437}#
+ #{wrap 40442}#
+ #{module 40443}#))))
(set! syntax->datum
- (lambda (#{x 16843}#)
- (#{strip 4456}# #{x 16843}# '(()))))
+ (lambda (#{x 40450}#)
+ (#{strip 28284}# #{x 40450}# '(()))))
(set! syntax-source
- (lambda (#{x 16846}#)
- (#{source-annotation 4404}# #{x 16846}#)))
+ (lambda (#{x 40453}#)
+ (#{source-annotation 28232}# #{x 40453}#)))
(set! generate-temporaries
- (lambda (#{ls 17048}#)
+ (lambda (#{ls 40637}#)
(begin
- (if (not (list? #{ls 17048}#))
+ (if (not (list? #{ls 40637}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls 17048}#))
- (let ((#{mod 17056}#
+ #{ls 40637}#))
+ (let ((#{mod 40645}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 17057}#)
- (let ((#{x 17061}# (gensym)))
- (if (if (vector? #{x 17061}#)
- (if (= (vector-length #{x 17061}#) 4)
- (eq? (vector-ref #{x 17061}# 0) 'syntax-object)
+ (map (lambda (#{x 40646}#)
+ (let ((#{x 40650}# (gensym)))
+ (if (if (vector? #{x 40650}#)
+ (if (= (vector-length #{x 40650}#) 4)
+ (eq? (vector-ref #{x 40650}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 17076}# (vector-ref #{x 17061}# 1))
- (#{wrap 17077}#
- (let ((#{w2 17085}# (vector-ref #{x 17061}# 2)))
- (cons (let ((#{m2 17092}# (car #{w2 17085}#)))
- (if (null? #{m2 17092}#)
+ (let ((#{expression 40665}# (vector-ref #{x 40650}# 1))
+ (#{wrap 40666}#
+ (let ((#{w2 40674}# (vector-ref #{x 40650}# 2)))
+ (cons (let ((#{m2 40681}# (car #{w2 40674}#)))
+ (if (null? #{m2 40681}#)
'(top)
- (append '(top) #{m2 17092}#)))
- (let ((#{m2 17099}# (cdr #{w2 17085}#)))
- (if (null? #{m2 17099}#)
+ (append '(top) #{m2 40681}#)))
+ (let ((#{m2 40688}# (cdr #{w2 40674}#)))
+ (if (null? #{m2 40688}#)
'()
- (append '() #{m2 17099}#))))))
- (#{module 17078}# (vector-ref #{x 17061}# 3)))
+ (append '() #{m2 40688}#))))))
+ (#{module 40667}# (vector-ref #{x 40650}# 3)))
(vector
'syntax-object
- #{expression 17076}#
- #{wrap 17077}#
- #{module 17078}#))
- (if (null? #{x 17061}#)
- #{x 17061}#
+ #{expression 40665}#
+ #{wrap 40666}#
+ #{module 40667}#))
+ (if (null? #{x 40650}#)
+ #{x 40650}#
(vector
'syntax-object
- #{x 17061}#
+ #{x 40650}#
'((top))
- #{mod 17056}#)))))
- #{ls 17048}#)))))
+ #{mod 40645}#)))))
+ #{ls 40637}#)))))
(set! free-identifier=?
- (lambda (#{x 17108}# #{y 17109}#)
+ (lambda (#{x 40697}# #{y 40698}#)
(begin
- (if (not (if (if (vector? #{x 17108}#)
- (if (= (vector-length #{x 17108}#) 4)
- (eq? (vector-ref #{x 17108}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 40697}#)
+ (if (= (vector-length #{x 40697}#) 4)
+ (eq? (vector-ref #{x 40697}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17108}# 1))
+ (symbol? (vector-ref #{x 40697}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 17108}#))
- (if (not (if (if (vector? #{y 17109}#)
- (if (= (vector-length #{y 17109}#) 4)
- (eq? (vector-ref #{y 17109}# 0) 'syntax-object)
+ #{x 40697}#))
+ (if (not (if (if (vector? #{y 40698}#)
+ (if (= (vector-length #{y 40698}#) 4)
+ (eq? (vector-ref #{y 40698}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 17109}# 1))
+ (symbol? (vector-ref #{y 40698}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y 17109}#))
- (#{free-id=? 4431}# #{x 17108}# #{y 17109}#))))
+ #{y 40698}#))
+ (#{free-id=? 28259}# #{x 40697}# #{y 40698}#))))
(set! bound-identifier=?
- (lambda (#{x 17184}# #{y 17185}#)
+ (lambda (#{x 40773}# #{y 40774}#)
(begin
- (if (not (if (if (vector? #{x 17184}#)
- (if (= (vector-length #{x 17184}#) 4)
- (eq? (vector-ref #{x 17184}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 40773}#)
+ (if (= (vector-length #{x 40773}#) 4)
+ (eq? (vector-ref #{x 40773}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17184}# 1))
+ (symbol? (vector-ref #{x 40773}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 17184}#))
- (if (not (if (if (vector? #{y 17185}#)
- (if (= (vector-length #{y 17185}#) 4)
- (eq? (vector-ref #{y 17185}# 0) 'syntax-object)
+ #{x 40773}#))
+ (if (not (if (if (vector? #{y 40774}#)
+ (if (= (vector-length #{y 40774}#) 4)
+ (eq? (vector-ref #{y 40774}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 17185}# 1))
+ (symbol? (vector-ref #{y 40774}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y 17185}#))
- (#{bound-id=? 4432}# #{x 17184}# #{y 17185}#))))
+ #{y 40774}#))
+ (#{bound-id=? 28260}# #{x 40773}# #{y 40774}#))))
(set! syntax-violation
(lambda*
- (#{who 17351}#
- #{message 17352}#
- #{form 17353}#
+ (#{who 40940}#
+ #{message 40941}#
+ #{form 40942}#
#:optional
- (#{subform 17354}# #f))
+ (#{subform 40943}# #f))
(begin
- (if (not (if (not #{who 17351}#)
- (not #{who 17351}#)
- (let ((#{t 17372}# (string? #{who 17351}#)))
- (if #{t 17372}#
- #{t 17372}#
- (symbol? #{who 17351}#)))))
+ (if (not (if (not #{who 40940}#)
+ (not #{who 40940}#)
+ (let ((#{t 40961}# (string? #{who 40940}#)))
+ (if #{t 40961}#
+ #{t 40961}#
+ (symbol? #{who 40940}#)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who 17351}#))
- (if (not (string? #{message 17352}#))
+ #{who 40940}#))
+ (if (not (string? #{message 40941}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message 17352}#))
+ #{message 40941}#))
(throw 'syntax-error
- #{who 17351}#
- #{message 17352}#
- (#{source-annotation 4404}#
- (if #{form 17353}#
- #{form 17353}#
- #{subform 17354}#))
- (#{strip 4456}# #{form 17353}# '(()))
- (if #{subform 17354}#
- (#{strip 4456}# #{subform 17354}# '(()))
+ #{who 40940}#
+ #{message 40941}#
+ (#{source-annotation 28232}#
+ (if #{form 40942}#
+ #{form 40942}#
+ #{subform 40943}#))
+ (#{strip 28284}# #{form 40942}# '(()))
+ (if #{subform 40943}#
+ (#{strip 28284}# #{subform 40943}# '(()))
#f)))))
(letrec*
- ((#{match-each 17623}#
- (lambda (#{e 18511}#
- #{p 18512}#
- #{w 18513}#
- #{mod 18514}#)
- (if (pair? #{e 18511}#)
- (let ((#{first 18515}#
- (#{match 17629}#
- (car #{e 18511}#)
- #{p 18512}#
- #{w 18513}#
+ ((#{match-each 41192}#
+ (lambda (#{e 42071}#
+ #{p 42072}#
+ #{w 42073}#
+ #{mod 42074}#)
+ (if (pair? #{e 42071}#)
+ (let ((#{first 42075}#
+ (#{match 41198}#
+ (car #{e 42071}#)
+ #{p 42072}#
+ #{w 42073}#
'()
- #{mod 18514}#)))
- (if #{first 18515}#
- (let ((#{rest 18518}#
- (#{match-each 17623}#
- (cdr #{e 18511}#)
- #{p 18512}#
- #{w 18513}#
- #{mod 18514}#)))
- (if #{rest 18518}#
- (cons #{first 18515}# #{rest 18518}#)
+ #{mod 42074}#)))
+ (if #{first 42075}#
+ (let ((#{rest 42078}#
+ (#{match-each 41192}#
+ (cdr #{e 42071}#)
+ #{p 42072}#
+ #{w 42073}#
+ #{mod 42074}#)))
+ (if #{rest 42078}#
+ (cons #{first 42075}# #{rest 42078}#)
#f))
#f))
- (if (null? #{e 18511}#)
+ (if (null? #{e 42071}#)
'()
- (if (if (vector? #{e 18511}#)
- (if (= (vector-length #{e 18511}#) 4)
- (eq? (vector-ref #{e 18511}# 0) 'syntax-object)
+ (if (if (vector? #{e 42071}#)
+ (if (= (vector-length #{e 42071}#) 4)
+ (eq? (vector-ref #{e 42071}# 0) 'syntax-object)
#f)
#f)
- (#{match-each 17623}#
- (vector-ref #{e 18511}# 1)
- #{p 18512}#
- (let ((#{w2 18540}# (vector-ref #{e 18511}# 2)))
- (let ((#{m1 18541}# (car #{w 18513}#))
- (#{s1 18542}# (cdr #{w 18513}#)))
- (if (null? #{m1 18541}#)
- (if (null? #{s1 18542}#)
- #{w2 18540}#
- (cons (car #{w2 18540}#)
- (let ((#{m2 18553}# (cdr #{w2 18540}#)))
- (if (null? #{m2 18553}#)
- #{s1 18542}#
- (append #{s1 18542}# #{m2 18553}#)))))
- (cons (let ((#{m2 18561}# (car #{w2 18540}#)))
- (if (null? #{m2 18561}#)
- #{m1 18541}#
- (append #{m1 18541}# #{m2 18561}#)))
- (let ((#{m2 18569}# (cdr #{w2 18540}#)))
- (if (null? #{m2 18569}#)
- #{s1 18542}#
- (append #{s1 18542}# #{m2 18569}#)))))))
- (vector-ref #{e 18511}# 3))
+ (#{match-each 41192}#
+ (vector-ref #{e 42071}# 1)
+ #{p 42072}#
+ (let ((#{w2 42100}# (vector-ref #{e 42071}# 2)))
+ (let ((#{m1 42101}# (car #{w 42073}#))
+ (#{s1 42102}# (cdr #{w 42073}#)))
+ (if (null? #{m1 42101}#)
+ (if (null? #{s1 42102}#)
+ #{w2 42100}#
+ (cons (car #{w2 42100}#)
+ (let ((#{m2 42113}# (cdr #{w2 42100}#)))
+ (if (null? #{m2 42113}#)
+ #{s1 42102}#
+ (append #{s1 42102}# #{m2 42113}#)))))
+ (cons (let ((#{m2 42121}# (car #{w2 42100}#)))
+ (if (null? #{m2 42121}#)
+ #{m1 42101}#
+ (append #{m1 42101}# #{m2 42121}#)))
+ (let ((#{m2 42129}# (cdr #{w2 42100}#)))
+ (if (null? #{m2 42129}#)
+ #{s1 42102}#
+ (append #{s1 42102}# #{m2 42129}#)))))))
+ (vector-ref #{e 42071}# 3))
#f)))))
- (#{match-each-any 17625}#
- (lambda (#{e 18578}# #{w 18579}# #{mod 18580}#)
- (if (pair? #{e 18578}#)
- (let ((#{l 18581}#
- (#{match-each-any 17625}#
- (cdr #{e 18578}#)
- #{w 18579}#
- #{mod 18580}#)))
- (if #{l 18581}#
- (cons (let ((#{x 18586}# (car #{e 18578}#)))
- (if (if (null? (car #{w 18579}#))
- (null? (cdr #{w 18579}#))
+ (#{match-each-any 41194}#
+ (lambda (#{e 42138}# #{w 42139}# #{mod 42140}#)
+ (if (pair? #{e 42138}#)
+ (let ((#{l 42141}#
+ (#{match-each-any 41194}#
+ (cdr #{e 42138}#)
+ #{w 42139}#
+ #{mod 42140}#)))
+ (if #{l 42141}#
+ (cons (let ((#{x 42146}# (car #{e 42138}#)))
+ (if (if (null? (car #{w 42139}#))
+ (null? (cdr #{w 42139}#))
#f)
- #{x 18586}#
- (if (if (vector? #{x 18586}#)
- (if (= (vector-length #{x 18586}#) 4)
- (eq? (vector-ref #{x 18586}# 0)
+ #{x 42146}#
+ (if (if (vector? #{x 42146}#)
+ (if (= (vector-length #{x 42146}#) 4)
+ (eq? (vector-ref #{x 42146}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 18604}#
- (vector-ref #{x 18586}# 1))
- (#{wrap 18605}#
- (let ((#{w2 18613}#
- (vector-ref #{x 18586}# 2)))
- (let ((#{m1 18614}# (car #{w 18579}#))
- (#{s1 18615}# (cdr #{w 18579}#)))
- (if (null? #{m1 18614}#)
- (if (null? #{s1 18615}#)
- #{w2 18613}#
- (cons (car #{w2 18613}#)
- (let ((#{m2 18630}#
- (cdr #{w2 18613}#)))
- (if (null? #{m2 18630}#)
- #{s1 18615}#
+ (let ((#{expression 42164}#
+ (vector-ref #{x 42146}# 1))
+ (#{wrap 42165}#
+ (let ((#{w2 42173}#
+ (vector-ref #{x 42146}# 2)))
+ (let ((#{m1 42174}# (car #{w 42139}#))
+ (#{s1 42175}# (cdr #{w 42139}#)))
+ (if (null? #{m1 42174}#)
+ (if (null? #{s1 42175}#)
+ #{w2 42173}#
+ (cons (car #{w2 42173}#)
+ (let ((#{m2 42190}#
+ (cdr #{w2 42173}#)))
+ (if (null? #{m2 42190}#)
+ #{s1 42175}#
(append
- #{s1 18615}#
- #{m2 18630}#)))))
- (cons (let ((#{m2 18638}#
- (car #{w2 18613}#)))
- (if (null? #{m2 18638}#)
- #{m1 18614}#
+ #{s1 42175}#
+ #{m2 42190}#)))))
+ (cons (let ((#{m2 42198}#
+ (car #{w2 42173}#)))
+ (if (null? #{m2 42198}#)
+ #{m1 42174}#
(append
- #{m1 18614}#
- #{m2 18638}#)))
- (let ((#{m2 18646}#
- (cdr #{w2 18613}#)))
- (if (null? #{m2 18646}#)
- #{s1 18615}#
+ #{m1 42174}#
+ #{m2 42198}#)))
+ (let ((#{m2 42206}#
+ (cdr #{w2 42173}#)))
+ (if (null? #{m2 42206}#)
+ #{s1 42175}#
(append
- #{s1 18615}#
- #{m2 18646}#))))))))
- (#{module 18606}#
- (vector-ref #{x 18586}# 3)))
+ #{s1 42175}#
+ #{m2 42206}#))))))))
+ (#{module 42166}#
+ (vector-ref #{x 42146}# 3)))
(vector
'syntax-object
- #{expression 18604}#
- #{wrap 18605}#
- #{module 18606}#))
- (if (null? #{x 18586}#)
- #{x 18586}#
+ #{expression 42164}#
+ #{wrap 42165}#
+ #{module 42166}#))
+ (if (null? #{x 42146}#)
+ #{x 42146}#
(vector
'syntax-object
- #{x 18586}#
- #{w 18579}#
- #{mod 18580}#)))))
- #{l 18581}#)
+ #{x 42146}#
+ #{w 42139}#
+ #{mod 42140}#)))))
+ #{l 42141}#)
#f))
- (if (null? #{e 18578}#)
+ (if (null? #{e 42138}#)
'()
- (if (if (vector? #{e 18578}#)
- (if (= (vector-length #{e 18578}#) 4)
- (eq? (vector-ref #{e 18578}# 0) 'syntax-object)
+ (if (if (vector? #{e 42138}#)
+ (if (= (vector-length #{e 42138}#) 4)
+ (eq? (vector-ref #{e 42138}# 0) 'syntax-object)
#f)
#f)
- (#{match-each-any 17625}#
- (vector-ref #{e 18578}# 1)
- (let ((#{w2 18679}# (vector-ref #{e 18578}# 2)))
- (let ((#{m1 18680}# (car #{w 18579}#))
- (#{s1 18681}# (cdr #{w 18579}#)))
- (if (null? #{m1 18680}#)
- (if (null? #{s1 18681}#)
- #{w2 18679}#
- (cons (car #{w2 18679}#)
- (let ((#{m2 18692}# (cdr #{w2 18679}#)))
- (if (null? #{m2 18692}#)
- #{s1 18681}#
- (append #{s1 18681}# #{m2 18692}#)))))
- (cons (let ((#{m2 18700}# (car #{w2 18679}#)))
- (if (null? #{m2 18700}#)
- #{m1 18680}#
- (append #{m1 18680}# #{m2 18700}#)))
- (let ((#{m2 18708}# (cdr #{w2 18679}#)))
- (if (null? #{m2 18708}#)
- #{s1 18681}#
- (append #{s1 18681}# #{m2 18708}#)))))))
- #{mod 18580}#)
+ (#{match-each-any 41194}#
+ (vector-ref #{e 42138}# 1)
+ (let ((#{w2 42239}# (vector-ref #{e 42138}# 2)))
+ (let ((#{m1 42240}# (car #{w 42139}#))
+ (#{s1 42241}# (cdr #{w 42139}#)))
+ (if (null? #{m1 42240}#)
+ (if (null? #{s1 42241}#)
+ #{w2 42239}#
+ (cons (car #{w2 42239}#)
+ (let ((#{m2 42252}# (cdr #{w2 42239}#)))
+ (if (null? #{m2 42252}#)
+ #{s1 42241}#
+ (append #{s1 42241}# #{m2 42252}#)))))
+ (cons (let ((#{m2 42260}# (car #{w2 42239}#)))
+ (if (null? #{m2 42260}#)
+ #{m1 42240}#
+ (append #{m1 42240}# #{m2 42260}#)))
+ (let ((#{m2 42268}# (cdr #{w2 42239}#)))
+ (if (null? #{m2 42268}#)
+ #{s1 42241}#
+ (append #{s1 42241}# #{m2 42268}#)))))))
+ #{mod 42140}#)
#f)))))
- (#{match-empty 17626}#
- (lambda (#{p 18713}# #{r 18714}#)
- (if (null? #{p 18713}#)
- #{r 18714}#
- (if (eq? #{p 18713}# '_)
- #{r 18714}#
- (if (eq? #{p 18713}# 'any)
- (cons '() #{r 18714}#)
- (if (pair? #{p 18713}#)
- (#{match-empty 17626}#
- (car #{p 18713}#)
- (#{match-empty 17626}#
- (cdr #{p 18713}#)
- #{r 18714}#))
- (if (eq? #{p 18713}# 'each-any)
- (cons '() #{r 18714}#)
- (let ((#{atom-key 18715}# (vector-ref #{p 18713}# 0)))
- (if (eqv? #{atom-key 18715}# 'each)
- (#{match-empty 17626}#
- (vector-ref #{p 18713}# 1)
- #{r 18714}#)
- (if (eqv? #{atom-key 18715}# 'each+)
- (#{match-empty 17626}#
- (vector-ref #{p 18713}# 1)
- (#{match-empty 17626}#
- (reverse (vector-ref #{p 18713}# 2))
- (#{match-empty 17626}#
- (vector-ref #{p 18713}# 3)
- #{r 18714}#)))
- (if (if (eqv? #{atom-key 18715}# 'free-id)
+ (#{match-empty 41195}#
+ (lambda (#{p 42273}# #{r 42274}#)
+ (if (null? #{p 42273}#)
+ #{r 42274}#
+ (if (eq? #{p 42273}# '_)
+ #{r 42274}#
+ (if (eq? #{p 42273}# 'any)
+ (cons '() #{r 42274}#)
+ (if (pair? #{p 42273}#)
+ (#{match-empty 41195}#
+ (car #{p 42273}#)
+ (#{match-empty 41195}#
+ (cdr #{p 42273}#)
+ #{r 42274}#))
+ (if (eq? #{p 42273}# 'each-any)
+ (cons '() #{r 42274}#)
+ (let ((#{atom-key 42275}# (vector-ref #{p 42273}# 0)))
+ (if (eqv? #{atom-key 42275}# 'each)
+ (#{match-empty 41195}#
+ (vector-ref #{p 42273}# 1)
+ #{r 42274}#)
+ (if (eqv? #{atom-key 42275}# 'each+)
+ (#{match-empty 41195}#
+ (vector-ref #{p 42273}# 1)
+ (#{match-empty 41195}#
+ (reverse (vector-ref #{p 42273}# 2))
+ (#{match-empty 41195}#
+ (vector-ref #{p 42273}# 3)
+ #{r 42274}#)))
+ (if (if (eqv? #{atom-key 42275}# 'free-id)
#t
- (eqv? #{atom-key 18715}# 'atom))
- #{r 18714}#
- (if (eqv? #{atom-key 18715}# 'vector)
- (#{match-empty 17626}#
- (vector-ref #{p 18713}# 1)
- #{r 18714}#)))))))))))))
- (#{combine 17627}#
- (lambda (#{r* 18734}# #{r 18735}#)
- (if (null? (car #{r* 18734}#))
- #{r 18735}#
- (cons (map car #{r* 18734}#)
- (#{combine 17627}#
- (map cdr #{r* 18734}#)
- #{r 18735}#)))))
- (#{match* 17628}#
- (lambda (#{e 17658}#
- #{p 17659}#
- #{w 17660}#
- #{r 17661}#
- #{mod 17662}#)
- (if (null? #{p 17659}#)
- (if (null? #{e 17658}#) #{r 17661}# #f)
- (if (pair? #{p 17659}#)
- (if (pair? #{e 17658}#)
- (#{match 17629}#
- (car #{e 17658}#)
- (car #{p 17659}#)
- #{w 17660}#
- (#{match 17629}#
- (cdr #{e 17658}#)
- (cdr #{p 17659}#)
- #{w 17660}#
- #{r 17661}#
- #{mod 17662}#)
- #{mod 17662}#)
+ (eqv? #{atom-key 42275}# 'atom))
+ #{r 42274}#
+ (if (eqv? #{atom-key 42275}# 'vector)
+ (#{match-empty 41195}#
+ (vector-ref #{p 42273}# 1)
+ #{r 42274}#)))))))))))))
+ (#{combine 41196}#
+ (lambda (#{r* 42294}# #{r 42295}#)
+ (if (null? (car #{r* 42294}#))
+ #{r 42295}#
+ (cons (map car #{r* 42294}#)
+ (#{combine 41196}#
+ (map cdr #{r* 42294}#)
+ #{r 42295}#)))))
+ (#{match* 41197}#
+ (lambda (#{e 41227}#
+ #{p 41228}#
+ #{w 41229}#
+ #{r 41230}#
+ #{mod 41231}#)
+ (if (null? #{p 41228}#)
+ (if (null? #{e 41227}#) #{r 41230}# #f)
+ (if (pair? #{p 41228}#)
+ (if (pair? #{e 41227}#)
+ (#{match 41198}#
+ (car #{e 41227}#)
+ (car #{p 41228}#)
+ #{w 41229}#
+ (#{match 41198}#
+ (cdr #{e 41227}#)
+ (cdr #{p 41228}#)
+ #{w 41229}#
+ #{r 41230}#
+ #{mod 41231}#)
+ #{mod 41231}#)
#f)
- (if (eq? #{p 17659}# 'each-any)
- (let ((#{l 17667}#
- (#{match-each-any 17625}#
- #{e 17658}#
- #{w 17660}#
- #{mod 17662}#)))
- (if #{l 17667}#
- (cons #{l 17667}# #{r 17661}#)
+ (if (eq? #{p 41228}# 'each-any)
+ (let ((#{l 41236}#
+ (#{match-each-any 41194}#
+ #{e 41227}#
+ #{w 41229}#
+ #{mod 41231}#)))
+ (if #{l 41236}#
+ (cons #{l 41236}# #{r 41230}#)
#f))
- (let ((#{atom-key 17672}# (vector-ref #{p 17659}# 0)))
- (if (eqv? #{atom-key 17672}# 'each)
- (if (null? #{e 17658}#)
- (#{match-empty 17626}#
- (vector-ref #{p 17659}# 1)
- #{r 17661}#)
- (let ((#{l 17679}#
- (#{match-each 17623}#
- #{e 17658}#
- (vector-ref #{p 17659}# 1)
- #{w 17660}#
- #{mod 17662}#)))
- (if #{l 17679}#
+ (let ((#{atom-key 41241}# (vector-ref #{p 41228}# 0)))
+ (if (eqv? #{atom-key 41241}# 'each)
+ (if (null? #{e 41227}#)
+ (#{match-empty 41195}#
+ (vector-ref #{p 41228}# 1)
+ #{r 41230}#)
+ (let ((#{l 41248}#
+ (#{match-each 41192}#
+ #{e 41227}#
+ (vector-ref #{p 41228}# 1)
+ #{w 41229}#
+ #{mod 41231}#)))
+ (if #{l 41248}#
(letrec*
- ((#{collect 17682}#
- (lambda (#{l 17743}#)
- (if (null? (car #{l 17743}#))
- #{r 17661}#
- (cons (map car #{l 17743}#)
- (#{collect 17682}#
- (map cdr #{l 17743}#)))))))
- (#{collect 17682}# #{l 17679}#))
+ ((#{collect 41251}#
+ (lambda (#{l 41308}#)
+ (if (null? (car #{l 41308}#))
+ #{r 41230}#
+ (cons (map car #{l 41308}#)
+ (#{collect 41251}#
+ (map cdr #{l 41308}#)))))))
+ (#{collect 41251}# #{l 41248}#))
#f)))
- (if (eqv? #{atom-key 17672}# 'each+)
+ (if (eqv? #{atom-key 41241}# 'each+)
(call-with-values
(lambda ()
- (let ((#{x-pat 17752}# (vector-ref #{p 17659}# 1))
- (#{y-pat 17753}# (vector-ref #{p 17659}# 2))
- (#{z-pat 17754}# (vector-ref #{p 17659}# 3)))
+ (let ((#{x-pat 41317}# (vector-ref #{p 41228}# 1))
+ (#{y-pat 41318}# (vector-ref #{p 41228}# 2))
+ (#{z-pat 41319}# (vector-ref #{p 41228}# 3)))
(letrec*
- ((#{f 17758}#
- (lambda (#{e 17760}# #{w 17761}#)
- (if (pair? #{e 17760}#)
+ ((#{f 41323}#
+ (lambda (#{e 41325}# #{w 41326}#)
+ (if (pair? #{e 41325}#)
(call-with-values
(lambda ()
- (#{f 17758}#
- (cdr #{e 17760}#)
- #{w 17761}#))
- (lambda (#{xr* 17762}#
- #{y-pat 17763}#
- #{r 17764}#)
- (if #{r 17764}#
- (if (null? #{y-pat 17763}#)
- (let ((#{xr 17765}#
- (#{match 17629}#
- (car #{e 17760}#)
- #{x-pat 17752}#
- #{w 17761}#
+ (#{f 41323}#
+ (cdr #{e 41325}#)
+ #{w 41326}#))
+ (lambda (#{xr* 41327}#
+ #{y-pat 41328}#
+ #{r 41329}#)
+ (if #{r 41329}#
+ (if (null? #{y-pat 41328}#)
+ (let ((#{xr 41330}#
+ (#{match 41198}#
+ (car #{e 41325}#)
+ #{x-pat 41317}#
+ #{w 41326}#
'()
- #{mod 17662}#)))
- (if #{xr 17765}#
+ #{mod 41231}#)))
+ (if #{xr 41330}#
(values
- (cons #{xr 17765}#
- #{xr* 17762}#)
- #{y-pat 17763}#
- #{r 17764}#)
+ (cons #{xr 41330}#
+ #{xr* 41327}#)
+ #{y-pat 41328}#
+ #{r 41329}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat 17763}#)
- (#{match 17629}#
- (car #{e 17760}#)
- (car #{y-pat 17763}#)
- #{w 17761}#
- #{r 17764}#
- #{mod 17662}#)))
+ (cdr #{y-pat 41328}#)
+ (#{match 41198}#
+ (car #{e 41325}#)
+ (car #{y-pat 41328}#)
+ #{w 41326}#
+ #{r 41329}#
+ #{mod 41231}#)))
(values #f #f #f))))
- (if (if (vector? #{e 17760}#)
- (if (= (vector-length #{e 17760}#)
+ (if (if (vector? #{e 41325}#)
+ (if (= (vector-length #{e 41325}#)
4)
- (eq? (vector-ref #{e 17760}# 0)
+ (eq? (vector-ref #{e 41325}# 0)
'syntax-object)
#f)
#f)
- (#{f 17758}#
- (vector-ref #{e 17760}# 1)
- (let ((#{m1 17793}#
- (car #{w 17761}#))
- (#{s1 17794}#
- (cdr #{w 17761}#)))
- (if (null? #{m1 17793}#)
- (if (null? #{s1 17794}#)
- #{e 17760}#
- (cons (car #{e 17760}#)
- (let ((#{m2 17806}#
- (cdr #{e
17760}#)))
- (if (null? #{m2
17806}#)
- #{s1 17794}#
+ (#{f 41323}#
+ (vector-ref #{e 41325}# 1)
+ (let ((#{m1 41356}#
+ (car #{w 41326}#))
+ (#{s1 41357}#
+ (cdr #{w 41326}#)))
+ (if (null? #{m1 41356}#)
+ (if (null? #{s1 41357}#)
+ #{e 41325}#
+ (cons (car #{e 41325}#)
+ (let ((#{m2 41369}#
+ (cdr #{e
41325}#)))
+ (if (null? #{m2
41369}#)
+ #{s1 41357}#
(append
- #{s1 17794}#
- #{m2 17806}#)))))
- (cons (let ((#{m2 17816}#
- (car #{e 17760}#)))
- (if (null? #{m2 17816}#)
- #{m1 17793}#
+ #{s1 41357}#
+ #{m2 41369}#)))))
+ (cons (let ((#{m2 41379}#
+ (car #{e 41325}#)))
+ (if (null? #{m2 41379}#)
+ #{m1 41356}#
(append
- #{m1 17793}#
- #{m2 17816}#)))
- (let ((#{m2 17826}#
- (cdr #{e 17760}#)))
- (if (null? #{m2 17826}#)
- #{s1 17794}#
+ #{m1 41356}#
+ #{m2 41379}#)))
+ (let ((#{m2 41389}#
+ (cdr #{e 41325}#)))
+ (if (null? #{m2 41389}#)
+ #{s1 41357}#
(append
- #{s1 17794}#
- #{m2 17826}#)))))))
+ #{s1 41357}#
+ #{m2 41389}#)))))))
(values
'()
- #{y-pat 17753}#
- (#{match 17629}#
- #{e 17760}#
- #{z-pat 17754}#
- #{w 17761}#
- #{r 17661}#
- #{mod 17662}#)))))))
- (#{f 17758}# #{e 17658}# #{w 17660}#))))
- (lambda (#{xr* 17836}# #{y-pat 17837}# #{r 17838}#)
- (if #{r 17838}#
- (if (null? #{y-pat 17837}#)
- (if (null? #{xr* 17836}#)
- (#{match-empty 17626}#
- (vector-ref #{p 17659}# 1)
- #{r 17838}#)
- (#{combine 17627}# #{xr* 17836}# #{r 17838}#))
+ #{y-pat 41318}#
+ (#{match 41198}#
+ #{e 41325}#
+ #{z-pat 41319}#
+ #{w 41326}#
+ #{r 41230}#
+ #{mod 41231}#)))))))
+ (#{f 41323}# #{e 41227}# #{w 41229}#))))
+ (lambda (#{xr* 41399}# #{y-pat 41400}# #{r 41401}#)
+ (if #{r 41401}#
+ (if (null? #{y-pat 41400}#)
+ (if (null? #{xr* 41399}#)
+ (#{match-empty 41195}#
+ (vector-ref #{p 41228}# 1)
+ #{r 41401}#)
+ (#{combine 41196}# #{xr* 41399}# #{r 41401}#))
#f)
#f)))
- (if (eqv? #{atom-key 17672}# 'free-id)
- (if (if (symbol? #{e 17658}#)
+ (if (eqv? #{atom-key 41241}# 'free-id)
+ (if (if (symbol? #{e 41227}#)
#t
- (if (if (vector? #{e 17658}#)
- (if (= (vector-length #{e 17658}#) 4)
- (eq? (vector-ref #{e 17658}# 0)
+ (if (if (vector? #{e 41227}#)
+ (if (= (vector-length #{e 41227}#) 4)
+ (eq? (vector-ref #{e 41227}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 17658}# 1))
+ (symbol? (vector-ref #{e 41227}# 1))
#f))
- (if (#{free-id=? 4431}#
- (if (if (null? (car #{w 17660}#))
- (null? (cdr #{w 17660}#))
+ (if (#{free-id=? 28259}#
+ (if (if (null? (car #{w 41229}#))
+ (null? (cdr #{w 41229}#))
#f)
- #{e 17658}#
- (if (if (vector? #{e 17658}#)
- (if (= (vector-length #{e 17658}#) 4)
- (eq? (vector-ref #{e 17658}# 0)
+ #{e 41227}#
+ (if (if (vector? #{e 41227}#)
+ (if (= (vector-length #{e 41227}#) 4)
+ (eq? (vector-ref #{e 41227}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 18269}#
- (vector-ref #{e 17658}# 1))
- (#{wrap 18270}#
- (let ((#{w2 18280}#
+ (let ((#{expression 41829}#
+ (vector-ref #{e 41227}# 1))
+ (#{wrap 41830}#
+ (let ((#{w2 41840}#
(vector-ref
- #{e 17658}#
+ #{e 41227}#
2)))
- (let ((#{m1 18281}#
- (car #{w 17660}#))
- (#{s1 18282}#
- (cdr #{w 17660}#)))
- (if (null? #{m1 18281}#)
- (if (null? #{s1 18282}#)
- #{w2 18280}#
- (cons (car #{w2 18280}#)
- (let ((#{m2 18299}#
- (cdr #{w2
18280}#)))
- (if (null? #{m2
18299}#)
- #{s1 18282}#
+ (let ((#{m1 41841}#
+ (car #{w 41229}#))
+ (#{s1 41842}#
+ (cdr #{w 41229}#)))
+ (if (null? #{m1 41841}#)
+ (if (null? #{s1 41842}#)
+ #{w2 41840}#
+ (cons (car #{w2 41840}#)
+ (let ((#{m2 41859}#
+ (cdr #{w2
41840}#)))
+ (if (null? #{m2
41859}#)
+ #{s1 41842}#
(append
- #{s1 18282}#
- #{m2
18299}#)))))
- (cons (let ((#{m2 18307}#
- (car #{w2
18280}#)))
- (if (null? #{m2
18307}#)
- #{m1 18281}#
+ #{s1 41842}#
+ #{m2
41859}#)))))
+ (cons (let ((#{m2 41867}#
+ (car #{w2
41840}#)))
+ (if (null? #{m2
41867}#)
+ #{m1 41841}#
(append
- #{m1 18281}#
- #{m2 18307}#)))
- (let ((#{m2 18315}#
- (cdr #{w2
18280}#)))
- (if (null? #{m2
18315}#)
- #{s1 18282}#
+ #{m1 41841}#
+ #{m2 41867}#)))
+ (let ((#{m2 41875}#
+ (cdr #{w2
41840}#)))
+ (if (null? #{m2
41875}#)
+ #{s1 41842}#
(append
- #{s1 18282}#
- #{m2
18315}#))))))))
- (#{module 18271}#
- (vector-ref #{e 17658}# 3)))
+ #{s1 41842}#
+ #{m2
41875}#))))))))
+ (#{module 41831}#
+ (vector-ref #{e 41227}# 3)))
(vector
'syntax-object
- #{expression 18269}#
- #{wrap 18270}#
- #{module 18271}#))
- (if (null? #{e 17658}#)
- #{e 17658}#
+ #{expression 41829}#
+ #{wrap 41830}#
+ #{module 41831}#))
+ (if (null? #{e 41227}#)
+ #{e 41227}#
(vector
'syntax-object
- #{e 17658}#
- #{w 17660}#
- #{mod 17662}#))))
- (vector-ref #{p 17659}# 1))
- #{r 17661}#
+ #{e 41227}#
+ #{w 41229}#
+ #{mod 41231}#))))
+ (vector-ref #{p 41228}# 1))
+ #{r 41230}#
#f)
#f)
- (if (eqv? #{atom-key 17672}# 'atom)
+ (if (eqv? #{atom-key 41241}# 'atom)
(if (equal?
- (vector-ref #{p 17659}# 1)
- (#{strip 4456}# #{e 17658}# #{w 17660}#))
- #{r 17661}#
+ (vector-ref #{p 41228}# 1)
+ (#{strip 28284}# #{e 41227}# #{w 41229}#))
+ #{r 41230}#
#f)
- (if (eqv? #{atom-key 17672}# 'vector)
- (if (vector? #{e 17658}#)
- (#{match 17629}#
- (vector->list #{e 17658}#)
- (vector-ref #{p 17659}# 1)
- #{w 17660}#
- #{r 17661}#
- #{mod 17662}#)
+ (if (eqv? #{atom-key 41241}# 'vector)
+ (if (vector? #{e 41227}#)
+ (#{match 41198}#
+ (vector->list #{e 41227}#)
+ (vector-ref #{p 41228}# 1)
+ #{w 41229}#
+ #{r 41230}#
+ #{mod 41231}#)
#f))))))))))))
- (#{match 17629}#
- (lambda (#{e 18348}#
- #{p 18349}#
- #{w 18350}#
- #{r 18351}#
- #{mod 18352}#)
- (if (not #{r 18351}#)
+ (#{match 41198}#
+ (lambda (#{e 41908}#
+ #{p 41909}#
+ #{w 41910}#
+ #{r 41911}#
+ #{mod 41912}#)
+ (if (not #{r 41911}#)
#f
- (if (eq? #{p 18349}# '_)
- #{r 18351}#
- (if (eq? #{p 18349}# 'any)
- (cons (if (if (null? (car #{w 18350}#))
- (null? (cdr #{w 18350}#))
+ (if (eq? #{p 41909}# '_)
+ #{r 41911}#
+ (if (eq? #{p 41909}# 'any)
+ (cons (if (if (null? (car #{w 41910}#))
+ (null? (cdr #{w 41910}#))
#f)
- #{e 18348}#
- (if (if (vector? #{e 18348}#)
- (if (= (vector-length #{e 18348}#) 4)
- (eq? (vector-ref #{e 18348}# 0)
+ #{e 41908}#
+ (if (if (vector? #{e 41908}#)
+ (if (= (vector-length #{e 41908}#) 4)
+ (eq? (vector-ref #{e 41908}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 18382}#
- (vector-ref #{e 18348}# 1))
- (#{wrap 18383}#
- (let ((#{w2 18393}#
- (vector-ref #{e 18348}# 2)))
- (let ((#{m1 18394}# (car #{w 18350}#))
- (#{s1 18395}# (cdr #{w 18350}#)))
- (if (null? #{m1 18394}#)
- (if (null? #{s1 18395}#)
- #{w2 18393}#
- (cons (car #{w2 18393}#)
- (let ((#{m2 18412}#
- (cdr #{w2 18393}#)))
- (if (null? #{m2 18412}#)
- #{s1 18395}#
+ (let ((#{expression 41942}#
+ (vector-ref #{e 41908}# 1))
+ (#{wrap 41943}#
+ (let ((#{w2 41953}#
+ (vector-ref #{e 41908}# 2)))
+ (let ((#{m1 41954}# (car #{w 41910}#))
+ (#{s1 41955}# (cdr #{w 41910}#)))
+ (if (null? #{m1 41954}#)
+ (if (null? #{s1 41955}#)
+ #{w2 41953}#
+ (cons (car #{w2 41953}#)
+ (let ((#{m2 41972}#
+ (cdr #{w2 41953}#)))
+ (if (null? #{m2 41972}#)
+ #{s1 41955}#
(append
- #{s1 18395}#
- #{m2 18412}#)))))
- (cons (let ((#{m2 18420}#
- (car #{w2 18393}#)))
- (if (null? #{m2 18420}#)
- #{m1 18394}#
+ #{s1 41955}#
+ #{m2 41972}#)))))
+ (cons (let ((#{m2 41980}#
+ (car #{w2 41953}#)))
+ (if (null? #{m2 41980}#)
+ #{m1 41954}#
(append
- #{m1 18394}#
- #{m2 18420}#)))
- (let ((#{m2 18428}#
- (cdr #{w2 18393}#)))
- (if (null? #{m2 18428}#)
- #{s1 18395}#
+ #{m1 41954}#
+ #{m2 41980}#)))
+ (let ((#{m2 41988}#
+ (cdr #{w2 41953}#)))
+ (if (null? #{m2 41988}#)
+ #{s1 41955}#
(append
- #{s1 18395}#
- #{m2 18428}#))))))))
- (#{module 18384}# (vector-ref #{e 18348}# 3)))
+ #{s1 41955}#
+ #{m2 41988}#))))))))
+ (#{module 41944}# (vector-ref #{e 41908}# 3)))
(vector
'syntax-object
- #{expression 18382}#
- #{wrap 18383}#
- #{module 18384}#))
- (if (null? #{e 18348}#)
- #{e 18348}#
+ #{expression 41942}#
+ #{wrap 41943}#
+ #{module 41944}#))
+ (if (null? #{e 41908}#)
+ #{e 41908}#
(vector
'syntax-object
- #{e 18348}#
- #{w 18350}#
- #{mod 18352}#))))
- #{r 18351}#)
- (if (if (vector? #{e 18348}#)
- (if (= (vector-length #{e 18348}#) 4)
- (eq? (vector-ref #{e 18348}# 0) 'syntax-object)
+ #{e 41908}#
+ #{w 41910}#
+ #{mod 41912}#))))
+ #{r 41911}#)
+ (if (if (vector? #{e 41908}#)
+ (if (= (vector-length #{e 41908}#) 4)
+ (eq? (vector-ref #{e 41908}# 0) 'syntax-object)
#f)
#f)
- (#{match* 17628}#
- (vector-ref #{e 18348}# 1)
- #{p 18349}#
- (let ((#{w2 18471}# (vector-ref #{e 18348}# 2)))
- (let ((#{m1 18472}# (car #{w 18350}#))
- (#{s1 18473}# (cdr #{w 18350}#)))
- (if (null? #{m1 18472}#)
- (if (null? #{s1 18473}#)
- #{w2 18471}#
- (cons (car #{w2 18471}#)
- (let ((#{m2 18484}# (cdr #{w2 18471}#)))
- (if (null? #{m2 18484}#)
- #{s1 18473}#
- (append #{s1 18473}# #{m2 18484}#)))))
- (cons (let ((#{m2 18492}# (car #{w2 18471}#)))
- (if (null? #{m2 18492}#)
- #{m1 18472}#
- (append #{m1 18472}# #{m2 18492}#)))
- (let ((#{m2 18500}# (cdr #{w2 18471}#)))
- (if (null? #{m2 18500}#)
- #{s1 18473}#
- (append #{s1 18473}# #{m2 18500}#)))))))
- #{r 18351}#
- (vector-ref #{e 18348}# 3))
- (#{match* 17628}#
- #{e 18348}#
- #{p 18349}#
- #{w 18350}#
- #{r 18351}#
- #{mod 18352}#))))))))
+ (#{match* 41197}#
+ (vector-ref #{e 41908}# 1)
+ #{p 41909}#
+ (let ((#{w2 42031}# (vector-ref #{e 41908}# 2)))
+ (let ((#{m1 42032}# (car #{w 41910}#))
+ (#{s1 42033}# (cdr #{w 41910}#)))
+ (if (null? #{m1 42032}#)
+ (if (null? #{s1 42033}#)
+ #{w2 42031}#
+ (cons (car #{w2 42031}#)
+ (let ((#{m2 42044}# (cdr #{w2 42031}#)))
+ (if (null? #{m2 42044}#)
+ #{s1 42033}#
+ (append #{s1 42033}# #{m2 42044}#)))))
+ (cons (let ((#{m2 42052}# (car #{w2 42031}#)))
+ (if (null? #{m2 42052}#)
+ #{m1 42032}#
+ (append #{m1 42032}# #{m2 42052}#)))
+ (let ((#{m2 42060}# (cdr #{w2 42031}#)))
+ (if (null? #{m2 42060}#)
+ #{s1 42033}#
+ (append #{s1 42033}# #{m2 42060}#)))))))
+ #{r 41911}#
+ (vector-ref #{e 41908}# 3))
+ (#{match* 41197}#
+ #{e 41908}#
+ #{p 41909}#
+ #{w 41910}#
+ #{r 41911}#
+ #{mod 41912}#))))))))
(set! $sc-dispatch
- (lambda (#{e 17630}# #{p 17631}#)
- (if (eq? #{p 17631}# 'any)
- (list #{e 17630}#)
- (if (eq? #{p 17631}# '_)
+ (lambda (#{e 41199}# #{p 41200}#)
+ (if (eq? #{p 41200}# 'any)
+ (list #{e 41199}#)
+ (if (eq? #{p 41200}# '_)
'()
- (if (if (vector? #{e 17630}#)
- (if (= (vector-length #{e 17630}#) 4)
- (eq? (vector-ref #{e 17630}# 0) 'syntax-object)
+ (if (if (vector? #{e 41199}#)
+ (if (= (vector-length #{e 41199}#) 4)
+ (eq? (vector-ref #{e 41199}# 0) 'syntax-object)
#f)
#f)
- (#{match* 17628}#
- (vector-ref #{e 17630}# 1)
- #{p 17631}#
- (vector-ref #{e 17630}# 2)
+ (#{match* 41197}#
+ (vector-ref #{e 41199}# 1)
+ #{p 41200}#
+ (vector-ref #{e 41199}# 2)
'()
- (vector-ref #{e 17630}# 3))
- (#{match* 17628}#
- #{e 17630}#
- #{p 17631}#
+ (vector-ref #{e 41199}# 3))
+ (#{match* 41197}#
+ #{e 41199}#
+ #{p 41200}#
'(())
'()
#f)))))))))
@@ -17731,21 +17786,21 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 36772}#)
- (let ((#{tmp 36774}#
- ($sc-dispatch #{x 36772}# '(_ () any . each-any))))
- (if #{tmp 36774}#
+ (lambda (#{x 59996}#)
+ (let ((#{tmp 59998}#
+ ($sc-dispatch #{x 59996}# '(_ () any . each-any))))
+ (if #{tmp 59998}#
(@apply
- (lambda (#{e1 36778}# #{e2 36779}#)
+ (lambda (#{e1 60002}# #{e2 60003}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i36745" "i36746"))
+ #("i59969" "i59970"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36742"))
+ #(ribcage #(x) #((top)) #("i59966"))
#(ribcage
(with-syntax)
((top))
@@ -17756,27 +17811,27 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons '() (cons #{e1 36778}# #{e2 36779}#))))
- #{tmp 36774}#)
- (let ((#{tmp 36780}#
+ (cons '() (cons #{e1 60002}# #{e2 60003}#))))
+ #{tmp 59998}#)
+ (let ((#{tmp 60004}#
($sc-dispatch
- #{x 36772}#
+ #{x 59996}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 36780}#
+ (if #{tmp 60004}#
(@apply
- (lambda (#{out 36784}#
- #{in 36785}#
- #{e1 36786}#
- #{e2 36787}#)
+ (lambda (#{out 60008}#
+ #{in 60009}#
+ #{e1 60010}#
+ #{e2 60011}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i36751" "i36752" "i36753" "i36754"))
+ #("i59975" "i59976" "i59977" "i59978"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36742"))
+ #(ribcage #(x) #((top)) #("i59966"))
#(ribcage
(with-syntax)
((top))
@@ -17787,21 +17842,21 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{in 36785}#
+ #{in 60009}#
'()
- (list #{out 36784}#
+ (list #{out 60008}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i36751"
- "i36752"
- "i36753"
- "i36754"))
+ #("i59975"
+ "i59976"
+ "i59977"
+ "i59978"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36742"))
+ #(ribcage #(x) #((top)) #("i59966"))
#(ribcage
(with-syntax)
((top))
@@ -17813,27 +17868,27 @@
(hygiene guile))))))
(hygiene guile))
(cons '()
- (cons #{e1 36786}# #{e2 36787}#))))))
- #{tmp 36780}#)
- (let ((#{tmp 36788}#
+ (cons #{e1 60010}# #{e2 60011}#))))))
+ #{tmp 60004}#)
+ (let ((#{tmp 60012}#
($sc-dispatch
- #{x 36772}#
+ #{x 59996}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 36788}#
+ (if #{tmp 60012}#
(@apply
- (lambda (#{out 36792}#
- #{in 36793}#
- #{e1 36794}#
- #{e2 36795}#)
+ (lambda (#{out 60016}#
+ #{in 60017}#
+ #{e1 60018}#
+ #{e2 60019}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i36761" "i36762" "i36763" "i36764"))
+ #("i59985" "i59986" "i59987" "i59988"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36742"))
+ #(ribcage #(x) #((top)) #("i59966"))
#(ribcage
(with-syntax)
((top))
@@ -17850,9 +17905,9 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i36761" "i36762" "i36763" "i36764"))
+ #("i59985" "i59986" "i59987" "i59988"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36742"))
+ #(ribcage #(x) #((top)) #("i59966"))
#(ribcage
(with-syntax)
((top))
@@ -17863,24 +17918,24 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{in 36793}#)
+ #{in 60017}#)
'()
- (list #{out 36792}#
+ (list #{out 60016}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i36761"
- "i36762"
- "i36763"
- "i36764"))
+ #("i59985"
+ "i59986"
+ "i59987"
+ "i59988"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i36742"))
+ #("i59966"))
#(ribcage
(with-syntax)
((top))
@@ -17892,38 +17947,38 @@
(hygiene guile))))))
(hygiene guile))
(cons '()
- (cons #{e1 36794}#
- #{e2 36795}#))))))
- #{tmp 36788}#)
+ (cons #{e1 60018}#
+ #{e2 60019}#))))))
+ #{tmp 60012}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 36772}#))))))))))
+ #{x 59996}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 36850}#)
- (let ((#{tmp 36852}#
+ (lambda (#{x 60074}#)
+ (let ((#{tmp 60076}#
($sc-dispatch
- #{x 36850}#
+ #{x 60074}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 36852}#
+ (if #{tmp 60076}#
(@apply
- (lambda (#{k 36856}#
- #{keyword 36857}#
- #{pattern 36858}#
- #{template 36859}#)
+ (lambda (#{k 60080}#
+ #{keyword 60081}#
+ #{pattern 60082}#
+ #{template 60083}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i36813" "i36814" "i36815" "i36816"))
+ #("i60037" "i60038" "i60039" "i60040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -17940,9 +17995,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i36813" "i36814" "i36815" "i36816"))
+ #("i60037" "i60038" "i60039" "i60040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -17960,9 +18015,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i36813" "i36814" "i36815" "i36816"))
+ #("i60037" "i60038" "i60039" "i60040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -17980,9 +18035,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i36813" "i36814" "i36815" "i36816"))
+ #("i60037" "i60038" "i60039" "i60040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -17999,9 +18054,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i36813" "i36814" "i36815" "i36816"))
+ #("i60037" "i60038" "i60039" "i60040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18012,16 +18067,16 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{pattern 36858}#))
+ #{pattern 60082}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i36813" "i36814" "i36815" "i36816"))
+ #("i60037" "i60038" "i60039" "i60040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18038,9 +18093,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i36813" "i36814" "i36815" "i36816"))
+ #("i60037" "i60038" "i60039" "i60040"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18051,9 +18106,9 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{k 36856}#
- (map (lambda (#{tmp 36824 36860}#
- #{tmp 36823 36861}#)
+ (cons #{k 60080}#
+ (map (lambda (#{tmp 60048 60084}#
+ #{tmp 60047 60085}#)
(list (cons '#(syntax-object
_
((top)
@@ -18066,10 +18121,10 @@
(top)
(top)
(top))
- #("i36813"
- "i36814"
- "i36815"
- "i36816"))
+ #("i60037"
+ "i60038"
+ "i60039"
+ "i60040"))
#(ribcage
()
()
@@ -18077,7 +18132,7 @@
#(ribcage
#(x)
#((top))
- #("i36810"))
+ #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18090,7 +18145,7 @@
(hygiene
guile))))))
(hygiene guile))
- #{tmp 36823 36861}#)
+ #{tmp 60047 60085}#)
(list '#(syntax-object
syntax
((top)
@@ -18103,10 +18158,10 @@
(top)
(top)
(top))
- #("i36813"
- "i36814"
- "i36815"
- "i36816"))
+ #("i60037"
+ "i60038"
+ "i60039"
+ "i60040"))
#(ribcage
()
()
@@ -18114,7 +18169,7 @@
#(ribcage
#(x)
#((top))
- #("i36810"))
+ #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18127,39 +18182,39 @@
(hygiene
guile))))))
(hygiene guile))
- #{tmp 36824 36860}#)))
- #{template 36859}#
- #{pattern 36858}#))))))
- #{tmp 36852}#)
- (let ((#{tmp 36862}#
+ #{tmp 60048 60084}#)))
+ #{template 60083}#
+ #{pattern 60082}#))))))
+ #{tmp 60076}#)
+ (let ((#{tmp 60086}#
($sc-dispatch
- #{x 36850}#
+ #{x 60074}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 36862}#
+ (if (if #{tmp 60086}#
(@apply
- (lambda (#{k 36866}#
- #{docstring 36867}#
- #{keyword 36868}#
- #{pattern 36869}#
- #{template 36870}#)
- (string? (syntax->datum #{docstring 36867}#)))
- #{tmp 36862}#)
+ (lambda (#{k 60090}#
+ #{docstring 60091}#
+ #{keyword 60092}#
+ #{pattern 60093}#
+ #{template 60094}#)
+ (string? (syntax->datum #{docstring 60091}#)))
+ #{tmp 60086}#)
#f)
(@apply
- (lambda (#{k 36871}#
- #{docstring 36872}#
- #{keyword 36873}#
- #{pattern 36874}#
- #{template 36875}#)
+ (lambda (#{k 60095}#
+ #{docstring 60096}#
+ #{keyword 60097}#
+ #{pattern 60098}#
+ #{template 60099}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i36836" "i36837" "i36838" "i36839" "i36840"))
+ #("i60060" "i60061" "i60062" "i60063" "i60064"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18176,9 +18231,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i36836" "i36837" "i36838" "i36839" "i36840"))
+ #("i60060" "i60061" "i60062" "i60063" "i60064"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18189,7 +18244,7 @@
((top))
(hygiene guile))))))
(hygiene guile)))
- #{docstring 36872}#
+ #{docstring 60096}#
(vector
'(#(syntax-object
macro-type
@@ -18197,13 +18252,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i36836"
- "i36837"
- "i36838"
- "i36839"
- "i36840"))
+ #("i60060"
+ "i60061"
+ "i60062"
+ "i60063"
+ "i60064"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18221,13 +18276,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i36836"
- "i36837"
- "i36838"
- "i36839"
- "i36840"))
+ #("i60060"
+ "i60061"
+ "i60062"
+ "i60063"
+ "i60064"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18244,13 +18299,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i36836"
- "i36837"
- "i36838"
- "i36839"
- "i36840"))
+ #("i60060"
+ "i60061"
+ "i60062"
+ "i60063"
+ "i60064"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18261,20 +18316,20 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{pattern 36874}#))
+ #{pattern 60098}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i36836"
- "i36837"
- "i36838"
- "i36839"
- "i36840"))
+ #("i60060"
+ "i60061"
+ "i60062"
+ "i60063"
+ "i60064"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18295,13 +18350,13 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i36836"
- "i36837"
- "i36838"
- "i36839"
- "i36840"))
+ #("i60060"
+ "i60061"
+ "i60062"
+ "i60063"
+ "i60064"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36810"))
+ #(ribcage #(x) #((top)) #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18312,9 +18367,9 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{k 36871}#
- (map (lambda (#{tmp 36849 36876}#
- #{tmp 36848 36877}#)
+ (cons #{k 60095}#
+ (map (lambda (#{tmp 60073 60100}#
+ #{tmp 60072 60101}#)
(list (cons '#(syntax-object
_
((top)
@@ -18329,11 +18384,11 @@
(top)
(top)
(top))
- #("i36836"
- "i36837"
- "i36838"
- "i36839"
- "i36840"))
+ #("i60060"
+ "i60061"
+ "i60062"
+ "i60063"
+ "i60064"))
#(ribcage
()
()
@@ -18341,7 +18396,7 @@
#(ribcage
#(x)
#((top))
- #("i36810"))
+ #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18355,7 +18410,7 @@
guile))))))
(hygiene
guile))
- #{tmp 36848
36877}#)
+ #{tmp 60072
60101}#)
(list '#(syntax-object
syntax
((top)
@@ -18370,11 +18425,11 @@
(top)
(top)
(top))
- #("i36836"
- "i36837"
- "i36838"
- "i36839"
- "i36840"))
+ #("i60060"
+ "i60061"
+ "i60062"
+ "i60063"
+ "i60064"))
#(ribcage
()
()
@@ -18382,7 +18437,7 @@
#(ribcage
#(x)
#((top))
- #("i36810"))
+ #("i60034"))
#(ribcage
(syntax-rules)
((top))
@@ -18396,36 +18451,36 @@
guile))))))
(hygiene
guile))
- #{tmp 36849
36876}#)))
- #{template 36875}#
- #{pattern 36874}#))))))
- #{tmp 36862}#)
+ #{tmp 60073
60100}#)))
+ #{template 60099}#
+ #{pattern 60098}#))))))
+ #{tmp 60086}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 36850}#))))))))
+ #{x 60074}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x 36915}#)
- (let ((#{tmp 36917}#
- ($sc-dispatch #{x 36915}# '(_ (any . any) any))))
- (if #{tmp 36917}#
+ (lambda (#{x 60139}#)
+ (let ((#{tmp 60141}#
+ ($sc-dispatch #{x 60139}# '(_ (any . any) any))))
+ (if #{tmp 60141}#
(@apply
- (lambda (#{name 36921}#
- #{pattern 36922}#
- #{template 36923}#)
+ (lambda (#{name 60145}#
+ #{pattern 60146}#
+ #{template 60147}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i36892" "i36893" "i36894"))
+ #("i60116" "i60117" "i60118"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36889"))
+ #(ribcage #(x) #((top)) #("i60113"))
#(ribcage
(define-syntax-rule)
((top))
@@ -18436,16 +18491,16 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{name 36921}#
+ #{name 60145}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i36892" "i36893" "i36894"))
+ #("i60116" "i60117" "i60118"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36889"))
+ #(ribcage #(x) #((top)) #("i60113"))
#(ribcage
(define-syntax-rule)
((top))
@@ -18463,9 +18518,9 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i36892" "i36893" "i36894"))
+ #("i60116" "i60117" "i60118"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36889"))
+ #(ribcage #(x) #((top)) #("i60113"))
#(ribcage
(define-syntax-rule)
((top))
@@ -18476,36 +18531,36 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{pattern 36922}#)
- #{template 36923}#))))
- #{tmp 36917}#)
- (let ((#{tmp 36924}#
+ #{pattern 60146}#)
+ #{template 60147}#))))
+ #{tmp 60141}#)
+ (let ((#{tmp 60148}#
($sc-dispatch
- #{x 36915}#
+ #{x 60139}#
'(_ (any . any) any any))))
- (if (if #{tmp 36924}#
+ (if (if #{tmp 60148}#
(@apply
- (lambda (#{name 36928}#
- #{pattern 36929}#
- #{docstring 36930}#
- #{template 36931}#)
- (string? (syntax->datum #{docstring 36930}#)))
- #{tmp 36924}#)
+ (lambda (#{name 60152}#
+ #{pattern 60153}#
+ #{docstring 60154}#
+ #{template 60155}#)
+ (string? (syntax->datum #{docstring 60154}#)))
+ #{tmp 60148}#)
#f)
(@apply
- (lambda (#{name 36932}#
- #{pattern 36933}#
- #{docstring 36934}#
- #{template 36935}#)
+ (lambda (#{name 60156}#
+ #{pattern 60157}#
+ #{docstring 60158}#
+ #{template 60159}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i36907" "i36908" "i36909" "i36910"))
+ #("i60131" "i60132" "i60133" "i60134"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36889"))
+ #(ribcage #(x) #((top)) #("i60113"))
#(ribcage
(define-syntax-rule)
((top))
@@ -18516,16 +18571,16 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{name 36932}#
+ #{name 60156}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i36907" "i36908" "i36909" "i36910"))
+ #("i60131" "i60132" "i60133" "i60134"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36889"))
+ #(ribcage #(x) #((top)) #("i60113"))
#(ribcage
(define-syntax-rule)
((top))
@@ -18537,7 +18592,7 @@
(hygiene guile))))))
(hygiene guile))
'()
- #{docstring 36934}#
+ #{docstring 60158}#
(list (cons '#(syntax-object
_
((top)
@@ -18547,15 +18602,15 @@
docstring
template)
#((top) (top) (top) (top))
- #("i36907"
- "i36908"
- "i36909"
- "i36910"))
+ #("i60131"
+ "i60132"
+ "i60133"
+ "i60134"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i36889"))
+ #("i60113"))
#(ribcage
(define-syntax-rule)
((top))
@@ -18566,43 +18621,43 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{pattern 36933}#)
- #{template 36935}#))))
- #{tmp 36924}#)
+ #{pattern 60157}#)
+ #{template 60159}#))))
+ #{tmp 60148}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 36915}#))))))))
+ #{x 60139}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 36985}#)
- (let ((#{tmp 36987}#
+ (lambda (#{x 60209}#)
+ (let ((#{tmp 60211}#
($sc-dispatch
- #{x 36985}#
+ #{x 60209}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 36987}#
+ (if (if #{tmp 60211}#
(@apply
- (lambda (#{let* 36991}#
- #{x 36992}#
- #{v 36993}#
- #{e1 36994}#
- #{e2 36995}#)
- (and-map identifier? #{x 36992}#))
- #{tmp 36987}#)
+ (lambda (#{let* 60215}#
+ #{x 60216}#
+ #{v 60217}#
+ #{e1 60218}#
+ #{e2 60219}#)
+ (and-map identifier? #{x 60216}#))
+ #{tmp 60211}#)
#f)
(@apply
- (lambda (#{let* 36996}#
- #{x 36997}#
- #{v 36998}#
- #{e1 36999}#
- #{e2 37000}#)
+ (lambda (#{let* 60220}#
+ #{x 60221}#
+ #{v 60222}#
+ #{e1 60223}#
+ #{e2 60224}#)
(letrec*
- ((#{f 37001}#
- (lambda (#{bindings 37004}#)
- (if (null? #{bindings 37004}#)
+ ((#{f 60225}#
+ (lambda (#{bindings 60228}#)
+ (if (null? #{bindings 60228}#)
(cons '#(syntax-object
let
((top)
@@ -18610,17 +18665,17 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i36971" "i36972"))
+ #("i60195" "i60196"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i36961"
- "i36962"
- "i36963"
- "i36964"
- "i36965"))
+ #("i60185"
+ "i60186"
+ "i60187"
+ "i60188"
+ "i60189"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36947"))
+ #(ribcage #(x) #((top)) #("i60171"))
#(ribcage
(let*)
((top))
@@ -18631,15 +18686,15 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons '() (cons #{e1 36999}# #{e2 37000}#)))
- (let ((#{tmp 37005}#
- (list (#{f 37001}# (cdr #{bindings 37004}#))
- (car #{bindings 37004}#))))
- (let ((#{tmp 37006}#
- ($sc-dispatch #{tmp 37005}# '(any any))))
- (if #{tmp 37006}#
+ (cons '() (cons #{e1 60223}# #{e2 60224}#)))
+ (let ((#{tmp 60229}#
+ (list (#{f 60225}# (cdr #{bindings 60228}#))
+ (car #{bindings 60228}#))))
+ (let ((#{tmp 60230}#
+ ($sc-dispatch #{tmp 60229}# '(any any))))
+ (if #{tmp 60230}#
(@apply
- (lambda (#{body 37008}# #{binding 37009}#)
+ (lambda (#{body 60232}# #{binding 60233}#)
(list '#(syntax-object
let
((top)
@@ -18647,22 +18702,22 @@
#(ribcage
#(body binding)
#((top) (top))
- #("i36981" "i36982"))
+ #("i60205" "i60206"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i36971" "i36972"))
+ #("i60195" "i60196"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i36961"
- "i36962"
- "i36963"
- "i36964"
- "i36965"))
+ #("i60185"
+ "i60186"
+ "i60187"
+ "i60188"
+ "i60189"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36947"))
+ #(ribcage #(x) #((top)) #("i60171"))
#(ribcage
(let*)
((top))
@@ -18673,66 +18728,66 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (list #{binding 37009}#)
- #{body 37008}#))
- #{tmp 37006}#)
+ (list #{binding 60233}#)
+ #{body 60232}#))
+ #{tmp 60230}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37005}#))))))))
- (#{f 37001}# (map list #{x 36997}# #{v 36998}#))))
- #{tmp 36987}#)
+ #{tmp 60229}#))))))))
+ (#{f 60225}# (map list #{x 60221}# #{v 60222}#))))
+ #{tmp 60211}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 36985}#))))))
+ #{x 60209}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 37068}#)
- (let ((#{tmp 37070}#
+ (lambda (#{orig-x 60292}#)
+ (let ((#{tmp 60294}#
($sc-dispatch
- #{orig-x 37068}#
+ #{orig-x 60292}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 37070}#
+ (if #{tmp 60294}#
(@apply
- (lambda (#{var 37074}#
- #{init 37075}#
- #{step 37076}#
- #{e0 37077}#
- #{e1 37078}#
- #{c 37079}#)
- (let ((#{tmp 37080}#
- (map (lambda (#{v 37083}# #{s 37084}#)
- (let ((#{tmp 37086}#
- ($sc-dispatch #{s 37084}# '())))
- (if #{tmp 37086}#
- (@apply (lambda () #{v 37083}#) #{tmp 37086}#)
- (let ((#{tmp 37089}#
- ($sc-dispatch #{s 37084}# '(any))))
- (if #{tmp 37089}#
+ (lambda (#{var 60298}#
+ #{init 60299}#
+ #{step 60300}#
+ #{e0 60301}#
+ #{e1 60302}#
+ #{c 60303}#)
+ (let ((#{tmp 60304}#
+ (map (lambda (#{v 60307}# #{s 60308}#)
+ (let ((#{tmp 60310}#
+ ($sc-dispatch #{s 60308}# '())))
+ (if #{tmp 60310}#
+ (@apply (lambda () #{v 60307}#) #{tmp 60310}#)
+ (let ((#{tmp 60313}#
+ ($sc-dispatch #{s 60308}# '(any))))
+ (if #{tmp 60313}#
(@apply
- (lambda (#{e 37092}#) #{e 37092}#)
- #{tmp 37089}#)
+ (lambda (#{e 60316}#) #{e 60316}#)
+ #{tmp 60313}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x 37068}#
- #{s 37084}#))))))
- #{var 37074}#
- #{step 37076}#)))
- (let ((#{tmp 37081}#
- ($sc-dispatch #{tmp 37080}# 'each-any)))
- (if #{tmp 37081}#
+ #{orig-x 60292}#
+ #{s 60308}#))))))
+ #{var 60298}#
+ #{step 60300}#)))
+ (let ((#{tmp 60305}#
+ ($sc-dispatch #{tmp 60304}# 'each-any)))
+ (if #{tmp 60305}#
(@apply
- (lambda (#{step 37098}#)
- (let ((#{tmp 37100}# ($sc-dispatch #{e1 37078}# '())))
- (if #{tmp 37100}#
+ (lambda (#{step 60322}#)
+ (let ((#{tmp 60324}# ($sc-dispatch #{e1 60302}# '())))
+ (if #{tmp 60324}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -18742,7 +18797,7 @@
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18751,17 +18806,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -18779,7 +18834,7 @@
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18788,17 +18843,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -18809,7 +18864,7 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (map list #{var 37074}# #{init 37075}#)
+ (map list #{var 60298}# #{init 60299}#)
(list '#(syntax-object
if
((top)
@@ -18817,7 +18872,7 @@
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18826,17 +18881,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -18854,7 +18909,7 @@
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var
init
@@ -18868,17 +18923,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -18890,7 +18945,7 @@
(hygiene
guile))))))
(hygiene guile))
- #{e0 37077}#)
+ #{e0 60301}#)
(cons '#(syntax-object
begin
((top)
@@ -18898,7 +18953,7 @@
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var
init
@@ -18912,17 +18967,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -18935,7 +18990,7 @@
guile))))))
(hygiene guile))
(append
- #{c 37079}#
+ #{c 60303}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -18946,7 +19001,7 @@
#(ribcage
#(step)
#((top))
-
#("i37036"))
+
#("i60260"))
#(ribcage
#(var
init
@@ -18960,12 +19015,12 @@
(top)
(top)
(top))
-
#("i37021"
-
"i37022"
-
"i37023"
-
"i37024"
-
"i37025"
-
"i37026"))
+
#("i60245"
+
"i60246"
+
"i60247"
+
"i60248"
+
"i60249"
+
"i60250"))
#(ribcage
()
()
@@ -18973,7 +19028,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i37018"))
+
#("i60242"))
#(ribcage
(do)
((top))
@@ -18987,27 +19042,27 @@
guile))))))
(hygiene
guile))
- #{step
37098}#)))))))
- #{tmp 37100}#)
- (let ((#{tmp 37104}#
+ #{step
60322}#)))))))
+ #{tmp 60324}#)
+ (let ((#{tmp 60328}#
($sc-dispatch
- #{e1 37078}#
+ #{e1 60302}#
'(any . each-any))))
- (if #{tmp 37104}#
+ (if #{tmp 60328}#
(@apply
- (lambda (#{e1 37108}# #{e2 37109}#)
+ (lambda (#{e1 60332}# #{e2 60333}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37045" "i37046"))
+ #("i60269" "i60270"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -19016,17 +19071,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -19043,12 +19098,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37045" "i37046"))
+ #("i60269" "i60270"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -19057,17 +19112,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -19079,20 +19134,20 @@
(hygiene guile))))))
(hygiene guile))
(map list
- #{var 37074}#
- #{init 37075}#)
+ #{var 60298}#
+ #{init 60299}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37045" "i37046"))
+ #("i60269" "i60270"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -19101,17 +19156,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -19122,20 +19177,20 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{e0 37077}#
+ #{e0 60301}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37045"
- "i37046"))
+ #("i60269"
+ "i60270"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var
init
@@ -19149,17 +19204,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -19171,21 +19226,21 @@
(hygiene
guile))))))
(hygiene guile))
- (cons #{e1 37108}#
- #{e2 37109}#))
+ (cons #{e1 60332}#
+ #{e2 60333}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37045"
- "i37046"))
+ #("i60269"
+ "i60270"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37036"))
+ #("i60260"))
#(ribcage
#(var
init
@@ -19199,17 +19254,17 @@
(top)
(top)
(top))
- #("i37021"
- "i37022"
- "i37023"
- "i37024"
- "i37025"
- "i37026"))
+ #("i60245"
+ "i60246"
+ "i60247"
+ "i60248"
+ "i60249"
+ "i60250"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37018"))
+ #("i60242"))
#(ribcage
(do)
((top))
@@ -19222,7 +19277,7 @@
guile))))))
(hygiene guile))
(append
- #{c 37079}#
+ #{c 60303}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -19231,8 +19286,8 @@
e2)
#((top)
(top))
-
#("i37045"
-
"i37046"))
+
#("i60269"
+
"i60270"))
#(ribcage
()
()
@@ -19240,7 +19295,7 @@
#(ribcage
#(step)
#((top))
-
#("i37036"))
+
#("i60260"))
#(ribcage
#(var
init
@@ -19254,12 +19309,12 @@
(top)
(top)
(top))
-
#("i37021"
-
"i37022"
-
"i37023"
-
"i37024"
-
"i37025"
-
"i37026"))
+
#("i60245"
+
"i60246"
+
"i60247"
+
"i60248"
+
"i60249"
+
"i60250"))
#(ribcage
()
()
@@ -19267,7 +19322,7 @@
#(ribcage
#(orig-x)
#((top))
-
#("i37018"))
+
#("i60242"))
#(ribcage
(do)
((top))
@@ -19281,33 +19336,33 @@
guile))))))
(hygiene
guile))
- #{step
37098}#)))))))
- #{tmp 37104}#)
+ #{step
60322}#)))))))
+ #{tmp 60328}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e1 37078}#))))))
- #{tmp 37081}#)
+ #{e1 60302}#))))))
+ #{tmp 60305}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37080}#)))))
- #{tmp 37070}#)
+ #{tmp 60304}#)))))
+ #{tmp 60294}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x 37068}#))))))
+ #{orig-x 60292}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 37396}#
- (lambda (#{p 37420}# #{lev 37421}#)
- (let ((#{tmp 37423}#
+ ((#{quasi 60620}#
+ (lambda (#{p 60644}# #{lev 60645}#)
+ (let ((#{tmp 60647}#
($sc-dispatch
- #{p 37420}#
+ #{p 60644}#
'(#(free-id
#(syntax-object
unquote
@@ -19316,7 +19371,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19325,13 +19380,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19343,19 +19398,19 @@
(hygiene guile))))))
(hygiene guile)))
any))))
- (if #{tmp 37423}#
+ (if #{tmp 60647}#
(@apply
- (lambda (#{p 37427}#)
- (if (= #{lev 37421}# 0)
+ (lambda (#{p 60651}#)
+ (if (= #{lev 60645}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i37146"))
+ #(ribcage #(p) #((top)) #("i60370"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19364,13 +19419,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19381,17 +19436,17 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{p 37427}#)
- (#{quasicons 37398}#
+ #{p 60651}#)
+ (#{quasicons 60622}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37146"))
+ #(ribcage #(p) #((top)) #("i60370"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19400,13 +19455,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19420,12 +19475,12 @@
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i37146"))
+ #(ribcage #(p) #((top)) #("i60370"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19434,13 +19489,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19451,13 +19506,13 @@
((top))
(hygiene guile))))))
(hygiene guile)))
- (#{quasi 37396}#
- (list #{p 37427}#)
- (#{1-}# #{lev 37421}#)))))
- #{tmp 37423}#)
- (let ((#{tmp 37430}#
+ (#{quasi 60620}#
+ (list #{p 60651}#)
+ (#{1-}# #{lev 60645}#)))))
+ #{tmp 60647}#)
+ (let ((#{tmp 60654}#
($sc-dispatch
- #{p 37420}#
+ #{p 60644}#
'(#(free-id
#(syntax-object
quasiquote
@@ -19466,7 +19521,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19475,13 +19530,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19493,19 +19548,19 @@
(hygiene guile))))))
(hygiene guile)))
any))))
- (if #{tmp 37430}#
+ (if #{tmp 60654}#
(@apply
- (lambda (#{p 37434}#)
- (#{quasicons 37398}#
+ (lambda (#{p 60658}#)
+ (#{quasicons 60622}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37149"))
+ #(ribcage #(p) #((top)) #("i60373"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19514,13 +19569,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19534,12 +19589,12 @@
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i37149"))
+ #(ribcage #(p) #((top)) #("i60373"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19548,13 +19603,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19565,18 +19620,18 @@
((top))
(hygiene guile))))))
(hygiene guile)))
- (#{quasi 37396}#
- (list #{p 37434}#)
- (#{1+}# #{lev 37421}#))))
- #{tmp 37430}#)
- (let ((#{tmp 37437}#
- ($sc-dispatch #{p 37420}# '(any . any))))
- (if #{tmp 37437}#
+ (#{quasi 60620}#
+ (list #{p 60658}#)
+ (#{1+}# #{lev 60645}#))))
+ #{tmp 60654}#)
+ (let ((#{tmp 60661}#
+ ($sc-dispatch #{p 60644}# '(any . any))))
+ (if #{tmp 60661}#
(@apply
- (lambda (#{p 37441}# #{q 37442}#)
- (let ((#{tmp 37444}#
+ (lambda (#{p 60665}# #{q 60666}#)
+ (let ((#{tmp 60668}#
($sc-dispatch
- #{p 37441}#
+ #{p 60665}#
'(#(free-id
#(syntax-object
unquote
@@ -19584,12 +19639,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37152" "i37153"))
+ #("i60376" "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19604,13 +19659,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19623,28 +19678,28 @@
(hygiene guile)))
.
each-any))))
- (if #{tmp 37444}#
+ (if #{tmp 60668}#
(@apply
- (lambda (#{p 37448}#)
- (if (= #{lev 37421}# 0)
- (#{quasilist* 37400}#
- (map (lambda (#{tmp 37160 37487}#)
+ (lambda (#{p 60672}#)
+ (if (= #{lev 60645}# 0)
+ (#{quasilist* 60624}#
+ (map (lambda (#{tmp 60384 60711}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37158"))
+ #("i60382"))
#(ribcage
#(p q)
#((top) (top))
- #("i37152" "i37153"))
+ #("i60376" "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19659,13 +19714,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19677,29 +19732,29 @@
(hygiene
guile))))))
(hygiene guile))
- #{tmp 37160 37487}#))
- #{p 37448}#)
- (#{quasi 37396}#
- #{q 37442}#
- #{lev 37421}#))
- (#{quasicons 37398}#
- (#{quasicons 37398}#
+ #{tmp 60384 60711}#))
+ #{p 60672}#)
+ (#{quasi 60620}#
+ #{q 60666}#
+ #{lev 60645}#))
+ (#{quasicons 60622}#
+ (#{quasicons 60622}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i37158"))
+ #("i60382"))
#(ribcage
#(p q)
#((top) (top))
- #("i37152" "i37153"))
+ #("i60376" "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19714,13 +19769,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19737,16 +19792,16 @@
#(ribcage
#(p)
#((top))
- #("i37158"))
+ #("i60382"))
#(ribcage
#(p q)
#((top) (top))
- #("i37152" "i37153"))
+ #("i60376" "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19761,13 +19816,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19778,16 +19833,16 @@
((top))
(hygiene guile))))))
(hygiene guile)))
- (#{quasi 37396}#
- #{p 37448}#
- (#{1-}# #{lev 37421}#)))
- (#{quasi 37396}#
- #{q 37442}#
- #{lev 37421}#))))
- #{tmp 37444}#)
- (let ((#{tmp 37492}#
+ (#{quasi 60620}#
+ #{p 60672}#
+ (#{1-}# #{lev 60645}#)))
+ (#{quasi 60620}#
+ #{q 60666}#
+ #{lev 60645}#))))
+ #{tmp 60668}#)
+ (let ((#{tmp 60716}#
($sc-dispatch
- #{p 37441}#
+ #{p 60665}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -19795,12 +19850,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37152" "i37153"))
+ #("i60376" "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19815,13 +19870,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19834,30 +19889,30 @@
(hygiene guile)))
.
each-any))))
- (if #{tmp 37492}#
+ (if #{tmp 60716}#
(@apply
- (lambda (#{p 37496}#)
- (if (= #{lev 37421}# 0)
- (#{quasiappend 37399}#
- (map (lambda (#{tmp 37165 37499}#)
+ (lambda (#{p 60720}#)
+ (if (= #{lev 60645}# 0)
+ (#{quasiappend 60623}#
+ (map (lambda (#{tmp 60389 60723}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37163"))
+ #("i60387"))
#(ribcage
#(p q)
#((top) (top))
- #("i37152"
- "i37153"))
+ #("i60376"
+ "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142"
- "i37143"))
+ #("i60366"
+ "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19872,13 +19927,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19890,29 +19945,29 @@
(hygiene
guile))))))
(hygiene guile))
- #{tmp 37165 37499}#))
- #{p 37496}#)
- (#{quasi 37396}#
- #{q 37442}#
- #{lev 37421}#))
- (#{quasicons 37398}#
- (#{quasicons 37398}#
+ #{tmp 60389 60723}#))
+ #{p 60720}#)
+ (#{quasi 60620}#
+ #{q 60666}#
+ #{lev 60645}#))
+ (#{quasicons 60622}#
+ (#{quasicons 60622}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i37163"))
+ #("i60387"))
#(ribcage
#(p q)
#((top) (top))
- #("i37152" "i37153"))
+ #("i60376" "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19927,13 +19982,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19950,16 +20005,16 @@
#(ribcage
#(p)
#((top))
- #("i37163"))
+ #("i60387"))
#(ribcage
#(p q)
#((top) (top))
- #("i37152" "i37153"))
+ #("i60376" "i60377"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -19974,13 +20029,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -19991,49 +20046,49 @@
((top))
(hygiene guile))))))
(hygiene guile)))
- (#{quasi 37396}#
- #{p 37496}#
- (#{1-}# #{lev 37421}#)))
- (#{quasi 37396}#
- #{q 37442}#
- #{lev 37421}#))))
- #{tmp 37492}#)
- (#{quasicons 37398}#
- (#{quasi 37396}#
- #{p 37441}#
- #{lev 37421}#)
- (#{quasi 37396}#
- #{q 37442}#
- #{lev 37421}#)))))))
- #{tmp 37437}#)
- (let ((#{tmp 37513}#
- ($sc-dispatch #{p 37420}# '#(vector each-any))))
- (if #{tmp 37513}#
+ (#{quasi 60620}#
+ #{p 60720}#
+ (#{1-}# #{lev 60645}#)))
+ (#{quasi 60620}#
+ #{q 60666}#
+ #{lev 60645}#))))
+ #{tmp 60716}#)
+ (#{quasicons 60622}#
+ (#{quasi 60620}#
+ #{p 60665}#
+ #{lev 60645}#)
+ (#{quasi 60620}#
+ #{q 60666}#
+ #{lev 60645}#)))))))
+ #{tmp 60661}#)
+ (let ((#{tmp 60737}#
+ ($sc-dispatch #{p 60644}# '#(vector each-any))))
+ (if #{tmp 60737}#
(@apply
- (lambda (#{x 37517}#)
- (let ((#{x 37520}#
- (#{vquasi 37397}#
- #{x 37517}#
- #{lev 37421}#)))
- (let ((#{tmp 37522}#
+ (lambda (#{x 60741}#)
+ (let ((#{x 60744}#
+ (#{vquasi 60621}#
+ #{x 60741}#
+ #{lev 60645}#)))
+ (let ((#{tmp 60746}#
($sc-dispatch
- #{x 37520}#
+ #{x 60744}#
'(#(atom "quote") each-any))))
- (if #{tmp 37522}#
+ (if #{tmp 60746}#
(@apply
- (lambda (#{x 37526}#)
+ (lambda (#{x 60750}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("i37270"))
+ #("i60494"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37267"))
+ #("i60491"))
#(ribcage
(emit quasivector
quasilist*
@@ -20048,13 +20103,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20065,28 +20120,28 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (list->vector #{x 37526}#)))
- #{tmp 37522}#)
+ (list->vector #{x 60750}#)))
+ #{tmp 60746}#)
(letrec*
- ((#{f 37528}#
- (lambda (#{y 37540}# #{k 37541}#)
- (let ((#{tmp 37543}#
+ ((#{f 60752}#
+ (lambda (#{y 60764}# #{k 60765}#)
+ (let ((#{tmp 60767}#
($sc-dispatch
- #{y 37540}#
+ #{y 60764}#
'(#(atom "quote")
each-any))))
- (if #{tmp 37543}#
+ (if #{tmp 60767}#
(@apply
- (lambda (#{y 37546}#)
- (#{k 37541}#
- (map (lambda (#{tmp
37295 37547}#)
+ (lambda (#{y 60770}#)
+ (#{k 60765}#
+ (map (lambda (#{tmp
60519 60771}#)
(list
'#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
-
#("i37293"))
+
#("i60517"))
#(ribcage
()
()
@@ -20098,13 +20153,13 @@
#((top)
(top)
(top))
-
#("i37275"
-
"i37276"
-
"i37277"))
+
#("i60499"
+
"i60500"
+
"i60501"))
#(ribcage
#(_)
#((top))
-
#("i37273"))
+
#("i60497"))
#(ribcage
()
()
@@ -20112,7 +20167,7 @@
#(ribcage
#(x)
#((top))
-
#("i37267"))
+
#("i60491"))
#(ribcage
(emit
quasivector
quasilist*
@@ -20127,13 +20182,13 @@
(top)
(top)
(top))
-
("i37138"
-
"i37136"
-
"i37134"
-
"i37132"
-
"i37130"
-
"i37128"
-
"i37126"))
+
("i60362"
+
"i60360"
+
"i60358"
+
"i60356"
+
"i60354"
+
"i60352"
+
"i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20147,42 +20202,42 @@
guile))))))
(hygiene
guile))
- #{tmp 37295
37547}#))
- #{y 37546}#)))
- #{tmp 37543}#)
- (let ((#{tmp 37548}#
+ #{tmp 60519
60771}#))
+ #{y 60770}#)))
+ #{tmp 60767}#)
+ (let ((#{tmp 60772}#
($sc-dispatch
- #{y 37540}#
+ #{y 60764}#
'(#(atom "list")
.
each-any))))
- (if #{tmp 37548}#
+ (if #{tmp 60772}#
(@apply
- (lambda (#{y 37551}#)
- (#{k 37541}#
- #{y 37551}#))
- #{tmp 37548}#)
- (let ((#{tmp 37552}#
+ (lambda (#{y 60775}#)
+ (#{k 60765}#
+ #{y 60775}#))
+ #{tmp 60772}#)
+ (let ((#{tmp 60776}#
($sc-dispatch
- #{y 37540}#
+ #{y 60764}#
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp 37552}#
+ (if #{tmp 60776}#
(@apply
- (lambda (#{y 37555}#
- #{z 37556}#)
- (#{f 37528}#
- #{z 37556}#
- (lambda (#{ls
37557}#)
- (#{k 37541}#
+ (lambda (#{y 60779}#
+ #{z 60780}#)
+ (#{f 60752}#
+ #{z 60780}#
+ (lambda (#{ls
60781}#)
+ (#{k 60765}#
(append
- #{y 37555}#
- #{ls
37557}#)))))
- #{tmp 37552}#)
+ #{y 60779}#
+ #{ls
60781}#)))))
+ #{tmp 60776}#)
(list '#(syntax-object
"list->vector"
((top)
@@ -20191,14 +20246,14 @@
()
())
#(ribcage
- #(#{
g37310}#)
- #((m37311
+ #(#{
g60534}#)
+ #((m60535
top))
-
#("i37314"))
+
#("i60538"))
#(ribcage
#(else)
#((top))
-
#("i37308"))
+
#("i60532"))
#(ribcage
()
()
@@ -20208,13 +20263,13 @@
#((top)
(top)
(top))
- #("i37275"
- "i37276"
-
"i37277"))
+ #("i60499"
+ "i60500"
+
"i60501"))
#(ribcage
#(_)
#((top))
-
#("i37273"))
+
#("i60497"))
#(ribcage
()
()
@@ -20222,7 +20277,7 @@
#(ribcage
#(x)
#((top))
-
#("i37267"))
+
#("i60491"))
#(ribcage
(emit
quasivector
quasilist*
@@ -20237,13 +20292,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20257,17 +20312,17 @@
guile))))))
(hygiene
guile))
- #{x
37520}#))))))))))
- (#{f 37528}#
- #{x 37520}#
- (lambda (#{ls 37530}#)
- (let ((#{tmp 37532}#
+ #{x
60744}#))))))))))
+ (#{f 60752}#
+ #{x 60744}#
+ (lambda (#{ls 60754}#)
+ (let ((#{tmp 60756}#
($sc-dispatch
- #{ls 37530}#
+ #{ls 60754}#
'each-any)))
- (if #{tmp 37532}#
+ (if #{tmp 60756}#
(@apply
- (lambda (#{ g37283 37535}#)
+ (lambda (#{ g60507 60759}#)
(cons '#(syntax-object
"vector"
((top)
@@ -20276,9 +20331,9 @@
()
())
#(ribcage
- #(#{ g37283}#)
- #((m37284 top))
- #("i37288"))
+ #(#{ g60507}#)
+ #((m60508 top))
+ #("i60512"))
#(ribcage
()
()
@@ -20294,11 +20349,11 @@
#(ribcage
#(ls)
#((top))
- #("i37282"))
+ #("i60506"))
#(ribcage
#(_)
#((top))
- #("i37273"))
+ #("i60497"))
#(ribcage
()
()
@@ -20306,7 +20361,7 @@
#(ribcage
#(x)
#((top))
- #("i37267"))
+ #("i60491"))
#(ribcage
(emit
quasivector
quasilist*
@@ -20321,13 +20376,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20340,22 +20395,22 @@
(hygiene
guile))))))
(hygiene guile))
- #{ g37283 37535}#))
- #{tmp 37532}#)
+ #{ g60507 60759}#))
+ #{tmp 60756}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{ls 37530}#))))))))))
- #{tmp 37513}#)
+ #{ls 60754}#))))))))))
+ #{tmp 60737}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37173"))
+ #(ribcage #(p) #((top)) #("i60397"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37142" "i37143"))
+ #("i60366" "i60367"))
#(ribcage
(emit quasivector
quasilist*
@@ -20370,13 +20425,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20387,17 +20442,17 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{p 37420}#)))))))))))
- (#{vquasi 37397}#
- (lambda (#{p 37585}# #{lev 37586}#)
- (let ((#{tmp 37588}#
- ($sc-dispatch #{p 37585}# '(any . any))))
- (if #{tmp 37588}#
+ #{p 60644}#)))))))))))
+ (#{vquasi 60621}#
+ (lambda (#{p 60809}# #{lev 60810}#)
+ (let ((#{tmp 60812}#
+ ($sc-dispatch #{p 60809}# '(any . any))))
+ (if #{tmp 60812}#
(@apply
- (lambda (#{p 37592}# #{q 37593}#)
- (let ((#{tmp 37595}#
+ (lambda (#{p 60816}# #{q 60817}#)
+ (let ((#{tmp 60819}#
($sc-dispatch
- #{p 37592}#
+ #{p 60816}#
'(#(free-id
#(syntax-object
unquote
@@ -20405,12 +20460,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20425,13 +20480,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20444,28 +20499,28 @@
(hygiene guile)))
.
each-any))))
- (if #{tmp 37595}#
+ (if #{tmp 60819}#
(@apply
- (lambda (#{p 37599}#)
- (if (= #{lev 37586}# 0)
- (#{quasilist* 37400}#
- (map (lambda (#{tmp 37189 37638}#)
+ (lambda (#{p 60823}#)
+ (if (= #{lev 60810}# 0)
+ (#{quasilist* 60624}#
+ (map (lambda (#{tmp 60413 60862}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37187"))
+ #("i60411"))
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20480,13 +20535,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20497,24 +20552,24 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{tmp 37189 37638}#))
- #{p 37599}#)
- (#{vquasi 37397}# #{q 37593}# #{lev 37586}#))
- (#{quasicons 37398}#
- (#{quasicons 37398}#
+ #{tmp 60413 60862}#))
+ #{p 60823}#)
+ (#{vquasi 60621}# #{q 60817}# #{lev 60810}#))
+ (#{quasicons 60622}#
+ (#{quasicons 60622}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37187"))
+ #(ribcage #(p) #((top)) #("i60411"))
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20529,13 +20584,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20549,16 +20604,16 @@
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i37187"))
+ #(ribcage #(p) #((top)) #("i60411"))
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20573,13 +20628,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20590,14 +20645,14 @@
((top))
(hygiene guile))))))
(hygiene guile)))
- (#{quasi 37396}#
- #{p 37599}#
- (#{1-}# #{lev 37586}#)))
- (#{vquasi 37397}# #{q 37593}# #{lev 37586}#))))
- #{tmp 37595}#)
- (let ((#{tmp 37645}#
+ (#{quasi 60620}#
+ #{p 60823}#
+ (#{1-}# #{lev 60810}#)))
+ (#{vquasi 60621}# #{q 60817}# #{lev 60810}#))))
+ #{tmp 60819}#)
+ (let ((#{tmp 60869}#
($sc-dispatch
- #{p 37592}#
+ #{p 60816}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -20605,12 +20660,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20625,13 +20680,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20644,28 +20699,28 @@
(hygiene guile)))
.
each-any))))
- (if #{tmp 37645}#
+ (if #{tmp 60869}#
(@apply
- (lambda (#{p 37649}#)
- (if (= #{lev 37586}# 0)
- (#{quasiappend 37399}#
- (map (lambda (#{tmp 37194 37652}#)
+ (lambda (#{p 60873}#)
+ (if (= #{lev 60810}# 0)
+ (#{quasiappend 60623}#
+ (map (lambda (#{tmp 60418 60876}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37192"))
+ #("i60416"))
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20680,13 +20735,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20697,26 +20752,26 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{tmp 37194 37652}#))
- #{p 37649}#)
- (#{vquasi 37397}#
- #{q 37593}#
- #{lev 37586}#))
- (#{quasicons 37398}#
- (#{quasicons 37398}#
+ #{tmp 60418 60876}#))
+ #{p 60873}#)
+ (#{vquasi 60621}#
+ #{q 60817}#
+ #{lev 60810}#))
+ (#{quasicons 60622}#
+ (#{quasicons 60622}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37192"))
+ #(ribcage #(p) #((top)) #("i60416"))
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20731,13 +20786,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20751,16 +20806,16 @@
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("i37192"))
+ #(ribcage #(p) #((top)) #("i60416"))
#(ribcage
#(p q)
#((top) (top))
- #("i37181" "i37182"))
+ #("i60405" "i60406"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20775,13 +20830,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20792,19 +20847,19 @@
((top))
(hygiene guile))))))
(hygiene guile)))
- (#{quasi 37396}#
- #{p 37649}#
- (#{1-}# #{lev 37586}#)))
- (#{vquasi 37397}#
- #{q 37593}#
- #{lev 37586}#))))
- #{tmp 37645}#)
- (#{quasicons 37398}#
- (#{quasi 37396}# #{p 37592}# #{lev 37586}#)
- (#{vquasi 37397}# #{q 37593}# #{lev 37586}#)))))))
- #{tmp 37588}#)
- (let ((#{tmp 37670}# ($sc-dispatch #{p 37585}# '())))
- (if #{tmp 37670}#
+ (#{quasi 60620}#
+ #{p 60873}#
+ (#{1-}# #{lev 60810}#)))
+ (#{vquasi 60621}#
+ #{q 60817}#
+ #{lev 60810}#))))
+ #{tmp 60869}#)
+ (#{quasicons 60622}#
+ (#{quasi 60620}# #{p 60816}# #{lev 60810}#)
+ (#{vquasi 60621}# #{q 60817}# #{lev 60810}#)))))))
+ #{tmp 60812}#)
+ (let ((#{tmp 60894}# ($sc-dispatch #{p 60809}# '())))
+ (if #{tmp 60894}#
(@apply
(lambda ()
'(#(syntax-object
@@ -20814,7 +20869,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i37177" "i37178"))
+ #("i60401" "i60402"))
#(ribcage
(emit quasivector
quasilist*
@@ -20823,13 +20878,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20841,55 +20896,55 @@
(hygiene guile))))))
(hygiene guile))
()))
- #{tmp 37670}#)
+ #{tmp 60894}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{p 37585}#)))))))
- (#{quasicons 37398}#
- (lambda (#{x 37683}# #{y 37684}#)
- (let ((#{tmp 37685}# (list #{x 37683}# #{y 37684}#)))
- (let ((#{tmp 37686}#
- ($sc-dispatch #{tmp 37685}# '(any any))))
- (if #{tmp 37686}#
+ #{p 60809}#)))))))
+ (#{quasicons 60622}#
+ (lambda (#{x 60907}# #{y 60908}#)
+ (let ((#{tmp 60909}# (list #{x 60907}# #{y 60908}#)))
+ (let ((#{tmp 60910}#
+ ($sc-dispatch #{tmp 60909}# '(any any))))
+ (if #{tmp 60910}#
(@apply
- (lambda (#{x 37688}# #{y 37689}#)
- (let ((#{tmp 37691}#
+ (lambda (#{x 60912}# #{y 60913}#)
+ (let ((#{tmp 60915}#
($sc-dispatch
- #{y 37689}#
+ #{y 60913}#
'(#(atom "quote") any))))
- (if #{tmp 37691}#
+ (if #{tmp 60915}#
(@apply
- (lambda (#{dy 37695}#)
- (let ((#{tmp 37697}#
+ (lambda (#{dy 60919}#)
+ (let ((#{tmp 60921}#
($sc-dispatch
- #{x 37688}#
+ #{x 60912}#
'(#(atom "quote") any))))
- (if #{tmp 37697}#
+ (if #{tmp 60921}#
(@apply
- (lambda (#{dx 37701}#)
+ (lambda (#{dx 60925}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i37216"))
+ #("i60440"))
#(ribcage
#(dy)
#((top))
- #("i37212"))
+ #("i60436"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37206" "i37207"))
+ #("i60430" "i60431"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37201" "i37202"))
+ #("i60425" "i60426"))
#(ribcage
(emit quasivector
quasilist*
@@ -20904,13 +20959,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20921,31 +20976,31 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{dx 37701}# #{dy 37695}#)))
- #{tmp 37697}#)
- (if (null? #{dy 37695}#)
+ (cons #{dx 60925}# #{dy 60919}#)))
+ #{tmp 60921}#)
+ (if (null? #{dy 60919}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i37218"))
+ #("i60442"))
#(ribcage
#(dy)
#((top))
- #("i37212"))
+ #("i60436"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37206" "i37207"))
+ #("i60430" "i60431"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37201" "i37202"))
+ #("i60425" "i60426"))
#(ribcage
(emit quasivector
quasilist*
@@ -20960,13 +21015,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -20977,29 +21032,29 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{x 37688}#)
+ #{x 60912}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i37218"))
+ #("i60442"))
#(ribcage
#(dy)
#((top))
- #("i37212"))
+ #("i60436"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37206" "i37207"))
+ #("i60430" "i60431"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37201" "i37202"))
+ #("i60425" "i60426"))
#(ribcage
(emit quasivector
quasilist*
@@ -21014,13 +21069,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21031,34 +21086,34 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{x 37688}#
- #{y 37689}#)))))
- #{tmp 37691}#)
- (let ((#{tmp 37706}#
+ #{x 60912}#
+ #{y 60913}#)))))
+ #{tmp 60915}#)
+ (let ((#{tmp 60930}#
($sc-dispatch
- #{y 37689}#
+ #{y 60913}#
'(#(atom "list") . any))))
- (if #{tmp 37706}#
+ (if #{tmp 60930}#
(@apply
- (lambda (#{stuff 37710}#)
+ (lambda (#{stuff 60934}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i37221"))
+ #("i60445"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37206" "i37207"))
+ #("i60430" "i60431"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37201" "i37202"))
+ #("i60425" "i60426"))
#(ribcage
(emit quasivector
quasilist*
@@ -21073,13 +21128,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21090,33 +21145,33 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{x 37688}# #{stuff 37710}#)))
- #{tmp 37706}#)
- (let ((#{tmp 37711}#
+ (cons #{x 60912}# #{stuff 60934}#)))
+ #{tmp 60930}#)
+ (let ((#{tmp 60935}#
($sc-dispatch
- #{y 37689}#
+ #{y 60913}#
'(#(atom "list*") . any))))
- (if #{tmp 37711}#
+ (if #{tmp 60935}#
(@apply
- (lambda (#{stuff 37715}#)
+ (lambda (#{stuff 60939}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i37224"))
+ #("i60448"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37206" "i37207"))
+ #("i60430" "i60431"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37201" "i37202"))
+ #("i60425" "i60426"))
#(ribcage
(emit quasivector
quasilist*
@@ -21131,13 +21186,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21148,23 +21203,23 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{x 37688}# #{stuff 37715}#)))
- #{tmp 37711}#)
+ (cons #{x 60912}# #{stuff 60939}#)))
+ #{tmp 60935}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("i37226"))
+ #(ribcage #(_) #((top)) #("i60450"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37206" "i37207"))
+ #("i60430" "i60431"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37201" "i37202"))
+ #("i60425" "i60426"))
#(ribcage
(emit quasivector
quasilist*
@@ -21179,13 +21234,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21196,21 +21251,21 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{x 37688}#
- #{y 37689}#))))))))
- #{tmp 37686}#)
+ #{x 60912}#
+ #{y 60913}#))))))))
+ #{tmp 60910}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37685}#))))))
- (#{quasiappend 37399}#
- (lambda (#{x 37726}# #{y 37727}#)
- (let ((#{tmp 37729}#
- ($sc-dispatch #{y 37727}# '(#(atom "quote") ()))))
- (if #{tmp 37729}#
+ #{tmp 60909}#))))))
+ (#{quasiappend 60623}#
+ (lambda (#{x 60950}# #{y 60951}#)
+ (let ((#{tmp 60953}#
+ ($sc-dispatch #{y 60951}# '(#(atom "quote") ()))))
+ (if #{tmp 60953}#
(@apply
(lambda ()
- (if (null? #{x 37726}#)
+ (if (null? #{x 60950}#)
'(#(syntax-object
"quote"
((top)
@@ -21218,7 +21273,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("i37230" "i37231"))
+ #("i60454" "i60455"))
#(ribcage
(emit quasivector
quasilist*
@@ -21227,13 +21282,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21245,23 +21300,23 @@
(hygiene guile))))))
(hygiene guile))
())
- (if (null? (cdr #{x 37726}#))
- (car #{x 37726}#)
- (let ((#{tmp 37734}#
- ($sc-dispatch #{x 37726}# 'each-any)))
- (if #{tmp 37734}#
+ (if (null? (cdr #{x 60950}#))
+ (car #{x 60950}#)
+ (let ((#{tmp 60958}#
+ ($sc-dispatch #{x 60950}# 'each-any)))
+ (if #{tmp 60958}#
(@apply
- (lambda (#{p 37738}#)
+ (lambda (#{p 60962}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("i37242"))
+ #(ribcage #(p) #((top)) #("i60466"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37230" "i37231"))
+ #("i60454" "i60455"))
#(ribcage
(emit quasivector
quasilist*
@@ -21276,13 +21331,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21293,21 +21348,21 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{p 37738}#))
- #{tmp 37734}#)
+ #{p 60962}#))
+ #{tmp 60958}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37726}#))))))
- #{tmp 37729}#)
- (if (null? #{x 37726}#)
- #{y 37727}#
- (let ((#{tmp 37746}# (list #{x 37726}# #{y 37727}#)))
- (let ((#{tmp 37747}#
- ($sc-dispatch #{tmp 37746}# '(each-any any))))
- (if #{tmp 37747}#
+ #{x 60950}#))))))
+ #{tmp 60953}#)
+ (if (null? #{x 60950}#)
+ #{y 60951}#
+ (let ((#{tmp 60970}# (list #{x 60950}# #{y 60951}#)))
+ (let ((#{tmp 60971}#
+ ($sc-dispatch #{tmp 60970}# '(each-any any))))
+ (if #{tmp 60971}#
(@apply
- (lambda (#{p 37749}# #{y 37750}#)
+ (lambda (#{p 60973}# #{y 60974}#)
(cons '#(syntax-object
"append"
((top)
@@ -21315,13 +21370,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("i37253" "i37254"))
- #(ribcage #(_) #((top)) #("i37245"))
+ #("i60477" "i60478"))
+ #(ribcage #(_) #((top)) #("i60469"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37230" "i37231"))
+ #("i60454" "i60455"))
#(ribcage
(emit quasivector
quasilist*
@@ -21336,13 +21391,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21353,36 +21408,36 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (append #{p 37749}# (list #{y 37750}#))))
- #{tmp 37747}#)
+ (append #{p 60973}# (list #{y 60974}#))))
+ #{tmp 60971}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37746}#)))))))))
- (#{quasilist* 37400}#
- (lambda (#{x 37754}# #{y 37755}#)
+ #{tmp 60970}#)))))))))
+ (#{quasilist* 60624}#
+ (lambda (#{x 60978}# #{y 60979}#)
(letrec*
- ((#{f 37756}#
- (lambda (#{x 37860}#)
- (if (null? #{x 37860}#)
- #{y 37755}#
- (#{quasicons 37398}#
- (car #{x 37860}#)
- (#{f 37756}# (cdr #{x 37860}#)))))))
- (#{f 37756}# #{x 37754}#))))
- (#{emit 37402}#
- (lambda (#{x 37863}#)
- (let ((#{tmp 37865}#
- ($sc-dispatch #{x 37863}# '(#(atom "quote") any))))
- (if #{tmp 37865}#
+ ((#{f 60980}#
+ (lambda (#{x 61084}#)
+ (if (null? #{x 61084}#)
+ #{y 60979}#
+ (#{quasicons 60622}#
+ (car #{x 61084}#)
+ (#{f 60980}# (cdr #{x 61084}#)))))))
+ (#{f 60980}# #{x 60978}#))))
+ (#{emit 60626}#
+ (lambda (#{x 61087}#)
+ (let ((#{tmp 61089}#
+ ($sc-dispatch #{x 61087}# '(#(atom "quote") any))))
+ (if #{tmp 61089}#
(@apply
- (lambda (#{x 37869}#)
+ (lambda (#{x 61093}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i37320"))
+ #(ribcage #(x) #((top)) #("i60544"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37317"))
+ #(ribcage #(x) #((top)) #("i60541"))
#(ribcage
(emit quasivector
quasilist*
@@ -21391,13 +21446,13 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21408,32 +21463,32 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{x 37869}#))
- #{tmp 37865}#)
- (let ((#{tmp 37870}#
+ #{x 61093}#))
+ #{tmp 61089}#)
+ (let ((#{tmp 61094}#
($sc-dispatch
- #{x 37863}#
+ #{x 61087}#
'(#(atom "list") . each-any))))
- (if #{tmp 37870}#
+ (if #{tmp 61094}#
(@apply
- (lambda (#{x 37874}#)
- (let ((#{tmp 37875}# (map #{emit 37402}# #{x 37874}#)))
- (let ((#{tmp 37876}#
- ($sc-dispatch #{tmp 37875}# 'each-any)))
- (if #{tmp 37876}#
+ (lambda (#{x 61098}#)
+ (let ((#{tmp 61099}# (map #{emit 60626}# #{x 61098}#)))
+ (let ((#{tmp 61100}#
+ ($sc-dispatch #{tmp 61099}# 'each-any)))
+ (if #{tmp 61100}#
(@apply
- (lambda (#{ g37325 37878}#)
+ (lambda (#{ g60549 61102}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37325}#)
- #((m37326 top))
- #("i37330"))
- #(ribcage #(x) #((top)) #("i37323"))
+ #(#{ g60549}#)
+ #((m60550 top))
+ #("i60554"))
+ #(ribcage #(x) #((top)) #("i60547"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37317"))
+ #(ribcage #(x) #((top)) #("i60541"))
#(ribcage
(emit quasivector
quasilist*
@@ -21448,13 +21503,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21465,62 +21520,62 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{ g37325 37878}#))
- #{tmp 37876}#)
+ #{ g60549 61102}#))
+ #{tmp 61100}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37875}#)))))
- #{tmp 37870}#)
- (let ((#{tmp 37879}#
+ #{tmp 61099}#)))))
+ #{tmp 61094}#)
+ (let ((#{tmp 61103}#
($sc-dispatch
- #{x 37863}#
+ #{x 61087}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 37879}#
+ (if #{tmp 61103}#
(@apply
- (lambda (#{x 37883}# #{y 37884}#)
+ (lambda (#{x 61107}# #{y 61108}#)
(letrec*
- ((#{f 37885}#
- (lambda (#{x* 37888}#)
- (if (null? #{x* 37888}#)
- (#{emit 37402}# #{y 37884}#)
- (let ((#{tmp 37889}#
- (list (#{emit 37402}#
- (car #{x* 37888}#))
- (#{f 37885}#
- (cdr #{x* 37888}#)))))
- (let ((#{tmp 37890}#
+ ((#{f 61109}#
+ (lambda (#{x* 61112}#)
+ (if (null? #{x* 61112}#)
+ (#{emit 60626}# #{y 61108}#)
+ (let ((#{tmp 61113}#
+ (list (#{emit 60626}#
+ (car #{x* 61112}#))
+ (#{f 61109}#
+ (cdr #{x* 61112}#)))))
+ (let ((#{tmp 61114}#
($sc-dispatch
- #{tmp 37889}#
+ #{tmp 61113}#
'(any any))))
- (if #{tmp 37890}#
+ (if #{tmp 61114}#
(@apply
- (lambda (#{ g37345 37892}#
- #{ g37344 37893}#)
+ (lambda (#{ g60569 61116}#
+ #{ g60568 61117}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37345}#
- #{ g37344}#)
- #((m37346 top)
- (m37346 top))
- #("i37350" "i37351"))
+ #(#{ g60569}#
+ #{ g60568}#)
+ #((m60570 top)
+ (m60570 top))
+ #("i60574" "i60575"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i37339" "i37340"))
+ #("i60563" "i60564"))
#(ribcage
#(x y)
#((top) (top))
- #("i37335" "i37336"))
+ #("i60559" "i60560"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37317"))
+ #("i60541"))
#(ribcage
(emit quasivector
quasilist*
@@ -21535,13 +21590,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21553,48 +21608,48 @@
(hygiene
guile))))))
(hygiene guile))
- #{ g37345 37892}#
- #{ g37344 37893}#))
- #{tmp 37890}#)
+ #{ g60569 61116}#
+ #{ g60568 61117}#))
+ #{tmp 61114}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 37889}#))))))))
- (#{f 37885}# #{x 37883}#)))
- #{tmp 37879}#)
- (let ((#{tmp 37894}#
+ #{tmp 61113}#))))))))
+ (#{f 61109}# #{x 61107}#)))
+ #{tmp 61103}#)
+ (let ((#{tmp 61118}#
($sc-dispatch
- #{x 37863}#
+ #{x 61087}#
'(#(atom "append") . each-any))))
- (if #{tmp 37894}#
+ (if #{tmp 61118}#
(@apply
- (lambda (#{x 37898}#)
- (let ((#{tmp 37899}#
- (map #{emit 37402}# #{x 37898}#)))
- (let ((#{tmp 37900}#
+ (lambda (#{x 61122}#)
+ (let ((#{tmp 61123}#
+ (map #{emit 60626}# #{x 61122}#)))
+ (let ((#{tmp 61124}#
($sc-dispatch
- #{tmp 37899}#
+ #{tmp 61123}#
'each-any)))
- (if #{tmp 37900}#
+ (if #{tmp 61124}#
(@apply
- (lambda (#{ g37357 37902}#)
+ (lambda (#{ g60581 61126}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37357}#)
- #((m37358 top))
- #("i37362"))
+ #(#{ g60581}#)
+ #((m60582 top))
+ #("i60586"))
#(ribcage
#(x)
#((top))
- #("i37355"))
+ #("i60579"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37317"))
+ #("i60541"))
#(ribcage
(emit quasivector
quasilist*
@@ -21609,13 +21664,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21626,46 +21681,46 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{ g37357 37902}#))
- #{tmp 37900}#)
+ #{ g60581 61126}#))
+ #{tmp 61124}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp 37899}#)))))
- #{tmp 37894}#)
- (let ((#{tmp 37903}#
+ #{tmp 61123}#)))))
+ #{tmp 61118}#)
+ (let ((#{tmp 61127}#
($sc-dispatch
- #{x 37863}#
+ #{x 61087}#
'(#(atom "vector") . each-any))))
- (if #{tmp 37903}#
+ (if #{tmp 61127}#
(@apply
- (lambda (#{x 37907}#)
- (let ((#{tmp 37908}#
- (map #{emit 37402}# #{x 37907}#)))
- (let ((#{tmp 37909}#
+ (lambda (#{x 61131}#)
+ (let ((#{tmp 61132}#
+ (map #{emit 60626}# #{x 61131}#)))
+ (let ((#{tmp 61133}#
($sc-dispatch
- #{tmp 37908}#
+ #{tmp 61132}#
'each-any)))
- (if #{tmp 37909}#
+ (if #{tmp 61133}#
(@apply
- (lambda (#{ g37369 37911}#)
+ (lambda (#{ g60593 61135}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37369}#)
- #((m37370 top))
- #("i37374"))
+ #(#{ g60593}#)
+ #((m60594 top))
+ #("i60598"))
#(ribcage
#(x)
#((top))
- #("i37367"))
+ #("i60591"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37317"))
+ #("i60541"))
#(ribcage
(emit quasivector
quasilist*
@@ -21680,13 +21735,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21698,39 +21753,39 @@
(hygiene
guile))))))
(hygiene guile))
- #{ g37369 37911}#))
- #{tmp 37909}#)
+ #{ g60593 61135}#))
+ #{tmp 61133}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 37908}#)))))
- #{tmp 37903}#)
- (let ((#{tmp 37912}#
+ #{tmp 61132}#)))))
+ #{tmp 61127}#)
+ (let ((#{tmp 61136}#
($sc-dispatch
- #{x 37863}#
+ #{x 61087}#
'(#(atom "list->vector") any))))
- (if #{tmp 37912}#
+ (if #{tmp 61136}#
(@apply
- (lambda (#{x 37916}#)
- (let ((#{tmp 37917}#
- (#{emit 37402}# #{x 37916}#)))
+ (lambda (#{x 61140}#)
+ (let ((#{tmp 61141}#
+ (#{emit 60626}# #{x 61140}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37381}#)
- #((m37382 top))
- #("i37385"))
+ #(#{ g60605}#)
+ #((m60606 top))
+ #("i60609"))
#(ribcage
#(x)
#((top))
- #("i37379"))
+ #("i60603"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37317"))
+ #("i60541"))
#(ribcage
(emit quasivector
quasilist*
@@ -21745,13 +21800,13 @@
(top)
(top)
(top))
- ("i37138"
- "i37136"
- "i37134"
- "i37132"
- "i37130"
- "i37128"
- "i37126"))
+ ("i60362"
+ "i60360"
+ "i60358"
+ "i60356"
+ "i60354"
+ "i60352"
+ "i60350"))
#(ribcage
(quasiquote)
((top))
@@ -21762,83 +21817,83 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{tmp 37917}#)))
- #{tmp 37912}#)
- (let ((#{tmp 37920}#
+ #{tmp 61141}#)))
+ #{tmp 61136}#)
+ (let ((#{tmp 61144}#
($sc-dispatch
- #{x 37863}#
+ #{x 61087}#
'(#(atom "value") any))))
- (if #{tmp 37920}#
+ (if #{tmp 61144}#
(@apply
- (lambda (#{x 37924}#) #{x 37924}#)
- #{tmp 37920}#)
+ (lambda (#{x 61148}#) #{x 61148}#)
+ #{tmp 61144}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{x 37863}#))))))))))))))))))
- (lambda (#{x 37403}#)
- (let ((#{tmp 37405}#
- ($sc-dispatch #{x 37403}# '(_ any))))
- (if #{tmp 37405}#
+ #{x 61087}#))))))))))))))))))
+ (lambda (#{x 60627}#)
+ (let ((#{tmp 60629}#
+ ($sc-dispatch #{x 60627}# '(_ any))))
+ (if #{tmp 60629}#
(@apply
- (lambda (#{e 37409}#)
- (#{emit 37402}# (#{quasi 37396}# #{e 37409}# 0)))
- #{tmp 37405}#)
+ (lambda (#{e 60633}#)
+ (#{emit 60626}# (#{quasi 60620}# #{e 60633}# 0)))
+ #{tmp 60629}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37403}#)))))))
+ #{x 60627}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 37980}#)
+ (lambda (#{x 61204}#)
(letrec*
- ((#{read-file 37981}#
- (lambda (#{fn 38097}# #{k 38098}#)
- (let ((#{p 38099}# (open-input-file #{fn 38097}#)))
+ ((#{read-file 61205}#
+ (lambda (#{fn 61314}# #{k 61315}#)
+ (let ((#{p 61316}# (open-input-file #{fn 61314}#)))
(letrec*
- ((#{f 38100}#
- (lambda (#{x 38157}# #{result 38158}#)
- (if (eof-object? #{x 38157}#)
+ ((#{f 61317}#
+ (lambda (#{x 61371}# #{result 61372}#)
+ (if (eof-object? #{x 61371}#)
(begin
- (close-input-port #{p 38099}#)
- (reverse #{result 38158}#))
- (#{f 38100}#
- (read #{p 38099}#)
- (cons (datum->syntax #{k 38098}# #{x 38157}#)
- #{result 38158}#))))))
- (#{f 38100}# (read #{p 38099}#) '()))))))
- (let ((#{tmp 37983}#
- ($sc-dispatch #{x 37980}# '(any any))))
- (if #{tmp 37983}#
+ (close-input-port #{p 61316}#)
+ (reverse #{result 61372}#))
+ (#{f 61317}#
+ (read #{p 61316}#)
+ (cons (datum->syntax #{k 61315}# #{x 61371}#)
+ #{result 61372}#))))))
+ (#{f 61317}# (read #{p 61316}#) '()))))))
+ (let ((#{tmp 61207}#
+ ($sc-dispatch #{x 61204}# '(any any))))
+ (if #{tmp 61207}#
(@apply
- (lambda (#{k 37987}# #{filename 37988}#)
- (let ((#{fn 37989}# (syntax->datum #{filename 37988}#)))
- (let ((#{tmp 37990}#
- (#{read-file 37981}#
- #{fn 37989}#
- #{filename 37988}#)))
- (let ((#{tmp 37991}#
- ($sc-dispatch #{tmp 37990}# 'each-any)))
- (if #{tmp 37991}#
+ (lambda (#{k 61211}# #{filename 61212}#)
+ (let ((#{fn 61213}# (syntax->datum #{filename 61212}#)))
+ (let ((#{tmp 61214}#
+ (#{read-file 61205}#
+ #{fn 61213}#
+ #{filename 61212}#)))
+ (let ((#{tmp 61215}#
+ ($sc-dispatch #{tmp 61214}# 'each-any)))
+ (if #{tmp 61215}#
(@apply
- (lambda (#{exp 38009}#)
+ (lambda (#{exp 61233}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("i37977"))
+ #(ribcage #(exp) #((top)) #("i61201"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i37972"))
+ #(ribcage #(fn) #((top)) #("i61196"))
#(ribcage
#(k filename)
#((top) (top))
- #("i37968" "i37969"))
- #(ribcage (read-file) ((top)) ("i37952"))
- #(ribcage #(x) #((top)) #("i37951"))
+ #("i61192" "i61193"))
+ #(ribcage (read-file) ((top)) ("i61176"))
+ #(ribcage #(x) #((top)) #("i61175"))
#(ribcage
(include)
((top))
@@ -21849,54 +21904,54 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{exp 38009}#))
- #{tmp 37991}#)
+ #{exp 61233}#))
+ #{tmp 61215}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37990}#))))))
- #{tmp 37983}#)
+ #{tmp 61214}#))))))
+ #{tmp 61207}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37980}#)))))))
+ #{x 61204}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 38178}#)
- (let ((#{tmp 38180}#
- ($sc-dispatch #{x 38178}# '(any any))))
- (if #{tmp 38180}#
+ (lambda (#{x 61392}#)
+ (let ((#{tmp 61394}#
+ ($sc-dispatch #{x 61392}# '(any any))))
+ (if #{tmp 61394}#
(@apply
- (lambda (#{k 38184}# #{filename 38185}#)
- (let ((#{fn 38186}# (syntax->datum #{filename 38185}#)))
- (let ((#{tmp 38187}#
+ (lambda (#{k 61398}# #{filename 61399}#)
+ (let ((#{fn 61400}# (syntax->datum #{filename 61399}#)))
+ (let ((#{tmp 61401}#
(datum->syntax
- #{filename 38185}#
- (let ((#{t 38190}# (%search-load-path #{fn 38186}#)))
- (if #{t 38190}#
- #{t 38190}#
+ #{filename 61399}#
+ (let ((#{t 61404}# (%search-load-path #{fn 61400}#)))
+ (if #{t 61404}#
+ #{t 61404}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 38178}#
- #{filename 38185}#))))))
+ #{x 61392}#
+ #{filename 61399}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i38172"))
+ #(ribcage #(fn) #((top)) #("i61386"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i38168"))
+ #(ribcage #(fn) #((top)) #("i61382"))
#(ribcage
#(k filename)
#((top) (top))
- #("i38164" "i38165"))
+ #("i61378" "i61379"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38161"))
+ #(ribcage #(x) #((top)) #("i61375"))
#(ribcage
(include-from-path)
((top))
@@ -21907,53 +21962,53 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{tmp 38187}#))))
- #{tmp 38180}#)
+ #{tmp 61401}#))))
+ #{tmp 61394}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38178}#))))))
+ #{x 61392}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 38200}#)
+ (lambda (#{x 61414}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 38200}#))))
+ #{x 61414}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 38204}#)
+ (lambda (#{x 61418}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 38204}#))))
+ #{x 61418}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 38261}#)
- (let ((#{tmp 38263}#
+ (lambda (#{x 61475}#)
+ (let ((#{tmp 61477}#
($sc-dispatch
- #{x 38261}#
+ #{x 61475}#
'(_ any any . each-any))))
- (if #{tmp 38263}#
+ (if #{tmp 61477}#
(@apply
- (lambda (#{e 38267}# #{m1 38268}# #{m2 38269}#)
- (let ((#{tmp 38270}#
+ (lambda (#{e 61481}# #{m1 61482}# #{m2 61483}#)
+ (let ((#{tmp 61484}#
(letrec*
- ((#{f 38331}#
- (lambda (#{clause 38334}# #{clauses 38335}#)
- (if (null? #{clauses 38335}#)
- (let ((#{tmp 38337}#
+ ((#{f 61538}#
+ (lambda (#{clause 61541}# #{clauses 61542}#)
+ (if (null? #{clauses 61542}#)
+ (let ((#{tmp 61544}#
($sc-dispatch
- #{clause 38334}#
+ #{clause 61541}#
'(#(free-id
#(syntax-object
else
@@ -21962,20 +22017,20 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -21989,34 +22044,34 @@
any
.
each-any))))
- (if #{tmp 38337}#
+ (if #{tmp 61544}#
(@apply
- (lambda (#{e1 38341}# #{e2 38342}#)
+ (lambda (#{e1 61548}# #{e2 61549}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i38229" "i38230"))
+ #("i61443" "i61444"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22027,44 +22082,44 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{e1 38341}# #{e2 38342}#)))
- #{tmp 38337}#)
- (let ((#{tmp 38343}#
+ (cons #{e1 61548}# #{e2 61549}#)))
+ #{tmp 61544}#)
+ (let ((#{tmp 61550}#
($sc-dispatch
- #{clause 38334}#
+ #{clause 61541}#
'(each-any any . each-any))))
- (if #{tmp 38343}#
+ (if #{tmp 61550}#
(@apply
- (lambda (#{k 38347}#
- #{e1 38348}#
- #{e2 38349}#)
+ (lambda (#{k 61554}#
+ #{e1 61555}#
+ #{e2 61556}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38235"
- "i38236"
- "i38237"))
+ #("i61449"
+ "i61450"
+ "i61451"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22083,9 +22138,9 @@
#((top)
(top)
(top))
- #("i38235"
- "i38236"
- "i38237"))
+ #("i61449"
+ "i61450"
+ "i61451"))
#(ribcage () () ())
#(ribcage
#(f
@@ -22094,22 +22149,22 @@
#((top)
(top)
(top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22129,9 +22184,9 @@
#((top)
(top)
(top))
- #("i38235"
- "i38236"
- "i38237"))
+ #("i61449"
+ "i61450"
+ "i61451"))
#(ribcage () () ())
#(ribcage
#(f
@@ -22140,22 +22195,22 @@
#((top)
(top)
(top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22175,9 +22230,9 @@
#((top)
(top)
(top))
- #("i38235"
- "i38236"
- "i38237"))
+ #("i61449"
+ "i61450"
+ "i61451"))
#(ribcage
()
()
@@ -22189,17 +22244,17 @@
#((top)
(top)
(top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage
()
()
@@ -22207,7 +22262,7 @@
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22221,7 +22276,7 @@
guile))))))
(hygiene
guile))
- #{k 38347}#))
+ #{k 61554}#))
(cons '#(syntax-object
begin
((top)
@@ -22230,9 +22285,9 @@
#((top)
(top)
(top))
- #("i38235"
- "i38236"
- "i38237"))
+ #("i61449"
+ "i61450"
+ "i61451"))
#(ribcage () () ())
#(ribcage
#(f
@@ -22241,22 +22296,22 @@
#((top)
(top)
(top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22268,59 +22323,59 @@
(hygiene
guile))))))
(hygiene guile))
- (cons #{e1 38348}#
- #{e2 38349}#))))
- #{tmp 38343}#)
+ (cons #{e1 61555}#
+ #{e2 61556}#))))
+ #{tmp 61550}#)
(syntax-violation
'case
"bad clause"
- #{x 38261}#
- #{clause 38334}#)))))
- (let ((#{tmp 38357}#
- (#{f 38331}#
- (car #{clauses 38335}#)
- (cdr #{clauses 38335}#))))
- (let ((#{tmp 38360}#
+ #{x 61475}#
+ #{clause 61541}#)))))
+ (let ((#{tmp 61564}#
+ (#{f 61538}#
+ (car #{clauses 61542}#)
+ (cdr #{clauses 61542}#))))
+ (let ((#{tmp 61567}#
($sc-dispatch
- #{clause 38334}#
+ #{clause 61541}#
'(each-any any . each-any))))
- (if #{tmp 38360}#
+ (if #{tmp 61567}#
(@apply
- (lambda (#{k 38364}#
- #{e1 38365}#
- #{e2 38366}#)
+ (lambda (#{k 61571}#
+ #{e1 61572}#
+ #{e2 61573}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38251"
- "i38252"
- "i38253"))
+ #("i61465"
+ "i61466"
+ "i61467"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38247"))
+ #("i61461"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22337,32 +22392,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38251"
- "i38252"
- "i38253"))
+ #("i61465"
+ "i61466"
+ "i61467"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38247"))
+ #("i61461"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22380,32 +22435,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38251"
- "i38252"
- "i38253"))
+ #("i61465"
+ "i61466"
+ "i61467"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38247"))
+ #("i61461"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22425,9 +22480,9 @@
#((top)
(top)
(top))
- #("i38251"
- "i38252"
- "i38253"))
+ #("i61465"
+ "i61466"
+ "i61467"))
#(ribcage
()
()
@@ -22435,7 +22490,7 @@
#(ribcage
#(rest)
#((top))
- #("i38247"))
+ #("i61461"))
#(ribcage
()
()
@@ -22447,17 +22502,17 @@
#((top)
(top)
(top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage
()
()
@@ -22465,7 +22520,7 @@
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22478,39 +22533,39 @@
(hygiene
guile))))))
(hygiene guile))
- #{k 38364}#))
+ #{k 61571}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38251"
- "i38252"
- "i38253"))
+ #("i61465"
+ "i61466"
+ "i61467"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38247"))
+ #("i61461"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38220"
- "i38221"
- "i38222"))
+ #("i61434"
+ "i61435"
+ "i61436"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210"
- "i38211"
- "i38212"))
+ #("i61424"
+ "i61425"
+ "i61426"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38207"))
+ #("i61421"))
#(ribcage
(case)
((top))
@@ -22522,28 +22577,28 @@
(hygiene
guile))))))
(hygiene guile))
- (cons #{e1 38365}#
- #{e2 38366}#))
- #{tmp 38357}#))
- #{tmp 38360}#)
+ (cons #{e1 61572}#
+ #{e2 61573}#))
+ #{tmp 61564}#))
+ #{tmp 61567}#)
(syntax-violation
'case
"bad clause"
- #{x 38261}#
- #{clause 38334}#))))))))
- (#{f 38331}# #{m1 38268}# #{m2 38269}#))))
- (let ((#{body 38271}# #{tmp 38270}#))
+ #{x 61475}#
+ #{clause 61541}#))))))))
+ (#{f 61538}# #{m1 61482}# #{m2 61483}#))))
+ (let ((#{body 61485}# #{tmp 61484}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i38218"))
+ #(ribcage #(body) #((top)) #("i61432"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210" "i38211" "i38212"))
+ #("i61424" "i61425" "i61426"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38207"))
+ #(ribcage #(x) #((top)) #("i61421"))
#(ribcage
(case)
((top))
@@ -22558,13 +22613,13 @@
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i38218"))
+ #(ribcage #(body) #((top)) #("i61432"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38210" "i38211" "i38212"))
+ #("i61424" "i61425" "i61426"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38207"))
+ #(ribcage #(x) #((top)) #("i61421"))
#(ribcage
(case)
((top))
@@ -22575,46 +22630,46 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{e 38267}#))
- #{body 38271}#))))
- #{tmp 38263}#)
+ #{e 61481}#))
+ #{body 61485}#))))
+ #{tmp 61477}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38261}#))))))
+ #{x 61475}#))))))
(define make-variable-transformer
- (lambda (#{proc 38385}#)
- (if (procedure? #{proc 38385}#)
+ (lambda (#{proc 61592}#)
+ (if (procedure? #{proc 61592}#)
(letrec*
- ((#{trans 38386}#
- (lambda (#{x 38392}#)
- (#{proc 38385}# #{x 38392}#))))
+ ((#{trans 61593}#
+ (lambda (#{x 61595}#)
+ (#{proc 61592}# #{x 61595}#))))
(begin
(set-procedure-property!
- #{trans 38386}#
+ #{trans 61593}#
'variable-transformer
#t)
- #{trans 38386}#))
+ #{trans 61593}#))
(error "variable transformer not a procedure"
- #{proc 38385}#))))
+ #{proc 61592}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 38425}#)
- (let ((#{tmp 38427}#
- ($sc-dispatch #{x 38425}# '(_ any))))
- (if #{tmp 38427}#
+ (lambda (#{x 61632}#)
+ (let ((#{tmp 61634}#
+ ($sc-dispatch #{x 61632}# '(_ any))))
+ (if #{tmp 61634}#
(@apply
- (lambda (#{e 38431}#)
+ (lambda (#{e 61638}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22628,9 +22683,9 @@
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22644,9 +22699,9 @@
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22661,9 +22716,9 @@
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22677,9 +22732,9 @@
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22693,9 +22748,9 @@
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22710,9 +22765,9 @@
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22726,9 +22781,9 @@
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22742,9 +22797,9 @@
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22758,9 +22813,9 @@
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22774,9 +22829,9 @@
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22787,13 +22842,13 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{e 38431}#))
+ #{e 61638}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22807,9 +22862,9 @@
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22823,9 +22878,9 @@
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22839,9 +22894,9 @@
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i38400"))
+ #(ribcage #(e) #((top)) #("i61607"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22852,19 +22907,19 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{e 38431}#
+ (cons #{e 61638}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i38400"))
+ #("i61607"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22881,12 +22936,12 @@
#(ribcage
#(e)
#((top))
- #("i38400"))
+ #("i61607"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22897,17 +22952,17 @@
((top))
(hygiene guile))))))
(hygiene guile)))))))))
- #{tmp 38427}#)
- (let ((#{tmp 38432}#
+ #{tmp 61634}#)
+ (let ((#{tmp 61639}#
($sc-dispatch
- #{x 38425}#
+ #{x 61632}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22921,33 +22976,33 @@
any
any)
any)))))
- (if (if #{tmp 38432}#
+ (if (if #{tmp 61639}#
(@apply
- (lambda (#{id 38436}#
- #{exp1 38437}#
- #{var 38438}#
- #{val 38439}#
- #{exp2 38440}#)
- (if (identifier? #{id 38436}#)
- (identifier? #{var 38438}#)
+ (lambda (#{id 61643}#
+ #{exp1 61644}#
+ #{var 61645}#
+ #{val 61646}#
+ #{exp2 61647}#)
+ (if (identifier? #{id 61643}#)
+ (identifier? #{var 61645}#)
#f))
- #{tmp 38432}#)
+ #{tmp 61639}#)
#f)
(@apply
- (lambda (#{id 38441}#
- #{exp1 38442}#
- #{var 38443}#
- #{val 38444}#
- #{exp2 38445}#)
+ (lambda (#{id 61648}#
+ #{exp1 61649}#
+ #{var 61650}#
+ #{val 61651}#
+ #{exp2 61652}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415" "i38416" "i38417" "i38418" "i38419"))
+ #("i61622" "i61623" "i61624" "i61625" "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22964,13 +23019,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -22987,13 +23042,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23010,13 +23065,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23034,13 +23089,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23057,13 +23112,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23080,13 +23135,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23103,13 +23158,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38397"))
+ #(ribcage #(x) #((top)) #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23130,16 +23185,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23150,8 +23205,8 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{var 38443}#
- #{val 38444}#)
+ #{var 61650}#
+ #{val 61651}#)
(list '#(syntax-object
syntax
((top)
@@ -23162,16 +23217,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23182,8 +23237,8 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{exp2 38445}#))
- (list (cons #{id 38441}#
+ #{exp2 61652}#))
+ (list (cons #{id 61648}#
'(#(syntax-object
x
((top)
@@ -23194,16 +23249,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23224,16 +23279,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23254,16 +23309,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23274,7 +23329,7 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{exp1 38442}#
+ (cons #{exp1 61649}#
'(#(syntax-object
x
((top)
@@ -23289,16 +23344,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23324,16 +23379,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23345,7 +23400,7 @@
(hygiene
guile))))))
(hygiene guile))))))
- (list #{id 38441}#
+ (list #{id 61648}#
(list '#(syntax-object
identifier?
((top)
@@ -23356,16 +23411,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23390,16 +23445,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23411,7 +23466,7 @@
(hygiene
guile))))))
(hygiene guile))
- #{id 38441}#))
+ #{id 61648}#))
(list '#(syntax-object
syntax
((top)
@@ -23422,16 +23477,16 @@
(top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"
- "i38418"
- "i38419"))
+ #("i61622"
+ "i61623"
+ "i61624"
+ "i61625"
+ "i61626"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38397"))
+ #("i61604"))
#(ribcage
(identifier-syntax)
((top))
@@ -23442,37 +23497,37 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{exp1 38442}#))))))
- #{tmp 38432}#)
+ #{exp1 61649}#))))))
+ #{tmp 61639}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38425}#))))))))
+ #{x 61632}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 38478}#)
- (let ((#{tmp 38480}#
+ (lambda (#{x 61685}#)
+ (let ((#{tmp 61687}#
($sc-dispatch
- #{x 38478}#
+ #{x 61685}#
'(_ (any . any) any . each-any))))
- (if #{tmp 38480}#
+ (if #{tmp 61687}#
(@apply
- (lambda (#{id 38484}#
- #{args 38485}#
- #{b0 38486}#
- #{b1 38487}#)
+ (lambda (#{id 61691}#
+ #{args 61692}#
+ #{b0 61693}#
+ #{b1 61694}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i38460" "i38461" "i38462" "i38463"))
+ #("i61667" "i61668" "i61669" "i61670"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38457"))
+ #(ribcage #(x) #((top)) #("i61664"))
#(ribcage
(define*)
((top))
@@ -23483,16 +23538,16 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{id 38484}#
+ #{id 61691}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i38460" "i38461" "i38462" "i38463"))
+ #("i61667" "i61668" "i61669" "i61670"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38457"))
+ #(ribcage #(x) #((top)) #("i61664"))
#(ribcage
(define*)
((top))
@@ -23503,14 +23558,14 @@
((top))
(hygiene guile))))))
(hygiene guile))
- (cons #{args 38485}#
- (cons #{b0 38486}# #{b1 38487}#)))))
- #{tmp 38480}#)
- (let ((#{tmp 38488}#
- ($sc-dispatch #{x 38478}# '(_ any any))))
- (if (if #{tmp 38488}#
+ (cons #{args 61692}#
+ (cons #{b0 61693}# #{b1 61694}#)))))
+ #{tmp 61687}#)
+ (let ((#{tmp 61695}#
+ ($sc-dispatch #{x 61685}# '(_ any any))))
+ (if (if #{tmp 61695}#
(@apply
- (lambda (#{id 38492}# #{val 38493}#)
+ (lambda (#{id 61699}# #{val 61700}#)
(identifier?
'#(syntax-object
x
@@ -23518,9 +23573,9 @@
#(ribcage
#(id val)
#((top) (top))
- #("i38470" "i38471"))
+ #("i61677" "i61678"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38457"))
+ #(ribcage #(x) #((top)) #("i61664"))
#(ribcage
(define*)
((top))
@@ -23531,19 +23586,19 @@
((top))
(hygiene guile))))))
(hygiene guile))))
- #{tmp 38488}#)
+ #{tmp 61695}#)
#f)
(@apply
- (lambda (#{id 38494}# #{val 38495}#)
+ (lambda (#{id 61701}# #{val 61702}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i38474" "i38475"))
+ #("i61681" "i61682"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38457"))
+ #(ribcage #(x) #((top)) #("i61664"))
#(ribcage
(define*)
((top))
@@ -23554,11 +23609,11 @@
((top))
(hygiene guile))))))
(hygiene guile))
- #{id 38494}#
- #{val 38495}#))
- #{tmp 38488}#)
+ #{id 61701}#
+ #{val 61702}#))
+ #{tmp 61695}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38478}#))))))))
+ #{x 61685}#))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 76edfb0..d96c3cf 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -1,7 +1,8 @@
;;;; -*-scheme-*-
;;;;
-;;;; Copyright (C) 2001, 2003, 2006, 2009, 2010, 2011 Free Software
Foundation, Inc.
-;;;;
+;;;; Copyright (C) 2001, 2003, 2006, 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
;;;; License as published by the Free Software Foundation; either
@@ -1319,7 +1320,10 @@
((call) (expand-call (expand (car e) r w mod) e r w s mod))
((begin-form)
(syntax-case e ()
- ((_ e1 e2 ...) (expand-sequence #'(e1 e2 ...) r w s mod))))
+ ((_ e1 e2 ...) (expand-sequence #'(e1 e2 ...) r w s mod))
+ ((_)
+ (syntax-violation #f "sequence of zero expressions"
+ (source-wrap e w s mod)))))
((local-syntax-form)
(expand-local-syntax value e r w s mod expand-sequence))
((eval-when-form)
diff --git a/module/ice-9/test.scm b/module/ice-9/test.scm
index f6080e4..179cfc3 100644
--- a/module/ice-9/test.scm
+++ b/module/ice-9/test.scm
@@ -17,7 +17,7 @@
;;;; "test.scm" Test correctness of scheme implementations.
;;; Author: Aubrey Jaffer
;;; Modified: Mikael Djurfeldt (Removed tests which Guile deliberately
-;;; won't pass. Made the the tests (test-cont), (test-sc4), and
+;;; won't pass. Made the tests (test-cont), (test-sc4), and
;;; (test-delay) start to run automatically.
;;; This includes examples from
diff --git a/module/ice-9/vlist.scm b/module/ice-9/vlist.scm
index 8c7c87b..a62bf59 100644
--- a/module/ice-9/vlist.scm
+++ b/module/ice-9/vlist.scm
@@ -545,23 +545,26 @@ with @var{equal?}."
(define vhash-delq (cut vhash-delete <> <> eq? hashq))
(define vhash-delv (cut vhash-delete <> <> eqv? hashv))
-(define (vhash-fold proc seed vhash)
- "Fold over the key/pair elements of @var{vhash}. For each pair call
address@hidden as @code{(@var{proc} key value result)}."
+(define (vhash-fold proc init vhash)
+ "Fold over the key/pair elements of @var{vhash} from left to right, with
+each call to @var{proc} having the form @code{(@var{proc} key value result)},
+where @var{result} is the result of the previous call to @var{proc} and
address@hidden the value of @var{result} for the first call to @var{proc}."
(vlist-fold (lambda (key+value result)
(proc (car key+value) (cdr key+value)
result))
- seed
+ init
vhash))
-(define (vhash-fold-right proc seed vhash)
- "Fold over the key/pair elements of @var{vhash}, starting from the 0th
-element. For each pair call @var{proc} as @code{(@var{proc} key value
-result)}."
+(define (vhash-fold-right proc init vhash)
+ "Fold over the key/pair elements of @var{vhash} from right to left, with
+each call to @var{proc} having the form @code{(@var{proc} key value result)},
+where @var{result} is the result of the previous call to @var{proc} and
address@hidden the value of @var{result} for the first call to @var{proc}."
(vlist-fold-right (lambda (key+value result)
(proc (car key+value) (cdr key+value)
result))
- seed
+ init
vhash))
(define* (alist->vhash alist #:optional (hash hash))
diff --git a/module/language/elisp/runtime/macros.scm
b/module/language/elisp/runtime/macros.scm
index a62f721..b287067 100644
--- a/module/language/elisp/runtime/macros.scm
+++ b/module/language/elisp/runtime/macros.scm
@@ -81,7 +81,7 @@
(progn ,@(cdr cur))
,rest))))))))
-;;; The and and or forms can also be easily defined with macros.
+;;; The `and' and `or' forms can also be easily defined with macros.
(built-in-macro and
(case-lambda
diff --git a/module/language/tree-il/analyze.scm
b/module/language/tree-il/analyze.scm
index d6502a6..f75c9f1 100644
--- a/module/language/tree-il/analyze.scm
+++ b/module/language/tree-il/analyze.scm
@@ -359,7 +359,8 @@
(else '())))
;; allocation: sym -> {lambda -> address}
- ;; lambda -> (nlocs labels . free-locs)
+ ;; lambda -> (labels . free-locs)
+ ;; lambda-case -> (gensym . nlocs)
(define allocation (make-hash-table))
(define (allocate! x proc n)
diff --git a/module/language/tree-il/fix-letrec.scm
b/module/language/tree-il/fix-letrec.scm
index 2a18342..f83d77e 100644
--- a/module/language/tree-il/fix-letrec.scm
+++ b/module/language/tree-il/fix-letrec.scm
@@ -238,7 +238,7 @@
c)
(list body)))
(else
- ;; Otherwise for plain letrec, evaluate the the "complex"
+ ;; Otherwise for plain letrec, evaluate the "complex"
;; bindings, in a `let' to indicate that order doesn't
;; matter, and bind to their variables.
(list
diff --git a/module/language/tree-il/peval.scm
b/module/language/tree-il/peval.scm
index cad098d..1a355a0 100644
--- a/module/language/tree-il/peval.scm
+++ b/module/language/tree-il/peval.scm
@@ -1,6 +1,6 @@
;;; Tree-IL partial evaluator
-;; Copyright (C) 2011 Free Software Foundation, Inc.
+;; Copyright (C) 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
@@ -1032,7 +1032,7 @@ top-level bindings from ENV and return the resulting
expression."
(for-tail (list->seq src (append args (list res))))))
(else
(match (cons name (map for-value args))
- (('cons x ($ <const> _ ()))
+ (('cons x ($ <const> _ (? (cut eq? <> '()))))
(make-primcall src 'list (list x)))
(('cons x ($ <primcall> _ 'list elts))
(make-primcall src 'list (cons x elts)))
diff --git a/module/srfi/srfi-1.scm b/module/srfi/srfi-1.scm
index d2347b0..d2531b5 100644
--- a/module/srfi/srfi-1.scm
+++ b/module/srfi/srfi-1.scm
@@ -652,7 +652,7 @@ has just one element then that's the return value."
(define map! map)
(define (filter-map proc list1 . rest)
- "Apply PROC to to the elements of LIST1... and return a list of the
+ "Apply PROC to the elements of LIST1... and return a list of the
results as per SRFI-1 `map', except that any #f results are omitted from
the list returned."
(check-arg procedure? proc filter-map)
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index 9439990..0bc11a3 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -93,13 +93,13 @@
;;; This function is among the trickiest I've ever written. I tried many
;;; variants. In the end, simple is best, of course.
;;;
-;;; After turning this around a number of times, it seems that the the
+;;; After turning this around a number of times, it seems that the
;;; desired behavior is that .go files should exist in a path, for
;;; searching. That is orthogonal to this function. For writing .go
;;; files, either you know where they should go, in which case you tell
;;; compile-file explicitly, as in the srcdir != builddir case; or you
;;; don't know, in which case this function is called, and we just put
-;;; them in your own ccache dir in ~/.guile-ccache.
+;;; them in your own ccache dir in ~/.cache/guile/ccache.
;;;
;;; See also boot-9.scm:load.
(define (compiled-file-name file)
diff --git a/module/system/base/target.scm b/module/system/base/target.scm
index a81b3d9..304056d 100644
--- a/module/system/base/target.scm
+++ b/module/system/base/target.scm
@@ -1,6 +1,6 @@
;;; Compilation targets
-;; Copyright (C) 2011 Free Software Foundation, Inc.
+;; Copyright (C) 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
@@ -82,9 +82,9 @@
(cond ((string-match "^i[0-9]86$" cpu) 4)
((string-match "64$" cpu) 8)
((string-match "64[lbe][lbe]$" cpu) 8)
- ((member cpu '("sparc" "powerpc" "mips")) 4)
+ ((member cpu '("sparc" "powerpc" "mips" "mipsel")) 4)
((string-match "^arm.*" cpu) 4)
- (else "unknown CPU word size" cpu))))
+ (else (error "unknown CPU word size" cpu)))))
(define (triplet-cpu t)
(substring t 0 (string-index t #\-)))
diff --git a/module/web/http.scm b/module/web/http.scm
index dc742a1..b060af9 100644
--- a/module/web/http.scm
+++ b/module/web/http.scm
@@ -805,9 +805,6 @@ ordered alist."
(display-digits (date-second date) 2 port)
(display " GMT" port)))
-(define (write-uri uri port)
- (display (uri->string uri) port))
-
(define (parse-entity-tag val)
(if (string-prefix? "W/" val)
(cons (parse-qstring val 2) #f)
@@ -1082,7 +1079,18 @@ three values: the method, the URI, and the version."
"Write the first line of an HTTP request to @var{port}."
(display method port)
(display #\space port)
- (write-uri uri port)
+ (let ((path (uri-path uri))
+ (query (uri-query uri)))
+ (if (not (string-null? path))
+ (display path port))
+ (if query
+ (begin
+ (display "?" port)
+ (display query port)))
+ (if (and (string-null? path)
+ (not query))
+ ;; Make sure we display something.
+ (display "/" port)))
(display #\space port)
(write-http-version version port)
(display "\r\n" port))
@@ -1240,22 +1248,28 @@ phrase\"."
(declare-key-value-list-header! "Cache-Control"
(lambda (k v-str)
(case k
- ((max-age max-stale min-fresh s-maxage)
+ ((max-age min-fresh s-maxage)
(parse-non-negative-integer v-str))
+ ((max-stale)
+ (and v-str (parse-non-negative-integer v-str)))
((private no-cache)
(and v-str (split-header-names v-str)))
(else v-str)))
(lambda (k v)
(case k
- ((max-age max-stale min-fresh s-maxage)
+ ((max-age min-fresh s-maxage)
(non-negative-integer? v))
+ ((max-stale)
+ (or (not v) (non-negative-integer? v)))
((private no-cache)
(or (not v) (list-of-header-names? v)))
+ ((no-store no-transform only-if-cache must-revalidate proxy-revalidate)
+ (not v))
(else
- (not v))))
+ (or (not v) (string? v)))))
(lambda (k v port)
(cond
- ((string? v) (display v port))
+ ((string? v) (default-val-writer k v port))
((pair? v)
(display #\" port)
(write-header-list v port)
@@ -1500,7 +1514,15 @@ phrase\"."
;; Expires = HTTP-date
;;
-(declare-date-header! "Expires")
+(define *date-in-the-past* (parse-date "Thu, 01 Jan 1970 00:00:00 GMT"))
+
+(declare-header! "Expires"
+ (lambda (str)
+ (if (member str '("0" "-1"))
+ *date-in-the-past*
+ (parse-date str)))
+ date?
+ write-date)
;; Last-Modified = HTTP-date
;;
diff --git a/test-suite/lib.scm b/test-suite/lib.scm
index ecf3924..9a03dc9 100644
--- a/test-suite/lib.scm
+++ b/test-suite/lib.scm
@@ -119,7 +119,7 @@
;;;;
;;;; * (pass-if-exception name exception body) will pass if the execution of
;;;; body causes the given exception to be thrown. If no exception is
-;;;; thrown, the test fails. If some other exception is thrown, is is an
+;;;; thrown, the test fails. If some other exception is thrown, it is an
;;;; error.
;;;; * (expect-fail-exception name exception body) will pass unexpectedly if
;;;; the execution of body causes the given exception to be thrown. If no
diff --git a/test-suite/standalone/test-num2integral.c
b/test-suite/standalone/test-num2integral.c
index d210a19..c8dc3a7 100644
--- a/test-suite/standalone/test-num2integral.c
+++ b/test-suite/standalone/test-num2integral.c
@@ -1,4 +1,5 @@
-/* Copyright (C) 1999,2000,2001,2003,2004, 2006, 2008, 2010, 2011 Free
Software Foundation, Inc.
+/* Copyright (C) 1999, 2000, 2001, 2003, 2004, 2006, 2008, 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 License
@@ -34,8 +35,7 @@ SCM call_num2ulong_long_body (void *data);
SCM
out_of_range_handler (void *data, SCM key, SCM args)
{
- assert (scm_is_true
- (scm_equal_p (key, scm_from_locale_symbol ("out-of-range"))));
+ assert (scm_is_eq (key, scm_from_locale_symbol ("out-of-range")));
return SCM_BOOL_T;
}
diff --git a/test-suite/standalone/test-pthread-create-secondary.c
b/test-suite/standalone/test-pthread-create-secondary.c
index fe39c2a..e145fa5 100644
--- a/test-suite/standalone/test-pthread-create-secondary.c
+++ b/test-suite/standalone/test-pthread-create-secondary.c
@@ -27,7 +27,7 @@
#include <stdlib.h>
#include <libguile.h>
-#include <gc/gc_version.h>
+#include <gc/gc.h>
/* Up to GC 7.2alpha5, calling `GC_INIT' from a secondary thread would
diff --git a/test-suite/standalone/test-scm-spawn-thread.c
b/test-suite/standalone/test-scm-spawn-thread.c
index aa790cd..f6d561a 100644
--- a/test-suite/standalone/test-scm-spawn-thread.c
+++ b/test-suite/standalone/test-scm-spawn-thread.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2011 Free Software Foundation, Inc.
+/* Copyright (C) 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 License
diff --git a/test-suite/tests/arrays.test b/test-suite/tests/arrays.test
index b762f20..b6eee7c 100644
--- a/test-suite/tests/arrays.test
+++ b/test-suite/tests/arrays.test
@@ -1,6 +1,6 @@
;;;; unif.test --- tests guile's uniform arrays -*- scheme -*-
;;;;
-;;;; Copyright 2004, 2006, 2009, 2010 Free Software Foundation, Inc.
+;;;; Copyright 2004, 2006, 2009, 2010, 2011 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -606,3 +606,19 @@
(lambda (i) (list i i))
'(0 2))
#(a e i))))
+
+;;;
+;;; slices as generalized vectors
+;;;
+
+(let ((array #2u32((0 1) (2 3))))
+ (define (array-row a i)
+ (make-shared-array a (lambda (j) (list i j))
+ (cadr (array-dimensions a))))
+ (with-test-prefix "generalized vector slices"
+ (pass-if (equal? (array-row array 1)
+ #u32(2 3)))
+ (pass-if (equal? (array-ref (array-row array 1) 0)
+ 2))
+ (pass-if (equal? (generalized-vector-ref (array-row array 1) 0)
+ 2))))
diff --git a/test-suite/tests/c-api.test b/test-suite/tests/c-api.test
index 7c1b3bb..9a2108e 100644
--- a/test-suite/tests/c-api.test
+++ b/test-suite/tests/c-api.test
@@ -1,22 +1,24 @@
;;;; c-api.test --- complementary test suite for the c-api -*- scheme -*-
;;;; MDJ 990915 <address@hidden>
;;;;
-;;;; Copyright (C) 1999, 2006 Free Software Foundation, Inc.
-;;;;
+;;;; Copyright (C) 1999, 2006, 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
+(use-modules (test-suite lib))
+
(define srcdir (cdr (assq 'srcdir %guile-build-info)))
(define (egrep string filename)
@@ -25,15 +27,14 @@
(define (seek-offset-test dirname)
(let ((dir (opendir dirname)))
(do ((filename (readdir dir) (readdir dir)))
- ((eof-object? filename))
- (if (and
- (eqv? (string-ref filename (- (string-length filename) 1)) #\c)
- (eqv? (string-ref filename (- (string-length filename) 2)) #\.))
- (let ((file (string-append dirname "/" filename)))
- (if (and (file-exists? file)
- (egrep "SEEK_(SET|CUR|END)" file)
- (not (egrep "unistd.h" file)))
- (fail file)))))))
+ ((eof-object? filename))
+ (if (and
+ (eqv? (string-ref filename (- (string-length filename) 1)) #\c)
+ (eqv? (string-ref filename (- (string-length filename) 2)) #\.))
+ (let ((file (string-append dirname "/" filename)))
+ (if (and (file-exists? file)
+ (egrep "SEEK_(SET|CUR|END)" file))
+ (pass-if file (egrep "unistd.h" file))))))))
;;; A rough conservative test to check that all source files
;;; which use SEEK_SET, SEEK_CUR, and SEEK_END include unistd.h.
diff --git a/test-suite/tests/ftw.test b/test-suite/tests/ftw.test
index 41c731a..be983a1 100644
--- a/test-suite/tests/ftw.test
+++ b/test-suite/tests/ftw.test
@@ -1,6 +1,6 @@
;;;; ftw.test --- exercise ice-9/ftw.scm -*- scheme -*-
;;;;
-;;;; Copyright 2006, 2011 Free Software Foundation, Inc.
+;;;; Copyright 2006, 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
@@ -81,12 +81,71 @@
;;; `file-system-fold' & co.
;;;
+(define %top-builddir
+ (canonicalize-path (getcwd)))
+
(define %top-srcdir
(assq-ref %guile-build-info 'top_srcdir))
(define %test-dir
(string-append %top-srcdir "/test-suite"))
+(define (make-file-tree dir tree)
+ "Make file system TREE at DIR."
+ (define (touch file)
+ (call-with-output-file file
+ (cut display "" <>)))
+
+ (let loop ((dir dir)
+ (tree tree))
+ (define (scope file)
+ (string-append dir "/" file))
+
+ (match tree
+ (('directory name (body ...))
+ (mkdir (scope name))
+ (for-each (cute loop (scope name) <>) body))
+ (('directory name (? integer? mode) (body ...))
+ (mkdir (scope name))
+ (for-each (cute loop (scope name) <>) body)
+ (chmod (scope name) mode))
+ ((file)
+ (touch (scope file)))
+ ((file (? integer? mode))
+ (touch (scope file))
+ (chmod (scope file) mode))
+ ((from '-> to)
+ (symlink to (scope from))))))
+
+(define (delete-file-tree dir tree)
+ "Delete file TREE from DIR."
+ (let loop ((dir dir)
+ (tree tree))
+ (define (scope file)
+ (string-append dir "/" file))
+
+ (match tree
+ (('directory name (body ...))
+ (for-each (cute loop (scope name) <>) body)
+ (rmdir (scope name)))
+ (('directory name (? integer? mode) (body ...))
+ (chmod (scope name) #o755) ; make sure it can be entered
+ (for-each (cute loop (scope name) <>) body)
+ (rmdir (scope name)))
+ ((from '-> _)
+ (delete-file (scope from)))
+ ((file _ ...)
+ (delete-file (scope file))))))
+
+(define-syntax-rule (with-file-tree dir tree body ...)
+ (dynamic-wind
+ (lambda ()
+ (make-file-tree dir tree))
+ (lambda ()
+ body ...)
+ (lambda ()
+ (delete-file-tree dir tree))))
+
(with-test-prefix "file-system-fold"
(pass-if "test-suite"
@@ -98,10 +157,11 @@
(leaf (lambda (n s r) (cons `(leaf ,n) r)))
(down (lambda (n s r) (cons `(down ,n) r)))
(up (lambda (n s r) (cons `(up ,n) r)))
- (skip (lambda (n s r) (cons `(skip ,n) r))))
+ (skip (lambda (n s r) (cons `(skip ,n) r)))
+ (error (lambda (n s e r) (cons `(error ,n) r))))
(define seq
(reverse
- (file-system-fold enter? leaf down up skip '() %test-dir)))
+ (file-system-fold enter? leaf down up skip error '() %test-dir)))
(match seq
((('down (? (cut string=? <> %test-dir)))
@@ -123,8 +183,9 @@
(leaf (lambda (n s r) (cons `(leaf ,n) r)))
(down (lambda (n s r) (cons `(down ,n) r)))
(up (lambda (n s r) (cons `(up ,n) r)))
- (skip (lambda (n s r) (cons `(skip ,n) r))))
- (equal? (file-system-fold enter? leaf down up skip '() %test-dir)
+ (skip (lambda (n s r) (cons `(skip ,n) r)))
+ (error (lambda (n s e r) (cons `(error ,n) r))))
+ (equal? (file-system-fold enter? leaf down up skip error '() %test-dir)
`((skip , %test-dir)))))
(pass-if "test-suite/lib.scm (flat file)"
@@ -133,9 +194,67 @@
(down (lambda (n s r) (cons `(down ,n) r)))
(up (lambda (n s r) (cons `(up ,n) r)))
(skip (lambda (n s r) (cons `(skip ,n) r)))
+ (error (lambda (n s e r) (cons `(error ,n) r)))
(name (string-append %test-dir "/lib.scm")))
- (equal? (file-system-fold enter? leaf down up skip '() name)
- `((leaf ,name))))))
+ (equal? (file-system-fold enter? leaf down up skip error '() name)
+ `((leaf ,name)))))
+
+ (pass-if "ENOENT"
+ (let ((enter? (lambda (n s r) #t))
+ (leaf (lambda (n s r) (cons `(leaf ,n) r)))
+ (down (lambda (n s r) (cons `(down ,n) r)))
+ (up (lambda (n s r) (cons `(up ,n) r)))
+ (skip (lambda (n s r) (cons `(skip ,n) r)))
+ (error (lambda (n s e r) (cons `(error ,n ,e) r)))
+ (name "/.does-not-exist."))
+ (equal? (file-system-fold enter? leaf down up skip error '() name)
+ `((error ,name ,ENOENT)))))
+
+ (pass-if "EACCES"
+ (with-file-tree %top-builddir '(directory "test-EACCES" #o000
+ (("a") ("b")))
+ (let ((enter? (lambda (n s r) #t))
+ (leaf (lambda (n s r) (cons `(leaf ,n) r)))
+ (down (lambda (n s r) (cons `(down ,n) r)))
+ (up (lambda (n s r) (cons `(up ,n) r)))
+ (skip (lambda (n s r) (cons `(skip ,n) r)))
+ (error (lambda (n s e r) (cons `(error ,n ,e) r)))
+ (name (string-append %top-builddir "/test-EACCES")))
+ (equal? (file-system-fold enter? leaf down up skip error '() name)
+ `((error ,name ,EACCES))))))
+
+ (pass-if "dangling symlink and lstat"
+ (with-file-tree %top-builddir '(directory "test-dangling"
+ (("dangling" -> "xxx")))
+ (let ((enter? (lambda (n s r) #t))
+ (leaf (lambda (n s r) (cons `(leaf ,n) r)))
+ (down (lambda (n s r) (cons `(down ,n) r)))
+ (up (lambda (n s r) (cons `(up ,n) r)))
+ (skip (lambda (n s r) (cons `(skip ,n) r)))
+ (error (lambda (n s e r) (cons `(error ,n ,e) r)))
+ (name (string-append %top-builddir "/test-dangling")))
+ (equal? (file-system-fold enter? leaf down up skip error '()
+ name)
+ `((up ,name)
+ (leaf ,(string-append name "/dangling"))
+ (down ,name))))))
+
+ (pass-if "dangling symlink and stat"
+ ;; Same as above, but using `stat' instead of `lstat'.
+ (with-file-tree %top-builddir '(directory "test-dangling"
+ (("dangling" -> "xxx")))
+ (let ((enter? (lambda (n s r) #t))
+ (leaf (lambda (n s r) (cons `(leaf ,n) r)))
+ (down (lambda (n s r) (cons `(down ,n) r)))
+ (up (lambda (n s r) (cons `(up ,n) r)))
+ (skip (lambda (n s r) (cons `(skip ,n) r)))
+ (error (lambda (n s e r) (cons `(error ,n ,e) r)))
+ (name (string-append %top-builddir "/test-dangling")))
+ (equal? (file-system-fold enter? leaf down up skip error '()
+ name stat)
+ `((up ,name)
+ (error ,(string-append name "/dangling") ,ENOENT)
+ (down ,name)))))))
(with-test-prefix "file-system-tree"
@@ -165,10 +284,25 @@
(lset-intersection string=? files expected)
expected)))
(_ #f))
- children)))))
+ children))))
+
+ (pass-if "ENOENT"
+ (not (file-system-tree "/.does-not-exist."))))
(with-test-prefix "scandir"
+ (pass-if "top-srcdir"
+ (let ((valid? (negate (cut string-any #\/ <>))))
+ (match (scandir %top-srcdir)
+ (((? valid? files) ...)
+ ;; Both subdirs and files must be included.
+ (let ((expected '("libguile" "README" "COPYING"
+ "test-suite" "Makefile.am"
+ "." "..")))
+ (lset= string=?
+ (lset-intersection string=? files expected)
+ expected))))))
+
(pass-if "test-suite"
(let ((select? (cut string-suffix? ".test" <>)))
(match (scandir (string-append %test-dir "/tests") select?)
@@ -176,4 +310,11 @@
#t))))
(pass-if "flat file"
- (not (scandir (string-append %test-dir "/Makefile.am")))))
+ (not (scandir (string-append %test-dir "/Makefile.am"))))
+
+ (pass-if "EACCES"
+ (not (scandir "/.does-not-exist."))))
+
+;;; Local Variables:
+;;; eval: (put 'with-file-tree 'scheme-indent-function 2)
+;;; End:
diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test
index a5e418f..0567051 100644
--- a/test-suite/tests/i18n.test
+++ b/test-suite/tests/i18n.test
@@ -1,6 +1,6 @@
;;;; i18n.test --- Exercise the i18n API. -*- coding: utf-8; mode: scheme; -*-
;;;;
-;;;; Copyright (C) 2006, 2007, 2009, 2010, 2011 Free Software Foundation, Inc.
+;;;; Copyright (C) 2006, 2007, 2009, 2010, 2011, 2012 Free Software
Foundation, Inc.
;;;; Ludovic Courtès
;;;;
;;;; This library is free software; you can redistribute it and/or
@@ -138,7 +138,11 @@
(under-locale-or-unresolved %french-utf8-locale thunk))
(define (under-turkish-utf8-locale-or-unresolved thunk)
- (under-locale-or-unresolved %turkish-utf8-locale thunk))
+ ;; FreeBSD 8.2 has a broken tr_TR locale where `i' is mapped to
+ ;; uppercase `I' instead of `Ä°', so disable tests on that platform.
+ (if (string-contains %host-type "freebsd8")
+ (throw 'unresolved)
+ (under-locale-or-unresolved %turkish-utf8-locale thunk)))
(define (under-german-utf8-locale-or-unresolved thunk)
(under-locale-or-unresolved %german-utf8-locale thunk))
diff --git a/test-suite/tests/load.test b/test-suite/tests/load.test
index 50e5fa7..1cf8d65 100644
--- a/test-suite/tests/load.test
+++ b/test-suite/tests/load.test
@@ -1,7 +1,7 @@
;;;; load.test --- test LOAD and path searching functions -*- scheme -*-
;;;; Jim Blandy <address@hidden> --- September 1999
;;;;
-;;;; Copyright (C) 1999, 2001, 2006, 2010 Free Software Foundation, Inc.
+;;;; Copyright (C) 1999, 2001, 2006, 2010, 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
@@ -18,8 +18,9 @@
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
USA
(define-module (test-suite test-load)
- :use-module (test-suite lib)
- :use-module (test-suite guile-test))
+ #:use-module (test-suite lib)
+ #:use-module (test-suite guile-test)
+ #:use-module (system base compile))
(define temp-dir (data-file-name "load-test.dir"))
@@ -124,4 +125,17 @@
(try-search-with-extensions path "ugly.scm" extensions "dir3/ugly.scm")
(try-search-with-extensions path "ugly.ss" extensions #f))
+(with-test-prefix "return value of `load'"
+ (let ((temp-file (in-vicinity temp-dir "foo.scm")))
+ (call-with-output-file temp-file
+ (lambda (port)
+ (write '(+ 2 3) port)
+ (newline port)))
+ (pass-if "primitive-load"
+ (equal? 5 (primitive-load temp-file)))
+ (let ((temp-compiled-file (in-vicinity temp-dir "foo.go")))
+ (compile-file temp-file #:output-file temp-compiled-file)
+ (pass-if "load-compiled"
+ (equal? 5 (load-compiled temp-compiled-file))))))
+
(delete-tree temp-dir)
diff --git a/test-suite/tests/procprop.test b/test-suite/tests/procprop.test
index 25dd4c2..ceb6e56 100644
--- a/test-suite/tests/procprop.test
+++ b/test-suite/tests/procprop.test
@@ -1,7 +1,7 @@
;;;; procprop.test --- Procedure properties -*- mode: scheme; coding: utf-8;
-*-
;;;; Ludovic Courtès <address@hidden>
;;;;
-;;;; 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
@@ -72,4 +72,10 @@
(pass-if "opt, eval"
(equal? (procedure-minimum-arity (eval '(lambda* (a b #:optional c) #t)
(current-module)))
- '(2 1 #f))))
+ '(2 1 #f)))
+
+ (if (include-deprecated-features)
+ (pass-if-exception "set-procedure-properties! arity"
+ '(misc-error . "arity is a read-only property")
+ (set-procedure-properties! (lambda x x) '((arity . 3))))
+ #t))
diff --git a/test-suite/tests/r4rs.test b/test-suite/tests/r4rs.test
index e26fdad..1e4243c 100644
--- a/test-suite/tests/r4rs.test
+++ b/test-suite/tests/r4rs.test
@@ -35,7 +35,7 @@
;;;; Author: Aubrey Jaffer
;;;; Modified: Mikael Djurfeldt
;;;; Removed tests which Guile deliberately
-;;;; won't pass. Made the the tests (test-cont), (test-sc4), and
+;;;; won't pass. Made the tests (test-cont), (test-sc4), and
;;;; (test-delay) start to run automatically.
;;;; Modified: Jim Blandy
;;;; adapted to new Guile test suite framework
diff --git a/test-suite/tests/ramap.test b/test-suite/tests/ramap.test
index e3a65ae..5b99f72 100644
--- a/test-suite/tests/ramap.test
+++ b/test-suite/tests/ramap.test
@@ -19,6 +19,14 @@
(define-module (test-suite test-ramap)
#:use-module (test-suite lib))
+(define (array-row a i)
+ (make-shared-array a (lambda (j) (list i j))
+ (cadr (array-dimensions a))))
+
+(define (array-col a j)
+ (make-shared-array a (lambda (i) (list i j))
+ (car (array-dimensions a))))
+
;;;
;;; array-index-map!
;;;
@@ -183,4 +191,67 @@
(pass-if "+"
(let ((a (make-array #f 4)))
(array-map! a + #(1 2 3 4) #(5 6 7 8))
- (equal? a #(6 8 10 12))))))
+ (equal? a #(6 8 10 12))))
+
+ (pass-if "noncompact arrays 1"
+ (let ((a #2((0 1) (2 3)))
+ (c #(0 0)))
+ (begin
+ (array-map! c + (array-row a 1) (array-row a 1))
+ (array-equal? c #(4 6)))))
+
+ (pass-if "noncompact arrays 2"
+ (let ((a #2((0 1) (2 3)))
+ (c #(0 0)))
+ (begin
+ (array-map! c + (array-col a 1) (array-col a 1))
+ (array-equal? c #(2 6)))))
+
+ (pass-if "noncompact arrays 3"
+ (let ((a #2((0 1) (2 3)))
+ (c #(0 0)))
+ (begin
+ (array-map! c + (array-col a 1) (array-row a 1))
+ (array-equal? c #(3 6)))))
+
+ (pass-if "noncompact arrays 4"
+ (let ((a #2((0 1) (2 3)))
+ (c #(0 0)))
+ (begin
+ (array-map! c + (array-col a 1) (array-row a 1))
+ (array-equal? c #(3 6)))))))
+
+;;;
+;;; array-for-each
+;;;
+
+(with-test-prefix "array-for-each"
+
+ (with-test-prefix "3 sources"
+ (pass-if "noncompact arrays 1"
+ (let* ((a #2((0 1) (2 3)))
+ (l '())
+ (rec (lambda args (set! l (cons args l)))))
+ (array-for-each rec (array-row a 1) (array-row a 1) (array-row a 1))
+ (equal? l '((3 3 3) (2 2 2)))))
+
+ (pass-if "noncompact arrays 2"
+ (let* ((a #2((0 1) (2 3)))
+ (l '())
+ (rec (lambda args (set! l (cons args l)))))
+ (array-for-each rec (array-row a 1) (array-row a 1) (array-col a 1))
+ (equal? l '((3 3 3) (2 2 1)))))
+
+ (pass-if "noncompact arrays 3"
+ (let* ((a #2((0 1) (2 3)))
+ (l '())
+ (rec (lambda args (set! l (cons args l)))))
+ (array-for-each rec (array-row a 1) (array-col a 1) (array-col a 1))
+ (equal? l '((3 3 3) (2 1 1)))))
+
+ (pass-if "noncompact arrays 4"
+ (let* ((a #2((0 1) (2 3)))
+ (l '())
+ (rec (lambda args (set! l (cons args l)))))
+ (array-for-each rec (array-col a 1) (array-col a 0) (array-row a 1))
+ (equal? l '((3 2 3) (1 0 2)))))))
diff --git a/test-suite/tests/regexp.test b/test-suite/tests/regexp.test
index 832542e..c2b65a6 100644
--- a/test-suite/tests/regexp.test
+++ b/test-suite/tests/regexp.test
@@ -147,6 +147,14 @@
(define char-code-limit 256)
+;; Since `regexp-quote' uses string ports, and since it is used below
+;; with non-ASCII characters, these ports must be Unicode-capable.
+(define-syntax with-unicode
+ (syntax-rules ()
+ ((_ exp)
+ (with-fluids ((%default-port-encoding "UTF-8"))
+ exp))))
+
(with-test-prefix "regexp-quote"
(pass-if-exception "no args" exception:wrong-num-args
@@ -175,7 +183,7 @@
(s (string c)))
(pass-if (list "char" i (format #f "~s ~s" c s))
(with-ascii-or-latin1-locale i
- (let* ((q (regexp-quote s))
+ (let* ((q (with-unicode (regexp-quote s)))
(m (regexp-exec (make-regexp q flag) s)))
(and (= 0 (match:start m))
(= 1 (match:end m))))))))
@@ -187,7 +195,7 @@
((>= i char-code-limit))
(let* ((c (integer->char i))
(s (string #\a c))
- (q (regexp-quote s)))
+ (q (with-unicode (regexp-quote s))))
(pass-if (list "string \"aX\"" i (format #f "~s ~s ~s" c s q))
(with-ascii-or-latin1-locale i
(let* ((m (regexp-exec (make-regexp q flag) s)))
@@ -196,7 +204,8 @@
(pass-if "string of all chars"
(with-latin1-locale
- (let ((m (regexp-exec (make-regexp (regexp-quote allchars)
+ (let ((m (regexp-exec (make-regexp (with-unicode
+ (regexp-quote allchars))
flag) allchars)))
(and (= 0 (match:start m))
(= (string-length allchars) (match:end m)))))))))
diff --git a/test-suite/tests/srfi-67.test b/test-suite/tests/srfi-67.test
index e5a4471..312282e 100644
--- a/test-suite/tests/srfi-67.test
+++ b/test-suite/tests/srfi-67.test
@@ -36,7 +36,7 @@
; Test engine
; ===========
;
-; We use an extended version of the the checker of SRFI-42 (with
+; We use an extended version of the checker of SRFI-42 (with
; Felix' reduction on codesize) for running a batch of tests for
; the various procedures of 'compare.scm'. Moreover, we use the
; comprehensions of SRFI-42 to generate examples systematically.
diff --git a/test-suite/tests/statprof.test b/test-suite/tests/statprof.test
index 7ce39ba..b2ee41e 100644
--- a/test-suite/tests/statprof.test
+++ b/test-suite/tests/statprof.test
@@ -75,7 +75,7 @@
(let ((drift-fraction (/ max-diff average)))
(or (< drift-fraction max-allowed-drift)
- ;; don't stop the the test suite for what statistically is
+ ;; don't stop the test suite for what statistically is
;; bound to happen.
(throw 'unresolved (pk average drift-fraction))))))))
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index f53d196..5163bac 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -1,7 +1,8 @@
;;;; syntax.test --- test suite for Guile's syntactic forms -*- scheme -*-
;;;;
-;;;; Copyright (C) 2001,2003,2004, 2005, 2006, 2009, 2010, 2011 Free Software
Foundation, Inc.
-;;;;
+;;;; Copyright (C) 2001, 2003, 2004, 2005, 2006, 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
;;;; License as published by the Free Software Foundation; either
@@ -80,6 +81,8 @@
(define exception:too-many-args
"too many arguments")
+(define exception:zero-expression-sequence
+ "sequence of zero expressions")
;; (put 'pass-if-syntax-error 'scheme-indent-function 1)
@@ -88,7 +91,7 @@
((_ name pat exp)
(pass-if name
(catch 'syntax-error
- (lambda () exp (error "expected uri-error exception"))
+ (lambda () exp (error "expected syntax-error exception"))
(lambda (k who what where form . maybe-subform)
(if (if (pair? pat)
(and (eq? who (car pat))
@@ -147,12 +150,13 @@
(with-test-prefix "begin"
- (pass-if "legal (begin)"
+ (pass-if "valid (begin)"
(eval '(begin (begin) #t) (interaction-environment)))
- (pass-if-syntax-error "illegal (begin)"
- exception:generic-syncase-error
- (eval '(begin (if #t (begin)) #t) (interaction-environment))))
+ (if (not (include-deprecated-features))
+ (pass-if-syntax-error "invalid (begin)"
+ exception:zero-expression-sequence
+ (eval '(begin (if #t (begin)) #t) (interaction-environment)))))
(define-syntax matches?
(syntax-rules (<>)
diff --git a/test-suite/tests/tree-il.test b/test-suite/tests/tree-il.test
index 118dd53..e8945c6 100644
--- a/test-suite/tests/tree-il.test
+++ b/test-suite/tests/tree-il.test
@@ -1426,6 +1426,11 @@
(call (toplevel top) (lexical x _)))))))
(pass-if-peval
+ ;; Constant folding: cons of #nil does not make list
+ (cons 1 #nil)
+ (primcall cons (const 1) (const '#nil)))
+
+ (pass-if-peval
;; Constant folding: cons
(begin (cons 1 2) #f)
(const #f))
diff --git a/test-suite/tests/web-http.test b/test-suite/tests/web-http.test
index b6abbf3..7984565 100644
--- a/test-suite/tests/web-http.test
+++ b/test-suite/tests/web-http.test
@@ -45,6 +45,18 @@
val)
(valid-header? 'sym val))))))
+(define-syntax pass-if-round-trip
+ (syntax-rules ()
+ ((_ str)
+ (pass-if (format #f "~s round trip" str)
+ (equal? (call-with-output-string
+ (lambda (port)
+ (call-with-values
+ (lambda () (read-header (open-input-string str)))
+ (lambda (sym val)
+ (write-header sym val port)))))
+ str)))))
+
(define-syntax pass-if-any-error
(syntax-rules ()
((_ sym str)
@@ -83,6 +95,12 @@
'((private . (foo))))
(pass-if-parse cache-control "no-cache,max-age=10"
'(no-cache (max-age . 10)))
+ (pass-if-parse cache-control "max-stale" '(max-stale))
+ (pass-if-parse cache-control "max-stale=10" '((max-stale . 10)))
+ (pass-if-round-trip "Cache-Control: acme-cache-extension\r\n")
+ (pass-if-round-trip "Cache-Control: acme-cache-extension=20\r\n")
+ (pass-if-round-trip "Cache-Control: acme-cache-extension=100 quux\r\n")
+ (pass-if-round-trip "Cache-Control: acme-cache-extension=\"100, quux\"\r\n")
(pass-if-parse connection "close" '(close))
(pass-if-parse connection "Content-Encoding" '(content-encoding))
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, master, updated. v2.1.0-284-g91ee751,
Andy Wingo <=