|
| From: | Ludovic Courtès |
| Subject: | [Guile-commits] GNU Guile branch, master, updated. release_1-9-4-10-g416c9fb |
| Date: | Mon, 19 Oct 2009 20:45:50 +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=416c9fb363a2b2f31382c5a488c6e27c31a3b62f
The branch, master has been updated
via 416c9fb363a2b2f31382c5a488c6e27c31a3b62f (commit)
via 620c89651ae54f8f35c3d0926f8c2c36c3fdd174 (commit)
from cbeb479c6e4da67ef37efa2548713fd6eadc71f3 (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 416c9fb363a2b2f31382c5a488c6e27c31a3b62f
Author: Julian Graham <address@hidden>
Date: Sun Oct 18 17:56:13 2009 -0400
Fix typo in psyntax.scm related to syntax-violation reporting.
* module/ice-9/psyntax.scm (chi-macro): Replace `s' with `(wrap-subst w)'.
Signed-off-by: Ludovic Courtès <address@hidden>
commit 620c89651ae54f8f35c3d0926f8c2c36c3fdd174
Author: Ludovic Courtès <address@hidden>
Date: Mon Oct 19 22:38:34 2009 +0200
Add support for R6RS/SRFI-30 nested block comments.
Suggested by Andreas Rottmann <address@hidden>.
* libguile/read.c (flush_ws, scm_read_sharp): Add support for
R6RS/SRFI-30 block comments.
(scm_read_r6rs_block_comment): New function.
* test-suite/tests/reader.test (exception:unterminated-block-comment):
Adjust to match both block comment styles.
("reading")["R6RS/SRFI-30 block comment", "R6RS/SRFI-30 nested block
comment", "R6RS/SRFI-30 block comment syntax overridden"]: New tests.
("exceptions")["R6RS/SRFI-30 unterminated nested block comment"]: New
test.
* doc/ref/api-evaluation.texi (Block Comments): Mention SRFI-30/R6RS
block comments.
* doc/ref/srfi-modules.texi (SRFI-30): New node.
-----------------------------------------------------------------------
Summary of changes:
doc/ref/api-evaluation.texi | 15 +
doc/ref/srfi-modules.texi | 10 +-
libguile/read.c | 68 +-
module/ice-9/psyntax-pp.scm |10700 +++++++++++++++++++++---------------------
module/ice-9/psyntax.scm | 2 +-
test-suite/tests/reader.test | 32 +-
6 files changed, 5479 insertions(+), 5348 deletions(-)
diff --git a/doc/ref/api-evaluation.texi b/doc/ref/api-evaluation.texi
index 8abd9f9..e50a515 100644
--- a/doc/ref/api-evaluation.texi
+++ b/doc/ref/api-evaluation.texi
@@ -230,6 +230,21 @@ Thus a Guile script often starts like this.
More details on Guile scripting can be found in the scripting section
(@pxref{Guile Scripting}).
address@hidden R6RS block comments
address@hidden SRFI-30 block comments
+Similarly, Guile (starting from version 2.0) supports nested block
+comments as specified by R6RS and
address@hidden://srfi.schemers.org/srfi-30/srfi-30.html, SRFI-30}:
+
address@hidden
+(+ #| this is a #| nested |# block comment |# 2)
address@hidden 3
address@hidden lisp
+
+For backward compatibility, this syntax can be overridden with
address@hidden (@pxref{Reader Extensions,
address@hidden).
+
There is one special case where the contents of a comment can actually
affect the interpretation of code. When a character encoding
declaration, such as @code{coding: utf-8} appears in one of the first
diff --git a/doc/ref/srfi-modules.texi b/doc/ref/srfi-modules.texi
index 7c107e7..d3183e2 100644
--- a/doc/ref/srfi-modules.texi
+++ b/doc/ref/srfi-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, 2006,
2007, 2008
address@hidden Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2006,
2007, 2008, 2009
@c Free Software Foundation, Inc.
@c See the file guile.texi for copying conditions.
@@ -37,6 +37,7 @@ get the relevant SRFI documents from the SRFI home page
* SRFI-18:: Multithreading support
* SRFI-19:: Time/Date library.
* SRFI-26:: Specializing parameters
+* SRFI-30:: Nested multi-line block comments
* SRFI-31:: A special form `rec' for recursive evaluation
* SRFI-34:: Exception handling.
* SRFI-35:: Conditions.
@@ -2712,6 +2713,13 @@ or similar is typical.
@end example
@end deffn
address@hidden SRFI-30
address@hidden SRFI-30 - Nested Multi-line Comments
address@hidden SRFI-30
+
+Starting from version 2.0, Guile's @code{read} supports SRFI-30/R6RS
+nested multi-line comments by default, @ref{Block Comments}.
+
@node SRFI-31
@subsection SRFI-31 - A special form `rec' for recursive evaluation
@cindex SRFI-31
diff --git a/libguile/read.c b/libguile/read.c
index 07c8d71..fc56418 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -181,8 +181,10 @@ static SCM *scm_read_hash_procedures;
|| ((_chr) == 'd') || ((_chr) == 'l'))
/* Read an SCSH block comment. */
-static inline SCM scm_read_scsh_block_comment (int chr, SCM port);
-static SCM scm_read_commented_expression (int chr, SCM port);
+static inline SCM scm_read_scsh_block_comment (scm_t_wchar, SCM);
+static SCM scm_read_r6rs_block_comment (scm_t_wchar, SCM);
+static SCM scm_read_commented_expression (scm_t_wchar, SCM);
+static SCM scm_get_hash_procedure (int);
/* Read from PORT until a delimiter (e.g., a whitespace) is read. Return
zero if the whole token fits in BUF, non-zero otherwise. */
@@ -289,6 +291,13 @@ flush_ws (SCM port, const char *eoferr)
case ';':
scm_read_commented_expression (c, port);
break;
+ case '|':
+ if (scm_is_false (scm_get_hash_procedure (c)))
+ {
+ scm_read_r6rs_block_comment (c, port);
+ break;
+ }
+ /* fall through */
default:
scm_ungetc (c, port);
return '#';
@@ -313,7 +322,6 @@ flush_ws (SCM port, const char *eoferr)
static SCM scm_read_expression (SCM port);
static SCM scm_read_sharp (int chr, SCM port);
-static SCM scm_get_hash_procedure (int c);
static SCM recsexpr (SCM obj, long line, int column, SCM filename);
@@ -991,6 +999,45 @@ scm_read_scsh_block_comment (scm_t_wchar chr, SCM port)
}
static SCM
+scm_read_r6rs_block_comment (scm_t_wchar chr, SCM port)
+{
+ /* Unlike SCSH-style block comments, SRFI-30/R6RS block comments may be
+ nested. So care must be taken. */
+ int nesting_level = 1;
+ int opening_seen = 0, closing_seen = 0;
+
+ while (nesting_level > 0)
+ {
+ int c = scm_getc (port);
+
+ if (c == EOF)
+ scm_i_input_error (__FUNCTION__, port,
+ "unterminated `#| ... |#' comment", SCM_EOL);
+
+ if (opening_seen)
+ {
+ if (c == '|')
+ nesting_level++;
+ opening_seen = 0;
+ }
+ else if (closing_seen)
+ {
+ if (c == '#')
+ nesting_level--;
+ closing_seen = 0;
+ }
+ else if (c == '|')
+ closing_seen = 1;
+ else if (c == '#')
+ opening_seen = 1;
+ else
+ opening_seen = closing_seen = 0;
+ }
+
+ return SCM_UNSPECIFIED;
+}
+
+static SCM
scm_read_commented_expression (scm_t_wchar chr, SCM port)
{
scm_t_wchar c;
@@ -1173,8 +1220,19 @@ scm_read_sharp (scm_t_wchar chr, SCM port)
default:
result = scm_read_sharp_extension (chr, port);
if (scm_is_eq (result, SCM_UNSPECIFIED))
- scm_i_input_error (FUNC_NAME, port, "Unknown # object: ~S",
- scm_list_1 (SCM_MAKE_CHAR (chr)));
+ {
+ /* To remain compatible with 1.8 and earlier, the following
+ characters have lower precedence than `read-hash-extend'
+ characters. */
+ switch (chr)
+ {
+ case '|':
+ return scm_read_r6rs_block_comment (chr, port);
+ default:
+ scm_i_input_error (FUNC_NAME, port, "Unknown # object: ~S",
+ scm_list_1 (SCM_MAKE_CHAR (chr)));
+ }
+ }
else
return result;
}
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index fecd2b2..a505744 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,122 +1,125 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((#{and-map*\ 1199}#
- (lambda (#{f\ 1239}# #{first\ 1238}# . #{rest\ 1237}#)
- (let ((#{t\ 1240}# (null? #{first\ 1238}#)))
- (if #{t\ 1240}#
- #{t\ 1240}#
- (if (null? #{rest\ 1237}#)
- (letrec ((#{andmap\ 1241}#
- (lambda (#{first\ 1242}#)
- (let ((#{x\ 1243}# (car #{first\ 1242}#))
- (#{first\ 1244}# (cdr #{first\ 1242}#)))
- (if (null? #{first\ 1244}#)
- (#{f\ 1239}# #{x\ 1243}#)
- (if (#{f\ 1239}# #{x\ 1243}#)
- (#{andmap\ 1241}# #{first\ 1244}#)
+(letrec ((#{and-map*\ 31}#
+ (lambda (#{f\ 71}# #{first\ 70}# . #{rest\ 69}#)
+ (let ((#{t\ 72}# (null? #{first\ 70}#)))
+ (if #{t\ 72}#
+ #{t\ 72}#
+ (if (null? #{rest\ 69}#)
+ (letrec ((#{andmap\ 73}#
+ (lambda (#{first\ 74}#)
+ (let ((#{x\ 75}# (car #{first\ 74}#))
+ (#{first\ 76}# (cdr #{first\ 74}#)))
+ (if (null? #{first\ 76}#)
+ (#{f\ 71}# #{x\ 75}#)
+ (if (#{f\ 71}# #{x\ 75}#)
+ (#{andmap\ 73}# #{first\ 76}#)
#f))))))
- (#{andmap\ 1241}# #{first\ 1238}#))
- (letrec ((#{andmap\ 1245}#
- (lambda (#{first\ 1246}# #{rest\ 1247}#)
- (let ((#{x\ 1248}# (car #{first\ 1246}#))
- (#{xr\ 1249}# (map car #{rest\ 1247}#))
- (#{first\ 1250}# (cdr #{first\ 1246}#))
- (#{rest\ 1251}#
- (map cdr #{rest\ 1247}#)))
- (if (null? #{first\ 1250}#)
- (apply #{f\ 1239}#
- (cons #{x\ 1248}# #{xr\ 1249}#))
- (if (apply #{f\ 1239}#
- (cons #{x\ 1248}# #{xr\ 1249}#))
- (#{andmap\ 1245}#
- #{first\ 1250}#
- #{rest\ 1251}#)
+ (#{andmap\ 73}# #{first\ 70}#))
+ (letrec ((#{andmap\ 77}#
+ (lambda (#{first\ 78}# #{rest\ 79}#)
+ (let ((#{x\ 80}# (car #{first\ 78}#))
+ (#{xr\ 81}# (map car #{rest\ 79}#))
+ (#{first\ 82}# (cdr #{first\ 78}#))
+ (#{rest\ 83}# (map cdr #{rest\ 79}#)))
+ (if (null? #{first\ 82}#)
+ (apply #{f\ 71}#
+ (cons #{x\ 80}# #{xr\ 81}#))
+ (if (apply #{f\ 71}#
+ (cons #{x\ 80}# #{xr\ 81}#))
+ (#{andmap\ 77}#
+ #{first\ 82}#
+ #{rest\ 83}#)
#f))))))
- (#{andmap\ 1245}# #{first\ 1238}# #{rest\ 1237}#))))))))
- (letrec ((#{lambda-var-list\ 1345}#
- (lambda (#{vars\ 1469}#)
- (letrec ((#{lvl\ 1470}#
- (lambda (#{vars\ 1471}# #{ls\ 1472}# #{w\ 1473}#)
- (if (pair? #{vars\ 1471}#)
- (#{lvl\ 1470}#
- (cdr #{vars\ 1471}#)
- (cons (#{wrap\ 1325}#
- (car #{vars\ 1471}#)
- #{w\ 1473}#
+ (#{andmap\ 77}# #{first\ 70}# #{rest\ 69}#))))))))
+ (letrec ((#{lambda-var-list\ 177}#
+ (lambda (#{vars\ 301}#)
+ (letrec ((#{lvl\ 302}#
+ (lambda (#{vars\ 303}# #{ls\ 304}# #{w\ 305}#)
+ (if (pair? #{vars\ 303}#)
+ (#{lvl\ 302}#
+ (cdr #{vars\ 303}#)
+ (cons (#{wrap\ 157}#
+ (car #{vars\ 303}#)
+ #{w\ 305}#
#f)
- #{ls\ 1472}#)
- #{w\ 1473}#)
- (if (#{id?\ 1297}# #{vars\ 1471}#)
- (cons (#{wrap\ 1325}#
- #{vars\ 1471}#
- #{w\ 1473}#
+ #{ls\ 304}#)
+ #{w\ 305}#)
+ (if (#{id?\ 129}# #{vars\ 303}#)
+ (cons (#{wrap\ 157}#
+ #{vars\ 303}#
+ #{w\ 305}#
#f)
- #{ls\ 1472}#)
- (if (null? #{vars\ 1471}#)
- #{ls\ 1472}#
- (if (#{syntax-object?\ 1281}# #{vars\ 1471}#)
- (#{lvl\ 1470}#
- (#{syntax-object-expression\ 1282}#
- #{vars\ 1471}#)
- #{ls\ 1472}#
- (#{join-wraps\ 1316}#
- #{w\ 1473}#
- (#{syntax-object-wrap\ 1283}#
- #{vars\ 1471}#)))
- (cons #{vars\ 1471}# #{ls\ 1472}#))))))))
- (#{lvl\ 1470}#
- #{vars\ 1469}#
+ #{ls\ 304}#)
+ (if (null? #{vars\ 303}#)
+ #{ls\ 304}#
+ (if (#{syntax-object?\ 113}# #{vars\ 303}#)
+ (#{lvl\ 302}#
+ (#{syntax-object-expression\ 114}#
+ #{vars\ 303}#)
+ #{ls\ 304}#
+ (#{join-wraps\ 148}#
+ #{w\ 305}#
+ (#{syntax-object-wrap\ 115}#
+ #{vars\ 303}#)))
+ (cons #{vars\ 303}# #{ls\ 304}#))))))))
+ (#{lvl\ 302}#
+ #{vars\ 301}#
'()
'(())))))
- (#{gen-var\ 1344}#
- (lambda (#{id\ 1474}#)
- (let ((#{id\ 1475}#
- (if (#{syntax-object?\ 1281}# #{id\ 1474}#)
- (#{syntax-object-expression\ 1282}# #{id\ 1474}#)
- #{id\ 1474}#)))
+ (#{gen-var\ 176}#
+ (lambda (#{id\ 306}#)
+ (let ((#{id\ 307}#
+ (if (#{syntax-object?\ 113}# #{id\ 306}#)
+ (#{syntax-object-expression\ 114}# #{id\ 306}#)
+ #{id\ 306}#)))
(gensym
- (string-append (symbol->string #{id\ 1475}#) " ")))))
- (#{strip\ 1343}#
- (lambda (#{x\ 1476}# #{w\ 1477}#)
+ (string-append (symbol->string #{id\ 307}#) " ")))))
+ (#{strip\ 175}#
+ (lambda (#{x\ 308}# #{w\ 309}#)
(if (memq 'top
- (#{wrap-marks\ 1300}# #{w\ 1477}#))
- #{x\ 1476}#
- (letrec ((#{f\ 1478}#
- (lambda (#{x\ 1479}#)
- (if (#{syntax-object?\ 1281}# #{x\ 1479}#)
- (#{strip\ 1343}#
- (#{syntax-object-expression\ 1282}#
- #{x\ 1479}#)
- (#{syntax-object-wrap\ 1283}# #{x\ 1479}#))
- (if (pair? #{x\ 1479}#)
- (let ((#{a\ 1480}#
- (#{f\ 1478}# (car #{x\ 1479}#)))
- (#{d\ 1481}#
- (#{f\ 1478}# (cdr #{x\ 1479}#))))
- (if (if (eq? #{a\ 1480}# (car #{x\ 1479}#))
- (eq? #{d\ 1481}# (cdr #{x\ 1479}#))
- #f)
- #{x\ 1479}#
- (cons #{a\ 1480}# #{d\ 1481}#)))
- (if (vector? #{x\ 1479}#)
- (let ((#{old\ 1482}#
- (vector->list #{x\ 1479}#)))
- (let ((#{new\ 1483}#
- (map #{f\ 1478}# #{old\ 1482}#)))
- (if (#{and-map*\ 1199}#
- eq?
- #{old\ 1482}#
- #{new\ 1483}#)
- #{x\ 1479}#
- (list->vector #{new\ 1483}#))))
- #{x\ 1479}#))))))
- (#{f\ 1478}# #{x\ 1476}#)))))
- (#{ellipsis?\ 1342}#
- (lambda (#{x\ 1484}#)
- (if (#{nonsymbol-id?\ 1296}# #{x\ 1484}#)
- (#{free-id=?\ 1320}#
- #{x\ 1484}#
+ (#{wrap-marks\ 132}# #{w\ 309}#))
+ #{x\ 308}#
+ (letrec ((#{f\ 310}# (lambda (#{x\ 311}#)
+ (if (#{syntax-object?\ 113}#
+ #{x\ 311}#)
+ (#{strip\ 175}#
+ (#{syntax-object-expression\ 114}#
+ #{x\ 311}#)
+ (#{syntax-object-wrap\ 115}#
+ #{x\ 311}#))
+ (if (pair? #{x\ 311}#)
+ (let ((#{a\ 312}# (#{f\ 310}# (car
#{x\ 311}#)))
+ (#{d\ 313}# (#{f\ 310}# (cdr
#{x\ 311}#))))
+ (if (if (eq? #{a\ 312}#
+ (car #{x\ 311}#))
+ (eq? #{d\ 313}#
+ (cdr #{x\ 311}#))
+ #f)
+ #{x\ 311}#
+ (cons #{a\ 312}# #{d\ 313}#)))
+ (if (vector? #{x\ 311}#)
+ (let ((#{old\ 314}#
+ (vector->list
+ #{x\ 311}#)))
+ (let ((#{new\ 315}#
+ (map #{f\ 310}#
+ #{old\ 314}#)))
+ (if (#{and-map*\ 31}#
+ eq?
+ #{old\ 314}#
+ #{new\ 315}#)
+ #{x\ 311}#
+ (list->vector
+ #{new\ 315}#))))
+ #{x\ 311}#))))))
+ (#{f\ 310}# #{x\ 308}#)))))
+ (#{ellipsis?\ 174}#
+ (lambda (#{x\ 316}#)
+ (if (#{nonsymbol-id?\ 128}# #{x\ 316}#)
+ (#{free-id=?\ 152}#
+ #{x\ 316}#
'#(syntax-object
...
((top)
@@ -466,1401 +469,1370 @@
("i" "i")))
(hygiene guile)))
#f)))
- (#{chi-void\ 1341}#
- (lambda () (#{build-void\ 1263}# #f)))
- (#{eval-local-transformer\ 1340}#
- (lambda (#{expanded\ 1485}# #{mod\ 1486}#)
- (let ((#{p\ 1487}#
- (#{local-eval-hook\ 1259}#
- #{expanded\ 1485}#
- #{mod\ 1486}#)))
- (if (procedure? #{p\ 1487}#)
- #{p\ 1487}#
+ (#{chi-void\ 173}#
+ (lambda () (#{build-void\ 95}# #f)))
+ (#{eval-local-transformer\ 172}#
+ (lambda (#{expanded\ 317}# #{mod\ 318}#)
+ (let ((#{p\ 319}# (#{local-eval-hook\ 91}#
+ #{expanded\ 317}#
+ #{mod\ 318}#)))
+ (if (procedure? #{p\ 319}#)
+ #{p\ 319}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 1487}#)))))
- (#{chi-local-syntax\ 1339}#
- (lambda (#{rec?\ 1488}#
- #{e\ 1489}#
- #{r\ 1490}#
- #{w\ 1491}#
- #{s\ 1492}#
- #{mod\ 1493}#
- #{k\ 1494}#)
- ((lambda (#{tmp\ 1495}#)
- ((lambda (#{tmp\ 1496}#)
- (if #{tmp\ 1496}#
- (apply (lambda (#{_\ 1497}#
- #{id\ 1498}#
- #{val\ 1499}#
- #{e1\ 1500}#
- #{e2\ 1501}#)
- (let ((#{ids\ 1502}# #{id\ 1498}#))
- (if (not (#{valid-bound-ids?\ 1322}#
- #{ids\ 1502}#))
+ #{p\ 319}#)))))
+ (#{chi-local-syntax\ 171}#
+ (lambda (#{rec?\ 320}#
+ #{e\ 321}#
+ #{r\ 322}#
+ #{w\ 323}#
+ #{s\ 324}#
+ #{mod\ 325}#
+ #{k\ 326}#)
+ ((lambda (#{tmp\ 327}#)
+ ((lambda (#{tmp\ 328}#)
+ (if #{tmp\ 328}#
+ (apply (lambda (#{_\ 329}#
+ #{id\ 330}#
+ #{val\ 331}#
+ #{e1\ 332}#
+ #{e2\ 333}#)
+ (let ((#{ids\ 334}# #{id\ 330}#))
+ (if (not (#{valid-bound-ids?\ 154}#
+ #{ids\ 334}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 1489}#)
- (let ((#{labels\ 1504}#
- (#{gen-labels\ 1303}#
- #{ids\ 1502}#)))
- (let ((#{new-w\ 1505}#
- (#{make-binding-wrap\ 1314}#
- #{ids\ 1502}#
- #{labels\ 1504}#
- #{w\ 1491}#)))
- (#{k\ 1494}#
- (cons #{e1\ 1500}# #{e2\ 1501}#)
- (#{extend-env\ 1291}#
- #{labels\ 1504}#
- (let ((#{w\ 1507}#
- (if #{rec?\ 1488}#
- #{new-w\ 1505}#
- #{w\ 1491}#))
- (#{trans-r\ 1508}#
- (#{macros-only-env\ 1293}#
- #{r\ 1490}#)))
- (map (lambda (#{x\ 1509}#)
- (cons 'macro
-
(#{eval-local-transformer\ 1340}#
- (#{chi\ 1333}#
- #{x\ 1509}#
- #{trans-r\
1508}#
- #{w\ 1507}#
- #{mod\ 1493}#)
- #{mod\ 1493}#)))
- #{val\ 1499}#))
- #{r\ 1490}#)
- #{new-w\ 1505}#
- #{s\ 1492}#
- #{mod\ 1493}#))))))
- #{tmp\ 1496}#)
- ((lambda (#{_\ 1511}#)
+ #{e\ 321}#)
+ (let ((#{labels\ 336}#
+ (#{gen-labels\ 135}#
+ #{ids\ 334}#)))
+ (let ((#{new-w\ 337}#
+ (#{make-binding-wrap\ 146}#
+ #{ids\ 334}#
+ #{labels\ 336}#
+ #{w\ 323}#)))
+ (#{k\ 326}# (cons #{e1\ 332}#
+ #{e2\ 333}#)
+ (#{extend-env\ 123}#
+ #{labels\ 336}#
+ (let ((#{w\ 339}# (if
#{rec?\ 320}#
+
#{new-w\ 337}#
+ #{w\
323}#))
+ (#{trans-r\ 340}#
+
(#{macros-only-env\ 125}#
+ #{r\ 322}#)))
+ (map (lambda (#{x\
341}#)
+ (cons 'macro
+
(#{eval-local-transformer\ 172}#
+ (#{chi\
165}#
+ #{x\
341}#
+
#{trans-r\ 340}#
+ #{w\
339}#
+
#{mod\ 325}#)
+ #{mod\
325}#)))
+ #{val\ 331}#))
+ #{r\ 322}#)
+ #{new-w\ 337}#
+ #{s\ 324}#
+ #{mod\ 325}#))))))
+ #{tmp\ 328}#)
+ ((lambda (#{_\ 343}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 1326}#
- #{e\ 1489}#
- #{w\ 1491}#
- #{s\ 1492}#
- #{mod\ 1493}#)))
- #{tmp\ 1495}#)))
+ (#{source-wrap\ 158}#
+ #{e\ 321}#
+ #{w\ 323}#
+ #{s\ 324}#
+ #{mod\ 325}#)))
+ #{tmp\ 327}#)))
($sc-dispatch
- #{tmp\ 1495}#
+ #{tmp\ 327}#
'(any #(each (any any)) any . each-any))))
- #{e\ 1489}#)))
- (#{chi-lambda-clause\ 1338}#
- (lambda (#{e\ 1512}#
- #{docstring\ 1513}#
- #{c\ 1514}#
- #{r\ 1515}#
- #{w\ 1516}#
- #{mod\ 1517}#
- #{k\ 1518}#)
- ((lambda (#{tmp\ 1519}#)
- ((lambda (#{tmp\ 1520}#)
- (if (if #{tmp\ 1520}#
- (apply (lambda (#{args\ 1521}#
- #{doc\ 1522}#
- #{e1\ 1523}#
- #{e2\ 1524}#)
- (if (string? (syntax->datum #{doc\ 1522}#))
- (not #{docstring\ 1513}#)
+ #{e\ 321}#)))
+ (#{chi-lambda-clause\ 170}#
+ (lambda (#{e\ 344}#
+ #{docstring\ 345}#
+ #{c\ 346}#
+ #{r\ 347}#
+ #{w\ 348}#
+ #{mod\ 349}#
+ #{k\ 350}#)
+ ((lambda (#{tmp\ 351}#)
+ ((lambda (#{tmp\ 352}#)
+ (if (if #{tmp\ 352}#
+ (apply (lambda (#{args\ 353}#
+ #{doc\ 354}#
+ #{e1\ 355}#
+ #{e2\ 356}#)
+ (if (string? (syntax->datum #{doc\ 354}#))
+ (not #{docstring\ 345}#)
#f))
- #{tmp\ 1520}#)
+ #{tmp\ 352}#)
#f)
- (apply (lambda (#{args\ 1525}#
- #{doc\ 1526}#
- #{e1\ 1527}#
- #{e2\ 1528}#)
- (#{chi-lambda-clause\ 1338}#
- #{e\ 1512}#
- #{doc\ 1526}#
- (cons #{args\ 1525}#
- (cons #{e1\ 1527}# #{e2\ 1528}#))
- #{r\ 1515}#
- #{w\ 1516}#
- #{mod\ 1517}#
- #{k\ 1518}#))
- #{tmp\ 1520}#)
- ((lambda (#{tmp\ 1530}#)
- (if #{tmp\ 1530}#
- (apply (lambda (#{id\ 1531}#
- #{e1\ 1532}#
- #{e2\ 1533}#)
- (let ((#{ids\ 1534}# #{id\ 1531}#))
- (if (not (#{valid-bound-ids?\ 1322}#
- #{ids\ 1534}#))
+ (apply (lambda (#{args\ 357}#
+ #{doc\ 358}#
+ #{e1\ 359}#
+ #{e2\ 360}#)
+ (#{chi-lambda-clause\ 170}#
+ #{e\ 344}#
+ #{doc\ 358}#
+ (cons #{args\ 357}#
+ (cons #{e1\ 359}# #{e2\ 360}#))
+ #{r\ 347}#
+ #{w\ 348}#
+ #{mod\ 349}#
+ #{k\ 350}#))
+ #{tmp\ 352}#)
+ ((lambda (#{tmp\ 362}#)
+ (if #{tmp\ 362}#
+ (apply (lambda (#{id\ 363}#
+ #{e1\ 364}#
+ #{e2\ 365}#)
+ (let ((#{ids\ 366}# #{id\ 363}#))
+ (if (not (#{valid-bound-ids?\ 154}#
+ #{ids\ 366}#))
(syntax-violation
'lambda
"invalid parameter list"
- #{e\ 1512}#)
- (let ((#{labels\ 1536}#
- (#{gen-labels\ 1303}#
- #{ids\ 1534}#))
- (#{new-vars\ 1537}#
- (map #{gen-var\ 1344}#
- #{ids\ 1534}#)))
- (#{k\ 1518}#
- (map syntax->datum #{ids\ 1534}#)
- #{new-vars\ 1537}#
- (if #{docstring\ 1513}#
- (syntax->datum
- #{docstring\ 1513}#)
- #f)
- (#{chi-body\ 1337}#
- (cons #{e1\ 1532}# #{e2\ 1533}#)
- #{e\ 1512}#
- (#{extend-var-env\ 1292}#
- #{labels\ 1536}#
- #{new-vars\ 1537}#
- #{r\ 1515}#)
- (#{make-binding-wrap\ 1314}#
- #{ids\ 1534}#
- #{labels\ 1536}#
- #{w\ 1516}#)
- #{mod\ 1517}#))))))
- #{tmp\ 1530}#)
- ((lambda (#{tmp\ 1539}#)
- (if #{tmp\ 1539}#
- (apply (lambda (#{ids\ 1540}#
- #{e1\ 1541}#
- #{e2\ 1542}#)
- (let ((#{old-ids\ 1543}#
- (#{lambda-var-list\ 1345}#
- #{ids\ 1540}#)))
- (if (not (#{valid-bound-ids?\
1322}#
- #{old-ids\ 1543}#))
+ #{e\ 344}#)
+ (let ((#{labels\ 368}#
+ (#{gen-labels\ 135}#
+ #{ids\ 366}#))
+ (#{new-vars\ 369}#
+ (map #{gen-var\ 176}#
+ #{ids\ 366}#)))
+ (#{k\ 350}# (map syntax->datum
+ #{ids\ 366}#)
+ #{new-vars\ 369}#
+ (if #{docstring\ 345}#
+ (syntax->datum
+ #{docstring\ 345}#)
+ #f)
+ (#{chi-body\ 169}#
+ (cons #{e1\ 364}#
+ #{e2\ 365}#)
+ #{e\ 344}#
+ (#{extend-var-env\
124}#
+ #{labels\ 368}#
+ #{new-vars\ 369}#
+ #{r\ 347}#)
+ (#{make-binding-wrap\
146}#
+ #{ids\ 366}#
+ #{labels\ 368}#
+ #{w\ 348}#)
+ #{mod\ 349}#))))))
+ #{tmp\ 362}#)
+ ((lambda (#{tmp\ 371}#)
+ (if #{tmp\ 371}#
+ (apply (lambda (#{ids\ 372}#
+ #{e1\ 373}#
+ #{e2\ 374}#)
+ (let ((#{old-ids\ 375}#
+ (#{lambda-var-list\ 177}#
+ #{ids\ 372}#)))
+ (if (not (#{valid-bound-ids?\ 154}#
+ #{old-ids\ 375}#))
(syntax-violation
'lambda
"invalid parameter list"
- #{e\ 1512}#)
- (let ((#{labels\ 1544}#
- (#{gen-labels\ 1303}#
- #{old-ids\ 1543}#))
- (#{new-vars\ 1545}#
- (map #{gen-var\ 1344}#
- #{old-ids\ 1543}#)))
- (#{k\ 1518}#
- (letrec ((#{f\ 1546}#
- (lambda (#{ls1\
1547}#
- #{ls2\
1548}#)
- (if (null?
#{ls1\ 1547}#)
- (syntax->datum
- #{ls2\
1548}#)
- (#{f\ 1546}#
- (cdr #{ls1\
1547}#)
- (cons
(syntax->datum
-
(car #{ls1\ 1547}#))
-
#{ls2\ 1548}#))))))
- (#{f\ 1546}#
- (cdr #{old-ids\ 1543}#)
- (car #{old-ids\ 1543}#)))
- (letrec ((#{f\ 1549}#
- (lambda (#{ls1\
1550}#
- #{ls2\
1551}#)
- (if (null?
#{ls1\ 1550}#)
- #{ls2\ 1551}#
- (#{f\ 1549}#
- (cdr #{ls1\
1550}#)
- (cons (car
#{ls1\ 1550}#)
-
#{ls2\ 1551}#))))))
- (#{f\ 1549}#
- (cdr #{new-vars\ 1545}#)
- (car #{new-vars\
1545}#)))
- (if #{docstring\ 1513}#
- (syntax->datum
- #{docstring\ 1513}#)
- #f)
- (#{chi-body\ 1337}#
- (cons #{e1\ 1541}#
- #{e2\ 1542}#)
- #{e\ 1512}#
- (#{extend-var-env\ 1292}#
- #{labels\ 1544}#
- #{new-vars\ 1545}#
- #{r\ 1515}#)
- (#{make-binding-wrap\
1314}#
- #{old-ids\ 1543}#
- #{labels\ 1544}#
- #{w\ 1516}#)
- #{mod\ 1517}#))))))
- #{tmp\ 1539}#)
- ((lambda (#{_\ 1553}#)
+ #{e\ 344}#)
+ (let ((#{labels\ 376}#
+ (#{gen-labels\ 135}#
+ #{old-ids\ 375}#))
+ (#{new-vars\ 377}#
+ (map #{gen-var\ 176}#
+ #{old-ids\ 375}#)))
+ (#{k\ 350}# (letrec ((#{f\
378}# (lambda (#{ls1\ 379}#
+
#{ls2\ 380}#)
+
(if (null? #{ls1\ 379}#)
+
(syntax->datum
+
#{ls2\ 380}#)
+
(#{f\ 378}# (cdr #{ls1\ 379}#)
+
(cons (syntax->datum
+
(car #{ls1\ 379}#))
+
#{ls2\ 380}#))))))
+ (#{f\ 378}# (cdr
#{old-ids\ 375}#)
+ (car
#{old-ids\ 375}#)))
+ (letrec ((#{f\
381}# (lambda (#{ls1\ 382}#
+
#{ls2\ 383}#)
+
(if (null? #{ls1\ 382}#)
+
#{ls2\ 383}#
+
(#{f\ 381}# (cdr #{ls1\ 382}#)
+
(cons (car #{ls1\ 382}#)
+
#{ls2\ 383}#))))))
+ (#{f\ 381}# (cdr
#{new-vars\ 377}#)
+ (car
#{new-vars\ 377}#)))
+ (if #{docstring\
345}#
+ (syntax->datum
+ #{docstring\
345}#)
+ #f)
+ (#{chi-body\ 169}#
+ (cons #{e1\ 373}#
+ #{e2\
374}#)
+ #{e\ 344}#
+
(#{extend-var-env\ 124}#
+ #{labels\ 376}#
+ #{new-vars\
377}#
+ #{r\ 347}#)
+
(#{make-binding-wrap\ 146}#
+ #{old-ids\
375}#
+ #{labels\ 376}#
+ #{w\ 348}#)
+ #{mod\
349}#))))))
+ #{tmp\ 371}#)
+ ((lambda (#{_\ 385}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 1512}#))
- #{tmp\ 1519}#)))
+ #{e\ 344}#))
+ #{tmp\ 351}#)))
($sc-dispatch
- #{tmp\ 1519}#
+ #{tmp\ 351}#
'(any any . each-any)))))
($sc-dispatch
- #{tmp\ 1519}#
+ #{tmp\ 351}#
'(each-any any . each-any)))))
($sc-dispatch
- #{tmp\ 1519}#
+ #{tmp\ 351}#
'(any any any . each-any))))
- #{c\ 1514}#)))
- (#{chi-body\ 1337}#
- (lambda (#{body\ 1554}#
- #{outer-form\ 1555}#
- #{r\ 1556}#
- #{w\ 1557}#
- #{mod\ 1558}#)
- (let ((#{r\ 1559}#
- (cons '("placeholder" placeholder)
- #{r\ 1556}#)))
- (let ((#{ribcage\ 1560}#
- (#{make-ribcage\ 1304}#
+ #{c\ 346}#)))
+ (#{chi-body\ 169}#
+ (lambda (#{body\ 386}#
+ #{outer-form\ 387}#
+ #{r\ 388}#
+ #{w\ 389}#
+ #{mod\ 390}#)
+ (let ((#{r\ 391}# (cons '("placeholder" placeholder)
+ #{r\ 388}#)))
+ (let ((#{ribcage\ 392}#
+ (#{make-ribcage\ 136}#
'()
'()
'())))
- (let ((#{w\ 1561}#
- (#{make-wrap\ 1299}#
- (#{wrap-marks\ 1300}# #{w\ 1557}#)
- (cons #{ribcage\ 1560}#
- (#{wrap-subst\ 1301}# #{w\ 1557}#)))))
- (letrec ((#{parse\ 1562}#
- (lambda (#{body\ 1563}#
- #{ids\ 1564}#
- #{labels\ 1565}#
- #{var-ids\ 1566}#
- #{vars\ 1567}#
- #{vals\ 1568}#
- #{bindings\ 1569}#)
- (if (null? #{body\ 1563}#)
+ (let ((#{w\ 393}# (#{make-wrap\ 131}#
+ (#{wrap-marks\ 132}# #{w\ 389}#)
+ (cons #{ribcage\ 392}#
+ (#{wrap-subst\ 133}#
+ #{w\ 389}#)))))
+ (letrec ((#{parse\ 394}#
+ (lambda (#{body\ 395}#
+ #{ids\ 396}#
+ #{labels\ 397}#
+ #{var-ids\ 398}#
+ #{vars\ 399}#
+ #{vals\ 400}#
+ #{bindings\ 401}#)
+ (if (null? #{body\ 395}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 1555}#)
- (let ((#{e\ 1571}# (cdar #{body\ 1563}#))
- (#{er\ 1572}# (caar #{body\ 1563}#)))
+ #{outer-form\ 387}#)
+ (let ((#{e\ 403}# (cdar #{body\ 395}#))
+ (#{er\ 404}# (caar #{body\ 395}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 1331}#
- #{e\ 1571}#
- #{er\ 1572}#
+ (#{syntax-type\ 163}#
+ #{e\ 403}#
+ #{er\ 404}#
'(())
- (#{source-annotation\ 1288}#
- #{er\ 1572}#)
- #{ribcage\ 1560}#
- #{mod\ 1558}#
+ (#{source-annotation\ 120}#
+ #{er\ 404}#)
+ #{ribcage\ 392}#
+ #{mod\ 390}#
#f))
- (lambda (#{type\ 1573}#
- #{value\ 1574}#
- #{e\ 1575}#
- #{w\ 1576}#
- #{s\ 1577}#
- #{mod\ 1578}#)
- (if (memv #{type\ 1573}#
+ (lambda (#{type\ 405}#
+ #{value\ 406}#
+ #{e\ 407}#
+ #{w\ 408}#
+ #{s\ 409}#
+ #{mod\ 410}#)
+ (if (memv #{type\ 405}#
'(define-form))
- (let ((#{id\ 1579}#
- (#{wrap\ 1325}#
- #{value\ 1574}#
- #{w\ 1576}#
- #{mod\ 1578}#))
- (#{label\ 1580}#
- (#{gen-label\ 1302}#)))
- (let ((#{var\ 1581}#
- (#{gen-var\ 1344}#
- #{id\ 1579}#)))
+ (let ((#{id\ 411}#
+ (#{wrap\ 157}#
+ #{value\ 406}#
+ #{w\ 408}#
+ #{mod\ 410}#))
+ (#{label\ 412}#
+ (#{gen-label\ 134}#)))
+ (let ((#{var\ 413}#
+ (#{gen-var\ 176}#
+ #{id\ 411}#)))
(begin
- (#{extend-ribcage!\ 1313}#
- #{ribcage\ 1560}#
- #{id\ 1579}#
- #{label\ 1580}#)
- (#{parse\ 1562}#
- (cdr #{body\ 1563}#)
- (cons #{id\ 1579}#
- #{ids\ 1564}#)
- (cons #{label\ 1580}#
- #{labels\ 1565}#)
- (cons #{id\ 1579}#
- #{var-ids\ 1566}#)
- (cons #{var\ 1581}#
- #{vars\ 1567}#)
- (cons (cons #{er\ 1572}#
- (#{wrap\ 1325}#
- #{e\ 1575}#
- #{w\ 1576}#
- #{mod\
1578}#))
- #{vals\ 1568}#)
+ (#{extend-ribcage!\ 145}#
+ #{ribcage\ 392}#
+ #{id\ 411}#
+ #{label\ 412}#)
+ (#{parse\ 394}#
+ (cdr #{body\ 395}#)
+ (cons #{id\ 411}#
+ #{ids\ 396}#)
+ (cons #{label\ 412}#
+ #{labels\ 397}#)
+ (cons #{id\ 411}#
+ #{var-ids\ 398}#)
+ (cons #{var\ 413}#
+ #{vars\ 399}#)
+ (cons (cons #{er\ 404}#
+ (#{wrap\ 157}#
+ #{e\ 407}#
+ #{w\ 408}#
+ #{mod\
410}#))
+ #{vals\ 400}#)
(cons (cons 'lexical
- #{var\ 1581}#)
- #{bindings\
1569}#)))))
- (if (memv #{type\ 1573}#
+ #{var\ 413}#)
+ #{bindings\
401}#)))))
+ (if (memv #{type\ 405}#
'(define-syntax-form))
- (let ((#{id\ 1582}#
- (#{wrap\ 1325}#
- #{value\ 1574}#
- #{w\ 1576}#
- #{mod\ 1578}#))
- (#{label\ 1583}#
- (#{gen-label\ 1302}#)))
+ (let ((#{id\ 414}#
+ (#{wrap\ 157}#
+ #{value\ 406}#
+ #{w\ 408}#
+ #{mod\ 410}#))
+ (#{label\ 415}#
+ (#{gen-label\ 134}#)))
(begin
- (#{extend-ribcage!\ 1313}#
- #{ribcage\ 1560}#
- #{id\ 1582}#
- #{label\ 1583}#)
- (#{parse\ 1562}#
- (cdr #{body\ 1563}#)
- (cons #{id\ 1582}#
- #{ids\ 1564}#)
- (cons #{label\ 1583}#
- #{labels\ 1565}#)
- #{var-ids\ 1566}#
- #{vars\ 1567}#
- #{vals\ 1568}#
+ (#{extend-ribcage!\ 145}#
+ #{ribcage\ 392}#
+ #{id\ 414}#
+ #{label\ 415}#)
+ (#{parse\ 394}#
+ (cdr #{body\ 395}#)
+ (cons #{id\ 414}#
+ #{ids\ 396}#)
+ (cons #{label\ 415}#
+ #{labels\ 397}#)
+ #{var-ids\ 398}#
+ #{vars\ 399}#
+ #{vals\ 400}#
(cons (cons 'macro
- (cons #{er\
1572}#
- (#{wrap\
1325}#
- #{e\
1575}#
- #{w\
1576}#
- #{mod\
1578}#)))
- #{bindings\
1569}#))))
- (if (memv #{type\ 1573}#
+ (cons #{er\
404}#
+ (#{wrap\
157}#
+ #{e\
407}#
+ #{w\
408}#
+ #{mod\
410}#)))
+ #{bindings\ 401}#))))
+ (if (memv #{type\ 405}#
'(begin-form))
- ((lambda (#{tmp\ 1584}#)
- ((lambda (#{tmp\ 1585}#)
- (if #{tmp\ 1585}#
- (apply (lambda (#{_\
1586}#
- #{e1\
1587}#)
- (#{parse\
1562}#
- (letrec
((#{f\ 1588}#
-
(lambda (#{forms\ 1589}#)
-
(if (null? #{forms\ 1589}#)
-
(cdr #{body\ 1563}#)
-
(cons (cons #{er\ 1572}#
-
(#{wrap\ 1325}#
-
(car #{forms\ 1589}#)
-
#{w\ 1576}#
-
#{mod\ 1578}#))
-
(#{f\ 1588}#
-
(cdr #{forms\ 1589}#)))))))
- (#{f\
1588}#
- #{e1\
1587}#))
- #{ids\
1564}#
- #{labels\
1565}#
- #{var-ids\
1566}#
- #{vars\
1567}#
- #{vals\
1568}#
- #{bindings\
1569}#))
- #{tmp\ 1585}#)
+ ((lambda (#{tmp\ 416}#)
+ ((lambda (#{tmp\ 417}#)
+ (if #{tmp\ 417}#
+ (apply (lambda (#{_\
418}#
+ #{e1\
419}#)
+ (#{parse\
394}#
+ (letrec
((#{f\ 420}# (lambda (#{forms\ 421}#)
+
(if (null? #{forms\ 421}#)
+
(cdr #{body\ 395}#)
+
(cons (cons #{er\ 404}#
+
(#{wrap\ 157}#
+
(car #{forms\ 421}#)
+
#{w\ 408}#
+
#{mod\ 410}#))
+
(#{f\ 420}# (cdr #{forms\ 421}#)))))))
+ (#{f\
420}# #{e1\ 419}#))
+ #{ids\ 396}#
+ #{labels\
397}#
+ #{var-ids\
398}#
+ #{vars\
399}#
+ #{vals\
400}#
+ #{bindings\
401}#))
+ #{tmp\ 417}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 1584}#)))
+ #{tmp\ 416}#)))
($sc-dispatch
- #{tmp\ 1584}#
+ #{tmp\ 416}#
'(any . each-any))))
- #{e\ 1575}#)
- (if (memv #{type\ 1573}#
+ #{e\ 407}#)
+ (if (memv #{type\ 405}#
'(local-syntax-form))
- (#{chi-local-syntax\ 1339}#
- #{value\ 1574}#
- #{e\ 1575}#
- #{er\ 1572}#
- #{w\ 1576}#
- #{s\ 1577}#
- #{mod\ 1578}#
- (lambda (#{forms\ 1591}#
- #{er\ 1592}#
- #{w\ 1593}#
- #{s\ 1594}#
- #{mod\ 1595}#)
- (#{parse\ 1562}#
- (letrec ((#{f\ 1596}#
- (lambda
(#{forms\ 1597}#)
- (if
(null? #{forms\ 1597}#)
- (cdr
#{body\ 1563}#)
- (cons
(cons #{er\ 1592}#
-
(#{wrap\ 1325}#
-
(car #{forms\ 1597}#)
-
#{w\ 1593}#
-
#{mod\ 1595}#))
-
(#{f\ 1596}#
-
(cdr #{forms\ 1597}#)))))))
- (#{f\ 1596}#
- #{forms\ 1591}#))
- #{ids\ 1564}#
- #{labels\ 1565}#
- #{var-ids\ 1566}#
- #{vars\ 1567}#
- #{vals\ 1568}#
- #{bindings\ 1569}#)))
- (if (null? #{ids\ 1564}#)
- (#{build-sequence\ 1276}#
+ (#{chi-local-syntax\ 171}#
+ #{value\ 406}#
+ #{e\ 407}#
+ #{er\ 404}#
+ #{w\ 408}#
+ #{s\ 409}#
+ #{mod\ 410}#
+ (lambda (#{forms\ 423}#
+ #{er\ 424}#
+ #{w\ 425}#
+ #{s\ 426}#
+ #{mod\ 427}#)
+ (#{parse\ 394}#
+ (letrec ((#{f\ 428}#
(lambda (#{forms\ 429}#)
+
(if (null? #{forms\ 429}#)
+
(cdr #{body\ 395}#)
+
(cons (cons #{er\ 424}#
+
(#{wrap\ 157}#
+
(car #{forms\ 429}#)
+
#{w\ 425}#
+
#{mod\ 427}#))
+
(#{f\ 428}# (cdr #{forms\ 429}#)))))))
+ (#{f\ 428}# #{forms\
423}#))
+ #{ids\ 396}#
+ #{labels\ 397}#
+ #{var-ids\ 398}#
+ #{vars\ 399}#
+ #{vals\ 400}#
+ #{bindings\ 401}#)))
+ (if (null? #{ids\ 396}#)
+ (#{build-sequence\ 108}#
#f
- (map (lambda (#{x\
1598}#)
- (#{chi\ 1333}#
- (cdr #{x\
1598}#)
- (car #{x\
1598}#)
+ (map (lambda (#{x\ 430}#)
+ (#{chi\ 165}#
+ (cdr #{x\ 430}#)
+ (car #{x\ 430}#)
'(())
- #{mod\ 1578}#))
- (cons (cons #{er\
1572}#
-
(#{source-wrap\ 1326}#
- #{e\
1575}#
- #{w\
1576}#
- #{s\
1577}#
-
#{mod\ 1578}#))
- (cdr #{body\
1563}#))))
+ #{mod\ 410}#))
+ (cons (cons #{er\
404}#
+
(#{source-wrap\ 158}#
+ #{e\
407}#
+ #{w\
408}#
+ #{s\
409}#
+
#{mod\ 410}#))
+ (cdr #{body\
395}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 1322}#
- #{ids\
1564}#))
+ (if (not
(#{valid-bound-ids?\ 154}#
+ #{ids\ 396}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{outer-form\
1555}#))
- (letrec ((#{loop\ 1599}#
- (lambda
(#{bs\ 1600}#
-
#{er-cache\ 1601}#
-
#{r-cache\ 1602}#)
- (if (not
(null? #{bs\ 1600}#))
- (let
((#{b\ 1603}#
-
(car #{bs\ 1600}#)))
- (if
(eq? (car #{b\ 1603}#)
+ #{outer-form\ 387}#))
+ (letrec ((#{loop\ 431}#
+ (lambda
(#{bs\ 432}#
+
#{er-cache\ 433}#
+
#{r-cache\ 434}#)
+ (if (not
(null? #{bs\ 432}#))
+ (let
((#{b\ 435}# (car #{bs\ 432}#)))
+ (if
(eq? (car #{b\ 435}#)
'macro)
- (let
((#{er\ 1604}#
-
(cadr #{b\ 1603}#)))
-
(let ((#{r-cache\ 1605}#
-
(if (eq? #{er\ 1604}#
-
#{er-cache\ 1601}#)
-
#{r-cache\ 1602}#
-
(#{macros-only-env\ 1293}#
-
#{er\ 1604}#))))
+ (let
((#{er\ 436}#
+
(cadr #{b\ 435}#)))
+
(let ((#{r-cache\ 437}#
+
(if (eq? #{er\ 436}#
+
#{er-cache\ 433}#)
+
#{r-cache\ 434}#
+
(#{macros-only-env\ 125}#
+
#{er\ 436}#))))
(begin
(set-cdr!
-
#{b\ 1603}#
-
(#{eval-local-transformer\ 1340}#
-
(#{chi\ 1333}#
-
(cddr #{b\ 1603}#)
-
#{r-cache\ 1605}#
+
#{b\ 435}#
+
(#{eval-local-transformer\ 172}#
+
(#{chi\ 165}#
+
(cddr #{b\ 435}#)
+
#{r-cache\ 437}#
'(())
-
#{mod\ 1578}#)
-
#{mod\ 1578}#))
-
(#{loop\ 1599}#
-
(cdr #{bs\ 1600}#)
-
#{er\ 1604}#
-
#{r-cache\ 1605}#))))
-
(#{loop\ 1599}#
-
(cdr #{bs\ 1600}#)
-
#{er-cache\ 1601}#
-
#{r-cache\ 1602}#)))))))
- (#{loop\ 1599}#
- #{bindings\ 1569}#
+
#{mod\ 410}#)
+
#{mod\ 410}#))
+
(#{loop\ 431}#
+
(cdr #{bs\ 432}#)
+
#{er\ 436}#
+
#{r-cache\ 437}#))))
+
(#{loop\ 431}#
+
(cdr #{bs\ 432}#)
+
#{er-cache\ 433}#
+
#{r-cache\ 434}#)))))))
+ (#{loop\ 431}#
+ #{bindings\ 401}#
#f
#f))
(set-cdr!
- #{r\ 1559}#
- (#{extend-env\ 1291}#
- #{labels\ 1565}#
- #{bindings\ 1569}#
- (cdr #{r\ 1559}#)))
- (#{build-letrec\ 1279}#
+ #{r\ 391}#
+ (#{extend-env\ 123}#
+ #{labels\ 397}#
+ #{bindings\ 401}#
+ (cdr #{r\ 391}#)))
+ (#{build-letrec\ 111}#
#f
(map syntax->datum
- #{var-ids\ 1566}#)
- #{vars\ 1567}#
- (map (lambda (#{x\
1606}#)
- (#{chi\ 1333}#
- (cdr #{x\
1606}#)
- (car #{x\
1606}#)
+ #{var-ids\ 398}#)
+ #{vars\ 399}#
+ (map (lambda (#{x\
438}#)
+ (#{chi\ 165}#
+ (cdr #{x\
438}#)
+ (car #{x\
438}#)
'(())
- #{mod\
1578}#))
- #{vals\ 1568}#)
- (#{build-sequence\
1276}#
+ #{mod\ 410}#))
+ #{vals\ 400}#)
+ (#{build-sequence\
108}#
#f
- (map (lambda (#{x\
1607}#)
- (#{chi\ 1333}#
- (cdr #{x\
1607}#)
- (car #{x\
1607}#)
+ (map (lambda (#{x\
439}#)
+ (#{chi\ 165}#
+ (cdr #{x\
439}#)
+ (car #{x\
439}#)
'(())
- #{mod\
1578}#))
- (cons (cons
#{er\ 1572}#
-
(#{source-wrap\ 1326}#
-
#{e\ 1575}#
-
#{w\ 1576}#
-
#{s\ 1577}#
-
#{mod\ 1578}#))
- (cdr
#{body\ 1563}#))))))))))))))))))
- (#{parse\ 1562}#
- (map (lambda (#{x\ 1570}#)
- (cons #{r\ 1559}#
- (#{wrap\ 1325}#
- #{x\ 1570}#
- #{w\ 1561}#
- #{mod\ 1558}#)))
- #{body\ 1554}#)
+ #{mod\
410}#))
+ (cons (cons
#{er\ 404}#
+
(#{source-wrap\ 158}#
+
#{e\ 407}#
+
#{w\ 408}#
+
#{s\ 409}#
+
#{mod\ 410}#))
+ (cdr
#{body\ 395}#))))))))))))))))))
+ (#{parse\ 394}#
+ (map (lambda (#{x\ 402}#)
+ (cons #{r\ 391}#
+ (#{wrap\ 157}#
+ #{x\ 402}#
+ #{w\ 393}#
+ #{mod\ 390}#)))
+ #{body\ 386}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 1336}#
- (lambda (#{p\ 1608}#
- #{e\ 1609}#
- #{r\ 1610}#
- #{w\ 1611}#
- #{rib\ 1612}#
- #{mod\ 1613}#)
- (letrec ((#{rebuild-macro-output\ 1614}#
- (lambda (#{x\ 1615}# #{m\ 1616}#)
- (if (pair? #{x\ 1615}#)
- (cons (#{rebuild-macro-output\ 1614}#
- (car #{x\ 1615}#)
- #{m\ 1616}#)
- (#{rebuild-macro-output\ 1614}#
- (cdr #{x\ 1615}#)
- #{m\ 1616}#))
- (if (#{syntax-object?\ 1281}# #{x\ 1615}#)
- (let ((#{w\ 1617}#
- (#{syntax-object-wrap\ 1283}#
- #{x\ 1615}#)))
- (let ((#{ms\ 1618}#
- (#{wrap-marks\ 1300}# #{w\ 1617}#))
- (#{s\ 1619}#
- (#{wrap-subst\ 1301}# #{w\ 1617}#)))
- (if (if (pair? #{ms\ 1618}#)
- (eq? (car #{ms\ 1618}#) #f)
+ (#{chi-macro\ 168}#
+ (lambda (#{p\ 440}#
+ #{e\ 441}#
+ #{r\ 442}#
+ #{w\ 443}#
+ #{rib\ 444}#
+ #{mod\ 445}#)
+ (letrec ((#{rebuild-macro-output\ 446}#
+ (lambda (#{x\ 447}# #{m\ 448}#)
+ (if (pair? #{x\ 447}#)
+ (cons (#{rebuild-macro-output\ 446}#
+ (car #{x\ 447}#)
+ #{m\ 448}#)
+ (#{rebuild-macro-output\ 446}#
+ (cdr #{x\ 447}#)
+ #{m\ 448}#))
+ (if (#{syntax-object?\ 113}# #{x\ 447}#)
+ (let ((#{w\ 449}# (#{syntax-object-wrap\ 115}#
+ #{x\ 447}#)))
+ (let ((#{ms\ 450}#
+ (#{wrap-marks\ 132}# #{w\ 449}#))
+ (#{s\ 451}# (#{wrap-subst\ 133}#
+ #{w\ 449}#)))
+ (if (if (pair? #{ms\ 450}#)
+ (eq? (car #{ms\ 450}#) #f)
#f)
- (#{make-syntax-object\ 1280}#
- (#{syntax-object-expression\ 1282}#
- #{x\ 1615}#)
- (#{make-wrap\ 1299}#
- (cdr #{ms\ 1618}#)
- (if #{rib\ 1612}#
- (cons #{rib\ 1612}#
- (cdr #{s\ 1619}#))
- (cdr #{s\ 1619}#)))
- (#{syntax-object-module\ 1284}#
- #{x\ 1615}#))
- (#{make-syntax-object\ 1280}#
- (#{syntax-object-expression\ 1282}#
- #{x\ 1615}#)
- (#{make-wrap\ 1299}#
- (cons #{m\ 1616}# #{ms\ 1618}#)
- (if #{rib\ 1612}#
- (cons #{rib\ 1612}#
+ (#{make-syntax-object\ 112}#
+ (#{syntax-object-expression\ 114}#
+ #{x\ 447}#)
+ (#{make-wrap\ 131}#
+ (cdr #{ms\ 450}#)
+ (if #{rib\ 444}#
+ (cons #{rib\ 444}#
+ (cdr #{s\ 451}#))
+ (cdr #{s\ 451}#)))
+ (#{syntax-object-module\ 116}#
+ #{x\ 447}#))
+ (#{make-syntax-object\ 112}#
+ (#{syntax-object-expression\ 114}#
+ #{x\ 447}#)
+ (#{make-wrap\ 131}#
+ (cons #{m\ 448}# #{ms\ 450}#)
+ (if #{rib\ 444}#
+ (cons #{rib\ 444}#
(cons 'shift
- #{s\ 1619}#))
- (cons (quote shift) #{s\ 1619}#)))
- (let ((#{pmod\ 1620}#
- (procedure-module
- #{p\ 1608}#)))
- (if #{pmod\ 1620}#
+ #{s\ 451}#))
+ (cons (quote shift) #{s\ 451}#)))
+ (let ((#{pmod\ 452}#
+ (procedure-module #{p\ 440}#)))
+ (if #{pmod\ 452}#
(cons 'hygiene
- (module-name #{pmod\ 1620}#))
+ (module-name #{pmod\ 452}#))
'(hygiene guile)))))))
- (if (vector? #{x\ 1615}#)
- (let ((#{n\ 1621}#
- (vector-length #{x\ 1615}#)))
- (let ((#{v\ 1622}#
- (make-vector #{n\ 1621}#)))
- (letrec ((#{loop\ 1623}#
- (lambda (#{i\ 1624}#)
- (if (#{fx=\ 1256}#
- #{i\ 1624}#
- #{n\ 1621}#)
+ (if (vector? #{x\ 447}#)
+ (let ((#{n\ 453}# (vector-length
+ #{x\ 447}#)))
+ (let ((#{v\ 454}# (make-vector
+ #{n\ 453}#)))
+ (letrec ((#{loop\ 455}#
+ (lambda (#{i\ 456}#)
+ (if (#{fx=\ 88}#
+ #{i\ 456}#
+ #{n\ 453}#)
(begin
(if #f #f)
- #{v\ 1622}#)
+ #{v\ 454}#)
(begin
(vector-set!
- #{v\ 1622}#
- #{i\ 1624}#
-
(#{rebuild-macro-output\ 1614}#
+ #{v\ 454}#
+ #{i\ 456}#
+
(#{rebuild-macro-output\ 446}#
(vector-ref
- #{x\ 1615}#
- #{i\ 1624}#)
- #{m\ 1616}#))
- (#{loop\ 1623}#
- (#{fx+\ 1254}#
- #{i\ 1624}#
+ #{x\ 447}#
+ #{i\ 456}#)
+ #{m\ 448}#))
+ (#{loop\ 455}#
+ (#{fx+\ 86}#
+ #{i\ 456}#
1)))))))
- (#{loop\ 1623}# 0))))
- (if (symbol? #{x\ 1615}#)
+ (#{loop\ 455}# 0))))
+ (if (symbol? #{x\ 447}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 1326}#
- #{e\ 1609}#
- #{w\ 1611}#
- s
- #{mod\ 1613}#)
- #{x\ 1615}#)
- #{x\ 1615}#)))))))
- (#{rebuild-macro-output\ 1614}#
- (#{p\ 1608}#
- (#{wrap\ 1325}#
- #{e\ 1609}#
- (#{anti-mark\ 1312}# #{w\ 1611}#)
- #{mod\ 1613}#))
+ (#{source-wrap\ 158}#
+ #{e\ 441}#
+ #{w\ 443}#
+ (#{wrap-subst\ 133}# #{w\ 443}#)
+ #{mod\ 445}#)
+ #{x\ 447}#)
+ #{x\ 447}#)))))))
+ (#{rebuild-macro-output\ 446}#
+ (#{p\ 440}# (#{wrap\ 157}#
+ #{e\ 441}#
+ (#{anti-mark\ 144}# #{w\ 443}#)
+ #{mod\ 445}#))
(string #\m)))))
- (#{chi-application\ 1335}#
- (lambda (#{x\ 1625}#
- #{e\ 1626}#
- #{r\ 1627}#
- #{w\ 1628}#
- #{s\ 1629}#
- #{mod\ 1630}#)
- ((lambda (#{tmp\ 1631}#)
- ((lambda (#{tmp\ 1632}#)
- (if #{tmp\ 1632}#
- (apply (lambda (#{e0\ 1633}# #{e1\ 1634}#)
- (#{build-application\ 1264}#
- #{s\ 1629}#
- #{x\ 1625}#
- (map (lambda (#{e\ 1635}#)
- (#{chi\ 1333}#
- #{e\ 1635}#
- #{r\ 1627}#
- #{w\ 1628}#
- #{mod\ 1630}#))
- #{e1\ 1634}#)))
- #{tmp\ 1632}#)
+ (#{chi-application\ 167}#
+ (lambda (#{x\ 457}#
+ #{e\ 458}#
+ #{r\ 459}#
+ #{w\ 460}#
+ #{s\ 461}#
+ #{mod\ 462}#)
+ ((lambda (#{tmp\ 463}#)
+ ((lambda (#{tmp\ 464}#)
+ (if #{tmp\ 464}#
+ (apply (lambda (#{e0\ 465}# #{e1\ 466}#)
+ (#{build-application\ 96}#
+ #{s\ 461}#
+ #{x\ 457}#
+ (map (lambda (#{e\ 467}#)
+ (#{chi\ 165}#
+ #{e\ 467}#
+ #{r\ 459}#
+ #{w\ 460}#
+ #{mod\ 462}#))
+ #{e1\ 466}#)))
+ #{tmp\ 464}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1631}#)))
+ #{tmp\ 463}#)))
($sc-dispatch
- #{tmp\ 1631}#
+ #{tmp\ 463}#
'(any . each-any))))
- #{e\ 1626}#)))
- (#{chi-expr\ 1334}#
- (lambda (#{type\ 1637}#
- #{value\ 1638}#
- #{e\ 1639}#
- #{r\ 1640}#
- #{w\ 1641}#
- #{s\ 1642}#
- #{mod\ 1643}#)
- (if (memv #{type\ 1637}# (quote (lexical)))
- (#{build-lexical-reference\ 1266}#
+ #{e\ 458}#)))
+ (#{chi-expr\ 166}#
+ (lambda (#{type\ 469}#
+ #{value\ 470}#
+ #{e\ 471}#
+ #{r\ 472}#
+ #{w\ 473}#
+ #{s\ 474}#
+ #{mod\ 475}#)
+ (if (memv #{type\ 469}# (quote (lexical)))
+ (#{build-lexical-reference\ 98}#
'value
- #{s\ 1642}#
- #{e\ 1639}#
- #{value\ 1638}#)
- (if (memv #{type\ 1637}# (quote (core core-form)))
- (#{value\ 1638}#
- #{e\ 1639}#
- #{r\ 1640}#
- #{w\ 1641}#
- #{s\ 1642}#
- #{mod\ 1643}#)
- (if (memv #{type\ 1637}# (quote (module-ref)))
+ #{s\ 474}#
+ #{e\ 471}#
+ #{value\ 470}#)
+ (if (memv #{type\ 469}# (quote (core core-form)))
+ (#{value\ 470}#
+ #{e\ 471}#
+ #{r\ 472}#
+ #{w\ 473}#
+ #{s\ 474}#
+ #{mod\ 475}#)
+ (if (memv #{type\ 469}# (quote (module-ref)))
(call-with-values
- (lambda () (#{value\ 1638}# #{e\ 1639}#))
- (lambda (#{id\ 1644}# #{mod\ 1645}#)
- (#{build-global-reference\ 1269}#
- #{s\ 1642}#
- #{id\ 1644}#
- #{mod\ 1645}#)))
- (if (memv #{type\ 1637}# (quote (lexical-call)))
- (#{chi-application\ 1335}#
- (#{build-lexical-reference\ 1266}#
+ (lambda () (#{value\ 470}# #{e\ 471}#))
+ (lambda (#{id\ 476}# #{mod\ 477}#)
+ (#{build-global-reference\ 101}#
+ #{s\ 474}#
+ #{id\ 476}#
+ #{mod\ 477}#)))
+ (if (memv #{type\ 469}# (quote (lexical-call)))
+ (#{chi-application\ 167}#
+ (#{build-lexical-reference\ 98}#
'fun
- (#{source-annotation\ 1288}# (car #{e\ 1639}#))
- (car #{e\ 1639}#)
- #{value\ 1638}#)
- #{e\ 1639}#
- #{r\ 1640}#
- #{w\ 1641}#
- #{s\ 1642}#
- #{mod\ 1643}#)
- (if (memv #{type\ 1637}# (quote (global-call)))
- (#{chi-application\ 1335}#
- (#{build-global-reference\ 1269}#
- (#{source-annotation\ 1288}# (car #{e\ 1639}#))
- (if (#{syntax-object?\ 1281}# #{value\ 1638}#)
- (#{syntax-object-expression\ 1282}#
- #{value\ 1638}#)
- #{value\ 1638}#)
- (if (#{syntax-object?\ 1281}# #{value\ 1638}#)
- (#{syntax-object-module\ 1284}# #{value\ 1638}#)
- #{mod\ 1643}#))
- #{e\ 1639}#
- #{r\ 1640}#
- #{w\ 1641}#
- #{s\ 1642}#
- #{mod\ 1643}#)
- (if (memv #{type\ 1637}# (quote (constant)))
- (#{build-data\ 1275}#
- #{s\ 1642}#
- (#{strip\ 1343}#
- (#{source-wrap\ 1326}#
- #{e\ 1639}#
- #{w\ 1641}#
- #{s\ 1642}#
- #{mod\ 1643}#)
+ (#{source-annotation\ 120}# (car #{e\ 471}#))
+ (car #{e\ 471}#)
+ #{value\ 470}#)
+ #{e\ 471}#
+ #{r\ 472}#
+ #{w\ 473}#
+ #{s\ 474}#
+ #{mod\ 475}#)
+ (if (memv #{type\ 469}# (quote (global-call)))
+ (#{chi-application\ 167}#
+ (#{build-global-reference\ 101}#
+ (#{source-annotation\ 120}# (car #{e\ 471}#))
+ (if (#{syntax-object?\ 113}# #{value\ 470}#)
+ (#{syntax-object-expression\ 114}#
+ #{value\ 470}#)
+ #{value\ 470}#)
+ (if (#{syntax-object?\ 113}# #{value\ 470}#)
+ (#{syntax-object-module\ 116}# #{value\ 470}#)
+ #{mod\ 475}#))
+ #{e\ 471}#
+ #{r\ 472}#
+ #{w\ 473}#
+ #{s\ 474}#
+ #{mod\ 475}#)
+ (if (memv #{type\ 469}# (quote (constant)))
+ (#{build-data\ 107}#
+ #{s\ 474}#
+ (#{strip\ 175}#
+ (#{source-wrap\ 158}#
+ #{e\ 471}#
+ #{w\ 473}#
+ #{s\ 474}#
+ #{mod\ 475}#)
'(())))
- (if (memv #{type\ 1637}# (quote (global)))
- (#{build-global-reference\ 1269}#
- #{s\ 1642}#
- #{value\ 1638}#
- #{mod\ 1643}#)
- (if (memv #{type\ 1637}# (quote (call)))
- (#{chi-application\ 1335}#
- (#{chi\ 1333}#
- (car #{e\ 1639}#)
- #{r\ 1640}#
- #{w\ 1641}#
- #{mod\ 1643}#)
- #{e\ 1639}#
- #{r\ 1640}#
- #{w\ 1641}#
- #{s\ 1642}#
- #{mod\ 1643}#)
- (if (memv #{type\ 1637}# (quote (begin-form)))
- ((lambda (#{tmp\ 1646}#)
- ((lambda (#{tmp\ 1647}#)
- (if #{tmp\ 1647}#
- (apply (lambda (#{_\ 1648}#
- #{e1\ 1649}#
- #{e2\ 1650}#)
- (#{chi-sequence\ 1327}#
- (cons #{e1\ 1649}#
- #{e2\ 1650}#)
- #{r\ 1640}#
- #{w\ 1641}#
- #{s\ 1642}#
- #{mod\ 1643}#))
- #{tmp\ 1647}#)
+ (if (memv #{type\ 469}# (quote (global)))
+ (#{build-global-reference\ 101}#
+ #{s\ 474}#
+ #{value\ 470}#
+ #{mod\ 475}#)
+ (if (memv #{type\ 469}# (quote (call)))
+ (#{chi-application\ 167}#
+ (#{chi\ 165}#
+ (car #{e\ 471}#)
+ #{r\ 472}#
+ #{w\ 473}#
+ #{mod\ 475}#)
+ #{e\ 471}#
+ #{r\ 472}#
+ #{w\ 473}#
+ #{s\ 474}#
+ #{mod\ 475}#)
+ (if (memv #{type\ 469}# (quote (begin-form)))
+ ((lambda (#{tmp\ 478}#)
+ ((lambda (#{tmp\ 479}#)
+ (if #{tmp\ 479}#
+ (apply (lambda (#{_\ 480}#
+ #{e1\ 481}#
+ #{e2\ 482}#)
+ (#{chi-sequence\ 159}#
+ (cons #{e1\ 481}#
+ #{e2\ 482}#)
+ #{r\ 472}#
+ #{w\ 473}#
+ #{s\ 474}#
+ #{mod\ 475}#))
+ #{tmp\ 479}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 1646}#)))
+ #{tmp\ 478}#)))
($sc-dispatch
- #{tmp\ 1646}#
+ #{tmp\ 478}#
'(any any . each-any))))
- #{e\ 1639}#)
- (if (memv #{type\ 1637}#
+ #{e\ 471}#)
+ (if (memv #{type\ 469}#
'(local-syntax-form))
- (#{chi-local-syntax\ 1339}#
- #{value\ 1638}#
- #{e\ 1639}#
- #{r\ 1640}#
- #{w\ 1641}#
- #{s\ 1642}#
- #{mod\ 1643}#
- #{chi-sequence\ 1327}#)
- (if (memv #{type\ 1637}#
+ (#{chi-local-syntax\ 171}#
+ #{value\ 470}#
+ #{e\ 471}#
+ #{r\ 472}#
+ #{w\ 473}#
+ #{s\ 474}#
+ #{mod\ 475}#
+ #{chi-sequence\ 159}#)
+ (if (memv #{type\ 469}#
'(eval-when-form))
- ((lambda (#{tmp\ 1652}#)
- ((lambda (#{tmp\ 1653}#)
- (if #{tmp\ 1653}#
- (apply (lambda (#{_\ 1654}#
- #{x\ 1655}#
- #{e1\ 1656}#
- #{e2\ 1657}#)
- (let ((#{when-list\
1658}#
-
(#{chi-when-list\ 1330}#
- #{e\ 1639}#
- #{x\ 1655}#
- #{w\ 1641}#)))
+ ((lambda (#{tmp\ 484}#)
+ ((lambda (#{tmp\ 485}#)
+ (if #{tmp\ 485}#
+ (apply (lambda (#{_\ 486}#
+ #{x\ 487}#
+ #{e1\ 488}#
+ #{e2\ 489}#)
+ (let ((#{when-list\ 490}#
+
(#{chi-when-list\ 162}#
+ #{e\ 471}#
+ #{x\ 487}#
+ #{w\ 473}#)))
(if (memq 'eval
- #{when-list\
1658}#)
- (#{chi-sequence\
1327}#
- (cons #{e1\ 1656}#
- #{e2\ 1657}#)
- #{r\ 1640}#
- #{w\ 1641}#
- #{s\ 1642}#
- #{mod\ 1643}#)
- (#{chi-void\
1341}#))))
- #{tmp\ 1653}#)
+ #{when-list\
490}#)
+ (#{chi-sequence\
159}#
+ (cons #{e1\ 488}#
+ #{e2\ 489}#)
+ #{r\ 472}#
+ #{w\ 473}#
+ #{s\ 474}#
+ #{mod\ 475}#)
+ (#{chi-void\
173}#))))
+ #{tmp\ 485}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 1652}#)))
+ #{tmp\ 484}#)))
($sc-dispatch
- #{tmp\ 1652}#
+ #{tmp\ 484}#
'(any each-any any . each-any))))
- #{e\ 1639}#)
- (if (memv #{type\ 1637}#
+ #{e\ 471}#)
+ (if (memv #{type\ 469}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 1639}#
- (#{wrap\ 1325}#
- #{value\ 1638}#
- #{w\ 1641}#
- #{mod\ 1643}#))
- (if (memv #{type\ 1637}#
+ #{e\ 471}#
+ (#{wrap\ 157}#
+ #{value\ 470}#
+ #{w\ 473}#
+ #{mod\ 475}#))
+ (if (memv #{type\ 469}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable
outside syntax form"
- (#{source-wrap\ 1326}#
- #{e\ 1639}#
- #{w\ 1641}#
- #{s\ 1642}#
- #{mod\ 1643}#))
- (if (memv #{type\ 1637}#
+ (#{source-wrap\ 158}#
+ #{e\ 471}#
+ #{w\ 473}#
+ #{s\ 474}#
+ #{mod\ 475}#))
+ (if (memv #{type\ 469}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 1326}#
- #{e\ 1639}#
- #{w\ 1641}#
- #{s\ 1642}#
- #{mod\ 1643}#))
+ (#{source-wrap\ 158}#
+ #{e\ 471}#
+ #{w\ 473}#
+ #{s\ 474}#
+ #{mod\ 475}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 1326}#
- #{e\ 1639}#
- #{w\ 1641}#
- #{s\ 1642}#
- #{mod\ 1643}#))))))))))))))))))
- (#{chi\ 1333}#
- (lambda (#{e\ 1661}#
- #{r\ 1662}#
- #{w\ 1663}#
- #{mod\ 1664}#)
+ (#{source-wrap\ 158}#
+ #{e\ 471}#
+ #{w\ 473}#
+ #{s\ 474}#
+ #{mod\ 475}#))))))))))))))))))
+ (#{chi\ 165}#
+ (lambda (#{e\ 493}# #{r\ 494}# #{w\ 495}# #{mod\ 496}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 1331}#
- #{e\ 1661}#
- #{r\ 1662}#
- #{w\ 1663}#
- (#{source-annotation\ 1288}# #{e\ 1661}#)
+ (#{syntax-type\ 163}#
+ #{e\ 493}#
+ #{r\ 494}#
+ #{w\ 495}#
+ (#{source-annotation\ 120}# #{e\ 493}#)
#f
- #{mod\ 1664}#
+ #{mod\ 496}#
#f))
- (lambda (#{type\ 1665}#
- #{value\ 1666}#
- #{e\ 1667}#
- #{w\ 1668}#
- #{s\ 1669}#
- #{mod\ 1670}#)
- (#{chi-expr\ 1334}#
- #{type\ 1665}#
- #{value\ 1666}#
- #{e\ 1667}#
- #{r\ 1662}#
- #{w\ 1668}#
- #{s\ 1669}#
- #{mod\ 1670}#)))))
- (#{chi-top\ 1332}#
- (lambda (#{e\ 1671}#
- #{r\ 1672}#
- #{w\ 1673}#
- #{m\ 1674}#
- #{esew\ 1675}#
- #{mod\ 1676}#)
+ (lambda (#{type\ 497}#
+ #{value\ 498}#
+ #{e\ 499}#
+ #{w\ 500}#
+ #{s\ 501}#
+ #{mod\ 502}#)
+ (#{chi-expr\ 166}#
+ #{type\ 497}#
+ #{value\ 498}#
+ #{e\ 499}#
+ #{r\ 494}#
+ #{w\ 500}#
+ #{s\ 501}#
+ #{mod\ 502}#)))))
+ (#{chi-top\ 164}#
+ (lambda (#{e\ 503}#
+ #{r\ 504}#
+ #{w\ 505}#
+ #{m\ 506}#
+ #{esew\ 507}#
+ #{mod\ 508}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 1331}#
- #{e\ 1671}#
- #{r\ 1672}#
- #{w\ 1673}#
- (#{source-annotation\ 1288}# #{e\ 1671}#)
+ (#{syntax-type\ 163}#
+ #{e\ 503}#
+ #{r\ 504}#
+ #{w\ 505}#
+ (#{source-annotation\ 120}# #{e\ 503}#)
#f
- #{mod\ 1676}#
+ #{mod\ 508}#
#f))
- (lambda (#{type\ 1684}#
- #{value\ 1685}#
- #{e\ 1686}#
- #{w\ 1687}#
- #{s\ 1688}#
- #{mod\ 1689}#)
- (if (memv #{type\ 1684}# (quote (begin-form)))
- ((lambda (#{tmp\ 1690}#)
- ((lambda (#{tmp\ 1691}#)
- (if #{tmp\ 1691}#
- (apply (lambda (#{_\ 1692}#) (#{chi-void\ 1341}#))
- #{tmp\ 1691}#)
- ((lambda (#{tmp\ 1693}#)
- (if #{tmp\ 1693}#
- (apply (lambda (#{_\ 1694}#
- #{e1\ 1695}#
- #{e2\ 1696}#)
- (#{chi-top-sequence\ 1328}#
- (cons #{e1\ 1695}# #{e2\ 1696}#)
- #{r\ 1672}#
- #{w\ 1687}#
- #{s\ 1688}#
- #{m\ 1674}#
- #{esew\ 1675}#
- #{mod\ 1689}#))
- #{tmp\ 1693}#)
+ (lambda (#{type\ 516}#
+ #{value\ 517}#
+ #{e\ 518}#
+ #{w\ 519}#
+ #{s\ 520}#
+ #{mod\ 521}#)
+ (if (memv #{type\ 516}# (quote (begin-form)))
+ ((lambda (#{tmp\ 522}#)
+ ((lambda (#{tmp\ 523}#)
+ (if #{tmp\ 523}#
+ (apply (lambda (#{_\ 524}#) (#{chi-void\ 173}#))
+ #{tmp\ 523}#)
+ ((lambda (#{tmp\ 525}#)
+ (if #{tmp\ 525}#
+ (apply (lambda (#{_\ 526}#
+ #{e1\ 527}#
+ #{e2\ 528}#)
+ (#{chi-top-sequence\ 160}#
+ (cons #{e1\ 527}# #{e2\ 528}#)
+ #{r\ 504}#
+ #{w\ 519}#
+ #{s\ 520}#
+ #{m\ 506}#
+ #{esew\ 507}#
+ #{mod\ 521}#))
+ #{tmp\ 525}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1690}#)))
+ #{tmp\ 522}#)))
($sc-dispatch
- #{tmp\ 1690}#
+ #{tmp\ 522}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 1690}# (quote (any)))))
- #{e\ 1686}#)
- (if (memv #{type\ 1684}# (quote (local-syntax-form)))
- (#{chi-local-syntax\ 1339}#
- #{value\ 1685}#
- #{e\ 1686}#
- #{r\ 1672}#
- #{w\ 1687}#
- #{s\ 1688}#
- #{mod\ 1689}#
- (lambda (#{body\ 1698}#
- #{r\ 1699}#
- #{w\ 1700}#
- #{s\ 1701}#
- #{mod\ 1702}#)
- (#{chi-top-sequence\ 1328}#
- #{body\ 1698}#
- #{r\ 1699}#
- #{w\ 1700}#
- #{s\ 1701}#
- #{m\ 1674}#
- #{esew\ 1675}#
- #{mod\ 1702}#)))
- (if (memv #{type\ 1684}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 1703}#)
- ((lambda (#{tmp\ 1704}#)
- (if #{tmp\ 1704}#
- (apply (lambda (#{_\ 1705}#
- #{x\ 1706}#
- #{e1\ 1707}#
- #{e2\ 1708}#)
- (let ((#{when-list\ 1709}#
- (#{chi-when-list\ 1330}#
- #{e\ 1686}#
- #{x\ 1706}#
- #{w\ 1687}#))
- (#{body\ 1710}#
- (cons #{e1\ 1707}#
- #{e2\ 1708}#)))
- (if (eq? #{m\ 1674}# (quote e))
+ ($sc-dispatch #{tmp\ 522}# (quote (any)))))
+ #{e\ 518}#)
+ (if (memv #{type\ 516}# (quote (local-syntax-form)))
+ (#{chi-local-syntax\ 171}#
+ #{value\ 517}#
+ #{e\ 518}#
+ #{r\ 504}#
+ #{w\ 519}#
+ #{s\ 520}#
+ #{mod\ 521}#
+ (lambda (#{body\ 530}#
+ #{r\ 531}#
+ #{w\ 532}#
+ #{s\ 533}#
+ #{mod\ 534}#)
+ (#{chi-top-sequence\ 160}#
+ #{body\ 530}#
+ #{r\ 531}#
+ #{w\ 532}#
+ #{s\ 533}#
+ #{m\ 506}#
+ #{esew\ 507}#
+ #{mod\ 534}#)))
+ (if (memv #{type\ 516}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 535}#)
+ ((lambda (#{tmp\ 536}#)
+ (if #{tmp\ 536}#
+ (apply (lambda (#{_\ 537}#
+ #{x\ 538}#
+ #{e1\ 539}#
+ #{e2\ 540}#)
+ (let ((#{when-list\ 541}#
+ (#{chi-when-list\ 162}#
+ #{e\ 518}#
+ #{x\ 538}#
+ #{w\ 519}#))
+ (#{body\ 542}#
+ (cons #{e1\ 539}#
+ #{e2\ 540}#)))
+ (if (eq? #{m\ 506}# (quote e))
(if (memq 'eval
- #{when-list\ 1709}#)
- (#{chi-top-sequence\ 1328}#
- #{body\ 1710}#
- #{r\ 1672}#
- #{w\ 1687}#
- #{s\ 1688}#
+ #{when-list\ 541}#)
+ (#{chi-top-sequence\ 160}#
+ #{body\ 542}#
+ #{r\ 504}#
+ #{w\ 519}#
+ #{s\ 520}#
'e
'(eval)
- #{mod\ 1689}#)
- (#{chi-void\ 1341}#))
+ #{mod\ 521}#)
+ (#{chi-void\ 173}#))
(if (memq 'load
- #{when-list\ 1709}#)
- (if (let ((#{t\ 1713}#
- (memq 'compile
- #{when-list\
1709}#)))
- (if #{t\ 1713}#
- #{t\ 1713}#
- (if (eq? #{m\ 1674}#
+ #{when-list\ 541}#)
+ (if (let ((#{t\ 545}# (memq
'compile
+
#{when-list\ 541}#)))
+ (if #{t\ 545}#
+ #{t\ 545}#
+ (if (eq? #{m\ 506}#
'c&e)
(memq 'eval
- #{when-list\
1709}#)
+ #{when-list\
541}#)
#f)))
- (#{chi-top-sequence\ 1328}#
- #{body\ 1710}#
- #{r\ 1672}#
- #{w\ 1687}#
- #{s\ 1688}#
+ (#{chi-top-sequence\ 160}#
+ #{body\ 542}#
+ #{r\ 504}#
+ #{w\ 519}#
+ #{s\ 520}#
'c&e
'(compile load)
- #{mod\ 1689}#)
- (if (memq #{m\ 1674}#
+ #{mod\ 521}#)
+ (if (memq #{m\ 506}#
'(c c&e))
- (#{chi-top-sequence\ 1328}#
- #{body\ 1710}#
- #{r\ 1672}#
- #{w\ 1687}#
- #{s\ 1688}#
+ (#{chi-top-sequence\ 160}#
+ #{body\ 542}#
+ #{r\ 504}#
+ #{w\ 519}#
+ #{s\ 520}#
'c
'(load)
- #{mod\ 1689}#)
- (#{chi-void\ 1341}#)))
- (if (let ((#{t\ 1714}#
- (memq 'compile
- #{when-list\
1709}#)))
- (if #{t\ 1714}#
- #{t\ 1714}#
- (if (eq? #{m\ 1674}#
+ #{mod\ 521}#)
+ (#{chi-void\ 173}#)))
+ (if (let ((#{t\ 546}# (memq
'compile
+
#{when-list\ 541}#)))
+ (if #{t\ 546}#
+ #{t\ 546}#
+ (if (eq? #{m\ 506}#
'c&e)
(memq 'eval
- #{when-list\
1709}#)
+ #{when-list\
541}#)
#f)))
(begin
- (#{top-level-eval-hook\
1258}#
- (#{chi-top-sequence\
1328}#
- #{body\ 1710}#
- #{r\ 1672}#
- #{w\ 1687}#
- #{s\ 1688}#
+ (#{top-level-eval-hook\
90}#
+ (#{chi-top-sequence\
160}#
+ #{body\ 542}#
+ #{r\ 504}#
+ #{w\ 519}#
+ #{s\ 520}#
'e
'(eval)
- #{mod\ 1689}#)
- #{mod\ 1689}#)
- (#{chi-void\ 1341}#))
- (#{chi-void\ 1341}#))))))
- #{tmp\ 1704}#)
+ #{mod\ 521}#)
+ #{mod\ 521}#)
+ (#{chi-void\ 173}#))
+ (#{chi-void\ 173}#))))))
+ #{tmp\ 536}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1703}#)))
+ #{tmp\ 535}#)))
($sc-dispatch
- #{tmp\ 1703}#
+ #{tmp\ 535}#
'(any each-any any . each-any))))
- #{e\ 1686}#)
- (if (memv #{type\ 1684}#
- '(define-syntax-form))
- (let ((#{n\ 1715}#
- (#{id-var-name\ 1319}#
- #{value\ 1685}#
- #{w\ 1687}#))
- (#{r\ 1716}#
- (#{macros-only-env\ 1293}# #{r\ 1672}#)))
- (if (memv #{m\ 1674}# (quote (c)))
- (if (memq (quote compile) #{esew\ 1675}#)
- (let ((#{e\ 1717}#
- (#{chi-install-global\ 1329}#
- #{n\ 1715}#
- (#{chi\ 1333}#
- #{e\ 1686}#
- #{r\ 1716}#
- #{w\ 1687}#
- #{mod\ 1689}#))))
+ #{e\ 518}#)
+ (if (memv #{type\ 516}# (quote (define-syntax-form)))
+ (let ((#{n\ 547}# (#{id-var-name\ 151}#
+ #{value\ 517}#
+ #{w\ 519}#))
+ (#{r\ 548}# (#{macros-only-env\ 125}#
+ #{r\ 504}#)))
+ (if (memv #{m\ 506}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 507}#)
+ (let ((#{e\ 549}# (#{chi-install-global\ 161}#
+ #{n\ 547}#
+ (#{chi\ 165}#
+ #{e\ 518}#
+ #{r\ 548}#
+ #{w\ 519}#
+ #{mod\ 521}#))))
(begin
- (#{top-level-eval-hook\ 1258}#
- #{e\ 1717}#
- #{mod\ 1689}#)
- (if (memq (quote load) #{esew\ 1675}#)
- #{e\ 1717}#
- (#{chi-void\ 1341}#))))
- (if (memq (quote load) #{esew\ 1675}#)
- (#{chi-install-global\ 1329}#
- #{n\ 1715}#
- (#{chi\ 1333}#
- #{e\ 1686}#
- #{r\ 1716}#
- #{w\ 1687}#
- #{mod\ 1689}#))
- (#{chi-void\ 1341}#)))
- (if (memv #{m\ 1674}# (quote (c&e)))
- (let ((#{e\ 1718}#
- (#{chi-install-global\ 1329}#
- #{n\ 1715}#
- (#{chi\ 1333}#
- #{e\ 1686}#
- #{r\ 1716}#
- #{w\ 1687}#
- #{mod\ 1689}#))))
+ (#{top-level-eval-hook\ 90}#
+ #{e\ 549}#
+ #{mod\ 521}#)
+ (if (memq (quote load) #{esew\ 507}#)
+ #{e\ 549}#
+ (#{chi-void\ 173}#))))
+ (if (memq (quote load) #{esew\ 507}#)
+ (#{chi-install-global\ 161}#
+ #{n\ 547}#
+ (#{chi\ 165}#
+ #{e\ 518}#
+ #{r\ 548}#
+ #{w\ 519}#
+ #{mod\ 521}#))
+ (#{chi-void\ 173}#)))
+ (if (memv #{m\ 506}# (quote (c&e)))
+ (let ((#{e\ 550}# (#{chi-install-global\ 161}#
+ #{n\ 547}#
+ (#{chi\ 165}#
+ #{e\ 518}#
+ #{r\ 548}#
+ #{w\ 519}#
+ #{mod\ 521}#))))
(begin
- (#{top-level-eval-hook\ 1258}#
- #{e\ 1718}#
- #{mod\ 1689}#)
- #{e\ 1718}#))
+ (#{top-level-eval-hook\ 90}#
+ #{e\ 550}#
+ #{mod\ 521}#)
+ #{e\ 550}#))
(begin
- (if (memq (quote eval) #{esew\ 1675}#)
- (#{top-level-eval-hook\ 1258}#
- (#{chi-install-global\ 1329}#
- #{n\ 1715}#
- (#{chi\ 1333}#
- #{e\ 1686}#
- #{r\ 1716}#
- #{w\ 1687}#
- #{mod\ 1689}#))
- #{mod\ 1689}#))
- (#{chi-void\ 1341}#)))))
- (if (memv #{type\ 1684}# (quote (define-form)))
- (let ((#{n\ 1719}#
- (#{id-var-name\ 1319}#
- #{value\ 1685}#
- #{w\ 1687}#)))
- (let ((#{type\ 1720}#
- (#{binding-type\ 1289}#
- (#{lookup\ 1294}#
- #{n\ 1719}#
- #{r\ 1672}#
- #{mod\ 1689}#))))
- (if (memv #{type\ 1720}#
+ (if (memq (quote eval) #{esew\ 507}#)
+ (#{top-level-eval-hook\ 90}#
+ (#{chi-install-global\ 161}#
+ #{n\ 547}#
+ (#{chi\ 165}#
+ #{e\ 518}#
+ #{r\ 548}#
+ #{w\ 519}#
+ #{mod\ 521}#))
+ #{mod\ 521}#))
+ (#{chi-void\ 173}#)))))
+ (if (memv #{type\ 516}# (quote (define-form)))
+ (let ((#{n\ 551}# (#{id-var-name\ 151}#
+ #{value\ 517}#
+ #{w\ 519}#)))
+ (let ((#{type\ 552}#
+ (#{binding-type\ 121}#
+ (#{lookup\ 126}#
+ #{n\ 551}#
+ #{r\ 504}#
+ #{mod\ 521}#))))
+ (if (memv #{type\ 552}#
'(global core macro module-ref))
(begin
(if (if (not (module-local-variable
(current-module)
- #{n\ 1719}#))
+ #{n\ 551}#))
(current-module)
#f)
- (let ((#{old\ 1721}#
+ (let ((#{old\ 553}#
(module-variable
(current-module)
- #{n\ 1719}#)))
+ #{n\ 551}#)))
(module-define!
(current-module)
- #{n\ 1719}#
- (if (variable? #{old\ 1721}#)
- (variable-ref #{old\ 1721}#)
+ #{n\ 551}#
+ (if (variable? #{old\ 553}#)
+ (variable-ref #{old\ 553}#)
#f))))
- (let ((#{x\ 1722}#
- (#{build-global-definition\ 1272}#
- #{s\ 1688}#
- #{n\ 1719}#
- (#{chi\ 1333}#
- #{e\ 1686}#
- #{r\ 1672}#
- #{w\ 1687}#
- #{mod\ 1689}#))))
+ (let ((#{x\ 554}#
(#{build-global-definition\ 104}#
+ #{s\ 520}#
+ #{n\ 551}#
+ (#{chi\ 165}#
+ #{e\ 518}#
+ #{r\ 504}#
+ #{w\ 519}#
+ #{mod\ 521}#))))
(begin
- (if (eq? #{m\ 1674}# (quote c&e))
- (#{top-level-eval-hook\ 1258}#
- #{x\ 1722}#
- #{mod\ 1689}#))
- #{x\ 1722}#)))
- (if (memv #{type\ 1720}#
+ (if (eq? #{m\ 506}# (quote c&e))
+ (#{top-level-eval-hook\ 90}#
+ #{x\ 554}#
+ #{mod\ 521}#))
+ #{x\ 554}#)))
+ (if (memv #{type\ 552}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 1686}#
- (#{wrap\ 1325}#
- #{value\ 1685}#
- #{w\ 1687}#
- #{mod\ 1689}#))
+ #{e\ 518}#
+ (#{wrap\ 157}#
+ #{value\ 517}#
+ #{w\ 519}#
+ #{mod\ 521}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 1686}#
- (#{wrap\ 1325}#
- #{value\ 1685}#
- #{w\ 1687}#
- #{mod\ 1689}#))))))
- (let ((#{x\ 1723}#
- (#{chi-expr\ 1334}#
- #{type\ 1684}#
- #{value\ 1685}#
- #{e\ 1686}#
- #{r\ 1672}#
- #{w\ 1687}#
- #{s\ 1688}#
- #{mod\ 1689}#)))
+ #{e\ 518}#
+ (#{wrap\ 157}#
+ #{value\ 517}#
+ #{w\ 519}#
+ #{mod\ 521}#))))))
+ (let ((#{x\ 555}# (#{chi-expr\ 166}#
+ #{type\ 516}#
+ #{value\ 517}#
+ #{e\ 518}#
+ #{r\ 504}#
+ #{w\ 519}#
+ #{s\ 520}#
+ #{mod\ 521}#)))
(begin
- (if (eq? #{m\ 1674}# (quote c&e))
- (#{top-level-eval-hook\ 1258}#
- #{x\ 1723}#
- #{mod\ 1689}#))
- #{x\ 1723}#)))))))))))
- (#{syntax-type\ 1331}#
- (lambda (#{e\ 1724}#
- #{r\ 1725}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{rib\ 1728}#
- #{mod\ 1729}#
- #{for-car?\ 1730}#)
- (if (symbol? #{e\ 1724}#)
- (let ((#{n\ 1731}#
- (#{id-var-name\ 1319}# #{e\ 1724}# #{w\ 1726}#)))
- (let ((#{b\ 1732}#
- (#{lookup\ 1294}#
- #{n\ 1731}#
- #{r\ 1725}#
- #{mod\ 1729}#)))
- (let ((#{type\ 1733}#
- (#{binding-type\ 1289}# #{b\ 1732}#)))
- (if (memv #{type\ 1733}# (quote (lexical)))
+ (if (eq? #{m\ 506}# (quote c&e))
+ (#{top-level-eval-hook\ 90}#
+ #{x\ 555}#
+ #{mod\ 521}#))
+ #{x\ 555}#)))))))))))
+ (#{syntax-type\ 163}#
+ (lambda (#{e\ 556}#
+ #{r\ 557}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{rib\ 560}#
+ #{mod\ 561}#
+ #{for-car?\ 562}#)
+ (if (symbol? #{e\ 556}#)
+ (let ((#{n\ 563}# (#{id-var-name\ 151}#
+ #{e\ 556}#
+ #{w\ 558}#)))
+ (let ((#{b\ 564}# (#{lookup\ 126}#
+ #{n\ 563}#
+ #{r\ 557}#
+ #{mod\ 561}#)))
+ (let ((#{type\ 565}#
+ (#{binding-type\ 121}# #{b\ 564}#)))
+ (if (memv #{type\ 565}# (quote (lexical)))
(values
- #{type\ 1733}#
- (#{binding-value\ 1290}# #{b\ 1732}#)
- #{e\ 1724}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{mod\ 1729}#)
- (if (memv #{type\ 1733}# (quote (global)))
+ #{type\ 565}#
+ (#{binding-value\ 122}# #{b\ 564}#)
+ #{e\ 556}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{mod\ 561}#)
+ (if (memv #{type\ 565}# (quote (global)))
(values
- #{type\ 1733}#
- #{n\ 1731}#
- #{e\ 1724}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{mod\ 1729}#)
- (if (memv #{type\ 1733}# (quote (macro)))
- (if #{for-car?\ 1730}#
+ #{type\ 565}#
+ #{n\ 563}#
+ #{e\ 556}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{mod\ 561}#)
+ (if (memv #{type\ 565}# (quote (macro)))
+ (if #{for-car?\ 562}#
(values
- #{type\ 1733}#
- (#{binding-value\ 1290}# #{b\ 1732}#)
- #{e\ 1724}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{mod\ 1729}#)
- (#{syntax-type\ 1331}#
- (#{chi-macro\ 1336}#
- (#{binding-value\ 1290}# #{b\ 1732}#)
- #{e\ 1724}#
- #{r\ 1725}#
- #{w\ 1726}#
- #{rib\ 1728}#
- #{mod\ 1729}#)
- #{r\ 1725}#
+ #{type\ 565}#
+ (#{binding-value\ 122}# #{b\ 564}#)
+ #{e\ 556}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{mod\ 561}#)
+ (#{syntax-type\ 163}#
+ (#{chi-macro\ 168}#
+ (#{binding-value\ 122}# #{b\ 564}#)
+ #{e\ 556}#
+ #{r\ 557}#
+ #{w\ 558}#
+ #{rib\ 560}#
+ #{mod\ 561}#)
+ #{r\ 557}#
'(())
- #{s\ 1727}#
- #{rib\ 1728}#
- #{mod\ 1729}#
+ #{s\ 559}#
+ #{rib\ 560}#
+ #{mod\ 561}#
#f))
(values
- #{type\ 1733}#
- (#{binding-value\ 1290}# #{b\ 1732}#)
- #{e\ 1724}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{mod\ 1729}#)))))))
- (if (pair? #{e\ 1724}#)
- (let ((#{first\ 1734}# (car #{e\ 1724}#)))
+ #{type\ 565}#
+ (#{binding-value\ 122}# #{b\ 564}#)
+ #{e\ 556}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{mod\ 561}#)))))))
+ (if (pair? #{e\ 556}#)
+ (let ((#{first\ 566}# (car #{e\ 556}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 1331}#
- #{first\ 1734}#
- #{r\ 1725}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{rib\ 1728}#
- #{mod\ 1729}#
+ (#{syntax-type\ 163}#
+ #{first\ 566}#
+ #{r\ 557}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{rib\ 560}#
+ #{mod\ 561}#
#t))
- (lambda (#{ftype\ 1735}#
- #{fval\ 1736}#
- #{fe\ 1737}#
- #{fw\ 1738}#
- #{fs\ 1739}#
- #{fmod\ 1740}#)
- (if (memv #{ftype\ 1735}# (quote (lexical)))
+ (lambda (#{ftype\ 567}#
+ #{fval\ 568}#
+ #{fe\ 569}#
+ #{fw\ 570}#
+ #{fs\ 571}#
+ #{fmod\ 572}#)
+ (if (memv #{ftype\ 567}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 1736}#
- #{e\ 1724}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{mod\ 1729}#)
- (if (memv #{ftype\ 1735}# (quote (global)))
+ #{fval\ 568}#
+ #{e\ 556}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{mod\ 561}#)
+ (if (memv #{ftype\ 567}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 1280}#
- #{fval\ 1736}#
- #{w\ 1726}#
- #{fmod\ 1740}#)
- #{e\ 1724}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{mod\ 1729}#)
- (if (memv #{ftype\ 1735}# (quote (macro)))
- (#{syntax-type\ 1331}#
- (#{chi-macro\ 1336}#
- #{fval\ 1736}#
- #{e\ 1724}#
- #{r\ 1725}#
- #{w\ 1726}#
- #{rib\ 1728}#
- #{mod\ 1729}#)
- #{r\ 1725}#
+ (#{make-syntax-object\ 112}#
+ #{fval\ 568}#
+ #{w\ 558}#
+ #{fmod\ 572}#)
+ #{e\ 556}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{mod\ 561}#)
+ (if (memv #{ftype\ 567}# (quote (macro)))
+ (#{syntax-type\ 163}#
+ (#{chi-macro\ 168}#
+ #{fval\ 568}#
+ #{e\ 556}#
+ #{r\ 557}#
+ #{w\ 558}#
+ #{rib\ 560}#
+ #{mod\ 561}#)
+ #{r\ 557}#
'(())
- #{s\ 1727}#
- #{rib\ 1728}#
- #{mod\ 1729}#
- #{for-car?\ 1730}#)
- (if (memv #{ftype\ 1735}# (quote (module-ref)))
+ #{s\ 559}#
+ #{rib\ 560}#
+ #{mod\ 561}#
+ #{for-car?\ 562}#)
+ (if (memv #{ftype\ 567}# (quote (module-ref)))
(call-with-values
- (lambda () (#{fval\ 1736}# #{e\ 1724}#))
- (lambda (#{sym\ 1741}# #{mod\ 1742}#)
- (#{syntax-type\ 1331}#
- #{sym\ 1741}#
- #{r\ 1725}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{rib\ 1728}#
- #{mod\ 1742}#
- #{for-car?\ 1730}#)))
- (if (memv #{ftype\ 1735}# (quote (core)))
+ (lambda () (#{fval\ 568}# #{e\ 556}#))
+ (lambda (#{sym\ 573}# #{mod\ 574}#)
+ (#{syntax-type\ 163}#
+ #{sym\ 573}#
+ #{r\ 557}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{rib\ 560}#
+ #{mod\ 574}#
+ #{for-car?\ 562}#)))
+ (if (memv #{ftype\ 567}# (quote (core)))
(values
'core-form
- #{fval\ 1736}#
- #{e\ 1724}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{mod\ 1729}#)
- (if (memv #{ftype\ 1735}#
+ #{fval\ 568}#
+ #{e\ 556}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{mod\ 561}#)
+ (if (memv #{ftype\ 567}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 1736}#
- #{e\ 1724}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{mod\ 1729}#)
- (if (memv #{ftype\ 1735}# (quote (begin)))
+ #{fval\ 568}#
+ #{e\ 556}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{mod\ 561}#)
+ (if (memv #{ftype\ 567}# (quote (begin)))
(values
'begin-form
#f
- #{e\ 1724}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{mod\ 1729}#)
- (if (memv #{ftype\ 1735}#
+ #{e\ 556}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{mod\ 561}#)
+ (if (memv #{ftype\ 567}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 1724}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{mod\ 1729}#)
- (if (memv #{ftype\ 1735}#
+ #{e\ 556}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{mod\ 561}#)
+ (if (memv #{ftype\ 567}#
'(define))
- ((lambda (#{tmp\ 1743}#)
- ((lambda (#{tmp\ 1744}#)
- (if (if #{tmp\ 1744}#
- (apply (lambda (#{_\
1745}#
- #{name\
1746}#
- #{val\
1747}#)
- (#{id?\ 1297}#
- #{name\
1746}#))
- #{tmp\ 1744}#)
+ ((lambda (#{tmp\ 575}#)
+ ((lambda (#{tmp\ 576}#)
+ (if (if #{tmp\ 576}#
+ (apply (lambda (#{_\
577}#
+ #{name\
578}#
+ #{val\
579}#)
+ (#{id?\ 129}#
+ #{name\
578}#))
+ #{tmp\ 576}#)
#f)
- (apply (lambda (#{_\ 1748}#
- #{name\
1749}#
- #{val\
1750}#)
+ (apply (lambda (#{_\ 580}#
+ #{name\
581}#
+ #{val\
582}#)
(values
'define-form
- #{name\ 1749}#
- #{val\ 1750}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{mod\ 1729}#))
- #{tmp\ 1744}#)
- ((lambda (#{tmp\ 1751}#)
- (if (if #{tmp\ 1751}#
- (apply (lambda
(#{_\ 1752}#
-
#{name\ 1753}#
-
#{args\ 1754}#
-
#{e1\ 1755}#
-
#{e2\ 1756}#)
- (if
(#{id?\ 1297}#
-
#{name\ 1753}#)
-
(#{valid-bound-ids?\ 1322}#
-
(#{lambda-var-list\ 1345}#
-
#{args\ 1754}#))
+ #{name\ 581}#
+ #{val\ 582}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{mod\ 561}#))
+ #{tmp\ 576}#)
+ ((lambda (#{tmp\ 583}#)
+ (if (if #{tmp\ 583}#
+ (apply (lambda
(#{_\ 584}#
+
#{name\ 585}#
+
#{args\ 586}#
+
#{e1\ 587}#
+
#{e2\ 588}#)
+ (if
(#{id?\ 129}#
+
#{name\ 585}#)
+
(#{valid-bound-ids?\ 154}#
+
(#{lambda-var-list\ 177}#
+
#{args\ 586}#))
#f))
- #{tmp\
1751}#)
+ #{tmp\
583}#)
#f)
- (apply (lambda (#{_\
1757}#
-
#{name\ 1758}#
-
#{args\ 1759}#
- #{e1\
1760}#
- #{e2\
1761}#)
+ (apply (lambda (#{_\
589}#
+
#{name\ 590}#
+
#{args\ 591}#
+ #{e1\
592}#
+ #{e2\
593}#)
(values
'define-form
- (#{wrap\
1325}#
- #{name\
1758}#
- #{w\
1726}#
- #{mod\
1729}#)
-
(#{decorate-source\ 1262}#
+ (#{wrap\
157}#
+ #{name\
590}#
+ #{w\ 558}#
+ #{mod\
561}#)
+
(#{decorate-source\ 94}#
(cons
'#(syntax-object
lambda
((top)
@@ -2295,33 +2267,33 @@
"i")))
(hygiene
guile))
-
(#{wrap\ 1325}#
-
(cons #{args\ 1759}#
-
(cons #{e1\ 1760}#
-
#{e2\ 1761}#))
-
#{w\ 1726}#
-
#{mod\ 1729}#))
- #{s\
1727}#)
+
(#{wrap\ 157}#
+
(cons #{args\ 591}#
+
(cons #{e1\ 592}#
+
#{e2\ 593}#))
+
#{w\ 558}#
+
#{mod\ 561}#))
+ #{s\
559}#)
'(())
- #{s\ 1727}#
- #{mod\
1729}#))
- #{tmp\ 1751}#)
- ((lambda (#{tmp\
1763}#)
- (if (if #{tmp\
1763}#
- (apply
(lambda (#{_\ 1764}#
-
#{name\ 1765}#)
-
(#{id?\ 1297}#
-
#{name\ 1765}#))
- #{tmp\
1763}#)
+ #{s\ 559}#
+ #{mod\
561}#))
+ #{tmp\ 583}#)
+ ((lambda (#{tmp\ 595}#)
+ (if (if #{tmp\ 595}#
+ (apply
(lambda (#{_\ 596}#
+
#{name\ 597}#)
+
(#{id?\ 129}#
+
#{name\ 597}#))
+ #{tmp\
595}#)
#f)
- (apply (lambda
(#{_\ 1766}#
-
#{name\ 1767}#)
+ (apply (lambda
(#{_\ 598}#
+
#{name\ 599}#)
(values
'define-form
-
(#{wrap\ 1325}#
-
#{name\ 1767}#
- #{w\
1726}#
-
#{mod\ 1729}#)
+
(#{wrap\ 157}#
+
#{name\ 599}#
+ #{w\
558}#
+
#{mod\ 561}#)
'(#(syntax-object
if
((top)
@@ -3598,3179 +3570,3230 @@
(hygiene
guile)))
'(())
- #{s\
1727}#
- #{mod\
1729}#))
- #{tmp\
1763}#)
+ #{s\
559}#
+ #{mod\
561}#))
+ #{tmp\
595}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\ 1743}#)))
+ #{tmp\ 575}#)))
($sc-dispatch
- #{tmp\ 1743}#
+ #{tmp\ 575}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1743}#
+ #{tmp\ 575}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 1743}#
+ #{tmp\ 575}#
'(any any any))))
- #{e\ 1724}#)
- (if (memv #{ftype\ 1735}#
+ #{e\ 556}#)
+ (if (memv #{ftype\ 567}#
'(define-syntax))
- ((lambda (#{tmp\ 1768}#)
- ((lambda (#{tmp\ 1769}#)
- (if (if #{tmp\ 1769}#
- (apply (lambda (#{_\
1770}#
-
#{name\ 1771}#
-
#{val\ 1772}#)
- (#{id?\
1297}#
- #{name\
1771}#))
- #{tmp\ 1769}#)
+ ((lambda (#{tmp\ 600}#)
+ ((lambda (#{tmp\ 601}#)
+ (if (if #{tmp\ 601}#
+ (apply (lambda (#{_\
602}#
+
#{name\ 603}#
+
#{val\ 604}#)
+ (#{id?\ 129}#
+ #{name\
603}#))
+ #{tmp\ 601}#)
#f)
- (apply (lambda (#{_\
1773}#
- #{name\
1774}#
- #{val\
1775}#)
+ (apply (lambda (#{_\ 605}#
+ #{name\
606}#
+ #{val\
607}#)
(values
'define-syntax-form
- #{name\ 1774}#
- #{val\ 1775}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{mod\ 1729}#))
- #{tmp\ 1769}#)
+ #{name\ 606}#
+ #{val\ 607}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{mod\ 561}#))
+ #{tmp\ 601}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 1768}#)))
+ #{tmp\ 600}#)))
($sc-dispatch
- #{tmp\ 1768}#
+ #{tmp\ 600}#
'(any any any))))
- #{e\ 1724}#)
+ #{e\ 556}#)
(values
'call
#f
- #{e\ 1724}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{mod\ 1729}#))))))))))))))
- (if (#{syntax-object?\ 1281}# #{e\ 1724}#)
- (#{syntax-type\ 1331}#
- (#{syntax-object-expression\ 1282}# #{e\ 1724}#)
- #{r\ 1725}#
- (#{join-wraps\ 1316}#
- #{w\ 1726}#
- (#{syntax-object-wrap\ 1283}# #{e\ 1724}#))
- #{s\ 1727}#
- #{rib\ 1728}#
- (let ((#{t\ 1776}#
- (#{syntax-object-module\ 1284}# #{e\ 1724}#)))
- (if #{t\ 1776}# #{t\ 1776}# #{mod\ 1729}#))
- #{for-car?\ 1730}#)
- (if (self-evaluating? #{e\ 1724}#)
+ #{e\ 556}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{mod\ 561}#))))))))))))))
+ (if (#{syntax-object?\ 113}# #{e\ 556}#)
+ (#{syntax-type\ 163}#
+ (#{syntax-object-expression\ 114}# #{e\ 556}#)
+ #{r\ 557}#
+ (#{join-wraps\ 148}#
+ #{w\ 558}#
+ (#{syntax-object-wrap\ 115}# #{e\ 556}#))
+ #{s\ 559}#
+ #{rib\ 560}#
+ (let ((#{t\ 608}# (#{syntax-object-module\ 116}#
+ #{e\ 556}#)))
+ (if #{t\ 608}# #{t\ 608}# #{mod\ 561}#))
+ #{for-car?\ 562}#)
+ (if (self-evaluating? #{e\ 556}#)
(values
'constant
#f
- #{e\ 1724}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{mod\ 1729}#)
+ #{e\ 556}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{mod\ 561}#)
(values
'other
#f
- #{e\ 1724}#
- #{w\ 1726}#
- #{s\ 1727}#
- #{mod\ 1729}#)))))))
- (#{chi-when-list\ 1330}#
- (lambda (#{e\ 1777}# #{when-list\ 1778}# #{w\ 1779}#)
- (letrec ((#{f\ 1780}#
- (lambda (#{when-list\ 1781}# #{situations\ 1782}#)
- (if (null? #{when-list\ 1781}#)
- #{situations\ 1782}#
- (#{f\ 1780}#
- (cdr #{when-list\ 1781}#)
- (cons (let ((#{x\ 1783}#
- (car #{when-list\ 1781}#)))
- (if (#{free-id=?\ 1320}#
- #{x\ 1783}#
- '#(syntax-object
- compile
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i" "i" "i"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i" "i" "i"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-lambda-clause
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
- set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
- syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
- build-lexical-assignment
- build-lexical-reference
- build-conditional
- build-application
- build-void
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- *mode*
- noexpand)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
- #(ribcage
- (define-structure and-map*)
- ((top) (top))
- ("i" "i")))
- (hygiene guile)))
- 'compile
- (if (#{free-id=?\ 1320}#
- #{x\ 1783}#
- '#(syntax-object
- load
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i"))
- #(ribcage () () ())
- #(ribcage
- #(f when-list situations)
- #((top) (top) (top))
- #("i" "i" "i"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i" "i" "i"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- ellipsis?
- chi-void
- eval-local-transformer
- chi-local-syntax
- chi-lambda-clause
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
- set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda
- build-global-definition
- maybe-name-value!
- build-global-assignment
- build-global-reference
- analyze-variable
-
build-lexical-assignment
- build-lexical-reference
- build-conditional
- build-application
- build-void
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- *mode*
- noexpand)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
- #(ribcage
- (define-structure
- and-map*)
- ((top) (top))
- ("i" "i")))
- (hygiene guile)))
- 'load
- (if (#{free-id=?\ 1320}#
- #{x\ 1783}#
- '#(syntax-object
- eval
- ((top)
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage () () ())
- #(ribcage
- #(x)
- #((top))
- #("i"))
- #(ribcage () () ())
- #(ribcage
- #(f
- when-list
- situations)
- #((top) (top) (top))
- #("i" "i" "i"))
- #(ribcage () () ())
- #(ribcage
- #(e when-list w)
- #((top) (top) (top))
- #("i" "i" "i"))
- #(ribcage
- (lambda-var-list
- gen-var
- strip
- ellipsis?
- chi-void
-
eval-local-transformer
- chi-local-syntax
- chi-lambda-clause
- chi-body
- chi-macro
- chi-application
- chi-expr
- chi
- chi-top
- syntax-type
- chi-when-list
- chi-install-global
- chi-top-sequence
- chi-sequence
- source-wrap
- wrap
- bound-id-member?
- distinct-bound-ids?
- valid-bound-ids?
- bound-id=?
- free-id=?
- id-var-name
- same-marks?
- join-marks
- join-wraps
- smart-append
- make-binding-wrap
- extend-ribcage!
- make-empty-ribcage
- new-mark
- anti-mark
- the-anti-mark
- top-marked?
- top-wrap
- empty-wrap
- set-ribcage-labels!
- set-ribcage-marks!
- set-ribcage-symnames!
- ribcage-labels
- ribcage-marks
- ribcage-symnames
- ribcage?
- make-ribcage
- gen-labels
- gen-label
- make-rename
- rename-marks
- rename-new
- rename-old
- subst-rename?
- wrap-subst
- wrap-marks
- make-wrap
- id-sym-name&marks
- id-sym-name
- id?
- nonsymbol-id?
- global-extend
- lookup
- macros-only-env
- extend-var-env
- extend-env
- null-env
- binding-value
- binding-type
- make-binding
- arg-check
- source-annotation
- no-source
-
set-syntax-object-module!
-
set-syntax-object-wrap!
-
set-syntax-object-expression!
- syntax-object-module
- syntax-object-wrap
-
syntax-object-expression
- syntax-object?
- make-syntax-object
- build-lexical-var
- build-letrec
- build-named-let
- build-let
- build-sequence
- build-data
- build-primref
- build-lambda
-
build-global-definition
- maybe-name-value!
-
build-global-assignment
-
build-global-reference
- analyze-variable
-
build-lexical-assignment
-
build-lexical-reference
- build-conditional
- build-application
- build-void
- decorate-source
-
get-global-definition-hook
-
put-global-definition-hook
- gensym-hook
- local-eval-hook
- top-level-eval-hook
- fx<
- fx=
- fx-
- fx+
- *mode*
- noexpand)
- ((top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top)
- (top))
- ("i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"
- "i"))
- #(ribcage
- (define-structure
- and-map*)
- ((top) (top))
- ("i" "i")))
- (hygiene guile)))
- 'eval
- (syntax-violation
- 'eval-when
- "invalid situation"
- #{e\ 1777}#
- (#{wrap\ 1325}#
- #{x\ 1783}#
- #{w\ 1779}#
- #f))))))
- #{situations\ 1782}#))))))
- (#{f\ 1780}# #{when-list\ 1778}# (quote ())))))
- (#{chi-install-global\ 1329}#
- (lambda (#{name\ 1784}# #{e\ 1785}#)
- (#{build-global-definition\ 1272}#
+ #{e\ 556}#
+ #{w\ 558}#
+ #{s\ 559}#
+ #{mod\ 561}#)))))))
+ (#{chi-when-list\ 162}#
+ (lambda (#{e\ 609}# #{when-list\ 610}# #{w\ 611}#)
+ (letrec ((#{f\ 612}# (lambda (#{when-list\ 613}#
+ #{situations\ 614}#)
+ (if (null? #{when-list\ 613}#)
+ #{situations\ 614}#
+ (#{f\ 612}# (cdr #{when-list\ 613}#)
+ (cons (let ((#{x\ 615}#
(car #{when-list\ 613}#)))
+ (if (#{free-id=?\
152}#
+ #{x\ 615}#
+
'#(syntax-object
+ compile
+ ((top)
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(x)
+
#((top))
+ #("i"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(f
+
when-list
+
situations)
+ #((top)
+ (top)
+
(top))
+ #("i"
+ "i"
+ "i"))
+ #(ribcage
+ ()
+ ()
+ ())
+ #(ribcage
+ #(e
+
when-list
+ w)
+ #((top)
+ (top)
+
(top))
+ #("i"
+ "i"
+ "i"))
+ #(ribcage
+
(lambda-var-list
+
gen-var
+ strip
+
ellipsis?
+
chi-void
+
eval-local-transformer
+
chi-local-syntax
+
chi-lambda-clause
+
chi-body
+
chi-macro
+
chi-application
+
chi-expr
+ chi
+
chi-top
+
syntax-type
+
chi-when-list
+
chi-install-global
+
chi-top-sequence
+
chi-sequence
+
source-wrap
+ wrap
+
bound-id-member?
+
distinct-bound-ids?
+
valid-bound-ids?
+
bound-id=?
+
free-id=?
+
id-var-name
+
same-marks?
+
join-marks
+
join-wraps
+
smart-append
+
make-binding-wrap
+
extend-ribcage!
+
make-empty-ribcage
+
new-mark
+
anti-mark
+
the-anti-mark
+
top-marked?
+
top-wrap
+
empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+
ribcage-labels
+
ribcage-marks
+
ribcage-symnames
+
ribcage?
+
make-ribcage
+
gen-labels
+
gen-label
+
make-rename
+
rename-marks
+
rename-new
+
rename-old
+
subst-rename?
+
wrap-subst
+
wrap-marks
+
make-wrap
+
id-sym-name&marks
+
id-sym-name
+ id?
+
nonsymbol-id?
+
global-extend
+
lookup
+
macros-only-env
+
extend-var-env
+
extend-env
+
null-env
+
binding-value
+
binding-type
+
make-binding
+
arg-check
+
source-annotation
+
no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+
syntax-object?
+
make-syntax-object
+
build-lexical-var
+
build-letrec
+
build-named-let
+
build-let
+
build-sequence
+
build-data
+
build-primref
+
build-lambda
+
build-global-definition
+
maybe-name-value!
+
build-global-assignment
+
build-global-reference
+
analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+
build-conditional
+
build-application
+
build-void
+
decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+
gensym-hook
+
local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+
*mode*
+
noexpand)
+ ((top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top)
+ (top))
+ ("i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"))
+ #(ribcage
+
(define-structure
+
and-map*)
+ ((top)
+ (top))
+ ("i"
+ "i")))
+ (hygiene
+ guile)))
+ 'compile
+ (if
(#{free-id=?\ 152}#
+ #{x\ 615}#
+
'#(syntax-object
+ load
+ ((top)
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(x)
+
#((top))
+
#("i"))
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(f
+
when-list
+
situations)
+
#((top)
+
(top)
+
(top))
+ #("i"
+ "i"
+
"i"))
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(e
+
when-list
+ w)
+
#((top)
+
(top)
+
(top))
+ #("i"
+ "i"
+
"i"))
+
#(ribcage
+
(lambda-var-list
+
gen-var
+
strip
+
ellipsis?
+
chi-void
+
eval-local-transformer
+
chi-local-syntax
+
chi-lambda-clause
+
chi-body
+
chi-macro
+
chi-application
+
chi-expr
+ chi
+
chi-top
+
syntax-type
+
chi-when-list
+
chi-install-global
+
chi-top-sequence
+
chi-sequence
+
source-wrap
+
wrap
+
bound-id-member?
+
distinct-bound-ids?
+
valid-bound-ids?
+
bound-id=?
+
free-id=?
+
id-var-name
+
same-marks?
+
join-marks
+
join-wraps
+
smart-append
+
make-binding-wrap
+
extend-ribcage!
+
make-empty-ribcage
+
new-mark
+
anti-mark
+
the-anti-mark
+
top-marked?
+
top-wrap
+
empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+
ribcage-labels
+
ribcage-marks
+
ribcage-symnames
+
ribcage?
+
make-ribcage
+
gen-labels
+
gen-label
+
make-rename
+
rename-marks
+
rename-new
+
rename-old
+
subst-rename?
+
wrap-subst
+
wrap-marks
+
make-wrap
+
id-sym-name&marks
+
id-sym-name
+ id?
+
nonsymbol-id?
+
global-extend
+
lookup
+
macros-only-env
+
extend-var-env
+
extend-env
+
null-env
+
binding-value
+
binding-type
+
make-binding
+
arg-check
+
source-annotation
+
no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+
syntax-object?
+
make-syntax-object
+
build-lexical-var
+
build-letrec
+
build-named-let
+
build-let
+
build-sequence
+
build-data
+
build-primref
+
build-lambda
+
build-global-definition
+
maybe-name-value!
+
build-global-assignment
+
build-global-reference
+
analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+
build-conditional
+
build-application
+
build-void
+
decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+
gensym-hook
+
local-eval-hook
+
top-level-eval-hook
+ fx<
+ fx=
+ fx-
+ fx+
+
*mode*
+
noexpand)
+
((top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top))
+ ("i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+ "i"
+
"i"))
+
#(ribcage
+
(define-structure
+
and-map*)
+
((top)
+
(top))
+ ("i"
+
"i")))
+ (hygiene
+
guile)))
+ 'load
+ (if
(#{free-id=?\ 152}#
+ #{x\
615}#
+
'#(syntax-object
+ eval
+ ((top)
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+
#(x)
+
#((top))
+
#("i"))
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(f
+
when-list
+
situations)
+
#((top)
+
(top)
+
(top))
+
#("i"
+
"i"
+
"i"))
+
#(ribcage
+ ()
+ ()
+ ())
+
#(ribcage
+ #(e
+
when-list
+
w)
+
#((top)
+
(top)
+
(top))
+
#("i"
+
"i"
+
"i"))
+
#(ribcage
+
(lambda-var-list
+
gen-var
+
strip
+
ellipsis?
+
chi-void
+
eval-local-transformer
+
chi-local-syntax
+
chi-lambda-clause
+
chi-body
+
chi-macro
+
chi-application
+
chi-expr
+
chi
+
chi-top
+
syntax-type
+
chi-when-list
+
chi-install-global
+
chi-top-sequence
+
chi-sequence
+
source-wrap
+
wrap
+
bound-id-member?
+
distinct-bound-ids?
+
valid-bound-ids?
+
bound-id=?
+
free-id=?
+
id-var-name
+
same-marks?
+
join-marks
+
join-wraps
+
smart-append
+
make-binding-wrap
+
extend-ribcage!
+
make-empty-ribcage
+
new-mark
+
anti-mark
+
the-anti-mark
+
top-marked?
+
top-wrap
+
empty-wrap
+
set-ribcage-labels!
+
set-ribcage-marks!
+
set-ribcage-symnames!
+
ribcage-labels
+
ribcage-marks
+
ribcage-symnames
+
ribcage?
+
make-ribcage
+
gen-labels
+
gen-label
+
make-rename
+
rename-marks
+
rename-new
+
rename-old
+
subst-rename?
+
wrap-subst
+
wrap-marks
+
make-wrap
+
id-sym-name&marks
+
id-sym-name
+
id?
+
nonsymbol-id?
+
global-extend
+
lookup
+
macros-only-env
+
extend-var-env
+
extend-env
+
null-env
+
binding-value
+
binding-type
+
make-binding
+
arg-check
+
source-annotation
+
no-source
+
set-syntax-object-module!
+
set-syntax-object-wrap!
+
set-syntax-object-expression!
+
syntax-object-module
+
syntax-object-wrap
+
syntax-object-expression
+
syntax-object?
+
make-syntax-object
+
build-lexical-var
+
build-letrec
+
build-named-let
+
build-let
+
build-sequence
+
build-data
+
build-primref
+
build-lambda
+
build-global-definition
+
maybe-name-value!
+
build-global-assignment
+
build-global-reference
+
analyze-variable
+
build-lexical-assignment
+
build-lexical-reference
+
build-conditional
+
build-application
+
build-void
+
decorate-source
+
get-global-definition-hook
+
put-global-definition-hook
+
gensym-hook
+
local-eval-hook
+
top-level-eval-hook
+
fx<
+
fx=
+
fx-
+
fx+
+
*mode*
+
noexpand)
+
((top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top)
+
(top))
+
("i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"
+
"i"))
+
#(ribcage
+
(define-structure
+
and-map*)
+
((top)
+
(top))
+
("i"
+
"i")))
+
(hygiene
+
guile)))
+ 'eval
+
(syntax-violation
+ 'eval-when
+ "invalid
situation"
+ #{e\ 609}#
+ (#{wrap\
157}#
+ #{x\
615}#
+ #{w\
611}#
+ #f))))))
+ #{situations\
614}#))))))
+ (#{f\ 612}# #{when-list\ 610}# (quote ())))))
+ (#{chi-install-global\ 161}#
+ (lambda (#{name\ 616}# #{e\ 617}#)
+ (#{build-global-definition\ 104}#
#f
- #{name\ 1784}#
- (if (let ((#{v\ 1786}#
- (module-variable
- (current-module)
- #{name\ 1784}#)))
- (if #{v\ 1786}#
- (if (variable-bound? #{v\ 1786}#)
- (if (macro? (variable-ref #{v\ 1786}#))
- (not (eq? (macro-type (variable-ref #{v\ 1786}#))
+ #{name\ 616}#
+ (if (let ((#{v\ 618}# (module-variable
+ (current-module)
+ #{name\ 616}#)))
+ (if #{v\ 618}#
+ (if (variable-bound? #{v\ 618}#)
+ (if (macro? (variable-ref #{v\ 618}#))
+ (not (eq? (macro-type (variable-ref #{v\ 618}#))
'syncase-macro))
#f)
#f)
#f))
- (#{build-application\ 1264}#
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 1274}#
+ (#{build-primref\ 106}#
#f
'make-extended-syncase-macro)
- (list (#{build-application\ 1264}#
+ (list (#{build-application\ 96}#
#f
- (#{build-primref\ 1274}# #f (quote module-ref))
- (list (#{build-application\ 1264}#
+ (#{build-primref\ 106}# #f (quote module-ref))
+ (list (#{build-application\ 96}#
#f
- (#{build-primref\ 1274}#
+ (#{build-primref\ 106}#
#f
'current-module)
'())
- (#{build-data\ 1275}# #f #{name\ 1784}#)))
- (#{build-data\ 1275}# #f (quote macro))
- #{e\ 1785}#))
- (#{build-application\ 1264}#
+ (#{build-data\ 107}# #f #{name\ 616}#)))
+ (#{build-data\ 107}# #f (quote macro))
+ #{e\ 617}#))
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 1274}#
+ (#{build-primref\ 106}#
#f
'make-syncase-macro)
- (list (#{build-data\ 1275}# #f (quote macro))
- #{e\ 1785}#))))))
- (#{chi-top-sequence\ 1328}#
- (lambda (#{body\ 1787}#
- #{r\ 1788}#
- #{w\ 1789}#
- #{s\ 1790}#
- #{m\ 1791}#
- #{esew\ 1792}#
- #{mod\ 1793}#)
- (#{build-sequence\ 1276}#
- #{s\ 1790}#
- (letrec ((#{dobody\ 1794}#
- (lambda (#{body\ 1795}#
- #{r\ 1796}#
- #{w\ 1797}#
- #{m\ 1798}#
- #{esew\ 1799}#
- #{mod\ 1800}#)
- (if (null? #{body\ 1795}#)
+ (list (#{build-data\ 107}# #f (quote macro))
+ #{e\ 617}#))))))
+ (#{chi-top-sequence\ 160}#
+ (lambda (#{body\ 619}#
+ #{r\ 620}#
+ #{w\ 621}#
+ #{s\ 622}#
+ #{m\ 623}#
+ #{esew\ 624}#
+ #{mod\ 625}#)
+ (#{build-sequence\ 108}#
+ #{s\ 622}#
+ (letrec ((#{dobody\ 626}#
+ (lambda (#{body\ 627}#
+ #{r\ 628}#
+ #{w\ 629}#
+ #{m\ 630}#
+ #{esew\ 631}#
+ #{mod\ 632}#)
+ (if (null? #{body\ 627}#)
'()
- (let ((#{first\ 1801}#
- (#{chi-top\ 1332}#
- (car #{body\ 1795}#)
- #{r\ 1796}#
- #{w\ 1797}#
- #{m\ 1798}#
- #{esew\ 1799}#
- #{mod\ 1800}#)))
- (cons #{first\ 1801}#
- (#{dobody\ 1794}#
- (cdr #{body\ 1795}#)
- #{r\ 1796}#
- #{w\ 1797}#
- #{m\ 1798}#
- #{esew\ 1799}#
- #{mod\ 1800}#)))))))
- (#{dobody\ 1794}#
- #{body\ 1787}#
- #{r\ 1788}#
- #{w\ 1789}#
- #{m\ 1791}#
- #{esew\ 1792}#
- #{mod\ 1793}#)))))
- (#{chi-sequence\ 1327}#
- (lambda (#{body\ 1802}#
- #{r\ 1803}#
- #{w\ 1804}#
- #{s\ 1805}#
- #{mod\ 1806}#)
- (#{build-sequence\ 1276}#
- #{s\ 1805}#
- (letrec ((#{dobody\ 1807}#
- (lambda (#{body\ 1808}#
- #{r\ 1809}#
- #{w\ 1810}#
- #{mod\ 1811}#)
- (if (null? #{body\ 1808}#)
+ (let ((#{first\ 633}#
+ (#{chi-top\ 164}#
+ (car #{body\ 627}#)
+ #{r\ 628}#
+ #{w\ 629}#
+ #{m\ 630}#
+ #{esew\ 631}#
+ #{mod\ 632}#)))
+ (cons #{first\ 633}#
+ (#{dobody\ 626}#
+ (cdr #{body\ 627}#)
+ #{r\ 628}#
+ #{w\ 629}#
+ #{m\ 630}#
+ #{esew\ 631}#
+ #{mod\ 632}#)))))))
+ (#{dobody\ 626}#
+ #{body\ 619}#
+ #{r\ 620}#
+ #{w\ 621}#
+ #{m\ 623}#
+ #{esew\ 624}#
+ #{mod\ 625}#)))))
+ (#{chi-sequence\ 159}#
+ (lambda (#{body\ 634}#
+ #{r\ 635}#
+ #{w\ 636}#
+ #{s\ 637}#
+ #{mod\ 638}#)
+ (#{build-sequence\ 108}#
+ #{s\ 637}#
+ (letrec ((#{dobody\ 639}#
+ (lambda (#{body\ 640}#
+ #{r\ 641}#
+ #{w\ 642}#
+ #{mod\ 643}#)
+ (if (null? #{body\ 640}#)
'()
- (let ((#{first\ 1812}#
- (#{chi\ 1333}#
- (car #{body\ 1808}#)
- #{r\ 1809}#
- #{w\ 1810}#
- #{mod\ 1811}#)))
- (cons #{first\ 1812}#
- (#{dobody\ 1807}#
- (cdr #{body\ 1808}#)
- #{r\ 1809}#
- #{w\ 1810}#
- #{mod\ 1811}#)))))))
- (#{dobody\ 1807}#
- #{body\ 1802}#
- #{r\ 1803}#
- #{w\ 1804}#
- #{mod\ 1806}#)))))
- (#{source-wrap\ 1326}#
- (lambda (#{x\ 1813}#
- #{w\ 1814}#
- #{s\ 1815}#
- #{defmod\ 1816}#)
- (#{wrap\ 1325}#
- (#{decorate-source\ 1262}#
- #{x\ 1813}#
- #{s\ 1815}#)
- #{w\ 1814}#
- #{defmod\ 1816}#)))
- (#{wrap\ 1325}#
- (lambda (#{x\ 1817}# #{w\ 1818}# #{defmod\ 1819}#)
- (if (if (null? (#{wrap-marks\ 1300}# #{w\ 1818}#))
- (null? (#{wrap-subst\ 1301}# #{w\ 1818}#))
+ (let ((#{first\ 644}#
+ (#{chi\ 165}#
+ (car #{body\ 640}#)
+ #{r\ 641}#
+ #{w\ 642}#
+ #{mod\ 643}#)))
+ (cons #{first\ 644}#
+ (#{dobody\ 639}#
+ (cdr #{body\ 640}#)
+ #{r\ 641}#
+ #{w\ 642}#
+ #{mod\ 643}#)))))))
+ (#{dobody\ 639}#
+ #{body\ 634}#
+ #{r\ 635}#
+ #{w\ 636}#
+ #{mod\ 638}#)))))
+ (#{source-wrap\ 158}#
+ (lambda (#{x\ 645}#
+ #{w\ 646}#
+ #{s\ 647}#
+ #{defmod\ 648}#)
+ (#{wrap\ 157}#
+ (#{decorate-source\ 94}# #{x\ 645}# #{s\ 647}#)
+ #{w\ 646}#
+ #{defmod\ 648}#)))
+ (#{wrap\ 157}#
+ (lambda (#{x\ 649}# #{w\ 650}# #{defmod\ 651}#)
+ (if (if (null? (#{wrap-marks\ 132}# #{w\ 650}#))
+ (null? (#{wrap-subst\ 133}# #{w\ 650}#))
#f)
- #{x\ 1817}#
- (if (#{syntax-object?\ 1281}# #{x\ 1817}#)
- (#{make-syntax-object\ 1280}#
- (#{syntax-object-expression\ 1282}# #{x\ 1817}#)
- (#{join-wraps\ 1316}#
- #{w\ 1818}#
- (#{syntax-object-wrap\ 1283}# #{x\ 1817}#))
- (#{syntax-object-module\ 1284}# #{x\ 1817}#))
- (if (null? #{x\ 1817}#)
- #{x\ 1817}#
- (#{make-syntax-object\ 1280}#
- #{x\ 1817}#
- #{w\ 1818}#
- #{defmod\ 1819}#))))))
- (#{bound-id-member?\ 1324}#
- (lambda (#{x\ 1820}# #{list\ 1821}#)
- (if (not (null? #{list\ 1821}#))
- (let ((#{t\ 1822}#
- (#{bound-id=?\ 1321}#
- #{x\ 1820}#
- (car #{list\ 1821}#))))
- (if #{t\ 1822}#
- #{t\ 1822}#
- (#{bound-id-member?\ 1324}#
- #{x\ 1820}#
- (cdr #{list\ 1821}#))))
+ #{x\ 649}#
+ (if (#{syntax-object?\ 113}# #{x\ 649}#)
+ (#{make-syntax-object\ 112}#
+ (#{syntax-object-expression\ 114}# #{x\ 649}#)
+ (#{join-wraps\ 148}#
+ #{w\ 650}#
+ (#{syntax-object-wrap\ 115}# #{x\ 649}#))
+ (#{syntax-object-module\ 116}# #{x\ 649}#))
+ (if (null? #{x\ 649}#)
+ #{x\ 649}#
+ (#{make-syntax-object\ 112}#
+ #{x\ 649}#
+ #{w\ 650}#
+ #{defmod\ 651}#))))))
+ (#{bound-id-member?\ 156}#
+ (lambda (#{x\ 652}# #{list\ 653}#)
+ (if (not (null? #{list\ 653}#))
+ (let ((#{t\ 654}# (#{bound-id=?\ 153}#
+ #{x\ 652}#
+ (car #{list\ 653}#))))
+ (if #{t\ 654}#
+ #{t\ 654}#
+ (#{bound-id-member?\ 156}#
+ #{x\ 652}#
+ (cdr #{list\ 653}#))))
#f)))
- (#{distinct-bound-ids?\ 1323}#
- (lambda (#{ids\ 1823}#)
- (letrec ((#{distinct?\ 1824}#
- (lambda (#{ids\ 1825}#)
- (let ((#{t\ 1826}# (null? #{ids\ 1825}#)))
- (if #{t\ 1826}#
- #{t\ 1826}#
- (if (not (#{bound-id-member?\ 1324}#
- (car #{ids\ 1825}#)
- (cdr #{ids\ 1825}#)))
- (#{distinct?\ 1824}# (cdr #{ids\ 1825}#))
+ (#{distinct-bound-ids?\ 155}#
+ (lambda (#{ids\ 655}#)
+ (letrec ((#{distinct?\ 656}#
+ (lambda (#{ids\ 657}#)
+ (let ((#{t\ 658}# (null? #{ids\ 657}#)))
+ (if #{t\ 658}#
+ #{t\ 658}#
+ (if (not (#{bound-id-member?\ 156}#
+ (car #{ids\ 657}#)
+ (cdr #{ids\ 657}#)))
+ (#{distinct?\ 656}# (cdr #{ids\ 657}#))
#f))))))
- (#{distinct?\ 1824}# #{ids\ 1823}#))))
- (#{valid-bound-ids?\ 1322}#
- (lambda (#{ids\ 1827}#)
- (if (letrec ((#{all-ids?\ 1828}#
- (lambda (#{ids\ 1829}#)
- (let ((#{t\ 1830}# (null? #{ids\ 1829}#)))
- (if #{t\ 1830}#
- #{t\ 1830}#
- (if (#{id?\ 1297}# (car #{ids\ 1829}#))
- (#{all-ids?\ 1828}# (cdr #{ids\ 1829}#))
+ (#{distinct?\ 656}# #{ids\ 655}#))))
+ (#{valid-bound-ids?\ 154}#
+ (lambda (#{ids\ 659}#)
+ (if (letrec ((#{all-ids?\ 660}#
+ (lambda (#{ids\ 661}#)
+ (let ((#{t\ 662}# (null? #{ids\ 661}#)))
+ (if #{t\ 662}#
+ #{t\ 662}#
+ (if (#{id?\ 129}# (car #{ids\ 661}#))
+ (#{all-ids?\ 660}# (cdr #{ids\ 661}#))
#f))))))
- (#{all-ids?\ 1828}# #{ids\ 1827}#))
- (#{distinct-bound-ids?\ 1323}# #{ids\ 1827}#)
+ (#{all-ids?\ 660}# #{ids\ 659}#))
+ (#{distinct-bound-ids?\ 155}# #{ids\ 659}#)
#f)))
- (#{bound-id=?\ 1321}#
- (lambda (#{i\ 1831}# #{j\ 1832}#)
- (if (if (#{syntax-object?\ 1281}# #{i\ 1831}#)
- (#{syntax-object?\ 1281}# #{j\ 1832}#)
+ (#{bound-id=?\ 153}#
+ (lambda (#{i\ 663}# #{j\ 664}#)
+ (if (if (#{syntax-object?\ 113}# #{i\ 663}#)
+ (#{syntax-object?\ 113}# #{j\ 664}#)
#f)
- (if (eq? (#{syntax-object-expression\ 1282}# #{i\ 1831}#)
- (#{syntax-object-expression\ 1282}# #{j\ 1832}#))
- (#{same-marks?\ 1318}#
- (#{wrap-marks\ 1300}#
- (#{syntax-object-wrap\ 1283}# #{i\ 1831}#))
- (#{wrap-marks\ 1300}#
- (#{syntax-object-wrap\ 1283}# #{j\ 1832}#)))
+ (if (eq? (#{syntax-object-expression\ 114}# #{i\ 663}#)
+ (#{syntax-object-expression\ 114}# #{j\ 664}#))
+ (#{same-marks?\ 150}#
+ (#{wrap-marks\ 132}#
+ (#{syntax-object-wrap\ 115}# #{i\ 663}#))
+ (#{wrap-marks\ 132}#
+ (#{syntax-object-wrap\ 115}# #{j\ 664}#)))
#f)
- (eq? #{i\ 1831}# #{j\ 1832}#))))
- (#{free-id=?\ 1320}#
- (lambda (#{i\ 1833}# #{j\ 1834}#)
- (if (eq? (let ((#{x\ 1835}# #{i\ 1833}#))
- (if (#{syntax-object?\ 1281}# #{x\ 1835}#)
- (#{syntax-object-expression\ 1282}# #{x\ 1835}#)
- #{x\ 1835}#))
- (let ((#{x\ 1836}# #{j\ 1834}#))
- (if (#{syntax-object?\ 1281}# #{x\ 1836}#)
- (#{syntax-object-expression\ 1282}# #{x\ 1836}#)
- #{x\ 1836}#)))
- (eq? (#{id-var-name\ 1319}# #{i\ 1833}# (quote (())))
- (#{id-var-name\ 1319}# #{j\ 1834}# (quote (()))))
+ (eq? #{i\ 663}# #{j\ 664}#))))
+ (#{free-id=?\ 152}#
+ (lambda (#{i\ 665}# #{j\ 666}#)
+ (if (eq? (let ((#{x\ 667}# #{i\ 665}#))
+ (if (#{syntax-object?\ 113}# #{x\ 667}#)
+ (#{syntax-object-expression\ 114}# #{x\ 667}#)
+ #{x\ 667}#))
+ (let ((#{x\ 668}# #{j\ 666}#))
+ (if (#{syntax-object?\ 113}# #{x\ 668}#)
+ (#{syntax-object-expression\ 114}# #{x\ 668}#)
+ #{x\ 668}#)))
+ (eq? (#{id-var-name\ 151}# #{i\ 665}# (quote (())))
+ (#{id-var-name\ 151}# #{j\ 666}# (quote (()))))
#f)))
- (#{id-var-name\ 1319}#
- (lambda (#{id\ 1837}# #{w\ 1838}#)
- (letrec ((#{search-vector-rib\ 1841}#
- (lambda (#{sym\ 1847}#
- #{subst\ 1848}#
- #{marks\ 1849}#
- #{symnames\ 1850}#
- #{ribcage\ 1851}#)
- (let ((#{n\ 1852}#
- (vector-length #{symnames\ 1850}#)))
- (letrec ((#{f\ 1853}#
- (lambda (#{i\ 1854}#)
- (if (#{fx=\ 1256}#
- #{i\ 1854}#
- #{n\ 1852}#)
- (#{search\ 1839}#
- #{sym\ 1847}#
- (cdr #{subst\ 1848}#)
- #{marks\ 1849}#)
- (if (if (eq? (vector-ref
- #{symnames\ 1850}#
- #{i\ 1854}#)
- #{sym\ 1847}#)
- (#{same-marks?\ 1318}#
- #{marks\ 1849}#
- (vector-ref
- (#{ribcage-marks\ 1307}#
- #{ribcage\ 1851}#)
- #{i\ 1854}#))
- #f)
- (values
- (vector-ref
- (#{ribcage-labels\ 1308}#
- #{ribcage\ 1851}#)
- #{i\ 1854}#)
- #{marks\ 1849}#)
- (#{f\ 1853}#
- (#{fx+\ 1254}#
- #{i\ 1854}#
- 1)))))))
- (#{f\ 1853}# 0)))))
- (#{search-list-rib\ 1840}#
- (lambda (#{sym\ 1855}#
- #{subst\ 1856}#
- #{marks\ 1857}#
- #{symnames\ 1858}#
- #{ribcage\ 1859}#)
- (letrec ((#{f\ 1860}#
- (lambda (#{symnames\ 1861}# #{i\ 1862}#)
- (if (null? #{symnames\ 1861}#)
- (#{search\ 1839}#
- #{sym\ 1855}#
- (cdr #{subst\ 1856}#)
- #{marks\ 1857}#)
- (if (if (eq? (car #{symnames\
1861}#)
- #{sym\ 1855}#)
- (#{same-marks?\ 1318}#
- #{marks\ 1857}#
- (list-ref
- (#{ribcage-marks\ 1307}#
- #{ribcage\ 1859}#)
- #{i\ 1862}#))
- #f)
- (values
- (list-ref
- (#{ribcage-labels\ 1308}#
- #{ribcage\ 1859}#)
- #{i\ 1862}#)
- #{marks\ 1857}#)
- (#{f\ 1860}#
- (cdr #{symnames\ 1861}#)
- (#{fx+\ 1254}#
- #{i\ 1862}#
- 1)))))))
- (#{f\ 1860}# #{symnames\ 1858}# 0))))
- (#{search\ 1839}#
- (lambda (#{sym\ 1863}#
- #{subst\ 1864}#
- #{marks\ 1865}#)
- (if (null? #{subst\ 1864}#)
- (values #f #{marks\ 1865}#)
- (let ((#{fst\ 1866}# (car #{subst\ 1864}#)))
- (if (eq? #{fst\ 1866}# (quote shift))
- (#{search\ 1839}#
- #{sym\ 1863}#
- (cdr #{subst\ 1864}#)
- (cdr #{marks\ 1865}#))
- (let ((#{symnames\ 1867}#
- (#{ribcage-symnames\ 1306}#
- #{fst\ 1866}#)))
- (if (vector? #{symnames\ 1867}#)
- (#{search-vector-rib\ 1841}#
- #{sym\ 1863}#
- #{subst\ 1864}#
- #{marks\ 1865}#
- #{symnames\ 1867}#
- #{fst\ 1866}#)
- (#{search-list-rib\ 1840}#
- #{sym\ 1863}#
- #{subst\ 1864}#
- #{marks\ 1865}#
- #{symnames\ 1867}#
- #{fst\ 1866}#)))))))))
- (if (symbol? #{id\ 1837}#)
- (let ((#{t\ 1868}#
- (call-with-values
- (lambda ()
- (#{search\ 1839}#
- #{id\ 1837}#
- (#{wrap-subst\ 1301}# #{w\ 1838}#)
- (#{wrap-marks\ 1300}# #{w\ 1838}#)))
- (lambda (#{x\ 1870}# . #{ignore\ 1869}#)
- #{x\ 1870}#))))
- (if #{t\ 1868}# #{t\ 1868}# #{id\ 1837}#))
- (if (#{syntax-object?\ 1281}# #{id\ 1837}#)
- (let ((#{id\ 1871}#
- (#{syntax-object-expression\ 1282}# #{id\ 1837}#))
- (#{w1\ 1872}#
- (#{syntax-object-wrap\ 1283}# #{id\ 1837}#)))
- (let ((#{marks\ 1873}#
- (#{join-marks\ 1317}#
- (#{wrap-marks\ 1300}# #{w\ 1838}#)
- (#{wrap-marks\ 1300}# #{w1\ 1872}#))))
+ (#{id-var-name\ 151}#
+ (lambda (#{id\ 669}# #{w\ 670}#)
+ (letrec ((#{search-vector-rib\ 673}#
+ (lambda (#{sym\ 679}#
+ #{subst\ 680}#
+ #{marks\ 681}#
+ #{symnames\ 682}#
+ #{ribcage\ 683}#)
+ (let ((#{n\ 684}# (vector-length
+ #{symnames\ 682}#)))
+ (letrec ((#{f\ 685}# (lambda (#{i\ 686}#)
+ (if (#{fx=\ 88}#
+ #{i\ 686}#
+ #{n\ 684}#)
+ (#{search\ 671}#
+ #{sym\ 679}#
+ (cdr #{subst\ 680}#)
+ #{marks\ 681}#)
+ (if (if (eq? (vector-ref
+
#{symnames\ 682}#
+ #{i\
686}#)
+ #{sym\
679}#)
+ (#{same-marks?\
150}#
+ #{marks\ 681}#
+ (vector-ref
+
(#{ribcage-marks\ 139}#
+ #{ribcage\
683}#)
+ #{i\ 686}#))
+ #f)
+ (values
+ (vector-ref
+
(#{ribcage-labels\ 140}#
+ #{ribcage\
683}#)
+ #{i\ 686}#)
+ #{marks\ 681}#)
+ (#{f\ 685}# (#{fx+\
86}#
+ #{i\
686}#
+ 1)))))))
+ (#{f\ 685}# 0)))))
+ (#{search-list-rib\ 672}#
+ (lambda (#{sym\ 687}#
+ #{subst\ 688}#
+ #{marks\ 689}#
+ #{symnames\ 690}#
+ #{ribcage\ 691}#)
+ (letrec ((#{f\ 692}# (lambda (#{symnames\ 693}#
+ #{i\ 694}#)
+ (if (null? #{symnames\
693}#)
+ (#{search\ 671}#
+ #{sym\ 687}#
+ (cdr #{subst\ 688}#)
+ #{marks\ 689}#)
+ (if (if (eq? (car
#{symnames\ 693}#)
+ #{sym\ 687}#)
+ (#{same-marks?\
150}#
+ #{marks\ 689}#
+ (list-ref
+
(#{ribcage-marks\ 139}#
+ #{ribcage\
691}#)
+ #{i\ 694}#))
+ #f)
+ (values
+ (list-ref
+ (#{ribcage-labels\
140}#
+ #{ribcage\ 691}#)
+ #{i\ 694}#)
+ #{marks\ 689}#)
+ (#{f\ 692}# (cdr
#{symnames\ 693}#)
+ (#{fx+\ 86}#
+ #{i\ 694}#
+ 1)))))))
+ (#{f\ 692}# #{symnames\ 690}# 0))))
+ (#{search\ 671}#
+ (lambda (#{sym\ 695}# #{subst\ 696}# #{marks\ 697}#)
+ (if (null? #{subst\ 696}#)
+ (values #f #{marks\ 697}#)
+ (let ((#{fst\ 698}# (car #{subst\ 696}#)))
+ (if (eq? #{fst\ 698}# (quote shift))
+ (#{search\ 671}#
+ #{sym\ 695}#
+ (cdr #{subst\ 696}#)
+ (cdr #{marks\ 697}#))
+ (let ((#{symnames\ 699}#
+ (#{ribcage-symnames\ 138}#
+ #{fst\ 698}#)))
+ (if (vector? #{symnames\ 699}#)
+ (#{search-vector-rib\ 673}#
+ #{sym\ 695}#
+ #{subst\ 696}#
+ #{marks\ 697}#
+ #{symnames\ 699}#
+ #{fst\ 698}#)
+ (#{search-list-rib\ 672}#
+ #{sym\ 695}#
+ #{subst\ 696}#
+ #{marks\ 697}#
+ #{symnames\ 699}#
+ #{fst\ 698}#)))))))))
+ (if (symbol? #{id\ 669}#)
+ (let ((#{t\ 700}# (call-with-values
+ (lambda ()
+ (#{search\ 671}#
+ #{id\ 669}#
+ (#{wrap-subst\ 133}# #{w\ 670}#)
+ (#{wrap-marks\ 132}# #{w\ 670}#)))
+ (lambda (#{x\ 702}# . #{ignore\ 701}#)
+ #{x\ 702}#))))
+ (if #{t\ 700}# #{t\ 700}# #{id\ 669}#))
+ (if (#{syntax-object?\ 113}# #{id\ 669}#)
+ (let ((#{id\ 703}#
+ (#{syntax-object-expression\ 114}# #{id\ 669}#))
+ (#{w1\ 704}#
+ (#{syntax-object-wrap\ 115}# #{id\ 669}#)))
+ (let ((#{marks\ 705}#
+ (#{join-marks\ 149}#
+ (#{wrap-marks\ 132}# #{w\ 670}#)
+ (#{wrap-marks\ 132}# #{w1\ 704}#))))
(call-with-values
(lambda ()
- (#{search\ 1839}#
- #{id\ 1871}#
- (#{wrap-subst\ 1301}# #{w\ 1838}#)
- #{marks\ 1873}#))
- (lambda (#{new-id\ 1874}# #{marks\ 1875}#)
- (let ((#{t\ 1876}# #{new-id\ 1874}#))
- (if #{t\ 1876}#
- #{t\ 1876}#
- (let ((#{t\ 1877}#
- (call-with-values
- (lambda ()
- (#{search\ 1839}#
- #{id\ 1871}#
- (#{wrap-subst\ 1301}#
- #{w1\ 1872}#)
- #{marks\ 1875}#))
- (lambda (#{x\ 1879}#
- .
- #{ignore\ 1878}#)
- #{x\ 1879}#))))
- (if #{t\ 1877}#
- #{t\ 1877}#
- #{id\ 1871}#))))))))
+ (#{search\ 671}#
+ #{id\ 703}#
+ (#{wrap-subst\ 133}# #{w\ 670}#)
+ #{marks\ 705}#))
+ (lambda (#{new-id\ 706}# #{marks\ 707}#)
+ (let ((#{t\ 708}# #{new-id\ 706}#))
+ (if #{t\ 708}#
+ #{t\ 708}#
+ (let ((#{t\ 709}# (call-with-values
+ (lambda ()
+ (#{search\ 671}#
+ #{id\ 703}#
+ (#{wrap-subst\ 133}#
+ #{w1\ 704}#)
+ #{marks\ 707}#))
+ (lambda (#{x\ 711}#
+ .
+ #{ignore\ 710}#)
+ #{x\ 711}#))))
+ (if #{t\ 709}#
+ #{t\ 709}#
+ #{id\ 703}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 1837}#))))))
- (#{same-marks?\ 1318}#
- (lambda (#{x\ 1880}# #{y\ 1881}#)
- (let ((#{t\ 1882}# (eq? #{x\ 1880}# #{y\ 1881}#)))
- (if #{t\ 1882}#
- #{t\ 1882}#
- (if (not (null? #{x\ 1880}#))
- (if (not (null? #{y\ 1881}#))
- (if (eq? (car #{x\ 1880}#) (car #{y\ 1881}#))
- (#{same-marks?\ 1318}#
- (cdr #{x\ 1880}#)
- (cdr #{y\ 1881}#))
+ #{id\ 669}#))))))
+ (#{same-marks?\ 150}#
+ (lambda (#{x\ 712}# #{y\ 713}#)
+ (let ((#{t\ 714}# (eq? #{x\ 712}# #{y\ 713}#)))
+ (if #{t\ 714}#
+ #{t\ 714}#
+ (if (not (null? #{x\ 712}#))
+ (if (not (null? #{y\ 713}#))
+ (if (eq? (car #{x\ 712}#) (car #{y\ 713}#))
+ (#{same-marks?\ 150}#
+ (cdr #{x\ 712}#)
+ (cdr #{y\ 713}#))
#f)
#f)
#f)))))
- (#{join-marks\ 1317}#
- (lambda (#{m1\ 1883}# #{m2\ 1884}#)
- (#{smart-append\ 1315}#
- #{m1\ 1883}#
- #{m2\ 1884}#)))
- (#{join-wraps\ 1316}#
- (lambda (#{w1\ 1885}# #{w2\ 1886}#)
- (let ((#{m1\ 1887}#
- (#{wrap-marks\ 1300}# #{w1\ 1885}#))
- (#{s1\ 1888}#
- (#{wrap-subst\ 1301}# #{w1\ 1885}#)))
- (if (null? #{m1\ 1887}#)
- (if (null? #{s1\ 1888}#)
- #{w2\ 1886}#
- (#{make-wrap\ 1299}#
- (#{wrap-marks\ 1300}# #{w2\ 1886}#)
- (#{smart-append\ 1315}#
- #{s1\ 1888}#
- (#{wrap-subst\ 1301}# #{w2\ 1886}#))))
- (#{make-wrap\ 1299}#
- (#{smart-append\ 1315}#
- #{m1\ 1887}#
- (#{wrap-marks\ 1300}# #{w2\ 1886}#))
- (#{smart-append\ 1315}#
- #{s1\ 1888}#
- (#{wrap-subst\ 1301}# #{w2\ 1886}#)))))))
- (#{smart-append\ 1315}#
- (lambda (#{m1\ 1889}# #{m2\ 1890}#)
- (if (null? #{m2\ 1890}#)
- #{m1\ 1889}#
- (append #{m1\ 1889}# #{m2\ 1890}#))))
- (#{make-binding-wrap\ 1314}#
- (lambda (#{ids\ 1891}# #{labels\ 1892}# #{w\ 1893}#)
- (if (null? #{ids\ 1891}#)
- #{w\ 1893}#
- (#{make-wrap\ 1299}#
- (#{wrap-marks\ 1300}# #{w\ 1893}#)
- (cons (let ((#{labelvec\ 1894}#
- (list->vector #{labels\ 1892}#)))
- (let ((#{n\ 1895}#
- (vector-length #{labelvec\ 1894}#)))
- (let ((#{symnamevec\ 1896}#
- (make-vector #{n\ 1895}#))
- (#{marksvec\ 1897}#
- (make-vector #{n\ 1895}#)))
+ (#{join-marks\ 149}#
+ (lambda (#{m1\ 715}# #{m2\ 716}#)
+ (#{smart-append\ 147}# #{m1\ 715}# #{m2\ 716}#)))
+ (#{join-wraps\ 148}#
+ (lambda (#{w1\ 717}# #{w2\ 718}#)
+ (let ((#{m1\ 719}# (#{wrap-marks\ 132}# #{w1\ 717}#))
+ (#{s1\ 720}# (#{wrap-subst\ 133}# #{w1\ 717}#)))
+ (if (null? #{m1\ 719}#)
+ (if (null? #{s1\ 720}#)
+ #{w2\ 718}#
+ (#{make-wrap\ 131}#
+ (#{wrap-marks\ 132}# #{w2\ 718}#)
+ (#{smart-append\ 147}#
+ #{s1\ 720}#
+ (#{wrap-subst\ 133}# #{w2\ 718}#))))
+ (#{make-wrap\ 131}#
+ (#{smart-append\ 147}#
+ #{m1\ 719}#
+ (#{wrap-marks\ 132}# #{w2\ 718}#))
+ (#{smart-append\ 147}#
+ #{s1\ 720}#
+ (#{wrap-subst\ 133}# #{w2\ 718}#)))))))
+ (#{smart-append\ 147}#
+ (lambda (#{m1\ 721}# #{m2\ 722}#)
+ (if (null? #{m2\ 722}#)
+ #{m1\ 721}#
+ (append #{m1\ 721}# #{m2\ 722}#))))
+ (#{make-binding-wrap\ 146}#
+ (lambda (#{ids\ 723}# #{labels\ 724}# #{w\ 725}#)
+ (if (null? #{ids\ 723}#)
+ #{w\ 725}#
+ (#{make-wrap\ 131}#
+ (#{wrap-marks\ 132}# #{w\ 725}#)
+ (cons (let ((#{labelvec\ 726}#
+ (list->vector #{labels\ 724}#)))
+ (let ((#{n\ 727}# (vector-length
+ #{labelvec\ 726}#)))
+ (let ((#{symnamevec\ 728}#
+ (make-vector #{n\ 727}#))
+ (#{marksvec\ 729}#
+ (make-vector #{n\ 727}#)))
(begin
- (letrec ((#{f\ 1898}#
- (lambda (#{ids\ 1899}# #{i\ 1900}#)
- (if (not (null? #{ids\ 1899}#))
- (call-with-values
- (lambda ()
- (#{id-sym-name&marks\
1298}#
- (car #{ids\ 1899}#)
- #{w\ 1893}#))
- (lambda (#{symname\ 1901}#
- #{marks\ 1902}#)
- (begin
- (vector-set!
- #{symnamevec\ 1896}#
- #{i\ 1900}#
- #{symname\ 1901}#)
- (vector-set!
- #{marksvec\ 1897}#
- #{i\ 1900}#
- #{marks\ 1902}#)
- (#{f\ 1898}#
- (cdr #{ids\ 1899}#)
- (#{fx+\ 1254}#
- #{i\ 1900}#
- 1)))))))))
- (#{f\ 1898}# #{ids\ 1891}# 0))
- (#{make-ribcage\ 1304}#
- #{symnamevec\ 1896}#
- #{marksvec\ 1897}#
- #{labelvec\ 1894}#)))))
- (#{wrap-subst\ 1301}# #{w\ 1893}#))))))
- (#{extend-ribcage!\ 1313}#
- (lambda (#{ribcage\ 1903}# #{id\ 1904}# #{label\ 1905}#)
+ (letrec ((#{f\ 730}# (lambda (#{ids\ 731}#
+ #{i\ 732}#)
+ (if (not (null? #{ids\
731}#))
+ (call-with-values
+ (lambda ()
+
(#{id-sym-name&marks\ 130}#
+ (car #{ids\
731}#)
+ #{w\ 725}#))
+ (lambda
(#{symname\ 733}#
+ #{marks\
734}#)
+ (begin
+ (vector-set!
+
#{symnamevec\ 728}#
+ #{i\ 732}#
+ #{symname\
733}#)
+ (vector-set!
+ #{marksvec\
729}#
+ #{i\ 732}#
+ #{marks\
734}#)
+ (#{f\ 730}#
(cdr #{ids\ 731}#)
+
(#{fx+\ 86}#
+
#{i\ 732}#
+
1)))))))))
+ (#{f\ 730}# #{ids\ 723}# 0))
+ (#{make-ribcage\ 136}#
+ #{symnamevec\ 728}#
+ #{marksvec\ 729}#
+ #{labelvec\ 726}#)))))
+ (#{wrap-subst\ 133}# #{w\ 725}#))))))
+ (#{extend-ribcage!\ 145}#
+ (lambda (#{ribcage\ 735}# #{id\ 736}# #{label\ 737}#)
(begin
- (#{set-ribcage-symnames!\ 1309}#
- #{ribcage\ 1903}#
- (cons (#{syntax-object-expression\ 1282}# #{id\ 1904}#)
- (#{ribcage-symnames\ 1306}# #{ribcage\ 1903}#)))
- (#{set-ribcage-marks!\ 1310}#
- #{ribcage\ 1903}#
- (cons (#{wrap-marks\ 1300}#
- (#{syntax-object-wrap\ 1283}# #{id\ 1904}#))
- (#{ribcage-marks\ 1307}# #{ribcage\ 1903}#)))
- (#{set-ribcage-labels!\ 1311}#
- #{ribcage\ 1903}#
- (cons #{label\ 1905}#
- (#{ribcage-labels\ 1308}# #{ribcage\ 1903}#))))))
- (#{anti-mark\ 1312}#
- (lambda (#{w\ 1906}#)
- (#{make-wrap\ 1299}#
- (cons #f (#{wrap-marks\ 1300}# #{w\ 1906}#))
+ (#{set-ribcage-symnames!\ 141}#
+ #{ribcage\ 735}#
+ (cons (#{syntax-object-expression\ 114}# #{id\ 736}#)
+ (#{ribcage-symnames\ 138}# #{ribcage\ 735}#)))
+ (#{set-ribcage-marks!\ 142}#
+ #{ribcage\ 735}#
+ (cons (#{wrap-marks\ 132}#
+ (#{syntax-object-wrap\ 115}# #{id\ 736}#))
+ (#{ribcage-marks\ 139}# #{ribcage\ 735}#)))
+ (#{set-ribcage-labels!\ 143}#
+ #{ribcage\ 735}#
+ (cons #{label\ 737}#
+ (#{ribcage-labels\ 140}# #{ribcage\ 735}#))))))
+ (#{anti-mark\ 144}#
+ (lambda (#{w\ 738}#)
+ (#{make-wrap\ 131}#
+ (cons #f (#{wrap-marks\ 132}# #{w\ 738}#))
(cons 'shift
- (#{wrap-subst\ 1301}# #{w\ 1906}#)))))
- (#{set-ribcage-labels!\ 1311}#
- (lambda (#{x\ 1907}# #{update\ 1908}#)
- (vector-set! #{x\ 1907}# 3 #{update\ 1908}#)))
- (#{set-ribcage-marks!\ 1310}#
- (lambda (#{x\ 1909}# #{update\ 1910}#)
- (vector-set! #{x\ 1909}# 2 #{update\ 1910}#)))
- (#{set-ribcage-symnames!\ 1309}#
- (lambda (#{x\ 1911}# #{update\ 1912}#)
- (vector-set! #{x\ 1911}# 1 #{update\ 1912}#)))
- (#{ribcage-labels\ 1308}#
- (lambda (#{x\ 1913}#) (vector-ref #{x\ 1913}# 3)))
- (#{ribcage-marks\ 1307}#
- (lambda (#{x\ 1914}#) (vector-ref #{x\ 1914}# 2)))
- (#{ribcage-symnames\ 1306}#
- (lambda (#{x\ 1915}#) (vector-ref #{x\ 1915}# 1)))
- (#{ribcage?\ 1305}#
- (lambda (#{x\ 1916}#)
- (if (vector? #{x\ 1916}#)
- (if (= (vector-length #{x\ 1916}#) 4)
- (eq? (vector-ref #{x\ 1916}# 0) (quote ribcage))
+ (#{wrap-subst\ 133}# #{w\ 738}#)))))
+ (#{set-ribcage-labels!\ 143}#
+ (lambda (#{x\ 739}# #{update\ 740}#)
+ (vector-set! #{x\ 739}# 3 #{update\ 740}#)))
+ (#{set-ribcage-marks!\ 142}#
+ (lambda (#{x\ 741}# #{update\ 742}#)
+ (vector-set! #{x\ 741}# 2 #{update\ 742}#)))
+ (#{set-ribcage-symnames!\ 141}#
+ (lambda (#{x\ 743}# #{update\ 744}#)
+ (vector-set! #{x\ 743}# 1 #{update\ 744}#)))
+ (#{ribcage-labels\ 140}#
+ (lambda (#{x\ 745}#) (vector-ref #{x\ 745}# 3)))
+ (#{ribcage-marks\ 139}#
+ (lambda (#{x\ 746}#) (vector-ref #{x\ 746}# 2)))
+ (#{ribcage-symnames\ 138}#
+ (lambda (#{x\ 747}#) (vector-ref #{x\ 747}# 1)))
+ (#{ribcage?\ 137}#
+ (lambda (#{x\ 748}#)
+ (if (vector? #{x\ 748}#)
+ (if (= (vector-length #{x\ 748}#) 4)
+ (eq? (vector-ref #{x\ 748}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 1304}#
- (lambda (#{symnames\ 1917}#
- #{marks\ 1918}#
- #{labels\ 1919}#)
+ (#{make-ribcage\ 136}#
+ (lambda (#{symnames\ 749}#
+ #{marks\ 750}#
+ #{labels\ 751}#)
(vector
'ribcage
- #{symnames\ 1917}#
- #{marks\ 1918}#
- #{labels\ 1919}#)))
- (#{gen-labels\ 1303}#
- (lambda (#{ls\ 1920}#)
- (if (null? #{ls\ 1920}#)
+ #{symnames\ 749}#
+ #{marks\ 750}#
+ #{labels\ 751}#)))
+ (#{gen-labels\ 135}#
+ (lambda (#{ls\ 752}#)
+ (if (null? #{ls\ 752}#)
'()
- (cons (#{gen-label\ 1302}#)
- (#{gen-labels\ 1303}# (cdr #{ls\ 1920}#))))))
- (#{gen-label\ 1302}# (lambda () (string #\i)))
- (#{wrap-subst\ 1301}# cdr)
- (#{wrap-marks\ 1300}# car)
- (#{make-wrap\ 1299}# cons)
- (#{id-sym-name&marks\ 1298}#
- (lambda (#{x\ 1921}# #{w\ 1922}#)
- (if (#{syntax-object?\ 1281}# #{x\ 1921}#)
+ (cons (#{gen-label\ 134}#)
+ (#{gen-labels\ 135}# (cdr #{ls\ 752}#))))))
+ (#{gen-label\ 134}# (lambda () (string #\i)))
+ (#{wrap-subst\ 133}# cdr)
+ (#{wrap-marks\ 132}# car)
+ (#{make-wrap\ 131}# cons)
+ (#{id-sym-name&marks\ 130}#
+ (lambda (#{x\ 753}# #{w\ 754}#)
+ (if (#{syntax-object?\ 113}# #{x\ 753}#)
(values
- (#{syntax-object-expression\ 1282}# #{x\ 1921}#)
- (#{join-marks\ 1317}#
- (#{wrap-marks\ 1300}# #{w\ 1922}#)
- (#{wrap-marks\ 1300}#
- (#{syntax-object-wrap\ 1283}# #{x\ 1921}#))))
+ (#{syntax-object-expression\ 114}# #{x\ 753}#)
+ (#{join-marks\ 149}#
+ (#{wrap-marks\ 132}# #{w\ 754}#)
+ (#{wrap-marks\ 132}#
+ (#{syntax-object-wrap\ 115}# #{x\ 753}#))))
(values
- #{x\ 1921}#
- (#{wrap-marks\ 1300}# #{w\ 1922}#)))))
- (#{id?\ 1297}#
- (lambda (#{x\ 1923}#)
- (if (symbol? #{x\ 1923}#)
+ #{x\ 753}#
+ (#{wrap-marks\ 132}# #{w\ 754}#)))))
+ (#{id?\ 129}#
+ (lambda (#{x\ 755}#)
+ (if (symbol? #{x\ 755}#)
#t
- (if (#{syntax-object?\ 1281}# #{x\ 1923}#)
+ (if (#{syntax-object?\ 113}# #{x\ 755}#)
(symbol?
- (#{syntax-object-expression\ 1282}# #{x\ 1923}#))
+ (#{syntax-object-expression\ 114}# #{x\ 755}#))
#f))))
- (#{nonsymbol-id?\ 1296}#
- (lambda (#{x\ 1924}#)
- (if (#{syntax-object?\ 1281}# #{x\ 1924}#)
+ (#{nonsymbol-id?\ 128}#
+ (lambda (#{x\ 756}#)
+ (if (#{syntax-object?\ 113}# #{x\ 756}#)
(symbol?
- (#{syntax-object-expression\ 1282}# #{x\ 1924}#))
+ (#{syntax-object-expression\ 114}# #{x\ 756}#))
#f)))
- (#{global-extend\ 1295}#
- (lambda (#{type\ 1925}# #{sym\ 1926}# #{val\ 1927}#)
- (#{put-global-definition-hook\ 1260}#
- #{sym\ 1926}#
- #{type\ 1925}#
- #{val\ 1927}#)))
- (#{lookup\ 1294}#
- (lambda (#{x\ 1928}# #{r\ 1929}# #{mod\ 1930}#)
- (let ((#{t\ 1931}# (assq #{x\ 1928}# #{r\ 1929}#)))
- (if #{t\ 1931}#
- (cdr #{t\ 1931}#)
- (if (symbol? #{x\ 1928}#)
- (let ((#{t\ 1932}#
- (#{get-global-definition-hook\ 1261}#
- #{x\ 1928}#
- #{mod\ 1930}#)))
- (if #{t\ 1932}# #{t\ 1932}# (quote (global))))
+ (#{global-extend\ 127}#
+ (lambda (#{type\ 757}# #{sym\ 758}# #{val\ 759}#)
+ (#{put-global-definition-hook\ 92}#
+ #{sym\ 758}#
+ #{type\ 757}#
+ #{val\ 759}#)))
+ (#{lookup\ 126}#
+ (lambda (#{x\ 760}# #{r\ 761}# #{mod\ 762}#)
+ (let ((#{t\ 763}# (assq #{x\ 760}# #{r\ 761}#)))
+ (if #{t\ 763}#
+ (cdr #{t\ 763}#)
+ (if (symbol? #{x\ 760}#)
+ (let ((#{t\ 764}# (#{get-global-definition-hook\ 93}#
+ #{x\ 760}#
+ #{mod\ 762}#)))
+ (if #{t\ 764}# #{t\ 764}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 1293}#
- (lambda (#{r\ 1933}#)
- (if (null? #{r\ 1933}#)
+ (#{macros-only-env\ 125}#
+ (lambda (#{r\ 765}#)
+ (if (null? #{r\ 765}#)
'()
- (let ((#{a\ 1934}# (car #{r\ 1933}#)))
- (if (eq? (cadr #{a\ 1934}#) (quote macro))
- (cons #{a\ 1934}#
- (#{macros-only-env\ 1293}# (cdr #{r\ 1933}#)))
- (#{macros-only-env\ 1293}# (cdr #{r\ 1933}#)))))))
- (#{extend-var-env\ 1292}#
- (lambda (#{labels\ 1935}# #{vars\ 1936}# #{r\ 1937}#)
- (if (null? #{labels\ 1935}#)
- #{r\ 1937}#
- (#{extend-var-env\ 1292}#
- (cdr #{labels\ 1935}#)
- (cdr #{vars\ 1936}#)
- (cons (cons (car #{labels\ 1935}#)
- (cons (quote lexical) (car #{vars\ 1936}#)))
- #{r\ 1937}#)))))
- (#{extend-env\ 1291}#
- (lambda (#{labels\ 1938}# #{bindings\ 1939}# #{r\ 1940}#)
- (if (null? #{labels\ 1938}#)
- #{r\ 1940}#
- (#{extend-env\ 1291}#
- (cdr #{labels\ 1938}#)
- (cdr #{bindings\ 1939}#)
- (cons (cons (car #{labels\ 1938}#)
- (car #{bindings\ 1939}#))
- #{r\ 1940}#)))))
- (#{binding-value\ 1290}# cdr)
- (#{binding-type\ 1289}# car)
- (#{source-annotation\ 1288}#
- (lambda (#{x\ 1941}#)
- (if (#{syntax-object?\ 1281}# #{x\ 1941}#)
- (#{source-annotation\ 1288}#
- (#{syntax-object-expression\ 1282}# #{x\ 1941}#))
- (if (pair? #{x\ 1941}#)
- (let ((#{props\ 1942}# (source-properties #{x\ 1941}#)))
- (if (pair? #{props\ 1942}#) #{props\ 1942}# #f))
+ (let ((#{a\ 766}# (car #{r\ 765}#)))
+ (if (eq? (cadr #{a\ 766}#) (quote macro))
+ (cons #{a\ 766}#
+ (#{macros-only-env\ 125}# (cdr #{r\ 765}#)))
+ (#{macros-only-env\ 125}# (cdr #{r\ 765}#)))))))
+ (#{extend-var-env\ 124}#
+ (lambda (#{labels\ 767}# #{vars\ 768}# #{r\ 769}#)
+ (if (null? #{labels\ 767}#)
+ #{r\ 769}#
+ (#{extend-var-env\ 124}#
+ (cdr #{labels\ 767}#)
+ (cdr #{vars\ 768}#)
+ (cons (cons (car #{labels\ 767}#)
+ (cons (quote lexical) (car #{vars\ 768}#)))
+ #{r\ 769}#)))))
+ (#{extend-env\ 123}#
+ (lambda (#{labels\ 770}# #{bindings\ 771}# #{r\ 772}#)
+ (if (null? #{labels\ 770}#)
+ #{r\ 772}#
+ (#{extend-env\ 123}#
+ (cdr #{labels\ 770}#)
+ (cdr #{bindings\ 771}#)
+ (cons (cons (car #{labels\ 770}#)
+ (car #{bindings\ 771}#))
+ #{r\ 772}#)))))
+ (#{binding-value\ 122}# cdr)
+ (#{binding-type\ 121}# car)
+ (#{source-annotation\ 120}#
+ (lambda (#{x\ 773}#)
+ (if (#{syntax-object?\ 113}# #{x\ 773}#)
+ (#{source-annotation\ 120}#
+ (#{syntax-object-expression\ 114}# #{x\ 773}#))
+ (if (pair? #{x\ 773}#)
+ (let ((#{props\ 774}# (source-properties #{x\ 773}#)))
+ (if (pair? #{props\ 774}#) #{props\ 774}# #f))
#f))))
- (#{set-syntax-object-module!\ 1287}#
- (lambda (#{x\ 1943}# #{update\ 1944}#)
- (vector-set! #{x\ 1943}# 3 #{update\ 1944}#)))
- (#{set-syntax-object-wrap!\ 1286}#
- (lambda (#{x\ 1945}# #{update\ 1946}#)
- (vector-set! #{x\ 1945}# 2 #{update\ 1946}#)))
- (#{set-syntax-object-expression!\ 1285}#
- (lambda (#{x\ 1947}# #{update\ 1948}#)
- (vector-set! #{x\ 1947}# 1 #{update\ 1948}#)))
- (#{syntax-object-module\ 1284}#
- (lambda (#{x\ 1949}#) (vector-ref #{x\ 1949}# 3)))
- (#{syntax-object-wrap\ 1283}#
- (lambda (#{x\ 1950}#) (vector-ref #{x\ 1950}# 2)))
- (#{syntax-object-expression\ 1282}#
- (lambda (#{x\ 1951}#) (vector-ref #{x\ 1951}# 1)))
- (#{syntax-object?\ 1281}#
- (lambda (#{x\ 1952}#)
- (if (vector? #{x\ 1952}#)
- (if (= (vector-length #{x\ 1952}#) 4)
- (eq? (vector-ref #{x\ 1952}# 0)
+ (#{set-syntax-object-module!\ 119}#
+ (lambda (#{x\ 775}# #{update\ 776}#)
+ (vector-set! #{x\ 775}# 3 #{update\ 776}#)))
+ (#{set-syntax-object-wrap!\ 118}#
+ (lambda (#{x\ 777}# #{update\ 778}#)
+ (vector-set! #{x\ 777}# 2 #{update\ 778}#)))
+ (#{set-syntax-object-expression!\ 117}#
+ (lambda (#{x\ 779}# #{update\ 780}#)
+ (vector-set! #{x\ 779}# 1 #{update\ 780}#)))
+ (#{syntax-object-module\ 116}#
+ (lambda (#{x\ 781}#) (vector-ref #{x\ 781}# 3)))
+ (#{syntax-object-wrap\ 115}#
+ (lambda (#{x\ 782}#) (vector-ref #{x\ 782}# 2)))
+ (#{syntax-object-expression\ 114}#
+ (lambda (#{x\ 783}#) (vector-ref #{x\ 783}# 1)))
+ (#{syntax-object?\ 113}#
+ (lambda (#{x\ 784}#)
+ (if (vector? #{x\ 784}#)
+ (if (= (vector-length #{x\ 784}#) 4)
+ (eq? (vector-ref #{x\ 784}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 1280}#
- (lambda (#{expression\ 1953}#
- #{wrap\ 1954}#
- #{module\ 1955}#)
+ (#{make-syntax-object\ 112}#
+ (lambda (#{expression\ 785}#
+ #{wrap\ 786}#
+ #{module\ 787}#)
(vector
'syntax-object
- #{expression\ 1953}#
- #{wrap\ 1954}#
- #{module\ 1955}#)))
- (#{build-letrec\ 1279}#
- (lambda (#{src\ 1956}#
- #{ids\ 1957}#
- #{vars\ 1958}#
- #{val-exps\ 1959}#
- #{body-exp\ 1960}#)
- (if (null? #{vars\ 1958}#)
- #{body-exp\ 1960}#
- (let ((#{atom-key\ 1961}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 1961}# (quote (c)))
+ #{expression\ 785}#
+ #{wrap\ 786}#
+ #{module\ 787}#)))
+ (#{build-letrec\ 111}#
+ (lambda (#{src\ 788}#
+ #{ids\ 789}#
+ #{vars\ 790}#
+ #{val-exps\ 791}#
+ #{body-exp\ 792}#)
+ (if (null? #{vars\ 790}#)
+ #{body-exp\ 792}#
+ (let ((#{atom-key\ 793}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 793}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 1271}#
- #{ids\ 1957}#
- #{val-exps\ 1959}#)
+ #{maybe-name-value!\ 103}#
+ #{ids\ 789}#
+ #{val-exps\ 791}#)
((@ (language tree-il) make-letrec)
- #{src\ 1956}#
- #{ids\ 1957}#
- #{vars\ 1958}#
- #{val-exps\ 1959}#
- #{body-exp\ 1960}#))
- (#{decorate-source\ 1262}#
+ #{src\ 788}#
+ #{ids\ 789}#
+ #{vars\ 790}#
+ #{val-exps\ 791}#
+ #{body-exp\ 792}#))
+ (#{decorate-source\ 94}#
(list 'letrec
- (map list #{vars\ 1958}# #{val-exps\ 1959}#)
- #{body-exp\ 1960}#)
- #{src\ 1956}#))))))
- (#{build-named-let\ 1278}#
- (lambda (#{src\ 1962}#
- #{ids\ 1963}#
- #{vars\ 1964}#
- #{val-exps\ 1965}#
- #{body-exp\ 1966}#)
- (let ((#{f\ 1967}# (car #{vars\ 1964}#))
- (#{f-name\ 1968}# (car #{ids\ 1963}#))
- (#{vars\ 1969}# (cdr #{vars\ 1964}#))
- (#{ids\ 1970}# (cdr #{ids\ 1963}#)))
- (let ((#{atom-key\ 1971}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 1971}# (quote (c)))
- (let ((#{proc\ 1972}#
- (#{build-lambda\ 1273}#
- #{src\ 1962}#
- #{ids\ 1970}#
- #{vars\ 1969}#
+ (map list #{vars\ 790}# #{val-exps\ 791}#)
+ #{body-exp\ 792}#)
+ #{src\ 788}#))))))
+ (#{build-named-let\ 110}#
+ (lambda (#{src\ 794}#
+ #{ids\ 795}#
+ #{vars\ 796}#
+ #{val-exps\ 797}#
+ #{body-exp\ 798}#)
+ (let ((#{f\ 799}# (car #{vars\ 796}#))
+ (#{f-name\ 800}# (car #{ids\ 795}#))
+ (#{vars\ 801}# (cdr #{vars\ 796}#))
+ (#{ids\ 802}# (cdr #{ids\ 795}#)))
+ (let ((#{atom-key\ 803}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 803}# (quote (c)))
+ (let ((#{proc\ 804}#
+ (#{build-lambda\ 105}#
+ #{src\ 794}#
+ #{ids\ 802}#
+ #{vars\ 801}#
#f
- #{body-exp\ 1966}#)))
+ #{body-exp\ 798}#)))
(begin
- (#{maybe-name-value!\ 1271}#
- #{f-name\ 1968}#
- #{proc\ 1972}#)
+ (#{maybe-name-value!\ 103}#
+ #{f-name\ 800}#
+ #{proc\ 804}#)
(for-each
- #{maybe-name-value!\ 1271}#
- #{ids\ 1970}#
- #{val-exps\ 1965}#)
+ #{maybe-name-value!\ 103}#
+ #{ids\ 802}#
+ #{val-exps\ 797}#)
((@ (language tree-il) make-letrec)
- #{src\ 1962}#
- (list #{f-name\ 1968}#)
- (list #{f\ 1967}#)
- (list #{proc\ 1972}#)
- (#{build-application\ 1264}#
- #{src\ 1962}#
- (#{build-lexical-reference\ 1266}#
+ #{src\ 794}#
+ (list #{f-name\ 800}#)
+ (list #{f\ 799}#)
+ (list #{proc\ 804}#)
+ (#{build-application\ 96}#
+ #{src\ 794}#
+ (#{build-lexical-reference\ 98}#
'fun
- #{src\ 1962}#
- #{f-name\ 1968}#
- #{f\ 1967}#)
- #{val-exps\ 1965}#))))
- (#{decorate-source\ 1262}#
+ #{src\ 794}#
+ #{f-name\ 800}#
+ #{f\ 799}#)
+ #{val-exps\ 797}#))))
+ (#{decorate-source\ 94}#
(list 'let
- #{f\ 1967}#
- (map list #{vars\ 1969}# #{val-exps\ 1965}#)
- #{body-exp\ 1966}#)
- #{src\ 1962}#))))))
- (#{build-let\ 1277}#
- (lambda (#{src\ 1973}#
- #{ids\ 1974}#
- #{vars\ 1975}#
- #{val-exps\ 1976}#
- #{body-exp\ 1977}#)
- (if (null? #{vars\ 1975}#)
- #{body-exp\ 1977}#
- (let ((#{atom-key\ 1978}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 1978}# (quote (c)))
+ #{f\ 799}#
+ (map list #{vars\ 801}# #{val-exps\ 797}#)
+ #{body-exp\ 798}#)
+ #{src\ 794}#))))))
+ (#{build-let\ 109}#
+ (lambda (#{src\ 805}#
+ #{ids\ 806}#
+ #{vars\ 807}#
+ #{val-exps\ 808}#
+ #{body-exp\ 809}#)
+ (if (null? #{vars\ 807}#)
+ #{body-exp\ 809}#
+ (let ((#{atom-key\ 810}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 810}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 1271}#
- #{ids\ 1974}#
- #{val-exps\ 1976}#)
+ #{maybe-name-value!\ 103}#
+ #{ids\ 806}#
+ #{val-exps\ 808}#)
((@ (language tree-il) make-let)
- #{src\ 1973}#
- #{ids\ 1974}#
- #{vars\ 1975}#
- #{val-exps\ 1976}#
- #{body-exp\ 1977}#))
- (#{decorate-source\ 1262}#
+ #{src\ 805}#
+ #{ids\ 806}#
+ #{vars\ 807}#
+ #{val-exps\ 808}#
+ #{body-exp\ 809}#))
+ (#{decorate-source\ 94}#
(list 'let
- (map list #{vars\ 1975}# #{val-exps\ 1976}#)
- #{body-exp\ 1977}#)
- #{src\ 1973}#))))))
- (#{build-sequence\ 1276}#
- (lambda (#{src\ 1979}# #{exps\ 1980}#)
- (if (null? (cdr #{exps\ 1980}#))
- (car #{exps\ 1980}#)
- (let ((#{atom-key\ 1981}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 1981}# (quote (c)))
+ (map list #{vars\ 807}# #{val-exps\ 808}#)
+ #{body-exp\ 809}#)
+ #{src\ 805}#))))))
+ (#{build-sequence\ 108}#
+ (lambda (#{src\ 811}# #{exps\ 812}#)
+ (if (null? (cdr #{exps\ 812}#))
+ (car #{exps\ 812}#)
+ (let ((#{atom-key\ 813}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 813}# (quote (c)))
((@ (language tree-il) make-sequence)
- #{src\ 1979}#
- #{exps\ 1980}#)
- (#{decorate-source\ 1262}#
- (cons (quote begin) #{exps\ 1980}#)
- #{src\ 1979}#))))))
- (#{build-data\ 1275}#
- (lambda (#{src\ 1982}# #{exp\ 1983}#)
- (let ((#{atom-key\ 1984}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 1984}# (quote (c)))
+ #{src\ 811}#
+ #{exps\ 812}#)
+ (#{decorate-source\ 94}#
+ (cons (quote begin) #{exps\ 812}#)
+ #{src\ 811}#))))))
+ (#{build-data\ 107}#
+ (lambda (#{src\ 814}# #{exp\ 815}#)
+ (let ((#{atom-key\ 816}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 816}# (quote (c)))
((@ (language tree-il) make-const)
- #{src\ 1982}#
- #{exp\ 1983}#)
- (#{decorate-source\ 1262}#
- (if (if (self-evaluating? #{exp\ 1983}#)
- (not (vector? #{exp\ 1983}#))
+ #{src\ 814}#
+ #{exp\ 815}#)
+ (#{decorate-source\ 94}#
+ (if (if (self-evaluating? #{exp\ 815}#)
+ (not (vector? #{exp\ 815}#))
#f)
- #{exp\ 1983}#
- (list (quote quote) #{exp\ 1983}#))
- #{src\ 1982}#)))))
- (#{build-primref\ 1274}#
- (lambda (#{src\ 1985}# #{name\ 1986}#)
+ #{exp\ 815}#
+ (list (quote quote) #{exp\ 815}#))
+ #{src\ 814}#)))))
+ (#{build-primref\ 106}#
+ (lambda (#{src\ 817}# #{name\ 818}#)
(if (equal?
(module-name (current-module))
'(guile))
- (let ((#{atom-key\ 1987}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 1987}# (quote (c)))
+ (let ((#{atom-key\ 819}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 819}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{src\ 1985}#
- #{name\ 1986}#)
- (#{decorate-source\ 1262}#
- #{name\ 1986}#
- #{src\ 1985}#)))
- (let ((#{atom-key\ 1988}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 1988}# (quote (c)))
+ #{src\ 817}#
+ #{name\ 818}#)
+ (#{decorate-source\ 94}#
+ #{name\ 818}#
+ #{src\ 817}#)))
+ (let ((#{atom-key\ 820}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 820}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{src\ 1985}#
+ #{src\ 817}#
'(guile)
- #{name\ 1986}#
+ #{name\ 818}#
#f)
- (#{decorate-source\ 1262}#
- (list (quote @@) (quote (guile)) #{name\ 1986}#)
- #{src\ 1985}#))))))
- (#{build-lambda\ 1273}#
- (lambda (#{src\ 1989}#
- #{ids\ 1990}#
- #{vars\ 1991}#
- #{docstring\ 1992}#
- #{exp\ 1993}#)
- (let ((#{atom-key\ 1994}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 1994}# (quote (c)))
+ (#{decorate-source\ 94}#
+ (list (quote @@) (quote (guile)) #{name\ 818}#)
+ #{src\ 817}#))))))
+ (#{build-lambda\ 105}#
+ (lambda (#{src\ 821}#
+ #{ids\ 822}#
+ #{vars\ 823}#
+ #{docstring\ 824}#
+ #{exp\ 825}#)
+ (let ((#{atom-key\ 826}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 826}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 1989}#
- #{ids\ 1990}#
- #{vars\ 1991}#
- (if #{docstring\ 1992}#
- (list (cons (quote documentation) #{docstring\ 1992}#))
+ #{src\ 821}#
+ #{ids\ 822}#
+ #{vars\ 823}#
+ (if #{docstring\ 824}#
+ (list (cons (quote documentation) #{docstring\ 824}#))
'())
- #{exp\ 1993}#)
- (#{decorate-source\ 1262}#
+ #{exp\ 825}#)
+ (#{decorate-source\ 94}#
(cons 'lambda
- (cons #{vars\ 1991}#
+ (cons #{vars\ 823}#
(append
- (if #{docstring\ 1992}#
- (list #{docstring\ 1992}#)
+ (if #{docstring\ 824}#
+ (list #{docstring\ 824}#)
'())
- (list #{exp\ 1993}#))))
- #{src\ 1989}#)))))
- (#{build-global-definition\ 1272}#
- (lambda (#{source\ 1995}# #{var\ 1996}# #{exp\ 1997}#)
- (let ((#{atom-key\ 1998}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 1998}# (quote (c)))
+ (list #{exp\ 825}#))))
+ #{src\ 821}#)))))
+ (#{build-global-definition\ 104}#
+ (lambda (#{source\ 827}# #{var\ 828}# #{exp\ 829}#)
+ (let ((#{atom-key\ 830}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 830}# (quote (c)))
(begin
- (#{maybe-name-value!\ 1271}#
- #{var\ 1996}#
- #{exp\ 1997}#)
+ (#{maybe-name-value!\ 103}#
+ #{var\ 828}#
+ #{exp\ 829}#)
((@ (language tree-il) make-toplevel-define)
- #{source\ 1995}#
- #{var\ 1996}#
- #{exp\ 1997}#))
- (#{decorate-source\ 1262}#
- (list (quote define) #{var\ 1996}# #{exp\ 1997}#)
- #{source\ 1995}#)))))
- (#{maybe-name-value!\ 1271}#
- (lambda (#{name\ 1999}# #{val\ 2000}#)
- (if ((@ (language tree-il) lambda?) #{val\ 2000}#)
- (let ((#{meta\ 2001}#
- ((@ (language tree-il) lambda-meta)
- #{val\ 2000}#)))
- (if (not (assq (quote name) #{meta\ 2001}#))
+ #{source\ 827}#
+ #{var\ 828}#
+ #{exp\ 829}#))
+ (#{decorate-source\ 94}#
+ (list (quote define) #{var\ 828}# #{exp\ 829}#)
+ #{source\ 827}#)))))
+ (#{maybe-name-value!\ 103}#
+ (lambda (#{name\ 831}# #{val\ 832}#)
+ (if ((@ (language tree-il) lambda?) #{val\ 832}#)
+ (let ((#{meta\ 833}#
+ ((@ (language tree-il) lambda-meta) #{val\ 832}#)))
+ (if (not (assq (quote name) #{meta\ 833}#))
((setter (@ (language tree-il) lambda-meta))
- #{val\ 2000}#
- (acons 'name
- #{name\ 1999}#
- #{meta\ 2001}#)))))))
- (#{build-global-assignment\ 1270}#
- (lambda (#{source\ 2002}#
- #{var\ 2003}#
- #{exp\ 2004}#
- #{mod\ 2005}#)
- (#{analyze-variable\ 1268}#
- #{mod\ 2005}#
- #{var\ 2003}#
- (lambda (#{mod\ 2006}# #{var\ 2007}# #{public?\ 2008}#)
- (let ((#{atom-key\ 2009}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 2009}# (quote (c)))
+ #{val\ 832}#
+ (acons (quote name) #{name\ 831}# #{meta\ 833}#)))))))
+ (#{build-global-assignment\ 102}#
+ (lambda (#{source\ 834}#
+ #{var\ 835}#
+ #{exp\ 836}#
+ #{mod\ 837}#)
+ (#{analyze-variable\ 100}#
+ #{mod\ 837}#
+ #{var\ 835}#
+ (lambda (#{mod\ 838}# #{var\ 839}# #{public?\ 840}#)
+ (let ((#{atom-key\ 841}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 841}# (quote (c)))
((@ (language tree-il) make-module-set)
- #{source\ 2002}#
- #{mod\ 2006}#
- #{var\ 2007}#
- #{public?\ 2008}#
- #{exp\ 2004}#)
- (#{decorate-source\ 1262}#
+ #{source\ 834}#
+ #{mod\ 838}#
+ #{var\ 839}#
+ #{public?\ 840}#
+ #{exp\ 836}#)
+ (#{decorate-source\ 94}#
(list 'set!
- (list (if #{public?\ 2008}#
- '@
- '@@)
- #{mod\ 2006}#
- #{var\ 2007}#)
- #{exp\ 2004}#)
- #{source\ 2002}#))))
- (lambda (#{var\ 2010}#)
- (let ((#{atom-key\ 2011}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 2011}# (quote (c)))
+ (list (if #{public?\ 840}# (quote @) (quote @@))
+ #{mod\ 838}#
+ #{var\ 839}#)
+ #{exp\ 836}#)
+ #{source\ 834}#))))
+ (lambda (#{var\ 842}#)
+ (let ((#{atom-key\ 843}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 843}# (quote (c)))
((@ (language tree-il) make-toplevel-set)
- #{source\ 2002}#
- #{var\ 2010}#
- #{exp\ 2004}#)
- (#{decorate-source\ 1262}#
- (list (quote set!) #{var\ 2010}# #{exp\ 2004}#)
- #{source\ 2002}#)))))))
- (#{build-global-reference\ 1269}#
- (lambda (#{source\ 2012}# #{var\ 2013}# #{mod\ 2014}#)
- (#{analyze-variable\ 1268}#
- #{mod\ 2014}#
- #{var\ 2013}#
- (lambda (#{mod\ 2015}# #{var\ 2016}# #{public?\ 2017}#)
- (let ((#{atom-key\ 2018}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 2018}# (quote (c)))
+ #{source\ 834}#
+ #{var\ 842}#
+ #{exp\ 836}#)
+ (#{decorate-source\ 94}#
+ (list (quote set!) #{var\ 842}# #{exp\ 836}#)
+ #{source\ 834}#)))))))
+ (#{build-global-reference\ 101}#
+ (lambda (#{source\ 844}# #{var\ 845}# #{mod\ 846}#)
+ (#{analyze-variable\ 100}#
+ #{mod\ 846}#
+ #{var\ 845}#
+ (lambda (#{mod\ 847}# #{var\ 848}# #{public?\ 849}#)
+ (let ((#{atom-key\ 850}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 850}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{source\ 2012}#
- #{mod\ 2015}#
- #{var\ 2016}#
- #{public?\ 2017}#)
- (#{decorate-source\ 1262}#
- (list (if #{public?\ 2017}# (quote @) (quote @@))
- #{mod\ 2015}#
- #{var\ 2016}#)
- #{source\ 2012}#))))
- (lambda (#{var\ 2019}#)
- (let ((#{atom-key\ 2020}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 2020}# (quote (c)))
+ #{source\ 844}#
+ #{mod\ 847}#
+ #{var\ 848}#
+ #{public?\ 849}#)
+ (#{decorate-source\ 94}#
+ (list (if #{public?\ 849}# (quote @) (quote @@))
+ #{mod\ 847}#
+ #{var\ 848}#)
+ #{source\ 844}#))))
+ (lambda (#{var\ 851}#)
+ (let ((#{atom-key\ 852}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 852}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{source\ 2012}#
- #{var\ 2019}#)
- (#{decorate-source\ 1262}#
- #{var\ 2019}#
- #{source\ 2012}#)))))))
- (#{analyze-variable\ 1268}#
- (lambda (#{mod\ 2021}#
- #{var\ 2022}#
- #{modref-cont\ 2023}#
- #{bare-cont\ 2024}#)
- (if (not #{mod\ 2021}#)
- (#{bare-cont\ 2024}# #{var\ 2022}#)
- (let ((#{kind\ 2025}# (car #{mod\ 2021}#))
- (#{mod\ 2026}# (cdr #{mod\ 2021}#)))
- (if (memv #{kind\ 2025}# (quote (public)))
- (#{modref-cont\ 2023}#
- #{mod\ 2026}#
- #{var\ 2022}#
+ #{source\ 844}#
+ #{var\ 851}#)
+ (#{decorate-source\ 94}#
+ #{var\ 851}#
+ #{source\ 844}#)))))))
+ (#{analyze-variable\ 100}#
+ (lambda (#{mod\ 853}#
+ #{var\ 854}#
+ #{modref-cont\ 855}#
+ #{bare-cont\ 856}#)
+ (if (not #{mod\ 853}#)
+ (#{bare-cont\ 856}# #{var\ 854}#)
+ (let ((#{kind\ 857}# (car #{mod\ 853}#))
+ (#{mod\ 858}# (cdr #{mod\ 853}#)))
+ (if (memv #{kind\ 857}# (quote (public)))
+ (#{modref-cont\ 855}#
+ #{mod\ 858}#
+ #{var\ 854}#
#t)
- (if (memv #{kind\ 2025}# (quote (private)))
+ (if (memv #{kind\ 857}# (quote (private)))
(if (not (equal?
- #{mod\ 2026}#
+ #{mod\ 858}#
(module-name (current-module))))
- (#{modref-cont\ 2023}#
- #{mod\ 2026}#
- #{var\ 2022}#
+ (#{modref-cont\ 855}#
+ #{mod\ 858}#
+ #{var\ 854}#
#f)
- (#{bare-cont\ 2024}# #{var\ 2022}#))
- (if (memv #{kind\ 2025}# (quote (bare)))
- (#{bare-cont\ 2024}# #{var\ 2022}#)
- (if (memv #{kind\ 2025}# (quote (hygiene)))
+ (#{bare-cont\ 856}# #{var\ 854}#))
+ (if (memv #{kind\ 857}# (quote (bare)))
+ (#{bare-cont\ 856}# #{var\ 854}#)
+ (if (memv #{kind\ 857}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 2026}#
+ #{mod\ 858}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 2026}#)
- #{var\ 2022}#)
+ (resolve-module #{mod\ 858}#)
+ #{var\ 854}#)
#f)
- (#{modref-cont\ 2023}#
- #{mod\ 2026}#
- #{var\ 2022}#
+ (#{modref-cont\ 855}#
+ #{mod\ 858}#
+ #{var\ 854}#
#f)
- (#{bare-cont\ 2024}# #{var\ 2022}#))
+ (#{bare-cont\ 856}# #{var\ 854}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 2022}#
- #{mod\ 2026}#)))))))))
- (#{build-lexical-assignment\ 1267}#
- (lambda (#{source\ 2027}#
- #{name\ 2028}#
- #{var\ 2029}#
- #{exp\ 2030}#)
- (let ((#{atom-key\ 2031}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 2031}# (quote (c)))
+ #{var\ 854}#
+ #{mod\ 858}#)))))))))
+ (#{build-lexical-assignment\ 99}#
+ (lambda (#{source\ 859}#
+ #{name\ 860}#
+ #{var\ 861}#
+ #{exp\ 862}#)
+ (let ((#{atom-key\ 863}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 863}# (quote (c)))
((@ (language tree-il) make-lexical-set)
- #{source\ 2027}#
- #{name\ 2028}#
- #{var\ 2029}#
- #{exp\ 2030}#)
- (#{decorate-source\ 1262}#
- (list (quote set!) #{var\ 2029}# #{exp\ 2030}#)
- #{source\ 2027}#)))))
- (#{build-lexical-reference\ 1266}#
- (lambda (#{type\ 2032}#
- #{source\ 2033}#
- #{name\ 2034}#
- #{var\ 2035}#)
- (let ((#{atom-key\ 2036}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 2036}# (quote (c)))
+ #{source\ 859}#
+ #{name\ 860}#
+ #{var\ 861}#
+ #{exp\ 862}#)
+ (#{decorate-source\ 94}#
+ (list (quote set!) #{var\ 861}# #{exp\ 862}#)
+ #{source\ 859}#)))))
+ (#{build-lexical-reference\ 98}#
+ (lambda (#{type\ 864}#
+ #{source\ 865}#
+ #{name\ 866}#
+ #{var\ 867}#)
+ (let ((#{atom-key\ 868}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 868}# (quote (c)))
((@ (language tree-il) make-lexical-ref)
- #{source\ 2033}#
- #{name\ 2034}#
- #{var\ 2035}#)
- (#{decorate-source\ 1262}#
- #{var\ 2035}#
- #{source\ 2033}#)))))
- (#{build-conditional\ 1265}#
- (lambda (#{source\ 2037}#
- #{test-exp\ 2038}#
- #{then-exp\ 2039}#
- #{else-exp\ 2040}#)
- (let ((#{atom-key\ 2041}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 2041}# (quote (c)))
+ #{source\ 865}#
+ #{name\ 866}#
+ #{var\ 867}#)
+ (#{decorate-source\ 94}#
+ #{var\ 867}#
+ #{source\ 865}#)))))
+ (#{build-conditional\ 97}#
+ (lambda (#{source\ 869}#
+ #{test-exp\ 870}#
+ #{then-exp\ 871}#
+ #{else-exp\ 872}#)
+ (let ((#{atom-key\ 873}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 873}# (quote (c)))
((@ (language tree-il) make-conditional)
- #{source\ 2037}#
- #{test-exp\ 2038}#
- #{then-exp\ 2039}#
- #{else-exp\ 2040}#)
- (#{decorate-source\ 1262}#
- (if (equal? #{else-exp\ 2040}# (quote (if #f #f)))
+ #{source\ 869}#
+ #{test-exp\ 870}#
+ #{then-exp\ 871}#
+ #{else-exp\ 872}#)
+ (#{decorate-source\ 94}#
+ (if (equal? #{else-exp\ 872}# (quote (if #f #f)))
(list 'if
- #{test-exp\ 2038}#
- #{then-exp\ 2039}#)
+ #{test-exp\ 870}#
+ #{then-exp\ 871}#)
(list 'if
- #{test-exp\ 2038}#
- #{then-exp\ 2039}#
- #{else-exp\ 2040}#))
- #{source\ 2037}#)))))
- (#{build-application\ 1264}#
- (lambda (#{source\ 2042}#
- #{fun-exp\ 2043}#
- #{arg-exps\ 2044}#)
- (let ((#{atom-key\ 2045}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 2045}# (quote (c)))
+ #{test-exp\ 870}#
+ #{then-exp\ 871}#
+ #{else-exp\ 872}#))
+ #{source\ 869}#)))))
+ (#{build-application\ 96}#
+ (lambda (#{source\ 874}#
+ #{fun-exp\ 875}#
+ #{arg-exps\ 876}#)
+ (let ((#{atom-key\ 877}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 877}# (quote (c)))
((@ (language tree-il) make-application)
- #{source\ 2042}#
- #{fun-exp\ 2043}#
- #{arg-exps\ 2044}#)
- (#{decorate-source\ 1262}#
- (cons #{fun-exp\ 2043}# #{arg-exps\ 2044}#)
- #{source\ 2042}#)))))
- (#{build-void\ 1263}#
- (lambda (#{source\ 2046}#)
- (let ((#{atom-key\ 2047}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 2047}# (quote (c)))
+ #{source\ 874}#
+ #{fun-exp\ 875}#
+ #{arg-exps\ 876}#)
+ (#{decorate-source\ 94}#
+ (cons #{fun-exp\ 875}# #{arg-exps\ 876}#)
+ #{source\ 874}#)))))
+ (#{build-void\ 95}#
+ (lambda (#{source\ 878}#)
+ (let ((#{atom-key\ 879}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 879}# (quote (c)))
((@ (language tree-il) make-void)
- #{source\ 2046}#)
- (#{decorate-source\ 1262}#
+ #{source\ 878}#)
+ (#{decorate-source\ 94}#
'(if #f #f)
- #{source\ 2046}#)))))
- (#{decorate-source\ 1262}#
- (lambda (#{e\ 2048}# #{s\ 2049}#)
+ #{source\ 878}#)))))
+ (#{decorate-source\ 94}#
+ (lambda (#{e\ 880}# #{s\ 881}#)
(begin
- (if (if (pair? #{e\ 2048}#) #{s\ 2049}# #f)
- (set-source-properties! #{e\ 2048}# #{s\ 2049}#))
- #{e\ 2048}#)))
- (#{get-global-definition-hook\ 1261}#
- (lambda (#{symbol\ 2050}# #{module\ 2051}#)
+ (if (if (pair? #{e\ 880}#) #{s\ 881}# #f)
+ (set-source-properties! #{e\ 880}# #{s\ 881}#))
+ #{e\ 880}#)))
+ (#{get-global-definition-hook\ 93}#
+ (lambda (#{symbol\ 882}# #{module\ 883}#)
(begin
- (if (if (not #{module\ 2051}#) (current-module) #f)
+ (if (if (not #{module\ 883}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 2050}#))
- (let ((#{v\ 2052}#
- (module-variable
- (if #{module\ 2051}#
- (resolve-module (cdr #{module\ 2051}#))
- (current-module))
- #{symbol\ 2050}#)))
- (if #{v\ 2052}#
- (if (variable-bound? #{v\ 2052}#)
- (let ((#{val\ 2053}# (variable-ref #{v\ 2052}#)))
- (if (macro? #{val\ 2053}#)
- (if (syncase-macro-type #{val\ 2053}#)
- (cons (syncase-macro-type #{val\ 2053}#)
- (syncase-macro-binding #{val\ 2053}#))
+ #{symbol\ 882}#))
+ (let ((#{v\ 884}# (module-variable
+ (if #{module\ 883}#
+ (resolve-module (cdr #{module\ 883}#))
+ (current-module))
+ #{symbol\ 882}#)))
+ (if #{v\ 884}#
+ (if (variable-bound? #{v\ 884}#)
+ (let ((#{val\ 885}# (variable-ref #{v\ 884}#)))
+ (if (macro? #{val\ 885}#)
+ (if (syncase-macro-type #{val\ 885}#)
+ (cons (syncase-macro-type #{val\ 885}#)
+ (syncase-macro-binding #{val\ 885}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 1260}#
- (lambda (#{symbol\ 2054}# #{type\ 2055}# #{val\ 2056}#)
- (let ((#{existing\ 2057}#
- (let ((#{v\ 2058}#
- (module-variable
- (current-module)
- #{symbol\ 2054}#)))
- (if #{v\ 2058}#
- (if (variable-bound? #{v\ 2058}#)
- (let ((#{val\ 2059}# (variable-ref #{v\ 2058}#)))
- (if (macro? #{val\ 2059}#)
- (if (not (syncase-macro-type #{val\ 2059}#))
- #{val\ 2059}#
+ (#{put-global-definition-hook\ 92}#
+ (lambda (#{symbol\ 886}# #{type\ 887}# #{val\ 888}#)
+ (let ((#{existing\ 889}#
+ (let ((#{v\ 890}# (module-variable
+ (current-module)
+ #{symbol\ 886}#)))
+ (if #{v\ 890}#
+ (if (variable-bound? #{v\ 890}#)
+ (let ((#{val\ 891}# (variable-ref #{v\ 890}#)))
+ (if (macro? #{val\ 891}#)
+ (if (not (syncase-macro-type #{val\ 891}#))
+ #{val\ 891}#
#f)
#f))
#f)
#f))))
(module-define!
(current-module)
- #{symbol\ 2054}#
- (if #{existing\ 2057}#
+ #{symbol\ 886}#
+ (if #{existing\ 889}#
(make-extended-syncase-macro
- #{existing\ 2057}#
- #{type\ 2055}#
- #{val\ 2056}#)
- (make-syncase-macro #{type\ 2055}# #{val\ 2056}#))))))
- (#{local-eval-hook\ 1259}#
- (lambda (#{x\ 2060}# #{mod\ 2061}#)
+ #{existing\ 889}#
+ #{type\ 887}#
+ #{val\ 888}#)
+ (make-syncase-macro #{type\ 887}# #{val\ 888}#))))))
+ (#{local-eval-hook\ 91}#
+ (lambda (#{x\ 892}# #{mod\ 893}#)
(primitive-eval
- (list #{noexpand\ 1252}#
- (let ((#{atom-key\ 2062}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 2062}# (quote (c)))
+ (list #{noexpand\ 84}#
+ (let ((#{atom-key\ 894}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 894}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 2060}#)
- #{x\ 2060}#))))))
- (#{top-level-eval-hook\ 1258}#
- (lambda (#{x\ 2063}# #{mod\ 2064}#)
+ #{x\ 892}#)
+ #{x\ 892}#))))))
+ (#{top-level-eval-hook\ 90}#
+ (lambda (#{x\ 895}# #{mod\ 896}#)
(primitive-eval
- (list #{noexpand\ 1252}#
- (let ((#{atom-key\ 2065}# (fluid-ref #{*mode*\ 1253}#)))
- (if (memv #{atom-key\ 2065}# (quote (c)))
+ (list #{noexpand\ 84}#
+ (let ((#{atom-key\ 897}# (fluid-ref #{*mode*\ 85}#)))
+ (if (memv #{atom-key\ 897}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 2063}#)
- #{x\ 2063}#))))))
- (#{fx<\ 1257}# <)
- (#{fx=\ 1256}# =)
- (#{fx-\ 1255}# -)
- (#{fx+\ 1254}# +)
- (#{*mode*\ 1253}# (make-fluid))
- (#{noexpand\ 1252}# "noexpand"))
+ #{x\ 895}#)
+ #{x\ 895}#))))))
+ (#{fx<\ 89}# <)
+ (#{fx=\ 88}# =)
+ (#{fx-\ 87}# -)
+ (#{fx+\ 86}# +)
+ (#{*mode*\ 85}# (make-fluid))
+ (#{noexpand\ 84}# "noexpand"))
(begin
- (#{global-extend\ 1295}#
+ (#{global-extend\ 127}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 1295}#
+ (#{global-extend\ 127}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 1295}#
+ (#{global-extend\ 127}#
'core
'fluid-let-syntax
- (lambda (#{e\ 2066}#
- #{r\ 2067}#
- #{w\ 2068}#
- #{s\ 2069}#
- #{mod\ 2070}#)
- ((lambda (#{tmp\ 2071}#)
- ((lambda (#{tmp\ 2072}#)
- (if (if #{tmp\ 2072}#
- (apply (lambda (#{_\ 2073}#
- #{var\ 2074}#
- #{val\ 2075}#
- #{e1\ 2076}#
- #{e2\ 2077}#)
- (#{valid-bound-ids?\ 1322}# #{var\ 2074}#))
- #{tmp\ 2072}#)
+ (lambda (#{e\ 898}#
+ #{r\ 899}#
+ #{w\ 900}#
+ #{s\ 901}#
+ #{mod\ 902}#)
+ ((lambda (#{tmp\ 903}#)
+ ((lambda (#{tmp\ 904}#)
+ (if (if #{tmp\ 904}#
+ (apply (lambda (#{_\ 905}#
+ #{var\ 906}#
+ #{val\ 907}#
+ #{e1\ 908}#
+ #{e2\ 909}#)
+ (#{valid-bound-ids?\ 154}# #{var\ 906}#))
+ #{tmp\ 904}#)
#f)
- (apply (lambda (#{_\ 2079}#
- #{var\ 2080}#
- #{val\ 2081}#
- #{e1\ 2082}#
- #{e2\ 2083}#)
- (let ((#{names\ 2084}#
- (map (lambda (#{x\ 2085}#)
- (#{id-var-name\ 1319}#
- #{x\ 2085}#
- #{w\ 2068}#))
- #{var\ 2080}#)))
+ (apply (lambda (#{_\ 911}#
+ #{var\ 912}#
+ #{val\ 913}#
+ #{e1\ 914}#
+ #{e2\ 915}#)
+ (let ((#{names\ 916}#
+ (map (lambda (#{x\ 917}#)
+ (#{id-var-name\ 151}#
+ #{x\ 917}#
+ #{w\ 900}#))
+ #{var\ 912}#)))
(begin
(for-each
- (lambda (#{id\ 2087}# #{n\ 2088}#)
- (let ((#{atom-key\ 2089}#
- (#{binding-type\ 1289}#
- (#{lookup\ 1294}#
- #{n\ 2088}#
- #{r\ 2067}#
- #{mod\ 2070}#))))
- (if (memv #{atom-key\ 2089}#
+ (lambda (#{id\ 919}# #{n\ 920}#)
+ (let ((#{atom-key\ 921}#
+ (#{binding-type\ 121}#
+ (#{lookup\ 126}#
+ #{n\ 920}#
+ #{r\ 899}#
+ #{mod\ 902}#))))
+ (if (memv #{atom-key\ 921}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 2066}#
- (#{source-wrap\ 1326}#
- #{id\ 2087}#
- #{w\ 2068}#
- #{s\ 2069}#
- #{mod\ 2070}#)))))
- #{var\ 2080}#
- #{names\ 2084}#)
- (#{chi-body\ 1337}#
- (cons #{e1\ 2082}# #{e2\ 2083}#)
- (#{source-wrap\ 1326}#
- #{e\ 2066}#
- #{w\ 2068}#
- #{s\ 2069}#
- #{mod\ 2070}#)
- (#{extend-env\ 1291}#
- #{names\ 2084}#
- (let ((#{trans-r\ 2092}#
- (#{macros-only-env\ 1293}#
- #{r\ 2067}#)))
- (map (lambda (#{x\ 2093}#)
+ #{e\ 898}#
+ (#{source-wrap\ 158}#
+ #{id\ 919}#
+ #{w\ 900}#
+ #{s\ 901}#
+ #{mod\ 902}#)))))
+ #{var\ 912}#
+ #{names\ 916}#)
+ (#{chi-body\ 169}#
+ (cons #{e1\ 914}# #{e2\ 915}#)
+ (#{source-wrap\ 158}#
+ #{e\ 898}#
+ #{w\ 900}#
+ #{s\ 901}#
+ #{mod\ 902}#)
+ (#{extend-env\ 123}#
+ #{names\ 916}#
+ (let ((#{trans-r\ 924}#
+ (#{macros-only-env\ 125}#
+ #{r\ 899}#)))
+ (map (lambda (#{x\ 925}#)
(cons 'macro
- (#{eval-local-transformer\
1340}#
- (#{chi\ 1333}#
- #{x\ 2093}#
- #{trans-r\ 2092}#
- #{w\ 2068}#
- #{mod\ 2070}#)
- #{mod\ 2070}#)))
- #{val\ 2081}#))
- #{r\ 2067}#)
- #{w\ 2068}#
- #{mod\ 2070}#))))
- #{tmp\ 2072}#)
- ((lambda (#{_\ 2095}#)
+ (#{eval-local-transformer\
172}#
+ (#{chi\ 165}#
+ #{x\ 925}#
+ #{trans-r\ 924}#
+ #{w\ 900}#
+ #{mod\ 902}#)
+ #{mod\ 902}#)))
+ #{val\ 913}#))
+ #{r\ 899}#)
+ #{w\ 900}#
+ #{mod\ 902}#))))
+ #{tmp\ 904}#)
+ ((lambda (#{_\ 927}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 1326}#
- #{e\ 2066}#
- #{w\ 2068}#
- #{s\ 2069}#
- #{mod\ 2070}#)))
- #{tmp\ 2071}#)))
+ (#{source-wrap\ 158}#
+ #{e\ 898}#
+ #{w\ 900}#
+ #{s\ 901}#
+ #{mod\ 902}#)))
+ #{tmp\ 903}#)))
($sc-dispatch
- #{tmp\ 2071}#
+ #{tmp\ 903}#
'(any #(each (any any)) any . each-any))))
- #{e\ 2066}#)))
- (#{global-extend\ 1295}#
+ #{e\ 898}#)))
+ (#{global-extend\ 127}#
'core
'quote
- (lambda (#{e\ 2096}#
- #{r\ 2097}#
- #{w\ 2098}#
- #{s\ 2099}#
- #{mod\ 2100}#)
- ((lambda (#{tmp\ 2101}#)
- ((lambda (#{tmp\ 2102}#)
- (if #{tmp\ 2102}#
- (apply (lambda (#{_\ 2103}# #{e\ 2104}#)
- (#{build-data\ 1275}#
- #{s\ 2099}#
- (#{strip\ 1343}# #{e\ 2104}# #{w\ 2098}#)))
- #{tmp\ 2102}#)
- ((lambda (#{_\ 2105}#)
+ (lambda (#{e\ 928}#
+ #{r\ 929}#
+ #{w\ 930}#
+ #{s\ 931}#
+ #{mod\ 932}#)
+ ((lambda (#{tmp\ 933}#)
+ ((lambda (#{tmp\ 934}#)
+ (if #{tmp\ 934}#
+ (apply (lambda (#{_\ 935}# #{e\ 936}#)
+ (#{build-data\ 107}#
+ #{s\ 931}#
+ (#{strip\ 175}# #{e\ 936}# #{w\ 930}#)))
+ #{tmp\ 934}#)
+ ((lambda (#{_\ 937}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 1326}#
- #{e\ 2096}#
- #{w\ 2098}#
- #{s\ 2099}#
- #{mod\ 2100}#)))
- #{tmp\ 2101}#)))
- ($sc-dispatch #{tmp\ 2101}# (quote (any any)))))
- #{e\ 2096}#)))
- (#{global-extend\ 1295}#
+ (#{source-wrap\ 158}#
+ #{e\ 928}#
+ #{w\ 930}#
+ #{s\ 931}#
+ #{mod\ 932}#)))
+ #{tmp\ 933}#)))
+ ($sc-dispatch #{tmp\ 933}# (quote (any any)))))
+ #{e\ 928}#)))
+ (#{global-extend\ 127}#
'core
'syntax
- (letrec ((#{regen\ 2113}#
- (lambda (#{x\ 2114}#)
- (let ((#{atom-key\ 2115}# (car #{x\ 2114}#)))
- (if (memv #{atom-key\ 2115}# (quote (ref)))
- (#{build-lexical-reference\ 1266}#
+ (letrec ((#{regen\ 945}#
+ (lambda (#{x\ 946}#)
+ (let ((#{atom-key\ 947}# (car #{x\ 946}#)))
+ (if (memv #{atom-key\ 947}# (quote (ref)))
+ (#{build-lexical-reference\ 98}#
'value
#f
- (cadr #{x\ 2114}#)
- (cadr #{x\ 2114}#))
- (if (memv #{atom-key\ 2115}# (quote (primitive)))
- (#{build-primref\ 1274}# #f (cadr #{x\ 2114}#))
- (if (memv #{atom-key\ 2115}# (quote (quote)))
- (#{build-data\ 1275}# #f (cadr #{x\ 2114}#))
- (if (memv #{atom-key\ 2115}# (quote (lambda)))
- (#{build-lambda\ 1273}#
+ (cadr #{x\ 946}#)
+ (cadr #{x\ 946}#))
+ (if (memv #{atom-key\ 947}# (quote (primitive)))
+ (#{build-primref\ 106}# #f (cadr #{x\ 946}#))
+ (if (memv #{atom-key\ 947}# (quote (quote)))
+ (#{build-data\ 107}# #f (cadr #{x\ 946}#))
+ (if (memv #{atom-key\ 947}# (quote (lambda)))
+ (#{build-lambda\ 105}#
#f
- (cadr #{x\ 2114}#)
- (cadr #{x\ 2114}#)
+ (cadr #{x\ 946}#)
+ (cadr #{x\ 946}#)
#f
- (#{regen\ 2113}# (caddr #{x\ 2114}#)))
- (#{build-application\ 1264}#
+ (#{regen\ 945}# (caddr #{x\ 946}#)))
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 1274}# #f (car #{x\ 2114}#))
- (map #{regen\ 2113}#
- (cdr #{x\ 2114}#))))))))))
- (#{gen-vector\ 2112}#
- (lambda (#{x\ 2116}#)
- (if (eq? (car #{x\ 2116}#) (quote list))
- (cons (quote vector) (cdr #{x\ 2116}#))
- (if (eq? (car #{x\ 2116}#) (quote quote))
+ (#{build-primref\ 106}# #f (car #{x\ 946}#))
+ (map #{regen\ 945}# (cdr #{x\ 946}#))))))))))
+ (#{gen-vector\ 944}#
+ (lambda (#{x\ 948}#)
+ (if (eq? (car #{x\ 948}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 948}#))
+ (if (eq? (car #{x\ 948}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 2116}#)))
- (list (quote list->vector) #{x\ 2116}#)))))
- (#{gen-append\ 2111}#
- (lambda (#{x\ 2117}# #{y\ 2118}#)
- (if (equal? #{y\ 2118}# (quote (quote ())))
- #{x\ 2117}#
- (list (quote append) #{x\ 2117}# #{y\ 2118}#))))
- (#{gen-cons\ 2110}#
- (lambda (#{x\ 2119}# #{y\ 2120}#)
- (let ((#{atom-key\ 2121}# (car #{y\ 2120}#)))
- (if (memv #{atom-key\ 2121}# (quote (quote)))
- (if (eq? (car #{x\ 2119}#) (quote quote))
+ (list->vector (cadr #{x\ 948}#)))
+ (list (quote list->vector) #{x\ 948}#)))))
+ (#{gen-append\ 943}#
+ (lambda (#{x\ 949}# #{y\ 950}#)
+ (if (equal? #{y\ 950}# (quote (quote ())))
+ #{x\ 949}#
+ (list (quote append) #{x\ 949}# #{y\ 950}#))))
+ (#{gen-cons\ 942}#
+ (lambda (#{x\ 951}# #{y\ 952}#)
+ (let ((#{atom-key\ 953}# (car #{y\ 952}#)))
+ (if (memv #{atom-key\ 953}# (quote (quote)))
+ (if (eq? (car #{x\ 951}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 2119}#) (cadr #{y\ 2120}#)))
- (if (eq? (cadr #{y\ 2120}#) (quote ()))
- (list (quote list) #{x\ 2119}#)
- (list (quote cons) #{x\ 2119}# #{y\ 2120}#)))
- (if (memv #{atom-key\ 2121}# (quote (list)))
+ (cons (cadr #{x\ 951}#) (cadr #{y\ 952}#)))
+ (if (eq? (cadr #{y\ 952}#) (quote ()))
+ (list (quote list) #{x\ 951}#)
+ (list (quote cons) #{x\ 951}# #{y\ 952}#)))
+ (if (memv #{atom-key\ 953}# (quote (list)))
(cons 'list
- (cons #{x\ 2119}# (cdr #{y\ 2120}#)))
- (list (quote cons) #{x\ 2119}# #{y\ 2120}#))))))
- (#{gen-map\ 2109}#
- (lambda (#{e\ 2122}# #{map-env\ 2123}#)
- (let ((#{formals\ 2124}# (map cdr #{map-env\ 2123}#))
- (#{actuals\ 2125}#
- (map (lambda (#{x\ 2126}#)
- (list (quote ref) (car #{x\ 2126}#)))
- #{map-env\ 2123}#)))
- (if (eq? (car #{e\ 2122}#) (quote ref))
- (car #{actuals\ 2125}#)
+ (cons #{x\ 951}# (cdr #{y\ 952}#)))
+ (list (quote cons) #{x\ 951}# #{y\ 952}#))))))
+ (#{gen-map\ 941}#
+ (lambda (#{e\ 954}# #{map-env\ 955}#)
+ (let ((#{formals\ 956}# (map cdr #{map-env\ 955}#))
+ (#{actuals\ 957}#
+ (map (lambda (#{x\ 958}#)
+ (list (quote ref) (car #{x\ 958}#)))
+ #{map-env\ 955}#)))
+ (if (eq? (car #{e\ 954}#) (quote ref))
+ (car #{actuals\ 957}#)
(if (and-map
- (lambda (#{x\ 2127}#)
- (if (eq? (car #{x\ 2127}#) (quote ref))
- (memq (cadr #{x\ 2127}#) #{formals\ 2124}#)
+ (lambda (#{x\ 959}#)
+ (if (eq? (car #{x\ 959}#) (quote ref))
+ (memq (cadr #{x\ 959}#) #{formals\ 956}#)
#f))
- (cdr #{e\ 2122}#))
+ (cdr #{e\ 954}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 2122}#))
- (map (let ((#{r\ 2128}#
- (map cons
- #{formals\ 2124}#
- #{actuals\ 2125}#)))
- (lambda (#{x\ 2129}#)
- (cdr (assq (cadr #{x\ 2129}#)
- #{r\ 2128}#))))
- (cdr #{e\ 2122}#))))
+ (car #{e\ 954}#))
+ (map (let ((#{r\ 960}# (map cons
+ #{formals\
956}#
+ #{actuals\
957}#)))
+ (lambda (#{x\ 961}#)
+ (cdr (assq (cadr #{x\ 961}#)
+ #{r\ 960}#))))
+ (cdr #{e\ 954}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 2124}#
- #{e\ 2122}#)
- #{actuals\ 2125}#)))))))
- (#{gen-mappend\ 2108}#
- (lambda (#{e\ 2130}# #{map-env\ 2131}#)
+ #{formals\ 956}#
+ #{e\ 954}#)
+ #{actuals\ 957}#)))))))
+ (#{gen-mappend\ 940}#
+ (lambda (#{e\ 962}# #{map-env\ 963}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 2109}# #{e\ 2130}# #{map-env\ 2131}#))))
- (#{gen-ref\ 2107}#
- (lambda (#{src\ 2132}#
- #{var\ 2133}#
- #{level\ 2134}#
- #{maps\ 2135}#)
- (if (#{fx=\ 1256}# #{level\ 2134}# 0)
- (values #{var\ 2133}# #{maps\ 2135}#)
- (if (null? #{maps\ 2135}#)
+ (#{gen-map\ 941}# #{e\ 962}# #{map-env\ 963}#))))
+ (#{gen-ref\ 939}#
+ (lambda (#{src\ 964}#
+ #{var\ 965}#
+ #{level\ 966}#
+ #{maps\ 967}#)
+ (if (#{fx=\ 88}# #{level\ 966}# 0)
+ (values #{var\ 965}# #{maps\ 967}#)
+ (if (null? #{maps\ 967}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 2132}#)
+ #{src\ 964}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 2107}#
- #{src\ 2132}#
- #{var\ 2133}#
- (#{fx-\ 1255}# #{level\ 2134}# 1)
- (cdr #{maps\ 2135}#)))
- (lambda (#{outer-var\ 2136}# #{outer-maps\ 2137}#)
- (let ((#{b\ 2138}#
- (assq #{outer-var\ 2136}#
- (car #{maps\ 2135}#))))
- (if #{b\ 2138}#
- (values (cdr #{b\ 2138}#) #{maps\ 2135}#)
- (let ((#{inner-var\ 2139}#
- (#{gen-var\ 1344}# (quote tmp))))
+ (#{gen-ref\ 939}#
+ #{src\ 964}#
+ #{var\ 965}#
+ (#{fx-\ 87}# #{level\ 966}# 1)
+ (cdr #{maps\ 967}#)))
+ (lambda (#{outer-var\ 968}# #{outer-maps\ 969}#)
+ (let ((#{b\ 970}# (assq #{outer-var\ 968}#
+ (car #{maps\ 967}#))))
+ (if #{b\ 970}#
+ (values (cdr #{b\ 970}#) #{maps\ 967}#)
+ (let ((#{inner-var\ 971}#
+ (#{gen-var\ 176}# (quote tmp))))
(values
- #{inner-var\ 2139}#
- (cons (cons (cons #{outer-var\ 2136}#
- #{inner-var\ 2139}#)
- (car #{maps\ 2135}#))
- #{outer-maps\ 2137}#)))))))))))
- (#{gen-syntax\ 2106}#
- (lambda (#{src\ 2140}#
- #{e\ 2141}#
- #{r\ 2142}#
- #{maps\ 2143}#
- #{ellipsis?\ 2144}#
- #{mod\ 2145}#)
- (if (#{id?\ 1297}# #{e\ 2141}#)
- (let ((#{label\ 2146}#
- (#{id-var-name\ 1319}#
- #{e\ 2141}#
- '(()))))
- (let ((#{b\ 2147}#
- (#{lookup\ 1294}#
- #{label\ 2146}#
- #{r\ 2142}#
- #{mod\ 2145}#)))
- (if (eq? (#{binding-type\ 1289}# #{b\ 2147}#)
+ #{inner-var\ 971}#
+ (cons (cons (cons #{outer-var\ 968}#
+ #{inner-var\ 971}#)
+ (car #{maps\ 967}#))
+ #{outer-maps\ 969}#)))))))))))
+ (#{gen-syntax\ 938}#
+ (lambda (#{src\ 972}#
+ #{e\ 973}#
+ #{r\ 974}#
+ #{maps\ 975}#
+ #{ellipsis?\ 976}#
+ #{mod\ 977}#)
+ (if (#{id?\ 129}# #{e\ 973}#)
+ (let ((#{label\ 978}#
+ (#{id-var-name\ 151}# #{e\ 973}# (quote (())))))
+ (let ((#{b\ 979}# (#{lookup\ 126}#
+ #{label\ 978}#
+ #{r\ 974}#
+ #{mod\ 977}#)))
+ (if (eq? (#{binding-type\ 121}# #{b\ 979}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 2148}#
- (#{binding-value\ 1290}#
- #{b\ 2147}#)))
- (#{gen-ref\ 2107}#
- #{src\ 2140}#
- (car #{var.lev\ 2148}#)
- (cdr #{var.lev\ 2148}#)
- #{maps\ 2143}#)))
- (lambda (#{var\ 2149}# #{maps\ 2150}#)
+ (let ((#{var.lev\ 980}#
+ (#{binding-value\ 122}# #{b\ 979}#)))
+ (#{gen-ref\ 939}#
+ #{src\ 972}#
+ (car #{var.lev\ 980}#)
+ (cdr #{var.lev\ 980}#)
+ #{maps\ 975}#)))
+ (lambda (#{var\ 981}# #{maps\ 982}#)
(values
- (list (quote ref) #{var\ 2149}#)
- #{maps\ 2150}#)))
- (if (#{ellipsis?\ 2144}# #{e\ 2141}#)
+ (list (quote ref) #{var\ 981}#)
+ #{maps\ 982}#)))
+ (if (#{ellipsis?\ 976}# #{e\ 973}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 2140}#)
+ #{src\ 972}#)
(values
- (list (quote quote) #{e\ 2141}#)
- #{maps\ 2143}#)))))
- ((lambda (#{tmp\ 2151}#)
- ((lambda (#{tmp\ 2152}#)
- (if (if #{tmp\ 2152}#
- (apply (lambda (#{dots\ 2153}# #{e\ 2154}#)
- (#{ellipsis?\ 2144}#
- #{dots\ 2153}#))
- #{tmp\ 2152}#)
+ (list (quote quote) #{e\ 973}#)
+ #{maps\ 975}#)))))
+ ((lambda (#{tmp\ 983}#)
+ ((lambda (#{tmp\ 984}#)
+ (if (if #{tmp\ 984}#
+ (apply (lambda (#{dots\ 985}# #{e\ 986}#)
+ (#{ellipsis?\ 976}# #{dots\ 985}#))
+ #{tmp\ 984}#)
#f)
- (apply (lambda (#{dots\ 2155}# #{e\ 2156}#)
- (#{gen-syntax\ 2106}#
- #{src\ 2140}#
- #{e\ 2156}#
- #{r\ 2142}#
- #{maps\ 2143}#
- (lambda (#{x\ 2157}#) #f)
- #{mod\ 2145}#))
- #{tmp\ 2152}#)
- ((lambda (#{tmp\ 2158}#)
- (if (if #{tmp\ 2158}#
- (apply (lambda (#{x\ 2159}#
- #{dots\ 2160}#
- #{y\ 2161}#)
- (#{ellipsis?\ 2144}#
- #{dots\ 2160}#))
- #{tmp\ 2158}#)
+ (apply (lambda (#{dots\ 987}# #{e\ 988}#)
+ (#{gen-syntax\ 938}#
+ #{src\ 972}#
+ #{e\ 988}#
+ #{r\ 974}#
+ #{maps\ 975}#
+ (lambda (#{x\ 989}#) #f)
+ #{mod\ 977}#))
+ #{tmp\ 984}#)
+ ((lambda (#{tmp\ 990}#)
+ (if (if #{tmp\ 990}#
+ (apply (lambda (#{x\ 991}#
+ #{dots\ 992}#
+ #{y\ 993}#)
+ (#{ellipsis?\ 976}#
+ #{dots\ 992}#))
+ #{tmp\ 990}#)
#f)
- (apply (lambda (#{x\ 2162}#
- #{dots\ 2163}#
- #{y\ 2164}#)
- (letrec ((#{f\ 2165}#
- (lambda (#{y\ 2166}#
- #{k\ 2167}#)
- ((lambda (#{tmp\
2171}#)
- ((lambda (#{tmp\
2172}#)
- (if (if #{tmp\
2172}#
- (apply
(lambda (#{dots\ 2173}#
-
#{y\ 2174}#)
-
(#{ellipsis?\ 2144}#
-
#{dots\ 2173}#))
-
#{tmp\ 2172}#)
- #f)
- (apply
(lambda (#{dots\ 2175}#
-
#{y\ 2176}#)
-
(#{f\ 2165}#
-
#{y\ 2176}#
-
(lambda (#{maps\ 2177}#)
+ (apply (lambda (#{x\ 994}#
+ #{dots\ 995}#
+ #{y\ 996}#)
+ (letrec ((#{f\ 997}# (lambda
(#{y\ 998}#
+
#{k\ 999}#)
+ ((lambda
(#{tmp\ 1003}#)
+
((lambda (#{tmp\ 1004}#)
+ (if
(if #{tmp\ 1004}#
+
(apply (lambda (#{dots\ 1005}#
+
#{y\ 1006}#)
+
(#{ellipsis?\ 976}#
+
#{dots\ 1005}#))
+
#{tmp\ 1004}#)
+
#f)
+
(apply (lambda (#{dots\ 1007}#
+
#{y\ 1008}#)
+
(#{f\ 997}# #{y\ 1008}#
+
(lambda (#{maps\ 1009}#)
+
(call-with-values
+
(lambda ()
+
(#{k\ 999}# (cons '()
+
#{maps\ 1009}#)))
+
(lambda (#{x\ 1010}#
+
#{maps\ 1011}#)
+
(if (null? (car #{maps\ 1011}#))
+
(syntax-violation
+
'syntax
+
"extra ellipsis"
+
#{src\ 972}#)
+
(values
+
(#{gen-mappend\ 940}#
+
#{x\ 1010}#
+
(car #{maps\ 1011}#))
+
(cdr #{maps\ 1011}#))))))))
+
#{tmp\ 1004}#)
+
((lambda (#{_\ 1012}#)
(call-with-values
(lambda ()
-
(#{k\ 2167}#
-
(cons '()
-
#{maps\ 2177}#)))
-
(lambda (#{x\ 2178}#
-
#{maps\ 2179}#)
-
(if (null? (car #{maps\ 2179}#))
-
(syntax-violation
-
'syntax
-
"extra ellipsis"
-
#{src\ 2140}#)
-
(values
-
(#{gen-mappend\ 2108}#
-
#{x\ 2178}#
-
(car #{maps\ 2179}#))
-
(cdr #{maps\ 2179}#))))))))
-
#{tmp\ 2172}#)
- ((lambda
(#{_\ 2180}#)
-
(call-with-values
- (lambda
()
-
(#{gen-syntax\ 2106}#
-
#{src\ 2140}#
-
#{y\ 2166}#
-
#{r\ 2142}#
-
#{maps\ 2143}#
-
#{ellipsis?\ 2144}#
-
#{mod\ 2145}#))
- (lambda
(#{y\ 2181}#
-
#{maps\ 2182}#)
-
(call-with-values
-
(lambda ()
-
(#{k\ 2167}#
-
#{maps\ 2182}#))
-
(lambda (#{x\ 2183}#
-
#{maps\ 2184}#)
-
(values
-
(#{gen-append\ 2111}#
-
#{x\ 2183}#
-
#{y\ 2181}#)
-
#{maps\ 2184}#))))))
- #{tmp\
2171}#)))
- ($sc-dispatch
- #{tmp\ 2171}#
- '(any . any))))
- #{y\ 2166}#))))
- (#{f\ 2165}#
- #{y\ 2164}#
- (lambda (#{maps\ 2168}#)
- (call-with-values
- (lambda ()
- (#{gen-syntax\ 2106}#
- #{src\ 2140}#
- #{x\ 2162}#
- #{r\ 2142}#
- (cons '()
- #{maps\ 2168}#)
- #{ellipsis?\ 2144}#
- #{mod\ 2145}#))
- (lambda (#{x\ 2169}#
- #{maps\ 2170}#)
- (if (null? (car #{maps\
2170}#))
- (syntax-violation
- 'syntax
- "extra ellipsis"
- #{src\ 2140}#)
- (values
- (#{gen-map\ 2109}#
- #{x\ 2169}#
- (car #{maps\
2170}#))
- (cdr #{maps\
2170}#)))))))))
- #{tmp\ 2158}#)
- ((lambda (#{tmp\ 2185}#)
- (if #{tmp\ 2185}#
- (apply (lambda (#{x\ 2186}#
- #{y\ 2187}#)
+
(#{gen-syntax\ 938}#
+
#{src\ 972}#
+
#{y\ 998}#
+
#{r\ 974}#
+
#{maps\ 975}#
+
#{ellipsis?\ 976}#
+
#{mod\ 977}#))
+
(lambda (#{y\ 1013}#
+
#{maps\ 1014}#)
+
(call-with-values
+
(lambda ()
+
(#{k\ 999}# #{maps\ 1014}#))
+
(lambda (#{x\ 1015}#
+
#{maps\ 1016}#)
+
(values
+
(#{gen-append\ 943}#
+
#{x\ 1015}#
+
#{y\ 1013}#)
+
#{maps\ 1016}#))))))
+
#{tmp\ 1003}#)))
+
($sc-dispatch
+
#{tmp\ 1003}#
+
'(any .
+
any))))
+ #{y\
998}#))))
+ (#{f\ 997}# #{y\ 996}#
+ (lambda (#{maps\
1000}#)
+ (call-with-values
+ (lambda ()
+
(#{gen-syntax\ 938}#
+ #{src\ 972}#
+ #{x\ 994}#
+ #{r\ 974}#
+ (cons '()
+
#{maps\ 1000}#)
+
#{ellipsis?\ 976}#
+ #{mod\
977}#))
+ (lambda (#{x\
1001}#
+
#{maps\ 1002}#)
+ (if (null?
(car #{maps\ 1002}#))
+
(syntax-violation
+ 'syntax
+ "extra
ellipsis"
+ #{src\
972}#)
+ (values
+
(#{gen-map\ 941}#
+ #{x\
1001}#
+ (car
#{maps\ 1002}#))
+ (cdr
#{maps\ 1002}#)))))))))
+ #{tmp\ 990}#)
+ ((lambda (#{tmp\ 1017}#)
+ (if #{tmp\ 1017}#
+ (apply (lambda (#{x\ 1018}#
+ #{y\ 1019}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2106}#
- #{src\ 2140}#
- #{x\ 2186}#
- #{r\ 2142}#
- #{maps\ 2143}#
- #{ellipsis?\ 2144}#
- #{mod\ 2145}#))
- (lambda (#{x\ 2188}#
- #{maps\ 2189}#)
+ (#{gen-syntax\ 938}#
+ #{src\ 972}#
+ #{x\ 1018}#
+ #{r\ 974}#
+ #{maps\ 975}#
+ #{ellipsis?\ 976}#
+ #{mod\ 977}#))
+ (lambda (#{x\ 1020}#
+ #{maps\ 1021}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2106}#
- #{src\ 2140}#
- #{y\ 2187}#
- #{r\ 2142}#
- #{maps\ 2189}#
- #{ellipsis?\ 2144}#
- #{mod\ 2145}#))
- (lambda (#{y\ 2190}#
- #{maps\
2191}#)
+ (#{gen-syntax\ 938}#
+ #{src\ 972}#
+ #{y\ 1019}#
+ #{r\ 974}#
+ #{maps\ 1021}#
+ #{ellipsis?\ 976}#
+ #{mod\ 977}#))
+ (lambda (#{y\ 1022}#
+ #{maps\
1023}#)
(values
- (#{gen-cons\ 2110}#
- #{x\ 2188}#
- #{y\ 2190}#)
- #{maps\
2191}#))))))
- #{tmp\ 2185}#)
- ((lambda (#{tmp\ 2192}#)
- (if #{tmp\ 2192}#
- (apply (lambda (#{e1\ 2193}#
- #{e2\ 2194}#)
+ (#{gen-cons\ 942}#
+ #{x\ 1020}#
+ #{y\ 1022}#)
+ #{maps\
1023}#))))))
+ #{tmp\ 1017}#)
+ ((lambda (#{tmp\ 1024}#)
+ (if #{tmp\ 1024}#
+ (apply (lambda (#{e1\ 1025}#
+ #{e2\ 1026}#)
(call-with-values
(lambda ()
- (#{gen-syntax\
2106}#
- #{src\ 2140}#
- (cons #{e1\ 2193}#
- #{e2\
2194}#)
- #{r\ 2142}#
- #{maps\ 2143}#
- #{ellipsis?\
2144}#
- #{mod\ 2145}#))
- (lambda (#{e\ 2196}#
- #{maps\
2197}#)
+ (#{gen-syntax\ 938}#
+ #{src\ 972}#
+ (cons #{e1\ 1025}#
+ #{e2\
1026}#)
+ #{r\ 974}#
+ #{maps\ 975}#
+ #{ellipsis?\ 976}#
+ #{mod\ 977}#))
+ (lambda (#{e\ 1028}#
+ #{maps\
1029}#)
(values
- (#{gen-vector\
2112}#
- #{e\ 2196}#)
- #{maps\ 2197}#))))
- #{tmp\ 2192}#)
- ((lambda (#{_\ 2198}#)
+ (#{gen-vector\
944}#
+ #{e\ 1028}#)
+ #{maps\ 1029}#))))
+ #{tmp\ 1024}#)
+ ((lambda (#{_\ 1030}#)
(values
(list 'quote
- #{e\ 2141}#)
- #{maps\ 2143}#))
- #{tmp\ 2151}#)))
+ #{e\ 973}#)
+ #{maps\ 975}#))
+ #{tmp\ 983}#)))
($sc-dispatch
- #{tmp\ 2151}#
+ #{tmp\ 983}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 2151}#
+ #{tmp\ 983}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 2151}#
+ #{tmp\ 983}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 2151}# (quote (any any)))))
- #{e\ 2141}#)))))
- (lambda (#{e\ 2199}#
- #{r\ 2200}#
- #{w\ 2201}#
- #{s\ 2202}#
- #{mod\ 2203}#)
- (let ((#{e\ 2204}#
- (#{source-wrap\ 1326}#
- #{e\ 2199}#
- #{w\ 2201}#
- #{s\ 2202}#
- #{mod\ 2203}#)))
- ((lambda (#{tmp\ 2205}#)
- ((lambda (#{tmp\ 2206}#)
- (if #{tmp\ 2206}#
- (apply (lambda (#{_\ 2207}# #{x\ 2208}#)
+ ($sc-dispatch #{tmp\ 983}# (quote (any any)))))
+ #{e\ 973}#)))))
+ (lambda (#{e\ 1031}#
+ #{r\ 1032}#
+ #{w\ 1033}#
+ #{s\ 1034}#
+ #{mod\ 1035}#)
+ (let ((#{e\ 1036}#
+ (#{source-wrap\ 158}#
+ #{e\ 1031}#
+ #{w\ 1033}#
+ #{s\ 1034}#
+ #{mod\ 1035}#)))
+ ((lambda (#{tmp\ 1037}#)
+ ((lambda (#{tmp\ 1038}#)
+ (if #{tmp\ 1038}#
+ (apply (lambda (#{_\ 1039}# #{x\ 1040}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2106}#
- #{e\ 2204}#
- #{x\ 2208}#
- #{r\ 2200}#
+ (#{gen-syntax\ 938}#
+ #{e\ 1036}#
+ #{x\ 1040}#
+ #{r\ 1032}#
'()
- #{ellipsis?\ 1342}#
- #{mod\ 2203}#))
- (lambda (#{e\ 2209}# #{maps\ 2210}#)
- (#{regen\ 2113}# #{e\ 2209}#))))
- #{tmp\ 2206}#)
- ((lambda (#{_\ 2211}#)
+ #{ellipsis?\ 174}#
+ #{mod\ 1035}#))
+ (lambda (#{e\ 1041}# #{maps\ 1042}#)
+ (#{regen\ 945}# #{e\ 1041}#))))
+ #{tmp\ 1038}#)
+ ((lambda (#{_\ 1043}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 2204}#))
- #{tmp\ 2205}#)))
- ($sc-dispatch #{tmp\ 2205}# (quote (any any)))))
- #{e\ 2204}#)))))
- (#{global-extend\ 1295}#
+ #{e\ 1036}#))
+ #{tmp\ 1037}#)))
+ ($sc-dispatch #{tmp\ 1037}# (quote (any any)))))
+ #{e\ 1036}#)))))
+ (#{global-extend\ 127}#
'core
'lambda
- (lambda (#{e\ 2212}#
- #{r\ 2213}#
- #{w\ 2214}#
- #{s\ 2215}#
- #{mod\ 2216}#)
- ((lambda (#{tmp\ 2217}#)
- ((lambda (#{tmp\ 2218}#)
- (if #{tmp\ 2218}#
- (apply (lambda (#{_\ 2219}# #{c\ 2220}#)
- (#{chi-lambda-clause\ 1338}#
- (#{source-wrap\ 1326}#
- #{e\ 2212}#
- #{w\ 2214}#
- #{s\ 2215}#
- #{mod\ 2216}#)
+ (lambda (#{e\ 1044}#
+ #{r\ 1045}#
+ #{w\ 1046}#
+ #{s\ 1047}#
+ #{mod\ 1048}#)
+ ((lambda (#{tmp\ 1049}#)
+ ((lambda (#{tmp\ 1050}#)
+ (if #{tmp\ 1050}#
+ (apply (lambda (#{_\ 1051}# #{c\ 1052}#)
+ (#{chi-lambda-clause\ 170}#
+ (#{source-wrap\ 158}#
+ #{e\ 1044}#
+ #{w\ 1046}#
+ #{s\ 1047}#
+ #{mod\ 1048}#)
#f
- #{c\ 2220}#
- #{r\ 2213}#
- #{w\ 2214}#
- #{mod\ 2216}#
- (lambda (#{names\ 2221}#
- #{vars\ 2222}#
- #{docstring\ 2223}#
- #{body\ 2224}#)
- (#{build-lambda\ 1273}#
- #{s\ 2215}#
- #{names\ 2221}#
- #{vars\ 2222}#
- #{docstring\ 2223}#
- #{body\ 2224}#))))
- #{tmp\ 2218}#)
+ #{c\ 1052}#
+ #{r\ 1045}#
+ #{w\ 1046}#
+ #{mod\ 1048}#
+ (lambda (#{names\ 1053}#
+ #{vars\ 1054}#
+ #{docstring\ 1055}#
+ #{body\ 1056}#)
+ (#{build-lambda\ 105}#
+ #{s\ 1047}#
+ #{names\ 1053}#
+ #{vars\ 1054}#
+ #{docstring\ 1055}#
+ #{body\ 1056}#))))
+ #{tmp\ 1050}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2217}#)))
- ($sc-dispatch #{tmp\ 2217}# (quote (any . any)))))
- #{e\ 2212}#)))
- (#{global-extend\ 1295}#
+ #{tmp\ 1049}#)))
+ ($sc-dispatch #{tmp\ 1049}# (quote (any . any)))))
+ #{e\ 1044}#)))
+ (#{global-extend\ 127}#
'core
'let
- (letrec ((#{chi-let\ 2225}#
- (lambda (#{e\ 2226}#
- #{r\ 2227}#
- #{w\ 2228}#
- #{s\ 2229}#
- #{mod\ 2230}#
- #{constructor\ 2231}#
- #{ids\ 2232}#
- #{vals\ 2233}#
- #{exps\ 2234}#)
- (if (not (#{valid-bound-ids?\ 1322}# #{ids\ 2232}#))
+ (letrec ((#{chi-let\ 1057}#
+ (lambda (#{e\ 1058}#
+ #{r\ 1059}#
+ #{w\ 1060}#
+ #{s\ 1061}#
+ #{mod\ 1062}#
+ #{constructor\ 1063}#
+ #{ids\ 1064}#
+ #{vals\ 1065}#
+ #{exps\ 1066}#)
+ (if (not (#{valid-bound-ids?\ 154}# #{ids\ 1064}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 2226}#)
- (let ((#{labels\ 2235}#
- (#{gen-labels\ 1303}# #{ids\ 2232}#))
- (#{new-vars\ 2236}#
- (map #{gen-var\ 1344}# #{ids\ 2232}#)))
- (let ((#{nw\ 2237}#
- (#{make-binding-wrap\ 1314}#
- #{ids\ 2232}#
- #{labels\ 2235}#
- #{w\ 2228}#))
- (#{nr\ 2238}#
- (#{extend-var-env\ 1292}#
- #{labels\ 2235}#
- #{new-vars\ 2236}#
- #{r\ 2227}#)))
- (#{constructor\ 2231}#
- #{s\ 2229}#
- (map syntax->datum #{ids\ 2232}#)
- #{new-vars\ 2236}#
- (map (lambda (#{x\ 2239}#)
- (#{chi\ 1333}#
- #{x\ 2239}#
- #{r\ 2227}#
- #{w\ 2228}#
- #{mod\ 2230}#))
- #{vals\ 2233}#)
- (#{chi-body\ 1337}#
- #{exps\ 2234}#
- (#{source-wrap\ 1326}#
- #{e\ 2226}#
- #{nw\ 2237}#
- #{s\ 2229}#
- #{mod\ 2230}#)
- #{nr\ 2238}#
- #{nw\ 2237}#
- #{mod\ 2230}#))))))))
- (lambda (#{e\ 2240}#
- #{r\ 2241}#
- #{w\ 2242}#
- #{s\ 2243}#
- #{mod\ 2244}#)
- ((lambda (#{tmp\ 2245}#)
- ((lambda (#{tmp\ 2246}#)
- (if (if #{tmp\ 2246}#
- (apply (lambda (#{_\ 2247}#
- #{id\ 2248}#
- #{val\ 2249}#
- #{e1\ 2250}#
- #{e2\ 2251}#)
- (and-map #{id?\ 1297}# #{id\ 2248}#))
- #{tmp\ 2246}#)
+ #{e\ 1058}#)
+ (let ((#{labels\ 1067}#
+ (#{gen-labels\ 135}# #{ids\ 1064}#))
+ (#{new-vars\ 1068}#
+ (map #{gen-var\ 176}# #{ids\ 1064}#)))
+ (let ((#{nw\ 1069}#
+ (#{make-binding-wrap\ 146}#
+ #{ids\ 1064}#
+ #{labels\ 1067}#
+ #{w\ 1060}#))
+ (#{nr\ 1070}#
+ (#{extend-var-env\ 124}#
+ #{labels\ 1067}#
+ #{new-vars\ 1068}#
+ #{r\ 1059}#)))
+ (#{constructor\ 1063}#
+ #{s\ 1061}#
+ (map syntax->datum #{ids\ 1064}#)
+ #{new-vars\ 1068}#
+ (map (lambda (#{x\ 1071}#)
+ (#{chi\ 165}#
+ #{x\ 1071}#
+ #{r\ 1059}#
+ #{w\ 1060}#
+ #{mod\ 1062}#))
+ #{vals\ 1065}#)
+ (#{chi-body\ 169}#
+ #{exps\ 1066}#
+ (#{source-wrap\ 158}#
+ #{e\ 1058}#
+ #{nw\ 1069}#
+ #{s\ 1061}#
+ #{mod\ 1062}#)
+ #{nr\ 1070}#
+ #{nw\ 1069}#
+ #{mod\ 1062}#))))))))
+ (lambda (#{e\ 1072}#
+ #{r\ 1073}#
+ #{w\ 1074}#
+ #{s\ 1075}#
+ #{mod\ 1076}#)
+ ((lambda (#{tmp\ 1077}#)
+ ((lambda (#{tmp\ 1078}#)
+ (if (if #{tmp\ 1078}#
+ (apply (lambda (#{_\ 1079}#
+ #{id\ 1080}#
+ #{val\ 1081}#
+ #{e1\ 1082}#
+ #{e2\ 1083}#)
+ (and-map #{id?\ 129}# #{id\ 1080}#))
+ #{tmp\ 1078}#)
#f)
- (apply (lambda (#{_\ 2253}#
- #{id\ 2254}#
- #{val\ 2255}#
- #{e1\ 2256}#
- #{e2\ 2257}#)
- (#{chi-let\ 2225}#
- #{e\ 2240}#
- #{r\ 2241}#
- #{w\ 2242}#
- #{s\ 2243}#
- #{mod\ 2244}#
- #{build-let\ 1277}#
- #{id\ 2254}#
- #{val\ 2255}#
- (cons #{e1\ 2256}# #{e2\ 2257}#)))
- #{tmp\ 2246}#)
- ((lambda (#{tmp\ 2261}#)
- (if (if #{tmp\ 2261}#
- (apply (lambda (#{_\ 2262}#
- #{f\ 2263}#
- #{id\ 2264}#
- #{val\ 2265}#
- #{e1\ 2266}#
- #{e2\ 2267}#)
- (if (#{id?\ 1297}# #{f\ 2263}#)
- (and-map #{id?\ 1297}# #{id\ 2264}#)
+ (apply (lambda (#{_\ 1085}#
+ #{id\ 1086}#
+ #{val\ 1087}#
+ #{e1\ 1088}#
+ #{e2\ 1089}#)
+ (#{chi-let\ 1057}#
+ #{e\ 1072}#
+ #{r\ 1073}#
+ #{w\ 1074}#
+ #{s\ 1075}#
+ #{mod\ 1076}#
+ #{build-let\ 109}#
+ #{id\ 1086}#
+ #{val\ 1087}#
+ (cons #{e1\ 1088}# #{e2\ 1089}#)))
+ #{tmp\ 1078}#)
+ ((lambda (#{tmp\ 1093}#)
+ (if (if #{tmp\ 1093}#
+ (apply (lambda (#{_\ 1094}#
+ #{f\ 1095}#
+ #{id\ 1096}#
+ #{val\ 1097}#
+ #{e1\ 1098}#
+ #{e2\ 1099}#)
+ (if (#{id?\ 129}# #{f\ 1095}#)
+ (and-map #{id?\ 129}# #{id\ 1096}#)
#f))
- #{tmp\ 2261}#)
+ #{tmp\ 1093}#)
#f)
- (apply (lambda (#{_\ 2269}#
- #{f\ 2270}#
- #{id\ 2271}#
- #{val\ 2272}#
- #{e1\ 2273}#
- #{e2\ 2274}#)
- (#{chi-let\ 2225}#
- #{e\ 2240}#
- #{r\ 2241}#
- #{w\ 2242}#
- #{s\ 2243}#
- #{mod\ 2244}#
- #{build-named-let\ 1278}#
- (cons #{f\ 2270}# #{id\ 2271}#)
- #{val\ 2272}#
- (cons #{e1\ 2273}# #{e2\ 2274}#)))
- #{tmp\ 2261}#)
- ((lambda (#{_\ 2278}#)
+ (apply (lambda (#{_\ 1101}#
+ #{f\ 1102}#
+ #{id\ 1103}#
+ #{val\ 1104}#
+ #{e1\ 1105}#
+ #{e2\ 1106}#)
+ (#{chi-let\ 1057}#
+ #{e\ 1072}#
+ #{r\ 1073}#
+ #{w\ 1074}#
+ #{s\ 1075}#
+ #{mod\ 1076}#
+ #{build-named-let\ 110}#
+ (cons #{f\ 1102}# #{id\ 1103}#)
+ #{val\ 1104}#
+ (cons #{e1\ 1105}# #{e2\ 1106}#)))
+ #{tmp\ 1093}#)
+ ((lambda (#{_\ 1110}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 1326}#
- #{e\ 2240}#
- #{w\ 2242}#
- #{s\ 2243}#
- #{mod\ 2244}#)))
- #{tmp\ 2245}#)))
+ (#{source-wrap\ 158}#
+ #{e\ 1072}#
+ #{w\ 1074}#
+ #{s\ 1075}#
+ #{mod\ 1076}#)))
+ #{tmp\ 1077}#)))
($sc-dispatch
- #{tmp\ 2245}#
+ #{tmp\ 1077}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 2245}#
+ #{tmp\ 1077}#
'(any #(each (any any)) any . each-any))))
- #{e\ 2240}#))))
- (#{global-extend\ 1295}#
+ #{e\ 1072}#))))
+ (#{global-extend\ 127}#
'core
'letrec
- (lambda (#{e\ 2279}#
- #{r\ 2280}#
- #{w\ 2281}#
- #{s\ 2282}#
- #{mod\ 2283}#)
- ((lambda (#{tmp\ 2284}#)
- ((lambda (#{tmp\ 2285}#)
- (if (if #{tmp\ 2285}#
- (apply (lambda (#{_\ 2286}#
- #{id\ 2287}#
- #{val\ 2288}#
- #{e1\ 2289}#
- #{e2\ 2290}#)
- (and-map #{id?\ 1297}# #{id\ 2287}#))
- #{tmp\ 2285}#)
+ (lambda (#{e\ 1111}#
+ #{r\ 1112}#
+ #{w\ 1113}#
+ #{s\ 1114}#
+ #{mod\ 1115}#)
+ ((lambda (#{tmp\ 1116}#)
+ ((lambda (#{tmp\ 1117}#)
+ (if (if #{tmp\ 1117}#
+ (apply (lambda (#{_\ 1118}#
+ #{id\ 1119}#
+ #{val\ 1120}#
+ #{e1\ 1121}#
+ #{e2\ 1122}#)
+ (and-map #{id?\ 129}# #{id\ 1119}#))
+ #{tmp\ 1117}#)
#f)
- (apply (lambda (#{_\ 2292}#
- #{id\ 2293}#
- #{val\ 2294}#
- #{e1\ 2295}#
- #{e2\ 2296}#)
- (let ((#{ids\ 2297}# #{id\ 2293}#))
- (if (not (#{valid-bound-ids?\ 1322}#
- #{ids\ 2297}#))
+ (apply (lambda (#{_\ 1124}#
+ #{id\ 1125}#
+ #{val\ 1126}#
+ #{e1\ 1127}#
+ #{e2\ 1128}#)
+ (let ((#{ids\ 1129}# #{id\ 1125}#))
+ (if (not (#{valid-bound-ids?\ 154}#
+ #{ids\ 1129}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 2279}#)
- (let ((#{labels\ 2299}#
- (#{gen-labels\ 1303}# #{ids\ 2297}#))
- (#{new-vars\ 2300}#
- (map #{gen-var\ 1344}# #{ids\ 2297}#)))
- (let ((#{w\ 2301}#
- (#{make-binding-wrap\ 1314}#
- #{ids\ 2297}#
- #{labels\ 2299}#
- #{w\ 2281}#))
- (#{r\ 2302}#
- (#{extend-var-env\ 1292}#
- #{labels\ 2299}#
- #{new-vars\ 2300}#
- #{r\ 2280}#)))
- (#{build-letrec\ 1279}#
- #{s\ 2282}#
- (map syntax->datum #{ids\ 2297}#)
- #{new-vars\ 2300}#
- (map (lambda (#{x\ 2303}#)
- (#{chi\ 1333}#
- #{x\ 2303}#
- #{r\ 2302}#
- #{w\ 2301}#
- #{mod\ 2283}#))
- #{val\ 2294}#)
- (#{chi-body\ 1337}#
- (cons #{e1\ 2295}# #{e2\ 2296}#)
- (#{source-wrap\ 1326}#
- #{e\ 2279}#
- #{w\ 2301}#
- #{s\ 2282}#
- #{mod\ 2283}#)
- #{r\ 2302}#
- #{w\ 2301}#
- #{mod\ 2283}#)))))))
- #{tmp\ 2285}#)
- ((lambda (#{_\ 2306}#)
+ #{e\ 1111}#)
+ (let ((#{labels\ 1131}#
+ (#{gen-labels\ 135}# #{ids\ 1129}#))
+ (#{new-vars\ 1132}#
+ (map #{gen-var\ 176}# #{ids\ 1129}#)))
+ (let ((#{w\ 1133}#
+ (#{make-binding-wrap\ 146}#
+ #{ids\ 1129}#
+ #{labels\ 1131}#
+ #{w\ 1113}#))
+ (#{r\ 1134}#
+ (#{extend-var-env\ 124}#
+ #{labels\ 1131}#
+ #{new-vars\ 1132}#
+ #{r\ 1112}#)))
+ (#{build-letrec\ 111}#
+ #{s\ 1114}#
+ (map syntax->datum #{ids\ 1129}#)
+ #{new-vars\ 1132}#
+ (map (lambda (#{x\ 1135}#)
+ (#{chi\ 165}#
+ #{x\ 1135}#
+ #{r\ 1134}#
+ #{w\ 1133}#
+ #{mod\ 1115}#))
+ #{val\ 1126}#)
+ (#{chi-body\ 169}#
+ (cons #{e1\ 1127}# #{e2\ 1128}#)
+ (#{source-wrap\ 158}#
+ #{e\ 1111}#
+ #{w\ 1133}#
+ #{s\ 1114}#
+ #{mod\ 1115}#)
+ #{r\ 1134}#
+ #{w\ 1133}#
+ #{mod\ 1115}#)))))))
+ #{tmp\ 1117}#)
+ ((lambda (#{_\ 1138}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 1326}#
- #{e\ 2279}#
- #{w\ 2281}#
- #{s\ 2282}#
- #{mod\ 2283}#)))
- #{tmp\ 2284}#)))
+ (#{source-wrap\ 158}#
+ #{e\ 1111}#
+ #{w\ 1113}#
+ #{s\ 1114}#
+ #{mod\ 1115}#)))
+ #{tmp\ 1116}#)))
($sc-dispatch
- #{tmp\ 2284}#
+ #{tmp\ 1116}#
'(any #(each (any any)) any . each-any))))
- #{e\ 2279}#)))
- (#{global-extend\ 1295}#
+ #{e\ 1111}#)))
+ (#{global-extend\ 127}#
'core
'set!
- (lambda (#{e\ 2307}#
- #{r\ 2308}#
- #{w\ 2309}#
- #{s\ 2310}#
- #{mod\ 2311}#)
- ((lambda (#{tmp\ 2312}#)
- ((lambda (#{tmp\ 2313}#)
- (if (if #{tmp\ 2313}#
- (apply (lambda (#{_\ 2314}# #{id\ 2315}# #{val\ 2316}#)
- (#{id?\ 1297}# #{id\ 2315}#))
- #{tmp\ 2313}#)
+ (lambda (#{e\ 1139}#
+ #{r\ 1140}#
+ #{w\ 1141}#
+ #{s\ 1142}#
+ #{mod\ 1143}#)
+ ((lambda (#{tmp\ 1144}#)
+ ((lambda (#{tmp\ 1145}#)
+ (if (if #{tmp\ 1145}#
+ (apply (lambda (#{_\ 1146}# #{id\ 1147}# #{val\ 1148}#)
+ (#{id?\ 129}# #{id\ 1147}#))
+ #{tmp\ 1145}#)
#f)
- (apply (lambda (#{_\ 2317}# #{id\ 2318}# #{val\ 2319}#)
- (let ((#{val\ 2320}#
- (#{chi\ 1333}#
- #{val\ 2319}#
- #{r\ 2308}#
- #{w\ 2309}#
- #{mod\ 2311}#))
- (#{n\ 2321}#
- (#{id-var-name\ 1319}#
- #{id\ 2318}#
- #{w\ 2309}#)))
- (let ((#{b\ 2322}#
- (#{lookup\ 1294}#
- #{n\ 2321}#
- #{r\ 2308}#
- #{mod\ 2311}#)))
- (let ((#{atom-key\ 2323}#
- (#{binding-type\ 1289}# #{b\ 2322}#)))
- (if (memv #{atom-key\ 2323}#
+ (apply (lambda (#{_\ 1149}# #{id\ 1150}# #{val\ 1151}#)
+ (let ((#{val\ 1152}#
+ (#{chi\ 165}#
+ #{val\ 1151}#
+ #{r\ 1140}#
+ #{w\ 1141}#
+ #{mod\ 1143}#))
+ (#{n\ 1153}#
+ (#{id-var-name\ 151}#
+ #{id\ 1150}#
+ #{w\ 1141}#)))
+ (let ((#{b\ 1154}#
+ (#{lookup\ 126}#
+ #{n\ 1153}#
+ #{r\ 1140}#
+ #{mod\ 1143}#)))
+ (let ((#{atom-key\ 1155}#
+ (#{binding-type\ 121}# #{b\ 1154}#)))
+ (if (memv #{atom-key\ 1155}#
'(lexical))
- (#{build-lexical-assignment\ 1267}#
- #{s\ 2310}#
- (syntax->datum #{id\ 2318}#)
- (#{binding-value\ 1290}# #{b\ 2322}#)
- #{val\ 2320}#)
- (if (memv #{atom-key\ 2323}#
+ (#{build-lexical-assignment\ 99}#
+ #{s\ 1142}#
+ (syntax->datum #{id\ 1150}#)
+ (#{binding-value\ 122}# #{b\ 1154}#)
+ #{val\ 1152}#)
+ (if (memv #{atom-key\ 1155}#
'(global))
- (#{build-global-assignment\ 1270}#
- #{s\ 2310}#
- #{n\ 2321}#
- #{val\ 2320}#
- #{mod\ 2311}#)
- (if (memv #{atom-key\ 2323}#
+ (#{build-global-assignment\ 102}#
+ #{s\ 1142}#
+ #{n\ 1153}#
+ #{val\ 1152}#
+ #{mod\ 1143}#)
+ (if (memv #{atom-key\ 1155}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 1325}#
- #{id\ 2318}#
- #{w\ 2309}#
- #{mod\ 2311}#))
+ (#{wrap\ 157}#
+ #{id\ 1150}#
+ #{w\ 1141}#
+ #{mod\ 1143}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 1326}#
- #{e\ 2307}#
- #{w\ 2309}#
- #{s\ 2310}#
- #{mod\ 2311}#)))))))))
- #{tmp\ 2313}#)
- ((lambda (#{tmp\ 2324}#)
- (if #{tmp\ 2324}#
- (apply (lambda (#{_\ 2325}#
- #{head\ 2326}#
- #{tail\ 2327}#
- #{val\ 2328}#)
+ (#{source-wrap\ 158}#
+ #{e\ 1139}#
+ #{w\ 1141}#
+ #{s\ 1142}#
+ #{mod\ 1143}#)))))))))
+ #{tmp\ 1145}#)
+ ((lambda (#{tmp\ 1156}#)
+ (if #{tmp\ 1156}#
+ (apply (lambda (#{_\ 1157}#
+ #{head\ 1158}#
+ #{tail\ 1159}#
+ #{val\ 1160}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 1331}#
- #{head\ 2326}#
- #{r\ 2308}#
+ (#{syntax-type\ 163}#
+ #{head\ 1158}#
+ #{r\ 1140}#
'(())
#f
#f
- #{mod\ 2311}#
+ #{mod\ 1143}#
#t))
- (lambda (#{type\ 2329}#
- #{value\ 2330}#
- #{ee\ 2331}#
- #{ww\ 2332}#
- #{ss\ 2333}#
- #{modmod\ 2334}#)
- (if (memv #{type\ 2329}#
+ (lambda (#{type\ 1161}#
+ #{value\ 1162}#
+ #{ee\ 1163}#
+ #{ww\ 1164}#
+ #{ss\ 1165}#
+ #{modmod\ 1166}#)
+ (if (memv #{type\ 1161}#
'(module-ref))
- (let ((#{val\ 2335}#
- (#{chi\ 1333}#
- #{val\ 2328}#
- #{r\ 2308}#
- #{w\ 2309}#
- #{mod\ 2311}#)))
+ (let ((#{val\ 1167}#
+ (#{chi\ 165}#
+ #{val\ 1160}#
+ #{r\ 1140}#
+ #{w\ 1141}#
+ #{mod\ 1143}#)))
(call-with-values
(lambda ()
- (#{value\ 2330}#
- (cons #{head\ 2326}#
- #{tail\ 2327}#)))
- (lambda (#{id\ 2337}# #{mod\ 2338}#)
- (#{build-global-assignment\ 1270}#
- #{s\ 2310}#
- #{id\ 2337}#
- #{val\ 2335}#
- #{mod\ 2338}#))))
- (#{build-application\ 1264}#
- #{s\ 2310}#
- (#{chi\ 1333}#
+ (#{value\ 1162}#
+ (cons #{head\ 1158}#
+ #{tail\ 1159}#)))
+ (lambda (#{id\ 1169}# #{mod\ 1170}#)
+ (#{build-global-assignment\ 102}#
+ #{s\ 1142}#
+ #{id\ 1169}#
+ #{val\ 1167}#
+ #{mod\ 1170}#))))
+ (#{build-application\ 96}#
+ #{s\ 1142}#
+ (#{chi\ 165}#
(list '#(syntax-object
setter
((top)
@@ -7154,53 +7177,53 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{head\ 2326}#)
- #{r\ 2308}#
- #{w\ 2309}#
- #{mod\ 2311}#)
- (map (lambda (#{e\ 2339}#)
- (#{chi\ 1333}#
- #{e\ 2339}#
- #{r\ 2308}#
- #{w\ 2309}#
- #{mod\ 2311}#))
+ #{head\ 1158}#)
+ #{r\ 1140}#
+ #{w\ 1141}#
+ #{mod\ 1143}#)
+ (map (lambda (#{e\ 1171}#)
+ (#{chi\ 165}#
+ #{e\ 1171}#
+ #{r\ 1140}#
+ #{w\ 1141}#
+ #{mod\ 1143}#))
(append
- #{tail\ 2327}#
- (list #{val\ 2328}#))))))))
- #{tmp\ 2324}#)
- ((lambda (#{_\ 2341}#)
+ #{tail\ 1159}#
+ (list #{val\ 1160}#))))))))
+ #{tmp\ 1156}#)
+ ((lambda (#{_\ 1173}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 1326}#
- #{e\ 2307}#
- #{w\ 2309}#
- #{s\ 2310}#
- #{mod\ 2311}#)))
- #{tmp\ 2312}#)))
+ (#{source-wrap\ 158}#
+ #{e\ 1139}#
+ #{w\ 1141}#
+ #{s\ 1142}#
+ #{mod\ 1143}#)))
+ #{tmp\ 1144}#)))
($sc-dispatch
- #{tmp\ 2312}#
+ #{tmp\ 1144}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 2312}#
+ #{tmp\ 1144}#
'(any any any))))
- #{e\ 2307}#)))
- (#{global-extend\ 1295}#
+ #{e\ 1139}#)))
+ (#{global-extend\ 127}#
'module-ref
'@
- (lambda (#{e\ 2342}#)
- ((lambda (#{tmp\ 2343}#)
- ((lambda (#{tmp\ 2344}#)
- (if (if #{tmp\ 2344}#
- (apply (lambda (#{_\ 2345}# #{mod\ 2346}# #{id\ 2347}#)
- (if (and-map #{id?\ 1297}# #{mod\ 2346}#)
- (#{id?\ 1297}# #{id\ 2347}#)
+ (lambda (#{e\ 1174}#)
+ ((lambda (#{tmp\ 1175}#)
+ ((lambda (#{tmp\ 1176}#)
+ (if (if #{tmp\ 1176}#
+ (apply (lambda (#{_\ 1177}# #{mod\ 1178}# #{id\ 1179}#)
+ (if (and-map #{id?\ 129}# #{mod\ 1178}#)
+ (#{id?\ 129}# #{id\ 1179}#)
#f))
- #{tmp\ 2344}#)
+ #{tmp\ 1176}#)
#f)
- (apply (lambda (#{_\ 2349}# #{mod\ 2350}# #{id\ 2351}#)
+ (apply (lambda (#{_\ 1181}# #{mod\ 1182}# #{id\ 1183}#)
(values
- (syntax->datum #{id\ 2351}#)
+ (syntax->datum #{id\ 1183}#)
(syntax->datum
(cons '#(syntax-object
public
@@ -7553,32 +7576,32 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{mod\ 2350}#))))
- #{tmp\ 2344}#)
+ #{mod\ 1182}#))))
+ #{tmp\ 1176}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2343}#)))
+ #{tmp\ 1175}#)))
($sc-dispatch
- #{tmp\ 2343}#
+ #{tmp\ 1175}#
'(any each-any any))))
- #{e\ 2342}#)))
- (#{global-extend\ 1295}#
+ #{e\ 1174}#)))
+ (#{global-extend\ 127}#
'module-ref
'@@
- (lambda (#{e\ 2353}#)
- ((lambda (#{tmp\ 2354}#)
- ((lambda (#{tmp\ 2355}#)
- (if (if #{tmp\ 2355}#
- (apply (lambda (#{_\ 2356}# #{mod\ 2357}# #{id\ 2358}#)
- (if (and-map #{id?\ 1297}# #{mod\ 2357}#)
- (#{id?\ 1297}# #{id\ 2358}#)
+ (lambda (#{e\ 1185}#)
+ ((lambda (#{tmp\ 1186}#)
+ ((lambda (#{tmp\ 1187}#)
+ (if (if #{tmp\ 1187}#
+ (apply (lambda (#{_\ 1188}# #{mod\ 1189}# #{id\ 1190}#)
+ (if (and-map #{id?\ 129}# #{mod\ 1189}#)
+ (#{id?\ 129}# #{id\ 1190}#)
#f))
- #{tmp\ 2355}#)
+ #{tmp\ 1187}#)
#f)
- (apply (lambda (#{_\ 2360}# #{mod\ 2361}# #{id\ 2362}#)
+ (apply (lambda (#{_\ 1192}# #{mod\ 1193}# #{id\ 1194}#)
(values
- (syntax->datum #{id\ 2362}#)
+ (syntax->datum #{id\ 1194}#)
(syntax->datum
(cons '#(syntax-object
private
@@ -7931,123 +7954,123 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{mod\ 2361}#))))
- #{tmp\ 2355}#)
+ #{mod\ 1193}#))))
+ #{tmp\ 1187}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2354}#)))
+ #{tmp\ 1186}#)))
($sc-dispatch
- #{tmp\ 2354}#
+ #{tmp\ 1186}#
'(any each-any any))))
- #{e\ 2353}#)))
- (#{global-extend\ 1295}#
+ #{e\ 1185}#)))
+ (#{global-extend\ 127}#
'core
'if
- (lambda (#{e\ 2364}#
- #{r\ 2365}#
- #{w\ 2366}#
- #{s\ 2367}#
- #{mod\ 2368}#)
- ((lambda (#{tmp\ 2369}#)
- ((lambda (#{tmp\ 2370}#)
- (if #{tmp\ 2370}#
- (apply (lambda (#{_\ 2371}# #{test\ 2372}# #{then\ 2373}#)
- (#{build-conditional\ 1265}#
- #{s\ 2367}#
- (#{chi\ 1333}#
- #{test\ 2372}#
- #{r\ 2365}#
- #{w\ 2366}#
- #{mod\ 2368}#)
- (#{chi\ 1333}#
- #{then\ 2373}#
- #{r\ 2365}#
- #{w\ 2366}#
- #{mod\ 2368}#)
- (#{build-void\ 1263}# #f)))
- #{tmp\ 2370}#)
- ((lambda (#{tmp\ 2374}#)
- (if #{tmp\ 2374}#
- (apply (lambda (#{_\ 2375}#
- #{test\ 2376}#
- #{then\ 2377}#
- #{else\ 2378}#)
- (#{build-conditional\ 1265}#
- #{s\ 2367}#
- (#{chi\ 1333}#
- #{test\ 2376}#
- #{r\ 2365}#
- #{w\ 2366}#
- #{mod\ 2368}#)
- (#{chi\ 1333}#
- #{then\ 2377}#
- #{r\ 2365}#
- #{w\ 2366}#
- #{mod\ 2368}#)
- (#{chi\ 1333}#
- #{else\ 2378}#
- #{r\ 2365}#
- #{w\ 2366}#
- #{mod\ 2368}#)))
- #{tmp\ 2374}#)
+ (lambda (#{e\ 1196}#
+ #{r\ 1197}#
+ #{w\ 1198}#
+ #{s\ 1199}#
+ #{mod\ 1200}#)
+ ((lambda (#{tmp\ 1201}#)
+ ((lambda (#{tmp\ 1202}#)
+ (if #{tmp\ 1202}#
+ (apply (lambda (#{_\ 1203}# #{test\ 1204}# #{then\ 1205}#)
+ (#{build-conditional\ 97}#
+ #{s\ 1199}#
+ (#{chi\ 165}#
+ #{test\ 1204}#
+ #{r\ 1197}#
+ #{w\ 1198}#
+ #{mod\ 1200}#)
+ (#{chi\ 165}#
+ #{then\ 1205}#
+ #{r\ 1197}#
+ #{w\ 1198}#
+ #{mod\ 1200}#)
+ (#{build-void\ 95}# #f)))
+ #{tmp\ 1202}#)
+ ((lambda (#{tmp\ 1206}#)
+ (if #{tmp\ 1206}#
+ (apply (lambda (#{_\ 1207}#
+ #{test\ 1208}#
+ #{then\ 1209}#
+ #{else\ 1210}#)
+ (#{build-conditional\ 97}#
+ #{s\ 1199}#
+ (#{chi\ 165}#
+ #{test\ 1208}#
+ #{r\ 1197}#
+ #{w\ 1198}#
+ #{mod\ 1200}#)
+ (#{chi\ 165}#
+ #{then\ 1209}#
+ #{r\ 1197}#
+ #{w\ 1198}#
+ #{mod\ 1200}#)
+ (#{chi\ 165}#
+ #{else\ 1210}#
+ #{r\ 1197}#
+ #{w\ 1198}#
+ #{mod\ 1200}#)))
+ #{tmp\ 1206}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2369}#)))
+ #{tmp\ 1201}#)))
($sc-dispatch
- #{tmp\ 2369}#
+ #{tmp\ 1201}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 2369}#
+ #{tmp\ 1201}#
'(any any any))))
- #{e\ 2364}#)))
- (#{global-extend\ 1295}#
+ #{e\ 1196}#)))
+ (#{global-extend\ 127}#
'begin
'begin
'())
- (#{global-extend\ 1295}#
+ (#{global-extend\ 127}#
'define
'define
'())
- (#{global-extend\ 1295}#
+ (#{global-extend\ 127}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 1295}#
+ (#{global-extend\ 127}#
'eval-when
'eval-when
'())
- (#{global-extend\ 1295}#
+ (#{global-extend\ 127}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 2382}#
- (lambda (#{x\ 2383}#
- #{keys\ 2384}#
- #{clauses\ 2385}#
- #{r\ 2386}#
- #{mod\ 2387}#)
- (if (null? #{clauses\ 2385}#)
- (#{build-application\ 1264}#
+ (letrec ((#{gen-syntax-case\ 1214}#
+ (lambda (#{x\ 1215}#
+ #{keys\ 1216}#
+ #{clauses\ 1217}#
+ #{r\ 1218}#
+ #{mod\ 1219}#)
+ (if (null? #{clauses\ 1217}#)
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 1274}#
+ (#{build-primref\ 106}#
#f
'syntax-violation)
- (list (#{build-data\ 1275}# #f #f)
- (#{build-data\ 1275}#
+ (list (#{build-data\ 107}# #f #f)
+ (#{build-data\ 107}#
#f
"source expression failed to match any
pattern")
- #{x\ 2383}#))
- ((lambda (#{tmp\ 2388}#)
- ((lambda (#{tmp\ 2389}#)
- (if #{tmp\ 2389}#
- (apply (lambda (#{pat\ 2390}# #{exp\ 2391}#)
- (if (if (#{id?\ 1297}# #{pat\ 2390}#)
+ #{x\ 1215}#))
+ ((lambda (#{tmp\ 1220}#)
+ ((lambda (#{tmp\ 1221}#)
+ (if #{tmp\ 1221}#
+ (apply (lambda (#{pat\ 1222}# #{exp\ 1223}#)
+ (if (if (#{id?\ 129}# #{pat\ 1222}#)
(and-map
- (lambda (#{x\ 2392}#)
- (not (#{free-id=?\ 1320}#
- #{pat\ 2390}#
- #{x\ 2392}#)))
+ (lambda (#{x\ 1224}#)
+ (not (#{free-id=?\ 152}#
+ #{pat\ 1222}#
+ #{x\ 1224}#)))
(cons '#(syntax-object
...
((top)
@@ -8425,731 +8448,730 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{keys\ 2384}#))
+ #{keys\ 1216}#))
#f)
- (let ((#{labels\ 2393}#
- (list (#{gen-label\ 1302}#)))
- (#{var\ 2394}#
- (#{gen-var\ 1344}#
- #{pat\ 2390}#)))
- (#{build-application\ 1264}#
+ (let ((#{labels\ 1225}#
+ (list (#{gen-label\ 134}#)))
+ (#{var\ 1226}#
+ (#{gen-var\ 176}#
+ #{pat\ 1222}#)))
+ (#{build-application\ 96}#
#f
- (#{build-lambda\ 1273}#
+ (#{build-lambda\ 105}#
#f
(list (syntax->datum
- #{pat\ 2390}#))
- (list #{var\ 2394}#)
+ #{pat\ 1222}#))
+ (list #{var\ 1226}#)
#f
- (#{chi\ 1333}#
- #{exp\ 2391}#
- (#{extend-env\ 1291}#
- #{labels\ 2393}#
+ (#{chi\ 165}#
+ #{exp\ 1223}#
+ (#{extend-env\ 123}#
+ #{labels\ 1225}#
(list (cons 'syntax
- (cons #{var\
2394}#
+ (cons #{var\
1226}#
0)))
- #{r\ 2386}#)
- (#{make-binding-wrap\ 1314}#
- (list #{pat\ 2390}#)
- #{labels\ 2393}#
+ #{r\ 1218}#)
+ (#{make-binding-wrap\ 146}#
+ (list #{pat\ 1222}#)
+ #{labels\ 1225}#
'(()))
- #{mod\ 2387}#))
- (list #{x\ 2383}#)))
- (#{gen-clause\ 2381}#
- #{x\ 2383}#
- #{keys\ 2384}#
- (cdr #{clauses\ 2385}#)
- #{r\ 2386}#
- #{pat\ 2390}#
+ #{mod\ 1219}#))
+ (list #{x\ 1215}#)))
+ (#{gen-clause\ 1213}#
+ #{x\ 1215}#
+ #{keys\ 1216}#
+ (cdr #{clauses\ 1217}#)
+ #{r\ 1218}#
+ #{pat\ 1222}#
#t
- #{exp\ 2391}#
- #{mod\ 2387}#)))
- #{tmp\ 2389}#)
- ((lambda (#{tmp\ 2395}#)
- (if #{tmp\ 2395}#
- (apply (lambda (#{pat\ 2396}#
- #{fender\ 2397}#
- #{exp\ 2398}#)
- (#{gen-clause\ 2381}#
- #{x\ 2383}#
- #{keys\ 2384}#
- (cdr #{clauses\ 2385}#)
- #{r\ 2386}#
- #{pat\ 2396}#
- #{fender\ 2397}#
- #{exp\ 2398}#
- #{mod\ 2387}#))
- #{tmp\ 2395}#)
- ((lambda (#{_\ 2399}#)
+ #{exp\ 1223}#
+ #{mod\ 1219}#)))
+ #{tmp\ 1221}#)
+ ((lambda (#{tmp\ 1227}#)
+ (if #{tmp\ 1227}#
+ (apply (lambda (#{pat\ 1228}#
+ #{fender\ 1229}#
+ #{exp\ 1230}#)
+ (#{gen-clause\ 1213}#
+ #{x\ 1215}#
+ #{keys\ 1216}#
+ (cdr #{clauses\ 1217}#)
+ #{r\ 1218}#
+ #{pat\ 1228}#
+ #{fender\ 1229}#
+ #{exp\ 1230}#
+ #{mod\ 1219}#))
+ #{tmp\ 1227}#)
+ ((lambda (#{_\ 1231}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 2385}#)))
- #{tmp\ 2388}#)))
+ (car #{clauses\ 1217}#)))
+ #{tmp\ 1220}#)))
($sc-dispatch
- #{tmp\ 2388}#
+ #{tmp\ 1220}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 2388}# (quote (any any)))))
- (car #{clauses\ 2385}#)))))
- (#{gen-clause\ 2381}#
- (lambda (#{x\ 2400}#
- #{keys\ 2401}#
- #{clauses\ 2402}#
- #{r\ 2403}#
- #{pat\ 2404}#
- #{fender\ 2405}#
- #{exp\ 2406}#
- #{mod\ 2407}#)
+ ($sc-dispatch #{tmp\ 1220}# (quote (any any)))))
+ (car #{clauses\ 1217}#)))))
+ (#{gen-clause\ 1213}#
+ (lambda (#{x\ 1232}#
+ #{keys\ 1233}#
+ #{clauses\ 1234}#
+ #{r\ 1235}#
+ #{pat\ 1236}#
+ #{fender\ 1237}#
+ #{exp\ 1238}#
+ #{mod\ 1239}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 2379}#
- #{pat\ 2404}#
- #{keys\ 2401}#))
- (lambda (#{p\ 2408}# #{pvars\ 2409}#)
- (if (not (#{distinct-bound-ids?\ 1323}#
- (map car #{pvars\ 2409}#)))
+ (#{convert-pattern\ 1211}#
+ #{pat\ 1236}#
+ #{keys\ 1233}#))
+ (lambda (#{p\ 1240}# #{pvars\ 1241}#)
+ (if (not (#{distinct-bound-ids?\ 155}#
+ (map car #{pvars\ 1241}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 2404}#)
+ #{pat\ 1236}#)
(if (not (and-map
- (lambda (#{x\ 2410}#)
- (not (#{ellipsis?\ 1342}#
- (car #{x\ 2410}#))))
- #{pvars\ 2409}#))
+ (lambda (#{x\ 1242}#)
+ (not (#{ellipsis?\ 174}#
+ (car #{x\ 1242}#))))
+ #{pvars\ 1241}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 2404}#)
- (let ((#{y\ 2411}#
- (#{gen-var\ 1344}# (quote tmp))))
- (#{build-application\ 1264}#
+ #{pat\ 1236}#)
+ (let ((#{y\ 1243}#
+ (#{gen-var\ 176}# (quote tmp))))
+ (#{build-application\ 96}#
#f
- (#{build-lambda\ 1273}#
+ (#{build-lambda\ 105}#
#f
(list (quote tmp))
- (list #{y\ 2411}#)
+ (list #{y\ 1243}#)
#f
- (let ((#{y\ 2412}#
- (#{build-lexical-reference\ 1266}#
+ (let ((#{y\ 1244}#
+ (#{build-lexical-reference\ 98}#
'value
#f
'tmp
- #{y\ 2411}#)))
- (#{build-conditional\ 1265}#
+ #{y\ 1243}#)))
+ (#{build-conditional\ 97}#
#f
- ((lambda (#{tmp\ 2413}#)
- ((lambda (#{tmp\ 2414}#)
- (if #{tmp\ 2414}#
- (apply (lambda () #{y\ 2412}#)
- #{tmp\ 2414}#)
- ((lambda (#{_\ 2415}#)
- (#{build-conditional\ 1265}#
+ ((lambda (#{tmp\ 1245}#)
+ ((lambda (#{tmp\ 1246}#)
+ (if #{tmp\ 1246}#
+ (apply (lambda () #{y\ 1244}#)
+ #{tmp\ 1246}#)
+ ((lambda (#{_\ 1247}#)
+ (#{build-conditional\ 97}#
#f
- #{y\ 2412}#
- (#{build-dispatch-call\
2380}#
- #{pvars\ 2409}#
- #{fender\ 2405}#
- #{y\ 2412}#
- #{r\ 2403}#
- #{mod\ 2407}#)
- (#{build-data\ 1275}#
+ #{y\ 1244}#
+ (#{build-dispatch-call\
1212}#
+ #{pvars\ 1241}#
+ #{fender\ 1237}#
+ #{y\ 1244}#
+ #{r\ 1235}#
+ #{mod\ 1239}#)
+ (#{build-data\ 107}#
#f
#f)))
- #{tmp\ 2413}#)))
+ #{tmp\ 1245}#)))
($sc-dispatch
- #{tmp\ 2413}#
+ #{tmp\ 1245}#
'#(atom #t))))
- #{fender\ 2405}#)
- (#{build-dispatch-call\ 2380}#
- #{pvars\ 2409}#
- #{exp\ 2406}#
- #{y\ 2412}#
- #{r\ 2403}#
- #{mod\ 2407}#)
- (#{gen-syntax-case\ 2382}#
- #{x\ 2400}#
- #{keys\ 2401}#
- #{clauses\ 2402}#
- #{r\ 2403}#
- #{mod\ 2407}#))))
- (list (if (eq? #{p\ 2408}# (quote any))
- (#{build-application\ 1264}#
+ #{fender\ 1237}#)
+ (#{build-dispatch-call\ 1212}#
+ #{pvars\ 1241}#
+ #{exp\ 1238}#
+ #{y\ 1244}#
+ #{r\ 1235}#
+ #{mod\ 1239}#)
+ (#{gen-syntax-case\ 1214}#
+ #{x\ 1232}#
+ #{keys\ 1233}#
+ #{clauses\ 1234}#
+ #{r\ 1235}#
+ #{mod\ 1239}#))))
+ (list (if (eq? #{p\ 1240}# (quote any))
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 1274}#
+ (#{build-primref\ 106}#
#f
'list)
- (list #{x\ 2400}#))
- (#{build-application\ 1264}#
+ (list #{x\ 1232}#))
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 1274}#
+ (#{build-primref\ 106}#
#f
'$sc-dispatch)
- (list #{x\ 2400}#
- (#{build-data\ 1275}#
+ (list #{x\ 1232}#
+ (#{build-data\ 107}#
#f
- #{p\ 2408}#)))))))))))))
- (#{build-dispatch-call\ 2380}#
- (lambda (#{pvars\ 2416}#
- #{exp\ 2417}#
- #{y\ 2418}#
- #{r\ 2419}#
- #{mod\ 2420}#)
- (let ((#{ids\ 2421}# (map car #{pvars\ 2416}#))
- (#{levels\ 2422}# (map cdr #{pvars\ 2416}#)))
- (let ((#{labels\ 2423}#
- (#{gen-labels\ 1303}# #{ids\ 2421}#))
- (#{new-vars\ 2424}#
- (map #{gen-var\ 1344}# #{ids\ 2421}#)))
- (#{build-application\ 1264}#
+ #{p\ 1240}#)))))))))))))
+ (#{build-dispatch-call\ 1212}#
+ (lambda (#{pvars\ 1248}#
+ #{exp\ 1249}#
+ #{y\ 1250}#
+ #{r\ 1251}#
+ #{mod\ 1252}#)
+ (let ((#{ids\ 1253}# (map car #{pvars\ 1248}#))
+ (#{levels\ 1254}# (map cdr #{pvars\ 1248}#)))
+ (let ((#{labels\ 1255}#
+ (#{gen-labels\ 135}# #{ids\ 1253}#))
+ (#{new-vars\ 1256}#
+ (map #{gen-var\ 176}# #{ids\ 1253}#)))
+ (#{build-application\ 96}#
#f
- (#{build-primref\ 1274}# #f (quote apply))
- (list (#{build-lambda\ 1273}#
+ (#{build-primref\ 106}# #f (quote apply))
+ (list (#{build-lambda\ 105}#
#f
- (map syntax->datum #{ids\ 2421}#)
- #{new-vars\ 2424}#
+ (map syntax->datum #{ids\ 1253}#)
+ #{new-vars\ 1256}#
#f
- (#{chi\ 1333}#
- #{exp\ 2417}#
- (#{extend-env\ 1291}#
- #{labels\ 2423}#
- (map (lambda (#{var\ 2425}#
- #{level\ 2426}#)
+ (#{chi\ 165}#
+ #{exp\ 1249}#
+ (#{extend-env\ 123}#
+ #{labels\ 1255}#
+ (map (lambda (#{var\ 1257}#
+ #{level\ 1258}#)
(cons 'syntax
- (cons #{var\ 2425}#
- #{level\ 2426}#)))
- #{new-vars\ 2424}#
- (map cdr #{pvars\ 2416}#))
- #{r\ 2419}#)
- (#{make-binding-wrap\ 1314}#
- #{ids\ 2421}#
- #{labels\ 2423}#
+ (cons #{var\ 1257}#
+ #{level\ 1258}#)))
+ #{new-vars\ 1256}#
+ (map cdr #{pvars\ 1248}#))
+ #{r\ 1251}#)
+ (#{make-binding-wrap\ 146}#
+ #{ids\ 1253}#
+ #{labels\ 1255}#
'(()))
- #{mod\ 2420}#))
- #{y\ 2418}#))))))
- (#{convert-pattern\ 2379}#
- (lambda (#{pattern\ 2427}# #{keys\ 2428}#)
- (letrec ((#{cvt\ 2429}#
- (lambda (#{p\ 2430}# #{n\ 2431}# #{ids\ 2432}#)
- (if (#{id?\ 1297}# #{p\ 2430}#)
- (if (#{bound-id-member?\ 1324}#
- #{p\ 2430}#
- #{keys\ 2428}#)
+ #{mod\ 1252}#))
+ #{y\ 1250}#))))))
+ (#{convert-pattern\ 1211}#
+ (lambda (#{pattern\ 1259}# #{keys\ 1260}#)
+ (letrec ((#{cvt\ 1261}#
+ (lambda (#{p\ 1262}# #{n\ 1263}# #{ids\ 1264}#)
+ (if (#{id?\ 129}# #{p\ 1262}#)
+ (if (#{bound-id-member?\ 156}#
+ #{p\ 1262}#
+ #{keys\ 1260}#)
(values
- (vector (quote free-id) #{p\ 2430}#)
- #{ids\ 2432}#)
+ (vector (quote free-id) #{p\ 1262}#)
+ #{ids\ 1264}#)
(values
'any
- (cons (cons #{p\ 2430}# #{n\ 2431}#)
- #{ids\ 2432}#)))
- ((lambda (#{tmp\ 2433}#)
- ((lambda (#{tmp\ 2434}#)
- (if (if #{tmp\ 2434}#
- (apply (lambda (#{x\ 2435}#
- #{dots\ 2436}#)
- (#{ellipsis?\ 1342}#
- #{dots\ 2436}#))
- #{tmp\ 2434}#)
+ (cons (cons #{p\ 1262}# #{n\ 1263}#)
+ #{ids\ 1264}#)))
+ ((lambda (#{tmp\ 1265}#)
+ ((lambda (#{tmp\ 1266}#)
+ (if (if #{tmp\ 1266}#
+ (apply (lambda (#{x\ 1267}#
+ #{dots\ 1268}#)
+ (#{ellipsis?\ 174}#
+ #{dots\ 1268}#))
+ #{tmp\ 1266}#)
#f)
- (apply (lambda (#{x\ 2437}#
- #{dots\ 2438}#)
+ (apply (lambda (#{x\ 1269}#
+ #{dots\ 1270}#)
(call-with-values
(lambda ()
- (#{cvt\ 2429}#
- #{x\ 2437}#
- (#{fx+\ 1254}#
- #{n\ 2431}#
+ (#{cvt\ 1261}#
+ #{x\ 1269}#
+ (#{fx+\ 86}#
+ #{n\ 1263}#
1)
- #{ids\ 2432}#))
- (lambda (#{p\ 2439}#
- #{ids\ 2440}#)
+ #{ids\ 1264}#))
+ (lambda (#{p\ 1271}#
+ #{ids\ 1272}#)
(values
- (if (eq? #{p\ 2439}#
+ (if (eq? #{p\ 1271}#
'any)
'each-any
(vector
'each
- #{p\ 2439}#))
- #{ids\ 2440}#))))
- #{tmp\ 2434}#)
- ((lambda (#{tmp\ 2441}#)
- (if #{tmp\ 2441}#
- (apply (lambda (#{x\ 2442}#
- #{y\ 2443}#)
+ #{p\ 1271}#))
+ #{ids\ 1272}#))))
+ #{tmp\ 1266}#)
+ ((lambda (#{tmp\ 1273}#)
+ (if #{tmp\ 1273}#
+ (apply (lambda (#{x\ 1274}#
+ #{y\ 1275}#)
(call-with-values
(lambda ()
- (#{cvt\ 2429}#
- #{y\ 2443}#
- #{n\ 2431}#
- #{ids\ 2432}#))
- (lambda (#{y\
2444}#
- #{ids\
2445}#)
+ (#{cvt\ 1261}#
+ #{y\ 1275}#
+ #{n\ 1263}#
+ #{ids\ 1264}#))
+ (lambda (#{y\
1276}#
+ #{ids\
1277}#)
(call-with-values
(lambda ()
- (#{cvt\
2429}#
- #{x\ 2442}#
- #{n\ 2431}#
- #{ids\
2445}#))
- (lambda (#{x\
2446}#
-
#{ids\ 2447}#)
+ (#{cvt\
1261}#
+ #{x\ 1274}#
+ #{n\ 1263}#
+ #{ids\
1277}#))
+ (lambda (#{x\
1278}#
+
#{ids\ 1279}#)
(values
- (cons #{x\
2446}#
- #{y\
2444}#)
- #{ids\
2447}#))))))
- #{tmp\ 2441}#)
- ((lambda (#{tmp\ 2448}#)
- (if #{tmp\ 2448}#
+ (cons #{x\
1278}#
+ #{y\
1276}#)
+ #{ids\
1279}#))))))
+ #{tmp\ 1273}#)
+ ((lambda (#{tmp\ 1280}#)
+ (if #{tmp\ 1280}#
(apply (lambda ()
(values
'()
- #{ids\
2432}#))
- #{tmp\ 2448}#)
- ((lambda (#{tmp\ 2449}#)
- (if #{tmp\ 2449}#
- (apply (lambda
(#{x\ 2450}#)
+ #{ids\
1264}#))
+ #{tmp\ 1280}#)
+ ((lambda (#{tmp\ 1281}#)
+ (if #{tmp\ 1281}#
+ (apply (lambda
(#{x\ 1282}#)
(call-with-values
(lambda
()
-
(#{cvt\ 2429}#
- #{x\
2450}#
- #{n\
2431}#
-
#{ids\ 2432}#))
- (lambda
(#{p\ 2452}#
-
#{ids\ 2453}#)
+
(#{cvt\ 1261}#
+ #{x\
1282}#
+ #{n\
1263}#
+
#{ids\ 1264}#))
+ (lambda
(#{p\ 1284}#
+
#{ids\ 1285}#)
(values
(vector
'vector
-
#{p\ 2452}#)
-
#{ids\ 2453}#))))
- #{tmp\
2449}#)
- ((lambda (#{x\
2454}#)
+
#{p\ 1284}#)
+
#{ids\ 1285}#))))
+ #{tmp\
1281}#)
+ ((lambda (#{x\
1286}#)
(values
(vector
'atom
- (#{strip\
1343}#
- #{p\ 2430}#
+ (#{strip\
175}#
+ #{p\ 1262}#
'(())))
- #{ids\ 2432}#))
- #{tmp\ 2433}#)))
+ #{ids\ 1264}#))
+ #{tmp\ 1265}#)))
($sc-dispatch
- #{tmp\ 2433}#
+ #{tmp\ 1265}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 2433}#
+ #{tmp\ 1265}#
'()))))
($sc-dispatch
- #{tmp\ 2433}#
+ #{tmp\ 1265}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 2433}#
+ #{tmp\ 1265}#
'(any any))))
- #{p\ 2430}#)))))
- (#{cvt\ 2429}# #{pattern\ 2427}# 0 (quote ()))))))
- (lambda (#{e\ 2455}#
- #{r\ 2456}#
- #{w\ 2457}#
- #{s\ 2458}#
- #{mod\ 2459}#)
- (let ((#{e\ 2460}#
- (#{source-wrap\ 1326}#
- #{e\ 2455}#
- #{w\ 2457}#
- #{s\ 2458}#
- #{mod\ 2459}#)))
- ((lambda (#{tmp\ 2461}#)
- ((lambda (#{tmp\ 2462}#)
- (if #{tmp\ 2462}#
- (apply (lambda (#{_\ 2463}#
- #{val\ 2464}#
- #{key\ 2465}#
- #{m\ 2466}#)
+ #{p\ 1262}#)))))
+ (#{cvt\ 1261}# #{pattern\ 1259}# 0 (quote ()))))))
+ (lambda (#{e\ 1287}#
+ #{r\ 1288}#
+ #{w\ 1289}#
+ #{s\ 1290}#
+ #{mod\ 1291}#)
+ (let ((#{e\ 1292}#
+ (#{source-wrap\ 158}#
+ #{e\ 1287}#
+ #{w\ 1289}#
+ #{s\ 1290}#
+ #{mod\ 1291}#)))
+ ((lambda (#{tmp\ 1293}#)
+ ((lambda (#{tmp\ 1294}#)
+ (if #{tmp\ 1294}#
+ (apply (lambda (#{_\ 1295}#
+ #{val\ 1296}#
+ #{key\ 1297}#
+ #{m\ 1298}#)
(if (and-map
- (lambda (#{x\ 2467}#)
- (if (#{id?\ 1297}# #{x\ 2467}#)
- (not (#{ellipsis?\ 1342}#
- #{x\ 2467}#))
+ (lambda (#{x\ 1299}#)
+ (if (#{id?\ 129}# #{x\ 1299}#)
+ (not (#{ellipsis?\ 174}# #{x\ 1299}#))
#f))
- #{key\ 2465}#)
- (let ((#{x\ 2469}#
- (#{gen-var\ 1344}# (quote tmp))))
- (#{build-application\ 1264}#
- #{s\ 2458}#
- (#{build-lambda\ 1273}#
+ #{key\ 1297}#)
+ (let ((#{x\ 1301}#
+ (#{gen-var\ 176}# (quote tmp))))
+ (#{build-application\ 96}#
+ #{s\ 1290}#
+ (#{build-lambda\ 105}#
#f
(list (quote tmp))
- (list #{x\ 2469}#)
+ (list #{x\ 1301}#)
#f
- (#{gen-syntax-case\ 2382}#
- (#{build-lexical-reference\ 1266}#
+ (#{gen-syntax-case\ 1214}#
+ (#{build-lexical-reference\ 98}#
'value
#f
'tmp
- #{x\ 2469}#)
- #{key\ 2465}#
- #{m\ 2466}#
- #{r\ 2456}#
- #{mod\ 2459}#))
- (list (#{chi\ 1333}#
- #{val\ 2464}#
- #{r\ 2456}#
+ #{x\ 1301}#)
+ #{key\ 1297}#
+ #{m\ 1298}#
+ #{r\ 1288}#
+ #{mod\ 1291}#))
+ (list (#{chi\ 165}#
+ #{val\ 1296}#
+ #{r\ 1288}#
'(())
- #{mod\ 2459}#))))
+ #{mod\ 1291}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 2460}#)))
- #{tmp\ 2462}#)
+ #{e\ 1292}#)))
+ #{tmp\ 1294}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2461}#)))
+ #{tmp\ 1293}#)))
($sc-dispatch
- #{tmp\ 2461}#
+ #{tmp\ 1293}#
'(any any each-any . each-any))))
- #{e\ 2460}#)))))
+ #{e\ 1292}#)))))
(set! sc-expand
- (lambda (#{x\ 2473}# . #{rest\ 2472}#)
- (if (if (pair? #{x\ 2473}#)
- (equal? (car #{x\ 2473}#) #{noexpand\ 1252}#)
+ (lambda (#{x\ 1305}# . #{rest\ 1304}#)
+ (if (if (pair? #{x\ 1305}#)
+ (equal? (car #{x\ 1305}#) #{noexpand\ 84}#)
#f)
- (cadr #{x\ 2473}#)
- (let ((#{m\ 2474}#
- (if (null? #{rest\ 2472}#)
+ (cadr #{x\ 1305}#)
+ (let ((#{m\ 1306}#
+ (if (null? #{rest\ 1304}#)
'e
- (car #{rest\ 2472}#)))
- (#{esew\ 2475}#
- (if (let ((#{t\ 2476}# (null? #{rest\ 2472}#)))
- (if #{t\ 2476}#
- #{t\ 2476}#
- (null? (cdr #{rest\ 2472}#))))
+ (car #{rest\ 1304}#)))
+ (#{esew\ 1307}#
+ (if (let ((#{t\ 1308}# (null? #{rest\ 1304}#)))
+ (if #{t\ 1308}#
+ #{t\ 1308}#
+ (null? (cdr #{rest\ 1304}#))))
'(eval)
- (cadr #{rest\ 2472}#))))
+ (cadr #{rest\ 1304}#))))
(with-fluid*
- #{*mode*\ 1253}#
- #{m\ 2474}#
+ #{*mode*\ 85}#
+ #{m\ 1306}#
(lambda ()
- (#{chi-top\ 1332}#
- #{x\ 2473}#
+ (#{chi-top\ 164}#
+ #{x\ 1305}#
'()
'((top))
- #{m\ 2474}#
- #{esew\ 2475}#
+ #{m\ 1306}#
+ #{esew\ 1307}#
(cons 'hygiene
(module-name (current-module))))))))))
(set! identifier?
- (lambda (#{x\ 2477}#)
- (#{nonsymbol-id?\ 1296}# #{x\ 2477}#)))
+ (lambda (#{x\ 1309}#)
+ (#{nonsymbol-id?\ 128}# #{x\ 1309}#)))
(set! datum->syntax
- (lambda (#{id\ 2478}# #{datum\ 2479}#)
- (#{make-syntax-object\ 1280}#
- #{datum\ 2479}#
- (#{syntax-object-wrap\ 1283}# #{id\ 2478}#)
+ (lambda (#{id\ 1310}# #{datum\ 1311}#)
+ (#{make-syntax-object\ 112}#
+ #{datum\ 1311}#
+ (#{syntax-object-wrap\ 115}# #{id\ 1310}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 2480}#)
- (#{strip\ 1343}# #{x\ 2480}# (quote (())))))
+ (lambda (#{x\ 1312}#)
+ (#{strip\ 175}# #{x\ 1312}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 2481}#)
+ (lambda (#{ls\ 1313}#)
(begin
- (let ((#{x\ 2482}# #{ls\ 2481}#))
- (if (not (list? #{x\ 2482}#))
+ (let ((#{x\ 1314}# #{ls\ 1313}#))
+ (if (not (list? #{x\ 1314}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 2482}#)))
- (map (lambda (#{x\ 2483}#)
- (#{wrap\ 1325}# (gensym) (quote ((top))) #f))
- #{ls\ 2481}#))))
+ #{x\ 1314}#)))
+ (map (lambda (#{x\ 1315}#)
+ (#{wrap\ 157}# (gensym) (quote ((top))) #f))
+ #{ls\ 1313}#))))
(set! free-identifier=?
- (lambda (#{x\ 2484}# #{y\ 2485}#)
+ (lambda (#{x\ 1316}# #{y\ 1317}#)
(begin
- (let ((#{x\ 2486}# #{x\ 2484}#))
- (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2486}#))
+ (let ((#{x\ 1318}# #{x\ 1316}#))
+ (if (not (#{nonsymbol-id?\ 128}# #{x\ 1318}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 2486}#)))
- (let ((#{x\ 2487}# #{y\ 2485}#))
- (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2487}#))
+ #{x\ 1318}#)))
+ (let ((#{x\ 1319}# #{y\ 1317}#))
+ (if (not (#{nonsymbol-id?\ 128}# #{x\ 1319}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 2487}#)))
- (#{free-id=?\ 1320}# #{x\ 2484}# #{y\ 2485}#))))
+ #{x\ 1319}#)))
+ (#{free-id=?\ 152}# #{x\ 1316}# #{y\ 1317}#))))
(set! bound-identifier=?
- (lambda (#{x\ 2488}# #{y\ 2489}#)
+ (lambda (#{x\ 1320}# #{y\ 1321}#)
(begin
- (let ((#{x\ 2490}# #{x\ 2488}#))
- (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2490}#))
+ (let ((#{x\ 1322}# #{x\ 1320}#))
+ (if (not (#{nonsymbol-id?\ 128}# #{x\ 1322}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 2490}#)))
- (let ((#{x\ 2491}# #{y\ 2489}#))
- (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2491}#))
+ #{x\ 1322}#)))
+ (let ((#{x\ 1323}# #{y\ 1321}#))
+ (if (not (#{nonsymbol-id?\ 128}# #{x\ 1323}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 2491}#)))
- (#{bound-id=?\ 1321}# #{x\ 2488}# #{y\ 2489}#))))
+ #{x\ 1323}#)))
+ (#{bound-id=?\ 153}# #{x\ 1320}# #{y\ 1321}#))))
(set! syntax-violation
- (lambda (#{who\ 2495}#
- #{message\ 2494}#
- #{form\ 2493}#
+ (lambda (#{who\ 1327}#
+ #{message\ 1326}#
+ #{form\ 1325}#
.
- #{subform\ 2492}#)
+ #{subform\ 1324}#)
(begin
- (let ((#{x\ 2496}# #{who\ 2495}#))
- (if (not ((lambda (#{x\ 2497}#)
- (let ((#{t\ 2498}# (not #{x\ 2497}#)))
- (if #{t\ 2498}#
- #{t\ 2498}#
- (let ((#{t\ 2499}# (string? #{x\ 2497}#)))
- (if #{t\ 2499}#
- #{t\ 2499}#
- (symbol? #{x\ 2497}#))))))
- #{x\ 2496}#))
+ (let ((#{x\ 1328}# #{who\ 1327}#))
+ (if (not ((lambda (#{x\ 1329}#)
+ (let ((#{t\ 1330}# (not #{x\ 1329}#)))
+ (if #{t\ 1330}#
+ #{t\ 1330}#
+ (let ((#{t\ 1331}# (string? #{x\ 1329}#)))
+ (if #{t\ 1331}#
+ #{t\ 1331}#
+ (symbol? #{x\ 1329}#))))))
+ #{x\ 1328}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 2496}#)))
- (let ((#{x\ 2500}# #{message\ 2494}#))
- (if (not (string? #{x\ 2500}#))
+ #{x\ 1328}#)))
+ (let ((#{x\ 1332}# #{message\ 1326}#))
+ (if (not (string? #{x\ 1332}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 2500}#)))
+ #{x\ 1332}#)))
(scm-error
'syntax-error
'sc-expand
(string-append
- (if #{who\ 2495}# "~a: " "")
+ (if #{who\ 1327}# "~a: " "")
"~a "
- (if (null? #{subform\ 2492}#)
+ (if (null? #{subform\ 1324}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 2501}#
- (cons #{message\ 2494}#
- (map (lambda (#{x\ 2502}#)
- (#{strip\ 1343}# #{x\ 2502}# (quote (()))))
+ (let ((#{tail\ 1333}#
+ (cons #{message\ 1326}#
+ (map (lambda (#{x\ 1334}#)
+ (#{strip\ 175}# #{x\ 1334}# (quote (()))))
(append
- #{subform\ 2492}#
- (list #{form\ 2493}#))))))
- (if #{who\ 2495}#
- (cons #{who\ 2495}# #{tail\ 2501}#)
- #{tail\ 2501}#))
+ #{subform\ 1324}#
+ (list #{form\ 1325}#))))))
+ (if #{who\ 1327}#
+ (cons #{who\ 1327}# #{tail\ 1333}#)
+ #{tail\ 1333}#))
#f))))
- (letrec ((#{match\ 2507}#
- (lambda (#{e\ 2508}#
- #{p\ 2509}#
- #{w\ 2510}#
- #{r\ 2511}#
- #{mod\ 2512}#)
- (if (not #{r\ 2511}#)
+ (letrec ((#{match\ 1339}#
+ (lambda (#{e\ 1340}#
+ #{p\ 1341}#
+ #{w\ 1342}#
+ #{r\ 1343}#
+ #{mod\ 1344}#)
+ (if (not #{r\ 1343}#)
#f
- (if (eq? #{p\ 2509}# (quote any))
- (cons (#{wrap\ 1325}#
- #{e\ 2508}#
- #{w\ 2510}#
- #{mod\ 2512}#)
- #{r\ 2511}#)
- (if (#{syntax-object?\ 1281}# #{e\ 2508}#)
- (#{match*\ 2506}#
- (#{syntax-object-expression\ 1282}# #{e\ 2508}#)
- #{p\ 2509}#
- (#{join-wraps\ 1316}#
- #{w\ 2510}#
- (#{syntax-object-wrap\ 1283}# #{e\ 2508}#))
- #{r\ 2511}#
- (#{syntax-object-module\ 1284}# #{e\ 2508}#))
- (#{match*\ 2506}#
- #{e\ 2508}#
- #{p\ 2509}#
- #{w\ 2510}#
- #{r\ 2511}#
- #{mod\ 2512}#))))))
- (#{match*\ 2506}#
- (lambda (#{e\ 2513}#
- #{p\ 2514}#
- #{w\ 2515}#
- #{r\ 2516}#
- #{mod\ 2517}#)
- (if (null? #{p\ 2514}#)
- (if (null? #{e\ 2513}#) #{r\ 2516}# #f)
- (if (pair? #{p\ 2514}#)
- (if (pair? #{e\ 2513}#)
- (#{match\ 2507}#
- (car #{e\ 2513}#)
- (car #{p\ 2514}#)
- #{w\ 2515}#
- (#{match\ 2507}#
- (cdr #{e\ 2513}#)
- (cdr #{p\ 2514}#)
- #{w\ 2515}#
- #{r\ 2516}#
- #{mod\ 2517}#)
- #{mod\ 2517}#)
+ (if (eq? #{p\ 1341}# (quote any))
+ (cons (#{wrap\ 157}#
+ #{e\ 1340}#
+ #{w\ 1342}#
+ #{mod\ 1344}#)
+ #{r\ 1343}#)
+ (if (#{syntax-object?\ 113}# #{e\ 1340}#)
+ (#{match*\ 1338}#
+ (#{syntax-object-expression\ 114}# #{e\ 1340}#)
+ #{p\ 1341}#
+ (#{join-wraps\ 148}#
+ #{w\ 1342}#
+ (#{syntax-object-wrap\ 115}# #{e\ 1340}#))
+ #{r\ 1343}#
+ (#{syntax-object-module\ 116}# #{e\ 1340}#))
+ (#{match*\ 1338}#
+ #{e\ 1340}#
+ #{p\ 1341}#
+ #{w\ 1342}#
+ #{r\ 1343}#
+ #{mod\ 1344}#))))))
+ (#{match*\ 1338}#
+ (lambda (#{e\ 1345}#
+ #{p\ 1346}#
+ #{w\ 1347}#
+ #{r\ 1348}#
+ #{mod\ 1349}#)
+ (if (null? #{p\ 1346}#)
+ (if (null? #{e\ 1345}#) #{r\ 1348}# #f)
+ (if (pair? #{p\ 1346}#)
+ (if (pair? #{e\ 1345}#)
+ (#{match\ 1339}#
+ (car #{e\ 1345}#)
+ (car #{p\ 1346}#)
+ #{w\ 1347}#
+ (#{match\ 1339}#
+ (cdr #{e\ 1345}#)
+ (cdr #{p\ 1346}#)
+ #{w\ 1347}#
+ #{r\ 1348}#
+ #{mod\ 1349}#)
+ #{mod\ 1349}#)
#f)
- (if (eq? #{p\ 2514}# (quote each-any))
- (let ((#{l\ 2518}#
- (#{match-each-any\ 2504}#
- #{e\ 2513}#
- #{w\ 2515}#
- #{mod\ 2517}#)))
- (if #{l\ 2518}#
- (cons #{l\ 2518}# #{r\ 2516}#)
+ (if (eq? #{p\ 1346}# (quote each-any))
+ (let ((#{l\ 1350}#
+ (#{match-each-any\ 1336}#
+ #{e\ 1345}#
+ #{w\ 1347}#
+ #{mod\ 1349}#)))
+ (if #{l\ 1350}#
+ (cons #{l\ 1350}# #{r\ 1348}#)
#f))
- (let ((#{atom-key\ 2519}# (vector-ref #{p\ 2514}# 0)))
- (if (memv #{atom-key\ 2519}# (quote (each)))
- (if (null? #{e\ 2513}#)
- (#{match-empty\ 2505}#
- (vector-ref #{p\ 2514}# 1)
- #{r\ 2516}#)
- (let ((#{l\ 2520}#
- (#{match-each\ 2503}#
- #{e\ 2513}#
- (vector-ref #{p\ 2514}# 1)
- #{w\ 2515}#
- #{mod\ 2517}#)))
- (if #{l\ 2520}#
- (letrec ((#{collect\ 2521}#
- (lambda (#{l\ 2522}#)
- (if (null? (car #{l\ 2522}#))
- #{r\ 2516}#
- (cons (map car #{l\ 2522}#)
- (#{collect\ 2521}#
+ (let ((#{atom-key\ 1351}# (vector-ref #{p\ 1346}# 0)))
+ (if (memv #{atom-key\ 1351}# (quote (each)))
+ (if (null? #{e\ 1345}#)
+ (#{match-empty\ 1337}#
+ (vector-ref #{p\ 1346}# 1)
+ #{r\ 1348}#)
+ (let ((#{l\ 1352}#
+ (#{match-each\ 1335}#
+ #{e\ 1345}#
+ (vector-ref #{p\ 1346}# 1)
+ #{w\ 1347}#
+ #{mod\ 1349}#)))
+ (if #{l\ 1352}#
+ (letrec ((#{collect\ 1353}#
+ (lambda (#{l\ 1354}#)
+ (if (null? (car #{l\ 1354}#))
+ #{r\ 1348}#
+ (cons (map car #{l\ 1354}#)
+ (#{collect\ 1353}#
(map cdr
- #{l\
2522}#)))))))
- (#{collect\ 2521}# #{l\ 2520}#))
+ #{l\
1354}#)))))))
+ (#{collect\ 1353}# #{l\ 1352}#))
#f)))
- (if (memv #{atom-key\ 2519}# (quote (free-id)))
- (if (#{id?\ 1297}# #{e\ 2513}#)
- (if (#{free-id=?\ 1320}#
- (#{wrap\ 1325}#
- #{e\ 2513}#
- #{w\ 2515}#
- #{mod\ 2517}#)
- (vector-ref #{p\ 2514}# 1))
- #{r\ 2516}#
+ (if (memv #{atom-key\ 1351}# (quote (free-id)))
+ (if (#{id?\ 129}# #{e\ 1345}#)
+ (if (#{free-id=?\ 152}#
+ (#{wrap\ 157}#
+ #{e\ 1345}#
+ #{w\ 1347}#
+ #{mod\ 1349}#)
+ (vector-ref #{p\ 1346}# 1))
+ #{r\ 1348}#
#f)
#f)
- (if (memv #{atom-key\ 2519}# (quote (atom)))
+ (if (memv #{atom-key\ 1351}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 2514}# 1)
- (#{strip\ 1343}#
- #{e\ 2513}#
- #{w\ 2515}#))
- #{r\ 2516}#
+ (vector-ref #{p\ 1346}# 1)
+ (#{strip\ 175}#
+ #{e\ 1345}#
+ #{w\ 1347}#))
+ #{r\ 1348}#
#f)
- (if (memv #{atom-key\ 2519}# (quote (vector)))
- (if (vector? #{e\ 2513}#)
- (#{match\ 2507}#
- (vector->list #{e\ 2513}#)
- (vector-ref #{p\ 2514}# 1)
- #{w\ 2515}#
- #{r\ 2516}#
- #{mod\ 2517}#)
+ (if (memv #{atom-key\ 1351}# (quote (vector)))
+ (if (vector? #{e\ 1345}#)
+ (#{match\ 1339}#
+ (vector->list #{e\ 1345}#)
+ (vector-ref #{p\ 1346}# 1)
+ #{w\ 1347}#
+ #{r\ 1348}#
+ #{mod\ 1349}#)
#f)))))))))))
- (#{match-empty\ 2505}#
- (lambda (#{p\ 2523}# #{r\ 2524}#)
- (if (null? #{p\ 2523}#)
- #{r\ 2524}#
- (if (eq? #{p\ 2523}# (quote any))
- (cons (quote ()) #{r\ 2524}#)
- (if (pair? #{p\ 2523}#)
- (#{match-empty\ 2505}#
- (car #{p\ 2523}#)
- (#{match-empty\ 2505}#
- (cdr #{p\ 2523}#)
- #{r\ 2524}#))
- (if (eq? #{p\ 2523}# (quote each-any))
- (cons (quote ()) #{r\ 2524}#)
- (let ((#{atom-key\ 2525}#
- (vector-ref #{p\ 2523}# 0)))
- (if (memv #{atom-key\ 2525}# (quote (each)))
- (#{match-empty\ 2505}#
- (vector-ref #{p\ 2523}# 1)
- #{r\ 2524}#)
- (if (memv #{atom-key\ 2525}#
+ (#{match-empty\ 1337}#
+ (lambda (#{p\ 1355}# #{r\ 1356}#)
+ (if (null? #{p\ 1355}#)
+ #{r\ 1356}#
+ (if (eq? #{p\ 1355}# (quote any))
+ (cons (quote ()) #{r\ 1356}#)
+ (if (pair? #{p\ 1355}#)
+ (#{match-empty\ 1337}#
+ (car #{p\ 1355}#)
+ (#{match-empty\ 1337}#
+ (cdr #{p\ 1355}#)
+ #{r\ 1356}#))
+ (if (eq? #{p\ 1355}# (quote each-any))
+ (cons (quote ()) #{r\ 1356}#)
+ (let ((#{atom-key\ 1357}#
+ (vector-ref #{p\ 1355}# 0)))
+ (if (memv #{atom-key\ 1357}# (quote (each)))
+ (#{match-empty\ 1337}#
+ (vector-ref #{p\ 1355}# 1)
+ #{r\ 1356}#)
+ (if (memv #{atom-key\ 1357}#
'(free-id atom))
- #{r\ 2524}#
- (if (memv #{atom-key\ 2525}# (quote (vector)))
- (#{match-empty\ 2505}#
- (vector-ref #{p\ 2523}# 1)
- #{r\ 2524}#)))))))))))
- (#{match-each-any\ 2504}#
- (lambda (#{e\ 2526}# #{w\ 2527}# #{mod\ 2528}#)
- (if (pair? #{e\ 2526}#)
- (let ((#{l\ 2529}#
- (#{match-each-any\ 2504}#
- (cdr #{e\ 2526}#)
- #{w\ 2527}#
- #{mod\ 2528}#)))
- (if #{l\ 2529}#
- (cons (#{wrap\ 1325}#
- (car #{e\ 2526}#)
- #{w\ 2527}#
- #{mod\ 2528}#)
- #{l\ 2529}#)
+ #{r\ 1356}#
+ (if (memv #{atom-key\ 1357}# (quote (vector)))
+ (#{match-empty\ 1337}#
+ (vector-ref #{p\ 1355}# 1)
+ #{r\ 1356}#)))))))))))
+ (#{match-each-any\ 1336}#
+ (lambda (#{e\ 1358}# #{w\ 1359}# #{mod\ 1360}#)
+ (if (pair? #{e\ 1358}#)
+ (let ((#{l\ 1361}#
+ (#{match-each-any\ 1336}#
+ (cdr #{e\ 1358}#)
+ #{w\ 1359}#
+ #{mod\ 1360}#)))
+ (if #{l\ 1361}#
+ (cons (#{wrap\ 157}#
+ (car #{e\ 1358}#)
+ #{w\ 1359}#
+ #{mod\ 1360}#)
+ #{l\ 1361}#)
#f))
- (if (null? #{e\ 2526}#)
+ (if (null? #{e\ 1358}#)
'()
- (if (#{syntax-object?\ 1281}# #{e\ 2526}#)
- (#{match-each-any\ 2504}#
- (#{syntax-object-expression\ 1282}# #{e\ 2526}#)
- (#{join-wraps\ 1316}#
- #{w\ 2527}#
- (#{syntax-object-wrap\ 1283}# #{e\ 2526}#))
- #{mod\ 2528}#)
+ (if (#{syntax-object?\ 113}# #{e\ 1358}#)
+ (#{match-each-any\ 1336}#
+ (#{syntax-object-expression\ 114}# #{e\ 1358}#)
+ (#{join-wraps\ 148}#
+ #{w\ 1359}#
+ (#{syntax-object-wrap\ 115}# #{e\ 1358}#))
+ #{mod\ 1360}#)
#f)))))
- (#{match-each\ 2503}#
- (lambda (#{e\ 2530}#
- #{p\ 2531}#
- #{w\ 2532}#
- #{mod\ 2533}#)
- (if (pair? #{e\ 2530}#)
- (let ((#{first\ 2534}#
- (#{match\ 2507}#
- (car #{e\ 2530}#)
- #{p\ 2531}#
- #{w\ 2532}#
+ (#{match-each\ 1335}#
+ (lambda (#{e\ 1362}#
+ #{p\ 1363}#
+ #{w\ 1364}#
+ #{mod\ 1365}#)
+ (if (pair? #{e\ 1362}#)
+ (let ((#{first\ 1366}#
+ (#{match\ 1339}#
+ (car #{e\ 1362}#)
+ #{p\ 1363}#
+ #{w\ 1364}#
'()
- #{mod\ 2533}#)))
- (if #{first\ 2534}#
- (let ((#{rest\ 2535}#
- (#{match-each\ 2503}#
- (cdr #{e\ 2530}#)
- #{p\ 2531}#
- #{w\ 2532}#
- #{mod\ 2533}#)))
- (if #{rest\ 2535}#
- (cons #{first\ 2534}# #{rest\ 2535}#)
+ #{mod\ 1365}#)))
+ (if #{first\ 1366}#
+ (let ((#{rest\ 1367}#
+ (#{match-each\ 1335}#
+ (cdr #{e\ 1362}#)
+ #{p\ 1363}#
+ #{w\ 1364}#
+ #{mod\ 1365}#)))
+ (if #{rest\ 1367}#
+ (cons #{first\ 1366}# #{rest\ 1367}#)
#f))
#f))
- (if (null? #{e\ 2530}#)
+ (if (null? #{e\ 1362}#)
'()
- (if (#{syntax-object?\ 1281}# #{e\ 2530}#)
- (#{match-each\ 2503}#
- (#{syntax-object-expression\ 1282}# #{e\ 2530}#)
- #{p\ 2531}#
- (#{join-wraps\ 1316}#
- #{w\ 2532}#
- (#{syntax-object-wrap\ 1283}# #{e\ 2530}#))
- (#{syntax-object-module\ 1284}# #{e\ 2530}#))
+ (if (#{syntax-object?\ 113}# #{e\ 1362}#)
+ (#{match-each\ 1335}#
+ (#{syntax-object-expression\ 114}# #{e\ 1362}#)
+ #{p\ 1363}#
+ (#{join-wraps\ 148}#
+ #{w\ 1364}#
+ (#{syntax-object-wrap\ 115}# #{e\ 1362}#))
+ (#{syntax-object-module\ 116}# #{e\ 1362}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 2536}# #{p\ 2537}#)
- (if (eq? #{p\ 2537}# (quote any))
- (list #{e\ 2536}#)
- (if (#{syntax-object?\ 1281}# #{e\ 2536}#)
- (#{match*\ 2506}#
- (#{syntax-object-expression\ 1282}# #{e\ 2536}#)
- #{p\ 2537}#
- (#{syntax-object-wrap\ 1283}# #{e\ 2536}#)
+ (lambda (#{e\ 1368}# #{p\ 1369}#)
+ (if (eq? #{p\ 1369}# (quote any))
+ (list #{e\ 1368}#)
+ (if (#{syntax-object?\ 113}# #{e\ 1368}#)
+ (#{match*\ 1338}#
+ (#{syntax-object-expression\ 114}# #{e\ 1368}#)
+ #{p\ 1369}#
+ (#{syntax-object-wrap\ 115}# #{e\ 1368}#)
'()
- (#{syntax-object-module\ 1284}# #{e\ 2536}#))
- (#{match*\ 2506}#
- #{e\ 2536}#
- #{p\ 2537}#
+ (#{syntax-object-module\ 116}# #{e\ 1368}#))
+ (#{match*\ 1338}#
+ #{e\ 1368}#
+ #{p\ 1369}#
'(())
'()
#f)))))))))
@@ -9157,11 +9179,11 @@
(define with-syntax
(make-syncase-macro
'macro
- (lambda (#{x\ 2538}#)
- ((lambda (#{tmp\ 2539}#)
- ((lambda (#{tmp\ 2540}#)
- (if #{tmp\ 2540}#
- (apply (lambda (#{_\ 2541}# #{e1\ 2542}# #{e2\ 2543}#)
+ (lambda (#{x\ 1370}#)
+ ((lambda (#{tmp\ 1371}#)
+ ((lambda (#{tmp\ 1372}#)
+ (if #{tmp\ 1372}#
+ (apply (lambda (#{_\ 1373}# #{e1\ 1374}# #{e2\ 1375}#)
(cons '#(syntax-object
begin
((top)
@@ -9172,15 +9194,15 @@
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))
(hygiene guile))
- (cons #{e1\ 2542}# #{e2\ 2543}#)))
- #{tmp\ 2540}#)
- ((lambda (#{tmp\ 2545}#)
- (if #{tmp\ 2545}#
- (apply (lambda (#{_\ 2546}#
- #{out\ 2547}#
- #{in\ 2548}#
- #{e1\ 2549}#
- #{e2\ 2550}#)
+ (cons #{e1\ 1374}# #{e2\ 1375}#)))
+ #{tmp\ 1372}#)
+ ((lambda (#{tmp\ 1377}#)
+ (if #{tmp\ 1377}#
+ (apply (lambda (#{_\ 1378}#
+ #{out\ 1379}#
+ #{in\ 1380}#
+ #{e1\ 1381}#
+ #{e2\ 1382}#)
(list '#(syntax-object
syntax-case
((top)
@@ -9191,9 +9213,9 @@
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))
(hygiene guile))
- #{in\ 2548}#
+ #{in\ 1380}#
'()
- (list #{out\ 2547}#
+ (list #{out\ 1379}#
(cons '#(syntax-object
begin
((top)
@@ -9211,16 +9233,16 @@
#((top))
#("i")))
(hygiene guile))
- (cons #{e1\ 2549}#
- #{e2\ 2550}#)))))
- #{tmp\ 2545}#)
- ((lambda (#{tmp\ 2552}#)
- (if #{tmp\ 2552}#
- (apply (lambda (#{_\ 2553}#
- #{out\ 2554}#
- #{in\ 2555}#
- #{e1\ 2556}#
- #{e2\ 2557}#)
+ (cons #{e1\ 1381}#
+ #{e2\ 1382}#)))))
+ #{tmp\ 1377}#)
+ ((lambda (#{tmp\ 1384}#)
+ (if #{tmp\ 1384}#
+ (apply (lambda (#{_\ 1385}#
+ #{out\ 1386}#
+ #{in\ 1387}#
+ #{e1\ 1388}#
+ #{e2\ 1389}#)
(list '#(syntax-object
syntax-case
((top)
@@ -9248,9 +9270,9 @@
#((top))
#("i")))
(hygiene guile))
- #{in\ 2555}#)
+ #{in\ 1387}#)
'()
- (list #{out\ 2554}#
+ (list #{out\ 1386}#
(cons '#(syntax-object
begin
((top)
@@ -9272,36 +9294,36 @@
#((top))
#("i")))
(hygiene guile))
- (cons #{e1\ 2556}#
- #{e2\ 2557}#)))))
- #{tmp\ 2552}#)
+ (cons #{e1\ 1388}#
+ #{e2\ 1389}#)))))
+ #{tmp\ 1384}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2539}#)))
+ #{tmp\ 1371}#)))
($sc-dispatch
- #{tmp\ 2539}#
+ #{tmp\ 1371}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 2539}#
+ #{tmp\ 1371}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 2539}#
+ #{tmp\ 1371}#
'(any () any . each-any))))
- #{x\ 2538}#))))
+ #{x\ 1370}#))))
(define syntax-rules
(make-syncase-macro
'macro
- (lambda (#{x\ 2561}#)
- ((lambda (#{tmp\ 2562}#)
- ((lambda (#{tmp\ 2563}#)
- (if #{tmp\ 2563}#
- (apply (lambda (#{_\ 2564}#
- #{k\ 2565}#
- #{keyword\ 2566}#
- #{pattern\ 2567}#
- #{template\ 2568}#)
+ (lambda (#{x\ 1393}#)
+ ((lambda (#{tmp\ 1394}#)
+ ((lambda (#{tmp\ 1395}#)
+ (if #{tmp\ 1395}#
+ (apply (lambda (#{_\ 1396}#
+ #{k\ 1397}#
+ #{keyword\ 1398}#
+ #{pattern\ 1399}#
+ #{template\ 1400}#)
(list '#(syntax-object
lambda
((top)
@@ -9342,9 +9364,9 @@
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))
(hygiene guile))
- (cons #{k\ 2565}#
- (map (lambda (#{tmp\ 2571}#
- #{tmp\ 2570}#)
+ (cons #{k\ 1397}#
+ (map (lambda (#{tmp\ 1403}#
+ #{tmp\ 1402}#)
(list (cons
'#(syntax-object
dummy
((top)
@@ -9374,7 +9396,7 @@
#("i")))
(hygiene
guile))
- #{tmp\
2570}#)
+ #{tmp\
1402}#)
(list
'#(syntax-object
syntax
((top)
@@ -9404,43 +9426,43 @@
#("i")))
(hygiene
guile))
- #{tmp\
2571}#)))
- #{template\ 2568}#
- #{pattern\ 2567}#))))))
- #{tmp\ 2563}#)
+ #{tmp\
1403}#)))
+ #{template\ 1400}#
+ #{pattern\ 1399}#))))))
+ #{tmp\ 1395}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2562}#)))
+ #{tmp\ 1394}#)))
($sc-dispatch
- #{tmp\ 2562}#
+ #{tmp\ 1394}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 2561}#))))
+ #{x\ 1393}#))))
(define let*
(make-extended-syncase-macro
(module-ref (current-module) (quote let*))
'macro
- (lambda (#{x\ 2572}#)
- ((lambda (#{tmp\ 2573}#)
- ((lambda (#{tmp\ 2574}#)
- (if (if #{tmp\ 2574}#
- (apply (lambda (#{let*\ 2575}#
- #{x\ 2576}#
- #{v\ 2577}#
- #{e1\ 2578}#
- #{e2\ 2579}#)
- (and-map identifier? #{x\ 2576}#))
- #{tmp\ 2574}#)
+ (lambda (#{x\ 1404}#)
+ ((lambda (#{tmp\ 1405}#)
+ ((lambda (#{tmp\ 1406}#)
+ (if (if #{tmp\ 1406}#
+ (apply (lambda (#{let*\ 1407}#
+ #{x\ 1408}#
+ #{v\ 1409}#
+ #{e1\ 1410}#
+ #{e2\ 1411}#)
+ (and-map identifier? #{x\ 1408}#))
+ #{tmp\ 1406}#)
#f)
- (apply (lambda (#{let*\ 2581}#
- #{x\ 2582}#
- #{v\ 2583}#
- #{e1\ 2584}#
- #{e2\ 2585}#)
- (letrec ((#{f\ 2586}#
- (lambda (#{bindings\ 2587}#)
- (if (null? #{bindings\ 2587}#)
+ (apply (lambda (#{let*\ 1413}#
+ #{x\ 1414}#
+ #{v\ 1415}#
+ #{e1\ 1416}#
+ #{e2\ 1417}#)
+ (letrec ((#{f\ 1418}#
+ (lambda (#{bindings\ 1419}#)
+ (if (null? #{bindings\ 1419}#)
(cons '#(syntax-object
let
((top)
@@ -9464,13 +9486,13 @@
#("i")))
(hygiene guile))
(cons '()
- (cons #{e1\ 2584}#
- #{e2\ 2585}#)))
- ((lambda (#{tmp\ 2591}#)
- ((lambda (#{tmp\ 2592}#)
- (if #{tmp\ 2592}#
- (apply (lambda (#{body\ 2593}#
- #{binding\
2594}#)
+ (cons #{e1\ 1416}#
+ #{e2\ 1417}#)))
+ ((lambda (#{tmp\ 1423}#)
+ ((lambda (#{tmp\ 1424}#)
+ (if #{tmp\ 1424}#
+ (apply (lambda (#{body\ 1425}#
+ #{binding\
1426}#)
(list '#(syntax-object
let
((top)
@@ -9516,52 +9538,52 @@
#("i")))
(hygiene
guile))
- (list #{binding\
2594}#)
- #{body\ 2593}#))
- #{tmp\ 2592}#)
+ (list #{binding\
1426}#)
+ #{body\ 1425}#))
+ #{tmp\ 1424}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 2591}#)))
+ #{tmp\ 1423}#)))
($sc-dispatch
- #{tmp\ 2591}#
+ #{tmp\ 1423}#
'(any any))))
- (list (#{f\ 2586}#
- (cdr #{bindings\ 2587}#))
- (car #{bindings\ 2587}#)))))))
- (#{f\ 2586}# (map list #{x\ 2582}# #{v\ 2583}#))))
- #{tmp\ 2574}#)
+ (list (#{f\ 1418}#
+ (cdr #{bindings\ 1419}#))
+ (car #{bindings\ 1419}#)))))))
+ (#{f\ 1418}# (map list #{x\ 1414}# #{v\ 1415}#))))
+ #{tmp\ 1406}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2573}#)))
+ #{tmp\ 1405}#)))
($sc-dispatch
- #{tmp\ 2573}#
+ #{tmp\ 1405}#
'(any #(each (any any)) any . each-any))))
- #{x\ 2572}#))))
+ #{x\ 1404}#))))
(define do
(make-extended-syncase-macro
(module-ref (current-module) (quote do))
'macro
- (lambda (#{orig-x\ 2595}#)
- ((lambda (#{tmp\ 2596}#)
- ((lambda (#{tmp\ 2597}#)
- (if #{tmp\ 2597}#
- (apply (lambda (#{_\ 2598}#
- #{var\ 2599}#
- #{init\ 2600}#
- #{step\ 2601}#
- #{e0\ 2602}#
- #{e1\ 2603}#
- #{c\ 2604}#)
- ((lambda (#{tmp\ 2605}#)
- ((lambda (#{tmp\ 2606}#)
- (if #{tmp\ 2606}#
- (apply (lambda (#{step\ 2607}#)
- ((lambda (#{tmp\ 2608}#)
- ((lambda (#{tmp\ 2609}#)
- (if #{tmp\ 2609}#
+ (lambda (#{orig-x\ 1427}#)
+ ((lambda (#{tmp\ 1428}#)
+ ((lambda (#{tmp\ 1429}#)
+ (if #{tmp\ 1429}#
+ (apply (lambda (#{_\ 1430}#
+ #{var\ 1431}#
+ #{init\ 1432}#
+ #{step\ 1433}#
+ #{e0\ 1434}#
+ #{e1\ 1435}#
+ #{c\ 1436}#)
+ ((lambda (#{tmp\ 1437}#)
+ ((lambda (#{tmp\ 1438}#)
+ (if #{tmp\ 1438}#
+ (apply (lambda (#{step\ 1439}#)
+ ((lambda (#{tmp\ 1440}#)
+ ((lambda (#{tmp\ 1441}#)
+ (if #{tmp\ 1441}#
(apply (lambda ()
(list '#(syntax-object
let
@@ -9642,8 +9664,8 @@
(hygiene
guile))
(map list
- #{var\
2599}#
- #{init\
2600}#)
+ #{var\
1431}#
+ #{init\
1432}#)
(list
'#(syntax-object
if
((top)
@@ -9722,7 +9744,7 @@
#("i")))
(hygiene
guile))
-
#{e0\ 2602}#)
+
#{e0\ 1434}#)
(cons
'#(syntax-object
begin
((top)
@@ -9763,7 +9785,7 @@
(hygiene
guile))
(append
-
#{c\ 2604}#
+
#{c\ 1436}#
(list (cons '#(syntax-object
doloop
((top)
@@ -9803,12 +9825,12 @@
#("i")))
(hygiene
guile))
-
#{step\ 2607}#)))))))
- #{tmp\ 2609}#)
- ((lambda (#{tmp\ 2614}#)
- (if #{tmp\ 2614}#
- (apply (lambda (#{e1\
2615}#
- #{e2\
2616}#)
+
#{step\ 1439}#)))))))
+ #{tmp\ 1441}#)
+ ((lambda (#{tmp\ 1446}#)
+ (if #{tmp\ 1446}#
+ (apply (lambda (#{e1\
1447}#
+ #{e2\
1448}#)
(list
'#(syntax-object
let
((top)
@@ -9902,8 +9924,8 @@
(hygiene
guile))
(map list
-
#{var\ 2599}#
-
#{init\ 2600}#)
+
#{var\ 1431}#
+
#{init\ 1432}#)
(list
'#(syntax-object
if
((top)
@@ -9950,7 +9972,7 @@
#("i")))
(hygiene
guile))
-
#{e0\ 2602}#
+
#{e0\ 1434}#
(cons '#(syntax-object
begin
((top)
@@ -9997,8 +10019,8 @@
#("i")))
(hygiene
guile))
-
(cons #{e1\ 2615}#
-
#{e2\ 2616}#))
+
(cons #{e1\ 1447}#
+
#{e2\ 1448}#))
(cons '#(syntax-object
begin
((top)
@@ -10046,7 +10068,7 @@
(hygiene
guile))
(append
-
#{c\ 2604}#
+
#{c\ 1436}#
(list (cons '#(syntax-object
doloop
((top)
@@ -10093,81 +10115,81 @@
#("i")))
(hygiene
guile))
-
#{step\ 2607}#)))))))
- #{tmp\ 2614}#)
+
#{step\ 1439}#)))))))
+ #{tmp\ 1446}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 2608}#)))
+ #{tmp\ 1440}#)))
($sc-dispatch
- #{tmp\ 2608}#
+ #{tmp\ 1440}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 2608}#
+ #{tmp\ 1440}#
'())))
- #{e1\ 2603}#))
- #{tmp\ 2606}#)
+ #{e1\ 1435}#))
+ #{tmp\ 1438}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 2605}#)))
- ($sc-dispatch #{tmp\ 2605}# (quote each-any))))
- (map (lambda (#{v\ 2623}# #{s\ 2624}#)
- ((lambda (#{tmp\ 2625}#)
- ((lambda (#{tmp\ 2626}#)
- (if #{tmp\ 2626}#
- (apply (lambda () #{v\ 2623}#)
- #{tmp\ 2626}#)
- ((lambda (#{tmp\ 2627}#)
- (if #{tmp\ 2627}#
- (apply (lambda (#{e\ 2628}#)
- #{e\ 2628}#)
- #{tmp\ 2627}#)
- ((lambda (#{_\ 2629}#)
+ #{tmp\ 1437}#)))
+ ($sc-dispatch #{tmp\ 1437}# (quote each-any))))
+ (map (lambda (#{v\ 1455}# #{s\ 1456}#)
+ ((lambda (#{tmp\ 1457}#)
+ ((lambda (#{tmp\ 1458}#)
+ (if #{tmp\ 1458}#
+ (apply (lambda () #{v\ 1455}#)
+ #{tmp\ 1458}#)
+ ((lambda (#{tmp\ 1459}#)
+ (if #{tmp\ 1459}#
+ (apply (lambda (#{e\ 1460}#)
+ #{e\ 1460}#)
+ #{tmp\ 1459}#)
+ ((lambda (#{_\ 1461}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 2595}#
- #{s\ 2624}#))
- #{tmp\ 2625}#)))
+ #{orig-x\ 1427}#
+ #{s\ 1456}#))
+ #{tmp\ 1457}#)))
($sc-dispatch
- #{tmp\ 2625}#
+ #{tmp\ 1457}#
'(any)))))
- ($sc-dispatch #{tmp\ 2625}# (quote ()))))
- #{s\ 2624}#))
- #{var\ 2599}#
- #{step\ 2601}#)))
- #{tmp\ 2597}#)
+ ($sc-dispatch #{tmp\ 1457}# (quote ()))))
+ #{s\ 1456}#))
+ #{var\ 1431}#
+ #{step\ 1433}#)))
+ #{tmp\ 1429}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2596}#)))
+ #{tmp\ 1428}#)))
($sc-dispatch
- #{tmp\ 2596}#
+ #{tmp\ 1428}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 2595}#))))
+ #{orig-x\ 1427}#))))
(define quasiquote
(make-extended-syncase-macro
(module-ref (current-module) (quote quasiquote))
'macro
- (letrec ((#{quasicons\ 2632}#
- (lambda (#{x\ 2636}# #{y\ 2637}#)
- ((lambda (#{tmp\ 2638}#)
- ((lambda (#{tmp\ 2639}#)
- (if #{tmp\ 2639}#
- (apply (lambda (#{x\ 2640}# #{y\ 2641}#)
- ((lambda (#{tmp\ 2642}#)
- ((lambda (#{tmp\ 2643}#)
- (if #{tmp\ 2643}#
- (apply (lambda (#{dy\ 2644}#)
- ((lambda (#{tmp\ 2645}#)
- ((lambda (#{tmp\ 2646}#)
- (if #{tmp\ 2646}#
- (apply (lambda
(#{dx\ 2647}#)
+ (letrec ((#{quasicons\ 1464}#
+ (lambda (#{x\ 1468}# #{y\ 1469}#)
+ ((lambda (#{tmp\ 1470}#)
+ ((lambda (#{tmp\ 1471}#)
+ (if #{tmp\ 1471}#
+ (apply (lambda (#{x\ 1472}# #{y\ 1473}#)
+ ((lambda (#{tmp\ 1474}#)
+ ((lambda (#{tmp\ 1475}#)
+ (if #{tmp\ 1475}#
+ (apply (lambda (#{dy\ 1476}#)
+ ((lambda (#{tmp\ 1477}#)
+ ((lambda (#{tmp\ 1478}#)
+ (if #{tmp\ 1478}#
+ (apply (lambda
(#{dx\ 1479}#)
(list
'#(syntax-object
quote
((top)
@@ -10216,11 +10238,11 @@
"i")))
(hygiene
guile))
-
(cons #{dx\ 2647}#
-
#{dy\ 2644}#)))
- #{tmp\
2646}#)
- ((lambda (#{_\
2648}#)
- (if (null? #{dy\
2644}#)
+
(cons #{dx\ 1479}#
+
#{dy\ 1476}#)))
+ #{tmp\
1478}#)
+ ((lambda (#{_\
1480}#)
+ (if (null? #{dy\
1476}#)
(list
'#(syntax-object
list
((top)
@@ -10269,7 +10291,7 @@
"i")))
(hygiene
guile))
- #{x\
2640}#)
+ #{x\
1472}#)
(list
'#(syntax-object
cons
((top)
@@ -10318,11 +10340,11 @@
"i")))
(hygiene
guile))
- #{x\
2640}#
- #{y\
2641}#)))
- #{tmp\ 2645}#)))
+ #{x\
1472}#
+ #{y\
1473}#)))
+ #{tmp\ 1477}#)))
($sc-dispatch
- #{tmp\ 2645}#
+ #{tmp\ 1477}#
'(#(free-id
#(syntax-object
quote
@@ -10365,11 +10387,11 @@
(hygiene
guile)))
any))))
- #{x\ 2640}#))
- #{tmp\ 2643}#)
- ((lambda (#{tmp\ 2649}#)
- (if #{tmp\ 2649}#
- (apply (lambda (#{stuff\ 2650}#)
+ #{x\ 1472}#))
+ #{tmp\ 1475}#)
+ ((lambda (#{tmp\ 1481}#)
+ (if #{tmp\ 1481}#
+ (apply (lambda (#{stuff\ 1482}#)
(cons '#(syntax-object
list
((top)
@@ -10410,10 +10432,10 @@
"i")))
(hygiene
guile))
- (cons #{x\ 2640}#
- #{stuff\
2650}#)))
- #{tmp\ 2649}#)
- ((lambda (#{else\ 2651}#)
+ (cons #{x\ 1472}#
+ #{stuff\
1482}#)))
+ #{tmp\ 1481}#)
+ ((lambda (#{else\ 1483}#)
(list '#(syntax-object
cons
((top)
@@ -10445,11 +10467,11 @@
"i"
"i")))
(hygiene guile))
- #{x\ 2640}#
- #{y\ 2641}#))
- #{tmp\ 2642}#)))
+ #{x\ 1472}#
+ #{y\ 1473}#))
+ #{tmp\ 1474}#)))
($sc-dispatch
- #{tmp\ 2642}#
+ #{tmp\ 1474}#
'(#(free-id
#(syntax-object
list
@@ -10478,7 +10500,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 2642}#
+ #{tmp\ 1474}#
'(#(free-id
#(syntax-object
quote
@@ -10502,26 +10524,26 @@
#("i" "i" "i" "i")))
(hygiene guile)))
any))))
- #{y\ 2641}#))
- #{tmp\ 2639}#)
+ #{y\ 1473}#))
+ #{tmp\ 1471}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2638}#)))
- ($sc-dispatch #{tmp\ 2638}# (quote (any any)))))
- (list #{x\ 2636}# #{y\ 2637}#))))
- (#{quasiappend\ 2633}#
- (lambda (#{x\ 2652}# #{y\ 2653}#)
- ((lambda (#{tmp\ 2654}#)
- ((lambda (#{tmp\ 2655}#)
- (if #{tmp\ 2655}#
- (apply (lambda (#{x\ 2656}# #{y\ 2657}#)
- ((lambda (#{tmp\ 2658}#)
- ((lambda (#{tmp\ 2659}#)
- (if #{tmp\ 2659}#
- (apply (lambda () #{x\ 2656}#)
- #{tmp\ 2659}#)
- ((lambda (#{_\ 2660}#)
+ #{tmp\ 1470}#)))
+ ($sc-dispatch #{tmp\ 1470}# (quote (any any)))))
+ (list #{x\ 1468}# #{y\ 1469}#))))
+ (#{quasiappend\ 1465}#
+ (lambda (#{x\ 1484}# #{y\ 1485}#)
+ ((lambda (#{tmp\ 1486}#)
+ ((lambda (#{tmp\ 1487}#)
+ (if #{tmp\ 1487}#
+ (apply (lambda (#{x\ 1488}# #{y\ 1489}#)
+ ((lambda (#{tmp\ 1490}#)
+ ((lambda (#{tmp\ 1491}#)
+ (if #{tmp\ 1491}#
+ (apply (lambda () #{x\ 1488}#)
+ #{tmp\ 1491}#)
+ ((lambda (#{_\ 1492}#)
(list '#(syntax-object
append
((top)
@@ -10550,11 +10572,11 @@
(top))
#("i" "i" "i" "i")))
(hygiene guile))
- #{x\ 2656}#
- #{y\ 2657}#))
- #{tmp\ 2658}#)))
+ #{x\ 1488}#
+ #{y\ 1489}#))
+ #{tmp\ 1490}#)))
($sc-dispatch
- #{tmp\ 2658}#
+ #{tmp\ 1490}#
'(#(free-id
#(syntax-object
quote
@@ -10578,22 +10600,22 @@
#("i" "i" "i" "i")))
(hygiene guile)))
()))))
- #{y\ 2657}#))
- #{tmp\ 2655}#)
+ #{y\ 1489}#))
+ #{tmp\ 1487}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2654}#)))
- ($sc-dispatch #{tmp\ 2654}# (quote (any any)))))
- (list #{x\ 2652}# #{y\ 2653}#))))
- (#{quasivector\ 2634}#
- (lambda (#{x\ 2661}#)
- ((lambda (#{tmp\ 2662}#)
- ((lambda (#{x\ 2663}#)
- ((lambda (#{tmp\ 2664}#)
- ((lambda (#{tmp\ 2665}#)
- (if #{tmp\ 2665}#
- (apply (lambda (#{x\ 2666}#)
+ #{tmp\ 1486}#)))
+ ($sc-dispatch #{tmp\ 1486}# (quote (any any)))))
+ (list #{x\ 1484}# #{y\ 1485}#))))
+ (#{quasivector\ 1466}#
+ (lambda (#{x\ 1493}#)
+ ((lambda (#{tmp\ 1494}#)
+ ((lambda (#{x\ 1495}#)
+ ((lambda (#{tmp\ 1496}#)
+ ((lambda (#{tmp\ 1497}#)
+ (if #{tmp\ 1497}#
+ (apply (lambda (#{x\ 1498}#)
(list '#(syntax-object
quote
((top)
@@ -10619,11 +10641,11 @@
#((top) (top) (top) (top))
#("i" "i" "i" "i")))
(hygiene guile))
- (list->vector #{x\ 2666}#)))
- #{tmp\ 2665}#)
- ((lambda (#{tmp\ 2668}#)
- (if #{tmp\ 2668}#
- (apply (lambda (#{x\ 2669}#)
+ (list->vector #{x\ 1498}#)))
+ #{tmp\ 1497}#)
+ ((lambda (#{tmp\ 1500}#)
+ (if #{tmp\ 1500}#
+ (apply (lambda (#{x\ 1501}#)
(cons '#(syntax-object
vector
((top)
@@ -10652,9 +10674,9 @@
(top))
#("i" "i" "i" "i")))
(hygiene guile))
- #{x\ 2669}#))
- #{tmp\ 2668}#)
- ((lambda (#{_\ 2671}#)
+ #{x\ 1501}#))
+ #{tmp\ 1500}#)
+ ((lambda (#{_\ 1503}#)
(list '#(syntax-object
list->vector
((top)
@@ -10680,10 +10702,10 @@
#((top) (top) (top) (top))
#("i" "i" "i" "i")))
(hygiene guile))
- #{x\ 2663}#))
- #{tmp\ 2664}#)))
+ #{x\ 1495}#))
+ #{tmp\ 1496}#)))
($sc-dispatch
- #{tmp\ 2664}#
+ #{tmp\ 1496}#
'(#(free-id
#(syntax-object
list
@@ -10703,7 +10725,7 @@
.
each-any)))))
($sc-dispatch
- #{tmp\ 2664}#
+ #{tmp\ 1496}#
'(#(free-id
#(syntax-object
quote
@@ -10721,18 +10743,18 @@
#("i" "i" "i" "i")))
(hygiene guile)))
each-any))))
- #{x\ 2663}#))
- #{tmp\ 2662}#))
- #{x\ 2661}#)))
- (#{quasi\ 2635}#
- (lambda (#{p\ 2672}# #{lev\ 2673}#)
- ((lambda (#{tmp\ 2674}#)
- ((lambda (#{tmp\ 2675}#)
- (if #{tmp\ 2675}#
- (apply (lambda (#{p\ 2676}#)
- (if (= #{lev\ 2673}# 0)
- #{p\ 2676}#
- (#{quasicons\ 2632}#
+ #{x\ 1495}#))
+ #{tmp\ 1494}#))
+ #{x\ 1493}#)))
+ (#{quasi\ 1467}#
+ (lambda (#{p\ 1504}# #{lev\ 1505}#)
+ ((lambda (#{tmp\ 1506}#)
+ ((lambda (#{tmp\ 1507}#)
+ (if #{tmp\ 1507}#
+ (apply (lambda (#{p\ 1508}#)
+ (if (= #{lev\ 1505}# 0)
+ #{p\ 1508}#
+ (#{quasicons\ 1464}#
'(#(syntax-object
quote
((top)
@@ -10767,21 +10789,21 @@
#((top) (top) (top) (top))
#("i" "i" "i" "i")))
(hygiene guile)))
- (#{quasi\ 2635}#
- (list #{p\ 2676}#)
- (- #{lev\ 2673}# 1)))))
- #{tmp\ 2675}#)
- ((lambda (#{tmp\ 2677}#)
- (if (if #{tmp\ 2677}#
- (apply (lambda (#{args\ 2678}#)
- (= #{lev\ 2673}# 0))
- #{tmp\ 2677}#)
+ (#{quasi\ 1467}#
+ (list #{p\ 1508}#)
+ (- #{lev\ 1505}# 1)))))
+ #{tmp\ 1507}#)
+ ((lambda (#{tmp\ 1509}#)
+ (if (if #{tmp\ 1509}#
+ (apply (lambda (#{args\ 1510}#)
+ (= #{lev\ 1505}# 0))
+ #{tmp\ 1509}#)
#f)
- (apply (lambda (#{args\ 2679}#)
+ (apply (lambda (#{args\ 1511}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 2672}#
+ #{p\ 1504}#
(cons '#(syntax-object
unquote
((top)
@@ -10802,19 +10824,19 @@
#((top) (top) (top) (top))
#("i" "i" "i" "i")))
(hygiene guile))
- #{args\ 2679}#)))
- #{tmp\ 2677}#)
- ((lambda (#{tmp\ 2680}#)
- (if #{tmp\ 2680}#
- (apply (lambda (#{p\ 2681}# #{q\ 2682}#)
- (if (= #{lev\ 2673}# 0)
- (#{quasiappend\ 2633}#
- #{p\ 2681}#
- (#{quasi\ 2635}#
- #{q\ 2682}#
- #{lev\ 2673}#))
- (#{quasicons\ 2632}#
- (#{quasicons\ 2632}#
+ #{args\ 1511}#)))
+ #{tmp\ 1509}#)
+ ((lambda (#{tmp\ 1512}#)
+ (if #{tmp\ 1512}#
+ (apply (lambda (#{p\ 1513}# #{q\ 1514}#)
+ (if (= #{lev\ 1505}# 0)
+ (#{quasiappend\ 1465}#
+ #{p\ 1513}#
+ (#{quasi\ 1467}#
+ #{q\ 1514}#
+ #{lev\ 1505}#))
+ (#{quasicons\ 1464}#
+ (#{quasicons\ 1464}#
'(#(syntax-object
quote
((top)
@@ -10861,26 +10883,26 @@
(top))
#("i" "i" "i" "i")))
(hygiene guile)))
- (#{quasi\ 2635}#
- (list #{p\ 2681}#)
- (- #{lev\ 2673}# 1)))
- (#{quasi\ 2635}#
- #{q\ 2682}#
- #{lev\ 2673}#))))
- #{tmp\ 2680}#)
- ((lambda (#{tmp\ 2683}#)
- (if (if #{tmp\ 2683}#
- (apply (lambda (#{args\ 2684}#
- #{q\ 2685}#)
- (= #{lev\ 2673}# 0))
- #{tmp\ 2683}#)
+ (#{quasi\ 1467}#
+ (list #{p\ 1513}#)
+ (- #{lev\ 1505}# 1)))
+ (#{quasi\ 1467}#
+ #{q\ 1514}#
+ #{lev\ 1505}#))))
+ #{tmp\ 1512}#)
+ ((lambda (#{tmp\ 1515}#)
+ (if (if #{tmp\ 1515}#
+ (apply (lambda (#{args\ 1516}#
+ #{q\ 1517}#)
+ (= #{lev\ 1505}# 0))
+ #{tmp\ 1515}#)
#f)
- (apply (lambda (#{args\ 2686}#
- #{q\ 2687}#)
+ (apply (lambda (#{args\ 1518}#
+ #{q\ 1519}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes
exactly one argument"
- #{p\ 2672}#
+ #{p\ 1504}#
(cons '#(syntax-object
unquote-splicing
((top)
@@ -10910,12 +10932,12 @@
"i"
"i")))
(hygiene guile))
- #{args\ 2686}#)))
- #{tmp\ 2683}#)
- ((lambda (#{tmp\ 2688}#)
- (if #{tmp\ 2688}#
- (apply (lambda (#{p\ 2689}#)
- (#{quasicons\ 2632}#
+ #{args\ 1518}#)))
+ #{tmp\ 1515}#)
+ ((lambda (#{tmp\ 1520}#)
+ (if #{tmp\ 1520}#
+ (apply (lambda (#{p\ 1521}#)
+ (#{quasicons\ 1464}#
'(#(syntax-object
quote
((top)
@@ -10974,32 +10996,32 @@
"i"
"i")))
(hygiene guile)))
- (#{quasi\ 2635}#
- (list #{p\ 2689}#)
- (+ #{lev\ 2673}#
+ (#{quasi\ 1467}#
+ (list #{p\ 1521}#)
+ (+ #{lev\ 1505}#
1))))
- #{tmp\ 2688}#)
- ((lambda (#{tmp\ 2690}#)
- (if #{tmp\ 2690}#
- (apply (lambda (#{p\ 2691}#
- #{q\ 2692}#)
- (#{quasicons\ 2632}#
- (#{quasi\ 2635}#
- #{p\ 2691}#
- #{lev\ 2673}#)
- (#{quasi\ 2635}#
- #{q\ 2692}#
- #{lev\ 2673}#)))
- #{tmp\ 2690}#)
- ((lambda (#{tmp\ 2693}#)
- (if #{tmp\ 2693}#
- (apply (lambda (#{x\
2694}#)
-
(#{quasivector\ 2634}#
- (#{quasi\
2635}#
- #{x\ 2694}#
- #{lev\
2673}#)))
- #{tmp\ 2693}#)
- ((lambda (#{p\ 2696}#)
+ #{tmp\ 1520}#)
+ ((lambda (#{tmp\ 1522}#)
+ (if #{tmp\ 1522}#
+ (apply (lambda (#{p\ 1523}#
+ #{q\ 1524}#)
+ (#{quasicons\ 1464}#
+ (#{quasi\ 1467}#
+ #{p\ 1523}#
+ #{lev\ 1505}#)
+ (#{quasi\ 1467}#
+ #{q\ 1524}#
+ #{lev\ 1505}#)))
+ #{tmp\ 1522}#)
+ ((lambda (#{tmp\ 1525}#)
+ (if #{tmp\ 1525}#
+ (apply (lambda (#{x\
1526}#)
+
(#{quasivector\ 1466}#
+ (#{quasi\
1467}#
+ #{x\ 1526}#
+ #{lev\
1505}#)))
+ #{tmp\ 1525}#)
+ ((lambda (#{p\ 1528}#)
(list
'#(syntax-object
quote
((top)
@@ -11032,16 +11054,16 @@
"i")))
(hygiene
guile))
- #{p\ 2696}#))
- #{tmp\ 2674}#)))
+ #{p\ 1528}#))
+ #{tmp\ 1506}#)))
($sc-dispatch
- #{tmp\ 2674}#
+ #{tmp\ 1506}#
'#(vector each-any)))))
($sc-dispatch
- #{tmp\ 2674}#
+ #{tmp\ 1506}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 2674}#
+ #{tmp\ 1506}#
'(#(free-id
#(syntax-object
quasiquote
@@ -11061,7 +11083,7 @@
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 2674}#
+ #{tmp\ 1506}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -11084,7 +11106,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 2674}#
+ #{tmp\ 1506}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -11106,7 +11128,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 2674}#
+ #{tmp\ 1506}#
'(#(free-id
#(syntax-object
unquote
@@ -11124,7 +11146,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 2674}#
+ #{tmp\ 1506}#
'(#(free-id
#(syntax-object
unquote
@@ -11137,49 +11159,49 @@
#("i" "i" "i" "i")))
(hygiene guile)))
any))))
- #{p\ 2672}#))))
- (lambda (#{x\ 2697}#)
- ((lambda (#{tmp\ 2698}#)
- ((lambda (#{tmp\ 2699}#)
- (if #{tmp\ 2699}#
- (apply (lambda (#{_\ 2700}# #{e\ 2701}#)
- (#{quasi\ 2635}# #{e\ 2701}# 0))
- #{tmp\ 2699}#)
+ #{p\ 1504}#))))
+ (lambda (#{x\ 1529}#)
+ ((lambda (#{tmp\ 1530}#)
+ ((lambda (#{tmp\ 1531}#)
+ (if #{tmp\ 1531}#
+ (apply (lambda (#{_\ 1532}# #{e\ 1533}#)
+ (#{quasi\ 1467}# #{e\ 1533}# 0))
+ #{tmp\ 1531}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2698}#)))
- ($sc-dispatch #{tmp\ 2698}# (quote (any any)))))
- #{x\ 2697}#)))))
+ #{tmp\ 1530}#)))
+ ($sc-dispatch #{tmp\ 1530}# (quote (any any)))))
+ #{x\ 1529}#)))))
(define include
(make-syncase-macro
'macro
- (lambda (#{x\ 2702}#)
- (letrec ((#{read-file\ 2703}#
- (lambda (#{fn\ 2704}# #{k\ 2705}#)
- (let ((#{p\ 2706}# (open-input-file #{fn\ 2704}#)))
- (letrec ((#{f\ 2707}#
- (lambda (#{x\ 2708}#)
- (if (eof-object? #{x\ 2708}#)
+ (lambda (#{x\ 1534}#)
+ (letrec ((#{read-file\ 1535}#
+ (lambda (#{fn\ 1536}# #{k\ 1537}#)
+ (let ((#{p\ 1538}# (open-input-file #{fn\ 1536}#)))
+ (letrec ((#{f\ 1539}#
+ (lambda (#{x\ 1540}#)
+ (if (eof-object? #{x\ 1540}#)
(begin
- (close-input-port #{p\ 2706}#)
+ (close-input-port #{p\ 1538}#)
'())
(cons (datum->syntax
- #{k\ 2705}#
- #{x\ 2708}#)
- (#{f\ 2707}# (read #{p\ 2706}#)))))))
- (#{f\ 2707}# (read #{p\ 2706}#)))))))
- ((lambda (#{tmp\ 2709}#)
- ((lambda (#{tmp\ 2710}#)
- (if #{tmp\ 2710}#
- (apply (lambda (#{k\ 2711}# #{filename\ 2712}#)
- (let ((#{fn\ 2713}#
- (syntax->datum #{filename\ 2712}#)))
- ((lambda (#{tmp\ 2714}#)
- ((lambda (#{tmp\ 2715}#)
- (if #{tmp\ 2715}#
- (apply (lambda (#{exp\ 2716}#)
+ #{k\ 1537}#
+ #{x\ 1540}#)
+ (#{f\ 1539}# (read #{p\ 1538}#)))))))
+ (#{f\ 1539}# (read #{p\ 1538}#)))))))
+ ((lambda (#{tmp\ 1541}#)
+ ((lambda (#{tmp\ 1542}#)
+ (if #{tmp\ 1542}#
+ (apply (lambda (#{k\ 1543}# #{filename\ 1544}#)
+ (let ((#{fn\ 1545}#
+ (syntax->datum #{filename\ 1544}#)))
+ ((lambda (#{tmp\ 1546}#)
+ ((lambda (#{tmp\ 1547}#)
+ (if #{tmp\ 1547}#
+ (apply (lambda (#{exp\ 1548}#)
(cons '#(syntax-object
begin
((top)
@@ -11206,76 +11228,76 @@
#((top))
#("i")))
(hygiene guile))
- #{exp\ 2716}#))
- #{tmp\ 2715}#)
+ #{exp\ 1548}#))
+ #{tmp\ 1547}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 2714}#)))
- ($sc-dispatch #{tmp\ 2714}# (quote each-any))))
- (#{read-file\ 2703}# #{fn\ 2713}# #{k\ 2711}#))))
- #{tmp\ 2710}#)
+ #{tmp\ 1546}#)))
+ ($sc-dispatch #{tmp\ 1546}# (quote each-any))))
+ (#{read-file\ 1535}# #{fn\ 1545}# #{k\ 1543}#))))
+ #{tmp\ 1542}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2709}#)))
- ($sc-dispatch #{tmp\ 2709}# (quote (any any)))))
- #{x\ 2702}#)))))
+ #{tmp\ 1541}#)))
+ ($sc-dispatch #{tmp\ 1541}# (quote (any any)))))
+ #{x\ 1534}#)))))
(define unquote
(make-syncase-macro
'macro
- (lambda (#{x\ 2718}#)
- ((lambda (#{tmp\ 2719}#)
- ((lambda (#{tmp\ 2720}#)
- (if #{tmp\ 2720}#
- (apply (lambda (#{_\ 2721}# #{e\ 2722}#)
+ (lambda (#{x\ 1550}#)
+ ((lambda (#{tmp\ 1551}#)
+ ((lambda (#{tmp\ 1552}#)
+ (if #{tmp\ 1552}#
+ (apply (lambda (#{_\ 1553}# #{e\ 1554}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 2718}#))
- #{tmp\ 2720}#)
+ #{x\ 1550}#))
+ #{tmp\ 1552}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2719}#)))
- ($sc-dispatch #{tmp\ 2719}# (quote (any any)))))
- #{x\ 2718}#))))
+ #{tmp\ 1551}#)))
+ ($sc-dispatch #{tmp\ 1551}# (quote (any any)))))
+ #{x\ 1550}#))))
(define unquote-splicing
(make-syncase-macro
'macro
- (lambda (#{x\ 2723}#)
- ((lambda (#{tmp\ 2724}#)
- ((lambda (#{tmp\ 2725}#)
- (if #{tmp\ 2725}#
- (apply (lambda (#{_\ 2726}# #{e\ 2727}#)
+ (lambda (#{x\ 1555}#)
+ ((lambda (#{tmp\ 1556}#)
+ ((lambda (#{tmp\ 1557}#)
+ (if #{tmp\ 1557}#
+ (apply (lambda (#{_\ 1558}# #{e\ 1559}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 2723}#))
- #{tmp\ 2725}#)
+ #{x\ 1555}#))
+ #{tmp\ 1557}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2724}#)))
- ($sc-dispatch #{tmp\ 2724}# (quote (any any)))))
- #{x\ 2723}#))))
+ #{tmp\ 1556}#)))
+ ($sc-dispatch #{tmp\ 1556}# (quote (any any)))))
+ #{x\ 1555}#))))
(define case
(make-extended-syncase-macro
(module-ref (current-module) (quote case))
'macro
- (lambda (#{x\ 2728}#)
- ((lambda (#{tmp\ 2729}#)
- ((lambda (#{tmp\ 2730}#)
- (if #{tmp\ 2730}#
- (apply (lambda (#{_\ 2731}#
- #{e\ 2732}#
- #{m1\ 2733}#
- #{m2\ 2734}#)
- ((lambda (#{tmp\ 2735}#)
- ((lambda (#{body\ 2736}#)
+ (lambda (#{x\ 1560}#)
+ ((lambda (#{tmp\ 1561}#)
+ ((lambda (#{tmp\ 1562}#)
+ (if #{tmp\ 1562}#
+ (apply (lambda (#{_\ 1563}#
+ #{e\ 1564}#
+ #{m1\ 1565}#
+ #{m2\ 1566}#)
+ ((lambda (#{tmp\ 1567}#)
+ ((lambda (#{body\ 1568}#)
(list '#(syntax-object
let
((top)
@@ -11304,17 +11326,17 @@
#((top))
#("i")))
(hygiene guile))
- #{e\ 2732}#))
- #{body\ 2736}#))
- #{tmp\ 2735}#))
- (letrec ((#{f\ 2737}#
- (lambda (#{clause\ 2738}# #{clauses\ 2739}#)
- (if (null? #{clauses\ 2739}#)
- ((lambda (#{tmp\ 2741}#)
- ((lambda (#{tmp\ 2742}#)
- (if #{tmp\ 2742}#
- (apply (lambda (#{e1\ 2743}#
- #{e2\ 2744}#)
+ #{e\ 1564}#))
+ #{body\ 1568}#))
+ #{tmp\ 1567}#))
+ (letrec ((#{f\ 1569}#
+ (lambda (#{clause\ 1570}# #{clauses\ 1571}#)
+ (if (null? #{clauses\ 1571}#)
+ ((lambda (#{tmp\ 1573}#)
+ ((lambda (#{tmp\ 1574}#)
+ (if #{tmp\ 1574}#
+ (apply (lambda (#{e1\ 1575}#
+ #{e2\ 1576}#)
(cons '#(syntax-object
begin
((top)
@@ -11360,14 +11382,14 @@
#("i")))
(hygiene
guile))
- (cons #{e1\
2743}#
- #{e2\
2744}#)))
- #{tmp\ 2742}#)
- ((lambda (#{tmp\ 2746}#)
- (if #{tmp\ 2746}#
- (apply (lambda (#{k\ 2747}#
- #{e1\
2748}#
- #{e2\
2749}#)
+ (cons #{e1\
1575}#
+ #{e2\
1576}#)))
+ #{tmp\ 1574}#)
+ ((lambda (#{tmp\ 1578}#)
+ (if #{tmp\ 1578}#
+ (apply (lambda (#{k\ 1579}#
+ #{e1\
1580}#
+ #{e2\
1581}#)
(list
'#(syntax-object
if
((top)
@@ -11568,7 +11590,7 @@
#("i")))
(hygiene
guile))
-
#{k\ 2747}#))
+
#{k\ 1579}#))
(cons
'#(syntax-object
begin
((top)
@@ -11619,24 +11641,24 @@
#("i")))
(hygiene
guile))
- (cons
#{e1\ 2748}#
-
#{e2\ 2749}#))))
- #{tmp\ 2746}#)
- ((lambda (#{_\ 2752}#)
+ (cons
#{e1\ 1580}#
+
#{e2\ 1581}#))))
+ #{tmp\ 1578}#)
+ ((lambda (#{_\ 1584}#)
(syntax-violation
'case
"bad clause"
- #{x\ 2728}#
- #{clause\ 2738}#))
- #{tmp\ 2741}#)))
+ #{x\ 1560}#
+ #{clause\ 1570}#))
+ #{tmp\ 1573}#)))
($sc-dispatch
- #{tmp\ 2741}#
+ #{tmp\ 1573}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 2741}#
+ #{tmp\ 1573}#
'(#(free-id
#(syntax-object
else
@@ -11662,15 +11684,15 @@
any
.
each-any))))
- #{clause\ 2738}#)
- ((lambda (#{tmp\ 2753}#)
- ((lambda (#{rest\ 2754}#)
- ((lambda (#{tmp\ 2755}#)
- ((lambda (#{tmp\ 2756}#)
- (if #{tmp\ 2756}#
- (apply (lambda (#{k\
2757}#
- #{e1\
2758}#
- #{e2\
2759}#)
+ #{clause\ 1570}#)
+ ((lambda (#{tmp\ 1585}#)
+ ((lambda (#{rest\ 1586}#)
+ ((lambda (#{tmp\ 1587}#)
+ ((lambda (#{tmp\ 1588}#)
+ (if #{tmp\ 1588}#
+ (apply (lambda (#{k\
1589}#
+ #{e1\
1590}#
+ #{e2\
1591}#)
(list
'#(syntax-object
if
((top)
@@ -11887,7 +11909,7 @@
#("i")))
(hygiene
guile))
-
#{k\ 2757}#))
+
#{k\ 1589}#))
(cons
'#(syntax-object
begin
((top)
@@ -11942,47 +11964,47 @@
#("i")))
(hygiene
guile))
-
(cons #{e1\ 2758}#
-
#{e2\ 2759}#))
- #{rest\
2754}#))
- #{tmp\ 2756}#)
- ((lambda (#{_\ 2762}#)
+
(cons #{e1\ 1590}#
+
#{e2\ 1591}#))
+ #{rest\
1586}#))
+ #{tmp\ 1588}#)
+ ((lambda (#{_\ 1594}#)
(syntax-violation
'case
"bad clause"
- #{x\ 2728}#
- #{clause\ 2738}#))
- #{tmp\ 2755}#)))
+ #{x\ 1560}#
+ #{clause\ 1570}#))
+ #{tmp\ 1587}#)))
($sc-dispatch
- #{tmp\ 2755}#
+ #{tmp\ 1587}#
'(each-any
any
.
each-any))))
- #{clause\ 2738}#))
- #{tmp\ 2753}#))
- (#{f\ 2737}#
- (car #{clauses\ 2739}#)
- (cdr #{clauses\ 2739}#)))))))
- (#{f\ 2737}# #{m1\ 2733}# #{m2\ 2734}#))))
- #{tmp\ 2730}#)
+ #{clause\ 1570}#))
+ #{tmp\ 1585}#))
+ (#{f\ 1569}#
+ (car #{clauses\ 1571}#)
+ (cdr #{clauses\ 1571}#)))))))
+ (#{f\ 1569}# #{m1\ 1565}# #{m2\ 1566}#))))
+ #{tmp\ 1562}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2729}#)))
+ #{tmp\ 1561}#)))
($sc-dispatch
- #{tmp\ 2729}#
+ #{tmp\ 1561}#
'(any any any . each-any))))
- #{x\ 2728}#))))
+ #{x\ 1560}#))))
(define identifier-syntax
(make-syncase-macro
'macro
- (lambda (#{x\ 2763}#)
- ((lambda (#{tmp\ 2764}#)
- ((lambda (#{tmp\ 2765}#)
- (if #{tmp\ 2765}#
- (apply (lambda (#{_\ 2766}# #{e\ 2767}#)
+ (lambda (#{x\ 1595}#)
+ ((lambda (#{tmp\ 1596}#)
+ ((lambda (#{tmp\ 1597}#)
+ (if #{tmp\ 1597}#
+ (apply (lambda (#{_\ 1598}# #{e\ 1599}#)
(list '#(syntax-object
lambda
((top)
@@ -12071,8 +12093,8 @@
#((top))
#("i")))
(hygiene guile))
- #{e\ 2767}#))
- (list (cons #{_\ 2766}#
+ #{e\ 1599}#))
+ (list (cons #{_\ 1598}#
'(#(syntax-object
x
((top)
@@ -12112,7 +12134,7 @@
#((top))
#("i")))
(hygiene guile))
- (cons #{e\ 2767}#
+ (cons #{e\ 1599}#
'(#(syntax-object
x
((top)
@@ -12140,11 +12162,11 @@
#("i")))
(hygiene
guile)))))))))
- #{tmp\ 2765}#)
+ #{tmp\ 1597}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 2764}#)))
- ($sc-dispatch #{tmp\ 2764}# (quote (any any)))))
- #{x\ 2763}#))))
+ #{tmp\ 1596}#)))
+ ($sc-dispatch #{tmp\ 1596}# (quote (any any)))))
+ #{x\ 1595}#))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index cb90fcc..1b5addd 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -1323,7 +1323,7 @@
(rebuild-macro-output (vector-ref x i) m)))))
((symbol? x)
(syntax-violation #f "encountered raw symbol in macro output"
- (source-wrap e w s mod) x))
+ (source-wrap e w (wrap-subst w) mod) x))
(else x))))
(rebuild-macro-output (p (wrap e (anti-mark w) mod)) (new-mark))))
diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test
index 0eb8515..2ee21c1 100644
--- a/test-suite/tests/reader.test
+++ b/test-suite/tests/reader.test
@@ -1,6 +1,6 @@
;;;; reader.test --- Exercise the reader. -*- Scheme -*-
;;;;
-;;;; Copyright (C) 1999, 2001, 2002, 2003, 2007, 2008 Free Software
Foundation, Inc.
+;;;; Copyright (C) 1999, 2001, 2002, 2003, 2007, 2008, 2009 Free Software
Foundation, Inc.
;;;; Jim Blandy <address@hidden>
;;;;
;;;; This library is free software; you can redistribute it and/or
@@ -18,6 +18,7 @@
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
USA
(define-module (test-suite reader)
+ :use-module (srfi srfi-1)
:use-module (test-suite lib))
@@ -26,7 +27,7 @@
(define exception:unexpected-rparen
(cons 'read-error "unexpected \")\"$"))
(define exception:unterminated-block-comment
- (cons 'read-error "unterminated `#! ... !#' comment$"))
+ (cons 'read-error "unterminated `#. \\.\\.\\. .#' comment$"))
(define exception:unknown-character-name
(cons 'read-error "unknown character name .*$"))
(define exception:unknown-sharp-object
@@ -83,6 +84,30 @@
(equal? '(+ 2)
(read-string "(+ 2 #! a comment\n!#\n) ")))
+ (pass-if "R6RS/SRFI-30 block comment"
+ (equal? '(+ 1 2 3)
+ (read-string "(+ 1 #| this is a\ncomment |# 2 3)")))
+
+ (pass-if "R6RS/SRFI-30 nested block comment"
+ (equal? '(a b c)
+ (read-string "(a b c #| d #| e |# f |#)")))
+
+ (pass-if "R6RS/SRFI-30 block comment syntax overridden"
+ ;; To be compatible with 1.8 and earlier, we should be able to override
+ ;; this syntax.
+ (let ((rhp read-hash-procedures))
+ (dynamic-wind
+ (lambda ()
+ (read-hash-extend #\| (lambda args 'not)))
+ (lambda ()
+ (fold (lambda (x y result)
+ (and result (eq? x y)))
+ #t
+ (read-string "(this is #| a comment)")
+ `(this is not a comment)))
+ (lambda ()
+ (set! read-hash-procedures rhp)))))
+
(pass-if "unprintable symbol"
;; The reader tolerates unprintable characters for symbols.
(equal? (string->symbol "\001\002\003")
@@ -131,6 +156,9 @@
(pass-if-exception "unterminated block comment"
exception:unterminated-block-comment
(read-string "(+ 1 #! comment\n..."))
+ (pass-if-exception "R6RS/SRFI-30 unterminated nested block comment"
+ exception:unterminated-block-comment
+ (read-string "(foo #| bar #| |#)"))
(pass-if-exception "unknown character name"
exception:unknown-character-name
(read-string "#\\theunknowncharacter"))
hooks/post-receive
--
GNU Guile
| [Prev in Thread] | Current Thread | [Next in Thread] |