[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, wip-case-lambda, updated. release_1-9-
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, wip-case-lambda, updated. release_1-9-4-19-gca1b0f7 |
Date: |
Mon, 19 Oct 2009 20:30:38 +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=ca1b0f760a327a67ae7c822cd825db9bb72880ff
The branch, wip-case-lambda has been updated
via ca1b0f760a327a67ae7c822cd825db9bb72880ff (commit)
from 441382394cbe8ae382b314e6c2199197576dae00 (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 ca1b0f760a327a67ae7c822cd825db9bb72880ff
Author: Andy Wingo <address@hidden>
Date: Mon Oct 19 22:13:08 2009 +0200
more work towards compiling and interpreting keyword args
* libguile/_scm.h (SCM_OBJCODE_MINOR_VERSION): Bumparoo
* libguile/vm-i-system.c (push-rest, bind-rest): Logically there are
actually two rest binders -- one that pops, conses, and pushes, and
one that pops, conses, and local-sets. The latter is used on keyword
arguments, because the keyword arguments themselves have been shuffled
up on the stack. Renumber ops again.
* module/language/tree-il/compile-glil.scm (flatten): Attempt to handle
compilation of lambda-case with keyword arguments. Might need some
help.
* module/ice-9/psyntax.scm (build-lambda-case): An attempt to handle the
interpreted case correctly. This might need a couple iterations, but
at least it looks like the compile-glil code.
* module/ice-9/psyntax-pp.scm: Regenerated.
* module/language/glil.scm (<glil>): Rename "rest?" to "rest" in
<glil-opt-prelude> and <glil-kw-prelude>, as it is no longer a simple
boolean, but if true is an integer: the index of the local variable to
which the rest should be bound.
* module/language/glil/compile-assembly.scm (glil->assembly): Adapt to
"rest" vs "rest?". In the keyword case, use "bind-rest" instead of
"push-rest".
* test-suite/tests/tree-il.test: Update for opt-prelude change.
-----------------------------------------------------------------------
Summary of changes:
libguile/_scm.h | 2 +-
libguile/vm-i-system.c | 74 +-
module/ice-9/psyntax-pp.scm |10918 +++++++++++++++--------------
module/ice-9/psyntax.scm | 62 +-
module/language/glil.scm | 24 +-
module/language/glil/compile-assembly.scm | 30 +-
module/language/tree-il/compile-glil.scm | 76 +-
test-suite/tests/tree-il.test | 8 +-
8 files changed, 5673 insertions(+), 5521 deletions(-)
diff --git a/libguile/_scm.h b/libguile/_scm.h
index a7a5e8f..21fe5bc 100644
--- a/libguile/_scm.h
+++ b/libguile/_scm.h
@@ -172,7 +172,7 @@
/* Major and minor versions must be single characters. */
#define SCM_OBJCODE_MAJOR_VERSION 0
-#define SCM_OBJCODE_MINOR_VERSION I
+#define SCM_OBJCODE_MINOR_VERSION J
#define SCM_OBJCODE_MAJOR_VERSION_STRING \
SCM_CPP_STRINGIFY(SCM_OBJCODE_MAJOR_VERSION)
#define SCM_OBJCODE_MINOR_VERSION_STRING \
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c
index 66e4935..f1fdc4d 100644
--- a/libguile/vm-i-system.c
+++ b/libguile/vm-i-system.c
@@ -624,7 +624,7 @@ VM_DEFINE_INSTRUCTION (45, bind_kwargs, "bind-kwargs", 5,
0, 0)
NEXT;
}
-VM_DEFINE_INSTRUCTION (46, bind_rest, "bind-rest", 2, -1, -1)
+VM_DEFINE_INSTRUCTION (46, push_rest, "push-rest", 2, -1, -1)
{
scm_t_ptrdiff n;
SCM rest = SCM_EOL;
@@ -637,7 +637,23 @@ VM_DEFINE_INSTRUCTION (46, bind_rest, "bind-rest", 2, -1,
-1)
NEXT;
}
-VM_DEFINE_INSTRUCTION (47, reserve_locals, "reserve-locals", 2, -1, -1)
+VM_DEFINE_INSTRUCTION (47, bind_rest, "bind-rest", 4, -1, -1)
+{
+ scm_t_ptrdiff n;
+ scm_t_uint32 i;
+ SCM rest = SCM_EOL;
+ n = FETCH () << 8;
+ n += FETCH ();
+ i = FETCH () << 8;
+ i += FETCH ();
+ while (sp - (fp - 1) > n)
+ /* No need to check for underflow. */
+ CONS (rest, *sp--, rest);
+ LOCAL_SET (i, rest);
+ NEXT;
+}
+
+VM_DEFINE_INSTRUCTION (48, reserve_locals, "reserve-locals", 2, -1, -1)
{
SCM *old_sp;
scm_t_int32 n;
@@ -658,7 +674,7 @@ VM_DEFINE_INSTRUCTION (47, reserve_locals,
"reserve-locals", 2, -1, -1)
NEXT;
}
-VM_DEFINE_INSTRUCTION (48, new_frame, "new-frame", 0, 0, 3)
+VM_DEFINE_INSTRUCTION (49, new_frame, "new-frame", 0, 0, 3)
{
/* NB: if you change this, see frames.c:vm-frame-num-locals */
/* and frames.h, vm-engine.c, etc of course */
@@ -668,7 +684,7 @@ VM_DEFINE_INSTRUCTION (48, new_frame, "new-frame", 0, 0, 3)
NEXT;
}
-VM_DEFINE_INSTRUCTION (49, call, "call", 1, -1, 1)
+VM_DEFINE_INSTRUCTION (50, call, "call", 1, -1, 1)
{
SCM x;
nargs = FETCH ();
@@ -729,7 +745,7 @@ VM_DEFINE_INSTRUCTION (49, call, "call", 1, -1, 1)
goto vm_error_wrong_type_apply;
}
-VM_DEFINE_INSTRUCTION (50, goto_args, "goto/args", 1, -1, 1)
+VM_DEFINE_INSTRUCTION (51, goto_args, "goto/args", 1, -1, 1)
{
register SCM x;
nargs = FETCH ();
@@ -802,7 +818,7 @@ VM_DEFINE_INSTRUCTION (50, goto_args, "goto/args", 1, -1, 1)
goto vm_error_wrong_type_apply;
}
-VM_DEFINE_INSTRUCTION (51, goto_nargs, "goto/nargs", 0, 0, 1)
+VM_DEFINE_INSTRUCTION (52, goto_nargs, "goto/nargs", 0, 0, 1)
{
SCM x;
POP (x);
@@ -811,7 +827,7 @@ VM_DEFINE_INSTRUCTION (51, goto_nargs, "goto/nargs", 0, 0,
1)
goto vm_goto_args;
}
-VM_DEFINE_INSTRUCTION (52, call_nargs, "call/nargs", 0, 0, 1)
+VM_DEFINE_INSTRUCTION (53, call_nargs, "call/nargs", 0, 0, 1)
{
SCM x;
POP (x);
@@ -820,7 +836,7 @@ VM_DEFINE_INSTRUCTION (52, call_nargs, "call/nargs", 0, 0,
1)
goto vm_call;
}
-VM_DEFINE_INSTRUCTION (53, mv_call, "mv-call", 4, -1, 1)
+VM_DEFINE_INSTRUCTION (54, mv_call, "mv-call", 4, -1, 1)
{
SCM x;
scm_t_int32 offset;
@@ -882,7 +898,7 @@ VM_DEFINE_INSTRUCTION (53, mv_call, "mv-call", 4, -1, 1)
goto vm_error_wrong_type_apply;
}
-VM_DEFINE_INSTRUCTION (54, apply, "apply", 1, -1, 1)
+VM_DEFINE_INSTRUCTION (55, apply, "apply", 1, -1, 1)
{
int len;
SCM ls;
@@ -901,7 +917,7 @@ VM_DEFINE_INSTRUCTION (54, apply, "apply", 1, -1, 1)
goto vm_call;
}
-VM_DEFINE_INSTRUCTION (55, goto_apply, "goto/apply", 1, -1, 1)
+VM_DEFINE_INSTRUCTION (56, goto_apply, "goto/apply", 1, -1, 1)
{
int len;
SCM ls;
@@ -920,7 +936,7 @@ VM_DEFINE_INSTRUCTION (55, goto_apply, "goto/apply", 1, -1,
1)
goto vm_goto_args;
}
-VM_DEFINE_INSTRUCTION (56, call_cc, "call/cc", 0, 1, 1)
+VM_DEFINE_INSTRUCTION (57, call_cc, "call/cc", 0, 1, 1)
{
int first;
SCM proc, cont;
@@ -957,7 +973,7 @@ VM_DEFINE_INSTRUCTION (56, call_cc, "call/cc", 0, 1, 1)
}
}
-VM_DEFINE_INSTRUCTION (57, goto_cc, "goto/cc", 0, 1, 1)
+VM_DEFINE_INSTRUCTION (58, goto_cc, "goto/cc", 0, 1, 1)
{
int first;
SCM proc, cont;
@@ -989,7 +1005,7 @@ VM_DEFINE_INSTRUCTION (57, goto_cc, "goto/cc", 0, 1, 1)
}
}
-VM_DEFINE_INSTRUCTION (58, return, "return", 0, 1, 1)
+VM_DEFINE_INSTRUCTION (59, return, "return", 0, 1, 1)
{
vm_return:
EXIT_HOOK ();
@@ -1025,7 +1041,7 @@ VM_DEFINE_INSTRUCTION (58, return, "return", 0, 1, 1)
NEXT;
}
-VM_DEFINE_INSTRUCTION (59, return_values, "return/values", 1, -1, -1)
+VM_DEFINE_INSTRUCTION (60, return_values, "return/values", 1, -1, -1)
{
/* nvalues declared at top level, because for some reason gcc seems to think
that perhaps it might be used without declaration. Fooey to that, I say.
*/
@@ -1080,7 +1096,7 @@ VM_DEFINE_INSTRUCTION (59, return_values,
"return/values", 1, -1, -1)
NEXT;
}
-VM_DEFINE_INSTRUCTION (60, return_values_star, "return/values*", 1, -1, -1)
+VM_DEFINE_INSTRUCTION (61, return_values_star, "return/values*", 1, -1, -1)
{
SCM l;
@@ -1103,7 +1119,7 @@ VM_DEFINE_INSTRUCTION (60, return_values_star,
"return/values*", 1, -1, -1)
goto vm_return_values;
}
-VM_DEFINE_INSTRUCTION (61, truncate_values, "truncate-values", 2, -1, -1)
+VM_DEFINE_INSTRUCTION (62, truncate_values, "truncate-values", 2, -1, -1)
{
SCM x;
int nbinds, rest;
@@ -1126,7 +1142,7 @@ VM_DEFINE_INSTRUCTION (61, truncate_values,
"truncate-values", 2, -1, -1)
NEXT;
}
-VM_DEFINE_INSTRUCTION (62, box, "box", 1, 1, 0)
+VM_DEFINE_INSTRUCTION (63, box, "box", 1, 1, 0)
{
SCM val;
POP (val);
@@ -1140,7 +1156,7 @@ VM_DEFINE_INSTRUCTION (62, box, "box", 1, 1, 0)
(set! a (lambda () (b ...)))
...)
*/
-VM_DEFINE_INSTRUCTION (63, empty_box, "empty-box", 1, 0, 0)
+VM_DEFINE_INSTRUCTION (64, empty_box, "empty-box", 1, 0, 0)
{
SYNC_BEFORE_GC ();
LOCAL_SET (FETCH (),
@@ -1148,7 +1164,7 @@ VM_DEFINE_INSTRUCTION (63, empty_box, "empty-box", 1, 0,
0)
NEXT;
}
-VM_DEFINE_INSTRUCTION (64, local_boxed_ref, "local-boxed-ref", 1, 0, 1)
+VM_DEFINE_INSTRUCTION (65, local_boxed_ref, "local-boxed-ref", 1, 0, 1)
{
SCM v = LOCAL_REF (FETCH ());
ASSERT_BOUND_VARIABLE (v);
@@ -1156,7 +1172,7 @@ VM_DEFINE_INSTRUCTION (64, local_boxed_ref,
"local-boxed-ref", 1, 0, 1)
NEXT;
}
-VM_DEFINE_INSTRUCTION (65, local_boxed_set, "local-boxed-set", 1, 1, 0)
+VM_DEFINE_INSTRUCTION (66, local_boxed_set, "local-boxed-set", 1, 1, 0)
{
SCM v, val;
v = LOCAL_REF (FETCH ());
@@ -1166,7 +1182,7 @@ VM_DEFINE_INSTRUCTION (65, local_boxed_set,
"local-boxed-set", 1, 1, 0)
NEXT;
}
-VM_DEFINE_INSTRUCTION (66, free_ref, "free-ref", 1, 0, 1)
+VM_DEFINE_INSTRUCTION (67, free_ref, "free-ref", 1, 0, 1)
{
scm_t_uint8 idx = FETCH ();
@@ -1177,7 +1193,7 @@ VM_DEFINE_INSTRUCTION (66, free_ref, "free-ref", 1, 0, 1)
/* no free-set -- if a var is assigned, it should be in a box */
-VM_DEFINE_INSTRUCTION (67, free_boxed_ref, "free-boxed-ref", 1, 0, 1)
+VM_DEFINE_INSTRUCTION (68, free_boxed_ref, "free-boxed-ref", 1, 0, 1)
{
SCM v;
scm_t_uint8 idx = FETCH ();
@@ -1188,7 +1204,7 @@ VM_DEFINE_INSTRUCTION (67, free_boxed_ref,
"free-boxed-ref", 1, 0, 1)
NEXT;
}
-VM_DEFINE_INSTRUCTION (68, free_boxed_set, "free-boxed-set", 1, 1, 0)
+VM_DEFINE_INSTRUCTION (69, free_boxed_set, "free-boxed-set", 1, 1, 0)
{
SCM v, val;
scm_t_uint8 idx = FETCH ();
@@ -1200,7 +1216,7 @@ VM_DEFINE_INSTRUCTION (68, free_boxed_set,
"free-boxed-set", 1, 1, 0)
NEXT;
}
-VM_DEFINE_INSTRUCTION (69, make_closure, "make-closure", 0, 2, 1)
+VM_DEFINE_INSTRUCTION (70, make_closure, "make-closure", 0, 2, 1)
{
SCM vect;
POP (vect);
@@ -1211,7 +1227,7 @@ VM_DEFINE_INSTRUCTION (69, make_closure, "make-closure",
0, 2, 1)
NEXT;
}
-VM_DEFINE_INSTRUCTION (70, make_variable, "make-variable", 0, 0, 1)
+VM_DEFINE_INSTRUCTION (71, make_variable, "make-variable", 0, 0, 1)
{
SYNC_BEFORE_GC ();
/* fixme underflow */
@@ -1219,7 +1235,7 @@ VM_DEFINE_INSTRUCTION (70, make_variable,
"make-variable", 0, 0, 1)
NEXT;
}
-VM_DEFINE_INSTRUCTION (71, fix_closure, "fix-closure", 2, 0, 1)
+VM_DEFINE_INSTRUCTION (72, fix_closure, "fix-closure", 2, 0, 1)
{
SCM x, vect;
unsigned int i = FETCH ();
@@ -1233,7 +1249,7 @@ VM_DEFINE_INSTRUCTION (71, fix_closure, "fix-closure", 2,
0, 1)
NEXT;
}
-VM_DEFINE_INSTRUCTION (72, define, "define", 0, 0, 2)
+VM_DEFINE_INSTRUCTION (73, define, "define", 0, 0, 2)
{
SCM sym, val;
POP (sym);
@@ -1245,7 +1261,7 @@ VM_DEFINE_INSTRUCTION (72, define, "define", 0, 0, 2)
NEXT;
}
-VM_DEFINE_INSTRUCTION (73, make_keyword, "make-keyword", 0, 1, 1)
+VM_DEFINE_INSTRUCTION (74, make_keyword, "make-keyword", 0, 1, 1)
{
CHECK_UNDERFLOW ();
SYNC_REGISTER ();
@@ -1253,7 +1269,7 @@ VM_DEFINE_INSTRUCTION (73, make_keyword, "make-keyword",
0, 1, 1)
NEXT;
}
-VM_DEFINE_INSTRUCTION (74, make_symbol, "make-symbol", 0, 1, 1)
+VM_DEFINE_INSTRUCTION (75, make_symbol, "make-symbol", 0, 1, 1)
{
CHECK_UNDERFLOW ();
SYNC_REGISTER ();
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 84f6162..b002d75 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,125 +1,122 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((#{and-map*\ 30}#
- (lambda (#{f\ 68}# #{first\ 69}# . #{rest\ 70}#)
- (let ((#{t\ 71}# (null? #{first\ 69}#)))
- (if #{t\ 71}#
- #{t\ 71}#
- (if (null? #{rest\ 70}#)
- (letrec ((#{andmap\ 72}#
- (lambda (#{first\ 73}#)
- (let ((#{x\ 74}# (car #{first\ 73}#))
- (#{first\ 75}# (cdr #{first\ 73}#)))
- (if (null? #{first\ 75}#)
- (#{f\ 68}# #{x\ 74}#)
- (if (#{f\ 68}# #{x\ 74}#)
- (#{andmap\ 72}# #{first\ 75}#)
+(letrec ((#{and-map*\ 3574}#
+ (lambda (#{f\ 3612}# #{first\ 3613}# . #{rest\ 3614}#)
+ (let ((#{t\ 3615}# (null? #{first\ 3613}#)))
+ (if #{t\ 3615}#
+ #{t\ 3615}#
+ (if (null? #{rest\ 3614}#)
+ (letrec ((#{andmap\ 3616}#
+ (lambda (#{first\ 3617}#)
+ (let ((#{x\ 3618}# (car #{first\ 3617}#))
+ (#{first\ 3619}# (cdr #{first\ 3617}#)))
+ (if (null? #{first\ 3619}#)
+ (#{f\ 3612}# #{x\ 3618}#)
+ (if (#{f\ 3612}# #{x\ 3618}#)
+ (#{andmap\ 3616}# #{first\ 3619}#)
#f))))))
- (#{andmap\ 72}# #{first\ 69}#))
- (letrec ((#{andmap\ 76}#
- (lambda (#{first\ 77}# #{rest\ 78}#)
- (let ((#{x\ 79}# (car #{first\ 77}#))
- (#{xr\ 80}# (map car #{rest\ 78}#))
- (#{first\ 81}# (cdr #{first\ 77}#))
- (#{rest\ 82}# (map cdr #{rest\ 78}#)))
- (if (null? #{first\ 81}#)
- (apply #{f\ 68}#
- (cons #{x\ 79}# #{xr\ 80}#))
- (if (apply #{f\ 68}#
- (cons #{x\ 79}# #{xr\ 80}#))
- (#{andmap\ 76}#
- #{first\ 81}#
- #{rest\ 82}#)
+ (#{andmap\ 3616}# #{first\ 3613}#))
+ (letrec ((#{andmap\ 3620}#
+ (lambda (#{first\ 3621}# #{rest\ 3622}#)
+ (let ((#{x\ 3623}# (car #{first\ 3621}#))
+ (#{xr\ 3624}# (map car #{rest\ 3622}#))
+ (#{first\ 3625}# (cdr #{first\ 3621}#))
+ (#{rest\ 3626}#
+ (map cdr #{rest\ 3622}#)))
+ (if (null? #{first\ 3625}#)
+ (apply #{f\ 3612}#
+ (cons #{x\ 3623}# #{xr\ 3624}#))
+ (if (apply #{f\ 3612}#
+ (cons #{x\ 3623}# #{xr\ 3624}#))
+ (#{andmap\ 3620}#
+ #{first\ 3625}#
+ #{rest\ 3626}#)
#f))))))
- (#{andmap\ 76}# #{first\ 69}# #{rest\ 70}#))))))))
- (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\ 158}#
- (car #{vars\ 303}#)
- #{w\ 305}#
+ (#{andmap\ 3620}# #{first\ 3613}# #{rest\ 3614}#))))))))
+ (letrec ((#{lambda-var-list\ 3721}#
+ (lambda (#{vars\ 3845}#)
+ (letrec ((#{lvl\ 3846}#
+ (lambda (#{vars\ 3847}# #{ls\ 3848}# #{w\ 3849}#)
+ (if (pair? #{vars\ 3847}#)
+ (#{lvl\ 3846}#
+ (cdr #{vars\ 3847}#)
+ (cons (#{wrap\ 3702}#
+ (car #{vars\ 3847}#)
+ #{w\ 3849}#
#f)
- #{ls\ 304}#)
- #{w\ 305}#)
- (if (#{id?\ 130}# #{vars\ 303}#)
- (cons (#{wrap\ 158}#
- #{vars\ 303}#
- #{w\ 305}#
+ #{ls\ 3848}#)
+ #{w\ 3849}#)
+ (if (#{id?\ 3674}# #{vars\ 3847}#)
+ (cons (#{wrap\ 3702}#
+ #{vars\ 3847}#
+ #{w\ 3849}#
#f)
- #{ls\ 304}#)
- (if (null? #{vars\ 303}#)
- #{ls\ 304}#
- (if (#{syntax-object?\ 114}# #{vars\ 303}#)
- (#{lvl\ 302}#
- (#{syntax-object-expression\ 115}#
- #{vars\ 303}#)
- #{ls\ 304}#
- (#{join-wraps\ 149}#
- #{w\ 305}#
- (#{syntax-object-wrap\ 116}#
- #{vars\ 303}#)))
- (cons #{vars\ 303}# #{ls\ 304}#))))))))
- (#{lvl\ 302}#
- #{vars\ 301}#
+ #{ls\ 3848}#)
+ (if (null? #{vars\ 3847}#)
+ #{ls\ 3848}#
+ (if (#{syntax-object?\ 3658}# #{vars\ 3847}#)
+ (#{lvl\ 3846}#
+ (#{syntax-object-expression\ 3659}#
+ #{vars\ 3847}#)
+ #{ls\ 3848}#
+ (#{join-wraps\ 3693}#
+ #{w\ 3849}#
+ (#{syntax-object-wrap\ 3660}#
+ #{vars\ 3847}#)))
+ (cons #{vars\ 3847}# #{ls\ 3848}#))))))))
+ (#{lvl\ 3846}#
+ #{vars\ 3845}#
'()
'(())))))
- (#{gen-var\ 176}#
- (lambda (#{id\ 306}#)
- (let ((#{id\ 307}#
- (if (#{syntax-object?\ 114}# #{id\ 306}#)
- (#{syntax-object-expression\ 115}# #{id\ 306}#)
- #{id\ 306}#)))
+ (#{gen-var\ 3720}#
+ (lambda (#{id\ 3850}#)
+ (let ((#{id\ 3851}#
+ (if (#{syntax-object?\ 3658}# #{id\ 3850}#)
+ (#{syntax-object-expression\ 3659}# #{id\ 3850}#)
+ #{id\ 3850}#)))
(gensym
- (string-append (symbol->string #{id\ 307}#) " ")))))
- (#{strip\ 175}#
- (lambda (#{x\ 308}# #{w\ 309}#)
+ (string-append (symbol->string #{id\ 3851}#) " ")))))
+ (#{strip\ 3719}#
+ (lambda (#{x\ 3852}# #{w\ 3853}#)
(if (memq 'top
- (#{wrap-marks\ 133}# #{w\ 309}#))
- #{x\ 308}#
- (letrec ((#{f\ 310}# (lambda (#{x\ 311}#)
- (if (#{syntax-object?\ 114}#
- #{x\ 311}#)
- (#{strip\ 175}#
- (#{syntax-object-expression\ 115}#
- #{x\ 311}#)
- (#{syntax-object-wrap\ 116}#
- #{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*\ 30}#
- 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?\ 129}# #{x\ 316}#)
- (#{free-id=?\ 153}#
- #{x\ 316}#
+ (#{wrap-marks\ 3677}# #{w\ 3853}#))
+ #{x\ 3852}#
+ (letrec ((#{f\ 3854}#
+ (lambda (#{x\ 3855}#)
+ (if (#{syntax-object?\ 3658}# #{x\ 3855}#)
+ (#{strip\ 3719}#
+ (#{syntax-object-expression\ 3659}#
+ #{x\ 3855}#)
+ (#{syntax-object-wrap\ 3660}# #{x\ 3855}#))
+ (if (pair? #{x\ 3855}#)
+ (let ((#{a\ 3856}#
+ (#{f\ 3854}# (car #{x\ 3855}#)))
+ (#{d\ 3857}#
+ (#{f\ 3854}# (cdr #{x\ 3855}#))))
+ (if (if (eq? #{a\ 3856}# (car #{x\ 3855}#))
+ (eq? #{d\ 3857}# (cdr #{x\ 3855}#))
+ #f)
+ #{x\ 3855}#
+ (cons #{a\ 3856}# #{d\ 3857}#)))
+ (if (vector? #{x\ 3855}#)
+ (let ((#{old\ 3858}#
+ (vector->list #{x\ 3855}#)))
+ (let ((#{new\ 3859}#
+ (map #{f\ 3854}# #{old\ 3858}#)))
+ (if (#{and-map*\ 3574}#
+ eq?
+ #{old\ 3858}#
+ #{new\ 3859}#)
+ #{x\ 3855}#
+ (list->vector #{new\ 3859}#))))
+ #{x\ 3855}#))))))
+ (#{f\ 3854}# #{x\ 3852}#)))))
+ (#{ellipsis?\ 3718}#
+ (lambda (#{x\ 3860}#)
+ (if (#{nonsymbol-id?\ 3673}# #{x\ 3860}#)
+ (#{free-id=?\ 3697}#
+ #{x\ 3860}#
'#(syntax-object
...
((top)
@@ -472,1223 +469,1248 @@
("i" "i")))
(hygiene guile)))
#f)))
- (#{chi-void\ 173}#
- (lambda () (#{build-void\ 94}# #f)))
- (#{eval-local-transformer\ 172}#
- (lambda (#{expanded\ 317}# #{mod\ 318}#)
- (let ((#{p\ 319}# (#{local-eval-hook\ 90}#
- #{expanded\ 317}#
- #{mod\ 318}#)))
- (if (procedure? #{p\ 319}#)
- #{p\ 319}#
+ (#{chi-void\ 3717}#
+ (lambda () (#{build-void\ 3638}# #f)))
+ (#{eval-local-transformer\ 3716}#
+ (lambda (#{expanded\ 3861}# #{mod\ 3862}#)
+ (let ((#{p\ 3863}#
+ (#{local-eval-hook\ 3634}#
+ #{expanded\ 3861}#
+ #{mod\ 3862}#)))
+ (if (procedure? #{p\ 3863}#)
+ #{p\ 3863}#
(syntax-violation
#f
"nonprocedure transformer"
- #{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?\ 155}#
- #{ids\ 334}#))
+ #{p\ 3863}#)))))
+ (#{chi-local-syntax\ 3715}#
+ (lambda (#{rec?\ 3864}#
+ #{e\ 3865}#
+ #{r\ 3866}#
+ #{w\ 3867}#
+ #{s\ 3868}#
+ #{mod\ 3869}#
+ #{k\ 3870}#)
+ ((lambda (#{tmp\ 3871}#)
+ ((lambda (#{tmp\ 3872}#)
+ (if #{tmp\ 3872}#
+ (apply (lambda (#{_\ 3873}#
+ #{id\ 3874}#
+ #{val\ 3875}#
+ #{e1\ 3876}#
+ #{e2\ 3877}#)
+ (let ((#{ids\ 3878}# #{id\ 3874}#))
+ (if (not (#{valid-bound-ids?\ 3699}#
+ #{ids\ 3878}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 321}#)
- (let ((#{labels\ 336}#
- (#{gen-labels\ 136}#
- #{ids\ 334}#)))
- (let ((#{new-w\ 337}#
- (#{make-binding-wrap\ 147}#
- #{ids\ 334}#
- #{labels\ 336}#
- #{w\ 323}#)))
- (#{k\ 326}# (cons #{e1\ 332}#
- #{e2\ 333}#)
- (#{extend-env\ 124}#
- #{labels\ 336}#
- (let ((#{w\ 339}# (if
#{rec?\ 320}#
-
#{new-w\ 337}#
- #{w\
323}#))
- (#{trans-r\ 340}#
-
(#{macros-only-env\ 126}#
- #{r\ 322}#)))
- (map (lambda (#{x\
341}#)
- (cons 'macro
-
(#{eval-local-transformer\ 172}#
- (#{chi\
166}#
- #{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}#)
+ #{e\ 3865}#)
+ (let ((#{labels\ 3880}#
+ (#{gen-labels\ 3680}#
+ #{ids\ 3878}#)))
+ (let ((#{new-w\ 3881}#
+ (#{make-binding-wrap\ 3691}#
+ #{ids\ 3878}#
+ #{labels\ 3880}#
+ #{w\ 3867}#)))
+ (#{k\ 3870}#
+ (cons #{e1\ 3876}# #{e2\ 3877}#)
+ (#{extend-env\ 3668}#
+ #{labels\ 3880}#
+ (let ((#{w\ 3883}#
+ (if #{rec?\ 3864}#
+ #{new-w\ 3881}#
+ #{w\ 3867}#))
+ (#{trans-r\ 3884}#
+ (#{macros-only-env\ 3670}#
+ #{r\ 3866}#)))
+ (map (lambda (#{x\ 3885}#)
+ (cons 'macro
+
(#{eval-local-transformer\ 3716}#
+ (#{chi\ 3710}#
+ #{x\ 3885}#
+ #{trans-r\
3884}#
+ #{w\ 3883}#
+ #{mod\ 3869}#)
+ #{mod\ 3869}#)))
+ #{val\ 3875}#))
+ #{r\ 3866}#)
+ #{new-w\ 3881}#
+ #{s\ 3868}#
+ #{mod\ 3869}#))))))
+ #{tmp\ 3872}#)
+ ((lambda (#{_\ 3887}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 159}#
- #{e\ 321}#
- #{w\ 323}#
- #{s\ 324}#
- #{mod\ 325}#)))
- #{tmp\ 327}#)))
+ (#{source-wrap\ 3703}#
+ #{e\ 3865}#
+ #{w\ 3867}#
+ #{s\ 3868}#
+ #{mod\ 3869}#)))
+ #{tmp\ 3871}#)))
($sc-dispatch
- #{tmp\ 327}#
+ #{tmp\ 3871}#
'(any #(each (any any)) any . each-any))))
- #{e\ 321}#)))
- (#{chi-body\ 170}#
- (lambda (#{body\ 344}#
- #{outer-form\ 345}#
- #{r\ 346}#
- #{w\ 347}#
- #{mod\ 348}#)
- (let ((#{r\ 349}# (cons '("placeholder" placeholder)
- #{r\ 346}#)))
- (let ((#{ribcage\ 350}#
- (#{make-ribcage\ 137}#
+ #{e\ 3865}#)))
+ (#{chi-body\ 3714}#
+ (lambda (#{body\ 3888}#
+ #{outer-form\ 3889}#
+ #{r\ 3890}#
+ #{w\ 3891}#
+ #{mod\ 3892}#)
+ (let ((#{r\ 3893}#
+ (cons '("placeholder" placeholder)
+ #{r\ 3890}#)))
+ (let ((#{ribcage\ 3894}#
+ (#{make-ribcage\ 3681}#
'()
'()
'())))
- (let ((#{w\ 351}# (#{make-wrap\ 132}#
- (#{wrap-marks\ 133}# #{w\ 347}#)
- (cons #{ribcage\ 350}#
- (#{wrap-subst\ 134}#
- #{w\ 347}#)))))
- (letrec ((#{parse\ 352}#
- (lambda (#{body\ 353}#
- #{ids\ 354}#
- #{labels\ 355}#
- #{var-ids\ 356}#
- #{vars\ 357}#
- #{vals\ 358}#
- #{bindings\ 359}#)
- (if (null? #{body\ 353}#)
+ (let ((#{w\ 3895}#
+ (#{make-wrap\ 3676}#
+ (#{wrap-marks\ 3677}# #{w\ 3891}#)
+ (cons #{ribcage\ 3894}#
+ (#{wrap-subst\ 3678}# #{w\ 3891}#)))))
+ (letrec ((#{parse\ 3896}#
+ (lambda (#{body\ 3897}#
+ #{ids\ 3898}#
+ #{labels\ 3899}#
+ #{var-ids\ 3900}#
+ #{vars\ 3901}#
+ #{vals\ 3902}#
+ #{bindings\ 3903}#)
+ (if (null? #{body\ 3897}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 345}#)
- (let ((#{e\ 361}# (cdar #{body\ 353}#))
- (#{er\ 362}# (caar #{body\ 353}#)))
+ #{outer-form\ 3889}#)
+ (let ((#{e\ 3905}# (cdar #{body\ 3897}#))
+ (#{er\ 3906}# (caar #{body\ 3897}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 164}#
- #{e\ 361}#
- #{er\ 362}#
+ (#{syntax-type\ 3708}#
+ #{e\ 3905}#
+ #{er\ 3906}#
'(())
- (#{source-annotation\ 121}#
- #{er\ 362}#)
- #{ribcage\ 350}#
- #{mod\ 348}#
+ (#{source-annotation\ 3665}#
+ #{er\ 3906}#)
+ #{ribcage\ 3894}#
+ #{mod\ 3892}#
#f))
- (lambda (#{type\ 363}#
- #{value\ 364}#
- #{e\ 365}#
- #{w\ 366}#
- #{s\ 367}#
- #{mod\ 368}#)
- (if (memv #{type\ 363}#
+ (lambda (#{type\ 3907}#
+ #{value\ 3908}#
+ #{e\ 3909}#
+ #{w\ 3910}#
+ #{s\ 3911}#
+ #{mod\ 3912}#)
+ (if (memv #{type\ 3907}#
'(define-form))
- (let ((#{id\ 369}#
- (#{wrap\ 158}#
- #{value\ 364}#
- #{w\ 366}#
- #{mod\ 368}#))
- (#{label\ 370}#
- (#{gen-label\ 135}#)))
- (let ((#{var\ 371}#
- (#{gen-var\ 176}#
- #{id\ 369}#)))
+ (let ((#{id\ 3913}#
+ (#{wrap\ 3702}#
+ #{value\ 3908}#
+ #{w\ 3910}#
+ #{mod\ 3912}#))
+ (#{label\ 3914}#
+ (#{gen-label\ 3679}#)))
+ (let ((#{var\ 3915}#
+ (#{gen-var\ 3720}#
+ #{id\ 3913}#)))
(begin
- (#{extend-ribcage!\ 146}#
- #{ribcage\ 350}#
- #{id\ 369}#
- #{label\ 370}#)
- (#{parse\ 352}#
- (cdr #{body\ 353}#)
- (cons #{id\ 369}#
- #{ids\ 354}#)
- (cons #{label\ 370}#
- #{labels\ 355}#)
- (cons #{id\ 369}#
- #{var-ids\ 356}#)
- (cons #{var\ 371}#
- #{vars\ 357}#)
- (cons (cons #{er\ 362}#
- (#{wrap\ 158}#
- #{e\ 365}#
- #{w\ 366}#
- #{mod\
368}#))
- #{vals\ 358}#)
+ (#{extend-ribcage!\ 3690}#
+ #{ribcage\ 3894}#
+ #{id\ 3913}#
+ #{label\ 3914}#)
+ (#{parse\ 3896}#
+ (cdr #{body\ 3897}#)
+ (cons #{id\ 3913}#
+ #{ids\ 3898}#)
+ (cons #{label\ 3914}#
+ #{labels\ 3899}#)
+ (cons #{id\ 3913}#
+ #{var-ids\ 3900}#)
+ (cons #{var\ 3915}#
+ #{vars\ 3901}#)
+ (cons (cons #{er\ 3906}#
+ (#{wrap\ 3702}#
+ #{e\ 3909}#
+ #{w\ 3910}#
+ #{mod\
3912}#))
+ #{vals\ 3902}#)
(cons (cons 'lexical
- #{var\ 371}#)
- #{bindings\
359}#)))))
- (if (memv #{type\ 363}#
+ #{var\ 3915}#)
+ #{bindings\
3903}#)))))
+ (if (memv #{type\ 3907}#
'(define-syntax-form))
- (let ((#{id\ 372}#
- (#{wrap\ 158}#
- #{value\ 364}#
- #{w\ 366}#
- #{mod\ 368}#))
- (#{label\ 373}#
- (#{gen-label\ 135}#)))
+ (let ((#{id\ 3916}#
+ (#{wrap\ 3702}#
+ #{value\ 3908}#
+ #{w\ 3910}#
+ #{mod\ 3912}#))
+ (#{label\ 3917}#
+ (#{gen-label\ 3679}#)))
(begin
- (#{extend-ribcage!\ 146}#
- #{ribcage\ 350}#
- #{id\ 372}#
- #{label\ 373}#)
- (#{parse\ 352}#
- (cdr #{body\ 353}#)
- (cons #{id\ 372}#
- #{ids\ 354}#)
- (cons #{label\ 373}#
- #{labels\ 355}#)
- #{var-ids\ 356}#
- #{vars\ 357}#
- #{vals\ 358}#
+ (#{extend-ribcage!\ 3690}#
+ #{ribcage\ 3894}#
+ #{id\ 3916}#
+ #{label\ 3917}#)
+ (#{parse\ 3896}#
+ (cdr #{body\ 3897}#)
+ (cons #{id\ 3916}#
+ #{ids\ 3898}#)
+ (cons #{label\ 3917}#
+ #{labels\ 3899}#)
+ #{var-ids\ 3900}#
+ #{vars\ 3901}#
+ #{vals\ 3902}#
(cons (cons 'macro
- (cons #{er\
362}#
- (#{wrap\
158}#
- #{e\
365}#
- #{w\
366}#
- #{mod\
368}#)))
- #{bindings\ 359}#))))
- (if (memv #{type\ 363}#
+ (cons #{er\
3906}#
+ (#{wrap\
3702}#
+ #{e\
3909}#
+ #{w\
3910}#
+ #{mod\
3912}#)))
+ #{bindings\
3903}#))))
+ (if (memv #{type\ 3907}#
'(begin-form))
- ((lambda (#{tmp\ 374}#)
- ((lambda (#{tmp\ 375}#)
- (if #{tmp\ 375}#
- (apply (lambda (#{_\
376}#
- #{e1\
377}#)
- (#{parse\
352}#
- (letrec
((#{f\ 378}# (lambda (#{forms\ 379}#)
-
(if (null? #{forms\ 379}#)
-
(cdr #{body\ 353}#)
-
(cons (cons #{er\ 362}#
-
(#{wrap\ 158}#
-
(car #{forms\ 379}#)
-
#{w\ 366}#
-
#{mod\ 368}#))
-
(#{f\ 378}# (cdr #{forms\ 379}#)))))))
- (#{f\
378}# #{e1\ 377}#))
- #{ids\ 354}#
- #{labels\
355}#
- #{var-ids\
356}#
- #{vars\
357}#
- #{vals\
358}#
- #{bindings\
359}#))
- #{tmp\ 375}#)
+ ((lambda (#{tmp\ 3918}#)
+ ((lambda (#{tmp\ 3919}#)
+ (if #{tmp\ 3919}#
+ (apply (lambda (#{_\
3920}#
+ #{e1\
3921}#)
+ (#{parse\
3896}#
+ (letrec
((#{f\ 3922}#
+
(lambda (#{forms\ 3923}#)
+
(if (null? #{forms\ 3923}#)
+
(cdr #{body\ 3897}#)
+
(cons (cons #{er\ 3906}#
+
(#{wrap\ 3702}#
+
(car #{forms\ 3923}#)
+
#{w\ 3910}#
+
#{mod\ 3912}#))
+
(#{f\ 3922}#
+
(cdr #{forms\ 3923}#)))))))
+ (#{f\
3922}#
+ #{e1\
3921}#))
+ #{ids\
3898}#
+ #{labels\
3899}#
+ #{var-ids\
3900}#
+ #{vars\
3901}#
+ #{vals\
3902}#
+ #{bindings\
3903}#))
+ #{tmp\ 3919}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 374}#)))
+ #{tmp\ 3918}#)))
($sc-dispatch
- #{tmp\ 374}#
+ #{tmp\ 3918}#
'(any . each-any))))
- #{e\ 365}#)
- (if (memv #{type\ 363}#
+ #{e\ 3909}#)
+ (if (memv #{type\ 3907}#
'(local-syntax-form))
- (#{chi-local-syntax\ 171}#
- #{value\ 364}#
- #{e\ 365}#
- #{er\ 362}#
- #{w\ 366}#
- #{s\ 367}#
- #{mod\ 368}#
- (lambda (#{forms\ 381}#
- #{er\ 382}#
- #{w\ 383}#
- #{s\ 384}#
- #{mod\ 385}#)
- (#{parse\ 352}#
- (letrec ((#{f\ 386}#
(lambda (#{forms\ 387}#)
-
(if (null? #{forms\ 387}#)
-
(cdr #{body\ 353}#)
-
(cons (cons #{er\ 382}#
-
(#{wrap\ 158}#
-
(car #{forms\ 387}#)
-
#{w\ 383}#
-
#{mod\ 385}#))
-
(#{f\ 386}# (cdr #{forms\ 387}#)))))))
- (#{f\ 386}# #{forms\
381}#))
- #{ids\ 354}#
- #{labels\ 355}#
- #{var-ids\ 356}#
- #{vars\ 357}#
- #{vals\ 358}#
- #{bindings\ 359}#)))
- (if (null? #{ids\ 354}#)
- (#{build-sequence\ 109}#
+ (#{chi-local-syntax\ 3715}#
+ #{value\ 3908}#
+ #{e\ 3909}#
+ #{er\ 3906}#
+ #{w\ 3910}#
+ #{s\ 3911}#
+ #{mod\ 3912}#
+ (lambda (#{forms\ 3925}#
+ #{er\ 3926}#
+ #{w\ 3927}#
+ #{s\ 3928}#
+ #{mod\ 3929}#)
+ (#{parse\ 3896}#
+ (letrec ((#{f\ 3930}#
+ (lambda
(#{forms\ 3931}#)
+ (if
(null? #{forms\ 3931}#)
+ (cdr
#{body\ 3897}#)
+ (cons
(cons #{er\ 3926}#
+
(#{wrap\ 3702}#
+
(car #{forms\ 3931}#)
+
#{w\ 3927}#
+
#{mod\ 3929}#))
+
(#{f\ 3930}#
+
(cdr #{forms\ 3931}#)))))))
+ (#{f\ 3930}#
+ #{forms\ 3925}#))
+ #{ids\ 3898}#
+ #{labels\ 3899}#
+ #{var-ids\ 3900}#
+ #{vars\ 3901}#
+ #{vals\ 3902}#
+ #{bindings\ 3903}#)))
+ (if (null? #{ids\ 3898}#)
+ (#{build-sequence\ 3653}#
#f
- (map (lambda (#{x\ 388}#)
- (#{chi\ 166}#
- (cdr #{x\ 388}#)
- (car #{x\ 388}#)
+ (map (lambda (#{x\
3932}#)
+ (#{chi\ 3710}#
+ (cdr #{x\
3932}#)
+ (car #{x\
3932}#)
'(())
- #{mod\ 368}#))
- (cons (cons #{er\
362}#
-
(#{source-wrap\ 159}#
- #{e\
365}#
- #{w\
366}#
- #{s\
367}#
-
#{mod\ 368}#))
- (cdr #{body\
353}#))))
+ #{mod\ 3912}#))
+ (cons (cons #{er\
3906}#
+
(#{source-wrap\ 3703}#
+ #{e\
3909}#
+ #{w\
3910}#
+ #{s\
3911}#
+
#{mod\ 3912}#))
+ (cdr #{body\
3897}#))))
(begin
- (if (not
(#{valid-bound-ids?\ 155}#
- #{ids\ 354}#))
+ (if (not
(#{valid-bound-ids?\ 3699}#
+ #{ids\
3898}#))
(syntax-violation
#f
"invalid or
duplicate identifier in definition"
- #{outer-form\ 345}#))
- (letrec ((#{loop\ 389}#
- (lambda
(#{bs\ 390}#
-
#{er-cache\ 391}#
-
#{r-cache\ 392}#)
- (if (not
(null? #{bs\ 390}#))
- (let
((#{b\ 393}# (car #{bs\ 390}#)))
- (if
(eq? (car #{b\ 393}#)
+ #{outer-form\
3889}#))
+ (letrec ((#{loop\ 3933}#
+ (lambda
(#{bs\ 3934}#
+
#{er-cache\ 3935}#
+
#{r-cache\ 3936}#)
+ (if (not
(null? #{bs\ 3934}#))
+ (let
((#{b\ 3937}#
+
(car #{bs\ 3934}#)))
+ (if
(eq? (car #{b\ 3937}#)
'macro)
- (let
((#{er\ 394}#
-
(cadr #{b\ 393}#)))
-
(let ((#{r-cache\ 395}#
-
(if (eq? #{er\ 394}#
-
#{er-cache\ 391}#)
-
#{r-cache\ 392}#
-
(#{macros-only-env\ 126}#
-
#{er\ 394}#))))
+ (let
((#{er\ 3938}#
+
(cadr #{b\ 3937}#)))
+
(let ((#{r-cache\ 3939}#
+
(if (eq? #{er\ 3938}#
+
#{er-cache\ 3935}#)
+
#{r-cache\ 3936}#
+
(#{macros-only-env\ 3670}#
+
#{er\ 3938}#))))
(begin
(set-cdr!
-
#{b\ 393}#
-
(#{eval-local-transformer\ 172}#
-
(#{chi\ 166}#
-
(cddr #{b\ 393}#)
-
#{r-cache\ 395}#
+
#{b\ 3937}#
+
(#{eval-local-transformer\ 3716}#
+
(#{chi\ 3710}#
+
(cddr #{b\ 3937}#)
+
#{r-cache\ 3939}#
'(())
-
#{mod\ 368}#)
-
#{mod\ 368}#))
-
(#{loop\ 389}#
-
(cdr #{bs\ 390}#)
-
#{er\ 394}#
-
#{r-cache\ 395}#))))
-
(#{loop\ 389}#
-
(cdr #{bs\ 390}#)
-
#{er-cache\ 391}#
-
#{r-cache\ 392}#)))))))
- (#{loop\ 389}#
- #{bindings\ 359}#
+
#{mod\ 3912}#)
+
#{mod\ 3912}#))
+
(#{loop\ 3933}#
+
(cdr #{bs\ 3934}#)
+
#{er\ 3938}#
+
#{r-cache\ 3939}#))))
+
(#{loop\ 3933}#
+
(cdr #{bs\ 3934}#)
+
#{er-cache\ 3935}#
+
#{r-cache\ 3936}#)))))))
+ (#{loop\ 3933}#
+ #{bindings\ 3903}#
#f
#f))
(set-cdr!
- #{r\ 349}#
- (#{extend-env\ 124}#
- #{labels\ 355}#
- #{bindings\ 359}#
- (cdr #{r\ 349}#)))
- (#{build-letrec\ 112}#
+ #{r\ 3893}#
+ (#{extend-env\ 3668}#
+ #{labels\ 3899}#
+ #{bindings\ 3903}#
+ (cdr #{r\ 3893}#)))
+ (#{build-letrec\ 3656}#
#f
(map syntax->datum
- #{var-ids\ 356}#)
- #{vars\ 357}#
- (map (lambda (#{x\
396}#)
- (#{chi\ 166}#
- (cdr #{x\
396}#)
- (car #{x\
396}#)
+ #{var-ids\ 3900}#)
+ #{vars\ 3901}#
+ (map (lambda (#{x\
3940}#)
+ (#{chi\ 3710}#
+ (cdr #{x\
3940}#)
+ (car #{x\
3940}#)
'(())
- #{mod\ 368}#))
- #{vals\ 358}#)
- (#{build-sequence\
109}#
+ #{mod\
3912}#))
+ #{vals\ 3902}#)
+ (#{build-sequence\
3653}#
#f
- (map (lambda (#{x\
397}#)
- (#{chi\ 166}#
- (cdr #{x\
397}#)
- (car #{x\
397}#)
+ (map (lambda (#{x\
3941}#)
+ (#{chi\ 3710}#
+ (cdr #{x\
3941}#)
+ (car #{x\
3941}#)
'(())
- #{mod\
368}#))
- (cons (cons
#{er\ 362}#
-
(#{source-wrap\ 159}#
-
#{e\ 365}#
-
#{w\ 366}#
-
#{s\ 367}#
-
#{mod\ 368}#))
- (cdr
#{body\ 353}#))))))))))))))))))
- (#{parse\ 352}#
- (map (lambda (#{x\ 360}#)
- (cons #{r\ 349}#
- (#{wrap\ 158}#
- #{x\ 360}#
- #{w\ 351}#
- #{mod\ 348}#)))
- #{body\ 344}#)
+ #{mod\
3912}#))
+ (cons (cons
#{er\ 3906}#
+
(#{source-wrap\ 3703}#
+
#{e\ 3909}#
+
#{w\ 3910}#
+
#{s\ 3911}#
+
#{mod\ 3912}#))
+ (cdr
#{body\ 3897}#))))))))))))))))))
+ (#{parse\ 3896}#
+ (map (lambda (#{x\ 3904}#)
+ (cons #{r\ 3893}#
+ (#{wrap\ 3702}#
+ #{x\ 3904}#
+ #{w\ 3895}#
+ #{mod\ 3892}#)))
+ #{body\ 3888}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 169}#
- (lambda (#{p\ 398}#
- #{e\ 399}#
- #{r\ 400}#
- #{w\ 401}#
- #{rib\ 402}#
- #{mod\ 403}#)
- (letrec ((#{rebuild-macro-output\ 404}#
- (lambda (#{x\ 405}# #{m\ 406}#)
- (if (pair? #{x\ 405}#)
- (cons (#{rebuild-macro-output\ 404}#
- (car #{x\ 405}#)
- #{m\ 406}#)
- (#{rebuild-macro-output\ 404}#
- (cdr #{x\ 405}#)
- #{m\ 406}#))
- (if (#{syntax-object?\ 114}# #{x\ 405}#)
- (let ((#{w\ 407}# (#{syntax-object-wrap\ 116}#
- #{x\ 405}#)))
- (let ((#{ms\ 408}#
- (#{wrap-marks\ 133}# #{w\ 407}#))
- (#{s\ 409}# (#{wrap-subst\ 134}#
- #{w\ 407}#)))
- (if (if (pair? #{ms\ 408}#)
- (eq? (car #{ms\ 408}#) #f)
+ (#{chi-macro\ 3713}#
+ (lambda (#{p\ 3942}#
+ #{e\ 3943}#
+ #{r\ 3944}#
+ #{w\ 3945}#
+ #{rib\ 3946}#
+ #{mod\ 3947}#)
+ (letrec ((#{rebuild-macro-output\ 3948}#
+ (lambda (#{x\ 3949}# #{m\ 3950}#)
+ (if (pair? #{x\ 3949}#)
+ (cons (#{rebuild-macro-output\ 3948}#
+ (car #{x\ 3949}#)
+ #{m\ 3950}#)
+ (#{rebuild-macro-output\ 3948}#
+ (cdr #{x\ 3949}#)
+ #{m\ 3950}#))
+ (if (#{syntax-object?\ 3658}# #{x\ 3949}#)
+ (let ((#{w\ 3951}#
+ (#{syntax-object-wrap\ 3660}#
+ #{x\ 3949}#)))
+ (let ((#{ms\ 3952}#
+ (#{wrap-marks\ 3677}# #{w\ 3951}#))
+ (#{s\ 3953}#
+ (#{wrap-subst\ 3678}# #{w\ 3951}#)))
+ (if (if (pair? #{ms\ 3952}#)
+ (eq? (car #{ms\ 3952}#) #f)
#f)
- (#{make-syntax-object\ 113}#
- (#{syntax-object-expression\ 115}#
- #{x\ 405}#)
- (#{make-wrap\ 132}#
- (cdr #{ms\ 408}#)
- (if #{rib\ 402}#
- (cons #{rib\ 402}#
- (cdr #{s\ 409}#))
- (cdr #{s\ 409}#)))
- (#{syntax-object-module\ 117}#
- #{x\ 405}#))
- (#{make-syntax-object\ 113}#
- (#{syntax-object-expression\ 115}#
- #{x\ 405}#)
- (#{make-wrap\ 132}#
- (cons #{m\ 406}# #{ms\ 408}#)
- (if #{rib\ 402}#
- (cons #{rib\ 402}#
+ (#{make-syntax-object\ 3657}#
+ (#{syntax-object-expression\ 3659}#
+ #{x\ 3949}#)
+ (#{make-wrap\ 3676}#
+ (cdr #{ms\ 3952}#)
+ (if #{rib\ 3946}#
+ (cons #{rib\ 3946}#
+ (cdr #{s\ 3953}#))
+ (cdr #{s\ 3953}#)))
+ (#{syntax-object-module\ 3661}#
+ #{x\ 3949}#))
+ (#{make-syntax-object\ 3657}#
+ (#{syntax-object-expression\ 3659}#
+ #{x\ 3949}#)
+ (#{make-wrap\ 3676}#
+ (cons #{m\ 3950}# #{ms\ 3952}#)
+ (if #{rib\ 3946}#
+ (cons #{rib\ 3946}#
(cons 'shift
- #{s\ 409}#))
- (cons (quote shift) #{s\ 409}#)))
- (let ((#{pmod\ 410}#
- (procedure-module #{p\ 398}#)))
- (if #{pmod\ 410}#
+ #{s\ 3953}#))
+ (cons (quote shift) #{s\ 3953}#)))
+ (let ((#{pmod\ 3954}#
+ (procedure-module
+ #{p\ 3942}#)))
+ (if #{pmod\ 3954}#
(cons 'hygiene
- (module-name #{pmod\ 410}#))
+ (module-name #{pmod\ 3954}#))
'(hygiene guile)))))))
- (if (vector? #{x\ 405}#)
- (let ((#{n\ 411}# (vector-length
- #{x\ 405}#)))
- (let ((#{v\ 412}# (make-vector
- #{n\ 411}#)))
- (letrec ((#{loop\ 413}#
- (lambda (#{i\ 414}#)
- (if (#{fx=\ 87}#
- #{i\ 414}#
- #{n\ 411}#)
+ (if (vector? #{x\ 3949}#)
+ (let ((#{n\ 3955}#
+ (vector-length #{x\ 3949}#)))
+ (let ((#{v\ 3956}#
+ (make-vector #{n\ 3955}#)))
+ (letrec ((#{loop\ 3957}#
+ (lambda (#{i\ 3958}#)
+ (if (#{fx=\ 3631}#
+ #{i\ 3958}#
+ #{n\ 3955}#)
(begin
(if #f #f)
- #{v\ 412}#)
+ #{v\ 3956}#)
(begin
(vector-set!
- #{v\ 412}#
- #{i\ 414}#
-
(#{rebuild-macro-output\ 404}#
+ #{v\ 3956}#
+ #{i\ 3958}#
+
(#{rebuild-macro-output\ 3948}#
(vector-ref
- #{x\ 405}#
- #{i\ 414}#)
- #{m\ 406}#))
- (#{loop\ 413}#
- (#{fx+\ 85}#
- #{i\ 414}#
+ #{x\ 3949}#
+ #{i\ 3958}#)
+ #{m\ 3950}#))
+ (#{loop\ 3957}#
+ (#{fx+\ 3629}#
+ #{i\ 3958}#
1)))))))
- (#{loop\ 413}# 0))))
- (if (symbol? #{x\ 405}#)
+ (#{loop\ 3957}# 0))))
+ (if (symbol? #{x\ 3949}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 159}#
- #{e\ 399}#
- #{w\ 401}#
+ (#{source-wrap\ 3703}#
+ #{e\ 3943}#
+ #{w\ 3945}#
s
- #{mod\ 403}#)
- #{x\ 405}#)
- #{x\ 405}#)))))))
- (#{rebuild-macro-output\ 404}#
- (#{p\ 398}# (#{wrap\ 158}#
- #{e\ 399}#
- (#{anti-mark\ 145}# #{w\ 401}#)
- #{mod\ 403}#))
+ #{mod\ 3947}#)
+ #{x\ 3949}#)
+ #{x\ 3949}#)))))))
+ (#{rebuild-macro-output\ 3948}#
+ (#{p\ 3942}#
+ (#{wrap\ 3702}#
+ #{e\ 3943}#
+ (#{anti-mark\ 3689}# #{w\ 3945}#)
+ #{mod\ 3947}#))
(string #\m)))))
- (#{chi-application\ 168}#
- (lambda (#{x\ 415}#
- #{e\ 416}#
- #{r\ 417}#
- #{w\ 418}#
- #{s\ 419}#
- #{mod\ 420}#)
- ((lambda (#{tmp\ 421}#)
- ((lambda (#{tmp\ 422}#)
- (if #{tmp\ 422}#
- (apply (lambda (#{e0\ 423}# #{e1\ 424}#)
- (#{build-application\ 95}#
- #{s\ 419}#
- #{x\ 415}#
- (map (lambda (#{e\ 425}#)
- (#{chi\ 166}#
- #{e\ 425}#
- #{r\ 417}#
- #{w\ 418}#
- #{mod\ 420}#))
- #{e1\ 424}#)))
- #{tmp\ 422}#)
+ (#{chi-application\ 3712}#
+ (lambda (#{x\ 3959}#
+ #{e\ 3960}#
+ #{r\ 3961}#
+ #{w\ 3962}#
+ #{s\ 3963}#
+ #{mod\ 3964}#)
+ ((lambda (#{tmp\ 3965}#)
+ ((lambda (#{tmp\ 3966}#)
+ (if #{tmp\ 3966}#
+ (apply (lambda (#{e0\ 3967}# #{e1\ 3968}#)
+ (#{build-application\ 3639}#
+ #{s\ 3963}#
+ #{x\ 3959}#
+ (map (lambda (#{e\ 3969}#)
+ (#{chi\ 3710}#
+ #{e\ 3969}#
+ #{r\ 3961}#
+ #{w\ 3962}#
+ #{mod\ 3964}#))
+ #{e1\ 3968}#)))
+ #{tmp\ 3966}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 421}#)))
+ #{tmp\ 3965}#)))
($sc-dispatch
- #{tmp\ 421}#
+ #{tmp\ 3965}#
'(any . each-any))))
- #{e\ 416}#)))
- (#{chi-expr\ 167}#
- (lambda (#{type\ 427}#
- #{value\ 428}#
- #{e\ 429}#
- #{r\ 430}#
- #{w\ 431}#
- #{s\ 432}#
- #{mod\ 433}#)
- (if (memv #{type\ 427}# (quote (lexical)))
- (#{build-lexical-reference\ 97}#
+ #{e\ 3960}#)))
+ (#{chi-expr\ 3711}#
+ (lambda (#{type\ 3971}#
+ #{value\ 3972}#
+ #{e\ 3973}#
+ #{r\ 3974}#
+ #{w\ 3975}#
+ #{s\ 3976}#
+ #{mod\ 3977}#)
+ (if (memv #{type\ 3971}# (quote (lexical)))
+ (#{build-lexical-reference\ 3641}#
'value
- #{s\ 432}#
- #{e\ 429}#
- #{value\ 428}#)
- (if (memv #{type\ 427}# (quote (core core-form)))
- (#{value\ 428}#
- #{e\ 429}#
- #{r\ 430}#
- #{w\ 431}#
- #{s\ 432}#
- #{mod\ 433}#)
- (if (memv #{type\ 427}# (quote (module-ref)))
+ #{s\ 3976}#
+ #{e\ 3973}#
+ #{value\ 3972}#)
+ (if (memv #{type\ 3971}# (quote (core core-form)))
+ (#{value\ 3972}#
+ #{e\ 3973}#
+ #{r\ 3974}#
+ #{w\ 3975}#
+ #{s\ 3976}#
+ #{mod\ 3977}#)
+ (if (memv #{type\ 3971}# (quote (module-ref)))
(call-with-values
- (lambda () (#{value\ 428}# #{e\ 429}#))
- (lambda (#{id\ 434}# #{mod\ 435}#)
- (#{build-global-reference\ 100}#
- #{s\ 432}#
- #{id\ 434}#
- #{mod\ 435}#)))
- (if (memv #{type\ 427}# (quote (lexical-call)))
- (#{chi-application\ 168}#
- (#{build-lexical-reference\ 97}#
+ (lambda () (#{value\ 3972}# #{e\ 3973}#))
+ (lambda (#{id\ 3978}# #{mod\ 3979}#)
+ (#{build-global-reference\ 3644}#
+ #{s\ 3976}#
+ #{id\ 3978}#
+ #{mod\ 3979}#)))
+ (if (memv #{type\ 3971}# (quote (lexical-call)))
+ (#{chi-application\ 3712}#
+ (#{build-lexical-reference\ 3641}#
'fun
- (#{source-annotation\ 121}# (car #{e\ 429}#))
- (car #{e\ 429}#)
- #{value\ 428}#)
- #{e\ 429}#
- #{r\ 430}#
- #{w\ 431}#
- #{s\ 432}#
- #{mod\ 433}#)
- (if (memv #{type\ 427}# (quote (global-call)))
- (#{chi-application\ 168}#
- (#{build-global-reference\ 100}#
- (#{source-annotation\ 121}# (car #{e\ 429}#))
- (if (#{syntax-object?\ 114}# #{value\ 428}#)
- (#{syntax-object-expression\ 115}#
- #{value\ 428}#)
- #{value\ 428}#)
- (if (#{syntax-object?\ 114}# #{value\ 428}#)
- (#{syntax-object-module\ 117}# #{value\ 428}#)
- #{mod\ 433}#))
- #{e\ 429}#
- #{r\ 430}#
- #{w\ 431}#
- #{s\ 432}#
- #{mod\ 433}#)
- (if (memv #{type\ 427}# (quote (constant)))
- (#{build-data\ 108}#
- #{s\ 432}#
- (#{strip\ 175}#
- (#{source-wrap\ 159}#
- #{e\ 429}#
- #{w\ 431}#
- #{s\ 432}#
- #{mod\ 433}#)
+ (#{source-annotation\ 3665}# (car #{e\ 3973}#))
+ (car #{e\ 3973}#)
+ #{value\ 3972}#)
+ #{e\ 3973}#
+ #{r\ 3974}#
+ #{w\ 3975}#
+ #{s\ 3976}#
+ #{mod\ 3977}#)
+ (if (memv #{type\ 3971}# (quote (global-call)))
+ (#{chi-application\ 3712}#
+ (#{build-global-reference\ 3644}#
+ (#{source-annotation\ 3665}# (car #{e\ 3973}#))
+ (if (#{syntax-object?\ 3658}# #{value\ 3972}#)
+ (#{syntax-object-expression\ 3659}#
+ #{value\ 3972}#)
+ #{value\ 3972}#)
+ (if (#{syntax-object?\ 3658}# #{value\ 3972}#)
+ (#{syntax-object-module\ 3661}# #{value\ 3972}#)
+ #{mod\ 3977}#))
+ #{e\ 3973}#
+ #{r\ 3974}#
+ #{w\ 3975}#
+ #{s\ 3976}#
+ #{mod\ 3977}#)
+ (if (memv #{type\ 3971}# (quote (constant)))
+ (#{build-data\ 3652}#
+ #{s\ 3976}#
+ (#{strip\ 3719}#
+ (#{source-wrap\ 3703}#
+ #{e\ 3973}#
+ #{w\ 3975}#
+ #{s\ 3976}#
+ #{mod\ 3977}#)
'(())))
- (if (memv #{type\ 427}# (quote (global)))
- (#{build-global-reference\ 100}#
- #{s\ 432}#
- #{value\ 428}#
- #{mod\ 433}#)
- (if (memv #{type\ 427}# (quote (call)))
- (#{chi-application\ 168}#
- (#{chi\ 166}#
- (car #{e\ 429}#)
- #{r\ 430}#
- #{w\ 431}#
- #{mod\ 433}#)
- #{e\ 429}#
- #{r\ 430}#
- #{w\ 431}#
- #{s\ 432}#
- #{mod\ 433}#)
- (if (memv #{type\ 427}# (quote (begin-form)))
- ((lambda (#{tmp\ 436}#)
- ((lambda (#{tmp\ 437}#)
- (if #{tmp\ 437}#
- (apply (lambda (#{_\ 438}#
- #{e1\ 439}#
- #{e2\ 440}#)
- (#{chi-sequence\ 160}#
- (cons #{e1\ 439}#
- #{e2\ 440}#)
- #{r\ 430}#
- #{w\ 431}#
- #{s\ 432}#
- #{mod\ 433}#))
- #{tmp\ 437}#)
+ (if (memv #{type\ 3971}# (quote (global)))
+ (#{build-global-reference\ 3644}#
+ #{s\ 3976}#
+ #{value\ 3972}#
+ #{mod\ 3977}#)
+ (if (memv #{type\ 3971}# (quote (call)))
+ (#{chi-application\ 3712}#
+ (#{chi\ 3710}#
+ (car #{e\ 3973}#)
+ #{r\ 3974}#
+ #{w\ 3975}#
+ #{mod\ 3977}#)
+ #{e\ 3973}#
+ #{r\ 3974}#
+ #{w\ 3975}#
+ #{s\ 3976}#
+ #{mod\ 3977}#)
+ (if (memv #{type\ 3971}# (quote (begin-form)))
+ ((lambda (#{tmp\ 3980}#)
+ ((lambda (#{tmp\ 3981}#)
+ (if #{tmp\ 3981}#
+ (apply (lambda (#{_\ 3982}#
+ #{e1\ 3983}#
+ #{e2\ 3984}#)
+ (#{chi-sequence\ 3704}#
+ (cons #{e1\ 3983}#
+ #{e2\ 3984}#)
+ #{r\ 3974}#
+ #{w\ 3975}#
+ #{s\ 3976}#
+ #{mod\ 3977}#))
+ #{tmp\ 3981}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp\ 436}#)))
+ #{tmp\ 3980}#)))
($sc-dispatch
- #{tmp\ 436}#
+ #{tmp\ 3980}#
'(any any . each-any))))
- #{e\ 429}#)
- (if (memv #{type\ 427}#
+ #{e\ 3973}#)
+ (if (memv #{type\ 3971}#
'(local-syntax-form))
- (#{chi-local-syntax\ 171}#
- #{value\ 428}#
- #{e\ 429}#
- #{r\ 430}#
- #{w\ 431}#
- #{s\ 432}#
- #{mod\ 433}#
- #{chi-sequence\ 160}#)
- (if (memv #{type\ 427}#
+ (#{chi-local-syntax\ 3715}#
+ #{value\ 3972}#
+ #{e\ 3973}#
+ #{r\ 3974}#
+ #{w\ 3975}#
+ #{s\ 3976}#
+ #{mod\ 3977}#
+ #{chi-sequence\ 3704}#)
+ (if (memv #{type\ 3971}#
'(eval-when-form))
- ((lambda (#{tmp\ 442}#)
- ((lambda (#{tmp\ 443}#)
- (if #{tmp\ 443}#
- (apply (lambda (#{_\ 444}#
- #{x\ 445}#
- #{e1\ 446}#
- #{e2\ 447}#)
- (let ((#{when-list\ 448}#
-
(#{chi-when-list\ 163}#
- #{e\ 429}#
- #{x\ 445}#
- #{w\ 431}#)))
+ ((lambda (#{tmp\ 3986}#)
+ ((lambda (#{tmp\ 3987}#)
+ (if #{tmp\ 3987}#
+ (apply (lambda (#{_\ 3988}#
+ #{x\ 3989}#
+ #{e1\ 3990}#
+ #{e2\ 3991}#)
+ (let ((#{when-list\
3992}#
+
(#{chi-when-list\ 3707}#
+ #{e\ 3973}#
+ #{x\ 3989}#
+ #{w\ 3975}#)))
(if (memq 'eval
- #{when-list\
448}#)
- (#{chi-sequence\
160}#
- (cons #{e1\ 446}#
- #{e2\ 447}#)
- #{r\ 430}#
- #{w\ 431}#
- #{s\ 432}#
- #{mod\ 433}#)
- (#{chi-void\
173}#))))
- #{tmp\ 443}#)
+ #{when-list\
3992}#)
+ (#{chi-sequence\
3704}#
+ (cons #{e1\ 3990}#
+ #{e2\ 3991}#)
+ #{r\ 3974}#
+ #{w\ 3975}#
+ #{s\ 3976}#
+ #{mod\ 3977}#)
+ (#{chi-void\
3717}#))))
+ #{tmp\ 3987}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 442}#)))
+ #{tmp\ 3986}#)))
($sc-dispatch
- #{tmp\ 442}#
+ #{tmp\ 3986}#
'(any each-any any . each-any))))
- #{e\ 429}#)
- (if (memv #{type\ 427}#
+ #{e\ 3973}#)
+ (if (memv #{type\ 3971}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 429}#
- (#{wrap\ 158}#
- #{value\ 428}#
- #{w\ 431}#
- #{mod\ 433}#))
- (if (memv #{type\ 427}#
+ #{e\ 3973}#
+ (#{wrap\ 3702}#
+ #{value\ 3972}#
+ #{w\ 3975}#
+ #{mod\ 3977}#))
+ (if (memv #{type\ 3971}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable
outside syntax form"
- (#{source-wrap\ 159}#
- #{e\ 429}#
- #{w\ 431}#
- #{s\ 432}#
- #{mod\ 433}#))
- (if (memv #{type\ 427}#
+ (#{source-wrap\ 3703}#
+ #{e\ 3973}#
+ #{w\ 3975}#
+ #{s\ 3976}#
+ #{mod\ 3977}#))
+ (if (memv #{type\ 3971}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside
its scope"
- (#{source-wrap\ 159}#
- #{e\ 429}#
- #{w\ 431}#
- #{s\ 432}#
- #{mod\ 433}#))
+ (#{source-wrap\ 3703}#
+ #{e\ 3973}#
+ #{w\ 3975}#
+ #{s\ 3976}#
+ #{mod\ 3977}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 159}#
- #{e\ 429}#
- #{w\ 431}#
- #{s\ 432}#
- #{mod\ 433}#))))))))))))))))))
- (#{chi\ 166}#
- (lambda (#{e\ 451}# #{r\ 452}# #{w\ 453}# #{mod\ 454}#)
+ (#{source-wrap\ 3703}#
+ #{e\ 3973}#
+ #{w\ 3975}#
+ #{s\ 3976}#
+ #{mod\ 3977}#))))))))))))))))))
+ (#{chi\ 3710}#
+ (lambda (#{e\ 3995}#
+ #{r\ 3996}#
+ #{w\ 3997}#
+ #{mod\ 3998}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 164}#
- #{e\ 451}#
- #{r\ 452}#
- #{w\ 453}#
- (#{source-annotation\ 121}# #{e\ 451}#)
+ (#{syntax-type\ 3708}#
+ #{e\ 3995}#
+ #{r\ 3996}#
+ #{w\ 3997}#
+ (#{source-annotation\ 3665}# #{e\ 3995}#)
#f
- #{mod\ 454}#
+ #{mod\ 3998}#
#f))
- (lambda (#{type\ 455}#
- #{value\ 456}#
- #{e\ 457}#
- #{w\ 458}#
- #{s\ 459}#
- #{mod\ 460}#)
- (#{chi-expr\ 167}#
- #{type\ 455}#
- #{value\ 456}#
- #{e\ 457}#
- #{r\ 452}#
- #{w\ 458}#
- #{s\ 459}#
- #{mod\ 460}#)))))
- (#{chi-top\ 165}#
- (lambda (#{e\ 461}#
- #{r\ 462}#
- #{w\ 463}#
- #{m\ 464}#
- #{esew\ 465}#
- #{mod\ 466}#)
+ (lambda (#{type\ 3999}#
+ #{value\ 4000}#
+ #{e\ 4001}#
+ #{w\ 4002}#
+ #{s\ 4003}#
+ #{mod\ 4004}#)
+ (#{chi-expr\ 3711}#
+ #{type\ 3999}#
+ #{value\ 4000}#
+ #{e\ 4001}#
+ #{r\ 3996}#
+ #{w\ 4002}#
+ #{s\ 4003}#
+ #{mod\ 4004}#)))))
+ (#{chi-top\ 3709}#
+ (lambda (#{e\ 4005}#
+ #{r\ 4006}#
+ #{w\ 4007}#
+ #{m\ 4008}#
+ #{esew\ 4009}#
+ #{mod\ 4010}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 164}#
- #{e\ 461}#
- #{r\ 462}#
- #{w\ 463}#
- (#{source-annotation\ 121}# #{e\ 461}#)
+ (#{syntax-type\ 3708}#
+ #{e\ 4005}#
+ #{r\ 4006}#
+ #{w\ 4007}#
+ (#{source-annotation\ 3665}# #{e\ 4005}#)
#f
- #{mod\ 466}#
+ #{mod\ 4010}#
#f))
- (lambda (#{type\ 474}#
- #{value\ 475}#
- #{e\ 476}#
- #{w\ 477}#
- #{s\ 478}#
- #{mod\ 479}#)
- (if (memv #{type\ 474}# (quote (begin-form)))
- ((lambda (#{tmp\ 480}#)
- ((lambda (#{tmp\ 481}#)
- (if #{tmp\ 481}#
- (apply (lambda (#{_\ 482}#) (#{chi-void\ 173}#))
- #{tmp\ 481}#)
- ((lambda (#{tmp\ 483}#)
- (if #{tmp\ 483}#
- (apply (lambda (#{_\ 484}#
- #{e1\ 485}#
- #{e2\ 486}#)
- (#{chi-top-sequence\ 161}#
- (cons #{e1\ 485}# #{e2\ 486}#)
- #{r\ 462}#
- #{w\ 477}#
- #{s\ 478}#
- #{m\ 464}#
- #{esew\ 465}#
- #{mod\ 479}#))
- #{tmp\ 483}#)
+ (lambda (#{type\ 4018}#
+ #{value\ 4019}#
+ #{e\ 4020}#
+ #{w\ 4021}#
+ #{s\ 4022}#
+ #{mod\ 4023}#)
+ (if (memv #{type\ 4018}# (quote (begin-form)))
+ ((lambda (#{tmp\ 4024}#)
+ ((lambda (#{tmp\ 4025}#)
+ (if #{tmp\ 4025}#
+ (apply (lambda (#{_\ 4026}#) (#{chi-void\ 3717}#))
+ #{tmp\ 4025}#)
+ ((lambda (#{tmp\ 4027}#)
+ (if #{tmp\ 4027}#
+ (apply (lambda (#{_\ 4028}#
+ #{e1\ 4029}#
+ #{e2\ 4030}#)
+ (#{chi-top-sequence\ 3705}#
+ (cons #{e1\ 4029}# #{e2\ 4030}#)
+ #{r\ 4006}#
+ #{w\ 4021}#
+ #{s\ 4022}#
+ #{m\ 4008}#
+ #{esew\ 4009}#
+ #{mod\ 4023}#))
+ #{tmp\ 4027}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 480}#)))
+ #{tmp\ 4024}#)))
($sc-dispatch
- #{tmp\ 480}#
+ #{tmp\ 4024}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 480}# (quote (any)))))
- #{e\ 476}#)
- (if (memv #{type\ 474}# (quote (local-syntax-form)))
- (#{chi-local-syntax\ 171}#
- #{value\ 475}#
- #{e\ 476}#
- #{r\ 462}#
- #{w\ 477}#
- #{s\ 478}#
- #{mod\ 479}#
- (lambda (#{body\ 488}#
- #{r\ 489}#
- #{w\ 490}#
- #{s\ 491}#
- #{mod\ 492}#)
- (#{chi-top-sequence\ 161}#
- #{body\ 488}#
- #{r\ 489}#
- #{w\ 490}#
- #{s\ 491}#
- #{m\ 464}#
- #{esew\ 465}#
- #{mod\ 492}#)))
- (if (memv #{type\ 474}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 493}#)
- ((lambda (#{tmp\ 494}#)
- (if #{tmp\ 494}#
- (apply (lambda (#{_\ 495}#
- #{x\ 496}#
- #{e1\ 497}#
- #{e2\ 498}#)
- (let ((#{when-list\ 499}#
- (#{chi-when-list\ 163}#
- #{e\ 476}#
- #{x\ 496}#
- #{w\ 477}#))
- (#{body\ 500}#
- (cons #{e1\ 497}#
- #{e2\ 498}#)))
- (if (eq? #{m\ 464}# (quote e))
+ ($sc-dispatch #{tmp\ 4024}# (quote (any)))))
+ #{e\ 4020}#)
+ (if (memv #{type\ 4018}# (quote (local-syntax-form)))
+ (#{chi-local-syntax\ 3715}#
+ #{value\ 4019}#
+ #{e\ 4020}#
+ #{r\ 4006}#
+ #{w\ 4021}#
+ #{s\ 4022}#
+ #{mod\ 4023}#
+ (lambda (#{body\ 4032}#
+ #{r\ 4033}#
+ #{w\ 4034}#
+ #{s\ 4035}#
+ #{mod\ 4036}#)
+ (#{chi-top-sequence\ 3705}#
+ #{body\ 4032}#
+ #{r\ 4033}#
+ #{w\ 4034}#
+ #{s\ 4035}#
+ #{m\ 4008}#
+ #{esew\ 4009}#
+ #{mod\ 4036}#)))
+ (if (memv #{type\ 4018}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 4037}#)
+ ((lambda (#{tmp\ 4038}#)
+ (if #{tmp\ 4038}#
+ (apply (lambda (#{_\ 4039}#
+ #{x\ 4040}#
+ #{e1\ 4041}#
+ #{e2\ 4042}#)
+ (let ((#{when-list\ 4043}#
+ (#{chi-when-list\ 3707}#
+ #{e\ 4020}#
+ #{x\ 4040}#
+ #{w\ 4021}#))
+ (#{body\ 4044}#
+ (cons #{e1\ 4041}#
+ #{e2\ 4042}#)))
+ (if (eq? #{m\ 4008}# (quote e))
(if (memq 'eval
- #{when-list\ 499}#)
- (#{chi-top-sequence\ 161}#
- #{body\ 500}#
- #{r\ 462}#
- #{w\ 477}#
- #{s\ 478}#
+ #{when-list\ 4043}#)
+ (#{chi-top-sequence\ 3705}#
+ #{body\ 4044}#
+ #{r\ 4006}#
+ #{w\ 4021}#
+ #{s\ 4022}#
'e
'(eval)
- #{mod\ 479}#)
- (#{chi-void\ 173}#))
+ #{mod\ 4023}#)
+ (#{chi-void\ 3717}#))
(if (memq 'load
- #{when-list\ 499}#)
- (if (let ((#{t\ 503}# (memq
'compile
-
#{when-list\ 499}#)))
- (if #{t\ 503}#
- #{t\ 503}#
- (if (eq? #{m\ 464}#
+ #{when-list\ 4043}#)
+ (if (let ((#{t\ 4047}#
+ (memq 'compile
+ #{when-list\
4043}#)))
+ (if #{t\ 4047}#
+ #{t\ 4047}#
+ (if (eq? #{m\ 4008}#
'c&e)
(memq 'eval
- #{when-list\
499}#)
+ #{when-list\
4043}#)
#f)))
- (#{chi-top-sequence\ 161}#
- #{body\ 500}#
- #{r\ 462}#
- #{w\ 477}#
- #{s\ 478}#
+ (#{chi-top-sequence\ 3705}#
+ #{body\ 4044}#
+ #{r\ 4006}#
+ #{w\ 4021}#
+ #{s\ 4022}#
'c&e
'(compile load)
- #{mod\ 479}#)
- (if (memq #{m\ 464}#
+ #{mod\ 4023}#)
+ (if (memq #{m\ 4008}#
'(c c&e))
- (#{chi-top-sequence\ 161}#
- #{body\ 500}#
- #{r\ 462}#
- #{w\ 477}#
- #{s\ 478}#
+ (#{chi-top-sequence\ 3705}#
+ #{body\ 4044}#
+ #{r\ 4006}#
+ #{w\ 4021}#
+ #{s\ 4022}#
'c
'(load)
- #{mod\ 479}#)
- (#{chi-void\ 173}#)))
- (if (let ((#{t\ 504}# (memq
'compile
-
#{when-list\ 499}#)))
- (if #{t\ 504}#
- #{t\ 504}#
- (if (eq? #{m\ 464}#
+ #{mod\ 4023}#)
+ (#{chi-void\ 3717}#)))
+ (if (let ((#{t\ 4048}#
+ (memq 'compile
+ #{when-list\
4043}#)))
+ (if #{t\ 4048}#
+ #{t\ 4048}#
+ (if (eq? #{m\ 4008}#
'c&e)
(memq 'eval
- #{when-list\
499}#)
+ #{when-list\
4043}#)
#f)))
(begin
- (#{top-level-eval-hook\
89}#
- (#{chi-top-sequence\
161}#
- #{body\ 500}#
- #{r\ 462}#
- #{w\ 477}#
- #{s\ 478}#
+ (#{top-level-eval-hook\
3633}#
+ (#{chi-top-sequence\
3705}#
+ #{body\ 4044}#
+ #{r\ 4006}#
+ #{w\ 4021}#
+ #{s\ 4022}#
'e
'(eval)
- #{mod\ 479}#)
- #{mod\ 479}#)
- (#{chi-void\ 173}#))
- (#{chi-void\ 173}#))))))
- #{tmp\ 494}#)
+ #{mod\ 4023}#)
+ #{mod\ 4023}#)
+ (#{chi-void\ 3717}#))
+ (#{chi-void\ 3717}#))))))
+ #{tmp\ 4038}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 493}#)))
+ #{tmp\ 4037}#)))
($sc-dispatch
- #{tmp\ 493}#
+ #{tmp\ 4037}#
'(any each-any any . each-any))))
- #{e\ 476}#)
- (if (memv #{type\ 474}# (quote (define-syntax-form)))
- (let ((#{n\ 505}# (#{id-var-name\ 152}#
- #{value\ 475}#
- #{w\ 477}#))
- (#{r\ 506}# (#{macros-only-env\ 126}#
- #{r\ 462}#)))
- (if (memv #{m\ 464}# (quote (c)))
- (if (memq (quote compile) #{esew\ 465}#)
- (let ((#{e\ 507}# (#{chi-install-global\ 162}#
- #{n\ 505}#
- (#{chi\ 166}#
- #{e\ 476}#
- #{r\ 506}#
- #{w\ 477}#
- #{mod\ 479}#))))
+ #{e\ 4020}#)
+ (if (memv #{type\ 4018}#
+ '(define-syntax-form))
+ (let ((#{n\ 4049}#
+ (#{id-var-name\ 3696}#
+ #{value\ 4019}#
+ #{w\ 4021}#))
+ (#{r\ 4050}#
+ (#{macros-only-env\ 3670}# #{r\ 4006}#)))
+ (if (memv #{m\ 4008}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 4009}#)
+ (let ((#{e\ 4051}#
+ (#{chi-install-global\ 3706}#
+ #{n\ 4049}#
+ (#{chi\ 3710}#
+ #{e\ 4020}#
+ #{r\ 4050}#
+ #{w\ 4021}#
+ #{mod\ 4023}#))))
(begin
- (#{top-level-eval-hook\ 89}#
- #{e\ 507}#
- #{mod\ 479}#)
- (if (memq (quote load) #{esew\ 465}#)
- #{e\ 507}#
- (#{chi-void\ 173}#))))
- (if (memq (quote load) #{esew\ 465}#)
- (#{chi-install-global\ 162}#
- #{n\ 505}#
- (#{chi\ 166}#
- #{e\ 476}#
- #{r\ 506}#
- #{w\ 477}#
- #{mod\ 479}#))
- (#{chi-void\ 173}#)))
- (if (memv #{m\ 464}# (quote (c&e)))
- (let ((#{e\ 508}# (#{chi-install-global\ 162}#
- #{n\ 505}#
- (#{chi\ 166}#
- #{e\ 476}#
- #{r\ 506}#
- #{w\ 477}#
- #{mod\ 479}#))))
+ (#{top-level-eval-hook\ 3633}#
+ #{e\ 4051}#
+ #{mod\ 4023}#)
+ (if (memq (quote load) #{esew\ 4009}#)
+ #{e\ 4051}#
+ (#{chi-void\ 3717}#))))
+ (if (memq (quote load) #{esew\ 4009}#)
+ (#{chi-install-global\ 3706}#
+ #{n\ 4049}#
+ (#{chi\ 3710}#
+ #{e\ 4020}#
+ #{r\ 4050}#
+ #{w\ 4021}#
+ #{mod\ 4023}#))
+ (#{chi-void\ 3717}#)))
+ (if (memv #{m\ 4008}# (quote (c&e)))
+ (let ((#{e\ 4052}#
+ (#{chi-install-global\ 3706}#
+ #{n\ 4049}#
+ (#{chi\ 3710}#
+ #{e\ 4020}#
+ #{r\ 4050}#
+ #{w\ 4021}#
+ #{mod\ 4023}#))))
(begin
- (#{top-level-eval-hook\ 89}#
- #{e\ 508}#
- #{mod\ 479}#)
- #{e\ 508}#))
+ (#{top-level-eval-hook\ 3633}#
+ #{e\ 4052}#
+ #{mod\ 4023}#)
+ #{e\ 4052}#))
(begin
- (if (memq (quote eval) #{esew\ 465}#)
- (#{top-level-eval-hook\ 89}#
- (#{chi-install-global\ 162}#
- #{n\ 505}#
- (#{chi\ 166}#
- #{e\ 476}#
- #{r\ 506}#
- #{w\ 477}#
- #{mod\ 479}#))
- #{mod\ 479}#))
- (#{chi-void\ 173}#)))))
- (if (memv #{type\ 474}# (quote (define-form)))
- (let ((#{n\ 509}# (#{id-var-name\ 152}#
- #{value\ 475}#
- #{w\ 477}#)))
- (let ((#{type\ 510}#
- (#{binding-type\ 122}#
- (#{lookup\ 127}#
- #{n\ 509}#
- #{r\ 462}#
- #{mod\ 479}#))))
- (if (memv #{type\ 510}#
+ (if (memq (quote eval) #{esew\ 4009}#)
+ (#{top-level-eval-hook\ 3633}#
+ (#{chi-install-global\ 3706}#
+ #{n\ 4049}#
+ (#{chi\ 3710}#
+ #{e\ 4020}#
+ #{r\ 4050}#
+ #{w\ 4021}#
+ #{mod\ 4023}#))
+ #{mod\ 4023}#))
+ (#{chi-void\ 3717}#)))))
+ (if (memv #{type\ 4018}# (quote (define-form)))
+ (let ((#{n\ 4053}#
+ (#{id-var-name\ 3696}#
+ #{value\ 4019}#
+ #{w\ 4021}#)))
+ (let ((#{type\ 4054}#
+ (#{binding-type\ 3666}#
+ (#{lookup\ 3671}#
+ #{n\ 4053}#
+ #{r\ 4006}#
+ #{mod\ 4023}#))))
+ (if (memv #{type\ 4054}#
'(global core macro module-ref))
(begin
(if (if (not (module-local-variable
(current-module)
- #{n\ 509}#))
+ #{n\ 4053}#))
(current-module)
#f)
- (let ((#{old\ 511}#
+ (let ((#{old\ 4055}#
(module-variable
(current-module)
- #{n\ 509}#)))
+ #{n\ 4053}#)))
(module-define!
(current-module)
- #{n\ 509}#
- (if (variable? #{old\ 511}#)
- (variable-ref #{old\ 511}#)
+ #{n\ 4053}#
+ (if (variable? #{old\ 4055}#)
+ (variable-ref #{old\ 4055}#)
#f))))
- (let ((#{x\ 512}#
(#{build-global-definition\ 103}#
- #{s\ 478}#
- #{n\ 509}#
- (#{chi\ 166}#
- #{e\ 476}#
- #{r\ 462}#
- #{w\ 477}#
- #{mod\ 479}#))))
+ (let ((#{x\ 4056}#
+ (#{build-global-definition\ 3647}#
+ #{s\ 4022}#
+ #{n\ 4053}#
+ (#{chi\ 3710}#
+ #{e\ 4020}#
+ #{r\ 4006}#
+ #{w\ 4021}#
+ #{mod\ 4023}#))))
(begin
- (if (eq? #{m\ 464}# (quote c&e))
- (#{top-level-eval-hook\ 89}#
- #{x\ 512}#
- #{mod\ 479}#))
- #{x\ 512}#)))
- (if (memv #{type\ 510}#
+ (if (eq? #{m\ 4008}# (quote c&e))
+ (#{top-level-eval-hook\ 3633}#
+ #{x\ 4056}#
+ #{mod\ 4023}#))
+ #{x\ 4056}#)))
+ (if (memv #{type\ 4054}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 476}#
- (#{wrap\ 158}#
- #{value\ 475}#
- #{w\ 477}#
- #{mod\ 479}#))
+ #{e\ 4020}#
+ (#{wrap\ 3702}#
+ #{value\ 4019}#
+ #{w\ 4021}#
+ #{mod\ 4023}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 476}#
- (#{wrap\ 158}#
- #{value\ 475}#
- #{w\ 477}#
- #{mod\ 479}#))))))
- (let ((#{x\ 513}# (#{chi-expr\ 167}#
- #{type\ 474}#
- #{value\ 475}#
- #{e\ 476}#
- #{r\ 462}#
- #{w\ 477}#
- #{s\ 478}#
- #{mod\ 479}#)))
+ #{e\ 4020}#
+ (#{wrap\ 3702}#
+ #{value\ 4019}#
+ #{w\ 4021}#
+ #{mod\ 4023}#))))))
+ (let ((#{x\ 4057}#
+ (#{chi-expr\ 3711}#
+ #{type\ 4018}#
+ #{value\ 4019}#
+ #{e\ 4020}#
+ #{r\ 4006}#
+ #{w\ 4021}#
+ #{s\ 4022}#
+ #{mod\ 4023}#)))
(begin
- (if (eq? #{m\ 464}# (quote c&e))
- (#{top-level-eval-hook\ 89}#
- #{x\ 513}#
- #{mod\ 479}#))
- #{x\ 513}#)))))))))))
- (#{syntax-type\ 164}#
- (lambda (#{e\ 514}#
- #{r\ 515}#
- #{w\ 516}#
- #{s\ 517}#
- #{rib\ 518}#
- #{mod\ 519}#
- #{for-car?\ 520}#)
- (if (symbol? #{e\ 514}#)
- (let ((#{n\ 521}# (#{id-var-name\ 152}#
- #{e\ 514}#
- #{w\ 516}#)))
- (let ((#{b\ 522}# (#{lookup\ 127}#
- #{n\ 521}#
- #{r\ 515}#
- #{mod\ 519}#)))
- (let ((#{type\ 523}#
- (#{binding-type\ 122}# #{b\ 522}#)))
- (if (memv #{type\ 523}# (quote (lexical)))
+ (if (eq? #{m\ 4008}# (quote c&e))
+ (#{top-level-eval-hook\ 3633}#
+ #{x\ 4057}#
+ #{mod\ 4023}#))
+ #{x\ 4057}#)))))))))))
+ (#{syntax-type\ 3708}#
+ (lambda (#{e\ 4058}#
+ #{r\ 4059}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{rib\ 4062}#
+ #{mod\ 4063}#
+ #{for-car?\ 4064}#)
+ (if (symbol? #{e\ 4058}#)
+ (let ((#{n\ 4065}#
+ (#{id-var-name\ 3696}# #{e\ 4058}# #{w\ 4060}#)))
+ (let ((#{b\ 4066}#
+ (#{lookup\ 3671}#
+ #{n\ 4065}#
+ #{r\ 4059}#
+ #{mod\ 4063}#)))
+ (let ((#{type\ 4067}#
+ (#{binding-type\ 3666}# #{b\ 4066}#)))
+ (if (memv #{type\ 4067}# (quote (lexical)))
(values
- #{type\ 523}#
- (#{binding-value\ 123}# #{b\ 522}#)
- #{e\ 514}#
- #{w\ 516}#
- #{s\ 517}#
- #{mod\ 519}#)
- (if (memv #{type\ 523}# (quote (global)))
+ #{type\ 4067}#
+ (#{binding-value\ 3667}# #{b\ 4066}#)
+ #{e\ 4058}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{mod\ 4063}#)
+ (if (memv #{type\ 4067}# (quote (global)))
(values
- #{type\ 523}#
- #{n\ 521}#
- #{e\ 514}#
- #{w\ 516}#
- #{s\ 517}#
- #{mod\ 519}#)
- (if (memv #{type\ 523}# (quote (macro)))
- (if #{for-car?\ 520}#
+ #{type\ 4067}#
+ #{n\ 4065}#
+ #{e\ 4058}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{mod\ 4063}#)
+ (if (memv #{type\ 4067}# (quote (macro)))
+ (if #{for-car?\ 4064}#
(values
- #{type\ 523}#
- (#{binding-value\ 123}# #{b\ 522}#)
- #{e\ 514}#
- #{w\ 516}#
- #{s\ 517}#
- #{mod\ 519}#)
- (#{syntax-type\ 164}#
- (#{chi-macro\ 169}#
- (#{binding-value\ 123}# #{b\ 522}#)
- #{e\ 514}#
- #{r\ 515}#
- #{w\ 516}#
- #{rib\ 518}#
- #{mod\ 519}#)
- #{r\ 515}#
+ #{type\ 4067}#
+ (#{binding-value\ 3667}# #{b\ 4066}#)
+ #{e\ 4058}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{mod\ 4063}#)
+ (#{syntax-type\ 3708}#
+ (#{chi-macro\ 3713}#
+ (#{binding-value\ 3667}# #{b\ 4066}#)
+ #{e\ 4058}#
+ #{r\ 4059}#
+ #{w\ 4060}#
+ #{rib\ 4062}#
+ #{mod\ 4063}#)
+ #{r\ 4059}#
'(())
- #{s\ 517}#
- #{rib\ 518}#
- #{mod\ 519}#
+ #{s\ 4061}#
+ #{rib\ 4062}#
+ #{mod\ 4063}#
#f))
(values
- #{type\ 523}#
- (#{binding-value\ 123}# #{b\ 522}#)
- #{e\ 514}#
- #{w\ 516}#
- #{s\ 517}#
- #{mod\ 519}#)))))))
- (if (pair? #{e\ 514}#)
- (let ((#{first\ 524}# (car #{e\ 514}#)))
+ #{type\ 4067}#
+ (#{binding-value\ 3667}# #{b\ 4066}#)
+ #{e\ 4058}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{mod\ 4063}#)))))))
+ (if (pair? #{e\ 4058}#)
+ (let ((#{first\ 4068}# (car #{e\ 4058}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 164}#
- #{first\ 524}#
- #{r\ 515}#
- #{w\ 516}#
- #{s\ 517}#
- #{rib\ 518}#
- #{mod\ 519}#
+ (#{syntax-type\ 3708}#
+ #{first\ 4068}#
+ #{r\ 4059}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{rib\ 4062}#
+ #{mod\ 4063}#
#t))
- (lambda (#{ftype\ 525}#
- #{fval\ 526}#
- #{fe\ 527}#
- #{fw\ 528}#
- #{fs\ 529}#
- #{fmod\ 530}#)
- (if (memv #{ftype\ 525}# (quote (lexical)))
+ (lambda (#{ftype\ 4069}#
+ #{fval\ 4070}#
+ #{fe\ 4071}#
+ #{fw\ 4072}#
+ #{fs\ 4073}#
+ #{fmod\ 4074}#)
+ (if (memv #{ftype\ 4069}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 526}#
- #{e\ 514}#
- #{w\ 516}#
- #{s\ 517}#
- #{mod\ 519}#)
- (if (memv #{ftype\ 525}# (quote (global)))
+ #{fval\ 4070}#
+ #{e\ 4058}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{mod\ 4063}#)
+ (if (memv #{ftype\ 4069}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 113}#
- #{fval\ 526}#
- #{w\ 516}#
- #{fmod\ 530}#)
- #{e\ 514}#
- #{w\ 516}#
- #{s\ 517}#
- #{mod\ 519}#)
- (if (memv #{ftype\ 525}# (quote (macro)))
- (#{syntax-type\ 164}#
- (#{chi-macro\ 169}#
- #{fval\ 526}#
- #{e\ 514}#
- #{r\ 515}#
- #{w\ 516}#
- #{rib\ 518}#
- #{mod\ 519}#)
- #{r\ 515}#
+ (#{make-syntax-object\ 3657}#
+ #{fval\ 4070}#
+ #{w\ 4060}#
+ #{fmod\ 4074}#)
+ #{e\ 4058}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{mod\ 4063}#)
+ (if (memv #{ftype\ 4069}# (quote (macro)))
+ (#{syntax-type\ 3708}#
+ (#{chi-macro\ 3713}#
+ #{fval\ 4070}#
+ #{e\ 4058}#
+ #{r\ 4059}#
+ #{w\ 4060}#
+ #{rib\ 4062}#
+ #{mod\ 4063}#)
+ #{r\ 4059}#
'(())
- #{s\ 517}#
- #{rib\ 518}#
- #{mod\ 519}#
- #{for-car?\ 520}#)
- (if (memv #{ftype\ 525}# (quote (module-ref)))
+ #{s\ 4061}#
+ #{rib\ 4062}#
+ #{mod\ 4063}#
+ #{for-car?\ 4064}#)
+ (if (memv #{ftype\ 4069}# (quote (module-ref)))
(call-with-values
- (lambda () (#{fval\ 526}# #{e\ 514}#))
- (lambda (#{sym\ 531}# #{mod\ 532}#)
- (#{syntax-type\ 164}#
- #{sym\ 531}#
- #{r\ 515}#
- #{w\ 516}#
- #{s\ 517}#
- #{rib\ 518}#
- #{mod\ 532}#
- #{for-car?\ 520}#)))
- (if (memv #{ftype\ 525}# (quote (core)))
+ (lambda () (#{fval\ 4070}# #{e\ 4058}#))
+ (lambda (#{sym\ 4075}# #{mod\ 4076}#)
+ (#{syntax-type\ 3708}#
+ #{sym\ 4075}#
+ #{r\ 4059}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{rib\ 4062}#
+ #{mod\ 4076}#
+ #{for-car?\ 4064}#)))
+ (if (memv #{ftype\ 4069}# (quote (core)))
(values
'core-form
- #{fval\ 526}#
- #{e\ 514}#
- #{w\ 516}#
- #{s\ 517}#
- #{mod\ 519}#)
- (if (memv #{ftype\ 525}#
+ #{fval\ 4070}#
+ #{e\ 4058}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{mod\ 4063}#)
+ (if (memv #{ftype\ 4069}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 526}#
- #{e\ 514}#
- #{w\ 516}#
- #{s\ 517}#
- #{mod\ 519}#)
- (if (memv #{ftype\ 525}# (quote (begin)))
+ #{fval\ 4070}#
+ #{e\ 4058}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{mod\ 4063}#)
+ (if (memv #{ftype\ 4069}# (quote (begin)))
(values
'begin-form
#f
- #{e\ 514}#
- #{w\ 516}#
- #{s\ 517}#
- #{mod\ 519}#)
- (if (memv #{ftype\ 525}#
+ #{e\ 4058}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{mod\ 4063}#)
+ (if (memv #{ftype\ 4069}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 514}#
- #{w\ 516}#
- #{s\ 517}#
- #{mod\ 519}#)
- (if (memv #{ftype\ 525}#
+ #{e\ 4058}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{mod\ 4063}#)
+ (if (memv #{ftype\ 4069}#
'(define))
- ((lambda (#{tmp\ 533}#)
- ((lambda (#{tmp\ 534}#)
- (if (if #{tmp\ 534}#
- (apply (lambda (#{_\
535}#
- #{name\
536}#
- #{val\
537}#)
- (#{id?\ 130}#
- #{name\
536}#))
- #{tmp\ 534}#)
+ ((lambda (#{tmp\ 4077}#)
+ ((lambda (#{tmp\ 4078}#)
+ (if (if #{tmp\ 4078}#
+ (apply (lambda (#{_\
4079}#
+ #{name\
4080}#
+ #{val\
4081}#)
+ (#{id?\ 3674}#
+ #{name\
4080}#))
+ #{tmp\ 4078}#)
#f)
- (apply (lambda (#{_\ 538}#
- #{name\
539}#
- #{val\
540}#)
+ (apply (lambda (#{_\ 4082}#
+ #{name\
4083}#
+ #{val\
4084}#)
(values
'define-form
- #{name\ 539}#
- #{val\ 540}#
- #{w\ 516}#
- #{s\ 517}#
- #{mod\ 519}#))
- #{tmp\ 534}#)
- ((lambda (#{tmp\ 541}#)
- (if (if #{tmp\ 541}#
- (apply (lambda
(#{_\ 542}#
-
#{name\ 543}#
-
#{args\ 544}#
-
#{e1\ 545}#
-
#{e2\ 546}#)
- (if
(#{id?\ 130}#
-
#{name\ 543}#)
-
(#{valid-bound-ids?\ 155}#
-
(#{lambda-var-list\ 177}#
-
#{args\ 544}#))
+ #{name\ 4083}#
+ #{val\ 4084}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{mod\ 4063}#))
+ #{tmp\ 4078}#)
+ ((lambda (#{tmp\ 4085}#)
+ (if (if #{tmp\ 4085}#
+ (apply (lambda
(#{_\ 4086}#
+
#{name\ 4087}#
+
#{args\ 4088}#
+
#{e1\ 4089}#
+
#{e2\ 4090}#)
+ (if
(#{id?\ 3674}#
+
#{name\ 4087}#)
+
(#{valid-bound-ids?\ 3699}#
+
(#{lambda-var-list\ 3721}#
+
#{args\ 4088}#))
#f))
- #{tmp\
541}#)
+ #{tmp\
4085}#)
#f)
- (apply (lambda (#{_\
547}#
-
#{name\ 548}#
-
#{args\ 549}#
- #{e1\
550}#
- #{e2\
551}#)
+ (apply (lambda (#{_\
4091}#
+
#{name\ 4092}#
+
#{args\ 4093}#
+ #{e1\
4094}#
+ #{e2\
4095}#)
(values
'define-form
- (#{wrap\
158}#
- #{name\
548}#
- #{w\ 516}#
- #{mod\
519}#)
-
(#{decorate-source\ 93}#
+ (#{wrap\
3702}#
+ #{name\
4092}#
+ #{w\
4060}#
+ #{mod\
4063}#)
+
(#{decorate-source\ 3637}#
(cons
'#(syntax-object
lambda
((top)
@@ -2126,33 +2148,33 @@
"i")))
(hygiene
guile))
-
(#{wrap\ 158}#
-
(cons #{args\ 549}#
-
(cons #{e1\ 550}#
-
#{e2\ 551}#))
-
#{w\ 516}#
-
#{mod\ 519}#))
- #{s\
517}#)
+
(#{wrap\ 3702}#
+
(cons #{args\ 4093}#
+
(cons #{e1\ 4094}#
+
#{e2\ 4095}#))
+
#{w\ 4060}#
+
#{mod\ 4063}#))
+ #{s\
4061}#)
'(())
- #{s\ 517}#
- #{mod\
519}#))
- #{tmp\ 541}#)
- ((lambda (#{tmp\ 553}#)
- (if (if #{tmp\ 553}#
- (apply
(lambda (#{_\ 554}#
-
#{name\ 555}#)
-
(#{id?\ 130}#
-
#{name\ 555}#))
- #{tmp\
553}#)
+ #{s\ 4061}#
+ #{mod\
4063}#))
+ #{tmp\ 4085}#)
+ ((lambda (#{tmp\
4097}#)
+ (if (if #{tmp\
4097}#
+ (apply
(lambda (#{_\ 4098}#
+
#{name\ 4099}#)
+
(#{id?\ 3674}#
+
#{name\ 4099}#))
+ #{tmp\
4097}#)
#f)
- (apply (lambda
(#{_\ 556}#
-
#{name\ 557}#)
+ (apply (lambda
(#{_\ 4100}#
+
#{name\ 4101}#)
(values
'define-form
-
(#{wrap\ 158}#
-
#{name\ 557}#
- #{w\
516}#
-
#{mod\ 519}#)
+
(#{wrap\ 3702}#
+
#{name\ 4101}#
+ #{w\
4060}#
+
#{mod\ 4063}#)
'(#(syntax-object
if
((top)
@@ -3438,3472 +3460,3511 @@
(hygiene
guile)))
'(())
- #{s\
517}#
- #{mod\
519}#))
- #{tmp\
553}#)
+ #{s\
4061}#
+ #{mod\
4063}#))
+ #{tmp\
4097}#)
(syntax-violation
#f
"source
expression failed to match any pattern"
- #{tmp\ 533}#)))
+ #{tmp\ 4077}#)))
($sc-dispatch
- #{tmp\ 533}#
+ #{tmp\ 4077}#
'(any any)))))
($sc-dispatch
- #{tmp\ 533}#
+ #{tmp\ 4077}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 533}#
+ #{tmp\ 4077}#
'(any any any))))
- #{e\ 514}#)
- (if (memv #{ftype\ 525}#
+ #{e\ 4058}#)
+ (if (memv #{ftype\ 4069}#
'(define-syntax))
- ((lambda (#{tmp\ 558}#)
- ((lambda (#{tmp\ 559}#)
- (if (if #{tmp\ 559}#
- (apply (lambda (#{_\
560}#
-
#{name\ 561}#
-
#{val\ 562}#)
- (#{id?\ 130}#
- #{name\
561}#))
- #{tmp\ 559}#)
+ ((lambda (#{tmp\ 4102}#)
+ ((lambda (#{tmp\ 4103}#)
+ (if (if #{tmp\ 4103}#
+ (apply (lambda (#{_\
4104}#
+
#{name\ 4105}#
+
#{val\ 4106}#)
+ (#{id?\
3674}#
+ #{name\
4105}#))
+ #{tmp\ 4103}#)
#f)
- (apply (lambda (#{_\ 563}#
- #{name\
564}#
- #{val\
565}#)
+ (apply (lambda (#{_\
4107}#
+ #{name\
4108}#
+ #{val\
4109}#)
(values
'define-syntax-form
- #{name\ 564}#
- #{val\ 565}#
- #{w\ 516}#
- #{s\ 517}#
- #{mod\ 519}#))
- #{tmp\ 559}#)
+ #{name\ 4108}#
+ #{val\ 4109}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{mod\ 4063}#))
+ #{tmp\ 4103}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 558}#)))
+ #{tmp\ 4102}#)))
($sc-dispatch
- #{tmp\ 558}#
+ #{tmp\ 4102}#
'(any any any))))
- #{e\ 514}#)
+ #{e\ 4058}#)
(values
'call
#f
- #{e\ 514}#
- #{w\ 516}#
- #{s\ 517}#
- #{mod\ 519}#))))))))))))))
- (if (#{syntax-object?\ 114}# #{e\ 514}#)
- (#{syntax-type\ 164}#
- (#{syntax-object-expression\ 115}# #{e\ 514}#)
- #{r\ 515}#
- (#{join-wraps\ 149}#
- #{w\ 516}#
- (#{syntax-object-wrap\ 116}# #{e\ 514}#))
- #{s\ 517}#
- #{rib\ 518}#
- (let ((#{t\ 566}# (#{syntax-object-module\ 117}#
- #{e\ 514}#)))
- (if #{t\ 566}# #{t\ 566}# #{mod\ 519}#))
- #{for-car?\ 520}#)
- (if (self-evaluating? #{e\ 514}#)
+ #{e\ 4058}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{mod\ 4063}#))))))))))))))
+ (if (#{syntax-object?\ 3658}# #{e\ 4058}#)
+ (#{syntax-type\ 3708}#
+ (#{syntax-object-expression\ 3659}# #{e\ 4058}#)
+ #{r\ 4059}#
+ (#{join-wraps\ 3693}#
+ #{w\ 4060}#
+ (#{syntax-object-wrap\ 3660}# #{e\ 4058}#))
+ #{s\ 4061}#
+ #{rib\ 4062}#
+ (let ((#{t\ 4110}#
+ (#{syntax-object-module\ 3661}# #{e\ 4058}#)))
+ (if #{t\ 4110}# #{t\ 4110}# #{mod\ 4063}#))
+ #{for-car?\ 4064}#)
+ (if (self-evaluating? #{e\ 4058}#)
(values
'constant
#f
- #{e\ 514}#
- #{w\ 516}#
- #{s\ 517}#
- #{mod\ 519}#)
+ #{e\ 4058}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{mod\ 4063}#)
(values
'other
#f
- #{e\ 514}#
- #{w\ 516}#
- #{s\ 517}#
- #{mod\ 519}#)))))))
- (#{chi-when-list\ 163}#
- (lambda (#{e\ 567}# #{when-list\ 568}# #{w\ 569}#)
- (letrec ((#{f\ 570}# (lambda (#{when-list\ 571}#
- #{situations\ 572}#)
- (if (null? #{when-list\ 571}#)
- #{situations\ 572}#
- (#{f\ 570}# (cdr #{when-list\ 571}#)
- (cons (let ((#{x\ 573}#
(car #{when-list\ 571}#)))
- (if (#{free-id=?\
153}#
- #{x\ 573}#
-
'#(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-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-case
-
build-case-lambda
-
build-simple-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)
- (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"
- "i"))
- #(ribcage
-
(define-structure
-
and-map*)
- ((top)
- (top))
- ("i"
- "i")))
- (hygiene
- guile)))
- 'compile
- (if
(#{free-id=?\ 153}#
- #{x\ 573}#
-
'#(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-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-case
-
build-case-lambda
-
build-simple-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)
-
(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"
-
"i"))
-
#(ribcage
-
(define-structure
-
and-map*)
-
((top)
-
(top))
- ("i"
-
"i")))
- (hygiene
-
guile)))
- 'load
- (if
(#{free-id=?\ 153}#
- #{x\
573}#
-
'#(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-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-case
-
build-case-lambda
-
build-simple-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)
-
(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"
-
"i"))
-
#(ribcage
-
(define-structure
-
and-map*)
-
((top)
-
(top))
-
("i"
-
"i")))
-
(hygiene
-
guile)))
- 'eval
-
(syntax-violation
- 'eval-when
- "invalid
situation"
- #{e\ 567}#
- (#{wrap\
158}#
- #{x\
573}#
- #{w\
569}#
- #f))))))
- #{situations\
572}#))))))
- (#{f\ 570}# #{when-list\ 568}# (quote ())))))
- (#{chi-install-global\ 162}#
- (lambda (#{name\ 574}# #{e\ 575}#)
- (#{build-global-definition\ 103}#
+ #{e\ 4058}#
+ #{w\ 4060}#
+ #{s\ 4061}#
+ #{mod\ 4063}#)))))))
+ (#{chi-when-list\ 3707}#
+ (lambda (#{e\ 4111}# #{when-list\ 4112}# #{w\ 4113}#)
+ (letrec ((#{f\ 4114}#
+ (lambda (#{when-list\ 4115}# #{situations\ 4116}#)
+ (if (null? #{when-list\ 4115}#)
+ #{situations\ 4116}#
+ (#{f\ 4114}#
+ (cdr #{when-list\ 4115}#)
+ (cons (let ((#{x\ 4117}#
+ (car #{when-list\ 4115}#)))
+ (if (#{free-id=?\ 3697}#
+ #{x\ 4117}#
+ '#(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-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-case
+ build-case-lambda
+ build-simple-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)
+ (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"
+ "i"))
+ #(ribcage
+ (define-structure and-map*)
+ ((top) (top))
+ ("i" "i")))
+ (hygiene guile)))
+ 'compile
+ (if (#{free-id=?\ 3697}#
+ #{x\ 4117}#
+ '#(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-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-case
+ build-case-lambda
+ build-simple-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)
+ (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"
+ "i"))
+ #(ribcage
+ (define-structure
+ and-map*)
+ ((top) (top))
+ ("i" "i")))
+ (hygiene guile)))
+ 'load
+ (if (#{free-id=?\ 3697}#
+ #{x\ 4117}#
+ '#(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-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-case
+ build-case-lambda
+ build-simple-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)
+ (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"
+ "i"))
+ #(ribcage
+ (define-structure
+ and-map*)
+ ((top) (top))
+ ("i" "i")))
+ (hygiene guile)))
+ 'eval
+ (syntax-violation
+ 'eval-when
+ "invalid situation"
+ #{e\ 4111}#
+ (#{wrap\ 3702}#
+ #{x\ 4117}#
+ #{w\ 4113}#
+ #f))))))
+ #{situations\ 4116}#))))))
+ (#{f\ 4114}# #{when-list\ 4112}# (quote ())))))
+ (#{chi-install-global\ 3706}#
+ (lambda (#{name\ 4118}# #{e\ 4119}#)
+ (#{build-global-definition\ 3647}#
#f
- #{name\ 574}#
- (if (let ((#{v\ 576}# (module-variable
- (current-module)
- #{name\ 574}#)))
- (if #{v\ 576}#
- (if (variable-bound? #{v\ 576}#)
- (if (macro? (variable-ref #{v\ 576}#))
- (not (eq? (macro-type (variable-ref #{v\ 576}#))
+ #{name\ 4118}#
+ (if (let ((#{v\ 4120}#
+ (module-variable
+ (current-module)
+ #{name\ 4118}#)))
+ (if #{v\ 4120}#
+ (if (variable-bound? #{v\ 4120}#)
+ (if (macro? (variable-ref #{v\ 4120}#))
+ (not (eq? (macro-type (variable-ref #{v\ 4120}#))
'syncase-macro))
#f)
#f)
#f))
- (#{build-application\ 95}#
+ (#{build-application\ 3639}#
#f
- (#{build-primref\ 107}#
+ (#{build-primref\ 3651}#
#f
'make-extended-syncase-macro)
- (list (#{build-application\ 95}#
+ (list (#{build-application\ 3639}#
#f
- (#{build-primref\ 107}# #f (quote module-ref))
- (list (#{build-application\ 95}#
+ (#{build-primref\ 3651}# #f (quote module-ref))
+ (list (#{build-application\ 3639}#
#f
- (#{build-primref\ 107}#
+ (#{build-primref\ 3651}#
#f
'current-module)
'())
- (#{build-data\ 108}# #f #{name\ 574}#)))
- (#{build-data\ 108}# #f (quote macro))
- #{e\ 575}#))
- (#{build-application\ 95}#
+ (#{build-data\ 3652}# #f #{name\ 4118}#)))
+ (#{build-data\ 3652}# #f (quote macro))
+ #{e\ 4119}#))
+ (#{build-application\ 3639}#
#f
- (#{build-primref\ 107}#
+ (#{build-primref\ 3651}#
#f
'make-syncase-macro)
- (list (#{build-data\ 108}# #f (quote macro))
- #{e\ 575}#))))))
- (#{chi-top-sequence\ 161}#
- (lambda (#{body\ 577}#
- #{r\ 578}#
- #{w\ 579}#
- #{s\ 580}#
- #{m\ 581}#
- #{esew\ 582}#
- #{mod\ 583}#)
- (#{build-sequence\ 109}#
- #{s\ 580}#
- (letrec ((#{dobody\ 584}#
- (lambda (#{body\ 585}#
- #{r\ 586}#
- #{w\ 587}#
- #{m\ 588}#
- #{esew\ 589}#
- #{mod\ 590}#)
- (if (null? #{body\ 585}#)
+ (list (#{build-data\ 3652}# #f (quote macro))
+ #{e\ 4119}#))))))
+ (#{chi-top-sequence\ 3705}#
+ (lambda (#{body\ 4121}#
+ #{r\ 4122}#
+ #{w\ 4123}#
+ #{s\ 4124}#
+ #{m\ 4125}#
+ #{esew\ 4126}#
+ #{mod\ 4127}#)
+ (#{build-sequence\ 3653}#
+ #{s\ 4124}#
+ (letrec ((#{dobody\ 4128}#
+ (lambda (#{body\ 4129}#
+ #{r\ 4130}#
+ #{w\ 4131}#
+ #{m\ 4132}#
+ #{esew\ 4133}#
+ #{mod\ 4134}#)
+ (if (null? #{body\ 4129}#)
'()
- (let ((#{first\ 591}#
- (#{chi-top\ 165}#
- (car #{body\ 585}#)
- #{r\ 586}#
- #{w\ 587}#
- #{m\ 588}#
- #{esew\ 589}#
- #{mod\ 590}#)))
- (cons #{first\ 591}#
- (#{dobody\ 584}#
- (cdr #{body\ 585}#)
- #{r\ 586}#
- #{w\ 587}#
- #{m\ 588}#
- #{esew\ 589}#
- #{mod\ 590}#)))))))
- (#{dobody\ 584}#
- #{body\ 577}#
- #{r\ 578}#
- #{w\ 579}#
- #{m\ 581}#
- #{esew\ 582}#
- #{mod\ 583}#)))))
- (#{chi-sequence\ 160}#
- (lambda (#{body\ 592}#
- #{r\ 593}#
- #{w\ 594}#
- #{s\ 595}#
- #{mod\ 596}#)
- (#{build-sequence\ 109}#
- #{s\ 595}#
- (letrec ((#{dobody\ 597}#
- (lambda (#{body\ 598}#
- #{r\ 599}#
- #{w\ 600}#
- #{mod\ 601}#)
- (if (null? #{body\ 598}#)
+ (let ((#{first\ 4135}#
+ (#{chi-top\ 3709}#
+ (car #{body\ 4129}#)
+ #{r\ 4130}#
+ #{w\ 4131}#
+ #{m\ 4132}#
+ #{esew\ 4133}#
+ #{mod\ 4134}#)))
+ (cons #{first\ 4135}#
+ (#{dobody\ 4128}#
+ (cdr #{body\ 4129}#)
+ #{r\ 4130}#
+ #{w\ 4131}#
+ #{m\ 4132}#
+ #{esew\ 4133}#
+ #{mod\ 4134}#)))))))
+ (#{dobody\ 4128}#
+ #{body\ 4121}#
+ #{r\ 4122}#
+ #{w\ 4123}#
+ #{m\ 4125}#
+ #{esew\ 4126}#
+ #{mod\ 4127}#)))))
+ (#{chi-sequence\ 3704}#
+ (lambda (#{body\ 4136}#
+ #{r\ 4137}#
+ #{w\ 4138}#
+ #{s\ 4139}#
+ #{mod\ 4140}#)
+ (#{build-sequence\ 3653}#
+ #{s\ 4139}#
+ (letrec ((#{dobody\ 4141}#
+ (lambda (#{body\ 4142}#
+ #{r\ 4143}#
+ #{w\ 4144}#
+ #{mod\ 4145}#)
+ (if (null? #{body\ 4142}#)
'()
- (let ((#{first\ 602}#
- (#{chi\ 166}#
- (car #{body\ 598}#)
- #{r\ 599}#
- #{w\ 600}#
- #{mod\ 601}#)))
- (cons #{first\ 602}#
- (#{dobody\ 597}#
- (cdr #{body\ 598}#)
- #{r\ 599}#
- #{w\ 600}#
- #{mod\ 601}#)))))))
- (#{dobody\ 597}#
- #{body\ 592}#
- #{r\ 593}#
- #{w\ 594}#
- #{mod\ 596}#)))))
- (#{source-wrap\ 159}#
- (lambda (#{x\ 603}#
- #{w\ 604}#
- #{s\ 605}#
- #{defmod\ 606}#)
- (#{wrap\ 158}#
- (#{decorate-source\ 93}# #{x\ 603}# #{s\ 605}#)
- #{w\ 604}#
- #{defmod\ 606}#)))
- (#{wrap\ 158}#
- (lambda (#{x\ 607}# #{w\ 608}# #{defmod\ 609}#)
- (if (if (null? (#{wrap-marks\ 133}# #{w\ 608}#))
- (null? (#{wrap-subst\ 134}# #{w\ 608}#))
+ (let ((#{first\ 4146}#
+ (#{chi\ 3710}#
+ (car #{body\ 4142}#)
+ #{r\ 4143}#
+ #{w\ 4144}#
+ #{mod\ 4145}#)))
+ (cons #{first\ 4146}#
+ (#{dobody\ 4141}#
+ (cdr #{body\ 4142}#)
+ #{r\ 4143}#
+ #{w\ 4144}#
+ #{mod\ 4145}#)))))))
+ (#{dobody\ 4141}#
+ #{body\ 4136}#
+ #{r\ 4137}#
+ #{w\ 4138}#
+ #{mod\ 4140}#)))))
+ (#{source-wrap\ 3703}#
+ (lambda (#{x\ 4147}#
+ #{w\ 4148}#
+ #{s\ 4149}#
+ #{defmod\ 4150}#)
+ (#{wrap\ 3702}#
+ (#{decorate-source\ 3637}#
+ #{x\ 4147}#
+ #{s\ 4149}#)
+ #{w\ 4148}#
+ #{defmod\ 4150}#)))
+ (#{wrap\ 3702}#
+ (lambda (#{x\ 4151}# #{w\ 4152}# #{defmod\ 4153}#)
+ (if (if (null? (#{wrap-marks\ 3677}# #{w\ 4152}#))
+ (null? (#{wrap-subst\ 3678}# #{w\ 4152}#))
#f)
- #{x\ 607}#
- (if (#{syntax-object?\ 114}# #{x\ 607}#)
- (#{make-syntax-object\ 113}#
- (#{syntax-object-expression\ 115}# #{x\ 607}#)
- (#{join-wraps\ 149}#
- #{w\ 608}#
- (#{syntax-object-wrap\ 116}# #{x\ 607}#))
- (#{syntax-object-module\ 117}# #{x\ 607}#))
- (if (null? #{x\ 607}#)
- #{x\ 607}#
- (#{make-syntax-object\ 113}#
- #{x\ 607}#
- #{w\ 608}#
- #{defmod\ 609}#))))))
- (#{bound-id-member?\ 157}#
- (lambda (#{x\ 610}# #{list\ 611}#)
- (if (not (null? #{list\ 611}#))
- (let ((#{t\ 612}# (#{bound-id=?\ 154}#
- #{x\ 610}#
- (car #{list\ 611}#))))
- (if #{t\ 612}#
- #{t\ 612}#
- (#{bound-id-member?\ 157}#
- #{x\ 610}#
- (cdr #{list\ 611}#))))
+ #{x\ 4151}#
+ (if (#{syntax-object?\ 3658}# #{x\ 4151}#)
+ (#{make-syntax-object\ 3657}#
+ (#{syntax-object-expression\ 3659}# #{x\ 4151}#)
+ (#{join-wraps\ 3693}#
+ #{w\ 4152}#
+ (#{syntax-object-wrap\ 3660}# #{x\ 4151}#))
+ (#{syntax-object-module\ 3661}# #{x\ 4151}#))
+ (if (null? #{x\ 4151}#)
+ #{x\ 4151}#
+ (#{make-syntax-object\ 3657}#
+ #{x\ 4151}#
+ #{w\ 4152}#
+ #{defmod\ 4153}#))))))
+ (#{bound-id-member?\ 3701}#
+ (lambda (#{x\ 4154}# #{list\ 4155}#)
+ (if (not (null? #{list\ 4155}#))
+ (let ((#{t\ 4156}#
+ (#{bound-id=?\ 3698}#
+ #{x\ 4154}#
+ (car #{list\ 4155}#))))
+ (if #{t\ 4156}#
+ #{t\ 4156}#
+ (#{bound-id-member?\ 3701}#
+ #{x\ 4154}#
+ (cdr #{list\ 4155}#))))
#f)))
- (#{distinct-bound-ids?\ 156}#
- (lambda (#{ids\ 613}#)
- (letrec ((#{distinct?\ 614}#
- (lambda (#{ids\ 615}#)
- (let ((#{t\ 616}# (null? #{ids\ 615}#)))
- (if #{t\ 616}#
- #{t\ 616}#
- (if (not (#{bound-id-member?\ 157}#
- (car #{ids\ 615}#)
- (cdr #{ids\ 615}#)))
- (#{distinct?\ 614}# (cdr #{ids\ 615}#))
+ (#{distinct-bound-ids?\ 3700}#
+ (lambda (#{ids\ 4157}#)
+ (letrec ((#{distinct?\ 4158}#
+ (lambda (#{ids\ 4159}#)
+ (let ((#{t\ 4160}# (null? #{ids\ 4159}#)))
+ (if #{t\ 4160}#
+ #{t\ 4160}#
+ (if (not (#{bound-id-member?\ 3701}#
+ (car #{ids\ 4159}#)
+ (cdr #{ids\ 4159}#)))
+ (#{distinct?\ 4158}# (cdr #{ids\ 4159}#))
#f))))))
- (#{distinct?\ 614}# #{ids\ 613}#))))
- (#{valid-bound-ids?\ 155}#
- (lambda (#{ids\ 617}#)
- (if (letrec ((#{all-ids?\ 618}#
- (lambda (#{ids\ 619}#)
- (let ((#{t\ 620}# (null? #{ids\ 619}#)))
- (if #{t\ 620}#
- #{t\ 620}#
- (if (#{id?\ 130}# (car #{ids\ 619}#))
- (#{all-ids?\ 618}# (cdr #{ids\ 619}#))
+ (#{distinct?\ 4158}# #{ids\ 4157}#))))
+ (#{valid-bound-ids?\ 3699}#
+ (lambda (#{ids\ 4161}#)
+ (if (letrec ((#{all-ids?\ 4162}#
+ (lambda (#{ids\ 4163}#)
+ (let ((#{t\ 4164}# (null? #{ids\ 4163}#)))
+ (if #{t\ 4164}#
+ #{t\ 4164}#
+ (if (#{id?\ 3674}# (car #{ids\ 4163}#))
+ (#{all-ids?\ 4162}# (cdr #{ids\ 4163}#))
#f))))))
- (#{all-ids?\ 618}# #{ids\ 617}#))
- (#{distinct-bound-ids?\ 156}# #{ids\ 617}#)
+ (#{all-ids?\ 4162}# #{ids\ 4161}#))
+ (#{distinct-bound-ids?\ 3700}# #{ids\ 4161}#)
#f)))
- (#{bound-id=?\ 154}#
- (lambda (#{i\ 621}# #{j\ 622}#)
- (if (if (#{syntax-object?\ 114}# #{i\ 621}#)
- (#{syntax-object?\ 114}# #{j\ 622}#)
+ (#{bound-id=?\ 3698}#
+ (lambda (#{i\ 4165}# #{j\ 4166}#)
+ (if (if (#{syntax-object?\ 3658}# #{i\ 4165}#)
+ (#{syntax-object?\ 3658}# #{j\ 4166}#)
#f)
- (if (eq? (#{syntax-object-expression\ 115}# #{i\ 621}#)
- (#{syntax-object-expression\ 115}# #{j\ 622}#))
- (#{same-marks?\ 151}#
- (#{wrap-marks\ 133}#
- (#{syntax-object-wrap\ 116}# #{i\ 621}#))
- (#{wrap-marks\ 133}#
- (#{syntax-object-wrap\ 116}# #{j\ 622}#)))
+ (if (eq? (#{syntax-object-expression\ 3659}# #{i\ 4165}#)
+ (#{syntax-object-expression\ 3659}# #{j\ 4166}#))
+ (#{same-marks?\ 3695}#
+ (#{wrap-marks\ 3677}#
+ (#{syntax-object-wrap\ 3660}# #{i\ 4165}#))
+ (#{wrap-marks\ 3677}#
+ (#{syntax-object-wrap\ 3660}# #{j\ 4166}#)))
#f)
- (eq? #{i\ 621}# #{j\ 622}#))))
- (#{free-id=?\ 153}#
- (lambda (#{i\ 623}# #{j\ 624}#)
- (if (eq? (let ((#{x\ 625}# #{i\ 623}#))
- (if (#{syntax-object?\ 114}# #{x\ 625}#)
- (#{syntax-object-expression\ 115}# #{x\ 625}#)
- #{x\ 625}#))
- (let ((#{x\ 626}# #{j\ 624}#))
- (if (#{syntax-object?\ 114}# #{x\ 626}#)
- (#{syntax-object-expression\ 115}# #{x\ 626}#)
- #{x\ 626}#)))
- (eq? (#{id-var-name\ 152}# #{i\ 623}# (quote (())))
- (#{id-var-name\ 152}# #{j\ 624}# (quote (()))))
+ (eq? #{i\ 4165}# #{j\ 4166}#))))
+ (#{free-id=?\ 3697}#
+ (lambda (#{i\ 4167}# #{j\ 4168}#)
+ (if (eq? (let ((#{x\ 4169}# #{i\ 4167}#))
+ (if (#{syntax-object?\ 3658}# #{x\ 4169}#)
+ (#{syntax-object-expression\ 3659}# #{x\ 4169}#)
+ #{x\ 4169}#))
+ (let ((#{x\ 4170}# #{j\ 4168}#))
+ (if (#{syntax-object?\ 3658}# #{x\ 4170}#)
+ (#{syntax-object-expression\ 3659}# #{x\ 4170}#)
+ #{x\ 4170}#)))
+ (eq? (#{id-var-name\ 3696}# #{i\ 4167}# (quote (())))
+ (#{id-var-name\ 3696}# #{j\ 4168}# (quote (()))))
#f)))
- (#{id-var-name\ 152}#
- (lambda (#{id\ 627}# #{w\ 628}#)
- (letrec ((#{search-vector-rib\ 631}#
- (lambda (#{sym\ 637}#
- #{subst\ 638}#
- #{marks\ 639}#
- #{symnames\ 640}#
- #{ribcage\ 641}#)
- (let ((#{n\ 642}# (vector-length
- #{symnames\ 640}#)))
- (letrec ((#{f\ 643}# (lambda (#{i\ 644}#)
- (if (#{fx=\ 87}#
- #{i\ 644}#
- #{n\ 642}#)
- (#{search\ 629}#
- #{sym\ 637}#
- (cdr #{subst\ 638}#)
- #{marks\ 639}#)
- (if (if (eq? (vector-ref
-
#{symnames\ 640}#
- #{i\
644}#)
- #{sym\
637}#)
- (#{same-marks?\
151}#
- #{marks\ 639}#
- (vector-ref
-
(#{ribcage-marks\ 140}#
- #{ribcage\
641}#)
- #{i\ 644}#))
- #f)
- (values
- (vector-ref
-
(#{ribcage-labels\ 141}#
- #{ribcage\
641}#)
- #{i\ 644}#)
- #{marks\ 639}#)
- (#{f\ 643}# (#{fx+\
85}#
- #{i\
644}#
- 1)))))))
- (#{f\ 643}# 0)))))
- (#{search-list-rib\ 630}#
- (lambda (#{sym\ 645}#
- #{subst\ 646}#
- #{marks\ 647}#
- #{symnames\ 648}#
- #{ribcage\ 649}#)
- (letrec ((#{f\ 650}# (lambda (#{symnames\ 651}#
- #{i\ 652}#)
- (if (null? #{symnames\
651}#)
- (#{search\ 629}#
- #{sym\ 645}#
- (cdr #{subst\ 646}#)
- #{marks\ 647}#)
- (if (if (eq? (car
#{symnames\ 651}#)
- #{sym\ 645}#)
- (#{same-marks?\
151}#
- #{marks\ 647}#
- (list-ref
-
(#{ribcage-marks\ 140}#
- #{ribcage\
649}#)
- #{i\ 652}#))
- #f)
- (values
- (list-ref
- (#{ribcage-labels\
141}#
- #{ribcage\ 649}#)
- #{i\ 652}#)
- #{marks\ 647}#)
- (#{f\ 650}# (cdr
#{symnames\ 651}#)
- (#{fx+\ 85}#
- #{i\ 652}#
- 1)))))))
- (#{f\ 650}# #{symnames\ 648}# 0))))
- (#{search\ 629}#
- (lambda (#{sym\ 653}# #{subst\ 654}# #{marks\ 655}#)
- (if (null? #{subst\ 654}#)
- (values #f #{marks\ 655}#)
- (let ((#{fst\ 656}# (car #{subst\ 654}#)))
- (if (eq? #{fst\ 656}# (quote shift))
- (#{search\ 629}#
- #{sym\ 653}#
- (cdr #{subst\ 654}#)
- (cdr #{marks\ 655}#))
- (let ((#{symnames\ 657}#
- (#{ribcage-symnames\ 139}#
- #{fst\ 656}#)))
- (if (vector? #{symnames\ 657}#)
- (#{search-vector-rib\ 631}#
- #{sym\ 653}#
- #{subst\ 654}#
- #{marks\ 655}#
- #{symnames\ 657}#
- #{fst\ 656}#)
- (#{search-list-rib\ 630}#
- #{sym\ 653}#
- #{subst\ 654}#
- #{marks\ 655}#
- #{symnames\ 657}#
- #{fst\ 656}#)))))))))
- (if (symbol? #{id\ 627}#)
- (let ((#{t\ 658}# (call-with-values
- (lambda ()
- (#{search\ 629}#
- #{id\ 627}#
- (#{wrap-subst\ 134}# #{w\ 628}#)
- (#{wrap-marks\ 133}# #{w\ 628}#)))
- (lambda (#{x\ 659}# . #{ignore\ 660}#)
- #{x\ 659}#))))
- (if #{t\ 658}# #{t\ 658}# #{id\ 627}#))
- (if (#{syntax-object?\ 114}# #{id\ 627}#)
- (let ((#{id\ 661}#
- (#{syntax-object-expression\ 115}# #{id\ 627}#))
- (#{w1\ 662}#
- (#{syntax-object-wrap\ 116}# #{id\ 627}#)))
- (let ((#{marks\ 663}#
- (#{join-marks\ 150}#
- (#{wrap-marks\ 133}# #{w\ 628}#)
- (#{wrap-marks\ 133}# #{w1\ 662}#))))
+ (#{id-var-name\ 3696}#
+ (lambda (#{id\ 4171}# #{w\ 4172}#)
+ (letrec ((#{search-vector-rib\ 4175}#
+ (lambda (#{sym\ 4181}#
+ #{subst\ 4182}#
+ #{marks\ 4183}#
+ #{symnames\ 4184}#
+ #{ribcage\ 4185}#)
+ (let ((#{n\ 4186}#
+ (vector-length #{symnames\ 4184}#)))
+ (letrec ((#{f\ 4187}#
+ (lambda (#{i\ 4188}#)
+ (if (#{fx=\ 3631}#
+ #{i\ 4188}#
+ #{n\ 4186}#)
+ (#{search\ 4173}#
+ #{sym\ 4181}#
+ (cdr #{subst\ 4182}#)
+ #{marks\ 4183}#)
+ (if (if (eq? (vector-ref
+ #{symnames\ 4184}#
+ #{i\ 4188}#)
+ #{sym\ 4181}#)
+ (#{same-marks?\ 3695}#
+ #{marks\ 4183}#
+ (vector-ref
+ (#{ribcage-marks\ 3684}#
+ #{ribcage\ 4185}#)
+ #{i\ 4188}#))
+ #f)
+ (values
+ (vector-ref
+ (#{ribcage-labels\ 3685}#
+ #{ribcage\ 4185}#)
+ #{i\ 4188}#)
+ #{marks\ 4183}#)
+ (#{f\ 4187}#
+ (#{fx+\ 3629}#
+ #{i\ 4188}#
+ 1)))))))
+ (#{f\ 4187}# 0)))))
+ (#{search-list-rib\ 4174}#
+ (lambda (#{sym\ 4189}#
+ #{subst\ 4190}#
+ #{marks\ 4191}#
+ #{symnames\ 4192}#
+ #{ribcage\ 4193}#)
+ (letrec ((#{f\ 4194}#
+ (lambda (#{symnames\ 4195}# #{i\ 4196}#)
+ (if (null? #{symnames\ 4195}#)
+ (#{search\ 4173}#
+ #{sym\ 4189}#
+ (cdr #{subst\ 4190}#)
+ #{marks\ 4191}#)
+ (if (if (eq? (car #{symnames\
4195}#)
+ #{sym\ 4189}#)
+ (#{same-marks?\ 3695}#
+ #{marks\ 4191}#
+ (list-ref
+ (#{ribcage-marks\ 3684}#
+ #{ribcage\ 4193}#)
+ #{i\ 4196}#))
+ #f)
+ (values
+ (list-ref
+ (#{ribcage-labels\ 3685}#
+ #{ribcage\ 4193}#)
+ #{i\ 4196}#)
+ #{marks\ 4191}#)
+ (#{f\ 4194}#
+ (cdr #{symnames\ 4195}#)
+ (#{fx+\ 3629}#
+ #{i\ 4196}#
+ 1)))))))
+ (#{f\ 4194}# #{symnames\ 4192}# 0))))
+ (#{search\ 4173}#
+ (lambda (#{sym\ 4197}#
+ #{subst\ 4198}#
+ #{marks\ 4199}#)
+ (if (null? #{subst\ 4198}#)
+ (values #f #{marks\ 4199}#)
+ (let ((#{fst\ 4200}# (car #{subst\ 4198}#)))
+ (if (eq? #{fst\ 4200}# (quote shift))
+ (#{search\ 4173}#
+ #{sym\ 4197}#
+ (cdr #{subst\ 4198}#)
+ (cdr #{marks\ 4199}#))
+ (let ((#{symnames\ 4201}#
+ (#{ribcage-symnames\ 3683}#
+ #{fst\ 4200}#)))
+ (if (vector? #{symnames\ 4201}#)
+ (#{search-vector-rib\ 4175}#
+ #{sym\ 4197}#
+ #{subst\ 4198}#
+ #{marks\ 4199}#
+ #{symnames\ 4201}#
+ #{fst\ 4200}#)
+ (#{search-list-rib\ 4174}#
+ #{sym\ 4197}#
+ #{subst\ 4198}#
+ #{marks\ 4199}#
+ #{symnames\ 4201}#
+ #{fst\ 4200}#)))))))))
+ (if (symbol? #{id\ 4171}#)
+ (let ((#{t\ 4202}#
+ (call-with-values
+ (lambda ()
+ (#{search\ 4173}#
+ #{id\ 4171}#
+ (#{wrap-subst\ 3678}# #{w\ 4172}#)
+ (#{wrap-marks\ 3677}# #{w\ 4172}#)))
+ (lambda (#{x\ 4203}# . #{ignore\ 4204}#)
+ #{x\ 4203}#))))
+ (if #{t\ 4202}# #{t\ 4202}# #{id\ 4171}#))
+ (if (#{syntax-object?\ 3658}# #{id\ 4171}#)
+ (let ((#{id\ 4205}#
+ (#{syntax-object-expression\ 3659}# #{id\ 4171}#))
+ (#{w1\ 4206}#
+ (#{syntax-object-wrap\ 3660}# #{id\ 4171}#)))
+ (let ((#{marks\ 4207}#
+ (#{join-marks\ 3694}#
+ (#{wrap-marks\ 3677}# #{w\ 4172}#)
+ (#{wrap-marks\ 3677}# #{w1\ 4206}#))))
(call-with-values
(lambda ()
- (#{search\ 629}#
- #{id\ 661}#
- (#{wrap-subst\ 134}# #{w\ 628}#)
- #{marks\ 663}#))
- (lambda (#{new-id\ 664}# #{marks\ 665}#)
- (let ((#{t\ 666}# #{new-id\ 664}#))
- (if #{t\ 666}#
- #{t\ 666}#
- (let ((#{t\ 667}# (call-with-values
- (lambda ()
- (#{search\ 629}#
- #{id\ 661}#
- (#{wrap-subst\ 134}#
- #{w1\ 662}#)
- #{marks\ 665}#))
- (lambda (#{x\ 668}#
- .
- #{ignore\ 669}#)
- #{x\ 668}#))))
- (if #{t\ 667}#
- #{t\ 667}#
- #{id\ 661}#))))))))
+ (#{search\ 4173}#
+ #{id\ 4205}#
+ (#{wrap-subst\ 3678}# #{w\ 4172}#)
+ #{marks\ 4207}#))
+ (lambda (#{new-id\ 4208}# #{marks\ 4209}#)
+ (let ((#{t\ 4210}# #{new-id\ 4208}#))
+ (if #{t\ 4210}#
+ #{t\ 4210}#
+ (let ((#{t\ 4211}#
+ (call-with-values
+ (lambda ()
+ (#{search\ 4173}#
+ #{id\ 4205}#
+ (#{wrap-subst\ 3678}#
+ #{w1\ 4206}#)
+ #{marks\ 4209}#))
+ (lambda (#{x\ 4212}#
+ .
+ #{ignore\ 4213}#)
+ #{x\ 4212}#))))
+ (if #{t\ 4211}#
+ #{t\ 4211}#
+ #{id\ 4205}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 627}#))))))
- (#{same-marks?\ 151}#
- (lambda (#{x\ 670}# #{y\ 671}#)
- (let ((#{t\ 672}# (eq? #{x\ 670}# #{y\ 671}#)))
- (if #{t\ 672}#
- #{t\ 672}#
- (if (not (null? #{x\ 670}#))
- (if (not (null? #{y\ 671}#))
- (if (eq? (car #{x\ 670}#) (car #{y\ 671}#))
- (#{same-marks?\ 151}#
- (cdr #{x\ 670}#)
- (cdr #{y\ 671}#))
+ #{id\ 4171}#))))))
+ (#{same-marks?\ 3695}#
+ (lambda (#{x\ 4214}# #{y\ 4215}#)
+ (let ((#{t\ 4216}# (eq? #{x\ 4214}# #{y\ 4215}#)))
+ (if #{t\ 4216}#
+ #{t\ 4216}#
+ (if (not (null? #{x\ 4214}#))
+ (if (not (null? #{y\ 4215}#))
+ (if (eq? (car #{x\ 4214}#) (car #{y\ 4215}#))
+ (#{same-marks?\ 3695}#
+ (cdr #{x\ 4214}#)
+ (cdr #{y\ 4215}#))
#f)
#f)
#f)))))
- (#{join-marks\ 150}#
- (lambda (#{m1\ 673}# #{m2\ 674}#)
- (#{smart-append\ 148}# #{m1\ 673}# #{m2\ 674}#)))
- (#{join-wraps\ 149}#
- (lambda (#{w1\ 675}# #{w2\ 676}#)
- (let ((#{m1\ 677}# (#{wrap-marks\ 133}# #{w1\ 675}#))
- (#{s1\ 678}# (#{wrap-subst\ 134}# #{w1\ 675}#)))
- (if (null? #{m1\ 677}#)
- (if (null? #{s1\ 678}#)
- #{w2\ 676}#
- (#{make-wrap\ 132}#
- (#{wrap-marks\ 133}# #{w2\ 676}#)
- (#{smart-append\ 148}#
- #{s1\ 678}#
- (#{wrap-subst\ 134}# #{w2\ 676}#))))
- (#{make-wrap\ 132}#
- (#{smart-append\ 148}#
- #{m1\ 677}#
- (#{wrap-marks\ 133}# #{w2\ 676}#))
- (#{smart-append\ 148}#
- #{s1\ 678}#
- (#{wrap-subst\ 134}# #{w2\ 676}#)))))))
- (#{smart-append\ 148}#
- (lambda (#{m1\ 679}# #{m2\ 680}#)
- (if (null? #{m2\ 680}#)
- #{m1\ 679}#
- (append #{m1\ 679}# #{m2\ 680}#))))
- (#{make-binding-wrap\ 147}#
- (lambda (#{ids\ 681}# #{labels\ 682}# #{w\ 683}#)
- (if (null? #{ids\ 681}#)
- #{w\ 683}#
- (#{make-wrap\ 132}#
- (#{wrap-marks\ 133}# #{w\ 683}#)
- (cons (let ((#{labelvec\ 684}#
- (list->vector #{labels\ 682}#)))
- (let ((#{n\ 685}# (vector-length
- #{labelvec\ 684}#)))
- (let ((#{symnamevec\ 686}#
- (make-vector #{n\ 685}#))
- (#{marksvec\ 687}#
- (make-vector #{n\ 685}#)))
+ (#{join-marks\ 3694}#
+ (lambda (#{m1\ 4217}# #{m2\ 4218}#)
+ (#{smart-append\ 3692}#
+ #{m1\ 4217}#
+ #{m2\ 4218}#)))
+ (#{join-wraps\ 3693}#
+ (lambda (#{w1\ 4219}# #{w2\ 4220}#)
+ (let ((#{m1\ 4221}#
+ (#{wrap-marks\ 3677}# #{w1\ 4219}#))
+ (#{s1\ 4222}#
+ (#{wrap-subst\ 3678}# #{w1\ 4219}#)))
+ (if (null? #{m1\ 4221}#)
+ (if (null? #{s1\ 4222}#)
+ #{w2\ 4220}#
+ (#{make-wrap\ 3676}#
+ (#{wrap-marks\ 3677}# #{w2\ 4220}#)
+ (#{smart-append\ 3692}#
+ #{s1\ 4222}#
+ (#{wrap-subst\ 3678}# #{w2\ 4220}#))))
+ (#{make-wrap\ 3676}#
+ (#{smart-append\ 3692}#
+ #{m1\ 4221}#
+ (#{wrap-marks\ 3677}# #{w2\ 4220}#))
+ (#{smart-append\ 3692}#
+ #{s1\ 4222}#
+ (#{wrap-subst\ 3678}# #{w2\ 4220}#)))))))
+ (#{smart-append\ 3692}#
+ (lambda (#{m1\ 4223}# #{m2\ 4224}#)
+ (if (null? #{m2\ 4224}#)
+ #{m1\ 4223}#
+ (append #{m1\ 4223}# #{m2\ 4224}#))))
+ (#{make-binding-wrap\ 3691}#
+ (lambda (#{ids\ 4225}# #{labels\ 4226}# #{w\ 4227}#)
+ (if (null? #{ids\ 4225}#)
+ #{w\ 4227}#
+ (#{make-wrap\ 3676}#
+ (#{wrap-marks\ 3677}# #{w\ 4227}#)
+ (cons (let ((#{labelvec\ 4228}#
+ (list->vector #{labels\ 4226}#)))
+ (let ((#{n\ 4229}#
+ (vector-length #{labelvec\ 4228}#)))
+ (let ((#{symnamevec\ 4230}#
+ (make-vector #{n\ 4229}#))
+ (#{marksvec\ 4231}#
+ (make-vector #{n\ 4229}#)))
(begin
- (letrec ((#{f\ 688}# (lambda (#{ids\ 689}#
- #{i\ 690}#)
- (if (not (null? #{ids\
689}#))
- (call-with-values
- (lambda ()
-
(#{id-sym-name&marks\ 131}#
- (car #{ids\
689}#)
- #{w\ 683}#))
- (lambda
(#{symname\ 691}#
- #{marks\
692}#)
- (begin
- (vector-set!
-
#{symnamevec\ 686}#
- #{i\ 690}#
- #{symname\
691}#)
- (vector-set!
- #{marksvec\
687}#
- #{i\ 690}#
- #{marks\
692}#)
- (#{f\ 688}#
(cdr #{ids\ 689}#)
-
(#{fx+\ 85}#
-
#{i\ 690}#
-
1)))))))))
- (#{f\ 688}# #{ids\ 681}# 0))
- (#{make-ribcage\ 137}#
- #{symnamevec\ 686}#
- #{marksvec\ 687}#
- #{labelvec\ 684}#)))))
- (#{wrap-subst\ 134}# #{w\ 683}#))))))
- (#{extend-ribcage!\ 146}#
- (lambda (#{ribcage\ 693}# #{id\ 694}# #{label\ 695}#)
+ (letrec ((#{f\ 4232}#
+ (lambda (#{ids\ 4233}# #{i\ 4234}#)
+ (if (not (null? #{ids\ 4233}#))
+ (call-with-values
+ (lambda ()
+ (#{id-sym-name&marks\
3675}#
+ (car #{ids\ 4233}#)
+ #{w\ 4227}#))
+ (lambda (#{symname\ 4235}#
+ #{marks\ 4236}#)
+ (begin
+ (vector-set!
+ #{symnamevec\ 4230}#
+ #{i\ 4234}#
+ #{symname\ 4235}#)
+ (vector-set!
+ #{marksvec\ 4231}#
+ #{i\ 4234}#
+ #{marks\ 4236}#)
+ (#{f\ 4232}#
+ (cdr #{ids\ 4233}#)
+ (#{fx+\ 3629}#
+ #{i\ 4234}#
+ 1)))))))))
+ (#{f\ 4232}# #{ids\ 4225}# 0))
+ (#{make-ribcage\ 3681}#
+ #{symnamevec\ 4230}#
+ #{marksvec\ 4231}#
+ #{labelvec\ 4228}#)))))
+ (#{wrap-subst\ 3678}# #{w\ 4227}#))))))
+ (#{extend-ribcage!\ 3690}#
+ (lambda (#{ribcage\ 4237}# #{id\ 4238}# #{label\ 4239}#)
(begin
- (#{set-ribcage-symnames!\ 142}#
- #{ribcage\ 693}#
- (cons (#{syntax-object-expression\ 115}# #{id\ 694}#)
- (#{ribcage-symnames\ 139}# #{ribcage\ 693}#)))
- (#{set-ribcage-marks!\ 143}#
- #{ribcage\ 693}#
- (cons (#{wrap-marks\ 133}#
- (#{syntax-object-wrap\ 116}# #{id\ 694}#))
- (#{ribcage-marks\ 140}# #{ribcage\ 693}#)))
- (#{set-ribcage-labels!\ 144}#
- #{ribcage\ 693}#
- (cons #{label\ 695}#
- (#{ribcage-labels\ 141}# #{ribcage\ 693}#))))))
- (#{anti-mark\ 145}#
- (lambda (#{w\ 696}#)
- (#{make-wrap\ 132}#
- (cons #f (#{wrap-marks\ 133}# #{w\ 696}#))
+ (#{set-ribcage-symnames!\ 3686}#
+ #{ribcage\ 4237}#
+ (cons (#{syntax-object-expression\ 3659}# #{id\ 4238}#)
+ (#{ribcage-symnames\ 3683}# #{ribcage\ 4237}#)))
+ (#{set-ribcage-marks!\ 3687}#
+ #{ribcage\ 4237}#
+ (cons (#{wrap-marks\ 3677}#
+ (#{syntax-object-wrap\ 3660}# #{id\ 4238}#))
+ (#{ribcage-marks\ 3684}# #{ribcage\ 4237}#)))
+ (#{set-ribcage-labels!\ 3688}#
+ #{ribcage\ 4237}#
+ (cons #{label\ 4239}#
+ (#{ribcage-labels\ 3685}# #{ribcage\ 4237}#))))))
+ (#{anti-mark\ 3689}#
+ (lambda (#{w\ 4240}#)
+ (#{make-wrap\ 3676}#
+ (cons #f (#{wrap-marks\ 3677}# #{w\ 4240}#))
(cons 'shift
- (#{wrap-subst\ 134}# #{w\ 696}#)))))
- (#{set-ribcage-labels!\ 144}#
- (lambda (#{x\ 697}# #{update\ 698}#)
- (vector-set! #{x\ 697}# 3 #{update\ 698}#)))
- (#{set-ribcage-marks!\ 143}#
- (lambda (#{x\ 699}# #{update\ 700}#)
- (vector-set! #{x\ 699}# 2 #{update\ 700}#)))
- (#{set-ribcage-symnames!\ 142}#
- (lambda (#{x\ 701}# #{update\ 702}#)
- (vector-set! #{x\ 701}# 1 #{update\ 702}#)))
- (#{ribcage-labels\ 141}#
- (lambda (#{x\ 703}#) (vector-ref #{x\ 703}# 3)))
- (#{ribcage-marks\ 140}#
- (lambda (#{x\ 704}#) (vector-ref #{x\ 704}# 2)))
- (#{ribcage-symnames\ 139}#
- (lambda (#{x\ 705}#) (vector-ref #{x\ 705}# 1)))
- (#{ribcage?\ 138}#
- (lambda (#{x\ 706}#)
- (if (vector? #{x\ 706}#)
- (if (= (vector-length #{x\ 706}#) 4)
- (eq? (vector-ref #{x\ 706}# 0) (quote ribcage))
+ (#{wrap-subst\ 3678}# #{w\ 4240}#)))))
+ (#{set-ribcage-labels!\ 3688}#
+ (lambda (#{x\ 4241}# #{update\ 4242}#)
+ (vector-set! #{x\ 4241}# 3 #{update\ 4242}#)))
+ (#{set-ribcage-marks!\ 3687}#
+ (lambda (#{x\ 4243}# #{update\ 4244}#)
+ (vector-set! #{x\ 4243}# 2 #{update\ 4244}#)))
+ (#{set-ribcage-symnames!\ 3686}#
+ (lambda (#{x\ 4245}# #{update\ 4246}#)
+ (vector-set! #{x\ 4245}# 1 #{update\ 4246}#)))
+ (#{ribcage-labels\ 3685}#
+ (lambda (#{x\ 4247}#) (vector-ref #{x\ 4247}# 3)))
+ (#{ribcage-marks\ 3684}#
+ (lambda (#{x\ 4248}#) (vector-ref #{x\ 4248}# 2)))
+ (#{ribcage-symnames\ 3683}#
+ (lambda (#{x\ 4249}#) (vector-ref #{x\ 4249}# 1)))
+ (#{ribcage?\ 3682}#
+ (lambda (#{x\ 4250}#)
+ (if (vector? #{x\ 4250}#)
+ (if (= (vector-length #{x\ 4250}#) 4)
+ (eq? (vector-ref #{x\ 4250}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 137}#
- (lambda (#{symnames\ 707}#
- #{marks\ 708}#
- #{labels\ 709}#)
+ (#{make-ribcage\ 3681}#
+ (lambda (#{symnames\ 4251}#
+ #{marks\ 4252}#
+ #{labels\ 4253}#)
(vector
'ribcage
- #{symnames\ 707}#
- #{marks\ 708}#
- #{labels\ 709}#)))
- (#{gen-labels\ 136}#
- (lambda (#{ls\ 710}#)
- (if (null? #{ls\ 710}#)
+ #{symnames\ 4251}#
+ #{marks\ 4252}#
+ #{labels\ 4253}#)))
+ (#{gen-labels\ 3680}#
+ (lambda (#{ls\ 4254}#)
+ (if (null? #{ls\ 4254}#)
'()
- (cons (#{gen-label\ 135}#)
- (#{gen-labels\ 136}# (cdr #{ls\ 710}#))))))
- (#{gen-label\ 135}# (lambda () (string #\i)))
- (#{wrap-subst\ 134}# cdr)
- (#{wrap-marks\ 133}# car)
- (#{make-wrap\ 132}# cons)
- (#{id-sym-name&marks\ 131}#
- (lambda (#{x\ 711}# #{w\ 712}#)
- (if (#{syntax-object?\ 114}# #{x\ 711}#)
+ (cons (#{gen-label\ 3679}#)
+ (#{gen-labels\ 3680}# (cdr #{ls\ 4254}#))))))
+ (#{gen-label\ 3679}# (lambda () (string #\i)))
+ (#{wrap-subst\ 3678}# cdr)
+ (#{wrap-marks\ 3677}# car)
+ (#{make-wrap\ 3676}# cons)
+ (#{id-sym-name&marks\ 3675}#
+ (lambda (#{x\ 4255}# #{w\ 4256}#)
+ (if (#{syntax-object?\ 3658}# #{x\ 4255}#)
(values
- (#{syntax-object-expression\ 115}# #{x\ 711}#)
- (#{join-marks\ 150}#
- (#{wrap-marks\ 133}# #{w\ 712}#)
- (#{wrap-marks\ 133}#
- (#{syntax-object-wrap\ 116}# #{x\ 711}#))))
+ (#{syntax-object-expression\ 3659}# #{x\ 4255}#)
+ (#{join-marks\ 3694}#
+ (#{wrap-marks\ 3677}# #{w\ 4256}#)
+ (#{wrap-marks\ 3677}#
+ (#{syntax-object-wrap\ 3660}# #{x\ 4255}#))))
(values
- #{x\ 711}#
- (#{wrap-marks\ 133}# #{w\ 712}#)))))
- (#{id?\ 130}#
- (lambda (#{x\ 713}#)
- (if (symbol? #{x\ 713}#)
+ #{x\ 4255}#
+ (#{wrap-marks\ 3677}# #{w\ 4256}#)))))
+ (#{id?\ 3674}#
+ (lambda (#{x\ 4257}#)
+ (if (symbol? #{x\ 4257}#)
#t
- (if (#{syntax-object?\ 114}# #{x\ 713}#)
+ (if (#{syntax-object?\ 3658}# #{x\ 4257}#)
(symbol?
- (#{syntax-object-expression\ 115}# #{x\ 713}#))
+ (#{syntax-object-expression\ 3659}# #{x\ 4257}#))
#f))))
- (#{nonsymbol-id?\ 129}#
- (lambda (#{x\ 714}#)
- (if (#{syntax-object?\ 114}# #{x\ 714}#)
+ (#{nonsymbol-id?\ 3673}#
+ (lambda (#{x\ 4258}#)
+ (if (#{syntax-object?\ 3658}# #{x\ 4258}#)
(symbol?
- (#{syntax-object-expression\ 115}# #{x\ 714}#))
+ (#{syntax-object-expression\ 3659}# #{x\ 4258}#))
#f)))
- (#{global-extend\ 128}#
- (lambda (#{type\ 715}# #{sym\ 716}# #{val\ 717}#)
- (#{put-global-definition-hook\ 91}#
- #{sym\ 716}#
- #{type\ 715}#
- #{val\ 717}#)))
- (#{lookup\ 127}#
- (lambda (#{x\ 718}# #{r\ 719}# #{mod\ 720}#)
- (let ((#{t\ 721}# (assq #{x\ 718}# #{r\ 719}#)))
- (if #{t\ 721}#
- (cdr #{t\ 721}#)
- (if (symbol? #{x\ 718}#)
- (let ((#{t\ 722}# (#{get-global-definition-hook\ 92}#
- #{x\ 718}#
- #{mod\ 720}#)))
- (if #{t\ 722}# #{t\ 722}# (quote (global))))
+ (#{global-extend\ 3672}#
+ (lambda (#{type\ 4259}# #{sym\ 4260}# #{val\ 4261}#)
+ (#{put-global-definition-hook\ 3635}#
+ #{sym\ 4260}#
+ #{type\ 4259}#
+ #{val\ 4261}#)))
+ (#{lookup\ 3671}#
+ (lambda (#{x\ 4262}# #{r\ 4263}# #{mod\ 4264}#)
+ (let ((#{t\ 4265}# (assq #{x\ 4262}# #{r\ 4263}#)))
+ (if #{t\ 4265}#
+ (cdr #{t\ 4265}#)
+ (if (symbol? #{x\ 4262}#)
+ (let ((#{t\ 4266}#
+ (#{get-global-definition-hook\ 3636}#
+ #{x\ 4262}#
+ #{mod\ 4264}#)))
+ (if #{t\ 4266}# #{t\ 4266}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 126}#
- (lambda (#{r\ 723}#)
- (if (null? #{r\ 723}#)
+ (#{macros-only-env\ 3670}#
+ (lambda (#{r\ 4267}#)
+ (if (null? #{r\ 4267}#)
'()
- (let ((#{a\ 724}# (car #{r\ 723}#)))
- (if (eq? (cadr #{a\ 724}#) (quote macro))
- (cons #{a\ 724}#
- (#{macros-only-env\ 126}# (cdr #{r\ 723}#)))
- (#{macros-only-env\ 126}# (cdr #{r\ 723}#)))))))
- (#{extend-var-env\ 125}#
- (lambda (#{labels\ 725}# #{vars\ 726}# #{r\ 727}#)
- (if (null? #{labels\ 725}#)
- #{r\ 727}#
- (#{extend-var-env\ 125}#
- (cdr #{labels\ 725}#)
- (cdr #{vars\ 726}#)
- (cons (cons (car #{labels\ 725}#)
- (cons (quote lexical) (car #{vars\ 726}#)))
- #{r\ 727}#)))))
- (#{extend-env\ 124}#
- (lambda (#{labels\ 728}# #{bindings\ 729}# #{r\ 730}#)
- (if (null? #{labels\ 728}#)
- #{r\ 730}#
- (#{extend-env\ 124}#
- (cdr #{labels\ 728}#)
- (cdr #{bindings\ 729}#)
- (cons (cons (car #{labels\ 728}#)
- (car #{bindings\ 729}#))
- #{r\ 730}#)))))
- (#{binding-value\ 123}# cdr)
- (#{binding-type\ 122}# car)
- (#{source-annotation\ 121}#
- (lambda (#{x\ 731}#)
- (if (#{syntax-object?\ 114}# #{x\ 731}#)
- (#{source-annotation\ 121}#
- (#{syntax-object-expression\ 115}# #{x\ 731}#))
- (if (pair? #{x\ 731}#)
- (let ((#{props\ 732}# (source-properties #{x\ 731}#)))
- (if (pair? #{props\ 732}#) #{props\ 732}# #f))
+ (let ((#{a\ 4268}# (car #{r\ 4267}#)))
+ (if (eq? (cadr #{a\ 4268}#) (quote macro))
+ (cons #{a\ 4268}#
+ (#{macros-only-env\ 3670}# (cdr #{r\ 4267}#)))
+ (#{macros-only-env\ 3670}# (cdr #{r\ 4267}#)))))))
+ (#{extend-var-env\ 3669}#
+ (lambda (#{labels\ 4269}# #{vars\ 4270}# #{r\ 4271}#)
+ (if (null? #{labels\ 4269}#)
+ #{r\ 4271}#
+ (#{extend-var-env\ 3669}#
+ (cdr #{labels\ 4269}#)
+ (cdr #{vars\ 4270}#)
+ (cons (cons (car #{labels\ 4269}#)
+ (cons (quote lexical) (car #{vars\ 4270}#)))
+ #{r\ 4271}#)))))
+ (#{extend-env\ 3668}#
+ (lambda (#{labels\ 4272}# #{bindings\ 4273}# #{r\ 4274}#)
+ (if (null? #{labels\ 4272}#)
+ #{r\ 4274}#
+ (#{extend-env\ 3668}#
+ (cdr #{labels\ 4272}#)
+ (cdr #{bindings\ 4273}#)
+ (cons (cons (car #{labels\ 4272}#)
+ (car #{bindings\ 4273}#))
+ #{r\ 4274}#)))))
+ (#{binding-value\ 3667}# cdr)
+ (#{binding-type\ 3666}# car)
+ (#{source-annotation\ 3665}#
+ (lambda (#{x\ 4275}#)
+ (if (#{syntax-object?\ 3658}# #{x\ 4275}#)
+ (#{source-annotation\ 3665}#
+ (#{syntax-object-expression\ 3659}# #{x\ 4275}#))
+ (if (pair? #{x\ 4275}#)
+ (let ((#{props\ 4276}# (source-properties #{x\ 4275}#)))
+ (if (pair? #{props\ 4276}#) #{props\ 4276}# #f))
#f))))
- (#{set-syntax-object-module!\ 120}#
- (lambda (#{x\ 733}# #{update\ 734}#)
- (vector-set! #{x\ 733}# 3 #{update\ 734}#)))
- (#{set-syntax-object-wrap!\ 119}#
- (lambda (#{x\ 735}# #{update\ 736}#)
- (vector-set! #{x\ 735}# 2 #{update\ 736}#)))
- (#{set-syntax-object-expression!\ 118}#
- (lambda (#{x\ 737}# #{update\ 738}#)
- (vector-set! #{x\ 737}# 1 #{update\ 738}#)))
- (#{syntax-object-module\ 117}#
- (lambda (#{x\ 739}#) (vector-ref #{x\ 739}# 3)))
- (#{syntax-object-wrap\ 116}#
- (lambda (#{x\ 740}#) (vector-ref #{x\ 740}# 2)))
- (#{syntax-object-expression\ 115}#
- (lambda (#{x\ 741}#) (vector-ref #{x\ 741}# 1)))
- (#{syntax-object?\ 114}#
- (lambda (#{x\ 742}#)
- (if (vector? #{x\ 742}#)
- (if (= (vector-length #{x\ 742}#) 4)
- (eq? (vector-ref #{x\ 742}# 0)
+ (#{set-syntax-object-module!\ 3664}#
+ (lambda (#{x\ 4277}# #{update\ 4278}#)
+ (vector-set! #{x\ 4277}# 3 #{update\ 4278}#)))
+ (#{set-syntax-object-wrap!\ 3663}#
+ (lambda (#{x\ 4279}# #{update\ 4280}#)
+ (vector-set! #{x\ 4279}# 2 #{update\ 4280}#)))
+ (#{set-syntax-object-expression!\ 3662}#
+ (lambda (#{x\ 4281}# #{update\ 4282}#)
+ (vector-set! #{x\ 4281}# 1 #{update\ 4282}#)))
+ (#{syntax-object-module\ 3661}#
+ (lambda (#{x\ 4283}#) (vector-ref #{x\ 4283}# 3)))
+ (#{syntax-object-wrap\ 3660}#
+ (lambda (#{x\ 4284}#) (vector-ref #{x\ 4284}# 2)))
+ (#{syntax-object-expression\ 3659}#
+ (lambda (#{x\ 4285}#) (vector-ref #{x\ 4285}# 1)))
+ (#{syntax-object?\ 3658}#
+ (lambda (#{x\ 4286}#)
+ (if (vector? #{x\ 4286}#)
+ (if (= (vector-length #{x\ 4286}#) 4)
+ (eq? (vector-ref #{x\ 4286}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 113}#
- (lambda (#{expression\ 743}#
- #{wrap\ 744}#
- #{module\ 745}#)
+ (#{make-syntax-object\ 3657}#
+ (lambda (#{expression\ 4287}#
+ #{wrap\ 4288}#
+ #{module\ 4289}#)
(vector
'syntax-object
- #{expression\ 743}#
- #{wrap\ 744}#
- #{module\ 745}#)))
- (#{build-letrec\ 112}#
- (lambda (#{src\ 746}#
- #{ids\ 747}#
- #{vars\ 748}#
- #{val-exps\ 749}#
- #{body-exp\ 750}#)
- (if (null? #{vars\ 748}#)
- #{body-exp\ 750}#
- (let ((#{atom-key\ 751}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 751}# (quote (c)))
+ #{expression\ 4287}#
+ #{wrap\ 4288}#
+ #{module\ 4289}#)))
+ (#{build-letrec\ 3656}#
+ (lambda (#{src\ 4290}#
+ #{ids\ 4291}#
+ #{vars\ 4292}#
+ #{val-exps\ 4293}#
+ #{body-exp\ 4294}#)
+ (if (null? #{vars\ 4292}#)
+ #{body-exp\ 4294}#
+ (let ((#{atom-key\ 4295}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4295}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 102}#
- #{ids\ 747}#
- #{val-exps\ 749}#)
+ #{maybe-name-value!\ 3646}#
+ #{ids\ 4291}#
+ #{val-exps\ 4293}#)
((@ (language tree-il) make-letrec)
- #{src\ 746}#
- #{ids\ 747}#
- #{vars\ 748}#
- #{val-exps\ 749}#
- #{body-exp\ 750}#))
- (#{decorate-source\ 93}#
+ #{src\ 4290}#
+ #{ids\ 4291}#
+ #{vars\ 4292}#
+ #{val-exps\ 4293}#
+ #{body-exp\ 4294}#))
+ (#{decorate-source\ 3637}#
(list 'letrec
- (map list #{vars\ 748}# #{val-exps\ 749}#)
- #{body-exp\ 750}#)
- #{src\ 746}#))))))
- (#{build-named-let\ 111}#
- (lambda (#{src\ 752}#
- #{ids\ 753}#
- #{vars\ 754}#
- #{val-exps\ 755}#
- #{body-exp\ 756}#)
- (let ((#{f\ 757}# (car #{vars\ 754}#))
- (#{f-name\ 758}# (car #{ids\ 753}#))
- (#{vars\ 759}# (cdr #{vars\ 754}#))
- (#{ids\ 760}# (cdr #{ids\ 753}#)))
- (let ((#{atom-key\ 761}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 761}# (quote (c)))
- (let ((#{proc\ 762}#
- (#{build-simple-lambda\ 104}#
- #{src\ 752}#
- #{ids\ 760}#
+ (map list #{vars\ 4292}# #{val-exps\ 4293}#)
+ #{body-exp\ 4294}#)
+ #{src\ 4290}#))))))
+ (#{build-named-let\ 3655}#
+ (lambda (#{src\ 4296}#
+ #{ids\ 4297}#
+ #{vars\ 4298}#
+ #{val-exps\ 4299}#
+ #{body-exp\ 4300}#)
+ (let ((#{f\ 4301}# (car #{vars\ 4298}#))
+ (#{f-name\ 4302}# (car #{ids\ 4297}#))
+ (#{vars\ 4303}# (cdr #{vars\ 4298}#))
+ (#{ids\ 4304}# (cdr #{ids\ 4297}#)))
+ (let ((#{atom-key\ 4305}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4305}# (quote (c)))
+ (let ((#{proc\ 4306}#
+ (#{build-simple-lambda\ 3648}#
+ #{src\ 4296}#
+ #{ids\ 4304}#
#f
- #{vars\ 759}#
+ #{vars\ 4303}#
#f
- #{body-exp\ 756}#)))
+ #{body-exp\ 4300}#)))
(begin
- (#{maybe-name-value!\ 102}#
- #{f-name\ 758}#
- #{proc\ 762}#)
+ (#{maybe-name-value!\ 3646}#
+ #{f-name\ 4302}#
+ #{proc\ 4306}#)
(for-each
- #{maybe-name-value!\ 102}#
- #{ids\ 760}#
- #{val-exps\ 755}#)
+ #{maybe-name-value!\ 3646}#
+ #{ids\ 4304}#
+ #{val-exps\ 4299}#)
((@ (language tree-il) make-letrec)
- #{src\ 752}#
- (list #{f-name\ 758}#)
- (list #{f\ 757}#)
- (list #{proc\ 762}#)
- (#{build-application\ 95}#
- #{src\ 752}#
- (#{build-lexical-reference\ 97}#
+ #{src\ 4296}#
+ (list #{f-name\ 4302}#)
+ (list #{f\ 4301}#)
+ (list #{proc\ 4306}#)
+ (#{build-application\ 3639}#
+ #{src\ 4296}#
+ (#{build-lexical-reference\ 3641}#
'fun
- #{src\ 752}#
- #{f-name\ 758}#
- #{f\ 757}#)
- #{val-exps\ 755}#))))
- (#{decorate-source\ 93}#
+ #{src\ 4296}#
+ #{f-name\ 4302}#
+ #{f\ 4301}#)
+ #{val-exps\ 4299}#))))
+ (#{decorate-source\ 3637}#
(list 'let
- #{f\ 757}#
- (map list #{vars\ 759}# #{val-exps\ 755}#)
- #{body-exp\ 756}#)
- #{src\ 752}#))))))
- (#{build-let\ 110}#
- (lambda (#{src\ 763}#
- #{ids\ 764}#
- #{vars\ 765}#
- #{val-exps\ 766}#
- #{body-exp\ 767}#)
- (if (null? #{vars\ 765}#)
- #{body-exp\ 767}#
- (let ((#{atom-key\ 768}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 768}# (quote (c)))
+ #{f\ 4301}#
+ (map list #{vars\ 4303}# #{val-exps\ 4299}#)
+ #{body-exp\ 4300}#)
+ #{src\ 4296}#))))))
+ (#{build-let\ 3654}#
+ (lambda (#{src\ 4307}#
+ #{ids\ 4308}#
+ #{vars\ 4309}#
+ #{val-exps\ 4310}#
+ #{body-exp\ 4311}#)
+ (if (null? #{vars\ 4309}#)
+ #{body-exp\ 4311}#
+ (let ((#{atom-key\ 4312}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4312}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 102}#
- #{ids\ 764}#
- #{val-exps\ 766}#)
+ #{maybe-name-value!\ 3646}#
+ #{ids\ 4308}#
+ #{val-exps\ 4310}#)
((@ (language tree-il) make-let)
- #{src\ 763}#
- #{ids\ 764}#
- #{vars\ 765}#
- #{val-exps\ 766}#
- #{body-exp\ 767}#))
- (#{decorate-source\ 93}#
+ #{src\ 4307}#
+ #{ids\ 4308}#
+ #{vars\ 4309}#
+ #{val-exps\ 4310}#
+ #{body-exp\ 4311}#))
+ (#{decorate-source\ 3637}#
(list 'let
- (map list #{vars\ 765}# #{val-exps\ 766}#)
- #{body-exp\ 767}#)
- #{src\ 763}#))))))
- (#{build-sequence\ 109}#
- (lambda (#{src\ 769}# #{exps\ 770}#)
- (if (null? (cdr #{exps\ 770}#))
- (car #{exps\ 770}#)
- (let ((#{atom-key\ 771}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 771}# (quote (c)))
+ (map list #{vars\ 4309}# #{val-exps\ 4310}#)
+ #{body-exp\ 4311}#)
+ #{src\ 4307}#))))))
+ (#{build-sequence\ 3653}#
+ (lambda (#{src\ 4313}# #{exps\ 4314}#)
+ (if (null? (cdr #{exps\ 4314}#))
+ (car #{exps\ 4314}#)
+ (let ((#{atom-key\ 4315}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4315}# (quote (c)))
((@ (language tree-il) make-sequence)
- #{src\ 769}#
- #{exps\ 770}#)
- (#{decorate-source\ 93}#
- (cons (quote begin) #{exps\ 770}#)
- #{src\ 769}#))))))
- (#{build-data\ 108}#
- (lambda (#{src\ 772}# #{exp\ 773}#)
- (let ((#{atom-key\ 774}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 774}# (quote (c)))
+ #{src\ 4313}#
+ #{exps\ 4314}#)
+ (#{decorate-source\ 3637}#
+ (cons (quote begin) #{exps\ 4314}#)
+ #{src\ 4313}#))))))
+ (#{build-data\ 3652}#
+ (lambda (#{src\ 4316}# #{exp\ 4317}#)
+ (let ((#{atom-key\ 4318}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4318}# (quote (c)))
((@ (language tree-il) make-const)
- #{src\ 772}#
- #{exp\ 773}#)
- (#{decorate-source\ 93}#
- (if (if (self-evaluating? #{exp\ 773}#)
- (not (vector? #{exp\ 773}#))
+ #{src\ 4316}#
+ #{exp\ 4317}#)
+ (#{decorate-source\ 3637}#
+ (if (if (self-evaluating? #{exp\ 4317}#)
+ (not (vector? #{exp\ 4317}#))
#f)
- #{exp\ 773}#
- (list (quote quote) #{exp\ 773}#))
- #{src\ 772}#)))))
- (#{build-primref\ 107}#
- (lambda (#{src\ 775}# #{name\ 776}#)
+ #{exp\ 4317}#
+ (list (quote quote) #{exp\ 4317}#))
+ #{src\ 4316}#)))))
+ (#{build-primref\ 3651}#
+ (lambda (#{src\ 4319}# #{name\ 4320}#)
(if (equal?
(module-name (current-module))
'(guile))
- (let ((#{atom-key\ 777}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 777}# (quote (c)))
+ (let ((#{atom-key\ 4321}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4321}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{src\ 775}#
- #{name\ 776}#)
- (#{decorate-source\ 93}#
- #{name\ 776}#
- #{src\ 775}#)))
- (let ((#{atom-key\ 778}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 778}# (quote (c)))
+ #{src\ 4319}#
+ #{name\ 4320}#)
+ (#{decorate-source\ 3637}#
+ #{name\ 4320}#
+ #{src\ 4319}#)))
+ (let ((#{atom-key\ 4322}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4322}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{src\ 775}#
+ #{src\ 4319}#
'(guile)
- #{name\ 776}#
+ #{name\ 4320}#
#f)
- (#{decorate-source\ 93}#
- (list (quote @@) (quote (guile)) #{name\ 776}#)
- #{src\ 775}#))))))
- (#{build-lambda-case\ 106}#
- (lambda (#{src\ 779}#
- #{req\ 780}#
- #{opt\ 781}#
- #{rest\ 782}#
- #{kw\ 783}#
- #{vars\ 784}#
- #{predicate\ 785}#
- #{body\ 786}#
- #{else-case\ 787}#)
- (let ((#{atom-key\ 788}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 788}# (quote (c)))
+ (#{decorate-source\ 3637}#
+ (list (quote @@) (quote (guile)) #{name\ 4320}#)
+ #{src\ 4319}#))))))
+ (#{build-lambda-case\ 3650}#
+ (lambda (#{src\ 4323}#
+ #{req\ 4324}#
+ #{opt\ 4325}#
+ #{rest\ 4326}#
+ #{kw\ 4327}#
+ #{vars\ 4328}#
+ #{predicate\ 4329}#
+ #{body\ 4330}#
+ #{else-case\ 4331}#)
+ (let ((#{atom-key\ 4332}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4332}# (quote (c)))
((@ (language tree-il) make-lambda-case)
- #{src\ 779}#
- #{req\ 780}#
- #{opt\ 781}#
- #{rest\ 782}#
- #{kw\ 783}#
- #{vars\ 784}#
- #{predicate\ 785}#
- #{body\ 786}#
- #{else-case\ 787}#)
- (let ((#{nkw\ 789}#
- (map (lambda (#{x\ 790}#)
- (list 'list
- (car #{x\ 790}#)
- (letrec ((#{lp\ 791}#
- (lambda (#{vars\ 792}#
- #{i\ 793}#)
- (if (null? #{vars\ 792}#)
- (error "bad kwarg"
- #{x\ 790}#)
- (if (eq? (cadr #{x\
790}#)
- (car #{vars\
792}#))
- #{i\ 793}#
- (#{lp\ 791}#
- (cdr #{vars\ 792}#)
- (1+ #{i\
793}#)))))))
- (#{lp\ 791}# #{vars\ 784}# 0))
+ #{src\ 4323}#
+ #{req\ 4324}#
+ #{opt\ 4325}#
+ #{rest\ 4326}#
+ #{kw\ 4327}#
+ #{vars\ 4328}#
+ #{predicate\ 4329}#
+ #{body\ 4330}#
+ #{else-case\ 4331}#)
+ (let ((#{nreq\ 4333}# (length #{req\ 4324}#)))
+ (let ((#{nopt\ 4334}#
+ (if #{opt\ 4325}# (length #{opt\ 4325}#) 0)))
+ (let ((#{rest-idx\ 4335}#
+ (if #{rest\ 4326}#
+ (+ #{nreq\ 4333}# #{nopt\ 4334}#)
+ #f)))
+ (let ((#{opt-inits\ 4336}#
+ (map (lambda (#{x\ 4337}#)
(list 'lambda
- '()
- (caddr #{x\ 790}#))))
- #{kw\ 783}#)))
- (#{decorate-source\ 93}#
- (cons (list (cons '(@@ (ice-9 optargs)
- parse-lambda-case)
- (cons (list 'list
- (length #{req\ 780}#)
- (length #{opt\ 781}#)
- (if #{rest\ 782}# #t #f)
- #{nkw\ 789}#
- (if #{predicate\ 785}#
- (error "not yet
implemented")
- #f))
- '(%%args)))
- '=>
- (list 'lambda
- #{vars\ 784}#
- #{body\ 786}#))
- (let ((#{t\ 794}# #{else-case\ 787}#))
- (if #{t\ 794}#
- #{t\ 794}#
- '((%%args
- (error "wrong number of arguments"
- %%args))))))
- #{src\ 779}#))))))
- (#{build-case-lambda\ 105}#
- (lambda (#{src\ 795}# #{docstring\ 796}# #{body\ 797}#)
- (let ((#{atom-key\ 798}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 798}# (quote (c)))
+ #{vars\ 4328}#
+ (cdr #{x\ 4337}#)))
+ (let ((#{t\ 4338}# #{opt\ 4325}#))
+ (if #{t\ 4338}#
+ #{t\ 4338}#
+ '())))))
+ (let ((#{allow-other-keys?\ 4339}#
+ (if #{kw\ 4327}# (car #{kw\ 4327}#) #f)))
+ (let ((#{kw-indices\ 4340}#
+ (map (lambda (#{x\ 4341}#)
+ (cons (car #{x\ 4341}#)
+ (list-index
+ #{vars\ 4328}#
+ (caddr #{x\ 4341}#))))
+ (if #{kw\ 4327}#
+ (cdr #{kw\ 4327}#)
+ '()))))
+ (let ((#{kw-inits\ 4342}#
+ (sort (filter
+ identity
+ (map (lambda (#{x\ 4343}#)
+ (if (pair? (cdddr #{x\
4343}#))
+ (let ((#{i\ 4344}#
+ (list-index
+ #{vars\
4328}#
+ (caddr #{x\
4343}#))))
+ (if (> (+ #{nreq\
4333}#
+ #{nopt\
4334}#)
+ #{i\ 4344}#)
+ (error "kw init
for rest arg"
+ #{x\ 4343}#)
+ (if (if #{rest\
4326}#
+ (= (+
#{nreq\ 4333}#
+
#{nopt\ 4334}#)
+ #{i\
4344}#)
+ #f)
+ (error "kw init
for positional arg"
+ #{x\
4343}#)
+ (list 'lambda
+ #{vars\
4328}#
+ (cadddr
+ #{x\
4343}#)))))
+ (let ((#{i\ 4345}#
+ (list-index
+ #{vars\
4328}#
+ (caddr #{x\
4343}#))))
+ (if (< (+ #{nreq\
4333}#
+ #{nopt\
4334}#)
+ #{i\ 4345}#)
+ #f
+ (error "missing
init for kw arg"
+ #{x\
4343}#)))))
+ (if #{kw\ 4327}#
+ (cdr #{kw\ 4327}#)
+ '())))
+ (lambda (#{x\ 4346}# #{y\ 4347}#)
+ (< (cdr #{x\ 4346}#)
+ (cdr #{y\ 4347}#))))))
+ (let ((#{nargs\ 4348}#
+ (apply max
+ (pk (+ #{nreq\ 4333}#
+ #{nopt\ 4334}#
+ (if #{rest\ 4326}#
+ 1
+ 0)))
+ (map cdr
+ #{kw-indices\ 4340}#))))
+ (begin
+ (let ((#{t\ 4349}#
+ (= #{nargs\ 4348}#
+ (length #{vars\ 4328}#)
+ (+ #{nreq\ 4333}#
+ (length #{opt-inits\ 4336}#)
+ (if #{rest\ 4326}# 1 0)
+ (length
+ #{kw-inits\ 4342}#)))))
+ (if #{t\ 4349}#
+ #{t\ 4349}#
+ (error "something went wrong"
+ #{req\ 4324}#
+ #{opt\ 4325}#
+ #{rest\ 4326}#
+ #{kw\ 4327}#
+ #{vars\ 4328}#
+ #{nreq\ 4333}#
+ #{nopt\ 4334}#
+ #{kw-indices\ 4340}#
+ #{kw-inits\ 4342}#
+ #{nargs\ 4348}#)))
+ (#{decorate-source\ 3637}#
+ (cons (list (cons '(@@ (ice-9 optargs)
+
parse-lambda-case)
+ (cons (list 'quote
+ (list
#{nreq\ 4333}#
+
#{nopt\ 4334}#
+
#{rest-idx\ 4335}#
+
#{nargs\ 4348}#
+
#{allow-other-keys?\ 4339}#
+
#{kw-indices\ 4340}#))
+ (cons (cons
'list
+
(append
+
#{opt-inits\ 4336}#
+
#{kw-inits\ 4342}#))
+ (cons (if
#{predicate\ 4329}#
+
(list 'lambda
+
#{vars\ 4328}#
+
#{predicate\ 4329}#)
+
#f)
+
'(%%args)))))
+ '=>
+ (list 'lambda
+ #{vars\ 4328}#
+ #{body\ 4330}#))
+ (let ((#{t\ 4350}#
+ #{else-case\ 4331}#))
+ (if #{t\ 4350}#
+ #{t\ 4350}#
+ '((%%args
+ (error "wrong number of
arguments"
+ %%args))))))
+ #{src\ 4323}#))))))))))))))
+ (#{build-case-lambda\ 3649}#
+ (lambda (#{src\ 4351}#
+ #{docstring\ 4352}#
+ #{body\ 4353}#)
+ (let ((#{atom-key\ 4354}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4354}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 795}#
- (if #{docstring\ 796}#
- (list (cons (quote documentation) #{docstring\ 796}#))
+ #{src\ 4351}#
+ (if #{docstring\ 4352}#
+ (list (cons (quote documentation) #{docstring\ 4352}#))
'())
- #{body\ 797}#)
- (#{decorate-source\ 93}#
+ #{body\ 4353}#)
+ (#{decorate-source\ 3637}#
(cons 'lambda
(cons '%%args
(append
- (if #{docstring\ 796}#
- (list #{docstring\ 796}#)
+ (if #{docstring\ 4352}#
+ (list #{docstring\ 4352}#)
'())
- (list (cons (quote cond) #{body\ 797}#)))))
- #{src\ 795}#)))))
- (#{build-simple-lambda\ 104}#
- (lambda (#{src\ 799}#
- #{req\ 800}#
- #{rest\ 801}#
- #{vars\ 802}#
- #{docstring\ 803}#
- #{exp\ 804}#)
- (let ((#{atom-key\ 805}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 805}# (quote (c)))
+ (list (cons (quote cond) #{body\ 4353}#)))))
+ #{src\ 4351}#)))))
+ (#{build-simple-lambda\ 3648}#
+ (lambda (#{src\ 4355}#
+ #{req\ 4356}#
+ #{rest\ 4357}#
+ #{vars\ 4358}#
+ #{docstring\ 4359}#
+ #{exp\ 4360}#)
+ (let ((#{atom-key\ 4361}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4361}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 799}#
- (if #{docstring\ 803}#
- (list (cons (quote documentation) #{docstring\ 803}#))
+ #{src\ 4355}#
+ (if #{docstring\ 4359}#
+ (list (cons (quote documentation) #{docstring\ 4359}#))
'())
((@ (language tree-il) make-lambda-case)
- #{src\ 799}#
- #{req\ 800}#
+ #{src\ 4355}#
+ #{req\ 4356}#
#f
- #{rest\ 801}#
+ #{rest\ 4357}#
#f
- #{vars\ 802}#
+ #{vars\ 4358}#
#f
- #{exp\ 804}#
+ #{exp\ 4360}#
#f))
- (#{decorate-source\ 93}#
+ (#{decorate-source\ 3637}#
(cons 'lambda
- (cons (if #{rest\ 801}#
- (apply cons* #{vars\ 802}#)
- #{vars\ 802}#)
+ (cons (if #{rest\ 4357}#
+ (apply cons* #{vars\ 4358}#)
+ #{vars\ 4358}#)
(append
- (if #{docstring\ 803}#
- (list #{docstring\ 803}#)
+ (if #{docstring\ 4359}#
+ (list #{docstring\ 4359}#)
'())
- (list #{exp\ 804}#))))
- #{src\ 799}#)))))
- (#{build-global-definition\ 103}#
- (lambda (#{source\ 806}# #{var\ 807}# #{exp\ 808}#)
- (let ((#{atom-key\ 809}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 809}# (quote (c)))
+ (list #{exp\ 4360}#))))
+ #{src\ 4355}#)))))
+ (#{build-global-definition\ 3647}#
+ (lambda (#{source\ 4362}# #{var\ 4363}# #{exp\ 4364}#)
+ (let ((#{atom-key\ 4365}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4365}# (quote (c)))
(begin
- (#{maybe-name-value!\ 102}#
- #{var\ 807}#
- #{exp\ 808}#)
+ (#{maybe-name-value!\ 3646}#
+ #{var\ 4363}#
+ #{exp\ 4364}#)
((@ (language tree-il) make-toplevel-define)
- #{source\ 806}#
- #{var\ 807}#
- #{exp\ 808}#))
- (#{decorate-source\ 93}#
- (list (quote define) #{var\ 807}# #{exp\ 808}#)
- #{source\ 806}#)))))
- (#{maybe-name-value!\ 102}#
- (lambda (#{name\ 810}# #{val\ 811}#)
- (if ((@ (language tree-il) lambda?) #{val\ 811}#)
- (let ((#{meta\ 812}#
- ((@ (language tree-il) lambda-meta) #{val\ 811}#)))
- (if (not (assq (quote name) #{meta\ 812}#))
+ #{source\ 4362}#
+ #{var\ 4363}#
+ #{exp\ 4364}#))
+ (#{decorate-source\ 3637}#
+ (list (quote define) #{var\ 4363}# #{exp\ 4364}#)
+ #{source\ 4362}#)))))
+ (#{maybe-name-value!\ 3646}#
+ (lambda (#{name\ 4366}# #{val\ 4367}#)
+ (if ((@ (language tree-il) lambda?) #{val\ 4367}#)
+ (let ((#{meta\ 4368}#
+ ((@ (language tree-il) lambda-meta)
+ #{val\ 4367}#)))
+ (if (not (assq (quote name) #{meta\ 4368}#))
((setter (@ (language tree-il) lambda-meta))
- #{val\ 811}#
- (acons (quote name) #{name\ 810}# #{meta\ 812}#)))))))
- (#{build-global-assignment\ 101}#
- (lambda (#{source\ 813}#
- #{var\ 814}#
- #{exp\ 815}#
- #{mod\ 816}#)
- (#{analyze-variable\ 99}#
- #{mod\ 816}#
- #{var\ 814}#
- (lambda (#{mod\ 817}# #{var\ 818}# #{public?\ 819}#)
- (let ((#{atom-key\ 820}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 820}# (quote (c)))
+ #{val\ 4367}#
+ (acons 'name
+ #{name\ 4366}#
+ #{meta\ 4368}#)))))))
+ (#{build-global-assignment\ 3645}#
+ (lambda (#{source\ 4369}#
+ #{var\ 4370}#
+ #{exp\ 4371}#
+ #{mod\ 4372}#)
+ (#{analyze-variable\ 3643}#
+ #{mod\ 4372}#
+ #{var\ 4370}#
+ (lambda (#{mod\ 4373}# #{var\ 4374}# #{public?\ 4375}#)
+ (let ((#{atom-key\ 4376}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4376}# (quote (c)))
((@ (language tree-il) make-module-set)
- #{source\ 813}#
- #{mod\ 817}#
- #{var\ 818}#
- #{public?\ 819}#
- #{exp\ 815}#)
- (#{decorate-source\ 93}#
+ #{source\ 4369}#
+ #{mod\ 4373}#
+ #{var\ 4374}#
+ #{public?\ 4375}#
+ #{exp\ 4371}#)
+ (#{decorate-source\ 3637}#
(list 'set!
- (list (if #{public?\ 819}# (quote @) (quote @@))
- #{mod\ 817}#
- #{var\ 818}#)
- #{exp\ 815}#)
- #{source\ 813}#))))
- (lambda (#{var\ 821}#)
- (let ((#{atom-key\ 822}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 822}# (quote (c)))
+ (list (if #{public?\ 4375}#
+ '@
+ '@@)
+ #{mod\ 4373}#
+ #{var\ 4374}#)
+ #{exp\ 4371}#)
+ #{source\ 4369}#))))
+ (lambda (#{var\ 4377}#)
+ (let ((#{atom-key\ 4378}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4378}# (quote (c)))
((@ (language tree-il) make-toplevel-set)
- #{source\ 813}#
- #{var\ 821}#
- #{exp\ 815}#)
- (#{decorate-source\ 93}#
- (list (quote set!) #{var\ 821}# #{exp\ 815}#)
- #{source\ 813}#)))))))
- (#{build-global-reference\ 100}#
- (lambda (#{source\ 823}# #{var\ 824}# #{mod\ 825}#)
- (#{analyze-variable\ 99}#
- #{mod\ 825}#
- #{var\ 824}#
- (lambda (#{mod\ 826}# #{var\ 827}# #{public?\ 828}#)
- (let ((#{atom-key\ 829}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 829}# (quote (c)))
+ #{source\ 4369}#
+ #{var\ 4377}#
+ #{exp\ 4371}#)
+ (#{decorate-source\ 3637}#
+ (list (quote set!) #{var\ 4377}# #{exp\ 4371}#)
+ #{source\ 4369}#)))))))
+ (#{build-global-reference\ 3644}#
+ (lambda (#{source\ 4379}# #{var\ 4380}# #{mod\ 4381}#)
+ (#{analyze-variable\ 3643}#
+ #{mod\ 4381}#
+ #{var\ 4380}#
+ (lambda (#{mod\ 4382}# #{var\ 4383}# #{public?\ 4384}#)
+ (let ((#{atom-key\ 4385}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4385}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{source\ 823}#
- #{mod\ 826}#
- #{var\ 827}#
- #{public?\ 828}#)
- (#{decorate-source\ 93}#
- (list (if #{public?\ 828}# (quote @) (quote @@))
- #{mod\ 826}#
- #{var\ 827}#)
- #{source\ 823}#))))
- (lambda (#{var\ 830}#)
- (let ((#{atom-key\ 831}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 831}# (quote (c)))
+ #{source\ 4379}#
+ #{mod\ 4382}#
+ #{var\ 4383}#
+ #{public?\ 4384}#)
+ (#{decorate-source\ 3637}#
+ (list (if #{public?\ 4384}# (quote @) (quote @@))
+ #{mod\ 4382}#
+ #{var\ 4383}#)
+ #{source\ 4379}#))))
+ (lambda (#{var\ 4386}#)
+ (let ((#{atom-key\ 4387}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4387}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{source\ 823}#
- #{var\ 830}#)
- (#{decorate-source\ 93}#
- #{var\ 830}#
- #{source\ 823}#)))))))
- (#{analyze-variable\ 99}#
- (lambda (#{mod\ 832}#
- #{var\ 833}#
- #{modref-cont\ 834}#
- #{bare-cont\ 835}#)
- (if (not #{mod\ 832}#)
- (#{bare-cont\ 835}# #{var\ 833}#)
- (let ((#{kind\ 836}# (car #{mod\ 832}#))
- (#{mod\ 837}# (cdr #{mod\ 832}#)))
- (if (memv #{kind\ 836}# (quote (public)))
- (#{modref-cont\ 834}#
- #{mod\ 837}#
- #{var\ 833}#
+ #{source\ 4379}#
+ #{var\ 4386}#)
+ (#{decorate-source\ 3637}#
+ #{var\ 4386}#
+ #{source\ 4379}#)))))))
+ (#{analyze-variable\ 3643}#
+ (lambda (#{mod\ 4388}#
+ #{var\ 4389}#
+ #{modref-cont\ 4390}#
+ #{bare-cont\ 4391}#)
+ (if (not #{mod\ 4388}#)
+ (#{bare-cont\ 4391}# #{var\ 4389}#)
+ (let ((#{kind\ 4392}# (car #{mod\ 4388}#))
+ (#{mod\ 4393}# (cdr #{mod\ 4388}#)))
+ (if (memv #{kind\ 4392}# (quote (public)))
+ (#{modref-cont\ 4390}#
+ #{mod\ 4393}#
+ #{var\ 4389}#
#t)
- (if (memv #{kind\ 836}# (quote (private)))
+ (if (memv #{kind\ 4392}# (quote (private)))
(if (not (equal?
- #{mod\ 837}#
+ #{mod\ 4393}#
(module-name (current-module))))
- (#{modref-cont\ 834}#
- #{mod\ 837}#
- #{var\ 833}#
+ (#{modref-cont\ 4390}#
+ #{mod\ 4393}#
+ #{var\ 4389}#
#f)
- (#{bare-cont\ 835}# #{var\ 833}#))
- (if (memv #{kind\ 836}# (quote (bare)))
- (#{bare-cont\ 835}# #{var\ 833}#)
- (if (memv #{kind\ 836}# (quote (hygiene)))
+ (#{bare-cont\ 4391}# #{var\ 4389}#))
+ (if (memv #{kind\ 4392}# (quote (bare)))
+ (#{bare-cont\ 4391}# #{var\ 4389}#)
+ (if (memv #{kind\ 4392}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 837}#
+ #{mod\ 4393}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 837}#)
- #{var\ 833}#)
+ (resolve-module #{mod\ 4393}#)
+ #{var\ 4389}#)
#f)
- (#{modref-cont\ 834}#
- #{mod\ 837}#
- #{var\ 833}#
+ (#{modref-cont\ 4390}#
+ #{mod\ 4393}#
+ #{var\ 4389}#
#f)
- (#{bare-cont\ 835}# #{var\ 833}#))
+ (#{bare-cont\ 4391}# #{var\ 4389}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 833}#
- #{mod\ 837}#)))))))))
- (#{build-lexical-assignment\ 98}#
- (lambda (#{source\ 838}#
- #{name\ 839}#
- #{var\ 840}#
- #{exp\ 841}#)
- (let ((#{atom-key\ 842}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 842}# (quote (c)))
+ #{var\ 4389}#
+ #{mod\ 4393}#)))))))))
+ (#{build-lexical-assignment\ 3642}#
+ (lambda (#{source\ 4394}#
+ #{name\ 4395}#
+ #{var\ 4396}#
+ #{exp\ 4397}#)
+ (let ((#{atom-key\ 4398}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4398}# (quote (c)))
((@ (language tree-il) make-lexical-set)
- #{source\ 838}#
- #{name\ 839}#
- #{var\ 840}#
- #{exp\ 841}#)
- (#{decorate-source\ 93}#
- (list (quote set!) #{var\ 840}# #{exp\ 841}#)
- #{source\ 838}#)))))
- (#{build-lexical-reference\ 97}#
- (lambda (#{type\ 843}#
- #{source\ 844}#
- #{name\ 845}#
- #{var\ 846}#)
- (let ((#{atom-key\ 847}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 847}# (quote (c)))
+ #{source\ 4394}#
+ #{name\ 4395}#
+ #{var\ 4396}#
+ #{exp\ 4397}#)
+ (#{decorate-source\ 3637}#
+ (list (quote set!) #{var\ 4396}# #{exp\ 4397}#)
+ #{source\ 4394}#)))))
+ (#{build-lexical-reference\ 3641}#
+ (lambda (#{type\ 4399}#
+ #{source\ 4400}#
+ #{name\ 4401}#
+ #{var\ 4402}#)
+ (let ((#{atom-key\ 4403}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4403}# (quote (c)))
((@ (language tree-il) make-lexical-ref)
- #{source\ 844}#
- #{name\ 845}#
- #{var\ 846}#)
- (#{decorate-source\ 93}#
- #{var\ 846}#
- #{source\ 844}#)))))
- (#{build-conditional\ 96}#
- (lambda (#{source\ 848}#
- #{test-exp\ 849}#
- #{then-exp\ 850}#
- #{else-exp\ 851}#)
- (let ((#{atom-key\ 852}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 852}# (quote (c)))
+ #{source\ 4400}#
+ #{name\ 4401}#
+ #{var\ 4402}#)
+ (#{decorate-source\ 3637}#
+ #{var\ 4402}#
+ #{source\ 4400}#)))))
+ (#{build-conditional\ 3640}#
+ (lambda (#{source\ 4404}#
+ #{test-exp\ 4405}#
+ #{then-exp\ 4406}#
+ #{else-exp\ 4407}#)
+ (let ((#{atom-key\ 4408}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4408}# (quote (c)))
((@ (language tree-il) make-conditional)
- #{source\ 848}#
- #{test-exp\ 849}#
- #{then-exp\ 850}#
- #{else-exp\ 851}#)
- (#{decorate-source\ 93}#
- (if (equal? #{else-exp\ 851}# (quote (if #f #f)))
+ #{source\ 4404}#
+ #{test-exp\ 4405}#
+ #{then-exp\ 4406}#
+ #{else-exp\ 4407}#)
+ (#{decorate-source\ 3637}#
+ (if (equal? #{else-exp\ 4407}# (quote (if #f #f)))
(list 'if
- #{test-exp\ 849}#
- #{then-exp\ 850}#)
+ #{test-exp\ 4405}#
+ #{then-exp\ 4406}#)
(list 'if
- #{test-exp\ 849}#
- #{then-exp\ 850}#
- #{else-exp\ 851}#))
- #{source\ 848}#)))))
- (#{build-application\ 95}#
- (lambda (#{source\ 853}#
- #{fun-exp\ 854}#
- #{arg-exps\ 855}#)
- (let ((#{atom-key\ 856}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 856}# (quote (c)))
+ #{test-exp\ 4405}#
+ #{then-exp\ 4406}#
+ #{else-exp\ 4407}#))
+ #{source\ 4404}#)))))
+ (#{build-application\ 3639}#
+ (lambda (#{source\ 4409}#
+ #{fun-exp\ 4410}#
+ #{arg-exps\ 4411}#)
+ (let ((#{atom-key\ 4412}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4412}# (quote (c)))
((@ (language tree-il) make-application)
- #{source\ 853}#
- #{fun-exp\ 854}#
- #{arg-exps\ 855}#)
- (#{decorate-source\ 93}#
- (cons #{fun-exp\ 854}# #{arg-exps\ 855}#)
- #{source\ 853}#)))))
- (#{build-void\ 94}#
- (lambda (#{source\ 857}#)
- (let ((#{atom-key\ 858}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 858}# (quote (c)))
+ #{source\ 4409}#
+ #{fun-exp\ 4410}#
+ #{arg-exps\ 4411}#)
+ (#{decorate-source\ 3637}#
+ (cons #{fun-exp\ 4410}# #{arg-exps\ 4411}#)
+ #{source\ 4409}#)))))
+ (#{build-void\ 3638}#
+ (lambda (#{source\ 4413}#)
+ (let ((#{atom-key\ 4414}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4414}# (quote (c)))
((@ (language tree-il) make-void)
- #{source\ 857}#)
- (#{decorate-source\ 93}#
+ #{source\ 4413}#)
+ (#{decorate-source\ 3637}#
'(if #f #f)
- #{source\ 857}#)))))
- (#{decorate-source\ 93}#
- (lambda (#{e\ 859}# #{s\ 860}#)
+ #{source\ 4413}#)))))
+ (#{decorate-source\ 3637}#
+ (lambda (#{e\ 4415}# #{s\ 4416}#)
(begin
- (if (if (pair? #{e\ 859}#) #{s\ 860}# #f)
- (set-source-properties! #{e\ 859}# #{s\ 860}#))
- #{e\ 859}#)))
- (#{get-global-definition-hook\ 92}#
- (lambda (#{symbol\ 861}# #{module\ 862}#)
+ (if (if (pair? #{e\ 4415}#) #{s\ 4416}# #f)
+ (set-source-properties! #{e\ 4415}# #{s\ 4416}#))
+ #{e\ 4415}#)))
+ (#{get-global-definition-hook\ 3636}#
+ (lambda (#{symbol\ 4417}# #{module\ 4418}#)
(begin
- (if (if (not #{module\ 862}#) (current-module) #f)
+ (if (if (not #{module\ 4418}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 861}#))
- (let ((#{v\ 863}# (module-variable
- (if #{module\ 862}#
- (resolve-module (cdr #{module\ 862}#))
- (current-module))
- #{symbol\ 861}#)))
- (if #{v\ 863}#
- (if (variable-bound? #{v\ 863}#)
- (let ((#{val\ 864}# (variable-ref #{v\ 863}#)))
- (if (macro? #{val\ 864}#)
- (if (syncase-macro-type #{val\ 864}#)
- (cons (syncase-macro-type #{val\ 864}#)
- (syncase-macro-binding #{val\ 864}#))
+ #{symbol\ 4417}#))
+ (let ((#{v\ 4419}#
+ (module-variable
+ (if #{module\ 4418}#
+ (resolve-module (cdr #{module\ 4418}#))
+ (current-module))
+ #{symbol\ 4417}#)))
+ (if #{v\ 4419}#
+ (if (variable-bound? #{v\ 4419}#)
+ (let ((#{val\ 4420}# (variable-ref #{v\ 4419}#)))
+ (if (macro? #{val\ 4420}#)
+ (if (syncase-macro-type #{val\ 4420}#)
+ (cons (syncase-macro-type #{val\ 4420}#)
+ (syncase-macro-binding #{val\ 4420}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 91}#
- (lambda (#{symbol\ 865}# #{type\ 866}# #{val\ 867}#)
- (let ((#{existing\ 868}#
- (let ((#{v\ 869}# (module-variable
- (current-module)
- #{symbol\ 865}#)))
- (if #{v\ 869}#
- (if (variable-bound? #{v\ 869}#)
- (let ((#{val\ 870}# (variable-ref #{v\ 869}#)))
- (if (macro? #{val\ 870}#)
- (if (not (syncase-macro-type #{val\ 870}#))
- #{val\ 870}#
+ (#{put-global-definition-hook\ 3635}#
+ (lambda (#{symbol\ 4421}# #{type\ 4422}# #{val\ 4423}#)
+ (let ((#{existing\ 4424}#
+ (let ((#{v\ 4425}#
+ (module-variable
+ (current-module)
+ #{symbol\ 4421}#)))
+ (if #{v\ 4425}#
+ (if (variable-bound? #{v\ 4425}#)
+ (let ((#{val\ 4426}# (variable-ref #{v\ 4425}#)))
+ (if (macro? #{val\ 4426}#)
+ (if (not (syncase-macro-type #{val\ 4426}#))
+ #{val\ 4426}#
#f)
#f))
#f)
#f))))
(module-define!
(current-module)
- #{symbol\ 865}#
- (if #{existing\ 868}#
+ #{symbol\ 4421}#
+ (if #{existing\ 4424}#
(make-extended-syncase-macro
- #{existing\ 868}#
- #{type\ 866}#
- #{val\ 867}#)
- (make-syncase-macro #{type\ 866}# #{val\ 867}#))))))
- (#{local-eval-hook\ 90}#
- (lambda (#{x\ 871}# #{mod\ 872}#)
+ #{existing\ 4424}#
+ #{type\ 4422}#
+ #{val\ 4423}#)
+ (make-syncase-macro #{type\ 4422}# #{val\ 4423}#))))))
+ (#{local-eval-hook\ 3634}#
+ (lambda (#{x\ 4427}# #{mod\ 4428}#)
(primitive-eval
- (list #{noexpand\ 83}#
- (let ((#{atom-key\ 873}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 873}# (quote (c)))
+ (list #{noexpand\ 3627}#
+ (let ((#{atom-key\ 4429}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4429}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 871}#)
- #{x\ 871}#))))))
- (#{top-level-eval-hook\ 89}#
- (lambda (#{x\ 874}# #{mod\ 875}#)
+ #{x\ 4427}#)
+ #{x\ 4427}#))))))
+ (#{top-level-eval-hook\ 3633}#
+ (lambda (#{x\ 4430}# #{mod\ 4431}#)
(primitive-eval
- (list #{noexpand\ 83}#
- (let ((#{atom-key\ 876}# (fluid-ref #{*mode*\ 84}#)))
- (if (memv #{atom-key\ 876}# (quote (c)))
+ (list #{noexpand\ 3627}#
+ (let ((#{atom-key\ 4432}# (fluid-ref #{*mode*\ 3628}#)))
+ (if (memv #{atom-key\ 4432}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 874}#)
- #{x\ 874}#))))))
- (#{fx<\ 88}# <)
- (#{fx=\ 87}# =)
- (#{fx-\ 86}# -)
- (#{fx+\ 85}# +)
- (#{*mode*\ 84}# (make-fluid))
- (#{noexpand\ 83}# "noexpand"))
+ #{x\ 4430}#)
+ #{x\ 4430}#))))))
+ (#{fx<\ 3632}# <)
+ (#{fx=\ 3631}# =)
+ (#{fx-\ 3630}# -)
+ (#{fx+\ 3629}# +)
+ (#{*mode*\ 3628}# (make-fluid))
+ (#{noexpand\ 3627}# "noexpand"))
(begin
- (#{global-extend\ 128}#
+ (#{global-extend\ 3672}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 128}#
+ (#{global-extend\ 3672}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 128}#
+ (#{global-extend\ 3672}#
'core
'fluid-let-syntax
- (lambda (#{e\ 877}#
- #{r\ 878}#
- #{w\ 879}#
- #{s\ 880}#
- #{mod\ 881}#)
- ((lambda (#{tmp\ 882}#)
- ((lambda (#{tmp\ 883}#)
- (if (if #{tmp\ 883}#
- (apply (lambda (#{_\ 884}#
- #{var\ 885}#
- #{val\ 886}#
- #{e1\ 887}#
- #{e2\ 888}#)
- (#{valid-bound-ids?\ 155}# #{var\ 885}#))
- #{tmp\ 883}#)
+ (lambda (#{e\ 4433}#
+ #{r\ 4434}#
+ #{w\ 4435}#
+ #{s\ 4436}#
+ #{mod\ 4437}#)
+ ((lambda (#{tmp\ 4438}#)
+ ((lambda (#{tmp\ 4439}#)
+ (if (if #{tmp\ 4439}#
+ (apply (lambda (#{_\ 4440}#
+ #{var\ 4441}#
+ #{val\ 4442}#
+ #{e1\ 4443}#
+ #{e2\ 4444}#)
+ (#{valid-bound-ids?\ 3699}# #{var\ 4441}#))
+ #{tmp\ 4439}#)
#f)
- (apply (lambda (#{_\ 890}#
- #{var\ 891}#
- #{val\ 892}#
- #{e1\ 893}#
- #{e2\ 894}#)
- (let ((#{names\ 895}#
- (map (lambda (#{x\ 896}#)
- (#{id-var-name\ 152}#
- #{x\ 896}#
- #{w\ 879}#))
- #{var\ 891}#)))
+ (apply (lambda (#{_\ 4446}#
+ #{var\ 4447}#
+ #{val\ 4448}#
+ #{e1\ 4449}#
+ #{e2\ 4450}#)
+ (let ((#{names\ 4451}#
+ (map (lambda (#{x\ 4452}#)
+ (#{id-var-name\ 3696}#
+ #{x\ 4452}#
+ #{w\ 4435}#))
+ #{var\ 4447}#)))
(begin
(for-each
- (lambda (#{id\ 898}# #{n\ 899}#)
- (let ((#{atom-key\ 900}#
- (#{binding-type\ 122}#
- (#{lookup\ 127}#
- #{n\ 899}#
- #{r\ 878}#
- #{mod\ 881}#))))
- (if (memv #{atom-key\ 900}#
+ (lambda (#{id\ 4454}# #{n\ 4455}#)
+ (let ((#{atom-key\ 4456}#
+ (#{binding-type\ 3666}#
+ (#{lookup\ 3671}#
+ #{n\ 4455}#
+ #{r\ 4434}#
+ #{mod\ 4437}#))))
+ (if (memv #{atom-key\ 4456}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 877}#
- (#{source-wrap\ 159}#
- #{id\ 898}#
- #{w\ 879}#
- #{s\ 880}#
- #{mod\ 881}#)))))
- #{var\ 891}#
- #{names\ 895}#)
- (#{chi-body\ 170}#
- (cons #{e1\ 893}# #{e2\ 894}#)
- (#{source-wrap\ 159}#
- #{e\ 877}#
- #{w\ 879}#
- #{s\ 880}#
- #{mod\ 881}#)
- (#{extend-env\ 124}#
- #{names\ 895}#
- (let ((#{trans-r\ 903}#
- (#{macros-only-env\ 126}#
- #{r\ 878}#)))
- (map (lambda (#{x\ 904}#)
+ #{e\ 4433}#
+ (#{source-wrap\ 3703}#
+ #{id\ 4454}#
+ #{w\ 4435}#
+ #{s\ 4436}#
+ #{mod\ 4437}#)))))
+ #{var\ 4447}#
+ #{names\ 4451}#)
+ (#{chi-body\ 3714}#
+ (cons #{e1\ 4449}# #{e2\ 4450}#)
+ (#{source-wrap\ 3703}#
+ #{e\ 4433}#
+ #{w\ 4435}#
+ #{s\ 4436}#
+ #{mod\ 4437}#)
+ (#{extend-env\ 3668}#
+ #{names\ 4451}#
+ (let ((#{trans-r\ 4459}#
+ (#{macros-only-env\ 3670}#
+ #{r\ 4434}#)))
+ (map (lambda (#{x\ 4460}#)
(cons 'macro
- (#{eval-local-transformer\
172}#
- (#{chi\ 166}#
- #{x\ 904}#
- #{trans-r\ 903}#
- #{w\ 879}#
- #{mod\ 881}#)
- #{mod\ 881}#)))
- #{val\ 892}#))
- #{r\ 878}#)
- #{w\ 879}#
- #{mod\ 881}#))))
- #{tmp\ 883}#)
- ((lambda (#{_\ 906}#)
+ (#{eval-local-transformer\
3716}#
+ (#{chi\ 3710}#
+ #{x\ 4460}#
+ #{trans-r\ 4459}#
+ #{w\ 4435}#
+ #{mod\ 4437}#)
+ #{mod\ 4437}#)))
+ #{val\ 4448}#))
+ #{r\ 4434}#)
+ #{w\ 4435}#
+ #{mod\ 4437}#))))
+ #{tmp\ 4439}#)
+ ((lambda (#{_\ 4462}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 159}#
- #{e\ 877}#
- #{w\ 879}#
- #{s\ 880}#
- #{mod\ 881}#)))
- #{tmp\ 882}#)))
+ (#{source-wrap\ 3703}#
+ #{e\ 4433}#
+ #{w\ 4435}#
+ #{s\ 4436}#
+ #{mod\ 4437}#)))
+ #{tmp\ 4438}#)))
($sc-dispatch
- #{tmp\ 882}#
+ #{tmp\ 4438}#
'(any #(each (any any)) any . each-any))))
- #{e\ 877}#)))
- (#{global-extend\ 128}#
+ #{e\ 4433}#)))
+ (#{global-extend\ 3672}#
'core
'quote
- (lambda (#{e\ 907}#
- #{r\ 908}#
- #{w\ 909}#
- #{s\ 910}#
- #{mod\ 911}#)
- ((lambda (#{tmp\ 912}#)
- ((lambda (#{tmp\ 913}#)
- (if #{tmp\ 913}#
- (apply (lambda (#{_\ 914}# #{e\ 915}#)
- (#{build-data\ 108}#
- #{s\ 910}#
- (#{strip\ 175}# #{e\ 915}# #{w\ 909}#)))
- #{tmp\ 913}#)
- ((lambda (#{_\ 916}#)
+ (lambda (#{e\ 4463}#
+ #{r\ 4464}#
+ #{w\ 4465}#
+ #{s\ 4466}#
+ #{mod\ 4467}#)
+ ((lambda (#{tmp\ 4468}#)
+ ((lambda (#{tmp\ 4469}#)
+ (if #{tmp\ 4469}#
+ (apply (lambda (#{_\ 4470}# #{e\ 4471}#)
+ (#{build-data\ 3652}#
+ #{s\ 4466}#
+ (#{strip\ 3719}# #{e\ 4471}# #{w\ 4465}#)))
+ #{tmp\ 4469}#)
+ ((lambda (#{_\ 4472}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 159}#
- #{e\ 907}#
- #{w\ 909}#
- #{s\ 910}#
- #{mod\ 911}#)))
- #{tmp\ 912}#)))
- ($sc-dispatch #{tmp\ 912}# (quote (any any)))))
- #{e\ 907}#)))
- (#{global-extend\ 128}#
+ (#{source-wrap\ 3703}#
+ #{e\ 4463}#
+ #{w\ 4465}#
+ #{s\ 4466}#
+ #{mod\ 4467}#)))
+ #{tmp\ 4468}#)))
+ ($sc-dispatch #{tmp\ 4468}# (quote (any any)))))
+ #{e\ 4463}#)))
+ (#{global-extend\ 3672}#
'core
'syntax
- (letrec ((#{regen\ 924}#
- (lambda (#{x\ 925}#)
- (let ((#{atom-key\ 926}# (car #{x\ 925}#)))
- (if (memv #{atom-key\ 926}# (quote (ref)))
- (#{build-lexical-reference\ 97}#
+ (letrec ((#{regen\ 4480}#
+ (lambda (#{x\ 4481}#)
+ (let ((#{atom-key\ 4482}# (car #{x\ 4481}#)))
+ (if (memv #{atom-key\ 4482}# (quote (ref)))
+ (#{build-lexical-reference\ 3641}#
'value
#f
- (cadr #{x\ 925}#)
- (cadr #{x\ 925}#))
- (if (memv #{atom-key\ 926}# (quote (primitive)))
- (#{build-primref\ 107}# #f (cadr #{x\ 925}#))
- (if (memv #{atom-key\ 926}# (quote (quote)))
- (#{build-data\ 108}# #f (cadr #{x\ 925}#))
- (if (memv #{atom-key\ 926}# (quote (lambda)))
- (if (list? (cadr #{x\ 925}#))
- (#{build-simple-lambda\ 104}#
+ (cadr #{x\ 4481}#)
+ (cadr #{x\ 4481}#))
+ (if (memv #{atom-key\ 4482}# (quote (primitive)))
+ (#{build-primref\ 3651}# #f (cadr #{x\ 4481}#))
+ (if (memv #{atom-key\ 4482}# (quote (quote)))
+ (#{build-data\ 3652}# #f (cadr #{x\ 4481}#))
+ (if (memv #{atom-key\ 4482}# (quote (lambda)))
+ (if (list? (cadr #{x\ 4481}#))
+ (#{build-simple-lambda\ 3648}#
#f
- (cadr #{x\ 925}#)
+ (cadr #{x\ 4481}#)
#f
- (cadr #{x\ 925}#)
+ (cadr #{x\ 4481}#)
#f
- (#{regen\ 924}# (caddr #{x\ 925}#)))
- (error "how did we get here" #{x\ 925}#))
- (#{build-application\ 95}#
+ (#{regen\ 4480}# (caddr #{x\ 4481}#)))
+ (error "how did we get here" #{x\ 4481}#))
+ (#{build-application\ 3639}#
#f
- (#{build-primref\ 107}# #f (car #{x\ 925}#))
- (map #{regen\ 924}# (cdr #{x\ 925}#))))))))))
- (#{gen-vector\ 923}#
- (lambda (#{x\ 927}#)
- (if (eq? (car #{x\ 927}#) (quote list))
- (cons (quote vector) (cdr #{x\ 927}#))
- (if (eq? (car #{x\ 927}#) (quote quote))
+ (#{build-primref\ 3651}# #f (car #{x\ 4481}#))
+ (map #{regen\ 4480}#
+ (cdr #{x\ 4481}#))))))))))
+ (#{gen-vector\ 4479}#
+ (lambda (#{x\ 4483}#)
+ (if (eq? (car #{x\ 4483}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 4483}#))
+ (if (eq? (car #{x\ 4483}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 927}#)))
- (list (quote list->vector) #{x\ 927}#)))))
- (#{gen-append\ 922}#
- (lambda (#{x\ 928}# #{y\ 929}#)
- (if (equal? #{y\ 929}# (quote (quote ())))
- #{x\ 928}#
- (list (quote append) #{x\ 928}# #{y\ 929}#))))
- (#{gen-cons\ 921}#
- (lambda (#{x\ 930}# #{y\ 931}#)
- (let ((#{atom-key\ 932}# (car #{y\ 931}#)))
- (if (memv #{atom-key\ 932}# (quote (quote)))
- (if (eq? (car #{x\ 930}#) (quote quote))
+ (list->vector (cadr #{x\ 4483}#)))
+ (list (quote list->vector) #{x\ 4483}#)))))
+ (#{gen-append\ 4478}#
+ (lambda (#{x\ 4484}# #{y\ 4485}#)
+ (if (equal? #{y\ 4485}# (quote (quote ())))
+ #{x\ 4484}#
+ (list (quote append) #{x\ 4484}# #{y\ 4485}#))))
+ (#{gen-cons\ 4477}#
+ (lambda (#{x\ 4486}# #{y\ 4487}#)
+ (let ((#{atom-key\ 4488}# (car #{y\ 4487}#)))
+ (if (memv #{atom-key\ 4488}# (quote (quote)))
+ (if (eq? (car #{x\ 4486}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 930}#) (cadr #{y\ 931}#)))
- (if (eq? (cadr #{y\ 931}#) (quote ()))
- (list (quote list) #{x\ 930}#)
- (list (quote cons) #{x\ 930}# #{y\ 931}#)))
- (if (memv #{atom-key\ 932}# (quote (list)))
+ (cons (cadr #{x\ 4486}#) (cadr #{y\ 4487}#)))
+ (if (eq? (cadr #{y\ 4487}#) (quote ()))
+ (list (quote list) #{x\ 4486}#)
+ (list (quote cons) #{x\ 4486}# #{y\ 4487}#)))
+ (if (memv #{atom-key\ 4488}# (quote (list)))
(cons 'list
- (cons #{x\ 930}# (cdr #{y\ 931}#)))
- (list (quote cons) #{x\ 930}# #{y\ 931}#))))))
- (#{gen-map\ 920}#
- (lambda (#{e\ 933}# #{map-env\ 934}#)
- (let ((#{formals\ 935}# (map cdr #{map-env\ 934}#))
- (#{actuals\ 936}#
- (map (lambda (#{x\ 937}#)
- (list (quote ref) (car #{x\ 937}#)))
- #{map-env\ 934}#)))
- (if (eq? (car #{e\ 933}#) (quote ref))
- (car #{actuals\ 936}#)
+ (cons #{x\ 4486}# (cdr #{y\ 4487}#)))
+ (list (quote cons) #{x\ 4486}# #{y\ 4487}#))))))
+ (#{gen-map\ 4476}#
+ (lambda (#{e\ 4489}# #{map-env\ 4490}#)
+ (let ((#{formals\ 4491}# (map cdr #{map-env\ 4490}#))
+ (#{actuals\ 4492}#
+ (map (lambda (#{x\ 4493}#)
+ (list (quote ref) (car #{x\ 4493}#)))
+ #{map-env\ 4490}#)))
+ (if (eq? (car #{e\ 4489}#) (quote ref))
+ (car #{actuals\ 4492}#)
(if (and-map
- (lambda (#{x\ 938}#)
- (if (eq? (car #{x\ 938}#) (quote ref))
- (memq (cadr #{x\ 938}#) #{formals\ 935}#)
+ (lambda (#{x\ 4494}#)
+ (if (eq? (car #{x\ 4494}#) (quote ref))
+ (memq (cadr #{x\ 4494}#) #{formals\ 4491}#)
#f))
- (cdr #{e\ 933}#))
+ (cdr #{e\ 4489}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 933}#))
- (map (let ((#{r\ 939}# (map cons
- #{formals\
935}#
- #{actuals\
936}#)))
- (lambda (#{x\ 940}#)
- (cdr (assq (cadr #{x\ 940}#)
- #{r\ 939}#))))
- (cdr #{e\ 933}#))))
+ (car #{e\ 4489}#))
+ (map (let ((#{r\ 4495}#
+ (map cons
+ #{formals\ 4491}#
+ #{actuals\ 4492}#)))
+ (lambda (#{x\ 4496}#)
+ (cdr (assq (cadr #{x\ 4496}#)
+ #{r\ 4495}#))))
+ (cdr #{e\ 4489}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 935}#
- #{e\ 933}#)
- #{actuals\ 936}#)))))))
- (#{gen-mappend\ 919}#
- (lambda (#{e\ 941}# #{map-env\ 942}#)
+ #{formals\ 4491}#
+ #{e\ 4489}#)
+ #{actuals\ 4492}#)))))))
+ (#{gen-mappend\ 4475}#
+ (lambda (#{e\ 4497}# #{map-env\ 4498}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 920}# #{e\ 941}# #{map-env\ 942}#))))
- (#{gen-ref\ 918}#
- (lambda (#{src\ 943}#
- #{var\ 944}#
- #{level\ 945}#
- #{maps\ 946}#)
- (if (#{fx=\ 87}# #{level\ 945}# 0)
- (values #{var\ 944}# #{maps\ 946}#)
- (if (null? #{maps\ 946}#)
+ (#{gen-map\ 4476}# #{e\ 4497}# #{map-env\ 4498}#))))
+ (#{gen-ref\ 4474}#
+ (lambda (#{src\ 4499}#
+ #{var\ 4500}#
+ #{level\ 4501}#
+ #{maps\ 4502}#)
+ (if (#{fx=\ 3631}# #{level\ 4501}# 0)
+ (values #{var\ 4500}# #{maps\ 4502}#)
+ (if (null? #{maps\ 4502}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 943}#)
+ #{src\ 4499}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 918}#
- #{src\ 943}#
- #{var\ 944}#
- (#{fx-\ 86}# #{level\ 945}# 1)
- (cdr #{maps\ 946}#)))
- (lambda (#{outer-var\ 947}# #{outer-maps\ 948}#)
- (let ((#{b\ 949}# (assq #{outer-var\ 947}#
- (car #{maps\ 946}#))))
- (if #{b\ 949}#
- (values (cdr #{b\ 949}#) #{maps\ 946}#)
- (let ((#{inner-var\ 950}#
- (#{gen-var\ 176}# (quote tmp))))
+ (#{gen-ref\ 4474}#
+ #{src\ 4499}#
+ #{var\ 4500}#
+ (#{fx-\ 3630}# #{level\ 4501}# 1)
+ (cdr #{maps\ 4502}#)))
+ (lambda (#{outer-var\ 4503}# #{outer-maps\ 4504}#)
+ (let ((#{b\ 4505}#
+ (assq #{outer-var\ 4503}#
+ (car #{maps\ 4502}#))))
+ (if #{b\ 4505}#
+ (values (cdr #{b\ 4505}#) #{maps\ 4502}#)
+ (let ((#{inner-var\ 4506}#
+ (#{gen-var\ 3720}# (quote tmp))))
(values
- #{inner-var\ 950}#
- (cons (cons (cons #{outer-var\ 947}#
- #{inner-var\ 950}#)
- (car #{maps\ 946}#))
- #{outer-maps\ 948}#)))))))))))
- (#{gen-syntax\ 917}#
- (lambda (#{src\ 951}#
- #{e\ 952}#
- #{r\ 953}#
- #{maps\ 954}#
- #{ellipsis?\ 955}#
- #{mod\ 956}#)
- (if (#{id?\ 130}# #{e\ 952}#)
- (let ((#{label\ 957}#
- (#{id-var-name\ 152}# #{e\ 952}# (quote (())))))
- (let ((#{b\ 958}# (#{lookup\ 127}#
- #{label\ 957}#
- #{r\ 953}#
- #{mod\ 956}#)))
- (if (eq? (#{binding-type\ 122}# #{b\ 958}#)
+ #{inner-var\ 4506}#
+ (cons (cons (cons #{outer-var\ 4503}#
+ #{inner-var\ 4506}#)
+ (car #{maps\ 4502}#))
+ #{outer-maps\ 4504}#)))))))))))
+ (#{gen-syntax\ 4473}#
+ (lambda (#{src\ 4507}#
+ #{e\ 4508}#
+ #{r\ 4509}#
+ #{maps\ 4510}#
+ #{ellipsis?\ 4511}#
+ #{mod\ 4512}#)
+ (if (#{id?\ 3674}# #{e\ 4508}#)
+ (let ((#{label\ 4513}#
+ (#{id-var-name\ 3696}#
+ #{e\ 4508}#
+ '(()))))
+ (let ((#{b\ 4514}#
+ (#{lookup\ 3671}#
+ #{label\ 4513}#
+ #{r\ 4509}#
+ #{mod\ 4512}#)))
+ (if (eq? (#{binding-type\ 3666}# #{b\ 4514}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 959}#
- (#{binding-value\ 123}# #{b\ 958}#)))
- (#{gen-ref\ 918}#
- #{src\ 951}#
- (car #{var.lev\ 959}#)
- (cdr #{var.lev\ 959}#)
- #{maps\ 954}#)))
- (lambda (#{var\ 960}# #{maps\ 961}#)
+ (let ((#{var.lev\ 4515}#
+ (#{binding-value\ 3667}#
+ #{b\ 4514}#)))
+ (#{gen-ref\ 4474}#
+ #{src\ 4507}#
+ (car #{var.lev\ 4515}#)
+ (cdr #{var.lev\ 4515}#)
+ #{maps\ 4510}#)))
+ (lambda (#{var\ 4516}# #{maps\ 4517}#)
(values
- (list (quote ref) #{var\ 960}#)
- #{maps\ 961}#)))
- (if (#{ellipsis?\ 955}# #{e\ 952}#)
+ (list (quote ref) #{var\ 4516}#)
+ #{maps\ 4517}#)))
+ (if (#{ellipsis?\ 4511}# #{e\ 4508}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 951}#)
+ #{src\ 4507}#)
(values
- (list (quote quote) #{e\ 952}#)
- #{maps\ 954}#)))))
- ((lambda (#{tmp\ 962}#)
- ((lambda (#{tmp\ 963}#)
- (if (if #{tmp\ 963}#
- (apply (lambda (#{dots\ 964}# #{e\ 965}#)
- (#{ellipsis?\ 955}# #{dots\ 964}#))
- #{tmp\ 963}#)
+ (list (quote quote) #{e\ 4508}#)
+ #{maps\ 4510}#)))))
+ ((lambda (#{tmp\ 4518}#)
+ ((lambda (#{tmp\ 4519}#)
+ (if (if #{tmp\ 4519}#
+ (apply (lambda (#{dots\ 4520}# #{e\ 4521}#)
+ (#{ellipsis?\ 4511}#
+ #{dots\ 4520}#))
+ #{tmp\ 4519}#)
#f)
- (apply (lambda (#{dots\ 966}# #{e\ 967}#)
- (#{gen-syntax\ 917}#
- #{src\ 951}#
- #{e\ 967}#
- #{r\ 953}#
- #{maps\ 954}#
- (lambda (#{x\ 968}#) #f)
- #{mod\ 956}#))
- #{tmp\ 963}#)
- ((lambda (#{tmp\ 969}#)
- (if (if #{tmp\ 969}#
- (apply (lambda (#{x\ 970}#
- #{dots\ 971}#
- #{y\ 972}#)
- (#{ellipsis?\ 955}#
- #{dots\ 971}#))
- #{tmp\ 969}#)
+ (apply (lambda (#{dots\ 4522}# #{e\ 4523}#)
+ (#{gen-syntax\ 4473}#
+ #{src\ 4507}#
+ #{e\ 4523}#
+ #{r\ 4509}#
+ #{maps\ 4510}#
+ (lambda (#{x\ 4524}#) #f)
+ #{mod\ 4512}#))
+ #{tmp\ 4519}#)
+ ((lambda (#{tmp\ 4525}#)
+ (if (if #{tmp\ 4525}#
+ (apply (lambda (#{x\ 4526}#
+ #{dots\ 4527}#
+ #{y\ 4528}#)
+ (#{ellipsis?\ 4511}#
+ #{dots\ 4527}#))
+ #{tmp\ 4525}#)
#f)
- (apply (lambda (#{x\ 973}#
- #{dots\ 974}#
- #{y\ 975}#)
- (letrec ((#{f\ 976}# (lambda
(#{y\ 977}#
-
#{k\ 978}#)
- ((lambda
(#{tmp\ 982}#)
-
((lambda (#{tmp\ 983}#)
- (if
(if #{tmp\ 983}#
-
(apply (lambda (#{dots\ 984}#
-
#{y\ 985}#)
-
(#{ellipsis?\ 955}#
-
#{dots\ 984}#))
-
#{tmp\ 983}#)
-
#f)
-
(apply (lambda (#{dots\ 986}#
-
#{y\ 987}#)
-
(#{f\ 976}# #{y\ 987}#
-
(lambda (#{maps\ 988}#)
-
(call-with-values
-
(lambda ()
-
(#{k\ 978}# (cons '()
-
#{maps\ 988}#)))
-
(lambda (#{x\ 989}#
-
#{maps\ 990}#)
-
(if (null? (car #{maps\ 990}#))
-
(syntax-violation
-
'syntax
-
"extra ellipsis"
-
#{src\ 951}#)
-
(values
-
(#{gen-mappend\ 919}#
-
#{x\ 989}#
-
(car #{maps\ 990}#))
-
(cdr #{maps\ 990}#))))))))
-
#{tmp\ 983}#)
-
((lambda (#{_\ 991}#)
+ (apply (lambda (#{x\ 4529}#
+ #{dots\ 4530}#
+ #{y\ 4531}#)
+ (letrec ((#{f\ 4532}#
+ (lambda (#{y\ 4533}#
+ #{k\ 4534}#)
+ ((lambda (#{tmp\
4538}#)
+ ((lambda (#{tmp\
4539}#)
+ (if (if #{tmp\
4539}#
+ (apply
(lambda (#{dots\ 4540}#
+
#{y\ 4541}#)
+
(#{ellipsis?\ 4511}#
+
#{dots\ 4540}#))
+
#{tmp\ 4539}#)
+ #f)
+ (apply
(lambda (#{dots\ 4542}#
+
#{y\ 4543}#)
+
(#{f\ 4532}#
+
#{y\ 4543}#
+
(lambda (#{maps\ 4544}#)
(call-with-values
(lambda ()
-
(#{gen-syntax\ 917}#
-
#{src\ 951}#
-
#{y\ 977}#
-
#{r\ 953}#
-
#{maps\ 954}#
-
#{ellipsis?\ 955}#
-
#{mod\ 956}#))
-
(lambda (#{y\ 992}#
-
#{maps\ 993}#)
-
(call-with-values
-
(lambda ()
-
(#{k\ 978}# #{maps\ 993}#))
-
(lambda (#{x\ 994}#
-
#{maps\ 995}#)
-
(values
-
(#{gen-append\ 922}#
-
#{x\ 994}#
-
#{y\ 992}#)
-
#{maps\ 995}#))))))
-
#{tmp\ 982}#)))
-
($sc-dispatch
-
#{tmp\ 982}#
-
'(any .
-
any))))
- #{y\
977}#))))
- (#{f\ 976}# #{y\ 975}#
- (lambda (#{maps\
979}#)
- (call-with-values
- (lambda ()
-
(#{gen-syntax\ 917}#
- #{src\ 951}#
- #{x\ 973}#
- #{r\ 953}#
- (cons '()
-
#{maps\ 979}#)
-
#{ellipsis?\ 955}#
- #{mod\
956}#))
- (lambda (#{x\
980}#
-
#{maps\ 981}#)
- (if (null?
(car #{maps\ 981}#))
-
(syntax-violation
- 'syntax
- "extra
ellipsis"
- #{src\
951}#)
- (values
-
(#{gen-map\ 920}#
- #{x\
980}#
- (car
#{maps\ 981}#))
- (cdr
#{maps\ 981}#)))))))))
- #{tmp\ 969}#)
- ((lambda (#{tmp\ 996}#)
- (if #{tmp\ 996}#
- (apply (lambda (#{x\ 997}# #{y\ 998}#)
+
(#{k\ 4534}#
+
(cons '()
+
#{maps\ 4544}#)))
+
(lambda (#{x\ 4545}#
+
#{maps\ 4546}#)
+
(if (null? (car #{maps\ 4546}#))
+
(syntax-violation
+
'syntax
+
"extra ellipsis"
+
#{src\ 4507}#)
+
(values
+
(#{gen-mappend\ 4475}#
+
#{x\ 4545}#
+
(car #{maps\ 4546}#))
+
(cdr #{maps\ 4546}#))))))))
+
#{tmp\ 4539}#)
+ ((lambda
(#{_\ 4547}#)
+
(call-with-values
+ (lambda
()
+
(#{gen-syntax\ 4473}#
+
#{src\ 4507}#
+
#{y\ 4533}#
+
#{r\ 4509}#
+
#{maps\ 4510}#
+
#{ellipsis?\ 4511}#
+
#{mod\ 4512}#))
+ (lambda
(#{y\ 4548}#
+
#{maps\ 4549}#)
+
(call-with-values
+
(lambda ()
+
(#{k\ 4534}#
+
#{maps\ 4549}#))
+
(lambda (#{x\ 4550}#
+
#{maps\ 4551}#)
+
(values
+
(#{gen-append\ 4478}#
+
#{x\ 4550}#
+
#{y\ 4548}#)
+
#{maps\ 4551}#))))))
+ #{tmp\
4538}#)))
+ ($sc-dispatch
+ #{tmp\ 4538}#
+ '(any . any))))
+ #{y\ 4533}#))))
+ (#{f\ 4532}#
+ #{y\ 4531}#
+ (lambda (#{maps\ 4535}#)
+ (call-with-values
+ (lambda ()
+ (#{gen-syntax\ 4473}#
+ #{src\ 4507}#
+ #{x\ 4529}#
+ #{r\ 4509}#
+ (cons '()
+ #{maps\ 4535}#)
+ #{ellipsis?\ 4511}#
+ #{mod\ 4512}#))
+ (lambda (#{x\ 4536}#
+ #{maps\ 4537}#)
+ (if (null? (car #{maps\
4537}#))
+ (syntax-violation
+ 'syntax
+ "extra ellipsis"
+ #{src\ 4507}#)
+ (values
+ (#{gen-map\ 4476}#
+ #{x\ 4536}#
+ (car #{maps\
4537}#))
+ (cdr #{maps\
4537}#)))))))))
+ #{tmp\ 4525}#)
+ ((lambda (#{tmp\ 4552}#)
+ (if #{tmp\ 4552}#
+ (apply (lambda (#{x\ 4553}#
+ #{y\ 4554}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 917}#
- #{src\ 951}#
- #{x\ 997}#
- #{r\ 953}#
- #{maps\ 954}#
- #{ellipsis?\ 955}#
- #{mod\ 956}#))
- (lambda (#{x\ 999}#
- #{maps\ 1000}#)
+ (#{gen-syntax\ 4473}#
+ #{src\ 4507}#
+ #{x\ 4553}#
+ #{r\ 4509}#
+ #{maps\ 4510}#
+ #{ellipsis?\ 4511}#
+ #{mod\ 4512}#))
+ (lambda (#{x\ 4555}#
+ #{maps\ 4556}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 917}#
- #{src\ 951}#
- #{y\ 998}#
- #{r\ 953}#
- #{maps\ 1000}#
- #{ellipsis?\ 955}#
- #{mod\ 956}#))
- (lambda (#{y\ 1001}#
- #{maps\
1002}#)
+ (#{gen-syntax\ 4473}#
+ #{src\ 4507}#
+ #{y\ 4554}#
+ #{r\ 4509}#
+ #{maps\ 4556}#
+ #{ellipsis?\ 4511}#
+ #{mod\ 4512}#))
+ (lambda (#{y\ 4557}#
+ #{maps\
4558}#)
(values
- (#{gen-cons\ 921}#
- #{x\ 999}#
- #{y\ 1001}#)
- #{maps\
1002}#))))))
- #{tmp\ 996}#)
- ((lambda (#{tmp\ 1003}#)
- (if #{tmp\ 1003}#
- (apply (lambda (#{e1\ 1004}#
- #{e2\ 1005}#)
+ (#{gen-cons\ 4477}#
+ #{x\ 4555}#
+ #{y\ 4557}#)
+ #{maps\
4558}#))))))
+ #{tmp\ 4552}#)
+ ((lambda (#{tmp\ 4559}#)
+ (if #{tmp\ 4559}#
+ (apply (lambda (#{e1\ 4560}#
+ #{e2\ 4561}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 917}#
- #{src\ 951}#
- (cons #{e1\ 1004}#
- #{e2\
1005}#)
- #{r\ 953}#
- #{maps\ 954}#
- #{ellipsis?\ 955}#
- #{mod\ 956}#))
- (lambda (#{e\ 1007}#
- #{maps\
1008}#)
+ (#{gen-syntax\
4473}#
+ #{src\ 4507}#
+ (cons #{e1\ 4560}#
+ #{e2\
4561}#)
+ #{r\ 4509}#
+ #{maps\ 4510}#
+ #{ellipsis?\
4511}#
+ #{mod\ 4512}#))
+ (lambda (#{e\ 4563}#
+ #{maps\
4564}#)
(values
- (#{gen-vector\
923}#
- #{e\ 1007}#)
- #{maps\ 1008}#))))
- #{tmp\ 1003}#)
- ((lambda (#{_\ 1009}#)
+ (#{gen-vector\
4479}#
+ #{e\ 4563}#)
+ #{maps\ 4564}#))))
+ #{tmp\ 4559}#)
+ ((lambda (#{_\ 4565}#)
(values
(list 'quote
- #{e\ 952}#)
- #{maps\ 954}#))
- #{tmp\ 962}#)))
+ #{e\ 4508}#)
+ #{maps\ 4510}#))
+ #{tmp\ 4518}#)))
($sc-dispatch
- #{tmp\ 962}#
+ #{tmp\ 4518}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 962}#
+ #{tmp\ 4518}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 962}#
+ #{tmp\ 4518}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 962}# (quote (any any)))))
- #{e\ 952}#)))))
- (lambda (#{e\ 1010}#
- #{r\ 1011}#
- #{w\ 1012}#
- #{s\ 1013}#
- #{mod\ 1014}#)
- (let ((#{e\ 1015}#
- (#{source-wrap\ 159}#
- #{e\ 1010}#
- #{w\ 1012}#
- #{s\ 1013}#
- #{mod\ 1014}#)))
- ((lambda (#{tmp\ 1016}#)
- ((lambda (#{tmp\ 1017}#)
- (if #{tmp\ 1017}#
- (apply (lambda (#{_\ 1018}# #{x\ 1019}#)
+ ($sc-dispatch #{tmp\ 4518}# (quote (any any)))))
+ #{e\ 4508}#)))))
+ (lambda (#{e\ 4566}#
+ #{r\ 4567}#
+ #{w\ 4568}#
+ #{s\ 4569}#
+ #{mod\ 4570}#)
+ (let ((#{e\ 4571}#
+ (#{source-wrap\ 3703}#
+ #{e\ 4566}#
+ #{w\ 4568}#
+ #{s\ 4569}#
+ #{mod\ 4570}#)))
+ ((lambda (#{tmp\ 4572}#)
+ ((lambda (#{tmp\ 4573}#)
+ (if #{tmp\ 4573}#
+ (apply (lambda (#{_\ 4574}# #{x\ 4575}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 917}#
- #{e\ 1015}#
- #{x\ 1019}#
- #{r\ 1011}#
+ (#{gen-syntax\ 4473}#
+ #{e\ 4571}#
+ #{x\ 4575}#
+ #{r\ 4567}#
'()
- #{ellipsis?\ 174}#
- #{mod\ 1014}#))
- (lambda (#{e\ 1020}# #{maps\ 1021}#)
- (#{regen\ 924}# #{e\ 1020}#))))
- #{tmp\ 1017}#)
- ((lambda (#{_\ 1022}#)
+ #{ellipsis?\ 3718}#
+ #{mod\ 4570}#))
+ (lambda (#{e\ 4576}# #{maps\ 4577}#)
+ (#{regen\ 4480}# #{e\ 4576}#))))
+ #{tmp\ 4573}#)
+ ((lambda (#{_\ 4578}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 1015}#))
- #{tmp\ 1016}#)))
- ($sc-dispatch #{tmp\ 1016}# (quote (any any)))))
- #{e\ 1015}#)))))
- (#{global-extend\ 128}#
+ #{e\ 4571}#))
+ #{tmp\ 4572}#)))
+ ($sc-dispatch #{tmp\ 4572}# (quote (any any)))))
+ #{e\ 4571}#)))))
+ (#{global-extend\ 3672}#
'core
'lambda
- (lambda (#{e\ 1023}#
- #{r\ 1024}#
- #{w\ 1025}#
- #{s\ 1026}#
- #{mod\ 1027}#)
- (letrec ((#{docstring&body\ 1028}#
- (lambda (#{ids\ 1029}#
- #{vars\ 1030}#
- #{labels\ 1031}#
- #{c\ 1032}#)
- ((lambda (#{tmp\ 1033}#)
- ((lambda (#{tmp\ 1034}#)
- (if (if #{tmp\ 1034}#
- (apply (lambda (#{docstring\ 1035}#
- #{e1\ 1036}#
- #{e2\ 1037}#)
+ (lambda (#{e\ 4579}#
+ #{r\ 4580}#
+ #{w\ 4581}#
+ #{s\ 4582}#
+ #{mod\ 4583}#)
+ (letrec ((#{docstring&body\ 4584}#
+ (lambda (#{ids\ 4585}#
+ #{vars\ 4586}#
+ #{labels\ 4587}#
+ #{c\ 4588}#)
+ ((lambda (#{tmp\ 4589}#)
+ ((lambda (#{tmp\ 4590}#)
+ (if (if #{tmp\ 4590}#
+ (apply (lambda (#{docstring\ 4591}#
+ #{e1\ 4592}#
+ #{e2\ 4593}#)
(string?
(syntax->datum
- #{docstring\ 1035}#)))
- #{tmp\ 1034}#)
+ #{docstring\ 4591}#)))
+ #{tmp\ 4590}#)
#f)
- (apply (lambda (#{docstring\ 1038}#
- #{e1\ 1039}#
- #{e2\ 1040}#)
+ (apply (lambda (#{docstring\ 4594}#
+ #{e1\ 4595}#
+ #{e2\ 4596}#)
(values
- (syntax->datum #{docstring\ 1038}#)
- (#{chi-body\ 170}#
- (cons #{e1\ 1039}# #{e2\ 1040}#)
- (#{source-wrap\ 159}#
- #{e\ 1023}#
- #{w\ 1025}#
- #{s\ 1026}#
- #{mod\ 1027}#)
- (#{extend-var-env\ 125}#
- #{labels\ 1031}#
- #{vars\ 1030}#
- #{r\ 1024}#)
- (#{make-binding-wrap\ 147}#
- #{ids\ 1029}#
- #{labels\ 1031}#
- #{w\ 1025}#)
- #{mod\ 1027}#)))
- #{tmp\ 1034}#)
- ((lambda (#{tmp\ 1042}#)
- (if #{tmp\ 1042}#
- (apply (lambda (#{e1\ 1043}# #{e2\ 1044}#)
+ (syntax->datum #{docstring\ 4594}#)
+ (#{chi-body\ 3714}#
+ (cons #{e1\ 4595}# #{e2\ 4596}#)
+ (#{source-wrap\ 3703}#
+ #{e\ 4579}#
+ #{w\ 4581}#
+ #{s\ 4582}#
+ #{mod\ 4583}#)
+ (#{extend-var-env\ 3669}#
+ #{labels\ 4587}#
+ #{vars\ 4586}#
+ #{r\ 4580}#)
+ (#{make-binding-wrap\ 3691}#
+ #{ids\ 4585}#
+ #{labels\ 4587}#
+ #{w\ 4581}#)
+ #{mod\ 4583}#)))
+ #{tmp\ 4590}#)
+ ((lambda (#{tmp\ 4598}#)
+ (if #{tmp\ 4598}#
+ (apply (lambda (#{e1\ 4599}# #{e2\ 4600}#)
(values
#f
- (#{chi-body\ 170}#
- (cons #{e1\ 1043}#
- #{e2\ 1044}#)
- (#{source-wrap\ 159}#
- #{e\ 1023}#
- #{w\ 1025}#
- #{s\ 1026}#
- #{mod\ 1027}#)
- (#{extend-var-env\ 125}#
- #{labels\ 1031}#
- #{vars\ 1030}#
- #{r\ 1024}#)
- (#{make-binding-wrap\ 147}#
- #{ids\ 1029}#
- #{labels\ 1031}#
- #{w\ 1025}#)
- #{mod\ 1027}#)))
- #{tmp\ 1042}#)
+ (#{chi-body\ 3714}#
+ (cons #{e1\ 4599}#
+ #{e2\ 4600}#)
+ (#{source-wrap\ 3703}#
+ #{e\ 4579}#
+ #{w\ 4581}#
+ #{s\ 4582}#
+ #{mod\ 4583}#)
+ (#{extend-var-env\ 3669}#
+ #{labels\ 4587}#
+ #{vars\ 4586}#
+ #{r\ 4580}#)
+ (#{make-binding-wrap\ 3691}#
+ #{ids\ 4585}#
+ #{labels\ 4587}#
+ #{w\ 4581}#)
+ #{mod\ 4583}#)))
+ #{tmp\ 4598}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1033}#)))
+ #{tmp\ 4589}#)))
($sc-dispatch
- #{tmp\ 1033}#
+ #{tmp\ 4589}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 1033}#
+ #{tmp\ 4589}#
'(any any . each-any))))
- #{c\ 1032}#))))
- ((lambda (#{tmp\ 1046}#)
- ((lambda (#{tmp\ 1047}#)
- (if #{tmp\ 1047}#
- (apply (lambda (#{_\ 1048}#
- #{id\ 1049}#
- #{e1\ 1050}#
- #{e2\ 1051}#)
- (let ((#{ids\ 1052}# #{id\ 1049}#))
- (if (not (#{valid-bound-ids?\ 155}#
- #{ids\ 1052}#))
+ #{c\ 4588}#))))
+ ((lambda (#{tmp\ 4602}#)
+ ((lambda (#{tmp\ 4603}#)
+ (if #{tmp\ 4603}#
+ (apply (lambda (#{_\ 4604}#
+ #{id\ 4605}#
+ #{e1\ 4606}#
+ #{e2\ 4607}#)
+ (let ((#{ids\ 4608}# #{id\ 4605}#))
+ (if (not (#{valid-bound-ids?\ 3699}#
+ #{ids\ 4608}#))
(syntax-violation
'lambda
"invalid parameter list"
- #{e\ 1023}#)
- (let ((#{vars\ 1054}#
- (map #{gen-var\ 176}# #{ids\ 1052}#))
- (#{labels\ 1055}#
- (#{gen-labels\ 136}# #{ids\ 1052}#)))
+ #{e\ 4579}#)
+ (let ((#{vars\ 4610}#
+ (map #{gen-var\ 3720}# #{ids\ 4608}#))
+ (#{labels\ 4611}#
+ (#{gen-labels\ 3680}# #{ids\ 4608}#)))
(call-with-values
(lambda ()
- (#{docstring&body\ 1028}#
- #{ids\ 1052}#
- #{vars\ 1054}#
- #{labels\ 1055}#
- (cons #{e1\ 1050}# #{e2\ 1051}#)))
- (lambda (#{docstring\ 1057}#
- #{body\ 1058}#)
- (#{build-simple-lambda\ 104}#
- #{s\ 1026}#
- (map syntax->datum #{ids\ 1052}#)
+ (#{docstring&body\ 4584}#
+ #{ids\ 4608}#
+ #{vars\ 4610}#
+ #{labels\ 4611}#
+ (cons #{e1\ 4606}# #{e2\ 4607}#)))
+ (lambda (#{docstring\ 4613}#
+ #{body\ 4614}#)
+ (#{build-simple-lambda\ 3648}#
+ #{s\ 4582}#
+ (map syntax->datum #{ids\ 4608}#)
#f
- #{vars\ 1054}#
- #{docstring\ 1057}#
- #{body\ 1058}#)))))))
- #{tmp\ 1047}#)
- ((lambda (#{tmp\ 1059}#)
- (if #{tmp\ 1059}#
- (apply (lambda (#{_\ 1060}#
- #{ids\ 1061}#
- #{e1\ 1062}#
- #{e2\ 1063}#)
- (let ((#{rids\ 1064}#
- (#{lambda-var-list\ 177}#
- #{ids\ 1061}#)))
- (if (not (#{valid-bound-ids?\ 155}#
- #{rids\ 1064}#))
+ #{vars\ 4610}#
+ #{docstring\ 4613}#
+ #{body\ 4614}#)))))))
+ #{tmp\ 4603}#)
+ ((lambda (#{tmp\ 4615}#)
+ (if #{tmp\ 4615}#
+ (apply (lambda (#{_\ 4616}#
+ #{ids\ 4617}#
+ #{e1\ 4618}#
+ #{e2\ 4619}#)
+ (let ((#{rids\ 4620}#
+ (#{lambda-var-list\ 3721}#
+ #{ids\ 4617}#)))
+ (if (not (#{valid-bound-ids?\ 3699}#
+ #{rids\ 4620}#))
(syntax-violation
'lambda
"invalid parameter list"
- #{e\ 1023}#)
- (let ((#{req\ 1065}#
- (reverse (cdr #{rids\ 1064}#))))
- (let ((#{rest\ 1066}#
- (car #{rids\ 1064}#)))
- (let ((#{rrids\ 1067}#
- (reverse #{rids\ 1064}#)))
- (let ((#{vars\ 1068}#
- (map #{gen-var\ 176}#
- #{rrids\ 1067}#)))
- (let ((#{labels\ 1069}#
- (#{gen-labels\ 136}#
- #{rrids\ 1067}#)))
+ #{e\ 4579}#)
+ (let ((#{req\ 4621}#
+ (reverse (cdr #{rids\ 4620}#))))
+ (let ((#{rest\ 4622}#
+ (car #{rids\ 4620}#)))
+ (let ((#{rrids\ 4623}#
+ (reverse #{rids\ 4620}#)))
+ (let ((#{vars\ 4624}#
+ (map #{gen-var\ 3720}#
+ #{rrids\ 4623}#)))
+ (let ((#{labels\ 4625}#
+ (#{gen-labels\ 3680}#
+ #{rrids\ 4623}#)))
(call-with-values
(lambda ()
- (#{docstring&body\ 1028}#
- #{rrids\ 1067}#
- #{vars\ 1068}#
- #{labels\ 1069}#
- (cons #{e1\ 1062}#
- #{e2\ 1063}#)))
- (lambda (#{docstring\ 1071}#
- #{body\ 1072}#)
- (#{build-simple-lambda\
104}#
- #{s\ 1026}#
+ (#{docstring&body\ 4584}#
+ #{rrids\ 4623}#
+ #{vars\ 4624}#
+ #{labels\ 4625}#
+ (cons #{e1\ 4618}#
+ #{e2\ 4619}#)))
+ (lambda (#{docstring\ 4627}#
+ #{body\ 4628}#)
+ (#{build-simple-lambda\
3648}#
+ #{s\ 4582}#
(map syntax->datum
- #{req\ 1065}#)
+ #{req\ 4621}#)
(syntax->datum
- #{rest\ 1066}#)
- #{vars\ 1068}#
- #{docstring\ 1071}#
- #{body\ 1072}#)))))))))))
- #{tmp\ 1059}#)
- ((lambda (#{_\ 1073}#)
+ #{rest\ 4622}#)
+ #{vars\ 4624}#
+ #{docstring\ 4627}#
+ #{body\ 4628}#)))))))))))
+ #{tmp\ 4615}#)
+ ((lambda (#{_\ 4629}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 1023}#))
- #{tmp\ 1046}#)))
+ #{e\ 4579}#))
+ #{tmp\ 4602}#)))
($sc-dispatch
- #{tmp\ 1046}#
+ #{tmp\ 4602}#
'(any any any . each-any)))))
($sc-dispatch
- #{tmp\ 1046}#
+ #{tmp\ 4602}#
'(any each-any any . each-any))))
- #{e\ 1023}#))))
- (#{global-extend\ 128}#
+ #{e\ 4579}#))))
+ (#{global-extend\ 3672}#
'core
'let
- (letrec ((#{chi-let\ 1074}#
- (lambda (#{e\ 1075}#
- #{r\ 1076}#
- #{w\ 1077}#
- #{s\ 1078}#
- #{mod\ 1079}#
- #{constructor\ 1080}#
- #{ids\ 1081}#
- #{vals\ 1082}#
- #{exps\ 1083}#)
- (if (not (#{valid-bound-ids?\ 155}# #{ids\ 1081}#))
+ (letrec ((#{chi-let\ 4630}#
+ (lambda (#{e\ 4631}#
+ #{r\ 4632}#
+ #{w\ 4633}#
+ #{s\ 4634}#
+ #{mod\ 4635}#
+ #{constructor\ 4636}#
+ #{ids\ 4637}#
+ #{vals\ 4638}#
+ #{exps\ 4639}#)
+ (if (not (#{valid-bound-ids?\ 3699}# #{ids\ 4637}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 1075}#)
- (let ((#{labels\ 1084}#
- (#{gen-labels\ 136}# #{ids\ 1081}#))
- (#{new-vars\ 1085}#
- (map #{gen-var\ 176}# #{ids\ 1081}#)))
- (let ((#{nw\ 1086}#
- (#{make-binding-wrap\ 147}#
- #{ids\ 1081}#
- #{labels\ 1084}#
- #{w\ 1077}#))
- (#{nr\ 1087}#
- (#{extend-var-env\ 125}#
- #{labels\ 1084}#
- #{new-vars\ 1085}#
- #{r\ 1076}#)))
- (#{constructor\ 1080}#
- #{s\ 1078}#
- (map syntax->datum #{ids\ 1081}#)
- #{new-vars\ 1085}#
- (map (lambda (#{x\ 1088}#)
- (#{chi\ 166}#
- #{x\ 1088}#
- #{r\ 1076}#
- #{w\ 1077}#
- #{mod\ 1079}#))
- #{vals\ 1082}#)
- (#{chi-body\ 170}#
- #{exps\ 1083}#
- (#{source-wrap\ 159}#
- #{e\ 1075}#
- #{nw\ 1086}#
- #{s\ 1078}#
- #{mod\ 1079}#)
- #{nr\ 1087}#
- #{nw\ 1086}#
- #{mod\ 1079}#))))))))
- (lambda (#{e\ 1089}#
- #{r\ 1090}#
- #{w\ 1091}#
- #{s\ 1092}#
- #{mod\ 1093}#)
- ((lambda (#{tmp\ 1094}#)
- ((lambda (#{tmp\ 1095}#)
- (if (if #{tmp\ 1095}#
- (apply (lambda (#{_\ 1096}#
- #{id\ 1097}#
- #{val\ 1098}#
- #{e1\ 1099}#
- #{e2\ 1100}#)
- (and-map #{id?\ 130}# #{id\ 1097}#))
- #{tmp\ 1095}#)
+ #{e\ 4631}#)
+ (let ((#{labels\ 4640}#
+ (#{gen-labels\ 3680}# #{ids\ 4637}#))
+ (#{new-vars\ 4641}#
+ (map #{gen-var\ 3720}# #{ids\ 4637}#)))
+ (let ((#{nw\ 4642}#
+ (#{make-binding-wrap\ 3691}#
+ #{ids\ 4637}#
+ #{labels\ 4640}#
+ #{w\ 4633}#))
+ (#{nr\ 4643}#
+ (#{extend-var-env\ 3669}#
+ #{labels\ 4640}#
+ #{new-vars\ 4641}#
+ #{r\ 4632}#)))
+ (#{constructor\ 4636}#
+ #{s\ 4634}#
+ (map syntax->datum #{ids\ 4637}#)
+ #{new-vars\ 4641}#
+ (map (lambda (#{x\ 4644}#)
+ (#{chi\ 3710}#
+ #{x\ 4644}#
+ #{r\ 4632}#
+ #{w\ 4633}#
+ #{mod\ 4635}#))
+ #{vals\ 4638}#)
+ (#{chi-body\ 3714}#
+ #{exps\ 4639}#
+ (#{source-wrap\ 3703}#
+ #{e\ 4631}#
+ #{nw\ 4642}#
+ #{s\ 4634}#
+ #{mod\ 4635}#)
+ #{nr\ 4643}#
+ #{nw\ 4642}#
+ #{mod\ 4635}#))))))))
+ (lambda (#{e\ 4645}#
+ #{r\ 4646}#
+ #{w\ 4647}#
+ #{s\ 4648}#
+ #{mod\ 4649}#)
+ ((lambda (#{tmp\ 4650}#)
+ ((lambda (#{tmp\ 4651}#)
+ (if (if #{tmp\ 4651}#
+ (apply (lambda (#{_\ 4652}#
+ #{id\ 4653}#
+ #{val\ 4654}#
+ #{e1\ 4655}#
+ #{e2\ 4656}#)
+ (and-map #{id?\ 3674}# #{id\ 4653}#))
+ #{tmp\ 4651}#)
#f)
- (apply (lambda (#{_\ 1102}#
- #{id\ 1103}#
- #{val\ 1104}#
- #{e1\ 1105}#
- #{e2\ 1106}#)
- (#{chi-let\ 1074}#
- #{e\ 1089}#
- #{r\ 1090}#
- #{w\ 1091}#
- #{s\ 1092}#
- #{mod\ 1093}#
- #{build-let\ 110}#
- #{id\ 1103}#
- #{val\ 1104}#
- (cons #{e1\ 1105}# #{e2\ 1106}#)))
- #{tmp\ 1095}#)
- ((lambda (#{tmp\ 1110}#)
- (if (if #{tmp\ 1110}#
- (apply (lambda (#{_\ 1111}#
- #{f\ 1112}#
- #{id\ 1113}#
- #{val\ 1114}#
- #{e1\ 1115}#
- #{e2\ 1116}#)
- (if (#{id?\ 130}# #{f\ 1112}#)
- (and-map #{id?\ 130}# #{id\ 1113}#)
+ (apply (lambda (#{_\ 4658}#
+ #{id\ 4659}#
+ #{val\ 4660}#
+ #{e1\ 4661}#
+ #{e2\ 4662}#)
+ (#{chi-let\ 4630}#
+ #{e\ 4645}#
+ #{r\ 4646}#
+ #{w\ 4647}#
+ #{s\ 4648}#
+ #{mod\ 4649}#
+ #{build-let\ 3654}#
+ #{id\ 4659}#
+ #{val\ 4660}#
+ (cons #{e1\ 4661}# #{e2\ 4662}#)))
+ #{tmp\ 4651}#)
+ ((lambda (#{tmp\ 4666}#)
+ (if (if #{tmp\ 4666}#
+ (apply (lambda (#{_\ 4667}#
+ #{f\ 4668}#
+ #{id\ 4669}#
+ #{val\ 4670}#
+ #{e1\ 4671}#
+ #{e2\ 4672}#)
+ (if (#{id?\ 3674}# #{f\ 4668}#)
+ (and-map #{id?\ 3674}# #{id\ 4669}#)
#f))
- #{tmp\ 1110}#)
+ #{tmp\ 4666}#)
#f)
- (apply (lambda (#{_\ 1118}#
- #{f\ 1119}#
- #{id\ 1120}#
- #{val\ 1121}#
- #{e1\ 1122}#
- #{e2\ 1123}#)
- (#{chi-let\ 1074}#
- #{e\ 1089}#
- #{r\ 1090}#
- #{w\ 1091}#
- #{s\ 1092}#
- #{mod\ 1093}#
- #{build-named-let\ 111}#
- (cons #{f\ 1119}# #{id\ 1120}#)
- #{val\ 1121}#
- (cons #{e1\ 1122}# #{e2\ 1123}#)))
- #{tmp\ 1110}#)
- ((lambda (#{_\ 1127}#)
+ (apply (lambda (#{_\ 4674}#
+ #{f\ 4675}#
+ #{id\ 4676}#
+ #{val\ 4677}#
+ #{e1\ 4678}#
+ #{e2\ 4679}#)
+ (#{chi-let\ 4630}#
+ #{e\ 4645}#
+ #{r\ 4646}#
+ #{w\ 4647}#
+ #{s\ 4648}#
+ #{mod\ 4649}#
+ #{build-named-let\ 3655}#
+ (cons #{f\ 4675}# #{id\ 4676}#)
+ #{val\ 4677}#
+ (cons #{e1\ 4678}# #{e2\ 4679}#)))
+ #{tmp\ 4666}#)
+ ((lambda (#{_\ 4683}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 159}#
- #{e\ 1089}#
- #{w\ 1091}#
- #{s\ 1092}#
- #{mod\ 1093}#)))
- #{tmp\ 1094}#)))
+ (#{source-wrap\ 3703}#
+ #{e\ 4645}#
+ #{w\ 4647}#
+ #{s\ 4648}#
+ #{mod\ 4649}#)))
+ #{tmp\ 4650}#)))
($sc-dispatch
- #{tmp\ 1094}#
+ #{tmp\ 4650}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 1094}#
+ #{tmp\ 4650}#
'(any #(each (any any)) any . each-any))))
- #{e\ 1089}#))))
- (#{global-extend\ 128}#
+ #{e\ 4645}#))))
+ (#{global-extend\ 3672}#
'core
'letrec
- (lambda (#{e\ 1128}#
- #{r\ 1129}#
- #{w\ 1130}#
- #{s\ 1131}#
- #{mod\ 1132}#)
- ((lambda (#{tmp\ 1133}#)
- ((lambda (#{tmp\ 1134}#)
- (if (if #{tmp\ 1134}#
- (apply (lambda (#{_\ 1135}#
- #{id\ 1136}#
- #{val\ 1137}#
- #{e1\ 1138}#
- #{e2\ 1139}#)
- (and-map #{id?\ 130}# #{id\ 1136}#))
- #{tmp\ 1134}#)
+ (lambda (#{e\ 4684}#
+ #{r\ 4685}#
+ #{w\ 4686}#
+ #{s\ 4687}#
+ #{mod\ 4688}#)
+ ((lambda (#{tmp\ 4689}#)
+ ((lambda (#{tmp\ 4690}#)
+ (if (if #{tmp\ 4690}#
+ (apply (lambda (#{_\ 4691}#
+ #{id\ 4692}#
+ #{val\ 4693}#
+ #{e1\ 4694}#
+ #{e2\ 4695}#)
+ (and-map #{id?\ 3674}# #{id\ 4692}#))
+ #{tmp\ 4690}#)
#f)
- (apply (lambda (#{_\ 1141}#
- #{id\ 1142}#
- #{val\ 1143}#
- #{e1\ 1144}#
- #{e2\ 1145}#)
- (let ((#{ids\ 1146}# #{id\ 1142}#))
- (if (not (#{valid-bound-ids?\ 155}#
- #{ids\ 1146}#))
+ (apply (lambda (#{_\ 4697}#
+ #{id\ 4698}#
+ #{val\ 4699}#
+ #{e1\ 4700}#
+ #{e2\ 4701}#)
+ (let ((#{ids\ 4702}# #{id\ 4698}#))
+ (if (not (#{valid-bound-ids?\ 3699}#
+ #{ids\ 4702}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 1128}#)
- (let ((#{labels\ 1148}#
- (#{gen-labels\ 136}# #{ids\ 1146}#))
- (#{new-vars\ 1149}#
- (map #{gen-var\ 176}# #{ids\ 1146}#)))
- (let ((#{w\ 1150}#
- (#{make-binding-wrap\ 147}#
- #{ids\ 1146}#
- #{labels\ 1148}#
- #{w\ 1130}#))
- (#{r\ 1151}#
- (#{extend-var-env\ 125}#
- #{labels\ 1148}#
- #{new-vars\ 1149}#
- #{r\ 1129}#)))
- (#{build-letrec\ 112}#
- #{s\ 1131}#
- (map syntax->datum #{ids\ 1146}#)
- #{new-vars\ 1149}#
- (map (lambda (#{x\ 1152}#)
- (#{chi\ 166}#
- #{x\ 1152}#
- #{r\ 1151}#
- #{w\ 1150}#
- #{mod\ 1132}#))
- #{val\ 1143}#)
- (#{chi-body\ 170}#
- (cons #{e1\ 1144}# #{e2\ 1145}#)
- (#{source-wrap\ 159}#
- #{e\ 1128}#
- #{w\ 1150}#
- #{s\ 1131}#
- #{mod\ 1132}#)
- #{r\ 1151}#
- #{w\ 1150}#
- #{mod\ 1132}#)))))))
- #{tmp\ 1134}#)
- ((lambda (#{_\ 1155}#)
+ #{e\ 4684}#)
+ (let ((#{labels\ 4704}#
+ (#{gen-labels\ 3680}# #{ids\ 4702}#))
+ (#{new-vars\ 4705}#
+ (map #{gen-var\ 3720}# #{ids\ 4702}#)))
+ (let ((#{w\ 4706}#
+ (#{make-binding-wrap\ 3691}#
+ #{ids\ 4702}#
+ #{labels\ 4704}#
+ #{w\ 4686}#))
+ (#{r\ 4707}#
+ (#{extend-var-env\ 3669}#
+ #{labels\ 4704}#
+ #{new-vars\ 4705}#
+ #{r\ 4685}#)))
+ (#{build-letrec\ 3656}#
+ #{s\ 4687}#
+ (map syntax->datum #{ids\ 4702}#)
+ #{new-vars\ 4705}#
+ (map (lambda (#{x\ 4708}#)
+ (#{chi\ 3710}#
+ #{x\ 4708}#
+ #{r\ 4707}#
+ #{w\ 4706}#
+ #{mod\ 4688}#))
+ #{val\ 4699}#)
+ (#{chi-body\ 3714}#
+ (cons #{e1\ 4700}# #{e2\ 4701}#)
+ (#{source-wrap\ 3703}#
+ #{e\ 4684}#
+ #{w\ 4706}#
+ #{s\ 4687}#
+ #{mod\ 4688}#)
+ #{r\ 4707}#
+ #{w\ 4706}#
+ #{mod\ 4688}#)))))))
+ #{tmp\ 4690}#)
+ ((lambda (#{_\ 4711}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 159}#
- #{e\ 1128}#
- #{w\ 1130}#
- #{s\ 1131}#
- #{mod\ 1132}#)))
- #{tmp\ 1133}#)))
+ (#{source-wrap\ 3703}#
+ #{e\ 4684}#
+ #{w\ 4686}#
+ #{s\ 4687}#
+ #{mod\ 4688}#)))
+ #{tmp\ 4689}#)))
($sc-dispatch
- #{tmp\ 1133}#
+ #{tmp\ 4689}#
'(any #(each (any any)) any . each-any))))
- #{e\ 1128}#)))
- (#{global-extend\ 128}#
+ #{e\ 4684}#)))
+ (#{global-extend\ 3672}#
'core
'set!
- (lambda (#{e\ 1156}#
- #{r\ 1157}#
- #{w\ 1158}#
- #{s\ 1159}#
- #{mod\ 1160}#)
- ((lambda (#{tmp\ 1161}#)
- ((lambda (#{tmp\ 1162}#)
- (if (if #{tmp\ 1162}#
- (apply (lambda (#{_\ 1163}# #{id\ 1164}# #{val\ 1165}#)
- (#{id?\ 130}# #{id\ 1164}#))
- #{tmp\ 1162}#)
+ (lambda (#{e\ 4712}#
+ #{r\ 4713}#
+ #{w\ 4714}#
+ #{s\ 4715}#
+ #{mod\ 4716}#)
+ ((lambda (#{tmp\ 4717}#)
+ ((lambda (#{tmp\ 4718}#)
+ (if (if #{tmp\ 4718}#
+ (apply (lambda (#{_\ 4719}# #{id\ 4720}# #{val\ 4721}#)
+ (#{id?\ 3674}# #{id\ 4720}#))
+ #{tmp\ 4718}#)
#f)
- (apply (lambda (#{_\ 1166}# #{id\ 1167}# #{val\ 1168}#)
- (let ((#{val\ 1169}#
- (#{chi\ 166}#
- #{val\ 1168}#
- #{r\ 1157}#
- #{w\ 1158}#
- #{mod\ 1160}#))
- (#{n\ 1170}#
- (#{id-var-name\ 152}#
- #{id\ 1167}#
- #{w\ 1158}#)))
- (let ((#{b\ 1171}#
- (#{lookup\ 127}#
- #{n\ 1170}#
- #{r\ 1157}#
- #{mod\ 1160}#)))
- (let ((#{atom-key\ 1172}#
- (#{binding-type\ 122}# #{b\ 1171}#)))
- (if (memv #{atom-key\ 1172}#
+ (apply (lambda (#{_\ 4722}# #{id\ 4723}# #{val\ 4724}#)
+ (let ((#{val\ 4725}#
+ (#{chi\ 3710}#
+ #{val\ 4724}#
+ #{r\ 4713}#
+ #{w\ 4714}#
+ #{mod\ 4716}#))
+ (#{n\ 4726}#
+ (#{id-var-name\ 3696}#
+ #{id\ 4723}#
+ #{w\ 4714}#)))
+ (let ((#{b\ 4727}#
+ (#{lookup\ 3671}#
+ #{n\ 4726}#
+ #{r\ 4713}#
+ #{mod\ 4716}#)))
+ (let ((#{atom-key\ 4728}#
+ (#{binding-type\ 3666}# #{b\ 4727}#)))
+ (if (memv #{atom-key\ 4728}#
'(lexical))
- (#{build-lexical-assignment\ 98}#
- #{s\ 1159}#
- (syntax->datum #{id\ 1167}#)
- (#{binding-value\ 123}# #{b\ 1171}#)
- #{val\ 1169}#)
- (if (memv #{atom-key\ 1172}#
+ (#{build-lexical-assignment\ 3642}#
+ #{s\ 4715}#
+ (syntax->datum #{id\ 4723}#)
+ (#{binding-value\ 3667}# #{b\ 4727}#)
+ #{val\ 4725}#)
+ (if (memv #{atom-key\ 4728}#
'(global))
- (#{build-global-assignment\ 101}#
- #{s\ 1159}#
- #{n\ 1170}#
- #{val\ 1169}#
- #{mod\ 1160}#)
- (if (memv #{atom-key\ 1172}#
+ (#{build-global-assignment\ 3645}#
+ #{s\ 4715}#
+ #{n\ 4726}#
+ #{val\ 4725}#
+ #{mod\ 4716}#)
+ (if (memv #{atom-key\ 4728}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 158}#
- #{id\ 1167}#
- #{w\ 1158}#
- #{mod\ 1160}#))
+ (#{wrap\ 3702}#
+ #{id\ 4723}#
+ #{w\ 4714}#
+ #{mod\ 4716}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 159}#
- #{e\ 1156}#
- #{w\ 1158}#
- #{s\ 1159}#
- #{mod\ 1160}#)))))))))
- #{tmp\ 1162}#)
- ((lambda (#{tmp\ 1173}#)
- (if #{tmp\ 1173}#
- (apply (lambda (#{_\ 1174}#
- #{head\ 1175}#
- #{tail\ 1176}#
- #{val\ 1177}#)
+ (#{source-wrap\ 3703}#
+ #{e\ 4712}#
+ #{w\ 4714}#
+ #{s\ 4715}#
+ #{mod\ 4716}#)))))))))
+ #{tmp\ 4718}#)
+ ((lambda (#{tmp\ 4729}#)
+ (if #{tmp\ 4729}#
+ (apply (lambda (#{_\ 4730}#
+ #{head\ 4731}#
+ #{tail\ 4732}#
+ #{val\ 4733}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 164}#
- #{head\ 1175}#
- #{r\ 1157}#
+ (#{syntax-type\ 3708}#
+ #{head\ 4731}#
+ #{r\ 4713}#
'(())
#f
#f
- #{mod\ 1160}#
+ #{mod\ 4716}#
#t))
- (lambda (#{type\ 1178}#
- #{value\ 1179}#
- #{ee\ 1180}#
- #{ww\ 1181}#
- #{ss\ 1182}#
- #{modmod\ 1183}#)
- (if (memv #{type\ 1178}#
+ (lambda (#{type\ 4734}#
+ #{value\ 4735}#
+ #{ee\ 4736}#
+ #{ww\ 4737}#
+ #{ss\ 4738}#
+ #{modmod\ 4739}#)
+ (if (memv #{type\ 4734}#
'(module-ref))
- (let ((#{val\ 1184}#
- (#{chi\ 166}#
- #{val\ 1177}#
- #{r\ 1157}#
- #{w\ 1158}#
- #{mod\ 1160}#)))
+ (let ((#{val\ 4740}#
+ (#{chi\ 3710}#
+ #{val\ 4733}#
+ #{r\ 4713}#
+ #{w\ 4714}#
+ #{mod\ 4716}#)))
(call-with-values
(lambda ()
- (#{value\ 1179}#
- (cons #{head\ 1175}#
- #{tail\ 1176}#)))
- (lambda (#{id\ 1186}# #{mod\ 1187}#)
- (#{build-global-assignment\ 101}#
- #{s\ 1159}#
- #{id\ 1186}#
- #{val\ 1184}#
- #{mod\ 1187}#))))
- (#{build-application\ 95}#
- #{s\ 1159}#
- (#{chi\ 166}#
+ (#{value\ 4735}#
+ (cons #{head\ 4731}#
+ #{tail\ 4732}#)))
+ (lambda (#{id\ 4742}# #{mod\ 4743}#)
+ (#{build-global-assignment\ 3645}#
+ #{s\ 4715}#
+ #{id\ 4742}#
+ #{val\ 4740}#
+ #{mod\ 4743}#))))
+ (#{build-application\ 3639}#
+ #{s\ 4715}#
+ (#{chi\ 3710}#
(list '#(syntax-object
setter
((top)
@@ -7290,53 +7351,53 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{head\ 1175}#)
- #{r\ 1157}#
- #{w\ 1158}#
- #{mod\ 1160}#)
- (map (lambda (#{e\ 1188}#)
- (#{chi\ 166}#
- #{e\ 1188}#
- #{r\ 1157}#
- #{w\ 1158}#
- #{mod\ 1160}#))
+ #{head\ 4731}#)
+ #{r\ 4713}#
+ #{w\ 4714}#
+ #{mod\ 4716}#)
+ (map (lambda (#{e\ 4744}#)
+ (#{chi\ 3710}#
+ #{e\ 4744}#
+ #{r\ 4713}#
+ #{w\ 4714}#
+ #{mod\ 4716}#))
(append
- #{tail\ 1176}#
- (list #{val\ 1177}#))))))))
- #{tmp\ 1173}#)
- ((lambda (#{_\ 1190}#)
+ #{tail\ 4732}#
+ (list #{val\ 4733}#))))))))
+ #{tmp\ 4729}#)
+ ((lambda (#{_\ 4746}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 159}#
- #{e\ 1156}#
- #{w\ 1158}#
- #{s\ 1159}#
- #{mod\ 1160}#)))
- #{tmp\ 1161}#)))
+ (#{source-wrap\ 3703}#
+ #{e\ 4712}#
+ #{w\ 4714}#
+ #{s\ 4715}#
+ #{mod\ 4716}#)))
+ #{tmp\ 4717}#)))
($sc-dispatch
- #{tmp\ 1161}#
+ #{tmp\ 4717}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 1161}#
+ #{tmp\ 4717}#
'(any any any))))
- #{e\ 1156}#)))
- (#{global-extend\ 128}#
+ #{e\ 4712}#)))
+ (#{global-extend\ 3672}#
'module-ref
'@
- (lambda (#{e\ 1191}#)
- ((lambda (#{tmp\ 1192}#)
- ((lambda (#{tmp\ 1193}#)
- (if (if #{tmp\ 1193}#
- (apply (lambda (#{_\ 1194}# #{mod\ 1195}# #{id\ 1196}#)
- (if (and-map #{id?\ 130}# #{mod\ 1195}#)
- (#{id?\ 130}# #{id\ 1196}#)
+ (lambda (#{e\ 4747}#)
+ ((lambda (#{tmp\ 4748}#)
+ ((lambda (#{tmp\ 4749}#)
+ (if (if #{tmp\ 4749}#
+ (apply (lambda (#{_\ 4750}# #{mod\ 4751}# #{id\ 4752}#)
+ (if (and-map #{id?\ 3674}# #{mod\ 4751}#)
+ (#{id?\ 3674}# #{id\ 4752}#)
#f))
- #{tmp\ 1193}#)
+ #{tmp\ 4749}#)
#f)
- (apply (lambda (#{_\ 1198}# #{mod\ 1199}# #{id\ 1200}#)
+ (apply (lambda (#{_\ 4754}# #{mod\ 4755}# #{id\ 4756}#)
(values
- (syntax->datum #{id\ 1200}#)
+ (syntax->datum #{id\ 4756}#)
(syntax->datum
(cons '#(syntax-object
public
@@ -7692,32 +7753,32 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{mod\ 1199}#))))
- #{tmp\ 1193}#)
+ #{mod\ 4755}#))))
+ #{tmp\ 4749}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1192}#)))
+ #{tmp\ 4748}#)))
($sc-dispatch
- #{tmp\ 1192}#
+ #{tmp\ 4748}#
'(any each-any any))))
- #{e\ 1191}#)))
- (#{global-extend\ 128}#
+ #{e\ 4747}#)))
+ (#{global-extend\ 3672}#
'module-ref
'@@
- (lambda (#{e\ 1202}#)
- ((lambda (#{tmp\ 1203}#)
- ((lambda (#{tmp\ 1204}#)
- (if (if #{tmp\ 1204}#
- (apply (lambda (#{_\ 1205}# #{mod\ 1206}# #{id\ 1207}#)
- (if (and-map #{id?\ 130}# #{mod\ 1206}#)
- (#{id?\ 130}# #{id\ 1207}#)
+ (lambda (#{e\ 4758}#)
+ ((lambda (#{tmp\ 4759}#)
+ ((lambda (#{tmp\ 4760}#)
+ (if (if #{tmp\ 4760}#
+ (apply (lambda (#{_\ 4761}# #{mod\ 4762}# #{id\ 4763}#)
+ (if (and-map #{id?\ 3674}# #{mod\ 4762}#)
+ (#{id?\ 3674}# #{id\ 4763}#)
#f))
- #{tmp\ 1204}#)
+ #{tmp\ 4760}#)
#f)
- (apply (lambda (#{_\ 1209}# #{mod\ 1210}# #{id\ 1211}#)
+ (apply (lambda (#{_\ 4765}# #{mod\ 4766}# #{id\ 4767}#)
(values
- (syntax->datum #{id\ 1211}#)
+ (syntax->datum #{id\ 4767}#)
(syntax->datum
(cons '#(syntax-object
private
@@ -8073,123 +8134,123 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{mod\ 1210}#))))
- #{tmp\ 1204}#)
+ #{mod\ 4766}#))))
+ #{tmp\ 4760}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1203}#)))
+ #{tmp\ 4759}#)))
($sc-dispatch
- #{tmp\ 1203}#
+ #{tmp\ 4759}#
'(any each-any any))))
- #{e\ 1202}#)))
- (#{global-extend\ 128}#
+ #{e\ 4758}#)))
+ (#{global-extend\ 3672}#
'core
'if
- (lambda (#{e\ 1213}#
- #{r\ 1214}#
- #{w\ 1215}#
- #{s\ 1216}#
- #{mod\ 1217}#)
- ((lambda (#{tmp\ 1218}#)
- ((lambda (#{tmp\ 1219}#)
- (if #{tmp\ 1219}#
- (apply (lambda (#{_\ 1220}# #{test\ 1221}# #{then\ 1222}#)
- (#{build-conditional\ 96}#
- #{s\ 1216}#
- (#{chi\ 166}#
- #{test\ 1221}#
- #{r\ 1214}#
- #{w\ 1215}#
- #{mod\ 1217}#)
- (#{chi\ 166}#
- #{then\ 1222}#
- #{r\ 1214}#
- #{w\ 1215}#
- #{mod\ 1217}#)
- (#{build-void\ 94}# #f)))
- #{tmp\ 1219}#)
- ((lambda (#{tmp\ 1223}#)
- (if #{tmp\ 1223}#
- (apply (lambda (#{_\ 1224}#
- #{test\ 1225}#
- #{then\ 1226}#
- #{else\ 1227}#)
- (#{build-conditional\ 96}#
- #{s\ 1216}#
- (#{chi\ 166}#
- #{test\ 1225}#
- #{r\ 1214}#
- #{w\ 1215}#
- #{mod\ 1217}#)
- (#{chi\ 166}#
- #{then\ 1226}#
- #{r\ 1214}#
- #{w\ 1215}#
- #{mod\ 1217}#)
- (#{chi\ 166}#
- #{else\ 1227}#
- #{r\ 1214}#
- #{w\ 1215}#
- #{mod\ 1217}#)))
- #{tmp\ 1223}#)
+ (lambda (#{e\ 4769}#
+ #{r\ 4770}#
+ #{w\ 4771}#
+ #{s\ 4772}#
+ #{mod\ 4773}#)
+ ((lambda (#{tmp\ 4774}#)
+ ((lambda (#{tmp\ 4775}#)
+ (if #{tmp\ 4775}#
+ (apply (lambda (#{_\ 4776}# #{test\ 4777}# #{then\ 4778}#)
+ (#{build-conditional\ 3640}#
+ #{s\ 4772}#
+ (#{chi\ 3710}#
+ #{test\ 4777}#
+ #{r\ 4770}#
+ #{w\ 4771}#
+ #{mod\ 4773}#)
+ (#{chi\ 3710}#
+ #{then\ 4778}#
+ #{r\ 4770}#
+ #{w\ 4771}#
+ #{mod\ 4773}#)
+ (#{build-void\ 3638}# #f)))
+ #{tmp\ 4775}#)
+ ((lambda (#{tmp\ 4779}#)
+ (if #{tmp\ 4779}#
+ (apply (lambda (#{_\ 4780}#
+ #{test\ 4781}#
+ #{then\ 4782}#
+ #{else\ 4783}#)
+ (#{build-conditional\ 3640}#
+ #{s\ 4772}#
+ (#{chi\ 3710}#
+ #{test\ 4781}#
+ #{r\ 4770}#
+ #{w\ 4771}#
+ #{mod\ 4773}#)
+ (#{chi\ 3710}#
+ #{then\ 4782}#
+ #{r\ 4770}#
+ #{w\ 4771}#
+ #{mod\ 4773}#)
+ (#{chi\ 3710}#
+ #{else\ 4783}#
+ #{r\ 4770}#
+ #{w\ 4771}#
+ #{mod\ 4773}#)))
+ #{tmp\ 4779}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1218}#)))
+ #{tmp\ 4774}#)))
($sc-dispatch
- #{tmp\ 1218}#
+ #{tmp\ 4774}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 1218}#
+ #{tmp\ 4774}#
'(any any any))))
- #{e\ 1213}#)))
- (#{global-extend\ 128}#
+ #{e\ 4769}#)))
+ (#{global-extend\ 3672}#
'begin
'begin
'())
- (#{global-extend\ 128}#
+ (#{global-extend\ 3672}#
'define
'define
'())
- (#{global-extend\ 128}#
+ (#{global-extend\ 3672}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 128}#
+ (#{global-extend\ 3672}#
'eval-when
'eval-when
'())
- (#{global-extend\ 128}#
+ (#{global-extend\ 3672}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 1231}#
- (lambda (#{x\ 1232}#
- #{keys\ 1233}#
- #{clauses\ 1234}#
- #{r\ 1235}#
- #{mod\ 1236}#)
- (if (null? #{clauses\ 1234}#)
- (#{build-application\ 95}#
+ (letrec ((#{gen-syntax-case\ 4787}#
+ (lambda (#{x\ 4788}#
+ #{keys\ 4789}#
+ #{clauses\ 4790}#
+ #{r\ 4791}#
+ #{mod\ 4792}#)
+ (if (null? #{clauses\ 4790}#)
+ (#{build-application\ 3639}#
#f
- (#{build-primref\ 107}#
+ (#{build-primref\ 3651}#
#f
'syntax-violation)
- (list (#{build-data\ 108}# #f #f)
- (#{build-data\ 108}#
+ (list (#{build-data\ 3652}# #f #f)
+ (#{build-data\ 3652}#
#f
"source expression failed to match any
pattern")
- #{x\ 1232}#))
- ((lambda (#{tmp\ 1237}#)
- ((lambda (#{tmp\ 1238}#)
- (if #{tmp\ 1238}#
- (apply (lambda (#{pat\ 1239}# #{exp\ 1240}#)
- (if (if (#{id?\ 130}# #{pat\ 1239}#)
+ #{x\ 4788}#))
+ ((lambda (#{tmp\ 4793}#)
+ ((lambda (#{tmp\ 4794}#)
+ (if #{tmp\ 4794}#
+ (apply (lambda (#{pat\ 4795}# #{exp\ 4796}#)
+ (if (if (#{id?\ 3674}# #{pat\ 4795}#)
(and-map
- (lambda (#{x\ 1241}#)
- (not (#{free-id=?\ 153}#
- #{pat\ 1239}#
- #{x\ 1241}#)))
+ (lambda (#{x\ 4797}#)
+ (not (#{free-id=?\ 3697}#
+ #{pat\ 4795}#
+ #{x\ 4797}#)))
(cons '#(syntax-object
...
((top)
@@ -8570,734 +8631,735 @@
((top) (top))
("i" "i")))
(hygiene guile))
- #{keys\ 1233}#))
+ #{keys\ 4789}#))
#f)
- (let ((#{labels\ 1242}#
- (list (#{gen-label\ 135}#)))
- (#{var\ 1243}#
- (#{gen-var\ 176}#
- #{pat\ 1239}#)))
- (#{build-application\ 95}#
+ (let ((#{labels\ 4798}#
+ (list (#{gen-label\ 3679}#)))
+ (#{var\ 4799}#
+ (#{gen-var\ 3720}#
+ #{pat\ 4795}#)))
+ (#{build-application\ 3639}#
#f
- (#{build-simple-lambda\ 104}#
+ (#{build-simple-lambda\ 3648}#
#f
(list (syntax->datum
- #{pat\ 1239}#))
+ #{pat\ 4795}#))
#f
- (list #{var\ 1243}#)
+ (list #{var\ 4799}#)
#f
- (#{chi\ 166}#
- #{exp\ 1240}#
- (#{extend-env\ 124}#
- #{labels\ 1242}#
+ (#{chi\ 3710}#
+ #{exp\ 4796}#
+ (#{extend-env\ 3668}#
+ #{labels\ 4798}#
(list (cons 'syntax
- (cons #{var\
1243}#
+ (cons #{var\
4799}#
0)))
- #{r\ 1235}#)
- (#{make-binding-wrap\ 147}#
- (list #{pat\ 1239}#)
- #{labels\ 1242}#
+ #{r\ 4791}#)
+ (#{make-binding-wrap\ 3691}#
+ (list #{pat\ 4795}#)
+ #{labels\ 4798}#
'(()))
- #{mod\ 1236}#))
- (list #{x\ 1232}#)))
- (#{gen-clause\ 1230}#
- #{x\ 1232}#
- #{keys\ 1233}#
- (cdr #{clauses\ 1234}#)
- #{r\ 1235}#
- #{pat\ 1239}#
+ #{mod\ 4792}#))
+ (list #{x\ 4788}#)))
+ (#{gen-clause\ 4786}#
+ #{x\ 4788}#
+ #{keys\ 4789}#
+ (cdr #{clauses\ 4790}#)
+ #{r\ 4791}#
+ #{pat\ 4795}#
#t
- #{exp\ 1240}#
- #{mod\ 1236}#)))
- #{tmp\ 1238}#)
- ((lambda (#{tmp\ 1244}#)
- (if #{tmp\ 1244}#
- (apply (lambda (#{pat\ 1245}#
- #{fender\ 1246}#
- #{exp\ 1247}#)
- (#{gen-clause\ 1230}#
- #{x\ 1232}#
- #{keys\ 1233}#
- (cdr #{clauses\ 1234}#)
- #{r\ 1235}#
- #{pat\ 1245}#
- #{fender\ 1246}#
- #{exp\ 1247}#
- #{mod\ 1236}#))
- #{tmp\ 1244}#)
- ((lambda (#{_\ 1248}#)
+ #{exp\ 4796}#
+ #{mod\ 4792}#)))
+ #{tmp\ 4794}#)
+ ((lambda (#{tmp\ 4800}#)
+ (if #{tmp\ 4800}#
+ (apply (lambda (#{pat\ 4801}#
+ #{fender\ 4802}#
+ #{exp\ 4803}#)
+ (#{gen-clause\ 4786}#
+ #{x\ 4788}#
+ #{keys\ 4789}#
+ (cdr #{clauses\ 4790}#)
+ #{r\ 4791}#
+ #{pat\ 4801}#
+ #{fender\ 4802}#
+ #{exp\ 4803}#
+ #{mod\ 4792}#))
+ #{tmp\ 4800}#)
+ ((lambda (#{_\ 4804}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 1234}#)))
- #{tmp\ 1237}#)))
+ (car #{clauses\ 4790}#)))
+ #{tmp\ 4793}#)))
($sc-dispatch
- #{tmp\ 1237}#
+ #{tmp\ 4793}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 1237}# (quote (any any)))))
- (car #{clauses\ 1234}#)))))
- (#{gen-clause\ 1230}#
- (lambda (#{x\ 1249}#
- #{keys\ 1250}#
- #{clauses\ 1251}#
- #{r\ 1252}#
- #{pat\ 1253}#
- #{fender\ 1254}#
- #{exp\ 1255}#
- #{mod\ 1256}#)
+ ($sc-dispatch #{tmp\ 4793}# (quote (any any)))))
+ (car #{clauses\ 4790}#)))))
+ (#{gen-clause\ 4786}#
+ (lambda (#{x\ 4805}#
+ #{keys\ 4806}#
+ #{clauses\ 4807}#
+ #{r\ 4808}#
+ #{pat\ 4809}#
+ #{fender\ 4810}#
+ #{exp\ 4811}#
+ #{mod\ 4812}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 1228}#
- #{pat\ 1253}#
- #{keys\ 1250}#))
- (lambda (#{p\ 1257}# #{pvars\ 1258}#)
- (if (not (#{distinct-bound-ids?\ 156}#
- (map car #{pvars\ 1258}#)))
+ (#{convert-pattern\ 4784}#
+ #{pat\ 4809}#
+ #{keys\ 4806}#))
+ (lambda (#{p\ 4813}# #{pvars\ 4814}#)
+ (if (not (#{distinct-bound-ids?\ 3700}#
+ (map car #{pvars\ 4814}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 1253}#)
+ #{pat\ 4809}#)
(if (not (and-map
- (lambda (#{x\ 1259}#)
- (not (#{ellipsis?\ 174}#
- (car #{x\ 1259}#))))
- #{pvars\ 1258}#))
+ (lambda (#{x\ 4815}#)
+ (not (#{ellipsis?\ 3718}#
+ (car #{x\ 4815}#))))
+ #{pvars\ 4814}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 1253}#)
- (let ((#{y\ 1260}#
- (#{gen-var\ 176}# (quote tmp))))
- (#{build-application\ 95}#
+ #{pat\ 4809}#)
+ (let ((#{y\ 4816}#
+ (#{gen-var\ 3720}# (quote tmp))))
+ (#{build-application\ 3639}#
#f
- (#{build-simple-lambda\ 104}#
+ (#{build-simple-lambda\ 3648}#
#f
(list (quote tmp))
#f
- (list #{y\ 1260}#)
+ (list #{y\ 4816}#)
#f
- (let ((#{y\ 1261}#
- (#{build-lexical-reference\ 97}#
+ (let ((#{y\ 4817}#
+ (#{build-lexical-reference\ 3641}#
'value
#f
'tmp
- #{y\ 1260}#)))
- (#{build-conditional\ 96}#
+ #{y\ 4816}#)))
+ (#{build-conditional\ 3640}#
#f
- ((lambda (#{tmp\ 1262}#)
- ((lambda (#{tmp\ 1263}#)
- (if #{tmp\ 1263}#
- (apply (lambda () #{y\ 1261}#)
- #{tmp\ 1263}#)
- ((lambda (#{_\ 1264}#)
- (#{build-conditional\ 96}#
+ ((lambda (#{tmp\ 4818}#)
+ ((lambda (#{tmp\ 4819}#)
+ (if #{tmp\ 4819}#
+ (apply (lambda () #{y\ 4817}#)
+ #{tmp\ 4819}#)
+ ((lambda (#{_\ 4820}#)
+ (#{build-conditional\ 3640}#
#f
- #{y\ 1261}#
- (#{build-dispatch-call\
1229}#
- #{pvars\ 1258}#
- #{fender\ 1254}#
- #{y\ 1261}#
- #{r\ 1252}#
- #{mod\ 1256}#)
- (#{build-data\ 108}#
+ #{y\ 4817}#
+ (#{build-dispatch-call\
4785}#
+ #{pvars\ 4814}#
+ #{fender\ 4810}#
+ #{y\ 4817}#
+ #{r\ 4808}#
+ #{mod\ 4812}#)
+ (#{build-data\ 3652}#
#f
#f)))
- #{tmp\ 1262}#)))
+ #{tmp\ 4818}#)))
($sc-dispatch
- #{tmp\ 1262}#
+ #{tmp\ 4818}#
'#(atom #t))))
- #{fender\ 1254}#)
- (#{build-dispatch-call\ 1229}#
- #{pvars\ 1258}#
- #{exp\ 1255}#
- #{y\ 1261}#
- #{r\ 1252}#
- #{mod\ 1256}#)
- (#{gen-syntax-case\ 1231}#
- #{x\ 1249}#
- #{keys\ 1250}#
- #{clauses\ 1251}#
- #{r\ 1252}#
- #{mod\ 1256}#))))
- (list (if (eq? #{p\ 1257}# (quote any))
- (#{build-application\ 95}#
+ #{fender\ 4810}#)
+ (#{build-dispatch-call\ 4785}#
+ #{pvars\ 4814}#
+ #{exp\ 4811}#
+ #{y\ 4817}#
+ #{r\ 4808}#
+ #{mod\ 4812}#)
+ (#{gen-syntax-case\ 4787}#
+ #{x\ 4805}#
+ #{keys\ 4806}#
+ #{clauses\ 4807}#
+ #{r\ 4808}#
+ #{mod\ 4812}#))))
+ (list (if (eq? #{p\ 4813}# (quote any))
+ (#{build-application\ 3639}#
#f
- (#{build-primref\ 107}#
+ (#{build-primref\ 3651}#
#f
'list)
- (list #{x\ 1249}#))
- (#{build-application\ 95}#
+ (list #{x\ 4805}#))
+ (#{build-application\ 3639}#
#f
- (#{build-primref\ 107}#
+ (#{build-primref\ 3651}#
#f
'$sc-dispatch)
- (list #{x\ 1249}#
- (#{build-data\ 108}#
+ (list #{x\ 4805}#
+ (#{build-data\ 3652}#
#f
- #{p\ 1257}#)))))))))))))
- (#{build-dispatch-call\ 1229}#
- (lambda (#{pvars\ 1265}#
- #{exp\ 1266}#
- #{y\ 1267}#
- #{r\ 1268}#
- #{mod\ 1269}#)
- (let ((#{ids\ 1270}# (map car #{pvars\ 1265}#))
- (#{levels\ 1271}# (map cdr #{pvars\ 1265}#)))
- (let ((#{labels\ 1272}#
- (#{gen-labels\ 136}# #{ids\ 1270}#))
- (#{new-vars\ 1273}#
- (map #{gen-var\ 176}# #{ids\ 1270}#)))
- (#{build-application\ 95}#
+ #{p\ 4813}#)))))))))))))
+ (#{build-dispatch-call\ 4785}#
+ (lambda (#{pvars\ 4821}#
+ #{exp\ 4822}#
+ #{y\ 4823}#
+ #{r\ 4824}#
+ #{mod\ 4825}#)
+ (let ((#{ids\ 4826}# (map car #{pvars\ 4821}#))
+ (#{levels\ 4827}# (map cdr #{pvars\ 4821}#)))
+ (let ((#{labels\ 4828}#
+ (#{gen-labels\ 3680}# #{ids\ 4826}#))
+ (#{new-vars\ 4829}#
+ (map #{gen-var\ 3720}# #{ids\ 4826}#)))
+ (#{build-application\ 3639}#
#f
- (#{build-primref\ 107}# #f (quote apply))
- (list (#{build-simple-lambda\ 104}#
+ (#{build-primref\ 3651}# #f (quote apply))
+ (list (#{build-simple-lambda\ 3648}#
#f
- (map syntax->datum #{ids\ 1270}#)
+ (map syntax->datum #{ids\ 4826}#)
#f
- #{new-vars\ 1273}#
+ #{new-vars\ 4829}#
#f
- (#{chi\ 166}#
- #{exp\ 1266}#
- (#{extend-env\ 124}#
- #{labels\ 1272}#
- (map (lambda (#{var\ 1274}#
- #{level\ 1275}#)
+ (#{chi\ 3710}#
+ #{exp\ 4822}#
+ (#{extend-env\ 3668}#
+ #{labels\ 4828}#
+ (map (lambda (#{var\ 4830}#
+ #{level\ 4831}#)
(cons 'syntax
- (cons #{var\ 1274}#
- #{level\ 1275}#)))
- #{new-vars\ 1273}#
- (map cdr #{pvars\ 1265}#))
- #{r\ 1268}#)
- (#{make-binding-wrap\ 147}#
- #{ids\ 1270}#
- #{labels\ 1272}#
+ (cons #{var\ 4830}#
+ #{level\ 4831}#)))
+ #{new-vars\ 4829}#
+ (map cdr #{pvars\ 4821}#))
+ #{r\ 4824}#)
+ (#{make-binding-wrap\ 3691}#
+ #{ids\ 4826}#
+ #{labels\ 4828}#
'(()))
- #{mod\ 1269}#))
- #{y\ 1267}#))))))
- (#{convert-pattern\ 1228}#
- (lambda (#{pattern\ 1276}# #{keys\ 1277}#)
- (letrec ((#{cvt\ 1278}#
- (lambda (#{p\ 1279}# #{n\ 1280}# #{ids\ 1281}#)
- (if (#{id?\ 130}# #{p\ 1279}#)
- (if (#{bound-id-member?\ 157}#
- #{p\ 1279}#
- #{keys\ 1277}#)
+ #{mod\ 4825}#))
+ #{y\ 4823}#))))))
+ (#{convert-pattern\ 4784}#
+ (lambda (#{pattern\ 4832}# #{keys\ 4833}#)
+ (letrec ((#{cvt\ 4834}#
+ (lambda (#{p\ 4835}# #{n\ 4836}# #{ids\ 4837}#)
+ (if (#{id?\ 3674}# #{p\ 4835}#)
+ (if (#{bound-id-member?\ 3701}#
+ #{p\ 4835}#
+ #{keys\ 4833}#)
(values
- (vector (quote free-id) #{p\ 1279}#)
- #{ids\ 1281}#)
+ (vector (quote free-id) #{p\ 4835}#)
+ #{ids\ 4837}#)
(values
'any
- (cons (cons #{p\ 1279}# #{n\ 1280}#)
- #{ids\ 1281}#)))
- ((lambda (#{tmp\ 1282}#)
- ((lambda (#{tmp\ 1283}#)
- (if (if #{tmp\ 1283}#
- (apply (lambda (#{x\ 1284}#
- #{dots\ 1285}#)
- (#{ellipsis?\ 174}#
- #{dots\ 1285}#))
- #{tmp\ 1283}#)
+ (cons (cons #{p\ 4835}# #{n\ 4836}#)
+ #{ids\ 4837}#)))
+ ((lambda (#{tmp\ 4838}#)
+ ((lambda (#{tmp\ 4839}#)
+ (if (if #{tmp\ 4839}#
+ (apply (lambda (#{x\ 4840}#
+ #{dots\ 4841}#)
+ (#{ellipsis?\ 3718}#
+ #{dots\ 4841}#))
+ #{tmp\ 4839}#)
#f)
- (apply (lambda (#{x\ 1286}#
- #{dots\ 1287}#)
+ (apply (lambda (#{x\ 4842}#
+ #{dots\ 4843}#)
(call-with-values
(lambda ()
- (#{cvt\ 1278}#
- #{x\ 1286}#
- (#{fx+\ 85}#
- #{n\ 1280}#
+ (#{cvt\ 4834}#
+ #{x\ 4842}#
+ (#{fx+\ 3629}#
+ #{n\ 4836}#
1)
- #{ids\ 1281}#))
- (lambda (#{p\ 1288}#
- #{ids\ 1289}#)
+ #{ids\ 4837}#))
+ (lambda (#{p\ 4844}#
+ #{ids\ 4845}#)
(values
- (if (eq? #{p\ 1288}#
+ (if (eq? #{p\ 4844}#
'any)
'each-any
(vector
'each
- #{p\ 1288}#))
- #{ids\ 1289}#))))
- #{tmp\ 1283}#)
- ((lambda (#{tmp\ 1290}#)
- (if #{tmp\ 1290}#
- (apply (lambda (#{x\ 1291}#
- #{y\ 1292}#)
+ #{p\ 4844}#))
+ #{ids\ 4845}#))))
+ #{tmp\ 4839}#)
+ ((lambda (#{tmp\ 4846}#)
+ (if #{tmp\ 4846}#
+ (apply (lambda (#{x\ 4847}#
+ #{y\ 4848}#)
(call-with-values
(lambda ()
- (#{cvt\ 1278}#
- #{y\ 1292}#
- #{n\ 1280}#
- #{ids\ 1281}#))
- (lambda (#{y\
1293}#
- #{ids\
1294}#)
+ (#{cvt\ 4834}#
+ #{y\ 4848}#
+ #{n\ 4836}#
+ #{ids\ 4837}#))
+ (lambda (#{y\
4849}#
+ #{ids\
4850}#)
(call-with-values
(lambda ()
- (#{cvt\
1278}#
- #{x\ 1291}#
- #{n\ 1280}#
- #{ids\
1294}#))
- (lambda (#{x\
1295}#
-
#{ids\ 1296}#)
+ (#{cvt\
4834}#
+ #{x\ 4847}#
+ #{n\ 4836}#
+ #{ids\
4850}#))
+ (lambda (#{x\
4851}#
+
#{ids\ 4852}#)
(values
- (cons #{x\
1295}#
- #{y\
1293}#)
- #{ids\
1296}#))))))
- #{tmp\ 1290}#)
- ((lambda (#{tmp\ 1297}#)
- (if #{tmp\ 1297}#
+ (cons #{x\
4851}#
+ #{y\
4849}#)
+ #{ids\
4852}#))))))
+ #{tmp\ 4846}#)
+ ((lambda (#{tmp\ 4853}#)
+ (if #{tmp\ 4853}#
(apply (lambda ()
(values
'()
- #{ids\
1281}#))
- #{tmp\ 1297}#)
- ((lambda (#{tmp\ 1298}#)
- (if #{tmp\ 1298}#
- (apply (lambda
(#{x\ 1299}#)
+ #{ids\
4837}#))
+ #{tmp\ 4853}#)
+ ((lambda (#{tmp\ 4854}#)
+ (if #{tmp\ 4854}#
+ (apply (lambda
(#{x\ 4855}#)
(call-with-values
(lambda
()
-
(#{cvt\ 1278}#
- #{x\
1299}#
- #{n\
1280}#
-
#{ids\ 1281}#))
- (lambda
(#{p\ 1301}#
-
#{ids\ 1302}#)
+
(#{cvt\ 4834}#
+ #{x\
4855}#
+ #{n\
4836}#
+
#{ids\ 4837}#))
+ (lambda
(#{p\ 4857}#
+
#{ids\ 4858}#)
(values
(vector
'vector
-
#{p\ 1301}#)
-
#{ids\ 1302}#))))
- #{tmp\
1298}#)
- ((lambda (#{x\
1303}#)
+
#{p\ 4857}#)
+
#{ids\ 4858}#))))
+ #{tmp\
4854}#)
+ ((lambda (#{x\
4859}#)
(values
(vector
'atom
- (#{strip\
175}#
- #{p\ 1279}#
+ (#{strip\
3719}#
+ #{p\ 4835}#
'(())))
- #{ids\ 1281}#))
- #{tmp\ 1282}#)))
+ #{ids\ 4837}#))
+ #{tmp\ 4838}#)))
($sc-dispatch
- #{tmp\ 1282}#
+ #{tmp\ 4838}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 1282}#
+ #{tmp\ 4838}#
'()))))
($sc-dispatch
- #{tmp\ 1282}#
+ #{tmp\ 4838}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1282}#
+ #{tmp\ 4838}#
'(any any))))
- #{p\ 1279}#)))))
- (#{cvt\ 1278}# #{pattern\ 1276}# 0 (quote ()))))))
- (lambda (#{e\ 1304}#
- #{r\ 1305}#
- #{w\ 1306}#
- #{s\ 1307}#
- #{mod\ 1308}#)
- (let ((#{e\ 1309}#
- (#{source-wrap\ 159}#
- #{e\ 1304}#
- #{w\ 1306}#
- #{s\ 1307}#
- #{mod\ 1308}#)))
- ((lambda (#{tmp\ 1310}#)
- ((lambda (#{tmp\ 1311}#)
- (if #{tmp\ 1311}#
- (apply (lambda (#{_\ 1312}#
- #{val\ 1313}#
- #{key\ 1314}#
- #{m\ 1315}#)
+ #{p\ 4835}#)))))
+ (#{cvt\ 4834}# #{pattern\ 4832}# 0 (quote ()))))))
+ (lambda (#{e\ 4860}#
+ #{r\ 4861}#
+ #{w\ 4862}#
+ #{s\ 4863}#
+ #{mod\ 4864}#)
+ (let ((#{e\ 4865}#
+ (#{source-wrap\ 3703}#
+ #{e\ 4860}#
+ #{w\ 4862}#
+ #{s\ 4863}#
+ #{mod\ 4864}#)))
+ ((lambda (#{tmp\ 4866}#)
+ ((lambda (#{tmp\ 4867}#)
+ (if #{tmp\ 4867}#
+ (apply (lambda (#{_\ 4868}#
+ #{val\ 4869}#
+ #{key\ 4870}#
+ #{m\ 4871}#)
(if (and-map
- (lambda (#{x\ 1316}#)
- (if (#{id?\ 130}# #{x\ 1316}#)
- (not (#{ellipsis?\ 174}# #{x\ 1316}#))
+ (lambda (#{x\ 4872}#)
+ (if (#{id?\ 3674}# #{x\ 4872}#)
+ (not (#{ellipsis?\ 3718}#
+ #{x\ 4872}#))
#f))
- #{key\ 1314}#)
- (let ((#{x\ 1318}#
- (#{gen-var\ 176}# (quote tmp))))
- (#{build-application\ 95}#
- #{s\ 1307}#
- (#{build-simple-lambda\ 104}#
+ #{key\ 4870}#)
+ (let ((#{x\ 4874}#
+ (#{gen-var\ 3720}# (quote tmp))))
+ (#{build-application\ 3639}#
+ #{s\ 4863}#
+ (#{build-simple-lambda\ 3648}#
#f
(list (quote tmp))
#f
- (list #{x\ 1318}#)
+ (list #{x\ 4874}#)
#f
- (#{gen-syntax-case\ 1231}#
- (#{build-lexical-reference\ 97}#
+ (#{gen-syntax-case\ 4787}#
+ (#{build-lexical-reference\ 3641}#
'value
#f
'tmp
- #{x\ 1318}#)
- #{key\ 1314}#
- #{m\ 1315}#
- #{r\ 1305}#
- #{mod\ 1308}#))
- (list (#{chi\ 166}#
- #{val\ 1313}#
- #{r\ 1305}#
+ #{x\ 4874}#)
+ #{key\ 4870}#
+ #{m\ 4871}#
+ #{r\ 4861}#
+ #{mod\ 4864}#))
+ (list (#{chi\ 3710}#
+ #{val\ 4869}#
+ #{r\ 4861}#
'(())
- #{mod\ 1308}#))))
+ #{mod\ 4864}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 1309}#)))
- #{tmp\ 1311}#)
+ #{e\ 4865}#)))
+ #{tmp\ 4867}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1310}#)))
+ #{tmp\ 4866}#)))
($sc-dispatch
- #{tmp\ 1310}#
+ #{tmp\ 4866}#
'(any any each-any . each-any))))
- #{e\ 1309}#)))))
+ #{e\ 4865}#)))))
(set! sc-expand
- (lambda (#{x\ 1321}# . #{rest\ 1322}#)
- (if (if (pair? #{x\ 1321}#)
- (equal? (car #{x\ 1321}#) #{noexpand\ 83}#)
+ (lambda (#{x\ 4877}# . #{rest\ 4878}#)
+ (if (if (pair? #{x\ 4877}#)
+ (equal? (car #{x\ 4877}#) #{noexpand\ 3627}#)
#f)
- (cadr #{x\ 1321}#)
- (let ((#{m\ 1323}#
- (if (null? #{rest\ 1322}#)
+ (cadr #{x\ 4877}#)
+ (let ((#{m\ 4879}#
+ (if (null? #{rest\ 4878}#)
'e
- (car #{rest\ 1322}#)))
- (#{esew\ 1324}#
- (if (let ((#{t\ 1325}# (null? #{rest\ 1322}#)))
- (if #{t\ 1325}#
- #{t\ 1325}#
- (null? (cdr #{rest\ 1322}#))))
+ (car #{rest\ 4878}#)))
+ (#{esew\ 4880}#
+ (if (let ((#{t\ 4881}# (null? #{rest\ 4878}#)))
+ (if #{t\ 4881}#
+ #{t\ 4881}#
+ (null? (cdr #{rest\ 4878}#))))
'(eval)
- (cadr #{rest\ 1322}#))))
+ (cadr #{rest\ 4878}#))))
(with-fluid*
- #{*mode*\ 84}#
- #{m\ 1323}#
+ #{*mode*\ 3628}#
+ #{m\ 4879}#
(lambda ()
- (#{chi-top\ 165}#
- #{x\ 1321}#
+ (#{chi-top\ 3709}#
+ #{x\ 4877}#
'()
'((top))
- #{m\ 1323}#
- #{esew\ 1324}#
+ #{m\ 4879}#
+ #{esew\ 4880}#
(cons 'hygiene
(module-name (current-module))))))))))
(set! identifier?
- (lambda (#{x\ 1326}#)
- (#{nonsymbol-id?\ 129}# #{x\ 1326}#)))
+ (lambda (#{x\ 4882}#)
+ (#{nonsymbol-id?\ 3673}# #{x\ 4882}#)))
(set! datum->syntax
- (lambda (#{id\ 1327}# #{datum\ 1328}#)
- (#{make-syntax-object\ 113}#
- #{datum\ 1328}#
- (#{syntax-object-wrap\ 116}# #{id\ 1327}#)
+ (lambda (#{id\ 4883}# #{datum\ 4884}#)
+ (#{make-syntax-object\ 3657}#
+ #{datum\ 4884}#
+ (#{syntax-object-wrap\ 3660}# #{id\ 4883}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 1329}#)
- (#{strip\ 175}# #{x\ 1329}# (quote (())))))
+ (lambda (#{x\ 4885}#)
+ (#{strip\ 3719}# #{x\ 4885}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 1330}#)
+ (lambda (#{ls\ 4886}#)
(begin
- (let ((#{x\ 1331}# #{ls\ 1330}#))
- (if (not (list? #{x\ 1331}#))
+ (let ((#{x\ 4887}# #{ls\ 4886}#))
+ (if (not (list? #{x\ 4887}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 1331}#)))
- (map (lambda (#{x\ 1332}#)
- (#{wrap\ 158}# (gensym) (quote ((top))) #f))
- #{ls\ 1330}#))))
+ #{x\ 4887}#)))
+ (map (lambda (#{x\ 4888}#)
+ (#{wrap\ 3702}# (gensym) (quote ((top))) #f))
+ #{ls\ 4886}#))))
(set! free-identifier=?
- (lambda (#{x\ 1333}# #{y\ 1334}#)
+ (lambda (#{x\ 4889}# #{y\ 4890}#)
(begin
- (let ((#{x\ 1335}# #{x\ 1333}#))
- (if (not (#{nonsymbol-id?\ 129}# #{x\ 1335}#))
+ (let ((#{x\ 4891}# #{x\ 4889}#))
+ (if (not (#{nonsymbol-id?\ 3673}# #{x\ 4891}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 1335}#)))
- (let ((#{x\ 1336}# #{y\ 1334}#))
- (if (not (#{nonsymbol-id?\ 129}# #{x\ 1336}#))
+ #{x\ 4891}#)))
+ (let ((#{x\ 4892}# #{y\ 4890}#))
+ (if (not (#{nonsymbol-id?\ 3673}# #{x\ 4892}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 1336}#)))
- (#{free-id=?\ 153}# #{x\ 1333}# #{y\ 1334}#))))
+ #{x\ 4892}#)))
+ (#{free-id=?\ 3697}# #{x\ 4889}# #{y\ 4890}#))))
(set! bound-identifier=?
- (lambda (#{x\ 1337}# #{y\ 1338}#)
+ (lambda (#{x\ 4893}# #{y\ 4894}#)
(begin
- (let ((#{x\ 1339}# #{x\ 1337}#))
- (if (not (#{nonsymbol-id?\ 129}# #{x\ 1339}#))
+ (let ((#{x\ 4895}# #{x\ 4893}#))
+ (if (not (#{nonsymbol-id?\ 3673}# #{x\ 4895}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 1339}#)))
- (let ((#{x\ 1340}# #{y\ 1338}#))
- (if (not (#{nonsymbol-id?\ 129}# #{x\ 1340}#))
+ #{x\ 4895}#)))
+ (let ((#{x\ 4896}# #{y\ 4894}#))
+ (if (not (#{nonsymbol-id?\ 3673}# #{x\ 4896}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 1340}#)))
- (#{bound-id=?\ 154}# #{x\ 1337}# #{y\ 1338}#))))
+ #{x\ 4896}#)))
+ (#{bound-id=?\ 3698}# #{x\ 4893}# #{y\ 4894}#))))
(set! syntax-violation
- (lambda (#{who\ 1341}#
- #{message\ 1342}#
- #{form\ 1343}#
+ (lambda (#{who\ 4897}#
+ #{message\ 4898}#
+ #{form\ 4899}#
.
- #{subform\ 1344}#)
+ #{subform\ 4900}#)
(begin
- (let ((#{x\ 1345}# #{who\ 1341}#))
- (if (not ((lambda (#{x\ 1346}#)
- (let ((#{t\ 1347}# (not #{x\ 1346}#)))
- (if #{t\ 1347}#
- #{t\ 1347}#
- (let ((#{t\ 1348}# (string? #{x\ 1346}#)))
- (if #{t\ 1348}#
- #{t\ 1348}#
- (symbol? #{x\ 1346}#))))))
- #{x\ 1345}#))
+ (let ((#{x\ 4901}# #{who\ 4897}#))
+ (if (not ((lambda (#{x\ 4902}#)
+ (let ((#{t\ 4903}# (not #{x\ 4902}#)))
+ (if #{t\ 4903}#
+ #{t\ 4903}#
+ (let ((#{t\ 4904}# (string? #{x\ 4902}#)))
+ (if #{t\ 4904}#
+ #{t\ 4904}#
+ (symbol? #{x\ 4902}#))))))
+ #{x\ 4901}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 1345}#)))
- (let ((#{x\ 1349}# #{message\ 1342}#))
- (if (not (string? #{x\ 1349}#))
+ #{x\ 4901}#)))
+ (let ((#{x\ 4905}# #{message\ 4898}#))
+ (if (not (string? #{x\ 4905}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 1349}#)))
+ #{x\ 4905}#)))
(scm-error
'syntax-error
'sc-expand
(string-append
- (if #{who\ 1341}# "~a: " "")
+ (if #{who\ 4897}# "~a: " "")
"~a "
- (if (null? #{subform\ 1344}#)
+ (if (null? #{subform\ 4900}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 1350}#
- (cons #{message\ 1342}#
- (map (lambda (#{x\ 1351}#)
- (#{strip\ 175}# #{x\ 1351}# (quote (()))))
+ (let ((#{tail\ 4906}#
+ (cons #{message\ 4898}#
+ (map (lambda (#{x\ 4907}#)
+ (#{strip\ 3719}# #{x\ 4907}# (quote (()))))
(append
- #{subform\ 1344}#
- (list #{form\ 1343}#))))))
- (if #{who\ 1341}#
- (cons #{who\ 1341}# #{tail\ 1350}#)
- #{tail\ 1350}#))
+ #{subform\ 4900}#
+ (list #{form\ 4899}#))))))
+ (if #{who\ 4897}#
+ (cons #{who\ 4897}# #{tail\ 4906}#)
+ #{tail\ 4906}#))
#f))))
- (letrec ((#{match\ 1356}#
- (lambda (#{e\ 1357}#
- #{p\ 1358}#
- #{w\ 1359}#
- #{r\ 1360}#
- #{mod\ 1361}#)
- (if (not #{r\ 1360}#)
+ (letrec ((#{match\ 4912}#
+ (lambda (#{e\ 4913}#
+ #{p\ 4914}#
+ #{w\ 4915}#
+ #{r\ 4916}#
+ #{mod\ 4917}#)
+ (if (not #{r\ 4916}#)
#f
- (if (eq? #{p\ 1358}# (quote any))
- (cons (#{wrap\ 158}#
- #{e\ 1357}#
- #{w\ 1359}#
- #{mod\ 1361}#)
- #{r\ 1360}#)
- (if (#{syntax-object?\ 114}# #{e\ 1357}#)
- (#{match*\ 1355}#
- (#{syntax-object-expression\ 115}# #{e\ 1357}#)
- #{p\ 1358}#
- (#{join-wraps\ 149}#
- #{w\ 1359}#
- (#{syntax-object-wrap\ 116}# #{e\ 1357}#))
- #{r\ 1360}#
- (#{syntax-object-module\ 117}# #{e\ 1357}#))
- (#{match*\ 1355}#
- #{e\ 1357}#
- #{p\ 1358}#
- #{w\ 1359}#
- #{r\ 1360}#
- #{mod\ 1361}#))))))
- (#{match*\ 1355}#
- (lambda (#{e\ 1362}#
- #{p\ 1363}#
- #{w\ 1364}#
- #{r\ 1365}#
- #{mod\ 1366}#)
- (if (null? #{p\ 1363}#)
- (if (null? #{e\ 1362}#) #{r\ 1365}# #f)
- (if (pair? #{p\ 1363}#)
- (if (pair? #{e\ 1362}#)
- (#{match\ 1356}#
- (car #{e\ 1362}#)
- (car #{p\ 1363}#)
- #{w\ 1364}#
- (#{match\ 1356}#
- (cdr #{e\ 1362}#)
- (cdr #{p\ 1363}#)
- #{w\ 1364}#
- #{r\ 1365}#
- #{mod\ 1366}#)
- #{mod\ 1366}#)
+ (if (eq? #{p\ 4914}# (quote any))
+ (cons (#{wrap\ 3702}#
+ #{e\ 4913}#
+ #{w\ 4915}#
+ #{mod\ 4917}#)
+ #{r\ 4916}#)
+ (if (#{syntax-object?\ 3658}# #{e\ 4913}#)
+ (#{match*\ 4911}#
+ (#{syntax-object-expression\ 3659}# #{e\ 4913}#)
+ #{p\ 4914}#
+ (#{join-wraps\ 3693}#
+ #{w\ 4915}#
+ (#{syntax-object-wrap\ 3660}# #{e\ 4913}#))
+ #{r\ 4916}#
+ (#{syntax-object-module\ 3661}# #{e\ 4913}#))
+ (#{match*\ 4911}#
+ #{e\ 4913}#
+ #{p\ 4914}#
+ #{w\ 4915}#
+ #{r\ 4916}#
+ #{mod\ 4917}#))))))
+ (#{match*\ 4911}#
+ (lambda (#{e\ 4918}#
+ #{p\ 4919}#
+ #{w\ 4920}#
+ #{r\ 4921}#
+ #{mod\ 4922}#)
+ (if (null? #{p\ 4919}#)
+ (if (null? #{e\ 4918}#) #{r\ 4921}# #f)
+ (if (pair? #{p\ 4919}#)
+ (if (pair? #{e\ 4918}#)
+ (#{match\ 4912}#
+ (car #{e\ 4918}#)
+ (car #{p\ 4919}#)
+ #{w\ 4920}#
+ (#{match\ 4912}#
+ (cdr #{e\ 4918}#)
+ (cdr #{p\ 4919}#)
+ #{w\ 4920}#
+ #{r\ 4921}#
+ #{mod\ 4922}#)
+ #{mod\ 4922}#)
#f)
- (if (eq? #{p\ 1363}# (quote each-any))
- (let ((#{l\ 1367}#
- (#{match-each-any\ 1353}#
- #{e\ 1362}#
- #{w\ 1364}#
- #{mod\ 1366}#)))
- (if #{l\ 1367}#
- (cons #{l\ 1367}# #{r\ 1365}#)
+ (if (eq? #{p\ 4919}# (quote each-any))
+ (let ((#{l\ 4923}#
+ (#{match-each-any\ 4909}#
+ #{e\ 4918}#
+ #{w\ 4920}#
+ #{mod\ 4922}#)))
+ (if #{l\ 4923}#
+ (cons #{l\ 4923}# #{r\ 4921}#)
#f))
- (let ((#{atom-key\ 1368}# (vector-ref #{p\ 1363}# 0)))
- (if (memv #{atom-key\ 1368}# (quote (each)))
- (if (null? #{e\ 1362}#)
- (#{match-empty\ 1354}#
- (vector-ref #{p\ 1363}# 1)
- #{r\ 1365}#)
- (let ((#{l\ 1369}#
- (#{match-each\ 1352}#
- #{e\ 1362}#
- (vector-ref #{p\ 1363}# 1)
- #{w\ 1364}#
- #{mod\ 1366}#)))
- (if #{l\ 1369}#
- (letrec ((#{collect\ 1370}#
- (lambda (#{l\ 1371}#)
- (if (null? (car #{l\ 1371}#))
- #{r\ 1365}#
- (cons (map car #{l\ 1371}#)
- (#{collect\ 1370}#
+ (let ((#{atom-key\ 4924}# (vector-ref #{p\ 4919}# 0)))
+ (if (memv #{atom-key\ 4924}# (quote (each)))
+ (if (null? #{e\ 4918}#)
+ (#{match-empty\ 4910}#
+ (vector-ref #{p\ 4919}# 1)
+ #{r\ 4921}#)
+ (let ((#{l\ 4925}#
+ (#{match-each\ 4908}#
+ #{e\ 4918}#
+ (vector-ref #{p\ 4919}# 1)
+ #{w\ 4920}#
+ #{mod\ 4922}#)))
+ (if #{l\ 4925}#
+ (letrec ((#{collect\ 4926}#
+ (lambda (#{l\ 4927}#)
+ (if (null? (car #{l\ 4927}#))
+ #{r\ 4921}#
+ (cons (map car #{l\ 4927}#)
+ (#{collect\ 4926}#
(map cdr
- #{l\
1371}#)))))))
- (#{collect\ 1370}# #{l\ 1369}#))
+ #{l\
4927}#)))))))
+ (#{collect\ 4926}# #{l\ 4925}#))
#f)))
- (if (memv #{atom-key\ 1368}# (quote (free-id)))
- (if (#{id?\ 130}# #{e\ 1362}#)
- (if (#{free-id=?\ 153}#
- (#{wrap\ 158}#
- #{e\ 1362}#
- #{w\ 1364}#
- #{mod\ 1366}#)
- (vector-ref #{p\ 1363}# 1))
- #{r\ 1365}#
+ (if (memv #{atom-key\ 4924}# (quote (free-id)))
+ (if (#{id?\ 3674}# #{e\ 4918}#)
+ (if (#{free-id=?\ 3697}#
+ (#{wrap\ 3702}#
+ #{e\ 4918}#
+ #{w\ 4920}#
+ #{mod\ 4922}#)
+ (vector-ref #{p\ 4919}# 1))
+ #{r\ 4921}#
#f)
#f)
- (if (memv #{atom-key\ 1368}# (quote (atom)))
+ (if (memv #{atom-key\ 4924}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 1363}# 1)
- (#{strip\ 175}#
- #{e\ 1362}#
- #{w\ 1364}#))
- #{r\ 1365}#
+ (vector-ref #{p\ 4919}# 1)
+ (#{strip\ 3719}#
+ #{e\ 4918}#
+ #{w\ 4920}#))
+ #{r\ 4921}#
#f)
- (if (memv #{atom-key\ 1368}# (quote (vector)))
- (if (vector? #{e\ 1362}#)
- (#{match\ 1356}#
- (vector->list #{e\ 1362}#)
- (vector-ref #{p\ 1363}# 1)
- #{w\ 1364}#
- #{r\ 1365}#
- #{mod\ 1366}#)
+ (if (memv #{atom-key\ 4924}# (quote (vector)))
+ (if (vector? #{e\ 4918}#)
+ (#{match\ 4912}#
+ (vector->list #{e\ 4918}#)
+ (vector-ref #{p\ 4919}# 1)
+ #{w\ 4920}#
+ #{r\ 4921}#
+ #{mod\ 4922}#)
#f)))))))))))
- (#{match-empty\ 1354}#
- (lambda (#{p\ 1372}# #{r\ 1373}#)
- (if (null? #{p\ 1372}#)
- #{r\ 1373}#
- (if (eq? #{p\ 1372}# (quote any))
- (cons (quote ()) #{r\ 1373}#)
- (if (pair? #{p\ 1372}#)
- (#{match-empty\ 1354}#
- (car #{p\ 1372}#)
- (#{match-empty\ 1354}#
- (cdr #{p\ 1372}#)
- #{r\ 1373}#))
- (if (eq? #{p\ 1372}# (quote each-any))
- (cons (quote ()) #{r\ 1373}#)
- (let ((#{atom-key\ 1374}#
- (vector-ref #{p\ 1372}# 0)))
- (if (memv #{atom-key\ 1374}# (quote (each)))
- (#{match-empty\ 1354}#
- (vector-ref #{p\ 1372}# 1)
- #{r\ 1373}#)
- (if (memv #{atom-key\ 1374}#
+ (#{match-empty\ 4910}#
+ (lambda (#{p\ 4928}# #{r\ 4929}#)
+ (if (null? #{p\ 4928}#)
+ #{r\ 4929}#
+ (if (eq? #{p\ 4928}# (quote any))
+ (cons (quote ()) #{r\ 4929}#)
+ (if (pair? #{p\ 4928}#)
+ (#{match-empty\ 4910}#
+ (car #{p\ 4928}#)
+ (#{match-empty\ 4910}#
+ (cdr #{p\ 4928}#)
+ #{r\ 4929}#))
+ (if (eq? #{p\ 4928}# (quote each-any))
+ (cons (quote ()) #{r\ 4929}#)
+ (let ((#{atom-key\ 4930}#
+ (vector-ref #{p\ 4928}# 0)))
+ (if (memv #{atom-key\ 4930}# (quote (each)))
+ (#{match-empty\ 4910}#
+ (vector-ref #{p\ 4928}# 1)
+ #{r\ 4929}#)
+ (if (memv #{atom-key\ 4930}#
'(free-id atom))
- #{r\ 1373}#
- (if (memv #{atom-key\ 1374}# (quote (vector)))
- (#{match-empty\ 1354}#
- (vector-ref #{p\ 1372}# 1)
- #{r\ 1373}#)))))))))))
- (#{match-each-any\ 1353}#
- (lambda (#{e\ 1375}# #{w\ 1376}# #{mod\ 1377}#)
- (if (pair? #{e\ 1375}#)
- (let ((#{l\ 1378}#
- (#{match-each-any\ 1353}#
- (cdr #{e\ 1375}#)
- #{w\ 1376}#
- #{mod\ 1377}#)))
- (if #{l\ 1378}#
- (cons (#{wrap\ 158}#
- (car #{e\ 1375}#)
- #{w\ 1376}#
- #{mod\ 1377}#)
- #{l\ 1378}#)
+ #{r\ 4929}#
+ (if (memv #{atom-key\ 4930}# (quote (vector)))
+ (#{match-empty\ 4910}#
+ (vector-ref #{p\ 4928}# 1)
+ #{r\ 4929}#)))))))))))
+ (#{match-each-any\ 4909}#
+ (lambda (#{e\ 4931}# #{w\ 4932}# #{mod\ 4933}#)
+ (if (pair? #{e\ 4931}#)
+ (let ((#{l\ 4934}#
+ (#{match-each-any\ 4909}#
+ (cdr #{e\ 4931}#)
+ #{w\ 4932}#
+ #{mod\ 4933}#)))
+ (if #{l\ 4934}#
+ (cons (#{wrap\ 3702}#
+ (car #{e\ 4931}#)
+ #{w\ 4932}#
+ #{mod\ 4933}#)
+ #{l\ 4934}#)
#f))
- (if (null? #{e\ 1375}#)
+ (if (null? #{e\ 4931}#)
'()
- (if (#{syntax-object?\ 114}# #{e\ 1375}#)
- (#{match-each-any\ 1353}#
- (#{syntax-object-expression\ 115}# #{e\ 1375}#)
- (#{join-wraps\ 149}#
- #{w\ 1376}#
- (#{syntax-object-wrap\ 116}# #{e\ 1375}#))
- #{mod\ 1377}#)
+ (if (#{syntax-object?\ 3658}# #{e\ 4931}#)
+ (#{match-each-any\ 4909}#
+ (#{syntax-object-expression\ 3659}# #{e\ 4931}#)
+ (#{join-wraps\ 3693}#
+ #{w\ 4932}#
+ (#{syntax-object-wrap\ 3660}# #{e\ 4931}#))
+ #{mod\ 4933}#)
#f)))))
- (#{match-each\ 1352}#
- (lambda (#{e\ 1379}#
- #{p\ 1380}#
- #{w\ 1381}#
- #{mod\ 1382}#)
- (if (pair? #{e\ 1379}#)
- (let ((#{first\ 1383}#
- (#{match\ 1356}#
- (car #{e\ 1379}#)
- #{p\ 1380}#
- #{w\ 1381}#
+ (#{match-each\ 4908}#
+ (lambda (#{e\ 4935}#
+ #{p\ 4936}#
+ #{w\ 4937}#
+ #{mod\ 4938}#)
+ (if (pair? #{e\ 4935}#)
+ (let ((#{first\ 4939}#
+ (#{match\ 4912}#
+ (car #{e\ 4935}#)
+ #{p\ 4936}#
+ #{w\ 4937}#
'()
- #{mod\ 1382}#)))
- (if #{first\ 1383}#
- (let ((#{rest\ 1384}#
- (#{match-each\ 1352}#
- (cdr #{e\ 1379}#)
- #{p\ 1380}#
- #{w\ 1381}#
- #{mod\ 1382}#)))
- (if #{rest\ 1384}#
- (cons #{first\ 1383}# #{rest\ 1384}#)
+ #{mod\ 4938}#)))
+ (if #{first\ 4939}#
+ (let ((#{rest\ 4940}#
+ (#{match-each\ 4908}#
+ (cdr #{e\ 4935}#)
+ #{p\ 4936}#
+ #{w\ 4937}#
+ #{mod\ 4938}#)))
+ (if #{rest\ 4940}#
+ (cons #{first\ 4939}# #{rest\ 4940}#)
#f))
#f))
- (if (null? #{e\ 1379}#)
+ (if (null? #{e\ 4935}#)
'()
- (if (#{syntax-object?\ 114}# #{e\ 1379}#)
- (#{match-each\ 1352}#
- (#{syntax-object-expression\ 115}# #{e\ 1379}#)
- #{p\ 1380}#
- (#{join-wraps\ 149}#
- #{w\ 1381}#
- (#{syntax-object-wrap\ 116}# #{e\ 1379}#))
- (#{syntax-object-module\ 117}# #{e\ 1379}#))
+ (if (#{syntax-object?\ 3658}# #{e\ 4935}#)
+ (#{match-each\ 4908}#
+ (#{syntax-object-expression\ 3659}# #{e\ 4935}#)
+ #{p\ 4936}#
+ (#{join-wraps\ 3693}#
+ #{w\ 4937}#
+ (#{syntax-object-wrap\ 3660}# #{e\ 4935}#))
+ (#{syntax-object-module\ 3661}# #{e\ 4935}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 1385}# #{p\ 1386}#)
- (if (eq? #{p\ 1386}# (quote any))
- (list #{e\ 1385}#)
- (if (#{syntax-object?\ 114}# #{e\ 1385}#)
- (#{match*\ 1355}#
- (#{syntax-object-expression\ 115}# #{e\ 1385}#)
- #{p\ 1386}#
- (#{syntax-object-wrap\ 116}# #{e\ 1385}#)
+ (lambda (#{e\ 4941}# #{p\ 4942}#)
+ (if (eq? #{p\ 4942}# (quote any))
+ (list #{e\ 4941}#)
+ (if (#{syntax-object?\ 3658}# #{e\ 4941}#)
+ (#{match*\ 4911}#
+ (#{syntax-object-expression\ 3659}# #{e\ 4941}#)
+ #{p\ 4942}#
+ (#{syntax-object-wrap\ 3660}# #{e\ 4941}#)
'()
- (#{syntax-object-module\ 117}# #{e\ 1385}#))
- (#{match*\ 1355}#
- #{e\ 1385}#
- #{p\ 1386}#
+ (#{syntax-object-module\ 3661}# #{e\ 4941}#))
+ (#{match*\ 4911}#
+ #{e\ 4941}#
+ #{p\ 4942}#
'(())
'()
#f)))))))))
@@ -9305,11 +9367,11 @@
(define with-syntax
(make-syncase-macro
'macro
- (lambda (#{x\ 1387}#)
- ((lambda (#{tmp\ 1388}#)
- ((lambda (#{tmp\ 1389}#)
- (if #{tmp\ 1389}#
- (apply (lambda (#{_\ 1390}# #{e1\ 1391}# #{e2\ 1392}#)
+ (lambda (#{x\ 4943}#)
+ ((lambda (#{tmp\ 4944}#)
+ ((lambda (#{tmp\ 4945}#)
+ (if #{tmp\ 4945}#
+ (apply (lambda (#{_\ 4946}# #{e1\ 4947}# #{e2\ 4948}#)
(cons '#(syntax-object
begin
((top)
@@ -9320,15 +9382,15 @@
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))
(hygiene guile))
- (cons #{e1\ 1391}# #{e2\ 1392}#)))
- #{tmp\ 1389}#)
- ((lambda (#{tmp\ 1394}#)
- (if #{tmp\ 1394}#
- (apply (lambda (#{_\ 1395}#
- #{out\ 1396}#
- #{in\ 1397}#
- #{e1\ 1398}#
- #{e2\ 1399}#)
+ (cons #{e1\ 4947}# #{e2\ 4948}#)))
+ #{tmp\ 4945}#)
+ ((lambda (#{tmp\ 4950}#)
+ (if #{tmp\ 4950}#
+ (apply (lambda (#{_\ 4951}#
+ #{out\ 4952}#
+ #{in\ 4953}#
+ #{e1\ 4954}#
+ #{e2\ 4955}#)
(list '#(syntax-object
syntax-case
((top)
@@ -9339,9 +9401,9 @@
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))
(hygiene guile))
- #{in\ 1397}#
+ #{in\ 4953}#
'()
- (list #{out\ 1396}#
+ (list #{out\ 4952}#
(cons '#(syntax-object
begin
((top)
@@ -9359,16 +9421,16 @@
#((top))
#("i")))
(hygiene guile))
- (cons #{e1\ 1398}#
- #{e2\ 1399}#)))))
- #{tmp\ 1394}#)
- ((lambda (#{tmp\ 1401}#)
- (if #{tmp\ 1401}#
- (apply (lambda (#{_\ 1402}#
- #{out\ 1403}#
- #{in\ 1404}#
- #{e1\ 1405}#
- #{e2\ 1406}#)
+ (cons #{e1\ 4954}#
+ #{e2\ 4955}#)))))
+ #{tmp\ 4950}#)
+ ((lambda (#{tmp\ 4957}#)
+ (if #{tmp\ 4957}#
+ (apply (lambda (#{_\ 4958}#
+ #{out\ 4959}#
+ #{in\ 4960}#
+ #{e1\ 4961}#
+ #{e2\ 4962}#)
(list '#(syntax-object
syntax-case
((top)
@@ -9396,9 +9458,9 @@
#((top))
#("i")))
(hygiene guile))
- #{in\ 1404}#)
+ #{in\ 4960}#)
'()
- (list #{out\ 1403}#
+ (list #{out\ 4959}#
(cons '#(syntax-object
begin
((top)
@@ -9420,36 +9482,36 @@
#((top))
#("i")))
(hygiene guile))
- (cons #{e1\ 1405}#
- #{e2\ 1406}#)))))
- #{tmp\ 1401}#)
+ (cons #{e1\ 4961}#
+ #{e2\ 4962}#)))))
+ #{tmp\ 4957}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1388}#)))
+ #{tmp\ 4944}#)))
($sc-dispatch
- #{tmp\ 1388}#
+ #{tmp\ 4944}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 1388}#
+ #{tmp\ 4944}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 1388}#
+ #{tmp\ 4944}#
'(any () any . each-any))))
- #{x\ 1387}#))))
+ #{x\ 4943}#))))
(define syntax-rules
(make-syncase-macro
'macro
- (lambda (#{x\ 1410}#)
- ((lambda (#{tmp\ 1411}#)
- ((lambda (#{tmp\ 1412}#)
- (if #{tmp\ 1412}#
- (apply (lambda (#{_\ 1413}#
- #{k\ 1414}#
- #{keyword\ 1415}#
- #{pattern\ 1416}#
- #{template\ 1417}#)
+ (lambda (#{x\ 4966}#)
+ ((lambda (#{tmp\ 4967}#)
+ ((lambda (#{tmp\ 4968}#)
+ (if #{tmp\ 4968}#
+ (apply (lambda (#{_\ 4969}#
+ #{k\ 4970}#
+ #{keyword\ 4971}#
+ #{pattern\ 4972}#
+ #{template\ 4973}#)
(list '#(syntax-object
lambda
((top)
@@ -9490,9 +9552,9 @@
#(ribcage () () ())
#(ribcage #(x) #((top)) #("i")))
(hygiene guile))
- (cons #{k\ 1414}#
- (map (lambda (#{tmp\ 1420}#
- #{tmp\ 1419}#)
+ (cons #{k\ 4970}#
+ (map (lambda (#{tmp\ 4976}#
+ #{tmp\ 4975}#)
(list (cons
'#(syntax-object
dummy
((top)
@@ -9522,7 +9584,7 @@
#("i")))
(hygiene
guile))
- #{tmp\
1419}#)
+ #{tmp\
4975}#)
(list
'#(syntax-object
syntax
((top)
@@ -9552,43 +9614,43 @@
#("i")))
(hygiene
guile))
- #{tmp\
1420}#)))
- #{template\ 1417}#
- #{pattern\ 1416}#))))))
- #{tmp\ 1412}#)
+ #{tmp\
4976}#)))
+ #{template\ 4973}#
+ #{pattern\ 4972}#))))))
+ #{tmp\ 4968}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1411}#)))
+ #{tmp\ 4967}#)))
($sc-dispatch
- #{tmp\ 1411}#
+ #{tmp\ 4967}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 1410}#))))
+ #{x\ 4966}#))))
(define let*
(make-extended-syncase-macro
(module-ref (current-module) (quote let*))
'macro
- (lambda (#{x\ 1421}#)
- ((lambda (#{tmp\ 1422}#)
- ((lambda (#{tmp\ 1423}#)
- (if (if #{tmp\ 1423}#
- (apply (lambda (#{let*\ 1424}#
- #{x\ 1425}#
- #{v\ 1426}#
- #{e1\ 1427}#
- #{e2\ 1428}#)
- (and-map identifier? #{x\ 1425}#))
- #{tmp\ 1423}#)
+ (lambda (#{x\ 4977}#)
+ ((lambda (#{tmp\ 4978}#)
+ ((lambda (#{tmp\ 4979}#)
+ (if (if #{tmp\ 4979}#
+ (apply (lambda (#{let*\ 4980}#
+ #{x\ 4981}#
+ #{v\ 4982}#
+ #{e1\ 4983}#
+ #{e2\ 4984}#)
+ (and-map identifier? #{x\ 4981}#))
+ #{tmp\ 4979}#)
#f)
- (apply (lambda (#{let*\ 1430}#
- #{x\ 1431}#
- #{v\ 1432}#
- #{e1\ 1433}#
- #{e2\ 1434}#)
- (letrec ((#{f\ 1435}#
- (lambda (#{bindings\ 1436}#)
- (if (null? #{bindings\ 1436}#)
+ (apply (lambda (#{let*\ 4986}#
+ #{x\ 4987}#
+ #{v\ 4988}#
+ #{e1\ 4989}#
+ #{e2\ 4990}#)
+ (letrec ((#{f\ 4991}#
+ (lambda (#{bindings\ 4992}#)
+ (if (null? #{bindings\ 4992}#)
(cons '#(syntax-object
let
((top)
@@ -9612,13 +9674,13 @@
#("i")))
(hygiene guile))
(cons '()
- (cons #{e1\ 1433}#
- #{e2\ 1434}#)))
- ((lambda (#{tmp\ 1440}#)
- ((lambda (#{tmp\ 1441}#)
- (if #{tmp\ 1441}#
- (apply (lambda (#{body\ 1442}#
- #{binding\
1443}#)
+ (cons #{e1\ 4989}#
+ #{e2\ 4990}#)))
+ ((lambda (#{tmp\ 4996}#)
+ ((lambda (#{tmp\ 4997}#)
+ (if #{tmp\ 4997}#
+ (apply (lambda (#{body\ 4998}#
+ #{binding\
4999}#)
(list '#(syntax-object
let
((top)
@@ -9664,52 +9726,52 @@
#("i")))
(hygiene
guile))
- (list #{binding\
1443}#)
- #{body\ 1442}#))
- #{tmp\ 1441}#)
+ (list #{binding\
4999}#)
+ #{body\ 4998}#))
+ #{tmp\ 4997}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{tmp\ 1440}#)))
+ #{tmp\ 4996}#)))
($sc-dispatch
- #{tmp\ 1440}#
+ #{tmp\ 4996}#
'(any any))))
- (list (#{f\ 1435}#
- (cdr #{bindings\ 1436}#))
- (car #{bindings\ 1436}#)))))))
- (#{f\ 1435}# (map list #{x\ 1431}# #{v\ 1432}#))))
- #{tmp\ 1423}#)
+ (list (#{f\ 4991}#
+ (cdr #{bindings\ 4992}#))
+ (car #{bindings\ 4992}#)))))))
+ (#{f\ 4991}# (map list #{x\ 4987}# #{v\ 4988}#))))
+ #{tmp\ 4979}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1422}#)))
+ #{tmp\ 4978}#)))
($sc-dispatch
- #{tmp\ 1422}#
+ #{tmp\ 4978}#
'(any #(each (any any)) any . each-any))))
- #{x\ 1421}#))))
+ #{x\ 4977}#))))
(define do
(make-extended-syncase-macro
(module-ref (current-module) (quote do))
'macro
- (lambda (#{orig-x\ 1444}#)
- ((lambda (#{tmp\ 1445}#)
- ((lambda (#{tmp\ 1446}#)
- (if #{tmp\ 1446}#
- (apply (lambda (#{_\ 1447}#
- #{var\ 1448}#
- #{init\ 1449}#
- #{step\ 1450}#
- #{e0\ 1451}#
- #{e1\ 1452}#
- #{c\ 1453}#)
- ((lambda (#{tmp\ 1454}#)
- ((lambda (#{tmp\ 1455}#)
- (if #{tmp\ 1455}#
- (apply (lambda (#{step\ 1456}#)
- ((lambda (#{tmp\ 1457}#)
- ((lambda (#{tmp\ 1458}#)
- (if #{tmp\ 1458}#
+ (lambda (#{orig-x\ 5000}#)
+ ((lambda (#{tmp\ 5001}#)
+ ((lambda (#{tmp\ 5002}#)
+ (if #{tmp\ 5002}#
+ (apply (lambda (#{_\ 5003}#
+ #{var\ 5004}#
+ #{init\ 5005}#
+ #{step\ 5006}#
+ #{e0\ 5007}#
+ #{e1\ 5008}#
+ #{c\ 5009}#)
+ ((lambda (#{tmp\ 5010}#)
+ ((lambda (#{tmp\ 5011}#)
+ (if #{tmp\ 5011}#
+ (apply (lambda (#{step\ 5012}#)
+ ((lambda (#{tmp\ 5013}#)
+ ((lambda (#{tmp\ 5014}#)
+ (if #{tmp\ 5014}#
(apply (lambda ()
(list '#(syntax-object
let
@@ -9790,8 +9852,8 @@
(hygiene
guile))
(map list
- #{var\
1448}#
- #{init\
1449}#)
+ #{var\
5004}#
+ #{init\
5005}#)
(list
'#(syntax-object
if
((top)
@@ -9870,7 +9932,7 @@
#("i")))
(hygiene
guile))
-
#{e0\ 1451}#)
+
#{e0\ 5007}#)
(cons
'#(syntax-object
begin
((top)
@@ -9911,7 +9973,7 @@
(hygiene
guile))
(append
-
#{c\ 1453}#
+
#{c\ 5009}#
(list (cons '#(syntax-object
doloop
((top)
@@ -9951,12 +10013,12 @@
#("i")))
(hygiene
guile))
-
#{step\ 1456}#)))))))
- #{tmp\ 1458}#)
- ((lambda (#{tmp\ 1463}#)
- (if #{tmp\ 1463}#
- (apply (lambda (#{e1\
1464}#
- #{e2\
1465}#)
+
#{step\ 5012}#)))))))
+ #{tmp\ 5014}#)
+ ((lambda (#{tmp\ 5019}#)
+ (if #{tmp\ 5019}#
+ (apply (lambda (#{e1\
5020}#
+ #{e2\
5021}#)
(list
'#(syntax-object
let
((top)
@@ -10050,8 +10112,8 @@
(hygiene
guile))
(map list
-
#{var\ 1448}#
-
#{init\ 1449}#)
+
#{var\ 5004}#
+
#{init\ 5005}#)
(list
'#(syntax-object
if
((top)
@@ -10098,7 +10160,7 @@
#("i")))
(hygiene
guile))
-
#{e0\ 1451}#
+
#{e0\ 5007}#
(cons '#(syntax-object
begin
((top)
@@ -10145,8 +10207,8 @@
#("i")))
(hygiene
guile))
-
(cons #{e1\ 1464}#
-
#{e2\ 1465}#))
+
(cons #{e1\ 5020}#
+
#{e2\ 5021}#))
(cons '#(syntax-object
begin
((top)
@@ -10194,7 +10256,7 @@
(hygiene
guile))
(append
-
#{c\ 1453}#
+
#{c\ 5009}#
(list (cons '#(syntax-object
doloop
((top)
@@ -10241,81 +10303,81 @@
#("i")))
(hygiene
guile))
-
#{step\ 1456}#)))))))
- #{tmp\ 1463}#)
+
#{step\ 5012}#)))))))
+ #{tmp\ 5019}#)
(syntax-violation
#f
"source expression
failed to match any pattern"
- #{tmp\ 1457}#)))
+ #{tmp\ 5013}#)))
($sc-dispatch
- #{tmp\ 1457}#
+ #{tmp\ 5013}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 1457}#
+ #{tmp\ 5013}#
'())))
- #{e1\ 1452}#))
- #{tmp\ 1455}#)
+ #{e1\ 5008}#))
+ #{tmp\ 5011}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1454}#)))
- ($sc-dispatch #{tmp\ 1454}# (quote each-any))))
- (map (lambda (#{v\ 1472}# #{s\ 1473}#)
- ((lambda (#{tmp\ 1474}#)
- ((lambda (#{tmp\ 1475}#)
- (if #{tmp\ 1475}#
- (apply (lambda () #{v\ 1472}#)
- #{tmp\ 1475}#)
- ((lambda (#{tmp\ 1476}#)
- (if #{tmp\ 1476}#
- (apply (lambda (#{e\ 1477}#)
- #{e\ 1477}#)
- #{tmp\ 1476}#)
- ((lambda (#{_\ 1478}#)
+ #{tmp\ 5010}#)))
+ ($sc-dispatch #{tmp\ 5010}# (quote each-any))))
+ (map (lambda (#{v\ 5028}# #{s\ 5029}#)
+ ((lambda (#{tmp\ 5030}#)
+ ((lambda (#{tmp\ 5031}#)
+ (if #{tmp\ 5031}#
+ (apply (lambda () #{v\ 5028}#)
+ #{tmp\ 5031}#)
+ ((lambda (#{tmp\ 5032}#)
+ (if #{tmp\ 5032}#
+ (apply (lambda (#{e\ 5033}#)
+ #{e\ 5033}#)
+ #{tmp\ 5032}#)
+ ((lambda (#{_\ 5034}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 1444}#
- #{s\ 1473}#))
- #{tmp\ 1474}#)))
+ #{orig-x\ 5000}#
+ #{s\ 5029}#))
+ #{tmp\ 5030}#)))
($sc-dispatch
- #{tmp\ 1474}#
+ #{tmp\ 5030}#
'(any)))))
- ($sc-dispatch #{tmp\ 1474}# (quote ()))))
- #{s\ 1473}#))
- #{var\ 1448}#
- #{step\ 1450}#)))
- #{tmp\ 1446}#)
+ ($sc-dispatch #{tmp\ 5030}# (quote ()))))
+ #{s\ 5029}#))
+ #{var\ 5004}#
+ #{step\ 5006}#)))
+ #{tmp\ 5002}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1445}#)))
+ #{tmp\ 5001}#)))
($sc-dispatch
- #{tmp\ 1445}#
+ #{tmp\ 5001}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 1444}#))))
+ #{orig-x\ 5000}#))))
(define quasiquote
(make-extended-syncase-macro
(module-ref (current-module) (quote quasiquote))
'macro
- (letrec ((#{quasicons\ 1481}#
- (lambda (#{x\ 1485}# #{y\ 1486}#)
- ((lambda (#{tmp\ 1487}#)
- ((lambda (#{tmp\ 1488}#)
- (if #{tmp\ 1488}#
- (apply (lambda (#{x\ 1489}# #{y\ 1490}#)
- ((lambda (#{tmp\ 1491}#)
- ((lambda (#{tmp\ 1492}#)
- (if #{tmp\ 1492}#
- (apply (lambda (#{dy\ 1493}#)
- ((lambda (#{tmp\ 1494}#)
- ((lambda (#{tmp\ 1495}#)
- (if #{tmp\ 1495}#
- (apply (lambda
(#{dx\ 1496}#)
+ (letrec ((#{quasicons\ 5037}#
+ (lambda (#{x\ 5041}# #{y\ 5042}#)
+ ((lambda (#{tmp\ 5043}#)
+ ((lambda (#{tmp\ 5044}#)
+ (if #{tmp\ 5044}#
+ (apply (lambda (#{x\ 5045}# #{y\ 5046}#)
+ ((lambda (#{tmp\ 5047}#)
+ ((lambda (#{tmp\ 5048}#)
+ (if #{tmp\ 5048}#
+ (apply (lambda (#{dy\ 5049}#)
+ ((lambda (#{tmp\ 5050}#)
+ ((lambda (#{tmp\ 5051}#)
+ (if #{tmp\ 5051}#
+ (apply (lambda
(#{dx\ 5052}#)
(list
'#(syntax-object
quote
((top)
@@ -10364,11 +10426,11 @@
"i")))
(hygiene
guile))
-
(cons #{dx\ 1496}#
-
#{dy\ 1493}#)))
- #{tmp\
1495}#)
- ((lambda (#{_\
1497}#)
- (if (null? #{dy\
1493}#)
+
(cons #{dx\ 5052}#
+
#{dy\ 5049}#)))
+ #{tmp\
5051}#)
+ ((lambda (#{_\
5053}#)
+ (if (null? #{dy\
5049}#)
(list
'#(syntax-object
list
((top)
@@ -10417,7 +10479,7 @@
"i")))
(hygiene
guile))
- #{x\
1489}#)
+ #{x\
5045}#)
(list
'#(syntax-object
cons
((top)
@@ -10466,11 +10528,11 @@
"i")))
(hygiene
guile))
- #{x\
1489}#
- #{y\
1490}#)))
- #{tmp\ 1494}#)))
+ #{x\
5045}#
+ #{y\
5046}#)))
+ #{tmp\ 5050}#)))
($sc-dispatch
- #{tmp\ 1494}#
+ #{tmp\ 5050}#
'(#(free-id
#(syntax-object
quote
@@ -10513,11 +10575,11 @@
(hygiene
guile)))
any))))
- #{x\ 1489}#))
- #{tmp\ 1492}#)
- ((lambda (#{tmp\ 1498}#)
- (if #{tmp\ 1498}#
- (apply (lambda (#{stuff\ 1499}#)
+ #{x\ 5045}#))
+ #{tmp\ 5048}#)
+ ((lambda (#{tmp\ 5054}#)
+ (if #{tmp\ 5054}#
+ (apply (lambda (#{stuff\ 5055}#)
(cons '#(syntax-object
list
((top)
@@ -10558,10 +10620,10 @@
"i")))
(hygiene
guile))
- (cons #{x\ 1489}#
- #{stuff\
1499}#)))
- #{tmp\ 1498}#)
- ((lambda (#{else\ 1500}#)
+ (cons #{x\ 5045}#
+ #{stuff\
5055}#)))
+ #{tmp\ 5054}#)
+ ((lambda (#{else\ 5056}#)
(list '#(syntax-object
cons
((top)
@@ -10593,11 +10655,11 @@
"i"
"i")))
(hygiene guile))
- #{x\ 1489}#
- #{y\ 1490}#))
- #{tmp\ 1491}#)))
+ #{x\ 5045}#
+ #{y\ 5046}#))
+ #{tmp\ 5047}#)))
($sc-dispatch
- #{tmp\ 1491}#
+ #{tmp\ 5047}#
'(#(free-id
#(syntax-object
list
@@ -10626,7 +10688,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 1491}#
+ #{tmp\ 5047}#
'(#(free-id
#(syntax-object
quote
@@ -10650,26 +10712,26 @@
#("i" "i" "i" "i")))
(hygiene guile)))
any))))
- #{y\ 1490}#))
- #{tmp\ 1488}#)
+ #{y\ 5046}#))
+ #{tmp\ 5044}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1487}#)))
- ($sc-dispatch #{tmp\ 1487}# (quote (any any)))))
- (list #{x\ 1485}# #{y\ 1486}#))))
- (#{quasiappend\ 1482}#
- (lambda (#{x\ 1501}# #{y\ 1502}#)
- ((lambda (#{tmp\ 1503}#)
- ((lambda (#{tmp\ 1504}#)
- (if #{tmp\ 1504}#
- (apply (lambda (#{x\ 1505}# #{y\ 1506}#)
- ((lambda (#{tmp\ 1507}#)
- ((lambda (#{tmp\ 1508}#)
- (if #{tmp\ 1508}#
- (apply (lambda () #{x\ 1505}#)
- #{tmp\ 1508}#)
- ((lambda (#{_\ 1509}#)
+ #{tmp\ 5043}#)))
+ ($sc-dispatch #{tmp\ 5043}# (quote (any any)))))
+ (list #{x\ 5041}# #{y\ 5042}#))))
+ (#{quasiappend\ 5038}#
+ (lambda (#{x\ 5057}# #{y\ 5058}#)
+ ((lambda (#{tmp\ 5059}#)
+ ((lambda (#{tmp\ 5060}#)
+ (if #{tmp\ 5060}#
+ (apply (lambda (#{x\ 5061}# #{y\ 5062}#)
+ ((lambda (#{tmp\ 5063}#)
+ ((lambda (#{tmp\ 5064}#)
+ (if #{tmp\ 5064}#
+ (apply (lambda () #{x\ 5061}#)
+ #{tmp\ 5064}#)
+ ((lambda (#{_\ 5065}#)
(list '#(syntax-object
append
((top)
@@ -10698,11 +10760,11 @@
(top))
#("i" "i" "i" "i")))
(hygiene guile))
- #{x\ 1505}#
- #{y\ 1506}#))
- #{tmp\ 1507}#)))
+ #{x\ 5061}#
+ #{y\ 5062}#))
+ #{tmp\ 5063}#)))
($sc-dispatch
- #{tmp\ 1507}#
+ #{tmp\ 5063}#
'(#(free-id
#(syntax-object
quote
@@ -10726,22 +10788,22 @@
#("i" "i" "i" "i")))
(hygiene guile)))
()))))
- #{y\ 1506}#))
- #{tmp\ 1504}#)
+ #{y\ 5062}#))
+ #{tmp\ 5060}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1503}#)))
- ($sc-dispatch #{tmp\ 1503}# (quote (any any)))))
- (list #{x\ 1501}# #{y\ 1502}#))))
- (#{quasivector\ 1483}#
- (lambda (#{x\ 1510}#)
- ((lambda (#{tmp\ 1511}#)
- ((lambda (#{x\ 1512}#)
- ((lambda (#{tmp\ 1513}#)
- ((lambda (#{tmp\ 1514}#)
- (if #{tmp\ 1514}#
- (apply (lambda (#{x\ 1515}#)
+ #{tmp\ 5059}#)))
+ ($sc-dispatch #{tmp\ 5059}# (quote (any any)))))
+ (list #{x\ 5057}# #{y\ 5058}#))))
+ (#{quasivector\ 5039}#
+ (lambda (#{x\ 5066}#)
+ ((lambda (#{tmp\ 5067}#)
+ ((lambda (#{x\ 5068}#)
+ ((lambda (#{tmp\ 5069}#)
+ ((lambda (#{tmp\ 5070}#)
+ (if #{tmp\ 5070}#
+ (apply (lambda (#{x\ 5071}#)
(list '#(syntax-object
quote
((top)
@@ -10767,11 +10829,11 @@
#((top) (top) (top) (top))
#("i" "i" "i" "i")))
(hygiene guile))
- (list->vector #{x\ 1515}#)))
- #{tmp\ 1514}#)
- ((lambda (#{tmp\ 1517}#)
- (if #{tmp\ 1517}#
- (apply (lambda (#{x\ 1518}#)
+ (list->vector #{x\ 5071}#)))
+ #{tmp\ 5070}#)
+ ((lambda (#{tmp\ 5073}#)
+ (if #{tmp\ 5073}#
+ (apply (lambda (#{x\ 5074}#)
(cons '#(syntax-object
vector
((top)
@@ -10800,9 +10862,9 @@
(top))
#("i" "i" "i" "i")))
(hygiene guile))
- #{x\ 1518}#))
- #{tmp\ 1517}#)
- ((lambda (#{_\ 1520}#)
+ #{x\ 5074}#))
+ #{tmp\ 5073}#)
+ ((lambda (#{_\ 5076}#)
(list '#(syntax-object
list->vector
((top)
@@ -10828,10 +10890,10 @@
#((top) (top) (top) (top))
#("i" "i" "i" "i")))
(hygiene guile))
- #{x\ 1512}#))
- #{tmp\ 1513}#)))
+ #{x\ 5068}#))
+ #{tmp\ 5069}#)))
($sc-dispatch
- #{tmp\ 1513}#
+ #{tmp\ 5069}#
'(#(free-id
#(syntax-object
list
@@ -10851,7 +10913,7 @@
.
each-any)))))
($sc-dispatch
- #{tmp\ 1513}#
+ #{tmp\ 5069}#
'(#(free-id
#(syntax-object
quote
@@ -10869,18 +10931,18 @@
#("i" "i" "i" "i")))
(hygiene guile)))
each-any))))
- #{x\ 1512}#))
- #{tmp\ 1511}#))
- #{x\ 1510}#)))
- (#{quasi\ 1484}#
- (lambda (#{p\ 1521}# #{lev\ 1522}#)
- ((lambda (#{tmp\ 1523}#)
- ((lambda (#{tmp\ 1524}#)
- (if #{tmp\ 1524}#
- (apply (lambda (#{p\ 1525}#)
- (if (= #{lev\ 1522}# 0)
- #{p\ 1525}#
- (#{quasicons\ 1481}#
+ #{x\ 5068}#))
+ #{tmp\ 5067}#))
+ #{x\ 5066}#)))
+ (#{quasi\ 5040}#
+ (lambda (#{p\ 5077}# #{lev\ 5078}#)
+ ((lambda (#{tmp\ 5079}#)
+ ((lambda (#{tmp\ 5080}#)
+ (if #{tmp\ 5080}#
+ (apply (lambda (#{p\ 5081}#)
+ (if (= #{lev\ 5078}# 0)
+ #{p\ 5081}#
+ (#{quasicons\ 5037}#
'(#(syntax-object
quote
((top)
@@ -10915,21 +10977,21 @@
#((top) (top) (top) (top))
#("i" "i" "i" "i")))
(hygiene guile)))
- (#{quasi\ 1484}#
- (list #{p\ 1525}#)
- (- #{lev\ 1522}# 1)))))
- #{tmp\ 1524}#)
- ((lambda (#{tmp\ 1526}#)
- (if (if #{tmp\ 1526}#
- (apply (lambda (#{args\ 1527}#)
- (= #{lev\ 1522}# 0))
- #{tmp\ 1526}#)
+ (#{quasi\ 5040}#
+ (list #{p\ 5081}#)
+ (- #{lev\ 5078}# 1)))))
+ #{tmp\ 5080}#)
+ ((lambda (#{tmp\ 5082}#)
+ (if (if #{tmp\ 5082}#
+ (apply (lambda (#{args\ 5083}#)
+ (= #{lev\ 5078}# 0))
+ #{tmp\ 5082}#)
#f)
- (apply (lambda (#{args\ 1528}#)
+ (apply (lambda (#{args\ 5084}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 1521}#
+ #{p\ 5077}#
(cons '#(syntax-object
unquote
((top)
@@ -10950,19 +11012,19 @@
#((top) (top) (top) (top))
#("i" "i" "i" "i")))
(hygiene guile))
- #{args\ 1528}#)))
- #{tmp\ 1526}#)
- ((lambda (#{tmp\ 1529}#)
- (if #{tmp\ 1529}#
- (apply (lambda (#{p\ 1530}# #{q\ 1531}#)
- (if (= #{lev\ 1522}# 0)
- (#{quasiappend\ 1482}#
- #{p\ 1530}#
- (#{quasi\ 1484}#
- #{q\ 1531}#
- #{lev\ 1522}#))
- (#{quasicons\ 1481}#
- (#{quasicons\ 1481}#
+ #{args\ 5084}#)))
+ #{tmp\ 5082}#)
+ ((lambda (#{tmp\ 5085}#)
+ (if #{tmp\ 5085}#
+ (apply (lambda (#{p\ 5086}# #{q\ 5087}#)
+ (if (= #{lev\ 5078}# 0)
+ (#{quasiappend\ 5038}#
+ #{p\ 5086}#
+ (#{quasi\ 5040}#
+ #{q\ 5087}#
+ #{lev\ 5078}#))
+ (#{quasicons\ 5037}#
+ (#{quasicons\ 5037}#
'(#(syntax-object
quote
((top)
@@ -11009,26 +11071,26 @@
(top))
#("i" "i" "i" "i")))
(hygiene guile)))
- (#{quasi\ 1484}#
- (list #{p\ 1530}#)
- (- #{lev\ 1522}# 1)))
- (#{quasi\ 1484}#
- #{q\ 1531}#
- #{lev\ 1522}#))))
- #{tmp\ 1529}#)
- ((lambda (#{tmp\ 1532}#)
- (if (if #{tmp\ 1532}#
- (apply (lambda (#{args\ 1533}#
- #{q\ 1534}#)
- (= #{lev\ 1522}# 0))
- #{tmp\ 1532}#)
+ (#{quasi\ 5040}#
+ (list #{p\ 5086}#)
+ (- #{lev\ 5078}# 1)))
+ (#{quasi\ 5040}#
+ #{q\ 5087}#
+ #{lev\ 5078}#))))
+ #{tmp\ 5085}#)
+ ((lambda (#{tmp\ 5088}#)
+ (if (if #{tmp\ 5088}#
+ (apply (lambda (#{args\ 5089}#
+ #{q\ 5090}#)
+ (= #{lev\ 5078}# 0))
+ #{tmp\ 5088}#)
#f)
- (apply (lambda (#{args\ 1535}#
- #{q\ 1536}#)
+ (apply (lambda (#{args\ 5091}#
+ #{q\ 5092}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes
exactly one argument"
- #{p\ 1521}#
+ #{p\ 5077}#
(cons '#(syntax-object
unquote-splicing
((top)
@@ -11058,12 +11120,12 @@
"i"
"i")))
(hygiene guile))
- #{args\ 1535}#)))
- #{tmp\ 1532}#)
- ((lambda (#{tmp\ 1537}#)
- (if #{tmp\ 1537}#
- (apply (lambda (#{p\ 1538}#)
- (#{quasicons\ 1481}#
+ #{args\ 5091}#)))
+ #{tmp\ 5088}#)
+ ((lambda (#{tmp\ 5093}#)
+ (if #{tmp\ 5093}#
+ (apply (lambda (#{p\ 5094}#)
+ (#{quasicons\ 5037}#
'(#(syntax-object
quote
((top)
@@ -11122,32 +11184,32 @@
"i"
"i")))
(hygiene guile)))
- (#{quasi\ 1484}#
- (list #{p\ 1538}#)
- (+ #{lev\ 1522}#
+ (#{quasi\ 5040}#
+ (list #{p\ 5094}#)
+ (+ #{lev\ 5078}#
1))))
- #{tmp\ 1537}#)
- ((lambda (#{tmp\ 1539}#)
- (if #{tmp\ 1539}#
- (apply (lambda (#{p\ 1540}#
- #{q\ 1541}#)
- (#{quasicons\ 1481}#
- (#{quasi\ 1484}#
- #{p\ 1540}#
- #{lev\ 1522}#)
- (#{quasi\ 1484}#
- #{q\ 1541}#
- #{lev\ 1522}#)))
- #{tmp\ 1539}#)
- ((lambda (#{tmp\ 1542}#)
- (if #{tmp\ 1542}#
- (apply (lambda (#{x\
1543}#)
-
(#{quasivector\ 1483}#
- (#{quasi\
1484}#
- #{x\ 1543}#
- #{lev\
1522}#)))
- #{tmp\ 1542}#)
- ((lambda (#{p\ 1545}#)
+ #{tmp\ 5093}#)
+ ((lambda (#{tmp\ 5095}#)
+ (if #{tmp\ 5095}#
+ (apply (lambda (#{p\ 5096}#
+ #{q\ 5097}#)
+ (#{quasicons\ 5037}#
+ (#{quasi\ 5040}#
+ #{p\ 5096}#
+ #{lev\ 5078}#)
+ (#{quasi\ 5040}#
+ #{q\ 5097}#
+ #{lev\ 5078}#)))
+ #{tmp\ 5095}#)
+ ((lambda (#{tmp\ 5098}#)
+ (if #{tmp\ 5098}#
+ (apply (lambda (#{x\
5099}#)
+
(#{quasivector\ 5039}#
+ (#{quasi\
5040}#
+ #{x\ 5099}#
+ #{lev\
5078}#)))
+ #{tmp\ 5098}#)
+ ((lambda (#{p\ 5101}#)
(list
'#(syntax-object
quote
((top)
@@ -11180,16 +11242,16 @@
"i")))
(hygiene
guile))
- #{p\ 1545}#))
- #{tmp\ 1523}#)))
+ #{p\ 5101}#))
+ #{tmp\ 5079}#)))
($sc-dispatch
- #{tmp\ 1523}#
+ #{tmp\ 5079}#
'#(vector each-any)))))
($sc-dispatch
- #{tmp\ 1523}#
+ #{tmp\ 5079}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1523}#
+ #{tmp\ 5079}#
'(#(free-id
#(syntax-object
quasiquote
@@ -11209,7 +11271,7 @@
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 1523}#
+ #{tmp\ 5079}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -11232,7 +11294,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 1523}#
+ #{tmp\ 5079}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -11254,7 +11316,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 1523}#
+ #{tmp\ 5079}#
'(#(free-id
#(syntax-object
unquote
@@ -11272,7 +11334,7 @@
.
any)))))
($sc-dispatch
- #{tmp\ 1523}#
+ #{tmp\ 5079}#
'(#(free-id
#(syntax-object
unquote
@@ -11285,49 +11347,49 @@
#("i" "i" "i" "i")))
(hygiene guile)))
any))))
- #{p\ 1521}#))))
- (lambda (#{x\ 1546}#)
- ((lambda (#{tmp\ 1547}#)
- ((lambda (#{tmp\ 1548}#)
- (if #{tmp\ 1548}#
- (apply (lambda (#{_\ 1549}# #{e\ 1550}#)
- (#{quasi\ 1484}# #{e\ 1550}# 0))
- #{tmp\ 1548}#)
+ #{p\ 5077}#))))
+ (lambda (#{x\ 5102}#)
+ ((lambda (#{tmp\ 5103}#)
+ ((lambda (#{tmp\ 5104}#)
+ (if #{tmp\ 5104}#
+ (apply (lambda (#{_\ 5105}# #{e\ 5106}#)
+ (#{quasi\ 5040}# #{e\ 5106}# 0))
+ #{tmp\ 5104}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1547}#)))
- ($sc-dispatch #{tmp\ 1547}# (quote (any any)))))
- #{x\ 1546}#)))))
+ #{tmp\ 5103}#)))
+ ($sc-dispatch #{tmp\ 5103}# (quote (any any)))))
+ #{x\ 5102}#)))))
(define include
(make-syncase-macro
'macro
- (lambda (#{x\ 1551}#)
- (letrec ((#{read-file\ 1552}#
- (lambda (#{fn\ 1553}# #{k\ 1554}#)
- (let ((#{p\ 1555}# (open-input-file #{fn\ 1553}#)))
- (letrec ((#{f\ 1556}#
- (lambda (#{x\ 1557}#)
- (if (eof-object? #{x\ 1557}#)
+ (lambda (#{x\ 5107}#)
+ (letrec ((#{read-file\ 5108}#
+ (lambda (#{fn\ 5109}# #{k\ 5110}#)
+ (let ((#{p\ 5111}# (open-input-file #{fn\ 5109}#)))
+ (letrec ((#{f\ 5112}#
+ (lambda (#{x\ 5113}#)
+ (if (eof-object? #{x\ 5113}#)
(begin
- (close-input-port #{p\ 1555}#)
+ (close-input-port #{p\ 5111}#)
'())
(cons (datum->syntax
- #{k\ 1554}#
- #{x\ 1557}#)
- (#{f\ 1556}# (read #{p\ 1555}#)))))))
- (#{f\ 1556}# (read #{p\ 1555}#)))))))
- ((lambda (#{tmp\ 1558}#)
- ((lambda (#{tmp\ 1559}#)
- (if #{tmp\ 1559}#
- (apply (lambda (#{k\ 1560}# #{filename\ 1561}#)
- (let ((#{fn\ 1562}#
- (syntax->datum #{filename\ 1561}#)))
- ((lambda (#{tmp\ 1563}#)
- ((lambda (#{tmp\ 1564}#)
- (if #{tmp\ 1564}#
- (apply (lambda (#{exp\ 1565}#)
+ #{k\ 5110}#
+ #{x\ 5113}#)
+ (#{f\ 5112}# (read #{p\ 5111}#)))))))
+ (#{f\ 5112}# (read #{p\ 5111}#)))))))
+ ((lambda (#{tmp\ 5114}#)
+ ((lambda (#{tmp\ 5115}#)
+ (if #{tmp\ 5115}#
+ (apply (lambda (#{k\ 5116}# #{filename\ 5117}#)
+ (let ((#{fn\ 5118}#
+ (syntax->datum #{filename\ 5117}#)))
+ ((lambda (#{tmp\ 5119}#)
+ ((lambda (#{tmp\ 5120}#)
+ (if #{tmp\ 5120}#
+ (apply (lambda (#{exp\ 5121}#)
(cons '#(syntax-object
begin
((top)
@@ -11354,76 +11416,76 @@
#((top))
#("i")))
(hygiene guile))
- #{exp\ 1565}#))
- #{tmp\ 1564}#)
+ #{exp\ 5121}#))
+ #{tmp\ 5120}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp\ 1563}#)))
- ($sc-dispatch #{tmp\ 1563}# (quote each-any))))
- (#{read-file\ 1552}# #{fn\ 1562}# #{k\ 1560}#))))
- #{tmp\ 1559}#)
+ #{tmp\ 5119}#)))
+ ($sc-dispatch #{tmp\ 5119}# (quote each-any))))
+ (#{read-file\ 5108}# #{fn\ 5118}# #{k\ 5116}#))))
+ #{tmp\ 5115}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1558}#)))
- ($sc-dispatch #{tmp\ 1558}# (quote (any any)))))
- #{x\ 1551}#)))))
+ #{tmp\ 5114}#)))
+ ($sc-dispatch #{tmp\ 5114}# (quote (any any)))))
+ #{x\ 5107}#)))))
(define unquote
(make-syncase-macro
'macro
- (lambda (#{x\ 1567}#)
- ((lambda (#{tmp\ 1568}#)
- ((lambda (#{tmp\ 1569}#)
- (if #{tmp\ 1569}#
- (apply (lambda (#{_\ 1570}# #{e\ 1571}#)
+ (lambda (#{x\ 5123}#)
+ ((lambda (#{tmp\ 5124}#)
+ ((lambda (#{tmp\ 5125}#)
+ (if #{tmp\ 5125}#
+ (apply (lambda (#{_\ 5126}# #{e\ 5127}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 1567}#))
- #{tmp\ 1569}#)
+ #{x\ 5123}#))
+ #{tmp\ 5125}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1568}#)))
- ($sc-dispatch #{tmp\ 1568}# (quote (any any)))))
- #{x\ 1567}#))))
+ #{tmp\ 5124}#)))
+ ($sc-dispatch #{tmp\ 5124}# (quote (any any)))))
+ #{x\ 5123}#))))
(define unquote-splicing
(make-syncase-macro
'macro
- (lambda (#{x\ 1572}#)
- ((lambda (#{tmp\ 1573}#)
- ((lambda (#{tmp\ 1574}#)
- (if #{tmp\ 1574}#
- (apply (lambda (#{_\ 1575}# #{e\ 1576}#)
+ (lambda (#{x\ 5128}#)
+ ((lambda (#{tmp\ 5129}#)
+ ((lambda (#{tmp\ 5130}#)
+ (if #{tmp\ 5130}#
+ (apply (lambda (#{_\ 5131}# #{e\ 5132}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 1572}#))
- #{tmp\ 1574}#)
+ #{x\ 5128}#))
+ #{tmp\ 5130}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1573}#)))
- ($sc-dispatch #{tmp\ 1573}# (quote (any any)))))
- #{x\ 1572}#))))
+ #{tmp\ 5129}#)))
+ ($sc-dispatch #{tmp\ 5129}# (quote (any any)))))
+ #{x\ 5128}#))))
(define case
(make-extended-syncase-macro
(module-ref (current-module) (quote case))
'macro
- (lambda (#{x\ 1577}#)
- ((lambda (#{tmp\ 1578}#)
- ((lambda (#{tmp\ 1579}#)
- (if #{tmp\ 1579}#
- (apply (lambda (#{_\ 1580}#
- #{e\ 1581}#
- #{m1\ 1582}#
- #{m2\ 1583}#)
- ((lambda (#{tmp\ 1584}#)
- ((lambda (#{body\ 1585}#)
+ (lambda (#{x\ 5133}#)
+ ((lambda (#{tmp\ 5134}#)
+ ((lambda (#{tmp\ 5135}#)
+ (if #{tmp\ 5135}#
+ (apply (lambda (#{_\ 5136}#
+ #{e\ 5137}#
+ #{m1\ 5138}#
+ #{m2\ 5139}#)
+ ((lambda (#{tmp\ 5140}#)
+ ((lambda (#{body\ 5141}#)
(list '#(syntax-object
let
((top)
@@ -11452,17 +11514,17 @@
#((top))
#("i")))
(hygiene guile))
- #{e\ 1581}#))
- #{body\ 1585}#))
- #{tmp\ 1584}#))
- (letrec ((#{f\ 1586}#
- (lambda (#{clause\ 1587}# #{clauses\ 1588}#)
- (if (null? #{clauses\ 1588}#)
- ((lambda (#{tmp\ 1590}#)
- ((lambda (#{tmp\ 1591}#)
- (if #{tmp\ 1591}#
- (apply (lambda (#{e1\ 1592}#
- #{e2\ 1593}#)
+ #{e\ 5137}#))
+ #{body\ 5141}#))
+ #{tmp\ 5140}#))
+ (letrec ((#{f\ 5142}#
+ (lambda (#{clause\ 5143}# #{clauses\ 5144}#)
+ (if (null? #{clauses\ 5144}#)
+ ((lambda (#{tmp\ 5146}#)
+ ((lambda (#{tmp\ 5147}#)
+ (if #{tmp\ 5147}#
+ (apply (lambda (#{e1\ 5148}#
+ #{e2\ 5149}#)
(cons '#(syntax-object
begin
((top)
@@ -11508,14 +11570,14 @@
#("i")))
(hygiene
guile))
- (cons #{e1\
1592}#
- #{e2\
1593}#)))
- #{tmp\ 1591}#)
- ((lambda (#{tmp\ 1595}#)
- (if #{tmp\ 1595}#
- (apply (lambda (#{k\ 1596}#
- #{e1\
1597}#
- #{e2\
1598}#)
+ (cons #{e1\
5148}#
+ #{e2\
5149}#)))
+ #{tmp\ 5147}#)
+ ((lambda (#{tmp\ 5151}#)
+ (if #{tmp\ 5151}#
+ (apply (lambda (#{k\ 5152}#
+ #{e1\
5153}#
+ #{e2\
5154}#)
(list
'#(syntax-object
if
((top)
@@ -11716,7 +11778,7 @@
#("i")))
(hygiene
guile))
-
#{k\ 1596}#))
+
#{k\ 5152}#))
(cons
'#(syntax-object
begin
((top)
@@ -11767,24 +11829,24 @@
#("i")))
(hygiene
guile))
- (cons
#{e1\ 1597}#
-
#{e2\ 1598}#))))
- #{tmp\ 1595}#)
- ((lambda (#{_\ 1601}#)
+ (cons
#{e1\ 5153}#
+
#{e2\ 5154}#))))
+ #{tmp\ 5151}#)
+ ((lambda (#{_\ 5157}#)
(syntax-violation
'case
"bad clause"
- #{x\ 1577}#
- #{clause\ 1587}#))
- #{tmp\ 1590}#)))
+ #{x\ 5133}#
+ #{clause\ 5143}#))
+ #{tmp\ 5146}#)))
($sc-dispatch
- #{tmp\ 1590}#
+ #{tmp\ 5146}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 1590}#
+ #{tmp\ 5146}#
'(#(free-id
#(syntax-object
else
@@ -11810,15 +11872,15 @@
any
.
each-any))))
- #{clause\ 1587}#)
- ((lambda (#{tmp\ 1602}#)
- ((lambda (#{rest\ 1603}#)
- ((lambda (#{tmp\ 1604}#)
- ((lambda (#{tmp\ 1605}#)
- (if #{tmp\ 1605}#
- (apply (lambda (#{k\
1606}#
- #{e1\
1607}#
- #{e2\
1608}#)
+ #{clause\ 5143}#)
+ ((lambda (#{tmp\ 5158}#)
+ ((lambda (#{rest\ 5159}#)
+ ((lambda (#{tmp\ 5160}#)
+ ((lambda (#{tmp\ 5161}#)
+ (if #{tmp\ 5161}#
+ (apply (lambda (#{k\
5162}#
+ #{e1\
5163}#
+ #{e2\
5164}#)
(list
'#(syntax-object
if
((top)
@@ -12035,7 +12097,7 @@
#("i")))
(hygiene
guile))
-
#{k\ 1606}#))
+
#{k\ 5162}#))
(cons
'#(syntax-object
begin
((top)
@@ -12090,47 +12152,47 @@
#("i")))
(hygiene
guile))
-
(cons #{e1\ 1607}#
-
#{e2\ 1608}#))
- #{rest\
1603}#))
- #{tmp\ 1605}#)
- ((lambda (#{_\ 1611}#)
+
(cons #{e1\ 5163}#
+
#{e2\ 5164}#))
+ #{rest\
5159}#))
+ #{tmp\ 5161}#)
+ ((lambda (#{_\ 5167}#)
(syntax-violation
'case
"bad clause"
- #{x\ 1577}#
- #{clause\ 1587}#))
- #{tmp\ 1604}#)))
+ #{x\ 5133}#
+ #{clause\ 5143}#))
+ #{tmp\ 5160}#)))
($sc-dispatch
- #{tmp\ 1604}#
+ #{tmp\ 5160}#
'(each-any
any
.
each-any))))
- #{clause\ 1587}#))
- #{tmp\ 1602}#))
- (#{f\ 1586}#
- (car #{clauses\ 1588}#)
- (cdr #{clauses\ 1588}#)))))))
- (#{f\ 1586}# #{m1\ 1582}# #{m2\ 1583}#))))
- #{tmp\ 1579}#)
+ #{clause\ 5143}#))
+ #{tmp\ 5158}#))
+ (#{f\ 5142}#
+ (car #{clauses\ 5144}#)
+ (cdr #{clauses\ 5144}#)))))))
+ (#{f\ 5142}# #{m1\ 5138}# #{m2\ 5139}#))))
+ #{tmp\ 5135}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1578}#)))
+ #{tmp\ 5134}#)))
($sc-dispatch
- #{tmp\ 1578}#
+ #{tmp\ 5134}#
'(any any any . each-any))))
- #{x\ 1577}#))))
+ #{x\ 5133}#))))
(define identifier-syntax
(make-syncase-macro
'macro
- (lambda (#{x\ 1612}#)
- ((lambda (#{tmp\ 1613}#)
- ((lambda (#{tmp\ 1614}#)
- (if #{tmp\ 1614}#
- (apply (lambda (#{_\ 1615}# #{e\ 1616}#)
+ (lambda (#{x\ 5168}#)
+ ((lambda (#{tmp\ 5169}#)
+ ((lambda (#{tmp\ 5170}#)
+ (if #{tmp\ 5170}#
+ (apply (lambda (#{_\ 5171}# #{e\ 5172}#)
(list '#(syntax-object
lambda
((top)
@@ -12219,8 +12281,8 @@
#((top))
#("i")))
(hygiene guile))
- #{e\ 1616}#))
- (list (cons #{_\ 1615}#
+ #{e\ 5172}#))
+ (list (cons #{_\ 5171}#
'(#(syntax-object
x
((top)
@@ -12260,7 +12322,7 @@
#((top))
#("i")))
(hygiene guile))
- (cons #{e\ 1616}#
+ (cons #{e\ 5172}#
'(#(syntax-object
x
((top)
@@ -12288,11 +12350,11 @@
#("i")))
(hygiene
guile)))))))))
- #{tmp\ 1614}#)
+ #{tmp\ 5170}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1613}#)))
- ($sc-dispatch #{tmp\ 1613}# (quote (any any)))))
- #{x\ 1612}#))))
+ #{tmp\ 5169}#)))
+ ($sc-dispatch #{tmp\ 5169}# (quote (any any)))))
+ #{x\ 5168}#))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index c7b2263..62ea24a 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -482,26 +482,64 @@
src)))))
(define build-lambda-case
- ;; kw: ((keyword var init) ...)
+ ;; req := (name ...)
+ ;; opt := ((name init) ...) | #f
+ ;; rest := name | #f
+ ;; kw: (allow-other-keys? (keyword name var [init]) ...) | #f
+ ;; vars: (sym ...)
+ ;; vars map to named arguments in the following order:
+ ;; required, optional (positional), rest, keyword.
+ ;; predicate: something you can stuff in a (lambda ,vars ,pred), already
expanded
+ ;; the body of a lambda: anything, already expanded
+ ;; else: lambda-case | #f
(lambda (src req opt rest kw vars predicate body else-case)
(case (fluid-ref *mode*)
((c)
((@ (language tree-il) make-lambda-case)
src req opt rest kw vars predicate body else-case))
(else
- (let ((nkw (map (lambda (x)
- `(list ,(car x)
- ;; grr
- ,(let lp ((vars vars) (i 0))
- (cond ((null? vars) (error "bad kwarg" x))
- ((eq? (cadr x) (car vars)) i)
- (else (lp (cdr vars) (1+ i)))))
- (lambda () ,(caddr x))))
- kw)))
+ ;; Very much like the logic of (language tree-il compile-glil).
+ (let* ((nreq (length req))
+ (nopt (if opt (length opt) 0))
+ (rest-idx (and rest (+ nreq nopt)))
+ (opt-inits (map (lambda (x) `(lambda ,vars ,(cdr x)))
+ (or opt '())))
+ (allow-other-keys? (if kw (car kw) #f))
+ (kw-indices (map (lambda (x)
+ ;; (,key ,name ,var . _)
+ (cons (car x) (list-index vars (caddr x))))
+ (if kw (cdr kw) '())))
+ (kw-inits (sort
+ (filter
+ identity
+ (map (lambda (x)
+ (if (pair? (cdddr x))
+ ;; (,key ,name ,var ,init)
+ (let ((i (list-index vars (caddr x))))
+ (if (> (+ nreq nopt) i)
+ (error "kw init for rest arg" x)
+ (if (and rest (= (+ nreq nopt) i))
+ (error "kw init for positional
arg" x)
+ `(lambda ,vars ,(cadddr x)))))
+ ;; (,key ,name ,var)
+ (let ((i (list-index vars (caddr x))))
+ (if (< (+ nreq nopt) i)
+ #f
+ (error "missing init for kw arg"
x)))))
+ (if kw (cdr kw) '())))
+ (lambda (x y) (< (cdr x) (cdr y)))))
+ (nargs (apply max (pk (+ nreq nopt (if rest 1 0)))
+ (map cdr kw-indices))))
+ (or (= nargs
+ (length vars)
+ (+ nreq (length opt-inits) (if rest 1 0) (length kw-inits)))
+ (error "something went wrong"
+ req opt rest kw vars nreq nopt kw-indices kw-inits nargs))
(decorate-source
`((((@@ (ice-9 optargs) parse-lambda-case)
- (list ,(length req) ,(length opt) ,(and rest #t) ,nkw
- ,(if predicate (error "not yet implemented") #f))
+ '(,nreq ,nopt ,rest-idx ,nargs ,allow-other-keys? ,kw-indices)
+ (list ,@opt-inits ,@kw-inits)
+ ,(if predicate `(lambda ,vars ,predicate) #f)
%%args)
=> (lambda ,vars ,body))
,@(or else-case
diff --git a/module/language/glil.scm b/module/language/glil.scm
index 0f0e9b0..b7b3fb7 100644
--- a/module/language/glil.scm
+++ b/module/language/glil.scm
@@ -30,12 +30,12 @@
glil-std-prelude-nreq glil-std-prelude-nlocs glil-std-prelude-else-label
<glil-opt-prelude> make-glil-opt-prelude glil-opt-prelude?
- glil-opt-prelude-nreq glil-opt-prelude-nopt glil-opt-prelude-rest?
+ glil-opt-prelude-nreq glil-opt-prelude-nopt glil-opt-prelude-rest
glil-opt-prelude-nlocs glil-opt-prelude-else-label
<glil-kw-prelude> make-glil-kw-prelude glil-kw-prelude?
glil-kw-prelude-nreq glil-kw-prelude-nopt glil-kw-prelude-kw
- glil-kw-prelude-allow-other-keys? glil-kw-prelude-rest?
+ glil-kw-prelude-allow-other-keys? glil-kw-prelude-rest
glil-kw-prelude-nlocs glil-kw-prelude-else-label
<glil-bind> make-glil-bind glil-bind?
@@ -84,8 +84,8 @@
;; Meta operations
(<glil-program> meta body)
(<glil-std-prelude> nreq nlocs else-label)
- (<glil-opt-prelude> nreq nopt rest? nlocs else-label)
- (<glil-kw-prelude> nreq nopt rest? kw allow-other-keys? nlocs else-label)
+ (<glil-opt-prelude> nreq nopt rest nlocs else-label)
+ (<glil-kw-prelude> nreq nopt rest kw allow-other-keys? nlocs else-label)
(<glil-bind> vars)
(<glil-mv-bind> vars rest)
(<glil-unbind>)
@@ -111,10 +111,10 @@
(make-glil-program meta (map parse-glil body)))
((std-prelude ,nreq ,nlocs ,else-label)
(make-glil-std-prelude nreq nlocs else-label))
- ((opt-prelude ,nreq ,nopt ,rest? ,nlocs ,else-label)
- (make-glil-opt-prelude nreq nopt rest? nlocs else-label))
- ((kw-prelude ,nreq ,nopt ,rest? ,kw ,allow-other-keys? ,nlocs ,else-label)
- (make-glil-kw-prelude nreq nopt rest? kw allow-other-keys? nlocs
else-label))
+ ((opt-prelude ,nreq ,nopt ,rest ,nlocs ,else-label)
+ (make-glil-opt-prelude nreq nopt rest nlocs else-label))
+ ((kw-prelude ,nreq ,nopt ,rest ,kw ,allow-other-keys? ,nlocs ,else-label)
+ (make-glil-kw-prelude nreq nopt rest kw allow-other-keys? nlocs
else-label))
((bind . ,vars) (make-glil-bind vars))
((mv-bind ,vars ,rest) (make-glil-mv-bind vars rest))
((unbind) (make-glil-unbind))
@@ -138,10 +138,10 @@
`(program ,meta ,@(map unparse-glil body)))
((<glil-std-prelude> nreq nlocs else-label)
`(std-prelude ,nreq ,nlocs ,else-label))
- ((<glil-opt-prelude> nreq nopt rest? nlocs else-label)
- `(opt-prelude ,nreq ,nopt ,rest? ,nlocs ,else-label))
- ((<glil-kw-prelude> nreq nopt rest? kw allow-other-keys? nlocs else-label)
- `(kw-prelude ,nreq ,nopt ,rest? ,kw ,allow-other-keys? ,nlocs
,else-label))
+ ((<glil-opt-prelude> nreq nopt rest nlocs else-label)
+ `(opt-prelude ,nreq ,nopt ,rest ,nlocs ,else-label))
+ ((<glil-kw-prelude> nreq nopt rest kw allow-other-keys? nlocs else-label)
+ `(kw-prelude ,nreq ,nopt ,rest ,kw ,allow-other-keys? ,nlocs ,else-label))
((<glil-bind> vars) `(bind ,@vars))
((<glil-mv-bind> vars rest) `(mv-bind ,vars ,rest))
((<glil-unbind>) `(unbind))
diff --git a/module/language/glil/compile-assembly.scm
b/module/language/glil/compile-assembly.scm
index 7069522..07c9b36 100644
--- a/module/language/glil/compile-assembly.scm
+++ b/module/language/glil/compile-assembly.scm
@@ -134,12 +134,12 @@
(and (not (null? objects))
(list->vector (cons #f objects))))
-;; arities := ((ip nreq [[nopt] [[rest?] [kw]]]]) ...)
-(define (begin-arity addr nreq nopt rest? kw arities)
+;; arities := ((ip nreq [[nopt] [[rest] [kw]]]]) ...)
+(define (begin-arity addr nreq nopt rest kw arities)
(cons
(cond
- (kw (list addr nreq nopt rest? kw))
- (rest? (list addr nreq nopt rest?))
+ (kw (list addr nreq nopt rest kw))
+ (rest (list addr nreq nopt rest))
(nopt (list addr nreq nopt))
(nreq (list addr nreq))
(else (list addr)))
@@ -151,9 +151,9 @@
(values x bindings source-alist label-alist object-alist arities))
(define (emit-code/object x object-alist)
(values x bindings source-alist label-alist object-alist arities))
- (define (emit-code/arity x nreq nopt rest? kw)
+ (define (emit-code/arity x nreq nopt rest kw)
(values x bindings source-alist label-alist object-alist
- (begin-arity (addr+ addr x) nreq nopt rest? kw arities)))
+ (begin-arity (addr+ addr x) nreq nopt rest kw arities)))
(record-case glil
((<glil-program> meta body)
@@ -230,7 +230,7 @@
,(modulo nlocs 256)))
nreq #f #f #f))
- ((<glil-opt-prelude> nreq nopt rest? nlocs else-label)
+ ((<glil-opt-prelude> nreq nopt rest nlocs else-label)
(let ((bind-required
(if else-label
`((br-if-nargs-lt ,(quotient nreq 256)
@@ -245,8 +245,8 @@
,(modulo (+ nreq nopt) 256)))))
(bind-rest
(cond
- (rest?
- `((bind-rest ,(quotient (+ nreq nopt) 256)
+ (rest
+ `((push-rest ,(quotient (+ nreq nopt) 256)
,(modulo (+ nreq nopt) 256))))
(else
(if else-label
@@ -261,9 +261,9 @@
,@bind-rest
(reserve-locals ,(quotient nlocs 256)
,(modulo nlocs 256)))
- nreq nopt rest? #f)))
+ nreq nopt rest #f)))
- ((<glil-kw-prelude> nreq nopt rest? kw allow-other-keys? nlocs else-label)
+ ((<glil-kw-prelude> nreq nopt rest kw allow-other-keys? nlocs else-label)
(receive (kw-idx object-alist)
(object-index-and-alist object-alist kw)
(let ((bind-required
@@ -293,9 +293,11 @@
,(modulo (apply max (+ nreq nopt) (map cdr kw)) 256)
,(if allow-other-keys? 1 0))))
(bind-rest
- (if rest?
+ (if rest
`((bind-rest ,(quotient (apply max (+ nreq nopt) (map cdr
kw)) 256)
- ,(modulo (apply max (+ nreq nopt) (map cdr kw))
256)))
+ ,(modulo (apply max (+ nreq nopt) (map cdr kw))
256)
+ ,(quotient rest 256)
+ ,(modulo rest 256)))
'())))
(let ((code `(,@bind-required
@@ -305,7 +307,7 @@
(reserve-locals ,(quotient nlocs 256)
,(modulo nlocs 256)))))
(values code bindings source-alist label-alist object-alist
- (begin-arity (addr+ addr code) nreq nopt rest? kw
arities))))))
+ (begin-arity (addr+ addr code) nreq nopt rest kw
arities))))))
((<glil-bind> vars)
(values '()
diff --git a/module/language/tree-il/compile-glil.scm
b/module/language/tree-il/compile-glil.scm
index 9a16f0c..ae44ee6 100644
--- a/module/language/tree-il/compile-glil.scm
+++ b/module/language/tree-il/compile-glil.scm
@@ -600,32 +600,65 @@
(maybe-emit-return))
((<lambda-case> src req opt rest kw vars predicate else body)
- (let ((nlocs (cdr (hashq-ref allocation x)))
- (else-label (and else (make-label))))
+ ;; o/~ feature on top of feature o/~
+ ;; req := (name ...)
+ ;; opt := ((name init) ...) | #f
+ ;; rest := name | #f
+ ;; kw: (allow-other-keys? (keyword name var [init]) ...) | #f
+ ;; vars: (sym ...)
+ ;; predicate: tree-il in context of vars
+ ;; init: tree-il in context of vars
+ ;; vars map to named arguments in the following order:
+ ;; required, optional (positional), rest, keyword.
+ (let* ((nreq (length req))
+ (nopt (if opt (length opt) 0))
+ (rest-idx (and rest (+ nreq nopt)))
+ (opt-inits (map cdr (or opt '())))
+ (allow-other-keys? (if kw (car kw) #f))
+ (kw-indices (map (lambda (x)
+ (pmatch x
+ ((,key ,name ,var . _)
+ (cons key (list-index vars var)))
+ (else (error "bad kwarg" x))))
+ (if kw (cdr kw) '())))
+ (kw-inits (filter
+ identity
+ (map (lambda (x)
+ (pmatch x
+ ((,key ,name ,var ,init)
+ (let ((i (list-index vars var)))
+ (if (> (+ nreq nopt) i)
+ (error "kw init for rest arg" x)
+ (if (and rest (= rest-idx i))
+ (error "kw init for positional
arg" x)
+ (cons i init)))))
+ ((,key ,name ,var)
+ (let ((i (list-index vars var)))
+ (if (< (+ nreq nopt) i)
+ #f
+ (error "missing init for kw arg" x))))
+ (else (error "bad kwarg" x))))
+ (if kw (cdr kw) '()))))
+ (nargs (apply max (+ nreq nopt (if rest 1 0)) (map cdr
kw-indices)))
+ (nlocs (cdr (hashq-ref allocation x)))
+ (else-label (and else (make-label))))
+ (or (= nargs
+ (length vars)
+ (+ nreq (length opt-inits) (if rest 1 0) (length kw-inits)))
+ (error "something went wrong"
+ req opt rest kw vars nreq nopt kw-indices kw-inits nargs))
;; the prelude, to check args & reset the stack pointer,
;; allowing room for locals
(emit-code
src
(cond
- ;; kw := (allow-other-keys? (#:key name var) ...)
(kw
- (make-glil-kw-prelude
- (length req) (length (or opt '())) (and rest #t)
- (map (lambda (x)
- (pmatch x
- ((,key ,name ,var)
- (cons key
- (pmatch (hashq-ref (hashq-ref allocation var)
self)
- ((#t ,boxed . ,n) n)
- (,a (error "bad keyword allocation" x a)))))
- (,x (error "bad keyword" x))))
- (cdr kw))
- (car kw) nlocs else-label))
+ (make-glil-kw-prelude nreq nopt rest-idx kw-indices
+ allow-other-keys? nlocs else-label))
((or rest opt)
- (make-glil-opt-prelude
- (length req) (length (or opt '())) (and rest #t) nlocs
else-label))
+ (make-glil-opt-prelude nreq nopt rest-idx nlocs else-label))
(#t
- (make-glil-std-prelude (length req) nlocs else-label))))
+ (make-glil-std-prelude nreq nlocs else-label))))
;; box args if necessary
(for-each
(lambda (v)
@@ -641,11 +674,12 @@
(let lp ((kw (if kw (cdr kw) '()))
(names (append (if opt (reverse opt) '())
(reverse req)))
- (vars (list-tail vars (+ (length req)
- (if opt (length opt) 0)
+ (vars (list-tail vars (+ nreq nopt
(if rest 1 0)))))
(pmatch kw
- (() (reverse (if rest (cons rest names) names)))
+ (()
+ ;; fixme: check that vars is empty
+ (reverse (if rest (cons rest names) names)))
(((,key ,name ,var) . ,kw)
(if (memq var vars)
(lp kw (cons name names) (delq var vars))
diff --git a/test-suite/tests/tree-il.test b/test-suite/tests/tree-il.test
index c25c844..d6e8468 100644
--- a/test-suite/tests/tree-il.test
+++ b/test-suite/tests/tree-il.test
@@ -349,7 +349,7 @@
(lambda-case ((() #f x #f (y) #f) (const 2))
#f))
(program () (std-prelude 0 0 #f) (label _)
- (program () (opt-prelude 0 0 #t 1 #f)
+ (program () (opt-prelude 0 0 0 1 #f)
(bind (x #f 0)) (label _)
(const 2) (call return 1)
(unbind))
@@ -360,7 +360,7 @@
(lambda-case (((x) #f x1 #f (y y1) #f) (const 2))
#f))
(program () (std-prelude 0 0 #f) (label _)
- (program () (opt-prelude 1 0 #t 2 #f)
+ (program () (opt-prelude 1 0 1 2 #f)
(bind (x #f 0) (x1 #f 1)) (label _)
(const 2) (call return 1)
(unbind))
@@ -371,7 +371,7 @@
(lambda-case (((x) #f x1 #f (y y1) #f) (lexical x y))
#f))
(program () (std-prelude 0 0 #f) (label _)
- (program () (opt-prelude 1 0 #t 2 #f)
+ (program () (opt-prelude 1 0 1 2 #f)
(bind (x #f 0) (x1 #f 1)) (label _)
(lexical #t #f ref 0) (call return 1)
(unbind))
@@ -382,7 +382,7 @@
(lambda-case (((x) #f x1 #f (y y1) #f) (lexical x1 y1))
#f))
(program () (std-prelude 0 0 #f) (label _)
- (program () (opt-prelude 1 0 #t 2 #f)
+ (program () (opt-prelude 1 0 1 2 #f)
(bind (x #f 0) (x1 #f 1)) (label _)
(lexical #t #f ref 1) (call return 1)
(unbind))
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, wip-case-lambda, updated. release_1-9-4-19-gca1b0f7,
Andy Wingo <=