[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, master, updated. v2.1.0-85-g148dfc2
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, master, updated. v2.1.0-85-g148dfc2 |
Date: |
Fri, 28 Oct 2011 14:12:40 +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=148dfc2409786996834f6ee1d0fdda563db182c0
The branch, master has been updated
via 148dfc2409786996834f6ee1d0fdda563db182c0 (commit)
via dd64fe65fd3b93b469d6286df3dd135aaec6756e (commit)
via d5a4f51f9ccffe6b7850d276e23de2841c1a88b3 (commit)
via ba9f9f0d639ee5063c5f28a1e9c571d3b498dcff (commit)
via f00a9574998521bd7d6d5caccba7c4e5c1b77878 (commit)
from 175955725e1ba58a591bd07123dd60700a8ccd20 (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 148dfc2409786996834f6ee1d0fdda563db182c0
Author: Andy Wingo <address@hidden>
Date: Fri Oct 28 12:14:00 2011 +0200
refactor chi-top-sequence
* module/ice-9/psyntax.scm (chi-top-sequence): Refactor slightly.
* module/ice-9/psyntax-pp.scm: Regenerate.
commit dd64fe65fd3b93b469d6286df3dd135aaec6756e
Author: Andy Wingo <address@hidden>
Date: Fri Oct 28 11:41:08 2011 +0200
regenerate psyntax-pp
* module/ice-9/psyntax-pp.scm: Regenerate.
commit d5a4f51f9ccffe6b7850d276e23de2841c1a88b3
Author: Andy Wingo <address@hidden>
Date: Fri Oct 28 11:38:56 2011 +0200
add string-length, string-ref, vector-length instructions
* libguile/_scm.h (SCM_OBJCODE_MAJOR_VERSION): Bump the major version,
indicating the first incompatibility between 2.0 and 2.2.
* libguile/vm-i-scheme.c (string-length, string-ref, vector-length): New
instructions.
* module/language/tree-il/compile-glil.scm (*primcall-ops*): Add
primcall ops for the new instructions.
commit ba9f9f0d639ee5063c5f28a1e9c571d3b498dcff
Author: Andy Wingo <address@hidden>
Date: Fri Oct 28 11:19:01 2011 +0200
add vector-length primitive
* module/language/tree-il/primitives.scm
(*interesting-primitive-names*, *effect-free-primitives*): Recognize
vector-length as an effect-free primitive.
commit f00a9574998521bd7d6d5caccba7c4e5c1b77878
Author: Andy Wingo <address@hidden>
Date: Fri Oct 28 10:29:46 2011 +0200
simplify primitives.scm
* module/language/tree-il/primitives.scm (*primitive-expand-table*):
Remove a hack to compensate for the lack of a good inliner, now that
we do have a good inliner.
-----------------------------------------------------------------------
Summary of changes:
libguile/_scm.h | 2 +-
libguile/vm-i-scheme.c | 141 +-
module/ice-9/psyntax-pp.scm |17545 +++++++++++++++---------------
module/ice-9/psyntax.scm | 250 +-
module/language/tree-il/compile-glil.scm | 3 +
module/language/tree-il/primitives.scm | 47 +-
6 files changed, 8998 insertions(+), 8990 deletions(-)
diff --git a/libguile/_scm.h b/libguile/_scm.h
index 975a200..a7a3ad2 100644
--- a/libguile/_scm.h
+++ b/libguile/_scm.h
@@ -261,7 +261,7 @@ void scm_ia64_longjmp (scm_i_jmp_buf *, int);
#define SCM_OBJCODE_WORD_SIZE SCM_CPP_STRINGIFY (SIZEOF_VOID_P)
/* Major and minor versions must be single characters. */
-#define SCM_OBJCODE_MAJOR_VERSION 2
+#define SCM_OBJCODE_MAJOR_VERSION 3
#define SCM_OBJCODE_MINOR_VERSION 0
#define SCM_OBJCODE_MAJOR_VERSION_STRING \
SCM_CPP_STRINGIFY(SCM_OBJCODE_MAJOR_VERSION)
diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c
index 2d85012..f4fa446 100644
--- a/libguile/vm-i-scheme.c
+++ b/libguile/vm-i-scheme.c
@@ -444,10 +444,57 @@ VM_DEFINE_FUNCTION (162, logxor, "logxor", 2)
/*
+ * Strings
+ */
+
+VM_DEFINE_FUNCTION (163, string_length, "string-length", 1)
+{
+ ARGS1 (str);
+ if (SCM_LIKELY (scm_is_string (str)))
+ RETURN (SCM_I_MAKINUM (scm_i_string_length (str)));
+ else
+ {
+ SYNC_REGISTER ();
+ RETURN (scm_string_length (str));
+ }
+}
+
+VM_DEFINE_FUNCTION (164, string_ref, "string-ref", 2)
+{
+ scm_t_signed_bits i = 0;
+ ARGS2 (str, idx);
+ if (SCM_LIKELY (scm_is_string (str)
+ && SCM_I_INUMP (idx)
+ && ((i = SCM_I_INUM (idx)) >= 0)
+ && i < scm_i_string_length (str)))
+ RETURN (SCM_MAKE_CHAR (scm_i_string_ref (str, i)));
+ else
+ {
+ SYNC_REGISTER ();
+ RETURN (scm_string_ref (str, idx));
+ }
+}
+
+/* No string-set! instruction, as there is no good fast path there. */
+
+
+/*
* Vectors and arrays
*/
-VM_DEFINE_FUNCTION (163, vector_ref, "vector-ref", 2)
+VM_DEFINE_FUNCTION (165, vector_length, "vector-length", 1)
+{
+ ARGS1 (vect);
+ if (SCM_LIKELY (SCM_I_IS_VECTOR (vect)))
+ RETURN (SCM_I_MAKINUM (SCM_I_VECTOR_LENGTH (vect)));
+ else
+ {
+ SYNC_REGISTER ();
+ RETURN (scm_vector_length (vect));
+ }
+}
+
+VM_DEFINE_FUNCTION (166, vector_ref, "vector-ref", 2)
{
scm_t_signed_bits i = 0;
ARGS2 (vect, idx);
@@ -463,7 +510,7 @@ VM_DEFINE_FUNCTION (163, vector_ref, "vector-ref", 2)
}
}
-VM_DEFINE_INSTRUCTION (164, vector_set, "vector-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (167, vector_set, "vector-set", 0, 3, 0)
{
scm_t_signed_bits i = 0;
SCM vect, idx, val;
@@ -481,7 +528,7 @@ VM_DEFINE_INSTRUCTION (164, vector_set, "vector-set", 0, 3,
0)
NEXT;
}
-VM_DEFINE_INSTRUCTION (165, make_array, "make-array", 3, -1, 1)
+VM_DEFINE_INSTRUCTION (168, make_array, "make-array", 3, -1, 1)
{
scm_t_uint32 len;
SCM shape, ret;
@@ -510,20 +557,20 @@ VM_DEFINE_INSTRUCTION (165, make_array, "make-array", 3,
-1, 1)
goto vm_error_not_a_struct; \
}
-VM_DEFINE_FUNCTION (166, struct_p, "struct?", 1)
+VM_DEFINE_FUNCTION (169, struct_p, "struct?", 1)
{
ARGS1 (obj);
RETURN (scm_from_bool (SCM_STRUCTP (obj)));
}
-VM_DEFINE_FUNCTION (167, struct_vtable, "struct-vtable", 1)
+VM_DEFINE_FUNCTION (170, struct_vtable, "struct-vtable", 1)
{
ARGS1 (obj);
VM_VALIDATE_STRUCT (obj, "struct_vtable");
RETURN (SCM_STRUCT_VTABLE (obj));
}
-VM_DEFINE_INSTRUCTION (168, make_struct, "make-struct", 2, -1, 1)
+VM_DEFINE_INSTRUCTION (171, make_struct, "make-struct", 2, -1, 1)
{
unsigned h = FETCH ();
unsigned l = FETCH ();
@@ -556,7 +603,7 @@ VM_DEFINE_INSTRUCTION (168, make_struct, "make-struct", 2,
-1, 1)
NEXT;
}
-VM_DEFINE_FUNCTION (169, struct_ref, "struct-ref", 2)
+VM_DEFINE_FUNCTION (172, struct_ref, "struct-ref", 2)
{
ARGS2 (obj, pos);
@@ -586,7 +633,7 @@ VM_DEFINE_FUNCTION (169, struct_ref, "struct-ref", 2)
RETURN (scm_struct_ref (obj, pos));
}
-VM_DEFINE_FUNCTION (170, struct_set, "struct-set", 3)
+VM_DEFINE_FUNCTION (173, struct_set, "struct-set", 3)
{
ARGS3 (obj, pos, val);
@@ -620,7 +667,7 @@ VM_DEFINE_FUNCTION (170, struct_set, "struct-set", 3)
/*
* GOOPS support
*/
-VM_DEFINE_FUNCTION (171, class_of, "class-of", 1)
+VM_DEFINE_FUNCTION (174, class_of, "class-of", 1)
{
ARGS1 (obj);
if (SCM_INSTANCEP (obj))
@@ -630,7 +677,7 @@ VM_DEFINE_FUNCTION (171, class_of, "class-of", 1)
}
/* FIXME: No checking whatsoever. */
-VM_DEFINE_FUNCTION (172, slot_ref, "slot-ref", 2)
+VM_DEFINE_FUNCTION (175, slot_ref, "slot-ref", 2)
{
size_t slot;
ARGS2 (instance, idx);
@@ -639,7 +686,7 @@ VM_DEFINE_FUNCTION (172, slot_ref, "slot-ref", 2)
}
/* FIXME: No checking whatsoever. */
-VM_DEFINE_INSTRUCTION (173, slot_set, "slot-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (176, slot_set, "slot-set", 0, 3, 0)
{
SCM instance, idx, val;
size_t slot;
@@ -682,21 +729,21 @@ VM_DEFINE_INSTRUCTION (173, slot_set, "slot-set", 0, 3, 0)
#define ALIGNED_P(ptr, type) \
((scm_t_uintptr) (ptr) % alignof (type) == 0)
-VM_DEFINE_FUNCTION (174, bv_u16_ref, "bv-u16-ref", 3)
+VM_DEFINE_FUNCTION (177, bv_u16_ref, "bv-u16-ref", 3)
BV_REF_WITH_ENDIANNESS (u16, u16)
-VM_DEFINE_FUNCTION (175, bv_s16_ref, "bv-s16-ref", 3)
+VM_DEFINE_FUNCTION (178, bv_s16_ref, "bv-s16-ref", 3)
BV_REF_WITH_ENDIANNESS (s16, s16)
-VM_DEFINE_FUNCTION (176, bv_u32_ref, "bv-u32-ref", 3)
+VM_DEFINE_FUNCTION (179, bv_u32_ref, "bv-u32-ref", 3)
BV_REF_WITH_ENDIANNESS (u32, u32)
-VM_DEFINE_FUNCTION (177, bv_s32_ref, "bv-s32-ref", 3)
+VM_DEFINE_FUNCTION (180, bv_s32_ref, "bv-s32-ref", 3)
BV_REF_WITH_ENDIANNESS (s32, s32)
-VM_DEFINE_FUNCTION (178, bv_u64_ref, "bv-u64-ref", 3)
+VM_DEFINE_FUNCTION (181, bv_u64_ref, "bv-u64-ref", 3)
BV_REF_WITH_ENDIANNESS (u64, u64)
-VM_DEFINE_FUNCTION (179, bv_s64_ref, "bv-s64-ref", 3)
+VM_DEFINE_FUNCTION (182, bv_s64_ref, "bv-s64-ref", 3)
BV_REF_WITH_ENDIANNESS (s64, s64)
-VM_DEFINE_FUNCTION (180, bv_f32_ref, "bv-f32-ref", 3)
+VM_DEFINE_FUNCTION (183, bv_f32_ref, "bv-f32-ref", 3)
BV_REF_WITH_ENDIANNESS (f32, ieee_single)
-VM_DEFINE_FUNCTION (181, bv_f64_ref, "bv-f64-ref", 3)
+VM_DEFINE_FUNCTION (184, bv_f64_ref, "bv-f64-ref", 3)
BV_REF_WITH_ENDIANNESS (f64, ieee_double)
#undef BV_REF_WITH_ENDIANNESS
@@ -774,33 +821,33 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double)
RETURN (scm_bytevector_ ## fn_stem ## _native_ref (bv, idx)); \
}
-VM_DEFINE_FUNCTION (182, bv_u8_ref, "bv-u8-ref", 2)
+VM_DEFINE_FUNCTION (185, bv_u8_ref, "bv-u8-ref", 2)
BV_FIXABLE_INT_REF (u8, u8, uint8, 1)
-VM_DEFINE_FUNCTION (183, bv_s8_ref, "bv-s8-ref", 2)
+VM_DEFINE_FUNCTION (186, bv_s8_ref, "bv-s8-ref", 2)
BV_FIXABLE_INT_REF (s8, s8, int8, 1)
-VM_DEFINE_FUNCTION (184, bv_u16_native_ref, "bv-u16-native-ref", 2)
+VM_DEFINE_FUNCTION (187, bv_u16_native_ref, "bv-u16-native-ref", 2)
BV_FIXABLE_INT_REF (u16, u16_native, uint16, 2)
-VM_DEFINE_FUNCTION (185, bv_s16_native_ref, "bv-s16-native-ref", 2)
+VM_DEFINE_FUNCTION (188, bv_s16_native_ref, "bv-s16-native-ref", 2)
BV_FIXABLE_INT_REF (s16, s16_native, int16, 2)
-VM_DEFINE_FUNCTION (186, bv_u32_native_ref, "bv-u32-native-ref", 2)
+VM_DEFINE_FUNCTION (189, bv_u32_native_ref, "bv-u32-native-ref", 2)
#if SIZEOF_VOID_P > 4
BV_FIXABLE_INT_REF (u32, u32_native, uint32, 4)
#else
BV_INT_REF (u32, uint32, 4)
#endif
-VM_DEFINE_FUNCTION (187, bv_s32_native_ref, "bv-s32-native-ref", 2)
+VM_DEFINE_FUNCTION (190, bv_s32_native_ref, "bv-s32-native-ref", 2)
#if SIZEOF_VOID_P > 4
BV_FIXABLE_INT_REF (s32, s32_native, int32, 4)
#else
BV_INT_REF (s32, int32, 4)
#endif
-VM_DEFINE_FUNCTION (188, bv_u64_native_ref, "bv-u64-native-ref", 2)
+VM_DEFINE_FUNCTION (191, bv_u64_native_ref, "bv-u64-native-ref", 2)
BV_INT_REF (u64, uint64, 8)
-VM_DEFINE_FUNCTION (189, bv_s64_native_ref, "bv-s64-native-ref", 2)
+VM_DEFINE_FUNCTION (192, bv_s64_native_ref, "bv-s64-native-ref", 2)
BV_INT_REF (s64, int64, 8)
-VM_DEFINE_FUNCTION (190, bv_f32_native_ref, "bv-f32-native-ref", 2)
+VM_DEFINE_FUNCTION (193, bv_f32_native_ref, "bv-f32-native-ref", 2)
BV_FLOAT_REF (f32, ieee_single, float, 4)
-VM_DEFINE_FUNCTION (191, bv_f64_native_ref, "bv-f64-native-ref", 2)
+VM_DEFINE_FUNCTION (194, bv_f64_native_ref, "bv-f64-native-ref", 2)
BV_FLOAT_REF (f64, ieee_double, double, 8)
#undef BV_FIXABLE_INT_REF
@@ -823,21 +870,21 @@ BV_FLOAT_REF (f64, ieee_double, double, 8)
} \
}
-VM_DEFINE_INSTRUCTION (192, bv_u16_set, "bv-u16-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (195, bv_u16_set, "bv-u16-set", 0, 4, 0)
BV_SET_WITH_ENDIANNESS (u16, u16)
-VM_DEFINE_INSTRUCTION (193, bv_s16_set, "bv-s16-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (196, bv_s16_set, "bv-s16-set", 0, 4, 0)
BV_SET_WITH_ENDIANNESS (s16, s16)
-VM_DEFINE_INSTRUCTION (194, bv_u32_set, "bv-u32-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (197, bv_u32_set, "bv-u32-set", 0, 4, 0)
BV_SET_WITH_ENDIANNESS (u32, u32)
-VM_DEFINE_INSTRUCTION (195, bv_s32_set, "bv-s32-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (198, bv_s32_set, "bv-s32-set", 0, 4, 0)
BV_SET_WITH_ENDIANNESS (s32, s32)
-VM_DEFINE_INSTRUCTION (196, bv_u64_set, "bv-u64-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (199, bv_u64_set, "bv-u64-set", 0, 4, 0)
BV_SET_WITH_ENDIANNESS (u64, u64)
-VM_DEFINE_INSTRUCTION (197, bv_s64_set, "bv-s64-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (200, bv_s64_set, "bv-s64-set", 0, 4, 0)
BV_SET_WITH_ENDIANNESS (s64, s64)
-VM_DEFINE_INSTRUCTION (198, bv_f32_set, "bv-f32-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (201, bv_f32_set, "bv-f32-set", 0, 4, 0)
BV_SET_WITH_ENDIANNESS (f32, ieee_single)
-VM_DEFINE_INSTRUCTION (199, bv_f64_set, "bv-f64-set", 0, 4, 0)
+VM_DEFINE_INSTRUCTION (202, bv_f64_set, "bv-f64-set", 0, 4, 0)
BV_SET_WITH_ENDIANNESS (f64, ieee_double)
#undef BV_SET_WITH_ENDIANNESS
@@ -917,33 +964,33 @@ BV_SET_WITH_ENDIANNESS (f64, ieee_double)
NEXT; \
}
-VM_DEFINE_INSTRUCTION (200, bv_u8_set, "bv-u8-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (203, bv_u8_set, "bv-u8-set", 0, 3, 0)
BV_FIXABLE_INT_SET (u8, u8, uint8, 0, SCM_T_UINT8_MAX, 1)
-VM_DEFINE_INSTRUCTION (201, bv_s8_set, "bv-s8-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (204, bv_s8_set, "bv-s8-set", 0, 3, 0)
BV_FIXABLE_INT_SET (s8, s8, int8, SCM_T_INT8_MIN, SCM_T_INT8_MAX, 1)
-VM_DEFINE_INSTRUCTION (202, bv_u16_native_set, "bv-u16-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (205, bv_u16_native_set, "bv-u16-native-set", 0, 3, 0)
BV_FIXABLE_INT_SET (u16, u16_native, uint16, 0, SCM_T_UINT16_MAX, 2)
-VM_DEFINE_INSTRUCTION (203, bv_s16_native_set, "bv-s16-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (206, bv_s16_native_set, "bv-s16-native-set", 0, 3, 0)
BV_FIXABLE_INT_SET (s16, s16_native, int16, SCM_T_INT16_MIN, SCM_T_INT16_MAX,
2)
-VM_DEFINE_INSTRUCTION (204, bv_u32_native_set, "bv-u32-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (207, bv_u32_native_set, "bv-u32-native-set", 0, 3, 0)
#if SIZEOF_VOID_P > 4
BV_FIXABLE_INT_SET (u32, u32_native, uint32, 0, SCM_T_UINT32_MAX, 4)
#else
BV_INT_SET (u32, uint32, 4)
#endif
-VM_DEFINE_INSTRUCTION (205, bv_s32_native_set, "bv-s32-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (208, bv_s32_native_set, "bv-s32-native-set", 0, 3, 0)
#if SIZEOF_VOID_P > 4
BV_FIXABLE_INT_SET (s32, s32_native, int32, SCM_T_INT32_MIN, SCM_T_INT32_MAX,
4)
#else
BV_INT_SET (s32, int32, 4)
#endif
-VM_DEFINE_INSTRUCTION (206, bv_u64_native_set, "bv-u64-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (209, bv_u64_native_set, "bv-u64-native-set", 0, 3, 0)
BV_INT_SET (u64, uint64, 8)
-VM_DEFINE_INSTRUCTION (207, bv_s64_native_set, "bv-s64-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (210, bv_s64_native_set, "bv-s64-native-set", 0, 3, 0)
BV_INT_SET (s64, int64, 8)
-VM_DEFINE_INSTRUCTION (208, bv_f32_native_set, "bv-f32-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (211, bv_f32_native_set, "bv-f32-native-set", 0, 3, 0)
BV_FLOAT_SET (f32, ieee_single, float, 4)
-VM_DEFINE_INSTRUCTION (209, bv_f64_native_set, "bv-f64-native-set", 0, 3, 0)
+VM_DEFINE_INSTRUCTION (212, bv_f64_native_set, "bv-f64-native-set", 0, 3, 0)
BV_FLOAT_SET (f64, ieee_double, double, 8)
#undef BV_FIXABLE_INT_SET
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 2d94856..b6f8269 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -2,1964 +2,1947 @@
(if #f #f)
(letrec*
- ((#{top-level-eval-hook 4302}#
- (lambda (#{x 36532}# #{mod 36533}#)
- (primitive-eval #{x 36532}#)))
- (#{maybe-name-value! 4307}#
- (lambda (#{name 19324}# #{val 19325}#)
- (if (if (struct? #{val 19325}#)
- (eq? (struct-vtable #{val 19325}#)
+ ((#{top-level-eval-hook 4300}#
+ (lambda (#{x 36829}# #{mod 36830}#)
+ (primitive-eval #{x 36829}#)))
+ (#{maybe-name-value! 4305}#
+ (lambda (#{name 19449}# #{val 19450}#)
+ (if (if (struct? #{val 19450}#)
+ (eq? (struct-vtable #{val 19450}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 19332}# (struct-ref #{val 19325}# 1)))
- (if (not (assq 'name #{meta 19332}#))
- (let ((#{v 19337}#
- (cons (cons 'name #{name 19324}#) #{meta 19332}#)))
- (struct-set! #{val 19325}# 1 #{v 19337}#)))))))
- (#{build-call 4309}#
- (lambda (#{source 19069}#
- #{fun-exp 19070}#
- #{arg-exps 19071}#)
+ (let ((#{meta 19457}# (struct-ref #{val 19450}# 1)))
+ (if (not (assq 'name #{meta 19457}#))
+ (let ((#{v 19462}#
+ (cons (cons 'name #{name 19449}#) #{meta 19457}#)))
+ (struct-set! #{val 19450}# 1 #{v 19462}#)))))))
+ (#{build-call 4307}#
+ (lambda (#{source 19194}#
+ #{fun-exp 19195}#
+ #{arg-exps 19196}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{source 19069}#
- #{fun-exp 19070}#
- #{arg-exps 19071}#)))
- (#{build-conditional 4310}#
- (lambda (#{source 19077}#
- #{test-exp 19078}#
- #{then-exp 19079}#
- #{else-exp 19080}#)
+ #{source 19194}#
+ #{fun-exp 19195}#
+ #{arg-exps 19196}#)))
+ (#{build-conditional 4308}#
+ (lambda (#{source 19202}#
+ #{test-exp 19203}#
+ #{then-exp 19204}#
+ #{else-exp 19205}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{source 19077}#
- #{test-exp 19078}#
- #{then-exp 19079}#
- #{else-exp 19080}#)))
- (#{build-dynlet 4311}#
- (lambda (#{source 19087}#
- #{fluids 19088}#
- #{vals 19089}#
- #{body 19090}#)
+ #{source 19202}#
+ #{test-exp 19203}#
+ #{then-exp 19204}#
+ #{else-exp 19205}#)))
+ (#{build-dynlet 4309}#
+ (lambda (#{source 19212}#
+ #{fluids 19213}#
+ #{vals 19214}#
+ #{body 19215}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 18)
- #{source 19087}#
- #{fluids 19088}#
- #{vals 19089}#
- #{body 19090}#)))
- (#{build-lexical-reference 4312}#
- (lambda (#{type 36534}#
- #{source 36535}#
- #{name 36536}#
- #{var 36537}#)
+ #{source 19212}#
+ #{fluids 19213}#
+ #{vals 19214}#
+ #{body 19215}#)))
+ (#{build-lexical-reference 4310}#
+ (lambda (#{type 36831}#
+ #{source 36832}#
+ #{name 36833}#
+ #{var 36834}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{source 36535}#
- #{name 36536}#
- #{var 36537}#)))
- (#{build-lexical-assignment 4313}#
- (lambda (#{source 19097}#
- #{name 19098}#
- #{var 19099}#
- #{exp 19100}#)
+ #{source 36832}#
+ #{name 36833}#
+ #{var 36834}#)))
+ (#{build-lexical-assignment 4311}#
+ (lambda (#{source 19222}#
+ #{name 19223}#
+ #{var 19224}#
+ #{exp 19225}#)
(begin
- (if (if (struct? #{exp 19100}#)
- (eq? (struct-vtable #{exp 19100}#)
+ (if (if (struct? #{exp 19225}#)
+ (eq? (struct-vtable #{exp 19225}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 19116}# (struct-ref #{exp 19100}# 1)))
- (if (not (assq 'name #{meta 19116}#))
- (let ((#{v 19123}#
- (cons (cons 'name #{name 19098}#) #{meta 19116}#)))
- (struct-set! #{exp 19100}# 1 #{v 19123}#)))))
+ (let ((#{meta 19241}# (struct-ref #{exp 19225}# 1)))
+ (if (not (assq 'name #{meta 19241}#))
+ (let ((#{v 19248}#
+ (cons (cons 'name #{name 19223}#) #{meta 19241}#)))
+ (struct-set! #{exp 19225}# 1 #{v 19248}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{source 19097}#
- #{name 19098}#
- #{var 19099}#
- #{exp 19100}#))))
- (#{analyze-variable 4314}#
- (lambda (#{mod 36543}#
- #{var 36544}#
- #{modref-cont 36545}#
- #{bare-cont 36546}#)
- (if (not #{mod 36543}#)
- (#{bare-cont 36546}# #{var 36544}#)
- (let ((#{kind 36547}# (car #{mod 36543}#))
- (#{mod 36548}# (cdr #{mod 36543}#)))
- (if (eqv? #{kind 36547}# 'public)
- (#{modref-cont 36545}#
- #{mod 36548}#
- #{var 36544}#
+ #{source 19222}#
+ #{name 19223}#
+ #{var 19224}#
+ #{exp 19225}#))))
+ (#{analyze-variable 4312}#
+ (lambda (#{mod 36840}#
+ #{var 36841}#
+ #{modref-cont 36842}#
+ #{bare-cont 36843}#)
+ (if (not #{mod 36840}#)
+ (#{bare-cont 36843}# #{var 36841}#)
+ (let ((#{kind 36844}# (car #{mod 36840}#))
+ (#{mod 36845}# (cdr #{mod 36840}#)))
+ (if (eqv? #{kind 36844}# 'public)
+ (#{modref-cont 36842}#
+ #{mod 36845}#
+ #{var 36841}#
#t)
- (if (eqv? #{kind 36547}# 'private)
+ (if (eqv? #{kind 36844}# 'private)
(if (not (equal?
- #{mod 36548}#
+ #{mod 36845}#
(module-name (current-module))))
- (#{modref-cont 36545}#
- #{mod 36548}#
- #{var 36544}#
+ (#{modref-cont 36842}#
+ #{mod 36845}#
+ #{var 36841}#
#f)
- (#{bare-cont 36546}# #{var 36544}#))
- (if (eqv? #{kind 36547}# 'bare)
- (#{bare-cont 36546}# #{var 36544}#)
- (if (eqv? #{kind 36547}# 'hygiene)
+ (#{bare-cont 36843}# #{var 36841}#))
+ (if (eqv? #{kind 36844}# 'bare)
+ (#{bare-cont 36843}# #{var 36841}#)
+ (if (eqv? #{kind 36844}# 'hygiene)
(if (if (not (equal?
- #{mod 36548}#
+ #{mod 36845}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod 36548}#)
- #{var 36544}#)
+ (resolve-module #{mod 36845}#)
+ #{var 36841}#)
#f)
- (#{modref-cont 36545}#
- #{mod 36548}#
- #{var 36544}#
+ (#{modref-cont 36842}#
+ #{mod 36845}#
+ #{var 36841}#
#f)
- (#{bare-cont 36546}# #{var 36544}#))
+ (#{bare-cont 36843}# #{var 36841}#))
(syntax-violation
#f
"bad module kind"
- #{var 36544}#
- #{mod 36548}#)))))))))
- (#{build-global-reference 4315}#
- (lambda (#{source 36563}# #{var 36564}# #{mod 36565}#)
- (#{analyze-variable 4314}#
- #{mod 36565}#
- #{var 36564}#
- (lambda (#{mod 36568}# #{var 36569}# #{public? 36570}#)
+ #{var 36841}#
+ #{mod 36845}#)))))))))
+ (#{build-global-reference 4313}#
+ (lambda (#{source 36860}# #{var 36861}# #{mod 36862}#)
+ (#{analyze-variable 4312}#
+ #{mod 36862}#
+ #{var 36861}#
+ (lambda (#{mod 36865}# #{var 36866}# #{public? 36867}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{source 36563}#
- #{mod 36568}#
- #{var 36569}#
- #{public? 36570}#))
- (lambda (#{var 36577}#)
+ #{source 36860}#
+ #{mod 36865}#
+ #{var 36866}#
+ #{public? 36867}#))
+ (lambda (#{var 36874}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{source 36563}#
- #{var 36577}#)))))
- (#{build-global-assignment 4316}#
- (lambda (#{source 19132}#
- #{var 19133}#
- #{exp 19134}#
- #{mod 19135}#)
+ #{source 36860}#
+ #{var 36874}#)))))
+ (#{build-global-assignment 4314}#
+ (lambda (#{source 19257}#
+ #{var 19258}#
+ #{exp 19259}#
+ #{mod 19260}#)
(begin
- (if (if (struct? #{exp 19134}#)
- (eq? (struct-vtable #{exp 19134}#)
+ (if (if (struct? #{exp 19259}#)
+ (eq? (struct-vtable #{exp 19259}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 19151}# (struct-ref #{exp 19134}# 1)))
- (if (not (assq 'name #{meta 19151}#))
- (let ((#{v 19158}#
- (cons (cons 'name #{var 19133}#) #{meta 19151}#)))
- (struct-set! #{exp 19134}# 1 #{v 19158}#)))))
- (#{analyze-variable 4314}#
- #{mod 19135}#
- #{var 19133}#
- (lambda (#{mod 19163}# #{var 19164}# #{public? 19165}#)
+ (let ((#{meta 19276}# (struct-ref #{exp 19259}# 1)))
+ (if (not (assq 'name #{meta 19276}#))
+ (let ((#{v 19283}#
+ (cons (cons 'name #{var 19258}#) #{meta 19276}#)))
+ (struct-set! #{exp 19259}# 1 #{v 19283}#)))))
+ (#{analyze-variable 4312}#
+ #{mod 19260}#
+ #{var 19258}#
+ (lambda (#{mod 19288}# #{var 19289}# #{public? 19290}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{source 19132}#
- #{mod 19163}#
- #{var 19164}#
- #{public? 19165}#
- #{exp 19134}#))
- (lambda (#{var 19173}#)
+ #{source 19257}#
+ #{mod 19288}#
+ #{var 19289}#
+ #{public? 19290}#
+ #{exp 19259}#))
+ (lambda (#{var 19298}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{source 19132}#
- #{var 19173}#
- #{exp 19134}#))))))
- (#{build-global-definition 4317}#
- (lambda (#{source 36582}# #{var 36583}# #{exp 36584}#)
+ #{source 19257}#
+ #{var 19298}#
+ #{exp 19259}#))))))
+ (#{build-global-definition 4315}#
+ (lambda (#{source 36879}# #{var 36880}# #{exp 36881}#)
(begin
- (if (if (struct? #{exp 36584}#)
- (eq? (struct-vtable #{exp 36584}#)
+ (if (if (struct? #{exp 36881}#)
+ (eq? (struct-vtable #{exp 36881}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 36600}# (struct-ref #{exp 36584}# 1)))
- (if (not (assq 'name #{meta 36600}#))
- (let ((#{v 36607}#
- (cons (cons 'name #{var 36583}#) #{meta 36600}#)))
- (struct-set! #{exp 36584}# 1 #{v 36607}#)))))
+ (let ((#{meta 36897}# (struct-ref #{exp 36881}# 1)))
+ (if (not (assq 'name #{meta 36897}#))
+ (let ((#{v 36904}#
+ (cons (cons 'name #{var 36880}#) #{meta 36897}#)))
+ (struct-set! #{exp 36881}# 1 #{v 36904}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{source 36582}#
- #{var 36583}#
- #{exp 36584}#))))
- (#{build-simple-lambda 4318}#
- (lambda (#{src 19179}#
- #{req 19180}#
- #{rest 19181}#
- #{vars 19182}#
- #{meta 19183}#
- #{exp 19184}#)
- (let ((#{body 19190}#
+ #{source 36879}#
+ #{var 36880}#
+ #{exp 36881}#))))
+ (#{build-simple-lambda 4316}#
+ (lambda (#{src 19304}#
+ #{req 19305}#
+ #{rest 19306}#
+ #{vars 19307}#
+ #{meta 19308}#
+ #{exp 19309}#)
+ (let ((#{body 19315}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 19179}#
- #{req 19180}#
+ #{src 19304}#
+ #{req 19305}#
#f
- #{rest 19181}#
+ #{rest 19306}#
#f
'()
- #{vars 19182}#
- #{exp 19184}#
+ #{vars 19307}#
+ #{exp 19309}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 19179}#
- #{meta 19183}#
- #{body 19190}#))))
- (#{build-primcall 4321}#
- (lambda (#{src 19202}# #{name 19203}# #{args 19204}#)
+ #{src 19304}#
+ #{meta 19308}#
+ #{body 19315}#))))
+ (#{build-primcall 4319}#
+ (lambda (#{src 19327}# #{name 19328}# #{args 19329}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src 19202}#
- #{name 19203}#
- #{args 19204}#)))
- (#{build-sequence 4324}#
- (lambda (#{src 36615}# #{exps 36616}#)
- (if (null? (cdr #{exps 36616}#))
- (car #{exps 36616}#)
- (let ((#{head 36620}# (car #{exps 36616}#))
- (#{tail 36621}#
- (#{build-sequence 4324}# #f (cdr #{exps 36616}#))))
+ #{src 19327}#
+ #{name 19328}#
+ #{args 19329}#)))
+ (#{build-sequence 4322}#
+ (lambda (#{src 36912}# #{exps 36913}#)
+ (if (null? (cdr #{exps 36913}#))
+ (car #{exps 36913}#)
+ (let ((#{head 36917}# (car #{exps 36913}#))
+ (#{tail 36918}#
+ (#{build-sequence 4322}# #f (cdr #{exps 36913}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 36615}#
- #{head 36620}#
- #{tail 36621}#)))))
- (#{build-named-let 4326}#
- (lambda (#{src 19210}#
- #{ids 19211}#
- #{vars 19212}#
- #{val-exps 19213}#
- #{body-exp 19214}#)
- (let ((#{f 19215}# (car #{vars 19212}#))
- (#{f-name 19216}# (car #{ids 19211}#))
- (#{vars 19217}# (cdr #{vars 19212}#))
- (#{ids 19218}# (cdr #{ids 19211}#)))
- (let ((#{proc 19219}#
- (let ((#{body 19239}#
+ #{src 36912}#
+ #{head 36917}#
+ #{tail 36918}#)))))
+ (#{build-named-let 4324}#
+ (lambda (#{src 19335}#
+ #{ids 19336}#
+ #{vars 19337}#
+ #{val-exps 19338}#
+ #{body-exp 19339}#)
+ (let ((#{f 19340}# (car #{vars 19337}#))
+ (#{f-name 19341}# (car #{ids 19336}#))
+ (#{vars 19342}# (cdr #{vars 19337}#))
+ (#{ids 19343}# (cdr #{ids 19336}#)))
+ (let ((#{proc 19344}#
+ (let ((#{body 19364}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 19210}#
- #{ids 19218}#
+ #{src 19335}#
+ #{ids 19343}#
#f
#f
#f
'()
- #{vars 19217}#
- #{body-exp 19214}#
+ #{vars 19342}#
+ #{body-exp 19339}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 19210}#
+ #{src 19335}#
'()
- #{body 19239}#))))
+ #{body 19364}#))))
(begin
- (if (if (struct? #{proc 19219}#)
- (eq? (struct-vtable #{proc 19219}#)
+ (if (if (struct? #{proc 19344}#)
+ (eq? (struct-vtable #{proc 19344}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 19263}# (struct-ref #{proc 19219}# 1)))
- (if (not (assq 'name #{meta 19263}#))
- (let ((#{v 19270}#
- (cons (cons 'name #{f-name 19216}#)
- #{meta 19263}#)))
- (struct-set! #{proc 19219}# 1 #{v 19270}#)))))
+ (let ((#{meta 19388}# (struct-ref #{proc 19344}# 1)))
+ (if (not (assq 'name #{meta 19388}#))
+ (let ((#{v 19395}#
+ (cons (cons 'name #{f-name 19341}#)
+ #{meta 19388}#)))
+ (struct-set! #{proc 19344}# 1 #{v 19395}#)))))
(for-each
- #{maybe-name-value! 4307}#
- #{ids 19218}#
- #{val-exps 19213}#)
- (let ((#{names 19294}# (list #{f-name 19216}#))
- (#{gensyms 19295}# (list #{f 19215}#))
- (#{vals 19296}# (list #{proc 19219}#))
- (#{body 19297}#
- (let ((#{fun-exp 19301}#
+ #{maybe-name-value! 4305}#
+ #{ids 19343}#
+ #{val-exps 19338}#)
+ (let ((#{names 19419}# (list #{f-name 19341}#))
+ (#{gensyms 19420}# (list #{f 19340}#))
+ (#{vals 19421}# (list #{proc 19344}#))
+ (#{body 19422}#
+ (let ((#{fun-exp 19426}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src 19210}#
- #{f-name 19216}#
- #{f 19215}#)))
+ #{src 19335}#
+ #{f-name 19341}#
+ #{f 19340}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src 19210}#
- #{fun-exp 19301}#
- #{val-exps 19213}#))))
+ #{src 19335}#
+ #{fun-exp 19426}#
+ #{val-exps 19338}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src 19210}#
+ #{src 19335}#
#f
- #{names 19294}#
- #{gensyms 19295}#
- #{vals 19296}#
- #{body 19297}#)))))))
- (#{build-letrec 4327}#
- (lambda (#{src 19317}#
- #{in-order? 19318}#
- #{ids 19319}#
- #{vars 19320}#
- #{val-exps 19321}#
- #{body-exp 19322}#)
- (if (null? #{vars 19320}#)
- #{body-exp 19322}#
+ #{names 19419}#
+ #{gensyms 19420}#
+ #{vals 19421}#
+ #{body 19422}#)))))))
+ (#{build-letrec 4325}#
+ (lambda (#{src 19442}#
+ #{in-order? 19443}#
+ #{ids 19444}#
+ #{vars 19445}#
+ #{val-exps 19446}#
+ #{body-exp 19447}#)
+ (if (null? #{vars 19445}#)
+ #{body-exp 19447}#
(begin
(for-each
- #{maybe-name-value! 4307}#
- #{ids 19319}#
- #{val-exps 19321}#)
+ #{maybe-name-value! 4305}#
+ #{ids 19444}#
+ #{val-exps 19446}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{src 19317}#
- #{in-order? 19318}#
- #{ids 19319}#
- #{vars 19320}#
- #{val-exps 19321}#
- #{body-exp 19322}#)))))
- (#{source-annotation 4336}#
- (lambda (#{x 19348}#)
- (if (if (vector? #{x 19348}#)
- (if (= (vector-length #{x 19348}#) 4)
- (eq? (vector-ref #{x 19348}# 0) 'syntax-object)
+ #{src 19442}#
+ #{in-order? 19443}#
+ #{ids 19444}#
+ #{vars 19445}#
+ #{val-exps 19446}#
+ #{body-exp 19447}#)))))
+ (#{source-annotation 4334}#
+ (lambda (#{x 19473}#)
+ (if (if (vector? #{x 19473}#)
+ (if (= (vector-length #{x 19473}#) 4)
+ (eq? (vector-ref #{x 19473}# 0) 'syntax-object)
#f)
#f)
- (#{source-annotation 4336}#
- (vector-ref #{x 19348}# 1))
- (if (pair? #{x 19348}#)
- (let ((#{props 19363}# (source-properties #{x 19348}#)))
- (if (pair? #{props 19363}#) #{props 19363}# #f))
+ (#{source-annotation 4334}#
+ (vector-ref #{x 19473}# 1))
+ (if (pair? #{x 19473}#)
+ (let ((#{props 19488}# (source-properties #{x 19473}#)))
+ (if (pair? #{props 19488}#) #{props 19488}# #f))
#f))))
- (#{extend-env 4337}#
- (lambda (#{labels 19365}# #{bindings 19366}# #{r 19367}#)
- (if (null? #{labels 19365}#)
- #{r 19367}#
- (#{extend-env 4337}#
- (cdr #{labels 19365}#)
- (cdr #{bindings 19366}#)
- (cons (cons (car #{labels 19365}#)
- (car #{bindings 19366}#))
- #{r 19367}#)))))
- (#{extend-var-env 4338}#
- (lambda (#{labels 19368}# #{vars 19369}# #{r 19370}#)
- (if (null? #{labels 19368}#)
- #{r 19370}#
- (#{extend-var-env 4338}#
- (cdr #{labels 19368}#)
- (cdr #{vars 19369}#)
- (cons (cons (car #{labels 19368}#)
- (cons 'lexical (car #{vars 19369}#)))
- #{r 19370}#)))))
- (#{macros-only-env 4339}#
- (lambda (#{r 19371}#)
- (if (null? #{r 19371}#)
+ (#{extend-env 4335}#
+ (lambda (#{labels 19490}# #{bindings 19491}# #{r 19492}#)
+ (if (null? #{labels 19490}#)
+ #{r 19492}#
+ (#{extend-env 4335}#
+ (cdr #{labels 19490}#)
+ (cdr #{bindings 19491}#)
+ (cons (cons (car #{labels 19490}#)
+ (car #{bindings 19491}#))
+ #{r 19492}#)))))
+ (#{extend-var-env 4336}#
+ (lambda (#{labels 19493}# #{vars 19494}# #{r 19495}#)
+ (if (null? #{labels 19493}#)
+ #{r 19495}#
+ (#{extend-var-env 4336}#
+ (cdr #{labels 19493}#)
+ (cdr #{vars 19494}#)
+ (cons (cons (car #{labels 19493}#)
+ (cons 'lexical (car #{vars 19494}#)))
+ #{r 19495}#)))))
+ (#{macros-only-env 4337}#
+ (lambda (#{r 19496}#)
+ (if (null? #{r 19496}#)
'()
- (let ((#{a 19372}# (car #{r 19371}#)))
- (if (eq? (car (cdr #{a 19372}#)) 'macro)
- (cons #{a 19372}#
- (#{macros-only-env 4339}# (cdr #{r 19371}#)))
- (#{macros-only-env 4339}# (cdr #{r 19371}#)))))))
- (#{global-extend 4341}#
- (lambda (#{type 19374}# #{sym 19375}# #{val 19376}#)
+ (let ((#{a 19497}# (car #{r 19496}#)))
+ (if (eq? (car (cdr #{a 19497}#)) 'macro)
+ (cons #{a 19497}#
+ (#{macros-only-env 4337}# (cdr #{r 19496}#)))
+ (#{macros-only-env 4337}# (cdr #{r 19496}#)))))))
+ (#{global-extend 4339}#
+ (lambda (#{type 19499}# #{sym 19500}# #{val 19501}#)
(module-define!
(current-module)
- #{sym 19375}#
+ #{sym 19500}#
(make-syntax-transformer
- #{sym 19375}#
- #{type 19374}#
- #{val 19376}#))))
- (#{id? 4343}#
- (lambda (#{x 12386}#)
- (if (symbol? #{x 12386}#)
+ #{sym 19500}#
+ #{type 19499}#
+ #{val 19501}#))))
+ (#{id? 4341}#
+ (lambda (#{x 12436}#)
+ (if (symbol? #{x 12436}#)
#t
- (if (if (vector? #{x 12386}#)
- (if (= (vector-length #{x 12386}#) 4)
- (eq? (vector-ref #{x 12386}# 0) 'syntax-object)
+ (if (if (vector? #{x 12436}#)
+ (if (= (vector-length #{x 12436}#) 4)
+ (eq? (vector-ref #{x 12436}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 12386}# 1))
+ (symbol? (vector-ref #{x 12436}# 1))
#f))))
- (#{gen-labels 4346}#
- (lambda (#{ls 19386}#)
- (if (null? #{ls 19386}#)
+ (#{gen-labels 4344}#
+ (lambda (#{ls 19511}#)
+ (if (null? #{ls 19511}#)
'()
(cons (symbol->string (gensym "i"))
- (#{gen-labels 4346}# (cdr #{ls 19386}#))))))
- (#{make-binding-wrap 4357}#
- (lambda (#{ids 19390}# #{labels 19391}# #{w 19392}#)
- (if (null? #{ids 19390}#)
- #{w 19392}#
- (cons (car #{w 19392}#)
- (cons (let ((#{labelvec 19393}#
- (list->vector #{labels 19391}#)))
- (let ((#{n 19394}# (vector-length #{labelvec 19393}#)))
- (let ((#{symnamevec 19395}# (make-vector #{n 19394}#))
- (#{marksvec 19396}# (make-vector #{n 19394}#)))
+ (#{gen-labels 4344}# (cdr #{ls 19511}#))))))
+ (#{make-binding-wrap 4355}#
+ (lambda (#{ids 19515}# #{labels 19516}# #{w 19517}#)
+ (if (null? #{ids 19515}#)
+ #{w 19517}#
+ (cons (car #{w 19517}#)
+ (cons (let ((#{labelvec 19518}#
+ (list->vector #{labels 19516}#)))
+ (let ((#{n 19519}# (vector-length #{labelvec 19518}#)))
+ (let ((#{symnamevec 19520}# (make-vector #{n 19519}#))
+ (#{marksvec 19521}# (make-vector #{n 19519}#)))
(begin
(letrec*
- ((#{f 19397}#
- (lambda (#{ids 19592}# #{i 19593}#)
- (if (not (null? #{ids 19592}#))
+ ((#{f 19522}#
+ (lambda (#{ids 19721}# #{i 19722}#)
+ (if (not (null? #{ids 19721}#))
(call-with-values
(lambda ()
- (let ((#{x 19596}#
- (car #{ids 19592}#)))
- (if (if (vector? #{x 19596}#)
+ (let ((#{x 19725}#
+ (car #{ids 19721}#)))
+ (if (if (vector? #{x 19725}#)
(if (= (vector-length
- #{x 19596}#)
+ #{x 19725}#)
4)
(eq? (vector-ref
- #{x 19596}#
+ #{x 19725}#
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref #{x 19596}# 1)
- (let ((#{m1 19612}#
- (car #{w 19392}#))
- (#{m2 19613}#
+ (vector-ref #{x 19725}# 1)
+ (let ((#{m1 19741}#
+ (car #{w 19517}#))
+ (#{m2 19742}#
(car (vector-ref
- #{x 19596}#
+ #{x 19725}#
2))))
- (if (null? #{m2 19613}#)
- #{m1 19612}#
+ (if (null? #{m2 19742}#)
+ #{m1 19741}#
(append
- #{m1 19612}#
- #{m2 19613}#))))
+ #{m1 19741}#
+ #{m2 19742}#))))
(values
- #{x 19596}#
- (car #{w 19392}#)))))
- (lambda (#{symname 19633}#
- #{marks 19634}#)
+ #{x 19725}#
+ (car #{w 19517}#)))))
+ (lambda (#{symname 19762}#
+ #{marks 19763}#)
(begin
(vector-set!
- #{symnamevec 19395}#
- #{i 19593}#
- #{symname 19633}#)
+ #{symnamevec 19520}#
+ #{i 19722}#
+ #{symname 19762}#)
(vector-set!
- #{marksvec 19396}#
- #{i 19593}#
- #{marks 19634}#)
- (#{f 19397}#
- (cdr #{ids 19592}#)
- (#{1+}# #{i 19593}#)))))))))
- (#{f 19397}# #{ids 19390}# 0))
+ #{marksvec 19521}#
+ #{i 19722}#
+ #{marks 19763}#)
+ (#{f 19522}#
+ (cdr #{ids 19721}#)
+ (#{1+}# #{i 19722}#)))))))))
+ (#{f 19522}# #{ids 19515}# 0))
(vector
'ribcage
- #{symnamevec 19395}#
- #{marksvec 19396}#
- #{labelvec 19393}#)))))
- (cdr #{w 19392}#))))))
- (#{same-marks? 4361}#
- (lambda (#{x 36622}# #{y 36623}#)
- (if (eq? #{x 36622}# #{y 36623}#)
- (eq? #{x 36622}# #{y 36623}#)
- (if (not (null? #{x 36622}#))
- (if (not (null? #{y 36623}#))
- (if (eq? (car #{x 36622}#) (car #{y 36623}#))
- (#{same-marks? 4361}#
- (cdr #{x 36622}#)
- (cdr #{y 36623}#))
+ #{symnamevec 19520}#
+ #{marksvec 19521}#
+ #{labelvec 19518}#)))))
+ (cdr #{w 19517}#))))))
+ (#{same-marks? 4359}#
+ (lambda (#{x 36919}# #{y 36920}#)
+ (if (eq? #{x 36919}# #{y 36920}#)
+ (eq? #{x 36919}# #{y 36920}#)
+ (if (not (null? #{x 36919}#))
+ (if (not (null? #{y 36920}#))
+ (if (eq? (car #{x 36919}#) (car #{y 36920}#))
+ (#{same-marks? 4359}#
+ (cdr #{x 36919}#)
+ (cdr #{y 36920}#))
#f)
#f)
#f))))
- (#{id-var-name 4362}#
- (lambda (#{id 19641}# #{w 19642}#)
+ (#{id-var-name 4360}#
+ (lambda (#{id 19770}# #{w 19771}#)
(letrec*
- ((#{search 19643}#
- (lambda (#{sym 19704}# #{subst 19705}# #{marks 19706}#)
- (if (null? #{subst 19705}#)
- (values #f #{marks 19706}#)
- (let ((#{fst 19707}# (car #{subst 19705}#)))
- (if (eq? #{fst 19707}# 'shift)
- (#{search 19643}#
- #{sym 19704}#
- (cdr #{subst 19705}#)
- (cdr #{marks 19706}#))
- (let ((#{symnames 19709}# (vector-ref #{fst 19707}# 1)))
- (if (vector? #{symnames 19709}#)
- (#{search-vector-rib 19645}#
- #{sym 19704}#
- #{subst 19705}#
- #{marks 19706}#
- #{symnames 19709}#
- #{fst 19707}#)
- (#{search-list-rib 19644}#
- #{sym 19704}#
- #{subst 19705}#
- #{marks 19706}#
- #{symnames 19709}#
- #{fst 19707}#))))))))
- (#{search-list-rib 19644}#
- (lambda (#{sym 19879}#
- #{subst 19880}#
- #{marks 19881}#
- #{symnames 19882}#
- #{ribcage 19883}#)
+ ((#{search 19772}#
+ (lambda (#{sym 19833}# #{subst 19834}# #{marks 19835}#)
+ (if (null? #{subst 19834}#)
+ (values #f #{marks 19835}#)
+ (let ((#{fst 19836}# (car #{subst 19834}#)))
+ (if (eq? #{fst 19836}# 'shift)
+ (#{search 19772}#
+ #{sym 19833}#
+ (cdr #{subst 19834}#)
+ (cdr #{marks 19835}#))
+ (let ((#{symnames 19838}# (vector-ref #{fst 19836}# 1)))
+ (if (vector? #{symnames 19838}#)
+ (#{search-vector-rib 19774}#
+ #{sym 19833}#
+ #{subst 19834}#
+ #{marks 19835}#
+ #{symnames 19838}#
+ #{fst 19836}#)
+ (#{search-list-rib 19773}#
+ #{sym 19833}#
+ #{subst 19834}#
+ #{marks 19835}#
+ #{symnames 19838}#
+ #{fst 19836}#))))))))
+ (#{search-list-rib 19773}#
+ (lambda (#{sym 20008}#
+ #{subst 20009}#
+ #{marks 20010}#
+ #{symnames 20011}#
+ #{ribcage 20012}#)
(letrec*
- ((#{f 19884}#
- (lambda (#{symnames 19887}# #{i 19888}#)
- (if (null? #{symnames 19887}#)
- (#{search 19643}#
- #{sym 19879}#
- (cdr #{subst 19880}#)
- #{marks 19881}#)
- (if (if (eq? (car #{symnames 19887}#) #{sym 19879}#)
- (#{same-marks? 4361}#
- #{marks 19881}#
+ ((#{f 20013}#
+ (lambda (#{symnames 20016}# #{i 20017}#)
+ (if (null? #{symnames 20016}#)
+ (#{search 19772}#
+ #{sym 20008}#
+ (cdr #{subst 20009}#)
+ #{marks 20010}#)
+ (if (if (eq? (car #{symnames 20016}#) #{sym 20008}#)
+ (#{same-marks? 4359}#
+ #{marks 20010}#
(list-ref
- (vector-ref #{ribcage 19883}# 2)
- #{i 19888}#))
+ (vector-ref #{ribcage 20012}# 2)
+ #{i 20017}#))
#f)
(values
(list-ref
- (vector-ref #{ribcage 19883}# 3)
- #{i 19888}#)
- #{marks 19881}#)
- (#{f 19884}#
- (cdr #{symnames 19887}#)
- (#{1+}# #{i 19888}#)))))))
- (#{f 19884}# #{symnames 19882}# 0))))
- (#{search-vector-rib 19645}#
- (lambda (#{sym 20038}#
- #{subst 20039}#
- #{marks 20040}#
- #{symnames 20041}#
- #{ribcage 20042}#)
- (let ((#{n 20043}# (vector-length #{symnames 20041}#)))
+ (vector-ref #{ribcage 20012}# 3)
+ #{i 20017}#)
+ #{marks 20010}#)
+ (#{f 20013}#
+ (cdr #{symnames 20016}#)
+ (#{1+}# #{i 20017}#)))))))
+ (#{f 20013}# #{symnames 20011}# 0))))
+ (#{search-vector-rib 19774}#
+ (lambda (#{sym 20167}#
+ #{subst 20168}#
+ #{marks 20169}#
+ #{symnames 20170}#
+ #{ribcage 20171}#)
+ (let ((#{n 20172}# (vector-length #{symnames 20170}#)))
(letrec*
- ((#{f 20044}#
- (lambda (#{i 20101}#)
- (if (= #{i 20101}# #{n 20043}#)
- (#{search 19643}#
- #{sym 20038}#
- (cdr #{subst 20039}#)
- #{marks 20040}#)
+ ((#{f 20173}#
+ (lambda (#{i 20230}#)
+ (if (= #{i 20230}# #{n 20172}#)
+ (#{search 19772}#
+ #{sym 20167}#
+ (cdr #{subst 20168}#)
+ #{marks 20169}#)
(if (if (eq? (vector-ref
- #{symnames 20041}#
- #{i 20101}#)
- #{sym 20038}#)
- (#{same-marks? 4361}#
- #{marks 20040}#
+ #{symnames 20170}#
+ #{i 20230}#)
+ #{sym 20167}#)
+ (#{same-marks? 4359}#
+ #{marks 20169}#
(vector-ref
- (vector-ref #{ribcage 20042}# 2)
- #{i 20101}#))
+ (vector-ref #{ribcage 20171}# 2)
+ #{i 20230}#))
#f)
(values
(vector-ref
- (vector-ref #{ribcage 20042}# 3)
- #{i 20101}#)
- #{marks 20040}#)
- (#{f 20044}# (#{1+}# #{i 20101}#)))))))
- (#{f 20044}# 0))))))
- (if (symbol? #{id 19641}#)
- (let ((#{t 19646}#
- (#{search 19643}#
- #{id 19641}#
- (cdr #{w 19642}#)
- (car #{w 19642}#))))
- (if #{t 19646}# #{t 19646}# #{id 19641}#))
- (if (if (vector? #{id 19641}#)
- (if (= (vector-length #{id 19641}#) 4)
- (eq? (vector-ref #{id 19641}# 0) 'syntax-object)
+ (vector-ref #{ribcage 20171}# 3)
+ #{i 20230}#)
+ #{marks 20169}#)
+ (#{f 20173}# (#{1+}# #{i 20230}#)))))))
+ (#{f 20173}# 0))))))
+ (if (symbol? #{id 19770}#)
+ (let ((#{t 19775}#
+ (#{search 19772}#
+ #{id 19770}#
+ (cdr #{w 19771}#)
+ (car #{w 19771}#))))
+ (if #{t 19775}# #{t 19775}# #{id 19770}#))
+ (if (if (vector? #{id 19770}#)
+ (if (= (vector-length #{id 19770}#) 4)
+ (eq? (vector-ref #{id 19770}# 0) 'syntax-object)
#f)
#f)
- (let ((#{id 19661}# (vector-ref #{id 19641}# 1))
- (#{w1 19662}# (vector-ref #{id 19641}# 2)))
- (let ((#{marks 19663}#
- (let ((#{m1 19673}# (car #{w 19642}#))
- (#{m2 19674}# (car #{w1 19662}#)))
- (if (null? #{m2 19674}#)
- #{m1 19673}#
- (append #{m1 19673}# #{m2 19674}#)))))
+ (let ((#{id 19790}# (vector-ref #{id 19770}# 1))
+ (#{w1 19791}# (vector-ref #{id 19770}# 2)))
+ (let ((#{marks 19792}#
+ (let ((#{m1 19802}# (car #{w 19771}#))
+ (#{m2 19803}# (car #{w1 19791}#)))
+ (if (null? #{m2 19803}#)
+ #{m1 19802}#
+ (append #{m1 19802}# #{m2 19803}#)))))
(call-with-values
(lambda ()
- (#{search 19643}#
- #{id 19661}#
- (cdr #{w 19642}#)
- #{marks 19663}#))
- (lambda (#{new-id 19690}# #{marks 19691}#)
- (if #{new-id 19690}#
- #{new-id 19690}#
- (let ((#{t 19699}#
- (#{search 19643}#
- #{id 19661}#
- (cdr #{w1 19662}#)
- #{marks 19691}#)))
- (if #{t 19699}# #{t 19699}# #{id 19661}#)))))))
+ (#{search 19772}#
+ #{id 19790}#
+ (cdr #{w 19771}#)
+ #{marks 19792}#))
+ (lambda (#{new-id 19819}# #{marks 19820}#)
+ (if #{new-id 19819}#
+ #{new-id 19819}#
+ (let ((#{t 19828}#
+ (#{search 19772}#
+ #{id 19790}#
+ (cdr #{w1 19791}#)
+ #{marks 19820}#)))
+ (if #{t 19828}# #{t 19828}# #{id 19790}#)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id 19641}#))))))
- (#{free-id=? 4363}#
- (lambda (#{i 20251}# #{j 20252}#)
- (let ((#{ni 20253}#
- (#{id-var-name 4362}# #{i 20251}# '(())))
- (#{nj 20254}#
- (#{id-var-name 4362}# #{j 20252}# '(()))))
- (if (eq? #{ni 20253}#
- (if (if (vector? #{i 20251}#)
- (if (= (vector-length #{i 20251}#) 4)
- (eq? (vector-ref #{i 20251}# 0) 'syntax-object)
+ #{id 19770}#))))))
+ (#{free-id=? 4361}#
+ (lambda (#{i 20380}# #{j 20381}#)
+ (let ((#{ni 20382}#
+ (#{id-var-name 4360}# #{i 20380}# '(())))
+ (#{nj 20383}#
+ (#{id-var-name 4360}# #{j 20381}# '(()))))
+ (if (eq? #{ni 20382}#
+ (if (if (vector? #{i 20380}#)
+ (if (= (vector-length #{i 20380}#) 4)
+ (eq? (vector-ref #{i 20380}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{i 20251}# 1)
- #{i 20251}#))
- (if (eq? #{nj 20254}#
- (if (if (vector? #{j 20252}#)
- (if (= (vector-length #{j 20252}#) 4)
- (eq? (vector-ref #{j 20252}# 0) 'syntax-object)
+ (vector-ref #{i 20380}# 1)
+ #{i 20380}#))
+ (if (eq? #{nj 20383}#
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#) 4)
+ (eq? (vector-ref #{j 20381}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{j 20252}# 1)
- #{j 20252}#))
- (if (let ((#{bi 20312}#
- (let ((#{mod 20581}#
- (if (if (vector? #{i 20251}#)
- (if (= (vector-length #{i 20251}#) 4)
- (eq? (vector-ref #{i 20251}# 0)
+ (vector-ref #{j 20381}# 1)
+ #{j 20381}#))
+ (if (let ((#{bi 20441}#
+ (let ((#{mod 20710}#
+ (if (if (vector? #{i 20380}#)
+ (if (= (vector-length #{i 20380}#) 4)
+ (eq? (vector-ref #{i 20380}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 20251}# 3)
+ (vector-ref #{i 20380}# 3)
#f)))
(module-variable
- (if #{mod 20581}#
- (resolve-module (cdr #{mod 20581}#))
+ (if #{mod 20710}#
+ (resolve-module (cdr #{mod 20710}#))
(current-module))
- (if (if (vector? #{i 20251}#)
- (if (= (vector-length #{i 20251}#) 4)
- (eq? (vector-ref #{i 20251}# 0)
+ (if (if (vector? #{i 20380}#)
+ (if (= (vector-length #{i 20380}#) 4)
+ (eq? (vector-ref #{i 20380}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 20251}# 1)
- #{i 20251}#)))))
- (if #{bi 20312}#
- (eq? #{bi 20312}#
- (let ((#{mod 20425}#
- (if (if (vector? #{j 20252}#)
- (if (= (vector-length #{j 20252}#) 4)
- (eq? (vector-ref #{j 20252}# 0)
+ (vector-ref #{i 20380}# 1)
+ #{i 20380}#)))))
+ (if #{bi 20441}#
+ (eq? #{bi 20441}#
+ (let ((#{mod 20554}#
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#) 4)
+ (eq? (vector-ref #{j 20381}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 20252}# 3)
+ (vector-ref #{j 20381}# 3)
#f)))
(module-variable
- (if #{mod 20425}#
- (resolve-module (cdr #{mod 20425}#))
+ (if #{mod 20554}#
+ (resolve-module (cdr #{mod 20554}#))
(current-module))
- (if (if (vector? #{j 20252}#)
- (if (= (vector-length #{j 20252}#) 4)
- (eq? (vector-ref #{j 20252}# 0)
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#) 4)
+ (eq? (vector-ref #{j 20381}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 20252}# 1)
- #{j 20252}#))))
- (if (not (let ((#{mod 20503}#
- (if (if (vector? #{j 20252}#)
- (if (= (vector-length #{j 20252}#)
+ (vector-ref #{j 20381}# 1)
+ #{j 20381}#))))
+ (if (not (let ((#{mod 20632}#
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#)
4)
- (eq? (vector-ref #{j 20252}# 0)
+ (eq? (vector-ref #{j 20381}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 20252}# 3)
+ (vector-ref #{j 20381}# 3)
#f)))
(module-variable
- (if #{mod 20503}#
- (resolve-module (cdr #{mod 20503}#))
+ (if #{mod 20632}#
+ (resolve-module (cdr #{mod 20632}#))
(current-module))
- (if (if (vector? #{j 20252}#)
- (if (= (vector-length #{j 20252}#) 4)
- (eq? (vector-ref #{j 20252}# 0)
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#) 4)
+ (eq? (vector-ref #{j 20381}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 20252}# 1)
- #{j 20252}#))))
- (eq? #{ni 20253}# #{nj 20254}#)
+ (vector-ref #{j 20381}# 1)
+ #{j 20381}#))))
+ (eq? #{ni 20382}# #{nj 20383}#)
#f)))
- (eq? (let ((#{mod 20659}#
- (if (if (vector? #{i 20251}#)
- (if (= (vector-length #{i 20251}#) 4)
- (eq? (vector-ref #{i 20251}# 0)
+ (eq? (let ((#{mod 20788}#
+ (if (if (vector? #{i 20380}#)
+ (if (= (vector-length #{i 20380}#) 4)
+ (eq? (vector-ref #{i 20380}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 20251}# 3)
+ (vector-ref #{i 20380}# 3)
#f)))
(module-variable
- (if #{mod 20659}#
- (resolve-module (cdr #{mod 20659}#))
+ (if #{mod 20788}#
+ (resolve-module (cdr #{mod 20788}#))
(current-module))
- (if (if (vector? #{i 20251}#)
- (if (= (vector-length #{i 20251}#) 4)
- (eq? (vector-ref #{i 20251}# 0) 'syntax-object)
+ (if (if (vector? #{i 20380}#)
+ (if (= (vector-length #{i 20380}#) 4)
+ (eq? (vector-ref #{i 20380}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{i 20251}# 1)
- #{i 20251}#)))
- (let ((#{mod 20737}#
- (if (if (vector? #{j 20252}#)
- (if (= (vector-length #{j 20252}#) 4)
- (eq? (vector-ref #{j 20252}# 0)
+ (vector-ref #{i 20380}# 1)
+ #{i 20380}#)))
+ (let ((#{mod 20866}#
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#) 4)
+ (eq? (vector-ref #{j 20381}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 20252}# 3)
+ (vector-ref #{j 20381}# 3)
#f)))
(module-variable
- (if #{mod 20737}#
- (resolve-module (cdr #{mod 20737}#))
+ (if #{mod 20866}#
+ (resolve-module (cdr #{mod 20866}#))
(current-module))
- (if (if (vector? #{j 20252}#)
- (if (= (vector-length #{j 20252}#) 4)
- (eq? (vector-ref #{j 20252}# 0) 'syntax-object)
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#) 4)
+ (eq? (vector-ref #{j 20381}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{j 20252}# 1)
- #{j 20252}#))))
+ (vector-ref #{j 20381}# 1)
+ #{j 20381}#))))
#f)
#f)
- (if (eq? #{ni 20253}# #{nj 20254}#)
- (not (eq? #{nj 20254}#
- (if (if (vector? #{j 20252}#)
- (if (= (vector-length #{j 20252}#) 4)
- (eq? (vector-ref #{j 20252}# 0) 'syntax-object)
+ (if (eq? #{ni 20382}# #{nj 20383}#)
+ (not (eq? #{nj 20383}#
+ (if (if (vector? #{j 20381}#)
+ (if (= (vector-length #{j 20381}#) 4)
+ (eq? (vector-ref #{j 20381}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{j 20252}# 1)
- #{j 20252}#)))
+ (vector-ref #{j 20381}# 1)
+ #{j 20381}#)))
#f)))))
- (#{bound-id=? 4364}#
- (lambda (#{i 20837}# #{j 20838}#)
- (if (if (if (vector? #{i 20837}#)
- (if (= (vector-length #{i 20837}#) 4)
- (eq? (vector-ref #{i 20837}# 0) 'syntax-object)
+ (#{bound-id=? 4362}#
+ (lambda (#{i 20966}# #{j 20967}#)
+ (if (if (if (vector? #{i 20966}#)
+ (if (= (vector-length #{i 20966}#) 4)
+ (eq? (vector-ref #{i 20966}# 0) 'syntax-object)
#f)
#f)
- (if (vector? #{j 20838}#)
- (if (= (vector-length #{j 20838}#) 4)
- (eq? (vector-ref #{j 20838}# 0) 'syntax-object)
+ (if (vector? #{j 20967}#)
+ (if (= (vector-length #{j 20967}#) 4)
+ (eq? (vector-ref #{j 20967}# 0) 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{i 20837}# 1)
- (vector-ref #{j 20838}# 1))
- (#{same-marks? 4361}#
- (car (vector-ref #{i 20837}# 2))
- (car (vector-ref #{j 20838}# 2)))
+ (if (eq? (vector-ref #{i 20966}# 1)
+ (vector-ref #{j 20967}# 1))
+ (#{same-marks? 4359}#
+ (car (vector-ref #{i 20966}# 2))
+ (car (vector-ref #{j 20967}# 2)))
#f)
- (eq? #{i 20837}# #{j 20838}#))))
- (#{valid-bound-ids? 4365}#
- (lambda (#{ids 21007}#)
+ (eq? #{i 20966}# #{j 20967}#))))
+ (#{valid-bound-ids? 4363}#
+ (lambda (#{ids 21136}#)
(if (letrec*
- ((#{all-ids? 21008}#
- (lambda (#{ids 21198}#)
- (if (null? #{ids 21198}#)
- (null? #{ids 21198}#)
- (if (let ((#{x 21209}# (car #{ids 21198}#)))
- (if (symbol? #{x 21209}#)
+ ((#{all-ids? 21137}#
+ (lambda (#{ids 21334}#)
+ (if (null? #{ids 21334}#)
+ (null? #{ids 21334}#)
+ (if (let ((#{x 21345}# (car #{ids 21334}#)))
+ (if (symbol? #{x 21345}#)
#t
- (if (if (vector? #{x 21209}#)
- (if (= (vector-length #{x 21209}#) 4)
- (eq? (vector-ref #{x 21209}# 0)
+ (if (if (vector? #{x 21345}#)
+ (if (= (vector-length #{x 21345}#) 4)
+ (eq? (vector-ref #{x 21345}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 21209}# 1))
+ (symbol? (vector-ref #{x 21345}# 1))
#f)))
- (#{all-ids? 21008}# (cdr #{ids 21198}#))
+ (#{all-ids? 21137}# (cdr #{ids 21334}#))
#f)))))
- (#{all-ids? 21008}# #{ids 21007}#))
- (#{distinct-bound-ids? 4366}# #{ids 21007}#)
+ (#{all-ids? 21137}# #{ids 21136}#))
+ (#{distinct-bound-ids? 4364}# #{ids 21136}#)
#f)))
- (#{distinct-bound-ids? 4366}#
- (lambda (#{ids 21330}#)
+ (#{distinct-bound-ids? 4364}#
+ (lambda (#{ids 21466}#)
(letrec*
- ((#{distinct? 21331}#
- (lambda (#{ids 21436}#)
- (if (null? #{ids 21436}#)
- (null? #{ids 21436}#)
- (if (not (#{bound-id-member? 4367}#
- (car #{ids 21436}#)
- (cdr #{ids 21436}#)))
- (#{distinct? 21331}# (cdr #{ids 21436}#))
+ ((#{distinct? 21467}#
+ (lambda (#{ids 21572}#)
+ (if (null? #{ids 21572}#)
+ (null? #{ids 21572}#)
+ (if (not (#{bound-id-member? 4365}#
+ (car #{ids 21572}#)
+ (cdr #{ids 21572}#)))
+ (#{distinct? 21467}# (cdr #{ids 21572}#))
#f)))))
- (#{distinct? 21331}# #{ids 21330}#))))
- (#{bound-id-member? 4367}#
- (lambda (#{x 21532}# #{list 21533}#)
- (if (not (null? #{list 21533}#))
- (let ((#{t 21534}#
- (#{bound-id=? 4364}#
- #{x 21532}#
- (car #{list 21533}#))))
- (if #{t 21534}#
- #{t 21534}#
- (#{bound-id-member? 4367}#
- #{x 21532}#
- (cdr #{list 21533}#))))
+ (#{distinct? 21467}# #{ids 21466}#))))
+ (#{bound-id-member? 4365}#
+ (lambda (#{x 21668}# #{list 21669}#)
+ (if (not (null? #{list 21669}#))
+ (let ((#{t 21670}#
+ (#{bound-id=? 4362}#
+ #{x 21668}#
+ (car #{list 21669}#))))
+ (if #{t 21670}#
+ #{t 21670}#
+ (#{bound-id-member? 4365}#
+ #{x 21668}#
+ (cdr #{list 21669}#))))
#f)))
- (#{source-wrap 4369}#
- (lambda (#{x 21708}#
- #{w 21709}#
- #{s 21710}#
- #{defmod 21711}#)
- (let ((#{x 21715}#
+ (#{source-wrap 4367}#
+ (lambda (#{x 21848}#
+ #{w 21849}#
+ #{s 21850}#
+ #{defmod 21851}#)
+ (let ((#{x 21855}#
(begin
- (if (if (pair? #{x 21708}#) #{s 21710}# #f)
- (set-source-properties! #{x 21708}# #{s 21710}#))
- #{x 21708}#)))
- (if (if (null? (car #{w 21709}#))
- (null? (cdr #{w 21709}#))
+ (if (if (pair? #{x 21848}#) #{s 21850}# #f)
+ (set-source-properties! #{x 21848}# #{s 21850}#))
+ #{x 21848}#)))
+ (if (if (null? (car #{w 21849}#))
+ (null? (cdr #{w 21849}#))
#f)
- #{x 21715}#
- (if (if (vector? #{x 21715}#)
- (if (= (vector-length #{x 21715}#) 4)
- (eq? (vector-ref #{x 21715}# 0) 'syntax-object)
+ #{x 21855}#
+ (if (if (vector? #{x 21855}#)
+ (if (= (vector-length #{x 21855}#) 4)
+ (eq? (vector-ref #{x 21855}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 21747}# (vector-ref #{x 21715}# 1))
- (#{wrap 21748}#
- (let ((#{w2 21756}# (vector-ref #{x 21715}# 2)))
- (let ((#{m1 21757}# (car #{w 21709}#))
- (#{s1 21758}# (cdr #{w 21709}#)))
- (if (null? #{m1 21757}#)
- (if (null? #{s1 21758}#)
- #{w2 21756}#
- (cons (car #{w2 21756}#)
- (let ((#{m2 21773}# (cdr #{w2 21756}#)))
- (if (null? #{m2 21773}#)
- #{s1 21758}#
- (append #{s1 21758}# #{m2 21773}#)))))
- (cons (let ((#{m2 21781}# (car #{w2 21756}#)))
- (if (null? #{m2 21781}#)
- #{m1 21757}#
- (append #{m1 21757}# #{m2 21781}#)))
- (let ((#{m2 21789}# (cdr #{w2 21756}#)))
- (if (null? #{m2 21789}#)
- #{s1 21758}#
- (append #{s1 21758}# #{m2 21789}#))))))))
- (#{module 21749}# (vector-ref #{x 21715}# 3)))
+ (let ((#{expression 21887}# (vector-ref #{x 21855}# 1))
+ (#{wrap 21888}#
+ (let ((#{w2 21896}# (vector-ref #{x 21855}# 2)))
+ (let ((#{m1 21897}# (car #{w 21849}#))
+ (#{s1 21898}# (cdr #{w 21849}#)))
+ (if (null? #{m1 21897}#)
+ (if (null? #{s1 21898}#)
+ #{w2 21896}#
+ (cons (car #{w2 21896}#)
+ (let ((#{m2 21913}# (cdr #{w2 21896}#)))
+ (if (null? #{m2 21913}#)
+ #{s1 21898}#
+ (append #{s1 21898}# #{m2 21913}#)))))
+ (cons (let ((#{m2 21921}# (car #{w2 21896}#)))
+ (if (null? #{m2 21921}#)
+ #{m1 21897}#
+ (append #{m1 21897}# #{m2 21921}#)))
+ (let ((#{m2 21929}# (cdr #{w2 21896}#)))
+ (if (null? #{m2 21929}#)
+ #{s1 21898}#
+ (append #{s1 21898}# #{m2 21929}#))))))))
+ (#{module 21889}# (vector-ref #{x 21855}# 3)))
(vector
'syntax-object
- #{expression 21747}#
- #{wrap 21748}#
- #{module 21749}#))
- (if (null? #{x 21715}#)
- #{x 21715}#
+ #{expression 21887}#
+ #{wrap 21888}#
+ #{module 21889}#))
+ (if (null? #{x 21855}#)
+ #{x 21855}#
(vector
'syntax-object
- #{x 21715}#
- #{w 21709}#
- #{defmod 21711}#)))))))
- (#{chi-sequence 4370}#
- (lambda (#{body 36631}#
- #{r 36632}#
- #{w 36633}#
- #{s 36634}#
- #{mod 36635}#)
- (#{build-sequence 4324}#
- #{s 36634}#
+ #{x 21855}#
+ #{w 21849}#
+ #{defmod 21851}#)))))))
+ (#{chi-sequence 4368}#
+ (lambda (#{body 36928}#
+ #{r 36929}#
+ #{w 36930}#
+ #{s 36931}#
+ #{mod 36932}#)
+ (#{build-sequence 4322}#
+ #{s 36931}#
(letrec*
- ((#{dobody 36725}#
- (lambda (#{body 36810}#
- #{r 36811}#
- #{w 36812}#
- #{mod 36813}#)
- (if (null? #{body 36810}#)
+ ((#{dobody 37024}#
+ (lambda (#{body 37111}#
+ #{r 37112}#
+ #{w 37113}#
+ #{mod 37114}#)
+ (if (null? #{body 37111}#)
'()
- (let ((#{first 36814}#
- (#{chi 4375}#
- (car #{body 36810}#)
- #{r 36811}#
- #{w 36812}#
- #{mod 36813}#)))
- (cons #{first 36814}#
- (#{dobody 36725}#
- (cdr #{body 36810}#)
- #{r 36811}#
- #{w 36812}#
- #{mod 36813}#)))))))
- (#{dobody 36725}#
- #{body 36631}#
- #{r 36632}#
- #{w 36633}#
- #{mod 36635}#)))))
- (#{chi-top-sequence 4371}#
- (lambda (#{body 21804}#
- #{r 21805}#
- #{w 21806}#
- #{s 21807}#
- #{m 21808}#
- #{esew 21809}#
- #{mod 21810}#)
+ (let ((#{first 37115}#
+ (#{chi 4373}#
+ (car #{body 37111}#)
+ #{r 37112}#
+ #{w 37113}#
+ #{mod 37114}#)))
+ (cons #{first 37115}#
+ (#{dobody 37024}#
+ (cdr #{body 37111}#)
+ #{r 37112}#
+ #{w 37113}#
+ #{mod 37114}#)))))))
+ (#{dobody 37024}#
+ #{body 36928}#
+ #{r 36929}#
+ #{w 36930}#
+ #{mod 36932}#)))))
+ (#{chi-top-sequence 4369}#
+ (lambda (#{body 21944}#
+ #{r 21945}#
+ #{w 21946}#
+ #{s 21947}#
+ #{m 21948}#
+ #{esew 21949}#
+ #{mod 21950}#)
(letrec*
- ((#{scan 21811}#
- (lambda (#{body 21958}#
- #{r 21959}#
- #{w 21960}#
- #{s 21961}#
- #{m 21962}#
- #{esew 21963}#
- #{mod 21964}#
- #{exps 21965}#)
- (if (null? #{body 21958}#)
- #{exps 21965}#
- (call-with-values
- (lambda ()
- (call-with-values
- (lambda ()
- (let ((#{e 21966}# (car #{body 21958}#)))
- (#{syntax-type 4374}#
- #{e 21966}#
- #{r 21959}#
- #{w 21960}#
- (let ((#{t 21970}#
- (#{source-annotation 4336}# #{e 21966}#)))
- (if #{t 21970}# #{t 21970}# #{s 21961}#))
- #f
- #{mod 21964}#
- #f)))
- (lambda (#{type 22252}#
- #{value 22253}#
- #{e 22254}#
- #{w 22255}#
- #{s 22256}#
- #{mod 22257}#)
- (if (eqv? #{type 22252}# 'begin-form)
- (let ((#{tmp 22262}#
- ($sc-dispatch #{e 22254}# '(_))))
- (if #{tmp 22262}#
- (@apply (lambda () #{exps 21965}#) #{tmp 22262}#)
- (let ((#{tmp 22266}#
- ($sc-dispatch
- #{e 22254}#
- '(_ any . each-any))))
- (if #{tmp 22266}#
- (@apply
- (lambda (#{e1 22270}# #{e2 22271}#)
- (#{scan 21811}#
- (cons #{e1 22270}# #{e2 22271}#)
- #{r 21959}#
- #{w 22255}#
- #{s 22256}#
- #{m 21962}#
- #{esew 21963}#
- #{mod 22257}#
- #{exps 21965}#))
- #{tmp 22266}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{e 22254}#)))))
- (if (eqv? #{type 22252}# 'local-syntax-form)
- (#{chi-local-syntax 4380}#
- #{value 22253}#
- #{e 22254}#
- #{r 21959}#
- #{w 22255}#
- #{s 22256}#
- #{mod 22257}#
- (lambda (#{body 22286}#
- #{r 22287}#
- #{w 22288}#
- #{s 22289}#
- #{mod 22290}#)
- (#{scan 21811}#
- #{body 22286}#
- #{r 22287}#
- #{w 22288}#
- #{s 22289}#
- #{m 21962}#
- #{esew 21963}#
- #{mod 22290}#
- #{exps 21965}#)))
- (if (eqv? #{type 22252}# 'eval-when-form)
- (let ((#{tmp 22295}#
- ($sc-dispatch
- #{e 22254}#
- '(_ each-any any . each-any))))
- (if #{tmp 22295}#
- (@apply
- (lambda (#{x 22299}#
- #{e1 22300}#
- #{e2 22301}#)
- (let ((#{when-list 22302}#
- (#{chi-when-list 4373}#
- #{e 22254}#
- #{x 22299}#
- #{w 22255}#))
- (#{body 22303}#
- (cons #{e1 22300}#
- #{e2 22301}#)))
- (if (eq? #{m 21962}# 'e)
- (if (memq 'eval #{when-list 22302}#)
- (#{scan 21811}#
- #{body 22303}#
- #{r 21959}#
- #{w 22255}#
- #{s 22256}#
- (if (memq 'expand
- #{when-list 22302}#)
- 'c&e
- 'e)
- '(eval)
- #{mod 22257}#
- #{exps 21965}#)
+ ((#{scan 21951}#
+ (lambda (#{body 22098}#
+ #{r 22099}#
+ #{w 22100}#
+ #{s 22101}#
+ #{m 22102}#
+ #{esew 22103}#
+ #{mod 22104}#
+ #{exps 22105}#)
+ (if (null? #{body 22098}#)
+ #{exps 22105}#
+ (#{scan 21951}#
+ (cdr #{body 22098}#)
+ #{r 22099}#
+ #{w 22100}#
+ #{s 22101}#
+ #{m 22102}#
+ #{esew 22103}#
+ #{mod 22104}#
+ (call-with-values
+ (lambda ()
+ (let ((#{e 22106}# (car #{body 22098}#)))
+ (#{syntax-type 4372}#
+ #{e 22106}#
+ #{r 22099}#
+ #{w 22100}#
+ (let ((#{t 22110}#
+ (#{source-annotation 4334}# #{e 22106}#)))
+ (if #{t 22110}# #{t 22110}# #{s 22101}#))
+ #f
+ #{mod 22104}#
+ #f)))
+ (lambda (#{type 22408}#
+ #{value 22409}#
+ #{e 22410}#
+ #{w 22411}#
+ #{s 22412}#
+ #{mod 22413}#)
+ (if (eqv? #{type 22408}# 'begin-form)
+ (let ((#{tmp 22418}# ($sc-dispatch #{e 22410}# '(_))))
+ (if #{tmp 22418}#
+ (@apply (lambda () #{exps 22105}#) #{tmp 22418}#)
+ (let ((#{tmp 22422}#
+ ($sc-dispatch
+ #{e 22410}#
+ '(_ any . each-any))))
+ (if #{tmp 22422}#
+ (@apply
+ (lambda (#{e1 22426}# #{e2 22427}#)
+ (#{scan 21951}#
+ (cons #{e1 22426}# #{e2 22427}#)
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ #{m 22102}#
+ #{esew 22103}#
+ #{mod 22413}#
+ #{exps 22105}#))
+ #{tmp 22422}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 22410}#)))))
+ (if (eqv? #{type 22408}# 'local-syntax-form)
+ (#{chi-local-syntax 4378}#
+ #{value 22409}#
+ #{e 22410}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ #{mod 22413}#
+ (lambda (#{body 22442}#
+ #{r 22443}#
+ #{w 22444}#
+ #{s 22445}#
+ #{mod 22446}#)
+ (#{scan 21951}#
+ #{body 22442}#
+ #{r 22443}#
+ #{w 22444}#
+ #{s 22445}#
+ #{m 22102}#
+ #{esew 22103}#
+ #{mod 22446}#
+ #{exps 22105}#)))
+ (if (eqv? #{type 22408}# 'eval-when-form)
+ (let ((#{tmp 22451}#
+ ($sc-dispatch
+ #{e 22410}#
+ '(_ each-any any . each-any))))
+ (if #{tmp 22451}#
+ (@apply
+ (lambda (#{x 22455}#
+ #{e1 22456}#
+ #{e2 22457}#)
+ (let ((#{when-list 22458}#
+ (#{chi-when-list 4371}#
+ #{e 22410}#
+ #{x 22455}#
+ #{w 22411}#))
+ (#{body 22459}#
+ (cons #{e1 22456}# #{e2 22457}#)))
+ (if (eq? #{m 22102}# 'e)
+ (if (memq 'eval #{when-list 22458}#)
+ (#{scan 21951}#
+ #{body 22459}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ (if (memq 'expand
+ #{when-list 22458}#)
+ 'c&e
+ 'e)
+ '(eval)
+ #{mod 22413}#
+ #{exps 22105}#)
+ (begin
+ (if (memq 'expand
+ #{when-list 22458}#)
+ (let ((#{x 22466}#
+ (#{chi-top-sequence
4369}#
+ #{body 22459}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ 'e
+ '(eval)
+ #{mod 22413}#)))
+ (primitive-eval #{x 22466}#)))
+ #{exps 22105}#))
+ (if (memq 'load #{when-list 22458}#)
+ (if (let ((#{t 22468}#
+ (memq 'compile
+ #{when-list
22458}#)))
+ (if #{t 22468}#
+ #{t 22468}#
+ (let ((#{t 22470}#
+ (memq 'expand
+ #{when-list
22458}#)))
+ (if #{t 22470}#
+ #{t 22470}#
+ (if (eq? #{m 22102}#
+ 'c&e)
+ (memq 'eval
+ #{when-list
22458}#)
+ #f)))))
+ (#{scan 21951}#
+ #{body 22459}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ 'c&e
+ '(compile load)
+ #{mod 22413}#
+ #{exps 22105}#)
+ (if (if (eq? #{m 22102}# 'c)
+ #t
+ (eq? #{m 22102}# 'c&e))
+ (#{scan 21951}#
+ #{body 22459}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ 'c
+ '(load)
+ #{mod 22413}#
+ #{exps 22105}#)
+ #{exps 22105}#))
+ (if (let ((#{t 22480}#
+ (memq 'compile
+ #{when-list
22458}#)))
+ (if #{t 22480}#
+ #{t 22480}#
+ (let ((#{t 22482}#
+ (memq 'expand
+ #{when-list
22458}#)))
+ (if #{t 22482}#
+ #{t 22482}#
+ (if (eq? #{m 22102}#
+ 'c&e)
+ (memq 'eval
+ #{when-list
22458}#)
+ #f)))))
(begin
- (if (memq 'expand
- #{when-list 22302}#)
- (let ((#{x 22310}#
- (#{chi-top-sequence
4371}#
- #{body 22303}#
- #{r 21959}#
- #{w 22255}#
- #{s 22256}#
- 'e
- '(eval)
- #{mod 22257}#)))
- (primitive-eval
- #{x 22310}#)))
- (values #{exps 21965}#)))
- (if (memq 'load #{when-list 22302}#)
- (if (let ((#{t 22312}#
- (memq 'compile
- #{when-list
22302}#)))
- (if #{t 22312}#
- #{t 22312}#
- (let ((#{t 22314}#
- (memq 'expand
- #{when-list
22302}#)))
- (if #{t 22314}#
- #{t 22314}#
- (if (eq? #{m 21962}#
- 'c&e)
- (memq 'eval
- #{when-list
22302}#)
- #f)))))
- (#{scan 21811}#
- #{body 22303}#
- #{r 21959}#
- #{w 22255}#
- #{s 22256}#
- 'c&e
- '(compile load)
- #{mod 22257}#
- #{exps 21965}#)
- (if (if (eq? #{m 21962}# 'c)
- #t
- (eq? #{m 21962}# 'c&e))
- (#{scan 21811}#
- #{body 22303}#
- #{r 21959}#
- #{w 22255}#
- #{s 22256}#
- 'c
- '(load)
- #{mod 22257}#
- #{exps 21965}#)
- (values #{exps 21965}#)))
- (if (let ((#{t 22324}#
- (memq 'compile
- #{when-list
22302}#)))
- (if #{t 22324}#
- #{t 22324}#
- (let ((#{t 22326}#
- (memq 'expand
- #{when-list
22302}#)))
- (if #{t 22326}#
- #{t 22326}#
- (if (eq? #{m 21962}#
- 'c&e)
- (memq 'eval
- #{when-list
22302}#)
- #f)))))
- (begin
- (let ((#{x 22331}#
- (#{chi-top-sequence
4371}#
- #{body 22303}#
- #{r 21959}#
- #{w 22255}#
- #{s 22256}#
- 'e
- '(eval)
- #{mod 22257}#)))
- (primitive-eval #{x 22331}#))
- (values #{exps 21965}#))
- (values #{exps 21965}#))))))
- #{tmp 22295}#)
- (syntax-violation
- #f
- "source expression failed to match any
pattern"
- #{e 22254}#)))
- (if (eqv? #{type 22252}# 'define-syntax-form)
- (let ((#{n 22342}#
- (#{id-var-name 4362}#
- #{value 22253}#
- #{w 22255}#))
- (#{r 22343}#
- (#{macros-only-env 4339}#
- #{r 21959}#)))
- (if (eqv? #{m 21962}# 'c)
- (if (memq 'compile #{esew 21963}#)
- (let ((#{e 22347}#
- (#{chi-install-global 4372}#
- #{n 22342}#
- (#{chi 4375}#
- #{e 22254}#
- #{r 22343}#
- #{w 22255}#
- #{mod 22257}#))))
- (begin
- (#{top-level-eval-hook 4302}#
- #{e 22347}#
- #{mod 22257}#)
- (if (memq 'load #{esew 21963}#)
- (values
- (cons #{e 22347}#
- #{exps 21965}#))
- (values #{exps 21965}#))))
- (if (memq 'load #{esew 21963}#)
- (values
- (cons (#{chi-install-global 4372}#
- #{n 22342}#
- (#{chi 4375}#
- #{e 22254}#
- #{r 22343}#
- #{w 22255}#
- #{mod 22257}#))
- #{exps 21965}#))
- (values #{exps 21965}#)))
- (if (eqv? #{m 21962}# 'c&e)
- (let ((#{e 22789}#
- (#{chi-install-global 4372}#
- #{n 22342}#
- (#{chi 4375}#
- #{e 22254}#
- #{r 22343}#
- #{w 22255}#
- #{mod 22257}#))))
- (begin
- (#{top-level-eval-hook 4302}#
- #{e 22789}#
- #{mod 22257}#)
- (values
- (cons #{e 22789}#
- #{exps 21965}#))))
+ (let ((#{x 22487}#
+ (#{chi-top-sequence
4369}#
+ #{body 22459}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ 'e
+ '(eval)
+ #{mod 22413}#)))
+ (primitive-eval #{x 22487}#))
+ #{exps 22105}#)
+ #{exps 22105}#)))))
+ #{tmp 22451}#)
+ (syntax-violation
+ #f
+ "source expression failed to match any
pattern"
+ #{e 22410}#)))
+ (if (eqv? #{type 22408}# 'define-syntax-form)
+ (let ((#{n 22498}#
+ (#{id-var-name 4360}#
+ #{value 22409}#
+ #{w 22411}#))
+ (#{r 22499}#
+ (#{macros-only-env 4337}# #{r 22099}#)))
+ (if (eqv? #{m 22102}# 'c)
+ (if (memq 'compile #{esew 22103}#)
+ (let ((#{e 22503}#
+ (#{chi-install-global 4370}#
+ #{n 22498}#
+ (#{chi 4373}#
+ #{e 22410}#
+ #{r 22499}#
+ #{w 22411}#
+ #{mod 22413}#))))
(begin
- (if (memq 'eval #{esew 21963}#)
- (#{top-level-eval-hook 4302}#
- (#{chi-install-global 4372}#
- #{n 22342}#
- (#{chi 4375}#
- #{e 22254}#
- #{r 22343}#
- #{w 22255}#
- #{mod 22257}#))
- #{mod 22257}#))
- (values #{exps 21965}#)))))
- (if (eqv? #{type 22252}# 'define-form)
- (let ((#{n 23433}#
- (#{id-var-name 4362}#
- #{value 22253}#
- #{w 22255}#)))
- (let ((#{type 23434}#
- (car (let ((#{t 24426}#
- (assq #{n 23433}#
- #{r 21959}#)))
- (if #{t 24426}#
- (cdr #{t 24426}#)
- (if (symbol? #{n 23433}#)
- (let ((#{t 24431}#
- (begin
- (if (if (not
#{mod 22257}#)
-
(current-module)
- #f)
- (warn
"module system is booted, we should have a module"
- #{n
23433}#))
- (let ((#{v
24468}#
-
(module-variable
- (if
#{mod 22257}#
-
(resolve-module
-
(cdr #{mod 22257}#))
-
(current-module))
- #{n
23433}#)))
- (if #{v
24468}#
- (if
(variable-bound?
- #{v
24468}#)
- (let
((#{val 24477}#
-
(variable-ref
-
#{v 24468}#)))
- (if
(macro?
-
#{val 24477}#)
- (if
(macro-type
-
#{val 24477}#)
-
(cons (macro-type
-
#{val 24477}#)
-
(macro-binding
-
#{val 24477}#))
-
#f)
- #f))
- #f)
- #f)))))
- (if #{t 24431}#
- #{t 24431}#
- '(global)))
-
'(displaced-lexical)))))))
- (if (let ((#{t 23468}# #{type 23434}#))
- (if (eqv? #{t 23468}# 'global)
+ (#{top-level-eval-hook 4300}#
+ #{e 22503}#
+ #{mod 22413}#)
+ (if (memq 'load #{esew 22103}#)
+ (cons #{e 22503}# #{exps 22105}#)
+ #{exps 22105}#)))
+ (if (memq 'load #{esew 22103}#)
+ (cons (#{chi-install-global 4370}#
+ #{n 22498}#
+ (#{chi 4373}#
+ #{e 22410}#
+ #{r 22499}#
+ #{w 22411}#
+ #{mod 22413}#))
+ #{exps 22105}#)
+ #{exps 22105}#))
+ (if (eqv? #{m 22102}# 'c&e)
+ (let ((#{e 22949}#
+ (#{chi-install-global 4370}#
+ #{n 22498}#
+ (#{chi 4373}#
+ #{e 22410}#
+ #{r 22499}#
+ #{w 22411}#
+ #{mod 22413}#))))
+ (begin
+ (#{top-level-eval-hook 4300}#
+ #{e 22949}#
+ #{mod 22413}#)
+ (cons #{e 22949}# #{exps 22105}#)))
+ (begin
+ (if (memq 'eval #{esew 22103}#)
+ (#{top-level-eval-hook 4300}#
+ (#{chi-install-global 4370}#
+ #{n 22498}#
+ (#{chi 4373}#
+ #{e 22410}#
+ #{r 22499}#
+ #{w 22411}#
+ #{mod 22413}#))
+ #{mod 22413}#))
+ #{exps 22105}#))))
+ (if (eqv? #{type 22408}# 'define-form)
+ (let ((#{n 23599}#
+ (#{id-var-name 4360}#
+ #{value 22409}#
+ #{w 22411}#)))
+ (let ((#{type 23600}#
+ (car (let ((#{t 24602}#
+ (assq #{n 23599}#
+ #{r 22099}#)))
+ (if #{t 24602}#
+ (cdr #{t 24602}#)
+ (if (symbol? #{n 23599}#)
+ (let ((#{t 24607}#
+ (begin
+ (if (if (not
#{mod 22413}#)
+
(current-module)
+ #f)
+ (warn "module
system is booted, we should have a module"
+ #{n
23599}#))
+ (let ((#{v
24644}#
+
(module-variable
+ (if
#{mod 22413}#
+
(resolve-module
+
(cdr #{mod 22413}#))
+
(current-module))
+ #{n
23599}#)))
+ (if #{v
24644}#
+ (if
(variable-bound?
+ #{v
24644}#)
+ (let
((#{val 24653}#
+
(variable-ref
+
#{v 24644}#)))
+ (if
(macro?
+
#{val 24653}#)
+ (if
(macro-type
+
#{val 24653}#)
+
(cons (macro-type
+
#{val 24653}#)
+
(macro-binding
+
#{val 24653}#))
+ #f)
+ #f))
+ #f)
+ #f)))))
+ (if #{t 24607}#
+ #{t 24607}#
+ '(global)))
+ '(displaced-lexical)))))))
+ (if (let ((#{t 23634}# #{type 23600}#))
+ (if (eqv? #{t 23634}# 'global)
+ #t
+ (if (eqv? #{t 23634}# 'core)
#t
- (if (eqv? #{t 23468}# 'core)
+ (if (eqv? #{t 23634}# 'macro)
#t
- (if (eqv? #{t 23468}# 'macro)
+ (eqv? #{t 23634}#
+ 'module-ref)))))
+ (begin
+ (if (if (if (eq? #{m 22102}# 'c)
#t
- (eqv? #{t 23468}#
- 'module-ref)))))
- (begin
- (if (if (if (eq? #{m 21962}# 'c)
- #t
- (eq? #{m 21962}# 'c&e))
- (if (not (module-local-variable
- (current-module)
- #{n 23433}#))
- (current-module)
+ (eq? #{m 22102}# 'c&e))
+ (if (not (module-local-variable
+ (current-module)
+ #{n 23599}#))
+ (current-module)
+ #f)
+ #f)
+ (let ((#{old 23798}#
+ (module-variable
+ (current-module)
+ #{n 23599}#)))
+ (if (if (variable? #{old 23798}#)
+ (variable-bound?
+ #{old 23798}#)
#f)
+ (module-define!
+ (current-module)
+ #{n 23599}#
+ (variable-ref #{old 23798}#))
+ (module-add!
+ (current-module)
+ #{n 23599}#
+ (make-undefined-variable)))))
+ (cons (if (eq? #{m 22102}# 'c&e)
+ (let ((#{x 23800}#
+
(#{build-global-definition 4315}#
+ #{s 22412}#
+ #{n 23599}#
+ (#{chi 4373}#
+ #{e 22410}#
+ #{r 22099}#
+ #{w 22411}#
+ #{mod 22413}#))))
+ (begin
+ (#{top-level-eval-hook
4300}#
+ #{x 23800}#
+ #{mod 22413}#)
+ #{x 23800}#))
+ (lambda ()
+ (#{build-global-definition
4315}#
+ #{s 22412}#
+ #{n 23599}#
+ (#{chi 4373}#
+ #{e 22410}#
+ #{r 22099}#
+ #{w 22411}#
+ #{mod 22413}#))))
+ #{exps 22105}#))
+ (if (let ((#{t 24337}# #{type 23600}#))
+ (eqv? #{t 24337}#
+ 'displaced-lexical))
+ (syntax-violation
+ #f
+ "identifier out of context"
+ #{e 22410}#
+ (if (if (null? (car #{w 22411}#))
+ (null? (cdr #{w 22411}#))
#f)
- (let ((#{old 23632}#
- (module-variable
- (current-module)
- #{n 23433}#)))
- (if (if (variable? #{old 23632}#)
- (variable-bound?
- #{old 23632}#)
+ #{value 22409}#
+ (if (if (vector? #{value 22409}#)
+ (if (= (vector-length
+ #{value 22409}#)
+ 4)
+ (eq? (vector-ref
+ #{value 22409}#
+ 0)
+ 'syntax-object)
#f)
- (module-define!
- (current-module)
- #{n 23433}#
- (variable-ref #{old 23632}#))
- (module-add!
- (current-module)
- #{n 23433}#
- (make-undefined-variable)))))
- (values
- (cons (if (eq? #{m 21962}# 'c&e)
- (let ((#{x 23634}#
-
(#{build-global-definition 4317}#
- #{s 22256}#
- #{n 23433}#
- (#{chi 4375}#
- #{e 22254}#
- #{r 21959}#
- #{w 22255}#
- #{mod
22257}#))))
- (begin
- (#{top-level-eval-hook
4302}#
- #{x 23634}#
- #{mod 22257}#)
- #{x 23634}#))
- (lambda ()
-
(#{build-global-definition 4317}#
- #{s 22256}#
- #{n 23433}#
- (#{chi 4375}#
- #{e 22254}#
- #{r 21959}#
- #{w 22255}#
- #{mod 22257}#))))
- #{exps 21965}#)))
- (if (let ((#{t 24161}# #{type 23434}#))
- (eqv? #{t 24161}#
- 'displaced-lexical))
- (syntax-violation
- #f
- "identifier out of context"
- #{e 22254}#
- (if (if (null? (car #{w 22255}#))
- (null? (cdr #{w 22255}#))
#f)
- #{value 22253}#
- (if (if (vector? #{value 22253}#)
- (if (= (vector-length
- #{value 22253}#)
- 4)
- (eq? (vector-ref
- #{value 22253}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (let ((#{expression 24253}#
- (vector-ref
- #{value 22253}#
- 1))
- (#{wrap 24254}#
- (let ((#{w2 24264}#
- (vector-ref
- #{value
22253}#
- 2)))
- (let ((#{m1 24265}#
- (car #{w
22255}#))
- (#{s1 24266}#
- (cdr #{w
22255}#)))
- (if (null? #{m1
24265}#)
- (if (null? #{s1
24266}#)
- #{w2 24264}#
- (cons (car
#{w2 24264}#)
- (let
((#{m2 24283}#
-
(cdr #{w2 24264}#)))
- (if
(null? #{m2 24283}#)
- #{s1
24266}#
-
(append
-
#{s1 24266}#
-
#{m2 24283}#)))))
- (cons (let
((#{m2 24291}#
-
(car #{w2 24264}#)))
- (if
(null? #{m2 24291}#)
- #{m1
24265}#
- (append
- #{m1
24265}#
- #{m2
24291}#)))
- (let
((#{m2 24299}#
-
(cdr #{w2 24264}#)))
- (if
(null? #{m2 24299}#)
- #{s1
24266}#
+ (let ((#{expression 24429}#
+ (vector-ref
+ #{value 22409}#
+ 1))
+ (#{wrap 24430}#
+ (let ((#{w2 24440}#
+ (vector-ref
+ #{value 22409}#
+ 2)))
+ (let ((#{m1 24441}#
+ (car #{w
22411}#))
+ (#{s1 24442}#
+ (cdr #{w
22411}#)))
+ (if (null? #{m1
24441}#)
+ (if (null? #{s1
24442}#)
+ #{w2 24440}#
+ (cons (car #{w2
24440}#)
+ (let
((#{m2 24459}#
+
(cdr #{w2 24440}#)))
+ (if
(null? #{m2 24459}#)
+ #{s1
24442}#
(append
- #{s1
24266}#
- #{m2
24299}#))))))))
- (#{module 24255}#
- (vector-ref
- #{value 22253}#
- 3)))
- (vector
- 'syntax-object
- #{expression 24253}#
- #{wrap 24254}#
- #{module 24255}#))
- (if (null? #{value 22253}#)
- #{value 22253}#
- (vector
- 'syntax-object
- #{value 22253}#
- #{w 22255}#
- #{mod 22257}#)))))
- (syntax-violation
- #f
- "cannot define keyword at top
level"
- #{e 22254}#
- (if (if (null? (car #{w 22255}#))
- (null? (cdr #{w 22255}#))
- #f)
- #{value 22253}#
- (if (if (vector? #{value 22253}#)
- (if (= (vector-length
- #{value 22253}#)
- 4)
- (eq? (vector-ref
- #{value 22253}#
- 0)
- 'syntax-object)
- #f)
+ #{s1
24442}#
+ #{m2
24459}#)))))
+ (cons (let ((#{m2
24467}#
+ (car
#{w2 24440}#)))
+ (if (null?
#{m2 24467}#)
+ #{m1
24441}#
+ (append
+ #{m1
24441}#
+ #{m2
24467}#)))
+ (let ((#{m2
24475}#
+ (cdr
#{w2 24440}#)))
+ (if (null?
#{m2 24475}#)
+ #{s1
24442}#
+ (append
+ #{s1
24442}#
+ #{m2
24475}#))))))))
+ (#{module 24431}#
+ (vector-ref
+ #{value 22409}#
+ 3)))
+ (vector
+ 'syntax-object
+ #{expression 24429}#
+ #{wrap 24430}#
+ #{module 24431}#))
+ (if (null? #{value 22409}#)
+ #{value 22409}#
+ (vector
+ 'syntax-object
+ #{value 22409}#
+ #{w 22411}#
+ #{mod 22413}#)))))
+ (syntax-violation
+ #f
+ "cannot define keyword at top level"
+ #{e 22410}#
+ (if (if (null? (car #{w 22411}#))
+ (null? (cdr #{w 22411}#))
+ #f)
+ #{value 22409}#
+ (if (if (vector? #{value 22409}#)
+ (if (= (vector-length
+ #{value 22409}#)
+ 4)
+ (eq? (vector-ref
+ #{value 22409}#
+ 0)
+ 'syntax-object)
#f)
- (let ((#{expression 24351}#
- (vector-ref
- #{value 22253}#
- 1))
- (#{wrap 24352}#
- (let ((#{w2 24362}#
- (vector-ref
- #{value
22253}#
- 2)))
- (let ((#{m1 24363}#
- (car #{w
22255}#))
- (#{s1 24364}#
- (cdr #{w
22255}#)))
- (if (null? #{m1
24363}#)
- (if (null? #{s1
24364}#)
- #{w2 24362}#
- (cons (car
#{w2 24362}#)
- (let
((#{m2 24381}#
-
(cdr #{w2 24362}#)))
- (if
(null? #{m2 24381}#)
- #{s1
24364}#
-
(append
-
#{s1 24364}#
-
#{m2 24381}#)))))
- (cons (let
((#{m2 24389}#
-
(car #{w2 24362}#)))
- (if
(null? #{m2 24389}#)
- #{m1
24363}#
- (append
- #{m1
24363}#
- #{m2
24389}#)))
- (let
((#{m2 24397}#
-
(cdr #{w2 24362}#)))
- (if
(null? #{m2 24397}#)
- #{s1
24364}#
+ #f)
+ (let ((#{expression 24527}#
+ (vector-ref
+ #{value 22409}#
+ 1))
+ (#{wrap 24528}#
+ (let ((#{w2 24538}#
+ (vector-ref
+ #{value 22409}#
+ 2)))
+ (let ((#{m1 24539}#
+ (car #{w
22411}#))
+ (#{s1 24540}#
+ (cdr #{w
22411}#)))
+ (if (null? #{m1
24539}#)
+ (if (null? #{s1
24540}#)
+ #{w2 24538}#
+ (cons (car #{w2
24538}#)
+ (let
((#{m2 24557}#
+
(cdr #{w2 24538}#)))
+ (if
(null? #{m2 24557}#)
+ #{s1
24540}#
(append
- #{s1
24364}#
- #{m2
24397}#))))))))
- (#{module 24353}#
- (vector-ref
- #{value 22253}#
- 3)))
- (vector
- 'syntax-object
- #{expression 24351}#
- #{wrap 24352}#
- #{module 24353}#))
- (if (null? #{value 22253}#)
- #{value 22253}#
- (vector
- 'syntax-object
- #{value 22253}#
- #{w 22255}#
- #{mod 22257}#)))))))))
- (values
- (cons (if (eq? #{m 21962}# 'c&e)
- (let ((#{x 24488}#
- (#{chi-expr 4376}#
- #{type 22252}#
- #{value 22253}#
- #{e 22254}#
- #{r 21959}#
- #{w 22255}#
- #{s 22256}#
- #{mod 22257}#)))
- (begin
- (primitive-eval #{x 24488}#)
- #{x 24488}#))
- (lambda ()
- (#{chi-expr 4376}#
- #{type 22252}#
- #{value 22253}#
- #{e 22254}#
- #{r 21959}#
- #{w 22255}#
- #{s 22256}#
- #{mod 22257}#)))
- #{exps 21965}#))))))))))
- (lambda (#{exps 24497}#)
- (#{scan 21811}#
- (cdr #{body 21958}#)
- #{r 21959}#
- #{w 21960}#
- #{s 21961}#
- #{m 21962}#
- #{esew 21963}#
- #{mod 21964}#
- #{exps 24497}#)))))))
- (call-with-values
- (lambda ()
- (#{scan 21811}#
- #{body 21804}#
- #{r 21805}#
- #{w 21806}#
- #{s 21807}#
- #{m 21808}#
- #{esew 21809}#
- #{mod 21810}#
- '()))
- (lambda (#{exps 21814}#)
- (if (null? #{exps 21814}#)
- (make-struct/no-tail
- (vector-ref %expanded-vtables 0)
- #{s 21807}#)
- (#{build-sequence 4324}#
- #{s 21807}#
- (letrec*
- ((#{lp 21858}#
- (lambda (#{in 21954}# #{out 21955}#)
- (if (null? #{in 21954}#)
- #{out 21955}#
- (let ((#{e 21956}# (car #{in 21954}#)))
- (#{lp 21858}#
- (cdr #{in 21954}#)
- (cons (if (procedure? #{e 21956}#)
- (#{e 21956}#)
- #{e 21956}#)
- #{out 21955}#)))))))
- (#{lp 21858}# #{exps 21814}# '())))))))))
- (#{chi-install-global 4372}#
- (lambda (#{name 24498}# #{e 24499}#)
- (let ((#{exp 24505}#
- (let ((#{args 24516}#
+ #{s1
24540}#
+ #{m2
24557}#)))))
+ (cons (let ((#{m2
24565}#
+ (car
#{w2 24538}#)))
+ (if (null?
#{m2 24565}#)
+ #{m1
24539}#
+ (append
+ #{m1
24539}#
+ #{m2
24565}#)))
+ (let ((#{m2
24573}#
+ (cdr
#{w2 24538}#)))
+ (if (null?
#{m2 24573}#)
+ #{s1
24540}#
+ (append
+ #{s1
24540}#
+ #{m2
24573}#))))))))
+ (#{module 24529}#
+ (vector-ref
+ #{value 22409}#
+ 3)))
+ (vector
+ 'syntax-object
+ #{expression 24527}#
+ #{wrap 24528}#
+ #{module 24529}#))
+ (if (null? #{value 22409}#)
+ #{value 22409}#
+ (vector
+ 'syntax-object
+ #{value 22409}#
+ #{w 22411}#
+ #{mod 22413}#)))))))))
+ (cons (if (eq? #{m 22102}# 'c&e)
+ (let ((#{x 24664}#
+ (#{chi-expr 4374}#
+ #{type 22408}#
+ #{value 22409}#
+ #{e 22410}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ #{mod 22413}#)))
+ (begin
+ (primitive-eval #{x 24664}#)
+ #{x 24664}#))
+ (lambda ()
+ (#{chi-expr 4374}#
+ #{type 22408}#
+ #{value 22409}#
+ #{e 22410}#
+ #{r 22099}#
+ #{w 22411}#
+ #{s 22412}#
+ #{mod 22413}#)))
+ #{exps 22105}#)))))))))))))
+ (let ((#{exps 21952}#
+ (#{scan 21951}#
+ #{body 21944}#
+ #{r 21945}#
+ #{w 21946}#
+ #{s 21947}#
+ #{m 21948}#
+ #{esew 21949}#
+ #{mod 21950}#
+ '())))
+ (if (null? #{exps 21952}#)
+ (make-struct/no-tail
+ (vector-ref %expanded-vtables 0)
+ #{s 21947}#)
+ (#{build-sequence 4322}#
+ #{s 21947}#
+ (letrec*
+ ((#{lp 21998}#
+ (lambda (#{in 22094}# #{out 22095}#)
+ (if (null? #{in 22094}#)
+ #{out 22095}#
+ (let ((#{e 22096}# (car #{in 22094}#)))
+ (#{lp 21998}#
+ (cdr #{in 22094}#)
+ (cons (if (procedure? #{e 22096}#)
+ (#{e 22096}#)
+ #{e 22096}#)
+ #{out 22095}#)))))))
+ (#{lp 21998}# #{exps 21952}# '()))))))))
+ (#{chi-install-global 4370}#
+ (lambda (#{name 24673}# #{e 24674}#)
+ (let ((#{exp 24680}#
+ (let ((#{args 24691}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name 24498}#)
+ #{name 24673}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- #{e 24499}#)))
+ #{e 24674}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'make-syntax-transformer
- #{args 24516}#))))
+ #{args 24691}#))))
(begin
- (if (if (struct? #{exp 24505}#)
- (eq? (struct-vtable #{exp 24505}#)
+ (if (if (struct? #{exp 24680}#)
+ (eq? (struct-vtable #{exp 24680}#)
(vector-ref %expanded-vtables 14))
#f)
- (let ((#{meta 24543}# (struct-ref #{exp 24505}# 1)))
- (if (not (assq 'name #{meta 24543}#))
- (let ((#{v 24550}#
- (cons (cons 'name #{name 24498}#) #{meta 24543}#)))
- (struct-set! #{exp 24505}# 1 #{v 24550}#)))))
+ (let ((#{meta 24718}# (struct-ref #{exp 24680}# 1)))
+ (if (not (assq 'name #{meta 24718}#))
+ (let ((#{v 24725}#
+ (cons (cons 'name #{name 24673}#) #{meta 24718}#)))
+ (struct-set! #{exp 24680}# 1 #{v 24725}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- #{name 24498}#
- #{exp 24505}#)))))
- (#{chi-when-list 4373}#
- (lambda (#{e 24561}# #{when-list 24562}# #{w 24563}#)
+ #{name 24673}#
+ #{exp 24680}#)))))
+ (#{chi-when-list 4371}#
+ (lambda (#{e 24736}# #{when-list 24737}# #{w 24738}#)
(letrec*
- ((#{f 24564}#
- (lambda (#{when-list 24764}# #{situations 24765}#)
- (if (null? #{when-list 24764}#)
- #{situations 24765}#
- (#{f 24564}#
- (cdr #{when-list 24764}#)
- (cons (let ((#{x 24766}#
- (syntax->datum (car #{when-list 24764}#))))
- (if (if (eq? #{x 24766}# 'compile)
+ ((#{f 24739}#
+ (lambda (#{when-list 24941}# #{situations 24942}#)
+ (if (null? #{when-list 24941}#)
+ #{situations 24942}#
+ (#{f 24739}#
+ (cdr #{when-list 24941}#)
+ (cons (let ((#{x 24943}#
+ (syntax->datum (car #{when-list 24941}#))))
+ (if (if (eq? #{x 24943}# 'compile)
#t
- (if (eq? #{x 24766}# 'load)
+ (if (eq? #{x 24943}# 'load)
#t
- (if (eq? #{x 24766}# 'eval)
+ (if (eq? #{x 24943}# 'eval)
#t
- (eq? #{x 24766}# 'expand))))
- #{x 24766}#
+ (eq? #{x 24943}# 'expand))))
+ #{x 24943}#
(syntax-violation
'eval-when
"invalid situation"
- #{e 24561}#
- (let ((#{x 24785}# (car #{when-list 24764}#)))
- (if (if (null? (car #{w 24563}#))
- (null? (cdr #{w 24563}#))
+ #{e 24736}#
+ (let ((#{x 24962}# (car #{when-list 24941}#)))
+ (if (if (null? (car #{w 24738}#))
+ (null? (cdr #{w 24738}#))
#f)
- #{x 24785}#
- (if (if (vector? #{x 24785}#)
- (if (= (vector-length #{x 24785}#) 4)
- (eq? (vector-ref #{x 24785}# 0)
+ #{x 24962}#
+ (if (if (vector? #{x 24962}#)
+ (if (= (vector-length #{x 24962}#) 4)
+ (eq? (vector-ref #{x 24962}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 24803}#
- (vector-ref #{x 24785}# 1))
- (#{wrap 24804}#
- (let ((#{w2 24812}#
+ (let ((#{expression 24980}#
+ (vector-ref #{x 24962}# 1))
+ (#{wrap 24981}#
+ (let ((#{w2 24989}#
(vector-ref
- #{x 24785}#
+ #{x 24962}#
2)))
- (let ((#{m1 24813}#
- (car #{w 24563}#))
- (#{s1 24814}#
- (cdr #{w 24563}#)))
- (if (null? #{m1 24813}#)
- (if (null? #{s1 24814}#)
- #{w2 24812}#
- (cons (car #{w2 24812}#)
- (let ((#{m2 24829}#
- (cdr #{w2
24812}#)))
- (if (null? #{m2
24829}#)
- #{s1 24814}#
+ (let ((#{m1 24990}#
+ (car #{w 24738}#))
+ (#{s1 24991}#
+ (cdr #{w 24738}#)))
+ (if (null? #{m1 24990}#)
+ (if (null? #{s1 24991}#)
+ #{w2 24989}#
+ (cons (car #{w2 24989}#)
+ (let ((#{m2 25006}#
+ (cdr #{w2
24989}#)))
+ (if (null? #{m2
25006}#)
+ #{s1 24991}#
(append
- #{s1 24814}#
- #{m2
24829}#)))))
- (cons (let ((#{m2 24837}#
- (car #{w2
24812}#)))
- (if (null? #{m2
24837}#)
- #{m1 24813}#
+ #{s1 24991}#
+ #{m2
25006}#)))))
+ (cons (let ((#{m2 25014}#
+ (car #{w2
24989}#)))
+ (if (null? #{m2
25014}#)
+ #{m1 24990}#
(append
- #{m1 24813}#
- #{m2 24837}#)))
- (let ((#{m2 24845}#
- (cdr #{w2
24812}#)))
- (if (null? #{m2
24845}#)
- #{s1 24814}#
+ #{m1 24990}#
+ #{m2 25014}#)))
+ (let ((#{m2 25022}#
+ (cdr #{w2
24989}#)))
+ (if (null? #{m2
25022}#)
+ #{s1 24991}#
(append
- #{s1 24814}#
- #{m2
24845}#))))))))
- (#{module 24805}#
- (vector-ref #{x 24785}# 3)))
+ #{s1 24991}#
+ #{m2
25022}#))))))))
+ (#{module 24982}#
+ (vector-ref #{x 24962}# 3)))
(vector
'syntax-object
- #{expression 24803}#
- #{wrap 24804}#
- #{module 24805}#))
- (if (null? #{x 24785}#)
- #{x 24785}#
+ #{expression 24980}#
+ #{wrap 24981}#
+ #{module 24982}#))
+ (if (null? #{x 24962}#)
+ #{x 24962}#
(vector
'syntax-object
- #{x 24785}#
- #{w 24563}#
+ #{x 24962}#
+ #{w 24738}#
#f))))))))
- #{situations 24765}#))))))
- (#{f 24564}# #{when-list 24562}# '()))))
- (#{syntax-type 4374}#
- (lambda (#{e 24860}#
- #{r 24861}#
- #{w 24862}#
- #{s 24863}#
- #{rib 24864}#
- #{mod 24865}#
- #{for-car? 24866}#)
- (if (symbol? #{e 24860}#)
- (let ((#{n 24867}#
- (#{id-var-name 4362}# #{e 24860}# #{w 24862}#)))
- (let ((#{b 24868}#
- (let ((#{t 25443}# (assq #{n 24867}# #{r 24861}#)))
- (if #{t 25443}#
- (cdr #{t 25443}#)
- (if (symbol? #{n 24867}#)
- (let ((#{t 25448}#
+ #{situations 24942}#))))))
+ (#{f 24739}# #{when-list 24737}# '()))))
+ (#{syntax-type 4372}#
+ (lambda (#{e 25037}#
+ #{r 25038}#
+ #{w 25039}#
+ #{s 25040}#
+ #{rib 25041}#
+ #{mod 25042}#
+ #{for-car? 25043}#)
+ (if (symbol? #{e 25037}#)
+ (let ((#{n 25044}#
+ (#{id-var-name 4360}# #{e 25037}# #{w 25039}#)))
+ (let ((#{b 25045}#
+ (let ((#{t 25620}# (assq #{n 25044}# #{r 25038}#)))
+ (if #{t 25620}#
+ (cdr #{t 25620}#)
+ (if (symbol? #{n 25044}#)
+ (let ((#{t 25625}#
(begin
- (if (if (not #{mod 24865}#)
+ (if (if (not #{mod 25042}#)
(current-module)
#f)
(warn "module system is booted, we should
have a module"
- #{n 24867}#))
- (let ((#{v 25485}#
+ #{n 25044}#))
+ (let ((#{v 25662}#
(module-variable
- (if #{mod 24865}#
+ (if #{mod 25042}#
(resolve-module
- (cdr #{mod 24865}#))
+ (cdr #{mod 25042}#))
(current-module))
- #{n 24867}#)))
- (if #{v 25485}#
- (if (variable-bound? #{v 25485}#)
- (let ((#{val 25494}#
- (variable-ref #{v 25485}#)))
- (if (macro? #{val 25494}#)
- (if (macro-type #{val 25494}#)
- (cons (macro-type #{val 25494}#)
+ #{n 25044}#)))
+ (if #{v 25662}#
+ (if (variable-bound? #{v 25662}#)
+ (let ((#{val 25671}#
+ (variable-ref #{v 25662}#)))
+ (if (macro? #{val 25671}#)
+ (if (macro-type #{val 25671}#)
+ (cons (macro-type #{val 25671}#)
(macro-binding
- #{val 25494}#))
+ #{val 25671}#))
#f)
#f))
#f)
#f)))))
- (if #{t 25448}# #{t 25448}# '(global)))
+ (if #{t 25625}# #{t 25625}# '(global)))
'(displaced-lexical))))))
- (let ((#{type 24869}# (car #{b 24868}#)))
- (if (let ((#{t 24903}# #{type 24869}#))
- (eqv? #{t 24903}# 'lexical))
+ (let ((#{type 25046}# (car #{b 25045}#)))
+ (if (let ((#{t 25080}# #{type 25046}#))
+ (eqv? #{t 25080}# 'lexical))
(values
- #{type 24869}#
- (cdr #{b 24868}#)
- #{e 24860}#
- #{w 24862}#
- #{s 24863}#
- #{mod 24865}#)
- (if (let ((#{t 25060}# #{type 24869}#))
- (eqv? #{t 25060}# 'global))
+ #{type 25046}#
+ (cdr #{b 25045}#)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (let ((#{t 25237}# #{type 25046}#))
+ (eqv? #{t 25237}# 'global))
(values
- #{type 24869}#
- #{n 24867}#
- #{e 24860}#
- #{w 24862}#
- #{s 24863}#
- #{mod 24865}#)
- (if (let ((#{t 25186}# #{type 24869}#))
- (eqv? #{t 25186}# 'macro))
- (if #{for-car? 24866}#
+ #{type 25046}#
+ #{n 25044}#
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (let ((#{t 25363}# #{type 25046}#))
+ (eqv? #{t 25363}# 'macro))
+ (if #{for-car? 25043}#
(values
- #{type 24869}#
- (cdr #{b 24868}#)
- #{e 24860}#
- #{w 24862}#
- #{s 24863}#
- #{mod 24865}#)
- (#{syntax-type 4374}#
- (#{chi-macro 4378}#
- (cdr #{b 24868}#)
- #{e 24860}#
- #{r 24861}#
- #{w 24862}#
- #{s 24863}#
- #{rib 24864}#
- #{mod 24865}#)
- #{r 24861}#
+ #{type 25046}#
+ (cdr #{b 25045}#)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (#{syntax-type 4372}#
+ (#{chi-macro 4376}#
+ (cdr #{b 25045}#)
+ #{e 25037}#
+ #{r 25038}#
+ #{w 25039}#
+ #{s 25040}#
+ #{rib 25041}#
+ #{mod 25042}#)
+ #{r 25038}#
'(())
- #{s 24863}#
- #{rib 24864}#
- #{mod 24865}#
+ #{s 25040}#
+ #{rib 25041}#
+ #{mod 25042}#
#f))
(values
- #{type 24869}#
- (cdr #{b 24868}#)
- #{e 24860}#
- #{w 24862}#
- #{s 24863}#
- #{mod 24865}#)))))))
- (if (pair? #{e 24860}#)
- (let ((#{first 25505}# (car #{e 24860}#)))
+ #{type 25046}#
+ (cdr #{b 25045}#)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)))))))
+ (if (pair? #{e 25037}#)
+ (let ((#{first 25682}# (car #{e 25037}#)))
(call-with-values
(lambda ()
- (#{syntax-type 4374}#
- #{first 25505}#
- #{r 24861}#
- #{w 24862}#
- #{s 24863}#
- #{rib 24864}#
- #{mod 24865}#
+ (#{syntax-type 4372}#
+ #{first 25682}#
+ #{r 25038}#
+ #{w 25039}#
+ #{s 25040}#
+ #{rib 25041}#
+ #{mod 25042}#
#t))
- (lambda (#{ftype 25507}#
- #{fval 25508}#
- #{fe 25509}#
- #{fw 25510}#
- #{fs 25511}#
- #{fmod 25512}#)
- (if (eqv? #{ftype 25507}# 'lexical)
+ (lambda (#{ftype 25684}#
+ #{fval 25685}#
+ #{fe 25686}#
+ #{fw 25687}#
+ #{fs 25688}#
+ #{fmod 25689}#)
+ (if (eqv? #{ftype 25684}# 'lexical)
(values
'lexical-call
- #{fval 25508}#
- #{e 24860}#
- #{w 24862}#
- #{s 24863}#
- #{mod 24865}#)
- (if (eqv? #{ftype 25507}# 'global)
+ #{fval 25685}#
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (eqv? #{ftype 25684}# 'global)
(values
'global-call
(vector
'syntax-object
- #{fval 25508}#
- #{w 24862}#
- #{fmod 25512}#)
- #{e 24860}#
- #{w 24862}#
- #{s 24863}#
- #{mod 24865}#)
- (if (eqv? #{ftype 25507}# 'macro)
- (#{syntax-type 4374}#
- (#{chi-macro 4378}#
- #{fval 25508}#
- #{e 24860}#
- #{r 24861}#
- #{w 24862}#
- #{s 24863}#
- #{rib 24864}#
- #{mod 24865}#)
- #{r 24861}#
+ #{fval 25685}#
+ #{w 25039}#
+ #{fmod 25689}#)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (eqv? #{ftype 25684}# 'macro)
+ (#{syntax-type 4372}#
+ (#{chi-macro 4376}#
+ #{fval 25685}#
+ #{e 25037}#
+ #{r 25038}#
+ #{w 25039}#
+ #{s 25040}#
+ #{rib 25041}#
+ #{mod 25042}#)
+ #{r 25038}#
'(())
- #{s 24863}#
- #{rib 24864}#
- #{mod 24865}#
- #{for-car? 24866}#)
- (if (eqv? #{ftype 25507}# 'module-ref)
+ #{s 25040}#
+ #{rib 25041}#
+ #{mod 25042}#
+ #{for-car? 25043}#)
+ (if (eqv? #{ftype 25684}# 'module-ref)
(call-with-values
(lambda ()
- (#{fval 25508}#
- #{e 24860}#
- #{r 24861}#
- #{w 24862}#))
- (lambda (#{e 25533}#
- #{r 25534}#
- #{w 25535}#
- #{s 25536}#
- #{mod 25537}#)
- (#{syntax-type 4374}#
- #{e 25533}#
- #{r 25534}#
- #{w 25535}#
- #{s 25536}#
- #{rib 24864}#
- #{mod 25537}#
- #{for-car? 24866}#)))
- (if (eqv? #{ftype 25507}# 'core)
+ (#{fval 25685}#
+ #{e 25037}#
+ #{r 25038}#
+ #{w 25039}#))
+ (lambda (#{e 25710}#
+ #{r 25711}#
+ #{w 25712}#
+ #{s 25713}#
+ #{mod 25714}#)
+ (#{syntax-type 4372}#
+ #{e 25710}#
+ #{r 25711}#
+ #{w 25712}#
+ #{s 25713}#
+ #{rib 25041}#
+ #{mod 25714}#
+ #{for-car? 25043}#)))
+ (if (eqv? #{ftype 25684}# 'core)
(values
'core-form
- #{fval 25508}#
- #{e 24860}#
- #{w 24862}#
- #{s 24863}#
- #{mod 24865}#)
- (if (eqv? #{ftype 25507}# 'local-syntax)
+ #{fval 25685}#
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (eqv? #{ftype 25684}# 'local-syntax)
(values
'local-syntax-form
- #{fval 25508}#
- #{e 24860}#
- #{w 24862}#
- #{s 24863}#
- #{mod 24865}#)
- (if (eqv? #{ftype 25507}# 'begin)
+ #{fval 25685}#
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (eqv? #{ftype 25684}# 'begin)
(values
'begin-form
#f
- #{e 24860}#
- #{w 24862}#
- #{s 24863}#
- #{mod 24865}#)
- (if (eqv? #{ftype 25507}# 'eval-when)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (eqv? #{ftype 25684}# 'eval-when)
(values
'eval-when-form
#f
- #{e 24860}#
- #{w 24862}#
- #{s 24863}#
- #{mod 24865}#)
- (if (eqv? #{ftype 25507}# 'define)
- (let ((#{tmp 25554}#
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
+ (if (eqv? #{ftype 25684}# 'define)
+ (let ((#{tmp 25731}#
($sc-dispatch
- #{e 24860}#
+ #{e 25037}#
'(_ any any))))
- (if (if #{tmp 25554}#
+ (if (if #{tmp 25731}#
(@apply
- (lambda (#{name 25558}#
- #{val 25559}#)
- (if (symbol? #{name 25558}#)
+ (lambda (#{name 25735}#
+ #{val 25736}#)
+ (if (symbol? #{name 25735}#)
#t
(if (if (vector?
- #{name 25558}#)
+ #{name 25735}#)
(if (= (vector-length
- #{name 25558}#)
+ #{name 25735}#)
4)
(eq? (vector-ref
- #{name 25558}#
+ #{name 25735}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 25558}#
+ #{name 25735}#
1))
#f)))
- #{tmp 25554}#)
+ #{tmp 25731}#)
#f)
(@apply
- (lambda (#{name 25586}# #{val 25587}#)
+ (lambda (#{name 25763}# #{val 25764}#)
(values
'define-form
- #{name 25586}#
- #{val 25587}#
- #{w 24862}#
- #{s 24863}#
- #{mod 24865}#))
- #{tmp 25554}#)
- (let ((#{tmp 25588}#
+ #{name 25763}#
+ #{val 25764}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#))
+ #{tmp 25731}#)
+ (let ((#{tmp 25765}#
($sc-dispatch
- #{e 24860}#
+ #{e 25037}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp 25588}#
+ (if (if #{tmp 25765}#
(@apply
- (lambda (#{name 25592}#
- #{args 25593}#
- #{e1 25594}#
- #{e2 25595}#)
+ (lambda (#{name 25769}#
+ #{args 25770}#
+ #{e1 25771}#
+ #{e2 25772}#)
(if (if (symbol?
- #{name 25592}#)
+ #{name 25769}#)
#t
(if (if (vector?
- #{name
25592}#)
+ #{name
25769}#)
(if (=
(vector-length
- #{name
25592}#)
+ #{name
25769}#)
4)
(eq?
(vector-ref
- #{name
25592}#
+ #{name
25769}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 25592}#
+ #{name 25769}#
1))
#f))
- (#{valid-bound-ids? 4365}#
- (#{lambda-var-list
4390}#
- #{args 25593}#))
+ (#{valid-bound-ids? 4363}#
+ (#{lambda-var-list
4388}#
+ #{args 25770}#))
#f))
- #{tmp 25588}#)
+ #{tmp 25765}#)
#f)
(@apply
- (lambda (#{name 26071}#
- #{args 26072}#
- #{e1 26073}#
- #{e2 26074}#)
+ (lambda (#{name 26253}#
+ #{args 26254}#
+ #{e1 26255}#
+ #{e2 26256}#)
(values
'define-form
- (if (if (null? (car #{w
24862}#))
- (null? (cdr #{w
24862}#))
+ (if (if (null? (car #{w
25039}#))
+ (null? (cdr #{w
25039}#))
#f)
- #{name 26071}#
+ #{name 26253}#
(if (if (vector?
- #{name 26071}#)
+ #{name 26253}#)
(if (= (vector-length
- #{name
26071}#)
+ #{name
26253}#)
4)
(eq? (vector-ref
- #{name
26071}#
+ #{name
26253}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression
26104}#
+ (let ((#{expression
26286}#
(vector-ref
- #{name 26071}#
+ #{name 26253}#
1))
- (#{wrap 26105}#
- (let ((#{w2
26115}#
+ (#{wrap 26287}#
+ (let ((#{w2
26297}#
(vector-ref
- #{name
26071}#
+ #{name
26253}#
2)))
- (let ((#{m1
26116}#
- (car
#{w 24862}#))
- (#{s1
26117}#
- (cdr
#{w 24862}#)))
- (if (null?
#{m1 26116}#)
- (if (null?
#{s1 26117}#)
- #{w2
26115}#
- (cons
(car #{w2 26115}#)
-
(let ((#{m2 26134}#
-
(cdr #{w2 26115}#)))
-
(if (null? #{m2 26134}#)
-
#{s1 26117}#
+ (let ((#{m1
26298}#
+ (car
#{w 25039}#))
+ (#{s1
26299}#
+ (cdr
#{w 25039}#)))
+ (if (null?
#{m1 26298}#)
+ (if (null?
#{s1 26299}#)
+ #{w2
26297}#
+ (cons
(car #{w2 26297}#)
+
(let ((#{m2 26316}#
+
(cdr #{w2 26297}#)))
+
(if (null? #{m2 26316}#)
+
#{s1 26299}#
(append
-
#{s1 26117}#
-
#{m2 26134}#)))))
- (cons (let
((#{m2 26142}#
-
(car #{w2 26115}#)))
- (if
(null? #{m2 26142}#)
-
#{m1 26116}#
+
#{s1 26299}#
+
#{m2 26316}#)))))
+ (cons (let
((#{m2 26324}#
+
(car #{w2 26297}#)))
+ (if
(null? #{m2 26324}#)
+
#{m1 26298}#
(append
-
#{m1 26116}#
-
#{m2 26142}#)))
- (let
((#{m2 26150}#
-
(cdr #{w2 26115}#)))
- (if
(null? #{m2 26150}#)
-
#{s1 26117}#
+
#{m1 26298}#
+
#{m2 26324}#)))
+ (let
((#{m2 26332}#
+
(cdr #{w2 26297}#)))
+ (if
(null? #{m2 26332}#)
+
#{s1 26299}#
(append
-
#{s1 26117}#
-
#{m2 26150}#))))))))
- (#{module 26106}#
+
#{s1 26299}#
+
#{m2 26332}#))))))))
+ (#{module 26288}#
(vector-ref
- #{name 26071}#
+ #{name 26253}#
3)))
(vector
'syntax-object
- #{expression 26104}#
- #{wrap 26105}#
- #{module 26106}#))
- (if (null? #{name 26071}#)
- #{name 26071}#
+ #{expression 26286}#
+ #{wrap 26287}#
+ #{module 26288}#))
+ (if (null? #{name 26253}#)
+ #{name 26253}#
(vector
'syntax-object
- #{name 26071}#
- #{w 24862}#
- #{mod 24865}#))))
- (let ((#{e 26176}#
+ #{name 26253}#
+ #{w 25039}#
+ #{mod 25042}#))))
+ (let ((#{e 26358}#
(cons '#(syntax-object
lambda
((top)
@@ -1972,10 +1955,10 @@
(top)
(top)
(top))
- #("i1888"
- "i1889"
- "i1890"
-
"i1891"))
+ #("i1886"
+ "i1887"
+ "i1888"
+
"i1889"))
#(ribcage
()
()
@@ -1997,12 +1980,12 @@
(top)
(top)
(top))
- #("i1841"
+ #("i1839"
+ "i1840"
+ "i1841"
"i1842"
"i1843"
- "i1844"
- "i1845"
-
"i1846"))
+
"i1844"))
#(ribcage
()
()
@@ -2010,7 +1993,7 @@
#(ribcage
#(first)
#((top))
-
#("i1833"))
+
#("i1831"))
#(ribcage
()
()
@@ -2038,13 +2021,13 @@
(top)
(top)
(top))
- #("i1805"
+ #("i1803"
+ "i1804"
+ "i1805"
"i1806"
"i1807"
"i1808"
- "i1809"
- "i1810"
-
"i1811"))
+
"i1809"))
#(ribcage
(lambda-var-list
gen-var
@@ -2472,199 +2455,199 @@
"i44")))
(hygiene
guile))
- (let ((#{x
26180}#
- (cons
#{args 26072}#
-
(cons #{e1 26073}#
-
#{e2 26074}#))))
- (if (if
(null? (car #{w 24862}#))
- (null?
(cdr #{w 24862}#))
+ (let ((#{x
26362}#
+ (cons
#{args 26254}#
+
(cons #{e1 26255}#
+
#{e2 26256}#))))
+ (if (if
(null? (car #{w 25039}#))
+ (null?
(cdr #{w 25039}#))
#f)
- #{x 26180}#
+ #{x 26362}#
(if (if
(vector?
-
#{x 26180}#)
+
#{x 26362}#)
(if
(= (vector-length
-
#{x 26180}#)
+
#{x 26362}#)
4)
(eq? (vector-ref
-
#{x 26180}#
+
#{x 26362}#
0)
'syntax-object)
#f)
#f)
- (let
((#{expression 26198}#
+ (let
((#{expression 26380}#
(vector-ref
-
#{x 26180}#
+
#{x 26362}#
1))
-
(#{wrap 26199}#
-
(let ((#{w2 26207}#
+
(#{wrap 26381}#
+
(let ((#{w2 26389}#
(vector-ref
-
#{x 26180}#
+
#{x 26362}#
2)))
-
(let ((#{m1 26208}#
-
(car #{w 24862}#))
-
(#{s1 26209}#
-
(cdr #{w 24862}#)))
-
(if (null? #{m1 26208}#)
-
(if (null? #{s1 26209}#)
-
#{w2 26207}#
-
(cons (car #{w2 26207}#)
-
(let ((#{m2 26224}#
-
(cdr #{w2 26207}#)))
-
(if (null? #{m2 26224}#)
-
#{s1 26209}#
+
(let ((#{m1 26390}#
+
(car #{w 25039}#))
+
(#{s1 26391}#
+
(cdr #{w 25039}#)))
+
(if (null? #{m1 26390}#)
+
(if (null? #{s1 26391}#)
+
#{w2 26389}#
+
(cons (car #{w2 26389}#)
+
(let ((#{m2 26406}#
+
(cdr #{w2 26389}#)))
+
(if (null? #{m2 26406}#)
+
#{s1 26391}#
(append
-
#{s1 26209}#
-
#{m2 26224}#)))))
-
(cons (let ((#{m2 26232}#
-
(car #{w2 26207}#)))
-
(if (null? #{m2 26232}#)
-
#{m1 26208}#
+
#{s1 26391}#
+
#{m2 26406}#)))))
+
(cons (let ((#{m2 26414}#
+
(car #{w2 26389}#)))
+
(if (null? #{m2 26414}#)
+
#{m1 26390}#
(append
-
#{m1 26208}#
-
#{m2 26232}#)))
-
(let ((#{m2 26240}#
-
(cdr #{w2 26207}#)))
-
(if (null? #{m2 26240}#)
-
#{s1 26209}#
+
#{m1 26390}#
+
#{m2 26414}#)))
+
(let ((#{m2 26422}#
+
(cdr #{w2 26389}#)))
+
(if (null? #{m2 26422}#)
+
#{s1 26391}#
(append
-
#{s1 26209}#
-
#{m2 26240}#))))))))
-
(#{module 26200}#
+
#{s1 26391}#
+
#{m2 26422}#))))))))
+
(#{module 26382}#
(vector-ref
-
#{x 26180}#
+
#{x 26362}#
3)))
(vector
'syntax-object
-
#{expression 26198}#
-
#{wrap 26199}#
-
#{module 26200}#))
- (if
(null? #{x 26180}#)
- #{x
26180}#
+
#{expression 26380}#
+
#{wrap 26381}#
+
#{module 26382}#))
+ (if
(null? #{x 26362}#)
+ #{x
26362}#
(vector
'syntax-object
- #{x
26180}#
- #{w
24862}#
- #{mod
24865}#))))))))
+ #{x
26362}#
+ #{w
25039}#
+ #{mod
25042}#))))))))
(begin
- (if (if (pair? #{e
26176}#)
- #{s 24863}#
+ (if (if (pair? #{e
26358}#)
+ #{s 25040}#
#f)
(set-source-properties!
- #{e 26176}#
- #{s 24863}#))
- #{e 26176}#))
+ #{e 26358}#
+ #{s 25040}#))
+ #{e 26358}#))
'(())
- #{s 24863}#
- #{mod 24865}#))
- #{tmp 25588}#)
- (let ((#{tmp 26259}#
+ #{s 25040}#
+ #{mod 25042}#))
+ #{tmp 25765}#)
+ (let ((#{tmp 26441}#
($sc-dispatch
- #{e 24860}#
+ #{e 25037}#
'(_ any))))
- (if (if #{tmp 26259}#
+ (if (if #{tmp 26441}#
(@apply
- (lambda (#{name 26263}#)
+ (lambda (#{name 26445}#)
(if (symbol?
- #{name 26263}#)
+ #{name 26445}#)
#t
(if (if (vector?
- #{name
26263}#)
+ #{name
26445}#)
(if (=
(vector-length
- #{name
26263}#)
+ #{name
26445}#)
4)
(eq?
(vector-ref
- #{name
26263}#
+ #{name
26445}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 26263}#
+ #{name 26445}#
1))
#f)))
- #{tmp 26259}#)
+ #{tmp 26441}#)
#f)
(@apply
- (lambda (#{name 26290}#)
+ (lambda (#{name 26472}#)
(values
'define-form
- (if (if (null? (car #{w
24862}#))
- (null? (cdr #{w
24862}#))
+ (if (if (null? (car #{w
25039}#))
+ (null? (cdr #{w
25039}#))
#f)
- #{name 26290}#
+ #{name 26472}#
(if (if (vector?
- #{name
26290}#)
+ #{name
26472}#)
(if (=
(vector-length
- #{name
26290}#)
+ #{name
26472}#)
4)
(eq? (vector-ref
- #{name
26290}#
+ #{name
26472}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression
26320}#
+ (let ((#{expression
26502}#
(vector-ref
- #{name
26290}#
+ #{name
26472}#
1))
- (#{wrap 26321}#
- (let ((#{w2
26331}#
+ (#{wrap 26503}#
+ (let ((#{w2
26513}#
(vector-ref
-
#{name 26290}#
+
#{name 26472}#
2)))
- (let ((#{m1
26332}#
-
(car #{w 24862}#))
- (#{s1
26333}#
-
(cdr #{w 24862}#)))
- (if
(null? #{m1 26332}#)
- (if
(null? #{s1 26333}#)
- #{w2
26331}#
- (cons
(car #{w2 26331}#)
-
(let ((#{m2 26350}#
-
(cdr #{w2 26331}#)))
-
(if (null? #{m2 26350}#)
-
#{s1 26333}#
+ (let ((#{m1
26514}#
+
(car #{w 25039}#))
+ (#{s1
26515}#
+
(cdr #{w 25039}#)))
+ (if
(null? #{m1 26514}#)
+ (if
(null? #{s1 26515}#)
+ #{w2
26513}#
+ (cons
(car #{w2 26513}#)
+
(let ((#{m2 26532}#
+
(cdr #{w2 26513}#)))
+
(if (null? #{m2 26532}#)
+
#{s1 26515}#
(append
-
#{s1 26333}#
-
#{m2 26350}#)))))
- (cons
(let ((#{m2 26358}#
-
(car #{w2 26331}#)))
-
(if (null? #{m2 26358}#)
-
#{m1 26332}#
+
#{s1 26515}#
+
#{m2 26532}#)))))
+ (cons
(let ((#{m2 26540}#
+
(car #{w2 26513}#)))
+
(if (null? #{m2 26540}#)
+
#{m1 26514}#
(append
-
#{m1 26332}#
-
#{m2 26358}#)))
-
(let ((#{m2 26366}#
-
(cdr #{w2 26331}#)))
-
(if (null? #{m2 26366}#)
-
#{s1 26333}#
+
#{m1 26514}#
+
#{m2 26540}#)))
+
(let ((#{m2 26548}#
+
(cdr #{w2 26513}#)))
+
(if (null? #{m2 26548}#)
+
#{s1 26515}#
(append
-
#{s1 26333}#
-
#{m2 26366}#))))))))
- (#{module
26322}#
+
#{s1 26515}#
+
#{m2 26548}#))))))))
+ (#{module
26504}#
(vector-ref
- #{name
26290}#
+ #{name
26472}#
3)))
(vector
'syntax-object
- #{expression
26320}#
- #{wrap 26321}#
- #{module 26322}#))
- (if (null? #{name
26290}#)
- #{name 26290}#
+ #{expression
26502}#
+ #{wrap 26503}#
+ #{module 26504}#))
+ (if (null? #{name
26472}#)
+ #{name 26472}#
(vector
'syntax-object
- #{name 26290}#
- #{w 24862}#
- #{mod 24865}#))))
+ #{name 26472}#
+ #{w 25039}#
+ #{mod 25042}#))))
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("i1901"))
+ #("i1899"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2680,17 +2663,17 @@
(top)
(top)
(top))
- #("i1841"
+ #("i1839"
+ "i1840"
+ "i1841"
"i1842"
"i1843"
- "i1844"
- "i1845"
- "i1846"))
+ "i1844"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1833"))
+ #("i1831"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -2709,13 +2692,13 @@
(top)
(top)
(top))
- #("i1805"
+ #("i1803"
+ "i1804"
+ "i1805"
"i1806"
"i1807"
"i1808"
- "i1809"
- "i1810"
- "i1811"))
+ "i1809"))
#(ribcage
(lambda-var-list
gen-var
@@ -3146,7 +3129,7 @@
#(ribcage
#(name)
#((top))
- #("i1901"))
+ #("i1899"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3162,17 +3145,17 @@
(top)
(top)
(top))
- #("i1841"
+ #("i1839"
+ "i1840"
+ "i1841"
"i1842"
"i1843"
- "i1844"
- "i1845"
- "i1846"))
+ "i1844"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1833"))
+ #("i1831"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3191,13 +3174,13 @@
(top)
(top)
(top))
- #("i1805"
+ #("i1803"
+ "i1804"
+ "i1805"
"i1806"
"i1807"
"i1808"
- "i1809"
- "i1810"
- "i1811"))
+ "i1809"))
#(ribcage
(lambda-var-list
gen-var
@@ -3628,7 +3611,7 @@
#(ribcage
#(name)
#((top))
- #("i1901"))
+ #("i1899"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3644,17 +3627,17 @@
(top)
(top)
(top))
- #("i1841"
+ #("i1839"
+ "i1840"
+ "i1841"
"i1842"
"i1843"
- "i1844"
- "i1845"
- "i1846"))
+ "i1844"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("i1833"))
+ #("i1831"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3673,13 +3656,13 @@
(top)
(top)
(top))
- #("i1805"
+ #("i1803"
+ "i1804"
+ "i1805"
"i1806"
"i1807"
"i1808"
- "i1809"
- "i1810"
- "i1811"))
+ "i1809"))
#(ribcage
(lambda-var-list
gen-var
@@ -4105,2012 +4088,2012 @@
"i44")))
(hygiene guile)))
'(())
- #{s 24863}#
- #{mod 24865}#))
- #{tmp 26259}#)
+ #{s 25040}#
+ #{mod 25042}#))
+ #{tmp 26441}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{e 24860}#)))))))
- (if (eqv? #{ftype 25507}# 'define-syntax)
- (let ((#{tmp 26405}#
+ #{e 25037}#)))))))
+ (if (eqv? #{ftype 25684}# 'define-syntax)
+ (let ((#{tmp 26587}#
($sc-dispatch
- #{e 24860}#
+ #{e 25037}#
'(_ any any))))
- (if (if #{tmp 26405}#
+ (if (if #{tmp 26587}#
(@apply
- (lambda (#{name 26409}#
- #{val 26410}#)
- (if (symbol? #{name 26409}#)
+ (lambda (#{name 26591}#
+ #{val 26592}#)
+ (if (symbol? #{name 26591}#)
#t
(if (if (vector?
- #{name 26409}#)
+ #{name 26591}#)
(if (= (vector-length
- #{name
26409}#)
+ #{name
26591}#)
4)
(eq? (vector-ref
- #{name
26409}#
+ #{name
26591}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 26409}#
+ #{name 26591}#
1))
#f)))
- #{tmp 26405}#)
+ #{tmp 26587}#)
#f)
(@apply
- (lambda (#{name 26437}#
- #{val 26438}#)
+ (lambda (#{name 26619}#
+ #{val 26620}#)
(values
'define-syntax-form
- #{name 26437}#
- #{val 26438}#
- #{w 24862}#
- #{s 24863}#
- #{mod 24865}#))
- #{tmp 26405}#)
+ #{name 26619}#
+ #{val 26620}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#))
+ #{tmp 26587}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{e 24860}#)))
+ #{e 25037}#)))
(values
'call
#f
- #{e 24860}#
- #{w 24862}#
- #{s 24863}#
- #{mod 24865}#))))))))))))))
- (if (if (vector? #{e 24860}#)
- (if (= (vector-length #{e 24860}#) 4)
- (eq? (vector-ref #{e 24860}# 0) 'syntax-object)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#))))))))))))))
+ (if (if (vector? #{e 25037}#)
+ (if (= (vector-length #{e 25037}#) 4)
+ (eq? (vector-ref #{e 25037}# 0) 'syntax-object)
#f)
#f)
- (#{syntax-type 4374}#
- (vector-ref #{e 24860}# 1)
- #{r 24861}#
- (let ((#{w2 26463}# (vector-ref #{e 24860}# 2)))
- (let ((#{m1 26464}# (car #{w 24862}#))
- (#{s1 26465}# (cdr #{w 24862}#)))
- (if (null? #{m1 26464}#)
- (if (null? #{s1 26465}#)
- #{w2 26463}#
- (cons (car #{w2 26463}#)
- (let ((#{m2 26476}# (cdr #{w2 26463}#)))
- (if (null? #{m2 26476}#)
- #{s1 26465}#
- (append #{s1 26465}# #{m2 26476}#)))))
- (cons (let ((#{m2 26484}# (car #{w2 26463}#)))
- (if (null? #{m2 26484}#)
- #{m1 26464}#
- (append #{m1 26464}# #{m2 26484}#)))
- (let ((#{m2 26492}# (cdr #{w2 26463}#)))
- (if (null? #{m2 26492}#)
- #{s1 26465}#
- (append #{s1 26465}# #{m2 26492}#)))))))
- (let ((#{t 26497}#
- (#{source-annotation 4336}# #{e 24860}#)))
- (if #{t 26497}# #{t 26497}# #{s 24863}#))
- #{rib 24864}#
- (let ((#{t 26779}# (vector-ref #{e 24860}# 3)))
- (if #{t 26779}# #{t 26779}# #{mod 24865}#))
- #{for-car? 24866}#)
- (if (self-evaluating? #{e 24860}#)
+ (#{syntax-type 4372}#
+ (vector-ref #{e 25037}# 1)
+ #{r 25038}#
+ (let ((#{w2 26645}# (vector-ref #{e 25037}# 2)))
+ (let ((#{m1 26646}# (car #{w 25039}#))
+ (#{s1 26647}# (cdr #{w 25039}#)))
+ (if (null? #{m1 26646}#)
+ (if (null? #{s1 26647}#)
+ #{w2 26645}#
+ (cons (car #{w2 26645}#)
+ (let ((#{m2 26658}# (cdr #{w2 26645}#)))
+ (if (null? #{m2 26658}#)
+ #{s1 26647}#
+ (append #{s1 26647}# #{m2 26658}#)))))
+ (cons (let ((#{m2 26666}# (car #{w2 26645}#)))
+ (if (null? #{m2 26666}#)
+ #{m1 26646}#
+ (append #{m1 26646}# #{m2 26666}#)))
+ (let ((#{m2 26674}# (cdr #{w2 26645}#)))
+ (if (null? #{m2 26674}#)
+ #{s1 26647}#
+ (append #{s1 26647}# #{m2 26674}#)))))))
+ (let ((#{t 26679}#
+ (#{source-annotation 4334}# #{e 25037}#)))
+ (if #{t 26679}# #{t 26679}# #{s 25040}#))
+ #{rib 25041}#
+ (let ((#{t 26977}# (vector-ref #{e 25037}# 3)))
+ (if #{t 26977}# #{t 26977}# #{mod 25042}#))
+ #{for-car? 25043}#)
+ (if (self-evaluating? #{e 25037}#)
(values
'constant
#f
- #{e 24860}#
- #{w 24862}#
- #{s 24863}#
- #{mod 24865}#)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)
(values
'other
#f
- #{e 24860}#
- #{w 24862}#
- #{s 24863}#
- #{mod 24865}#)))))))
- (#{chi 4375}#
- (lambda (#{e 26788}#
- #{r 26789}#
- #{w 26790}#
- #{mod 26791}#)
+ #{e 25037}#
+ #{w 25039}#
+ #{s 25040}#
+ #{mod 25042}#)))))))
+ (#{chi 4373}#
+ (lambda (#{e 26986}#
+ #{r 26987}#
+ #{w 26988}#
+ #{mod 26989}#)
(call-with-values
(lambda ()
- (#{syntax-type 4374}#
- #{e 26788}#
- #{r 26789}#
- #{w 26790}#
- (#{source-annotation 4336}# #{e 26788}#)
+ (#{syntax-type 4372}#
+ #{e 26986}#
+ #{r 26987}#
+ #{w 26988}#
+ (#{source-annotation 4334}# #{e 26986}#)
#f
- #{mod 26791}#
+ #{mod 26989}#
#f))
- (lambda (#{type 26983}#
- #{value 26984}#
- #{e 26985}#
- #{w 26986}#
- #{s 26987}#
- #{mod 26988}#)
- (#{chi-expr 4376}#
- #{type 26983}#
- #{value 26984}#
- #{e 26985}#
- #{r 26789}#
- #{w 26986}#
- #{s 26987}#
- #{mod 26988}#)))))
- (#{chi-expr 4376}#
- (lambda (#{type 26991}#
- #{value 26992}#
- #{e 26993}#
- #{r 26994}#
- #{w 26995}#
- #{s 26996}#
- #{mod 26997}#)
- (if (eqv? #{type 26991}# 'lexical)
+ (lambda (#{type 27193}#
+ #{value 27194}#
+ #{e 27195}#
+ #{w 27196}#
+ #{s 27197}#
+ #{mod 27198}#)
+ (#{chi-expr 4374}#
+ #{type 27193}#
+ #{value 27194}#
+ #{e 27195}#
+ #{r 26987}#
+ #{w 27196}#
+ #{s 27197}#
+ #{mod 27198}#)))))
+ (#{chi-expr 4374}#
+ (lambda (#{type 27201}#
+ #{value 27202}#
+ #{e 27203}#
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#)
+ (if (eqv? #{type 27201}# 'lexical)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{s 26996}#
- #{e 26993}#
- #{value 26992}#)
- (if (if (eqv? #{type 26991}# 'core)
+ #{s 27206}#
+ #{e 27203}#
+ #{value 27202}#)
+ (if (if (eqv? #{type 27201}# 'core)
#t
- (eqv? #{type 26991}# 'core-form))
- (#{value 26992}#
- #{e 26993}#
- #{r 26994}#
- #{w 26995}#
- #{s 26996}#
- #{mod 26997}#)
- (if (eqv? #{type 26991}# 'module-ref)
+ (eqv? #{type 27201}# 'core-form))
+ (#{value 27202}#
+ #{e 27203}#
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#)
+ (if (eqv? #{type 27201}# 'module-ref)
(call-with-values
(lambda ()
- (#{value 26992}#
- #{e 26993}#
- #{r 26994}#
- #{w 26995}#))
- (lambda (#{e 27023}#
- #{r 27024}#
- #{w 27025}#
- #{s 27026}#
- #{mod 27027}#)
- (#{chi 4375}#
- #{e 27023}#
- #{r 27024}#
- #{w 27025}#
- #{mod 27027}#)))
- (if (eqv? #{type 26991}# 'lexical-call)
- (#{chi-call 4377}#
- (let ((#{id 27204}# (car #{e 26993}#)))
- (#{build-lexical-reference 4312}#
+ (#{value 27202}#
+ #{e 27203}#
+ #{r 27204}#
+ #{w 27205}#))
+ (lambda (#{e 27233}#
+ #{r 27234}#
+ #{w 27235}#
+ #{s 27236}#
+ #{mod 27237}#)
+ (#{chi 4373}#
+ #{e 27233}#
+ #{r 27234}#
+ #{w 27235}#
+ #{mod 27237}#)))
+ (if (eqv? #{type 27201}# 'lexical-call)
+ (#{chi-call 4375}#
+ (let ((#{id 27418}# (car #{e 27203}#)))
+ (#{build-lexical-reference 4310}#
'fun
- (#{source-annotation 4336}# #{id 27204}#)
- (if (if (vector? #{id 27204}#)
- (if (= (vector-length #{id 27204}#) 4)
- (eq? (vector-ref #{id 27204}# 0) 'syntax-object)
+ (#{source-annotation 4334}# #{id 27418}#)
+ (if (if (vector? #{id 27418}#)
+ (if (= (vector-length #{id 27418}#) 4)
+ (eq? (vector-ref #{id 27418}# 0) 'syntax-object)
#f)
#f)
- (syntax->datum #{id 27204}#)
- #{id 27204}#)
- #{value 26992}#))
- #{e 26993}#
- #{r 26994}#
- #{w 26995}#
- #{s 26996}#
- #{mod 26997}#)
- (if (eqv? #{type 26991}# 'global-call)
- (#{chi-call 4377}#
- (#{build-global-reference 4315}#
- (#{source-annotation 4336}# (car #{e 26993}#))
- (if (if (vector? #{value 26992}#)
- (if (= (vector-length #{value 26992}#) 4)
- (eq? (vector-ref #{value 26992}# 0)
+ (syntax->datum #{id 27418}#)
+ #{id 27418}#)
+ #{value 27202}#))
+ #{e 27203}#
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#)
+ (if (eqv? #{type 27201}# 'global-call)
+ (#{chi-call 4375}#
+ (#{build-global-reference 4313}#
+ (#{source-annotation 4334}# (car #{e 27203}#))
+ (if (if (vector? #{value 27202}#)
+ (if (= (vector-length #{value 27202}#) 4)
+ (eq? (vector-ref #{value 27202}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 26992}# 1)
- #{value 26992}#)
- (if (if (vector? #{value 26992}#)
- (if (= (vector-length #{value 26992}#) 4)
- (eq? (vector-ref #{value 26992}# 0)
+ (vector-ref #{value 27202}# 1)
+ #{value 27202}#)
+ (if (if (vector? #{value 27202}#)
+ (if (= (vector-length #{value 27202}#) 4)
+ (eq? (vector-ref #{value 27202}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 26992}# 3)
- #{mod 26997}#))
- #{e 26993}#
- #{r 26994}#
- #{w 26995}#
- #{s 26996}#
- #{mod 26997}#)
- (if (eqv? #{type 26991}# 'constant)
- (let ((#{exp 27897}#
- (#{strip 4388}#
- (let ((#{x 27910}#
+ (vector-ref #{value 27202}# 3)
+ #{mod 27207}#))
+ #{e 27203}#
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#)
+ (if (eqv? #{type 27201}# 'constant)
+ (let ((#{exp 28140}#
+ (#{strip 4386}#
+ (let ((#{x 28153}#
(begin
- (if (if (pair? #{e 26993}#)
- #{s 26996}#
+ (if (if (pair? #{e 27203}#)
+ #{s 27206}#
#f)
(set-source-properties!
- #{e 26993}#
- #{s 26996}#))
- #{e 26993}#)))
- (if (if (null? (car #{w 26995}#))
- (null? (cdr #{w 26995}#))
+ #{e 27203}#
+ #{s 27206}#))
+ #{e 27203}#)))
+ (if (if (null? (car #{w 27205}#))
+ (null? (cdr #{w 27205}#))
#f)
- #{x 27910}#
- (if (if (vector? #{x 27910}#)
- (if (= (vector-length #{x 27910}#) 4)
- (eq? (vector-ref #{x 27910}# 0)
+ #{x 28153}#
+ (if (if (vector? #{x 28153}#)
+ (if (= (vector-length #{x 28153}#) 4)
+ (eq? (vector-ref #{x 28153}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 27942}#
- (vector-ref #{x 27910}# 1))
- (#{wrap 27943}#
- (let ((#{w2 27951}#
- (vector-ref #{x 27910}# 2)))
- (let ((#{m1 27952}#
- (car #{w 26995}#))
- (#{s1 27953}#
- (cdr #{w 26995}#)))
- (if (null? #{m1 27952}#)
- (if (null? #{s1 27953}#)
- #{w2 27951}#
- (cons (car #{w2 27951}#)
- (let ((#{m2 27968}#
- (cdr #{w2
27951}#)))
- (if (null? #{m2
27968}#)
- #{s1 27953}#
+ (let ((#{expression 28185}#
+ (vector-ref #{x 28153}# 1))
+ (#{wrap 28186}#
+ (let ((#{w2 28194}#
+ (vector-ref #{x 28153}# 2)))
+ (let ((#{m1 28195}#
+ (car #{w 27205}#))
+ (#{s1 28196}#
+ (cdr #{w 27205}#)))
+ (if (null? #{m1 28195}#)
+ (if (null? #{s1 28196}#)
+ #{w2 28194}#
+ (cons (car #{w2 28194}#)
+ (let ((#{m2 28211}#
+ (cdr #{w2
28194}#)))
+ (if (null? #{m2
28211}#)
+ #{s1 28196}#
(append
- #{s1 27953}#
- #{m2
27968}#)))))
- (cons (let ((#{m2 27976}#
- (car #{w2
27951}#)))
- (if (null? #{m2
27976}#)
- #{m1 27952}#
+ #{s1 28196}#
+ #{m2
28211}#)))))
+ (cons (let ((#{m2 28219}#
+ (car #{w2
28194}#)))
+ (if (null? #{m2
28219}#)
+ #{m1 28195}#
(append
- #{m1 27952}#
- #{m2 27976}#)))
- (let ((#{m2 27984}#
- (cdr #{w2
27951}#)))
- (if (null? #{m2
27984}#)
- #{s1 27953}#
+ #{m1 28195}#
+ #{m2 28219}#)))
+ (let ((#{m2 28227}#
+ (cdr #{w2
28194}#)))
+ (if (null? #{m2
28227}#)
+ #{s1 28196}#
(append
- #{s1 27953}#
- #{m2
27984}#))))))))
- (#{module 27944}#
- (vector-ref #{x 27910}# 3)))
+ #{s1 28196}#
+ #{m2
28227}#))))))))
+ (#{module 28187}#
+ (vector-ref #{x 28153}# 3)))
(vector
'syntax-object
- #{expression 27942}#
- #{wrap 27943}#
- #{module 27944}#))
- (if (null? #{x 27910}#)
- #{x 27910}#
+ #{expression 28185}#
+ #{wrap 28186}#
+ #{module 28187}#))
+ (if (null? #{x 28153}#)
+ #{x 28153}#
(vector
'syntax-object
- #{x 27910}#
- #{w 26995}#
- #{mod 26997}#)))))
+ #{x 28153}#
+ #{w 27205}#
+ #{mod 27207}#)))))
'(()))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 26996}#
- #{exp 27897}#))
- (if (eqv? #{type 26991}# 'global)
- (#{analyze-variable 4314}#
- #{mod 26997}#
- #{value 26992}#
- (lambda (#{mod 28009}# #{var 28010}# #{public? 28011}#)
+ #{s 27206}#
+ #{exp 28140}#))
+ (if (eqv? #{type 27201}# 'global)
+ (#{analyze-variable 4312}#
+ #{mod 27207}#
+ #{value 27202}#
+ (lambda (#{mod 28252}# #{var 28253}# #{public? 28254}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{s 26996}#
- #{mod 28009}#
- #{var 28010}#
- #{public? 28011}#))
- (lambda (#{var 28019}#)
+ #{s 27206}#
+ #{mod 28252}#
+ #{var 28253}#
+ #{public? 28254}#))
+ (lambda (#{var 28262}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{s 26996}#
- #{var 28019}#)))
- (if (eqv? #{type 26991}# 'call)
- (#{chi-call 4377}#
- (#{chi 4375}#
- (car #{e 26993}#)
- #{r 26994}#
- #{w 26995}#
- #{mod 26997}#)
- #{e 26993}#
- #{r 26994}#
- #{w 26995}#
- #{s 26996}#
- #{mod 26997}#)
- (if (eqv? #{type 26991}# 'begin-form)
- (let ((#{tmp 28193}#
+ #{s 27206}#
+ #{var 28262}#)))
+ (if (eqv? #{type 27201}# 'call)
+ (#{chi-call 4375}#
+ (#{chi 4373}#
+ (car #{e 27203}#)
+ #{r 27204}#
+ #{w 27205}#
+ #{mod 27207}#)
+ #{e 27203}#
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#)
+ (if (eqv? #{type 27201}# 'begin-form)
+ (let ((#{tmp 28440}#
($sc-dispatch
- #{e 26993}#
+ #{e 27203}#
'(_ any . each-any))))
- (if #{tmp 28193}#
+ (if #{tmp 28440}#
(@apply
- (lambda (#{e1 28197}# #{e2 28198}#)
- (#{chi-sequence 4370}#
- (cons #{e1 28197}# #{e2 28198}#)
- #{r 26994}#
- #{w 26995}#
- #{s 26996}#
- #{mod 26997}#))
- #{tmp 28193}#)
+ (lambda (#{e1 28444}# #{e2 28445}#)
+ (#{chi-sequence 4368}#
+ (cons #{e1 28444}# #{e2 28445}#)
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#))
+ #{tmp 28440}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 26993}#)))
- (if (eqv? #{type 26991}# 'local-syntax-form)
- (#{chi-local-syntax 4380}#
- #{value 26992}#
- #{e 26993}#
- #{r 26994}#
- #{w 26995}#
- #{s 26996}#
- #{mod 26997}#
- #{chi-sequence 4370}#)
- (if (eqv? #{type 26991}# 'eval-when-form)
- (let ((#{tmp 28374}#
+ #{e 27203}#)))
+ (if (eqv? #{type 27201}# 'local-syntax-form)
+ (#{chi-local-syntax 4378}#
+ #{value 27202}#
+ #{e 27203}#
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#
+ #{chi-sequence 4368}#)
+ (if (eqv? #{type 27201}# 'eval-when-form)
+ (let ((#{tmp 28625}#
($sc-dispatch
- #{e 26993}#
+ #{e 27203}#
'(_ each-any any . each-any))))
- (if #{tmp 28374}#
+ (if #{tmp 28625}#
(@apply
- (lambda (#{x 28378}#
- #{e1 28379}#
- #{e2 28380}#)
- (let ((#{when-list 28381}#
- (#{chi-when-list 4373}#
- #{e 26993}#
- #{x 28378}#
- #{w 26995}#)))
- (if (memq 'eval #{when-list 28381}#)
- (#{chi-sequence 4370}#
- (cons #{e1 28379}# #{e2 28380}#)
- #{r 26994}#
- #{w 26995}#
- #{s 26996}#
- #{mod 26997}#)
+ (lambda (#{x 28629}#
+ #{e1 28630}#
+ #{e2 28631}#)
+ (let ((#{when-list 28632}#
+ (#{chi-when-list 4371}#
+ #{e 27203}#
+ #{x 28629}#
+ #{w 27205}#)))
+ (if (memq 'eval #{when-list 28632}#)
+ (#{chi-sequence 4368}#
+ (cons #{e1 28630}# #{e2 28631}#)
+ #{r 27204}#
+ #{w 27205}#
+ #{s 27206}#
+ #{mod 27207}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f))))
- #{tmp 28374}#)
+ #{tmp 28625}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 26993}#)))
- (if (if (eqv? #{type 26991}# 'define-form)
+ #{e 27203}#)))
+ (if (if (eqv? #{type 27201}# 'define-form)
#t
- (eqv? #{type 26991}# 'define-syntax-form))
+ (eqv? #{type 27201}# 'define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e 26993}#
- (if (if (null? (car #{w 26995}#))
- (null? (cdr #{w 26995}#))
+ #{e 27203}#
+ (if (if (null? (car #{w 27205}#))
+ (null? (cdr #{w 27205}#))
#f)
- #{value 26992}#
- (if (if (vector? #{value 26992}#)
- (if (= (vector-length #{value 26992}#)
+ #{value 27202}#
+ (if (if (vector? #{value 27202}#)
+ (if (= (vector-length #{value 27202}#)
4)
- (eq? (vector-ref #{value 26992}# 0)
+ (eq? (vector-ref #{value 27202}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28530}#
- (vector-ref #{value 26992}# 1))
- (#{wrap 28531}#
- (let ((#{w2 28541}#
+ (let ((#{expression 28783}#
+ (vector-ref #{value 27202}# 1))
+ (#{wrap 28784}#
+ (let ((#{w2 28794}#
(vector-ref
- #{value 26992}#
+ #{value 27202}#
2)))
- (let ((#{m1 28542}#
- (car #{w 26995}#))
- (#{s1 28543}#
- (cdr #{w 26995}#)))
- (if (null? #{m1 28542}#)
- (if (null? #{s1 28543}#)
- #{w2 28541}#
- (cons (car #{w2 28541}#)
- (let ((#{m2 28560}#
- (cdr #{w2
28541}#)))
- (if (null? #{m2
28560}#)
- #{s1 28543}#
+ (let ((#{m1 28795}#
+ (car #{w 27205}#))
+ (#{s1 28796}#
+ (cdr #{w 27205}#)))
+ (if (null? #{m1 28795}#)
+ (if (null? #{s1 28796}#)
+ #{w2 28794}#
+ (cons (car #{w2 28794}#)
+ (let ((#{m2 28813}#
+ (cdr #{w2
28794}#)))
+ (if (null? #{m2
28813}#)
+ #{s1 28796}#
(append
- #{s1 28543}#
- #{m2
28560}#)))))
- (cons (let ((#{m2 28568}#
- (car #{w2
28541}#)))
- (if (null? #{m2
28568}#)
- #{m1 28542}#
+ #{s1 28796}#
+ #{m2
28813}#)))))
+ (cons (let ((#{m2 28821}#
+ (car #{w2
28794}#)))
+ (if (null? #{m2
28821}#)
+ #{m1 28795}#
(append
- #{m1 28542}#
- #{m2 28568}#)))
- (let ((#{m2 28576}#
- (cdr #{w2
28541}#)))
- (if (null? #{m2
28576}#)
- #{s1 28543}#
+ #{m1 28795}#
+ #{m2 28821}#)))
+ (let ((#{m2 28829}#
+ (cdr #{w2
28794}#)))
+ (if (null? #{m2
28829}#)
+ #{s1 28796}#
(append
- #{s1 28543}#
- #{m2
28576}#))))))))
- (#{module 28532}#
- (vector-ref #{value 26992}# 3)))
+ #{s1 28796}#
+ #{m2
28829}#))))))))
+ (#{module 28785}#
+ (vector-ref #{value 27202}# 3)))
(vector
'syntax-object
- #{expression 28530}#
- #{wrap 28531}#
- #{module 28532}#))
- (if (null? #{value 26992}#)
- #{value 26992}#
+ #{expression 28783}#
+ #{wrap 28784}#
+ #{module 28785}#))
+ (if (null? #{value 27202}#)
+ #{value 27202}#
(vector
'syntax-object
- #{value 26992}#
- #{w 26995}#
- #{mod 26997}#)))))
- (if (eqv? #{type 26991}# 'syntax)
+ #{value 27202}#
+ #{w 27205}#
+ #{mod 27207}#)))))
+ (if (eqv? #{type 27201}# 'syntax)
(syntax-violation
#f
"reference to pattern variable outside
syntax form"
- (let ((#{x 28611}#
+ (let ((#{x 28864}#
(begin
- (if (if (pair? #{e 26993}#)
- #{s 26996}#
+ (if (if (pair? #{e 27203}#)
+ #{s 27206}#
#f)
(set-source-properties!
- #{e 26993}#
- #{s 26996}#))
- #{e 26993}#)))
- (if (if (null? (car #{w 26995}#))
- (null? (cdr #{w 26995}#))
+ #{e 27203}#
+ #{s 27206}#))
+ #{e 27203}#)))
+ (if (if (null? (car #{w 27205}#))
+ (null? (cdr #{w 27205}#))
#f)
- #{x 28611}#
- (if (if (vector? #{x 28611}#)
- (if (= (vector-length #{x 28611}#)
+ #{x 28864}#
+ (if (if (vector? #{x 28864}#)
+ (if (= (vector-length #{x 28864}#)
4)
- (eq? (vector-ref #{x 28611}# 0)
+ (eq? (vector-ref #{x 28864}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28643}#
- (vector-ref #{x 28611}# 1))
- (#{wrap 28644}#
- (let ((#{w2 28652}#
+ (let ((#{expression 28896}#
+ (vector-ref #{x 28864}# 1))
+ (#{wrap 28897}#
+ (let ((#{w2 28905}#
(vector-ref
- #{x 28611}#
+ #{x 28864}#
2)))
- (let ((#{m1 28653}#
- (car #{w 26995}#))
- (#{s1 28654}#
- (cdr #{w 26995}#)))
- (if (null? #{m1 28653}#)
- (if (null? #{s1 28654}#)
- #{w2 28652}#
- (cons (car #{w2
28652}#)
- (let ((#{m2
28669}#
- (cdr
#{w2 28652}#)))
- (if (null?
#{m2 28669}#)
- #{s1 28654}#
+ (let ((#{m1 28906}#
+ (car #{w 27205}#))
+ (#{s1 28907}#
+ (cdr #{w 27205}#)))
+ (if (null? #{m1 28906}#)
+ (if (null? #{s1 28907}#)
+ #{w2 28905}#
+ (cons (car #{w2
28905}#)
+ (let ((#{m2
28922}#
+ (cdr
#{w2 28905}#)))
+ (if (null?
#{m2 28922}#)
+ #{s1 28907}#
(append
- #{s1
28654}#
- #{m2
28669}#)))))
- (cons (let ((#{m2
28677}#
- (car #{w2
28652}#)))
- (if (null? #{m2
28677}#)
- #{m1 28653}#
+ #{s1
28907}#
+ #{m2
28922}#)))))
+ (cons (let ((#{m2
28930}#
+ (car #{w2
28905}#)))
+ (if (null? #{m2
28930}#)
+ #{m1 28906}#
(append
- #{m1 28653}#
- #{m2
28677}#)))
- (let ((#{m2
28685}#
- (cdr #{w2
28652}#)))
- (if (null? #{m2
28685}#)
- #{s1 28654}#
+ #{m1 28906}#
+ #{m2
28930}#)))
+ (let ((#{m2
28938}#
+ (cdr #{w2
28905}#)))
+ (if (null? #{m2
28938}#)
+ #{s1 28907}#
(append
- #{s1 28654}#
- #{m2
28685}#))))))))
- (#{module 28645}#
- (vector-ref #{x 28611}# 3)))
+ #{s1 28907}#
+ #{m2
28938}#))))))))
+ (#{module 28898}#
+ (vector-ref #{x 28864}# 3)))
(vector
'syntax-object
- #{expression 28643}#
- #{wrap 28644}#
- #{module 28645}#))
- (if (null? #{x 28611}#)
- #{x 28611}#
+ #{expression 28896}#
+ #{wrap 28897}#
+ #{module 28898}#))
+ (if (null? #{x 28864}#)
+ #{x 28864}#
(vector
'syntax-object
- #{x 28611}#
- #{w 26995}#
- #{mod 26997}#))))))
- (if (eqv? #{type 26991}# 'displaced-lexical)
+ #{x 28864}#
+ #{w 27205}#
+ #{mod 27207}#))))))
+ (if (eqv? #{type 27201}# 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its
scope"
- (let ((#{x 28712}#
+ (let ((#{x 28965}#
(begin
- (if (if (pair? #{e 26993}#)
- #{s 26996}#
+ (if (if (pair? #{e 27203}#)
+ #{s 27206}#
#f)
(set-source-properties!
- #{e 26993}#
- #{s 26996}#))
- #{e 26993}#)))
- (if (if (null? (car #{w 26995}#))
- (null? (cdr #{w 26995}#))
+ #{e 27203}#
+ #{s 27206}#))
+ #{e 27203}#)))
+ (if (if (null? (car #{w 27205}#))
+ (null? (cdr #{w 27205}#))
#f)
- #{x 28712}#
- (if (if (vector? #{x 28712}#)
+ #{x 28965}#
+ (if (if (vector? #{x 28965}#)
(if (= (vector-length
- #{x 28712}#)
+ #{x 28965}#)
4)
(eq? (vector-ref
- #{x 28712}#
+ #{x 28965}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28744}#
- (vector-ref #{x 28712}# 1))
- (#{wrap 28745}#
- (let ((#{w2 28753}#
+ (let ((#{expression 28997}#
+ (vector-ref #{x 28965}# 1))
+ (#{wrap 28998}#
+ (let ((#{w2 29006}#
(vector-ref
- #{x 28712}#
+ #{x 28965}#
2)))
- (let ((#{m1 28754}#
- (car #{w 26995}#))
- (#{s1 28755}#
- (cdr #{w
26995}#)))
- (if (null? #{m1 28754}#)
- (if (null? #{s1
28755}#)
- #{w2 28753}#
- (cons (car #{w2
28753}#)
- (let ((#{m2
28770}#
- (cdr
#{w2 28753}#)))
- (if (null?
#{m2 28770}#)
- #{s1
28755}#
+ (let ((#{m1 29007}#
+ (car #{w 27205}#))
+ (#{s1 29008}#
+ (cdr #{w
27205}#)))
+ (if (null? #{m1 29007}#)
+ (if (null? #{s1
29008}#)
+ #{w2 29006}#
+ (cons (car #{w2
29006}#)
+ (let ((#{m2
29023}#
+ (cdr
#{w2 29006}#)))
+ (if (null?
#{m2 29023}#)
+ #{s1
29008}#
(append
- #{s1
28755}#
- #{m2
28770}#)))))
- (cons (let ((#{m2
28778}#
- (car
#{w2 28753}#)))
- (if (null?
#{m2 28778}#)
- #{m1 28754}#
+ #{s1
29008}#
+ #{m2
29023}#)))))
+ (cons (let ((#{m2
29031}#
+ (car
#{w2 29006}#)))
+ (if (null?
#{m2 29031}#)
+ #{m1 29007}#
(append
- #{m1
28754}#
- #{m2
28778}#)))
- (let ((#{m2
28786}#
- (cdr
#{w2 28753}#)))
- (if (null?
#{m2 28786}#)
- #{s1 28755}#
+ #{m1
29007}#
+ #{m2
29031}#)))
+ (let ((#{m2
29039}#
+ (cdr
#{w2 29006}#)))
+ (if (null?
#{m2 29039}#)
+ #{s1 29008}#
(append
- #{s1
28755}#
- #{m2
28786}#))))))))
- (#{module 28746}#
- (vector-ref #{x 28712}# 3)))
+ #{s1
29008}#
+ #{m2
29039}#))))))))
+ (#{module 28999}#
+ (vector-ref #{x 28965}# 3)))
(vector
'syntax-object
- #{expression 28744}#
- #{wrap 28745}#
- #{module 28746}#))
- (if (null? #{x 28712}#)
- #{x 28712}#
+ #{expression 28997}#
+ #{wrap 28998}#
+ #{module 28999}#))
+ (if (null? #{x 28965}#)
+ #{x 28965}#
(vector
'syntax-object
- #{x 28712}#
- #{w 26995}#
- #{mod 26997}#))))))
+ #{x 28965}#
+ #{w 27205}#
+ #{mod 27207}#))))))
(syntax-violation
#f
"unexpected syntax"
- (let ((#{x 28810}#
+ (let ((#{x 29063}#
(begin
- (if (if (pair? #{e 26993}#)
- #{s 26996}#
+ (if (if (pair? #{e 27203}#)
+ #{s 27206}#
#f)
(set-source-properties!
- #{e 26993}#
- #{s 26996}#))
- #{e 26993}#)))
- (if (if (null? (car #{w 26995}#))
- (null? (cdr #{w 26995}#))
+ #{e 27203}#
+ #{s 27206}#))
+ #{e 27203}#)))
+ (if (if (null? (car #{w 27205}#))
+ (null? (cdr #{w 27205}#))
#f)
- #{x 28810}#
- (if (if (vector? #{x 28810}#)
+ #{x 29063}#
+ (if (if (vector? #{x 29063}#)
(if (= (vector-length
- #{x 28810}#)
+ #{x 29063}#)
4)
(eq? (vector-ref
- #{x 28810}#
+ #{x 29063}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 28842}#
- (vector-ref #{x 28810}# 1))
- (#{wrap 28843}#
- (let ((#{w2 28851}#
+ (let ((#{expression 29095}#
+ (vector-ref #{x 29063}# 1))
+ (#{wrap 29096}#
+ (let ((#{w2 29104}#
(vector-ref
- #{x 28810}#
+ #{x 29063}#
2)))
- (let ((#{m1 28852}#
- (car #{w 26995}#))
- (#{s1 28853}#
- (cdr #{w
26995}#)))
- (if (null? #{m1 28852}#)
- (if (null? #{s1
28853}#)
- #{w2 28851}#
- (cons (car #{w2
28851}#)
- (let ((#{m2
28868}#
- (cdr
#{w2 28851}#)))
- (if (null?
#{m2 28868}#)
- #{s1
28853}#
+ (let ((#{m1 29105}#
+ (car #{w 27205}#))
+ (#{s1 29106}#
+ (cdr #{w
27205}#)))
+ (if (null? #{m1 29105}#)
+ (if (null? #{s1
29106}#)
+ #{w2 29104}#
+ (cons (car #{w2
29104}#)
+ (let ((#{m2
29121}#
+ (cdr
#{w2 29104}#)))
+ (if (null?
#{m2 29121}#)
+ #{s1
29106}#
(append
- #{s1
28853}#
- #{m2
28868}#)))))
- (cons (let ((#{m2
28876}#
- (car
#{w2 28851}#)))
- (if (null?
#{m2 28876}#)
- #{m1 28852}#
+ #{s1
29106}#
+ #{m2
29121}#)))))
+ (cons (let ((#{m2
29129}#
+ (car
#{w2 29104}#)))
+ (if (null?
#{m2 29129}#)
+ #{m1 29105}#
(append
- #{m1
28852}#
- #{m2
28876}#)))
- (let ((#{m2
28884}#
- (cdr
#{w2 28851}#)))
- (if (null?
#{m2 28884}#)
- #{s1 28853}#
+ #{m1
29105}#
+ #{m2
29129}#)))
+ (let ((#{m2
29137}#
+ (cdr
#{w2 29104}#)))
+ (if (null?
#{m2 29137}#)
+ #{s1 29106}#
(append
- #{s1
28853}#
- #{m2
28884}#))))))))
- (#{module 28844}#
- (vector-ref #{x 28810}# 3)))
+ #{s1
29106}#
+ #{m2
29137}#))))))))
+ (#{module 29097}#
+ (vector-ref #{x 29063}# 3)))
(vector
'syntax-object
- #{expression 28842}#
- #{wrap 28843}#
- #{module 28844}#))
- (if (null? #{x 28810}#)
- #{x 28810}#
+ #{expression 29095}#
+ #{wrap 29096}#
+ #{module 29097}#))
+ (if (null? #{x 29063}#)
+ #{x 29063}#
(vector
'syntax-object
- #{x 28810}#
- #{w 26995}#
- #{mod
26997}#))))))))))))))))))))))
- (#{chi-call 4377}#
- (lambda (#{x 28899}#
- #{e 28900}#
- #{r 28901}#
- #{w 28902}#
- #{s 28903}#
- #{mod 28904}#)
- (let ((#{tmp 28906}#
- ($sc-dispatch #{e 28900}# '(any . each-any))))
- (if #{tmp 28906}#
+ #{x 29063}#
+ #{w 27205}#
+ #{mod
27207}#))))))))))))))))))))))
+ (#{chi-call 4375}#
+ (lambda (#{x 29152}#
+ #{e 29153}#
+ #{r 29154}#
+ #{w 29155}#
+ #{s 29156}#
+ #{mod 29157}#)
+ (let ((#{tmp 29159}#
+ ($sc-dispatch #{e 29153}# '(any . each-any))))
+ (if #{tmp 29159}#
(@apply
- (lambda (#{e0 28910}# #{e1 28911}#)
- (#{build-call 4309}#
- #{s 28903}#
- #{x 28899}#
- (map (lambda (#{e 29001}#)
- (#{chi 4375}#
- #{e 29001}#
- #{r 28901}#
- #{w 28902}#
- #{mod 28904}#))
- #{e1 28911}#)))
- #{tmp 28906}#)
+ (lambda (#{e0 29163}# #{e1 29164}#)
+ (#{build-call 4307}#
+ #{s 29156}#
+ #{x 29152}#
+ (map (lambda (#{e 29256}#)
+ (#{chi 4373}#
+ #{e 29256}#
+ #{r 29154}#
+ #{w 29155}#
+ #{mod 29157}#))
+ #{e1 29164}#)))
+ #{tmp 29159}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 28900}#)))))
- (#{chi-macro 4378}#
- (lambda (#{p 29087}#
- #{e 29088}#
- #{r 29089}#
- #{w 29090}#
- #{s 29091}#
- #{rib 29092}#
- #{mod 29093}#)
+ #{e 29153}#)))))
+ (#{chi-macro 4376}#
+ (lambda (#{p 29344}#
+ #{e 29345}#
+ #{r 29346}#
+ #{w 29347}#
+ #{s 29348}#
+ #{rib 29349}#
+ #{mod 29350}#)
(letrec*
- ((#{rebuild-macro-output 29094}#
- (lambda (#{x 29201}# #{m 29202}#)
- (if (pair? #{x 29201}#)
- (let ((#{e 29206}#
- (cons (#{rebuild-macro-output 29094}#
- (car #{x 29201}#)
- #{m 29202}#)
- (#{rebuild-macro-output 29094}#
- (cdr #{x 29201}#)
- #{m 29202}#))))
+ ((#{rebuild-macro-output 29351}#
+ (lambda (#{x 29458}# #{m 29459}#)
+ (if (pair? #{x 29458}#)
+ (let ((#{e 29463}#
+ (cons (#{rebuild-macro-output 29351}#
+ (car #{x 29458}#)
+ #{m 29459}#)
+ (#{rebuild-macro-output 29351}#
+ (cdr #{x 29458}#)
+ #{m 29459}#))))
(begin
- (if (if (pair? #{e 29206}#) #{s 29091}# #f)
- (set-source-properties! #{e 29206}# #{s 29091}#))
- #{e 29206}#))
- (if (if (vector? #{x 29201}#)
- (if (= (vector-length #{x 29201}#) 4)
- (eq? (vector-ref #{x 29201}# 0) 'syntax-object)
+ (if (if (pair? #{e 29463}#) #{s 29348}# #f)
+ (set-source-properties! #{e 29463}# #{s 29348}#))
+ #{e 29463}#))
+ (if (if (vector? #{x 29458}#)
+ (if (= (vector-length #{x 29458}#) 4)
+ (eq? (vector-ref #{x 29458}# 0) 'syntax-object)
#f)
#f)
- (let ((#{w 29222}# (vector-ref #{x 29201}# 2)))
- (let ((#{ms 29223}# (car #{w 29222}#))
- (#{s 29224}# (cdr #{w 29222}#)))
- (if (if (pair? #{ms 29223}#)
- (eq? (car #{ms 29223}#) #f)
+ (let ((#{w 29479}# (vector-ref #{x 29458}# 2)))
+ (let ((#{ms 29480}# (car #{w 29479}#))
+ (#{s 29481}# (cdr #{w 29479}#)))
+ (if (if (pair? #{ms 29480}#)
+ (eq? (car #{ms 29480}#) #f)
#f)
- (let ((#{expression 29232}# (vector-ref #{x 29201}# 1))
- (#{wrap 29233}#
- (cons (cdr #{ms 29223}#)
- (if #{rib 29092}#
- (cons #{rib 29092}# (cdr #{s 29224}#))
- (cdr #{s 29224}#))))
- (#{module 29234}# (vector-ref #{x 29201}# 3)))
+ (let ((#{expression 29489}# (vector-ref #{x 29458}# 1))
+ (#{wrap 29490}#
+ (cons (cdr #{ms 29480}#)
+ (if #{rib 29349}#
+ (cons #{rib 29349}# (cdr #{s 29481}#))
+ (cdr #{s 29481}#))))
+ (#{module 29491}# (vector-ref #{x 29458}# 3)))
(vector
'syntax-object
- #{expression 29232}#
- #{wrap 29233}#
- #{module 29234}#))
- (let ((#{expression 29244}#
- (let ((#{e 29249}# (vector-ref #{x 29201}# 1)))
+ #{expression 29489}#
+ #{wrap 29490}#
+ #{module 29491}#))
+ (let ((#{expression 29501}#
+ (let ((#{e 29506}# (vector-ref #{x 29458}# 1)))
(begin
- (if (if (pair? #{e 29249}#) #{s 29224}# #f)
+ (if (if (pair? #{e 29506}#) #{s 29481}# #f)
(set-source-properties!
- #{e 29249}#
- #{s 29224}#))
- #{e 29249}#)))
- (#{wrap 29245}#
- (cons (cons #{m 29202}# #{ms 29223}#)
- (if #{rib 29092}#
- (cons #{rib 29092}#
- (cons 'shift #{s 29224}#))
- (cons 'shift #{s 29224}#))))
- (#{module 29246}# (vector-ref #{x 29201}# 3)))
+ #{e 29506}#
+ #{s 29481}#))
+ #{e 29506}#)))
+ (#{wrap 29502}#
+ (cons (cons #{m 29459}# #{ms 29480}#)
+ (if #{rib 29349}#
+ (cons #{rib 29349}#
+ (cons 'shift #{s 29481}#))
+ (cons 'shift #{s 29481}#))))
+ (#{module 29503}# (vector-ref #{x 29458}# 3)))
(vector
'syntax-object
- #{expression 29244}#
- #{wrap 29245}#
- #{module 29246}#)))))
- (if (vector? #{x 29201}#)
- (let ((#{n 29261}# (vector-length #{x 29201}#)))
- (let ((#{v 29262}#
- (let ((#{e 29270}# (make-vector #{n 29261}#)))
+ #{expression 29501}#
+ #{wrap 29502}#
+ #{module 29503}#)))))
+ (if (vector? #{x 29458}#)
+ (let ((#{n 29518}# (vector-length #{x 29458}#)))
+ (let ((#{v 29519}#
+ (let ((#{e 29527}# (make-vector #{n 29518}#)))
(begin
- (if (if (pair? #{e 29270}#) #{x 29201}# #f)
+ (if (if (pair? #{e 29527}#) #{x 29458}# #f)
(set-source-properties!
- #{e 29270}#
- #{x 29201}#))
- #{e 29270}#))))
+ #{e 29527}#
+ #{x 29458}#))
+ #{e 29527}#))))
(letrec*
- ((#{loop 29263}#
- (lambda (#{i 29324}#)
- (if (= #{i 29324}# #{n 29261}#)
- #{v 29262}#
+ ((#{loop 29520}#
+ (lambda (#{i 29581}#)
+ (if (= #{i 29581}# #{n 29518}#)
+ #{v 29519}#
(begin
(vector-set!
- #{v 29262}#
- #{i 29324}#
- (#{rebuild-macro-output 29094}#
- (vector-ref #{x 29201}# #{i 29324}#)
- #{m 29202}#))
- (#{loop 29263}# (#{1+}# #{i 29324}#)))))))
- (#{loop 29263}# 0))))
- (if (symbol? #{x 29201}#)
+ #{v 29519}#
+ #{i 29581}#
+ (#{rebuild-macro-output 29351}#
+ (vector-ref #{x 29458}# #{i 29581}#)
+ #{m 29459}#))
+ (#{loop 29520}# (#{1+}# #{i 29581}#)))))))
+ (#{loop 29520}# 0))))
+ (if (symbol? #{x 29458}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (let ((#{s 29330}# (cdr #{w 29090}#)))
- (let ((#{x 29334}#
+ (let ((#{s 29587}# (cdr #{w 29347}#)))
+ (let ((#{x 29591}#
(begin
- (if (if (pair? #{e 29088}#) #{s 29330}# #f)
+ (if (if (pair? #{e 29345}#) #{s 29587}# #f)
(set-source-properties!
- #{e 29088}#
- #{s 29330}#))
- #{e 29088}#)))
- (if (if (null? (car #{w 29090}#))
- (null? (cdr #{w 29090}#))
+ #{e 29345}#
+ #{s 29587}#))
+ #{e 29345}#)))
+ (if (if (null? (car #{w 29347}#))
+ (null? (cdr #{w 29347}#))
#f)
- #{x 29334}#
- (if (if (vector? #{x 29334}#)
- (if (= (vector-length #{x 29334}#) 4)
- (eq? (vector-ref #{x 29334}# 0)
+ #{x 29591}#
+ (if (if (vector? #{x 29591}#)
+ (if (= (vector-length #{x 29591}#) 4)
+ (eq? (vector-ref #{x 29591}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 29366}#
- (vector-ref #{x 29334}# 1))
- (#{wrap 29367}#
- (let ((#{w2 29375}#
- (vector-ref #{x 29334}# 2)))
- (let ((#{m1 29376}#
- (car #{w 29090}#))
- (#{s1 29377}#
- (cdr #{w 29090}#)))
- (if (null? #{m1 29376}#)
- (if (null? #{s1 29377}#)
- #{w2 29375}#
- (cons (car #{w2 29375}#)
- (let ((#{m2 29392}#
- (cdr #{w2
29375}#)))
- (if (null? #{m2
29392}#)
- #{s1 29377}#
+ (let ((#{expression 29623}#
+ (vector-ref #{x 29591}# 1))
+ (#{wrap 29624}#
+ (let ((#{w2 29632}#
+ (vector-ref #{x 29591}# 2)))
+ (let ((#{m1 29633}#
+ (car #{w 29347}#))
+ (#{s1 29634}#
+ (cdr #{w 29347}#)))
+ (if (null? #{m1 29633}#)
+ (if (null? #{s1 29634}#)
+ #{w2 29632}#
+ (cons (car #{w2 29632}#)
+ (let ((#{m2 29649}#
+ (cdr #{w2
29632}#)))
+ (if (null? #{m2
29649}#)
+ #{s1 29634}#
(append
- #{s1 29377}#
- #{m2 29392}#)))))
- (cons (let ((#{m2 29400}#
- (car #{w2
29375}#)))
- (if (null? #{m2 29400}#)
- #{m1 29376}#
+ #{s1 29634}#
+ #{m2 29649}#)))))
+ (cons (let ((#{m2 29657}#
+ (car #{w2
29632}#)))
+ (if (null? #{m2 29657}#)
+ #{m1 29633}#
(append
- #{m1 29376}#
- #{m2 29400}#)))
- (let ((#{m2 29408}#
- (cdr #{w2
29375}#)))
- (if (null? #{m2 29408}#)
- #{s1 29377}#
+ #{m1 29633}#
+ #{m2 29657}#)))
+ (let ((#{m2 29665}#
+ (cdr #{w2
29632}#)))
+ (if (null? #{m2 29665}#)
+ #{s1 29634}#
(append
- #{s1 29377}#
- #{m2 29408}#))))))))
- (#{module 29368}#
- (vector-ref #{x 29334}# 3)))
+ #{s1 29634}#
+ #{m2 29665}#))))))))
+ (#{module 29625}#
+ (vector-ref #{x 29591}# 3)))
(vector
'syntax-object
- #{expression 29366}#
- #{wrap 29367}#
- #{module 29368}#))
- (if (null? #{x 29334}#)
- #{x 29334}#
+ #{expression 29623}#
+ #{wrap 29624}#
+ #{module 29625}#))
+ (if (null? #{x 29591}#)
+ #{x 29591}#
(vector
'syntax-object
- #{x 29334}#
- #{w 29090}#
- #{mod 29093}#))))))
- #{x 29201}#)
+ #{x 29591}#
+ #{w 29347}#
+ #{mod 29350}#))))))
+ #{x 29458}#)
(begin
- (if (if (pair? #{x 29201}#) #{s 29091}# #f)
- (set-source-properties! #{x 29201}# #{s 29091}#))
- #{x 29201}#))))))))
- (#{rebuild-macro-output 29094}#
- (#{p 29087}#
- (let ((#{w 29101}#
- (cons (cons #f (car #{w 29090}#))
- (cons 'shift (cdr #{w 29090}#)))))
- (let ((#{x 29106}#
+ (if (if (pair? #{x 29458}#) #{s 29348}# #f)
+ (set-source-properties! #{x 29458}# #{s 29348}#))
+ #{x 29458}#))))))))
+ (#{rebuild-macro-output 29351}#
+ (#{p 29344}#
+ (let ((#{w 29358}#
+ (cons (cons #f (car #{w 29347}#))
+ (cons 'shift (cdr #{w 29347}#)))))
+ (let ((#{x 29363}#
(begin
- (if (if (pair? #{e 29088}#) #{s 29091}# #f)
- (set-source-properties! #{e 29088}# #{s 29091}#))
- #{e 29088}#)))
- (if (if (null? (car #{w 29101}#))
- (null? (cdr #{w 29101}#))
+ (if (if (pair? #{e 29345}#) #{s 29348}# #f)
+ (set-source-properties! #{e 29345}# #{s 29348}#))
+ #{e 29345}#)))
+ (if (if (null? (car #{w 29358}#))
+ (null? (cdr #{w 29358}#))
#f)
- #{x 29106}#
- (if (if (vector? #{x 29106}#)
- (if (= (vector-length #{x 29106}#) 4)
- (eq? (vector-ref #{x 29106}# 0) 'syntax-object)
+ #{x 29363}#
+ (if (if (vector? #{x 29363}#)
+ (if (= (vector-length #{x 29363}#) 4)
+ (eq? (vector-ref #{x 29363}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 29144}# (vector-ref #{x 29106}# 1))
- (#{wrap 29145}#
- (let ((#{w2 29153}# (vector-ref #{x 29106}# 2)))
- (let ((#{m1 29154}# (car #{w 29101}#))
- (#{s1 29155}# (cdr #{w 29101}#)))
- (if (null? #{m1 29154}#)
- (if (null? #{s1 29155}#)
- #{w2 29153}#
- (cons (car #{w2 29153}#)
- (let ((#{m2 29170}#
- (cdr #{w2 29153}#)))
- (if (null? #{m2 29170}#)
- #{s1 29155}#
+ (let ((#{expression 29401}# (vector-ref #{x 29363}# 1))
+ (#{wrap 29402}#
+ (let ((#{w2 29410}# (vector-ref #{x 29363}# 2)))
+ (let ((#{m1 29411}# (car #{w 29358}#))
+ (#{s1 29412}# (cdr #{w 29358}#)))
+ (if (null? #{m1 29411}#)
+ (if (null? #{s1 29412}#)
+ #{w2 29410}#
+ (cons (car #{w2 29410}#)
+ (let ((#{m2 29427}#
+ (cdr #{w2 29410}#)))
+ (if (null? #{m2 29427}#)
+ #{s1 29412}#
(append
- #{s1 29155}#
- #{m2 29170}#)))))
- (cons (let ((#{m2 29178}#
- (car #{w2 29153}#)))
- (if (null? #{m2 29178}#)
- #{m1 29154}#
+ #{s1 29412}#
+ #{m2 29427}#)))))
+ (cons (let ((#{m2 29435}#
+ (car #{w2 29410}#)))
+ (if (null? #{m2 29435}#)
+ #{m1 29411}#
(append
- #{m1 29154}#
- #{m2 29178}#)))
- (let ((#{m2 29186}#
- (cdr #{w2 29153}#)))
- (if (null? #{m2 29186}#)
- #{s1 29155}#
+ #{m1 29411}#
+ #{m2 29435}#)))
+ (let ((#{m2 29443}#
+ (cdr #{w2 29410}#)))
+ (if (null? #{m2 29443}#)
+ #{s1 29412}#
(append
- #{s1 29155}#
- #{m2 29186}#))))))))
- (#{module 29146}# (vector-ref #{x 29106}# 3)))
+ #{s1 29412}#
+ #{m2 29443}#))))))))
+ (#{module 29403}# (vector-ref #{x 29363}# 3)))
(vector
'syntax-object
- #{expression 29144}#
- #{wrap 29145}#
- #{module 29146}#))
- (if (null? #{x 29106}#)
- #{x 29106}#
+ #{expression 29401}#
+ #{wrap 29402}#
+ #{module 29403}#))
+ (if (null? #{x 29363}#)
+ #{x 29363}#
(vector
'syntax-object
- #{x 29106}#
- #{w 29101}#
- #{mod 29093}#)))))))
+ #{x 29363}#
+ #{w 29358}#
+ #{mod 29350}#)))))))
(gensym "m")))))
- (#{chi-body 4379}#
- (lambda (#{body 29438}#
- #{outer-form 29439}#
- #{r 29440}#
- #{w 29441}#
- #{mod 29442}#)
- (let ((#{r 29443}#
- (cons '("placeholder" placeholder) #{r 29440}#)))
- (let ((#{ribcage 29444}# (vector 'ribcage '() '() '())))
- (let ((#{w 29445}#
- (cons (car #{w 29441}#)
- (cons #{ribcage 29444}# (cdr #{w 29441}#)))))
+ (#{chi-body 4377}#
+ (lambda (#{body 29695}#
+ #{outer-form 29696}#
+ #{r 29697}#
+ #{w 29698}#
+ #{mod 29699}#)
+ (let ((#{r 29700}#
+ (cons '("placeholder" placeholder) #{r 29697}#)))
+ (let ((#{ribcage 29701}# (vector 'ribcage '() '() '())))
+ (let ((#{w 29702}#
+ (cons (car #{w 29698}#)
+ (cons #{ribcage 29701}# (cdr #{w 29698}#)))))
(letrec*
- ((#{parse 29446}#
- (lambda (#{body 29554}#
- #{ids 29555}#
- #{labels 29556}#
- #{var-ids 29557}#
- #{vars 29558}#
- #{vals 29559}#
- #{bindings 29560}#)
- (if (null? #{body 29554}#)
+ ((#{parse 29703}#
+ (lambda (#{body 29811}#
+ #{ids 29812}#
+ #{labels 29813}#
+ #{var-ids 29814}#
+ #{vars 29815}#
+ #{vals 29816}#
+ #{bindings 29817}#)
+ (if (null? #{body 29811}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form 29439}#)
- (let ((#{e 29561}# (cdr (car #{body 29554}#)))
- (#{er 29562}# (car (car #{body 29554}#))))
+ #{outer-form 29696}#)
+ (let ((#{e 29818}# (cdr (car #{body 29811}#)))
+ (#{er 29819}# (car (car #{body 29811}#))))
(call-with-values
(lambda ()
- (#{syntax-type 4374}#
- #{e 29561}#
- #{er 29562}#
+ (#{syntax-type 4372}#
+ #{e 29818}#
+ #{er 29819}#
'(())
- (#{source-annotation 4336}# #{er 29562}#)
- #{ribcage 29444}#
- #{mod 29442}#
+ (#{source-annotation 4334}# #{er 29819}#)
+ #{ribcage 29701}#
+ #{mod 29699}#
#f))
- (lambda (#{type 29756}#
- #{value 29757}#
- #{e 29758}#
- #{w 29759}#
- #{s 29760}#
- #{mod 29761}#)
- (if (eqv? #{type 29756}# 'define-form)
- (let ((#{id 29765}#
- (if (if (null? (car #{w 29759}#))
- (null? (cdr #{w 29759}#))
+ (lambda (#{type 30025}#
+ #{value 30026}#
+ #{e 30027}#
+ #{w 30028}#
+ #{s 30029}#
+ #{mod 30030}#)
+ (if (eqv? #{type 30025}# 'define-form)
+ (let ((#{id 30034}#
+ (if (if (null? (car #{w 30028}#))
+ (null? (cdr #{w 30028}#))
#f)
- #{value 29757}#
- (if (if (vector? #{value 29757}#)
+ #{value 30026}#
+ (if (if (vector? #{value 30026}#)
(if (= (vector-length
- #{value 29757}#)
+ #{value 30026}#)
4)
(eq? (vector-ref
- #{value 29757}#
+ #{value 30026}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 29810}#
+ (let ((#{expression 30079}#
(vector-ref
- #{value 29757}#
+ #{value 30026}#
1))
- (#{wrap 29811}#
- (let ((#{w2 29821}#
+ (#{wrap 30080}#
+ (let ((#{w2 30090}#
(vector-ref
- #{value 29757}#
+ #{value 30026}#
2)))
- (let ((#{m1 29822}#
- (car #{w 29759}#))
- (#{s1 29823}#
- (cdr #{w 29759}#)))
- (if (null? #{m1 29822}#)
- (if (null? #{s1
29823}#)
- #{w2 29821}#
- (cons (car #{w2
29821}#)
- (let ((#{m2
29840}#
- (cdr
#{w2 29821}#)))
- (if (null?
#{m2 29840}#)
- #{s1
29823}#
+ (let ((#{m1 30091}#
+ (car #{w 30028}#))
+ (#{s1 30092}#
+ (cdr #{w 30028}#)))
+ (if (null? #{m1 30091}#)
+ (if (null? #{s1
30092}#)
+ #{w2 30090}#
+ (cons (car #{w2
30090}#)
+ (let ((#{m2
30109}#
+ (cdr
#{w2 30090}#)))
+ (if (null?
#{m2 30109}#)
+ #{s1
30092}#
(append
- #{s1
29823}#
- #{m2
29840}#)))))
- (cons (let ((#{m2
29848}#
- (car
#{w2 29821}#)))
- (if (null?
#{m2 29848}#)
- #{m1 29822}#
+ #{s1
30092}#
+ #{m2
30109}#)))))
+ (cons (let ((#{m2
30117}#
+ (car
#{w2 30090}#)))
+ (if (null?
#{m2 30117}#)
+ #{m1 30091}#
(append
- #{m1
29822}#
- #{m2
29848}#)))
- (let ((#{m2
29856}#
- (cdr
#{w2 29821}#)))
- (if (null?
#{m2 29856}#)
- #{s1 29823}#
+ #{m1
30091}#
+ #{m2
30117}#)))
+ (let ((#{m2
30125}#
+ (cdr
#{w2 30090}#)))
+ (if (null?
#{m2 30125}#)
+ #{s1 30092}#
(append
- #{s1
29823}#
- #{m2
29856}#))))))))
- (#{module 29812}#
+ #{s1
30092}#
+ #{m2
30125}#))))))))
+ (#{module 30081}#
(vector-ref
- #{value 29757}#
+ #{value 30026}#
3)))
(vector
'syntax-object
- #{expression 29810}#
- #{wrap 29811}#
- #{module 29812}#))
- (if (null? #{value 29757}#)
- #{value 29757}#
+ #{expression 30079}#
+ #{wrap 30080}#
+ #{module 30081}#))
+ (if (null? #{value 30026}#)
+ #{value 30026}#
(vector
'syntax-object
- #{value 29757}#
- #{w 29759}#
- #{mod 29761}#)))))
- (#{label 29766}#
+ #{value 30026}#
+ #{w 30028}#
+ #{mod 30030}#)))))
+ (#{label 30035}#
(symbol->string (gensym "i"))))
- (let ((#{var 29767}#
- (let ((#{id 29917}#
- (if (if (vector? #{id 29765}#)
+ (let ((#{var 30036}#
+ (let ((#{id 30186}#
+ (if (if (vector? #{id 30034}#)
(if (= (vector-length
- #{id 29765}#)
+ #{id 30034}#)
4)
(eq? (vector-ref
- #{id 29765}#
+ #{id 30034}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 29765}# 1)
- #{id 29765}#)))
+ (vector-ref #{id 30034}# 1)
+ #{id 30034}#)))
(gensym
(string-append
- (symbol->string #{id 29917}#)
+ (symbol->string #{id 30186}#)
" ")))))
(begin
(begin
- (let ((#{update 29776}#
- (cons (vector-ref #{id 29765}# 1)
+ (let ((#{update 30045}#
+ (cons (vector-ref #{id 30034}# 1)
(vector-ref
- #{ribcage 29444}#
+ #{ribcage 29701}#
1))))
(vector-set!
- #{ribcage 29444}#
+ #{ribcage 29701}#
1
- #{update 29776}#))
- (let ((#{update 29888}#
+ #{update 30045}#))
+ (let ((#{update 30157}#
(cons (car (vector-ref
- #{id 29765}#
+ #{id 30034}#
2))
(vector-ref
- #{ribcage 29444}#
+ #{ribcage 29701}#
2))))
(vector-set!
- #{ribcage 29444}#
+ #{ribcage 29701}#
2
- #{update 29888}#))
- (let ((#{update 29903}#
- (cons #{label 29766}#
+ #{update 30157}#))
+ (let ((#{update 30172}#
+ (cons #{label 30035}#
(vector-ref
- #{ribcage 29444}#
+ #{ribcage 29701}#
3))))
(vector-set!
- #{ribcage 29444}#
+ #{ribcage 29701}#
3
- #{update 29903}#)))
- (#{parse 29446}#
- (cdr #{body 29554}#)
- (cons #{id 29765}# #{ids 29555}#)
- (cons #{label 29766}# #{labels 29556}#)
- (cons #{id 29765}# #{var-ids 29557}#)
- (cons #{var 29767}# #{vars 29558}#)
- (cons (cons #{er 29562}#
- (if (if (null? (car #{w
29759}#))
- (null? (cdr #{w
29759}#))
+ #{update 30172}#)))
+ (#{parse 29703}#
+ (cdr #{body 29811}#)
+ (cons #{id 30034}# #{ids 29812}#)
+ (cons #{label 30035}# #{labels 29813}#)
+ (cons #{id 30034}# #{var-ids 29814}#)
+ (cons #{var 30036}# #{vars 29815}#)
+ (cons (cons #{er 29819}#
+ (if (if (null? (car #{w
30028}#))
+ (null? (cdr #{w
30028}#))
#f)
- #{e 29758}#
+ #{e 30027}#
(if (if (vector?
- #{e 29758}#)
+ #{e 30027}#)
(if (= (vector-length
- #{e 29758}#)
+ #{e 30027}#)
4)
(eq? (vector-ref
- #{e 29758}#
+ #{e 30027}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression
29969}#
+ (let ((#{expression
30238}#
(vector-ref
- #{e 29758}#
+ #{e 30027}#
1))
- (#{wrap 29970}#
- (let ((#{w2
29980}#
+ (#{wrap 30239}#
+ (let ((#{w2
30249}#
(vector-ref
- #{e
29758}#
+ #{e
30027}#
2)))
- (let ((#{m1
29981}#
- (car
#{w 29759}#))
- (#{s1
29982}#
- (cdr
#{w 29759}#)))
- (if (null?
#{m1 29981}#)
- (if (null?
#{s1 29982}#)
- #{w2
29980}#
- (cons
(car #{w2 29980}#)
-
(let ((#{m2 29999}#
-
(cdr #{w2 29980}#)))
-
(if (null? #{m2 29999}#)
-
#{s1 29982}#
+ (let ((#{m1
30250}#
+ (car
#{w 30028}#))
+ (#{s1
30251}#
+ (cdr
#{w 30028}#)))
+ (if (null?
#{m1 30250}#)
+ (if (null?
#{s1 30251}#)
+ #{w2
30249}#
+ (cons
(car #{w2 30249}#)
+
(let ((#{m2 30268}#
+
(cdr #{w2 30249}#)))
+
(if (null? #{m2 30268}#)
+
#{s1 30251}#
(append
-
#{s1 29982}#
-
#{m2 29999}#)))))
- (cons (let
((#{m2 30007}#
-
(car #{w2 29980}#)))
-
(if (null? #{m2 30007}#)
-
#{m1 29981}#
+
#{s1 30251}#
+
#{m2 30268}#)))))
+ (cons (let
((#{m2 30276}#
+
(car #{w2 30249}#)))
+
(if (null? #{m2 30276}#)
+
#{m1 30250}#
(append
-
#{m1 29981}#
-
#{m2 30007}#)))
- (let
((#{m2 30015}#
-
(cdr #{w2 29980}#)))
-
(if (null? #{m2 30015}#)
-
#{s1 29982}#
+
#{m1 30250}#
+
#{m2 30276}#)))
+ (let
((#{m2 30284}#
+
(cdr #{w2 30249}#)))
+
(if (null? #{m2 30284}#)
+
#{s1 30251}#
(append
-
#{s1 29982}#
-
#{m2 30015}#))))))))
- (#{module 29971}#
+
#{s1 30251}#
+
#{m2 30284}#))))))))
+ (#{module 30240}#
(vector-ref
- #{e 29758}#
+ #{e 30027}#
3)))
(vector
'syntax-object
- #{expression 29969}#
- #{wrap 29970}#
- #{module 29971}#))
- (if (null? #{e 29758}#)
- #{e 29758}#
+ #{expression 30238}#
+ #{wrap 30239}#
+ #{module 30240}#))
+ (if (null? #{e 30027}#)
+ #{e 30027}#
(vector
'syntax-object
- #{e 29758}#
- #{w 29759}#
- #{mod 29761}#)))))
- #{vals 29559}#)
- (cons (cons 'lexical #{var 29767}#)
- #{bindings 29560}#)))))
- (if (eqv? #{type 29756}# 'define-syntax-form)
- (let ((#{id 30041}#
- (if (if (null? (car #{w 29759}#))
- (null? (cdr #{w 29759}#))
+ #{e 30027}#
+ #{w 30028}#
+ #{mod 30030}#)))))
+ #{vals 29816}#)
+ (cons (cons 'lexical #{var 30036}#)
+ #{bindings 29817}#)))))
+ (if (eqv? #{type 30025}# 'define-syntax-form)
+ (let ((#{id 30310}#
+ (if (if (null? (car #{w 30028}#))
+ (null? (cdr #{w 30028}#))
#f)
- #{value 29757}#
- (if (if (vector? #{value 29757}#)
+ #{value 30026}#
+ (if (if (vector? #{value 30026}#)
(if (= (vector-length
- #{value 29757}#)
+ #{value 30026}#)
4)
(eq? (vector-ref
- #{value 29757}#
+ #{value 30026}#
0)
'syntax-object)
#f)
#f)
- (let ((#{expression 30085}#
+ (let ((#{expression 30354}#
(vector-ref
- #{value 29757}#
+ #{value 30026}#
1))
- (#{wrap 30086}#
- (let ((#{w2 30096}#
+ (#{wrap 30355}#
+ (let ((#{w2 30365}#
(vector-ref
- #{value 29757}#
+ #{value 30026}#
2)))
- (let ((#{m1 30097}#
- (car #{w
29759}#))
- (#{s1 30098}#
- (cdr #{w
29759}#)))
- (if (null? #{m1
30097}#)
- (if (null? #{s1
30098}#)
- #{w2 30096}#
- (cons (car #{w2
30096}#)
- (let ((#{m2
30115}#
- (cdr
#{w2 30096}#)))
- (if (null?
#{m2 30115}#)
- #{s1
30098}#
+ (let ((#{m1 30366}#
+ (car #{w
30028}#))
+ (#{s1 30367}#
+ (cdr #{w
30028}#)))
+ (if (null? #{m1
30366}#)
+ (if (null? #{s1
30367}#)
+ #{w2 30365}#
+ (cons (car #{w2
30365}#)
+ (let ((#{m2
30384}#
+ (cdr
#{w2 30365}#)))
+ (if (null?
#{m2 30384}#)
+ #{s1
30367}#
(append
- #{s1
30098}#
- #{m2
30115}#)))))
- (cons (let ((#{m2
30123}#
- (car
#{w2 30096}#)))
- (if (null?
#{m2 30123}#)
- #{m1
30097}#
+ #{s1
30367}#
+ #{m2
30384}#)))))
+ (cons (let ((#{m2
30392}#
+ (car
#{w2 30365}#)))
+ (if (null?
#{m2 30392}#)
+ #{m1
30366}#
(append
- #{m1
30097}#
- #{m2
30123}#)))
- (let ((#{m2
30131}#
- (cdr
#{w2 30096}#)))
- (if (null?
#{m2 30131}#)
- #{s1
30098}#
+ #{m1
30366}#
+ #{m2
30392}#)))
+ (let ((#{m2
30400}#
+ (cdr
#{w2 30365}#)))
+ (if (null?
#{m2 30400}#)
+ #{s1
30367}#
(append
- #{s1
30098}#
- #{m2
30131}#))))))))
- (#{module 30087}#
+ #{s1
30367}#
+ #{m2
30400}#))))))))
+ (#{module 30356}#
(vector-ref
- #{value 29757}#
+ #{value 30026}#
3)))
(vector
'syntax-object
- #{expression 30085}#
- #{wrap 30086}#
- #{module 30087}#))
- (if (null? #{value 29757}#)
- #{value 29757}#
+ #{expression 30354}#
+ #{wrap 30355}#
+ #{module 30356}#))
+ (if (null? #{value 30026}#)
+ #{value 30026}#
(vector
'syntax-object
- #{value 29757}#
- #{w 29759}#
- #{mod 29761}#)))))
- (#{label 30042}#
+ #{value 30026}#
+ #{w 30028}#
+ #{mod 30030}#)))))
+ (#{label 30311}#
(symbol->string (gensym "i"))))
(begin
(begin
- (let ((#{update 30051}#
- (cons (vector-ref #{id 30041}# 1)
+ (let ((#{update 30320}#
+ (cons (vector-ref #{id 30310}# 1)
(vector-ref
- #{ribcage 29444}#
+ #{ribcage 29701}#
1))))
(vector-set!
- #{ribcage 29444}#
+ #{ribcage 29701}#
1
- #{update 30051}#))
- (let ((#{update 30163}#
+ #{update 30320}#))
+ (let ((#{update 30432}#
(cons (car (vector-ref
- #{id 30041}#
+ #{id 30310}#
2))
(vector-ref
- #{ribcage 29444}#
+ #{ribcage 29701}#
2))))
(vector-set!
- #{ribcage 29444}#
+ #{ribcage 29701}#
2
- #{update 30163}#))
- (let ((#{update 30178}#
- (cons #{label 30042}#
+ #{update 30432}#))
+ (let ((#{update 30447}#
+ (cons #{label 30311}#
(vector-ref
- #{ribcage 29444}#
+ #{ribcage 29701}#
3))))
(vector-set!
- #{ribcage 29444}#
+ #{ribcage 29701}#
3
- #{update 30178}#)))
- (#{parse 29446}#
- (cdr #{body 29554}#)
- (cons #{id 30041}# #{ids 29555}#)
- (cons #{label 30042}# #{labels 29556}#)
- #{var-ids 29557}#
- #{vars 29558}#
- #{vals 29559}#
+ #{update 30447}#)))
+ (#{parse 29703}#
+ (cdr #{body 29811}#)
+ (cons #{id 30310}# #{ids 29812}#)
+ (cons #{label 30311}# #{labels 29813}#)
+ #{var-ids 29814}#
+ #{vars 29815}#
+ #{vals 29816}#
(cons (cons 'macro
- (cons #{er 29562}#
- (if (if (null? (car
#{w 29759}#))
- (null? (cdr #{w
29759}#))
+ (cons #{er 29819}#
+ (if (if (null? (car
#{w 30028}#))
+ (null? (cdr #{w
30028}#))
#f)
- #{e 29758}#
+ #{e 30027}#
(if (if (vector?
- #{e
29758}#)
+ #{e
30027}#)
(if (=
(vector-length
- #{e
29758}#)
+ #{e
30027}#)
4)
(eq?
(vector-ref
- #{e
29758}#
+ #{e
30027}#
0)
'syntax-object)
#f)
#f)
- (let
((#{expression 30217}#
+ (let
((#{expression 30486}#
(vector-ref
- #{e
29758}#
+ #{e
30027}#
1))
- (#{wrap
30218}#
- (let
((#{w2 30228}#
+ (#{wrap
30487}#
+ (let
((#{w2 30497}#
(vector-ref
-
#{e 29758}#
+
#{e 30027}#
2)))
- (let
((#{m1 30229}#
-
(car #{w 29759}#))
-
(#{s1 30230}#
-
(cdr #{w 29759}#)))
- (if
(null? #{m1 30229}#)
- (if
(null? #{s1 30230}#)
-
#{w2 30228}#
-
(cons (car #{w2 30228}#)
-
(let ((#{m2 30247}#
-
(cdr #{w2 30228}#)))
-
(if (null? #{m2 30247}#)
-
#{s1 30230}#
+ (let
((#{m1 30498}#
+
(car #{w 30028}#))
+
(#{s1 30499}#
+
(cdr #{w 30028}#)))
+ (if
(null? #{m1 30498}#)
+ (if
(null? #{s1 30499}#)
+
#{w2 30497}#
+
(cons (car #{w2 30497}#)
+
(let ((#{m2 30516}#
+
(cdr #{w2 30497}#)))
+
(if (null? #{m2 30516}#)
+
#{s1 30499}#
(append
-
#{s1 30230}#
-
#{m2 30247}#)))))
-
(cons (let ((#{m2 30255}#
-
(car #{w2 30228}#)))
-
(if (null? #{m2 30255}#)
-
#{m1 30229}#
+
#{s1 30499}#
+
#{m2 30516}#)))))
+
(cons (let ((#{m2 30524}#
+
(car #{w2 30497}#)))
+
(if (null? #{m2 30524}#)
+
#{m1 30498}#
(append
-
#{m1 30229}#
-
#{m2 30255}#)))
-
(let ((#{m2 30263}#
-
(cdr #{w2 30228}#)))
-
(if (null? #{m2 30263}#)
-
#{s1 30230}#
+
#{m1 30498}#
+
#{m2 30524}#)))
+
(let ((#{m2 30532}#
+
(cdr #{w2 30497}#)))
+
(if (null? #{m2 30532}#)
+
#{s1 30499}#
(append
-
#{s1 30230}#
-
#{m2 30263}#))))))))
- (#{module
30219}#
+
#{s1 30499}#
+
#{m2 30532}#))))))))
+ (#{module
30488}#
(vector-ref
- #{e
29758}#
+ #{e
30027}#
3)))
(vector
'syntax-object
- #{expression
30217}#
- #{wrap 30218}#
- #{module
30219}#))
- (if (null? #{e
29758}#)
- #{e 29758}#
+ #{expression
30486}#
+ #{wrap 30487}#
+ #{module
30488}#))
+ (if (null? #{e
30027}#)
+ #{e 30027}#
(vector
'syntax-object
- #{e 29758}#
- #{w 29759}#
- #{mod
29761}#))))))
- #{bindings 29560}#))))
- (if (eqv? #{type 29756}# 'begin-form)
- (let ((#{tmp 30290}#
+ #{e 30027}#
+ #{w 30028}#
+ #{mod
30030}#))))))
+ #{bindings 29817}#))))
+ (if (eqv? #{type 30025}# 'begin-form)
+ (let ((#{tmp 30559}#
($sc-dispatch
- #{e 29758}#
+ #{e 30027}#
'(_ . each-any))))
- (if #{tmp 30290}#
+ (if #{tmp 30559}#
(@apply
- (lambda (#{e1 30294}#)
- (#{parse 29446}#
+ (lambda (#{e1 30563}#)
+ (#{parse 29703}#
(letrec*
- ((#{f 30295}#
- (lambda (#{forms 30509}#)
- (if (null? #{forms 30509}#)
- (cdr #{body 29554}#)
- (cons (cons #{er 29562}#
- (let ((#{x
30513}#
- (car
#{forms 30509}#)))
- (if (if
(null? (car #{w 29759}#))
-
(null? (cdr #{w 29759}#))
+ ((#{f 30564}#
+ (lambda (#{forms 30780}#)
+ (if (null? #{forms 30780}#)
+ (cdr #{body 29811}#)
+ (cons (cons #{er 29819}#
+ (let ((#{x
30784}#
+ (car
#{forms 30780}#)))
+ (if (if
(null? (car #{w 30028}#))
+
(null? (cdr #{w 30028}#))
#f)
- #{x
30513}#
+ #{x
30784}#
(if (if
(vector?
-
#{x 30513}#)
+
#{x 30784}#)
(if
(= (vector-length
-
#{x 30513}#)
+
#{x 30784}#)
4)
(eq? (vector-ref
-
#{x 30513}#
+
#{x 30784}#
0)
'syntax-object)
#f)
#f)
- (let
((#{expression 30531}#
+ (let
((#{expression 30802}#
(vector-ref
-
#{x 30513}#
+
#{x 30784}#
1))
-
(#{wrap 30532}#
-
(let ((#{w2 30540}#
+
(#{wrap 30803}#
+
(let ((#{w2 30811}#
(vector-ref
-
#{x 30513}#
+
#{x 30784}#
2)))
-
(let ((#{m1 30541}#
-
(car #{w 29759}#))
-
(#{s1 30542}#
-
(cdr #{w 29759}#)))
-
(if (null? #{m1 30541}#)
-
(if (null? #{s1 30542}#)
-
#{w2 30540}#
-
(cons (car #{w2 30540}#)
-
(let ((#{m2 30557}#
-
(cdr #{w2 30540}#)))
-
(if (null? #{m2 30557}#)
-
#{s1 30542}#
+
(let ((#{m1 30812}#
+
(car #{w 30028}#))
+
(#{s1 30813}#
+
(cdr #{w 30028}#)))
+
(if (null? #{m1 30812}#)
+
(if (null? #{s1 30813}#)
+
#{w2 30811}#
+
(cons (car #{w2 30811}#)
+
(let ((#{m2 30828}#
+
(cdr #{w2 30811}#)))
+
(if (null? #{m2 30828}#)
+
#{s1 30813}#
(append
-
#{s1 30542}#
-
#{m2 30557}#)))))
-
(cons (let ((#{m2 30565}#
-
(car #{w2 30540}#)))
-
(if (null? #{m2 30565}#)
-
#{m1 30541}#
+
#{s1 30813}#
+
#{m2 30828}#)))))
+
(cons (let ((#{m2 30836}#
+
(car #{w2 30811}#)))
+
(if (null? #{m2 30836}#)
+
#{m1 30812}#
(append
-
#{m1 30541}#
-
#{m2 30565}#)))
-
(let ((#{m2 30573}#
-
(cdr #{w2 30540}#)))
-
(if (null? #{m2 30573}#)
-
#{s1 30542}#
+
#{m1 30812}#
+
#{m2 30836}#)))
+
(let ((#{m2 30844}#
+
(cdr #{w2 30811}#)))
+
(if (null? #{m2 30844}#)
+
#{s1 30813}#
(append
-
#{s1 30542}#
-
#{m2 30573}#))))))))
-
(#{module 30533}#
+
#{s1 30813}#
+
#{m2 30844}#))))))))
+
(#{module 30804}#
(vector-ref
-
#{x 30513}#
+
#{x 30784}#
3)))
(vector
'syntax-object
-
#{expression 30531}#
-
#{wrap 30532}#
-
#{module 30533}#))
- (if
(null? #{x 30513}#)
- #{x
30513}#
+
#{expression 30802}#
+
#{wrap 30803}#
+
#{module 30804}#))
+ (if
(null? #{x 30784}#)
+ #{x
30784}#
(vector
'syntax-object
- #{x
30513}#
- #{w
29759}#
-
#{mod 29761}#))))))
- (#{f 30295}#
- (cdr #{forms
30509}#)))))))
- (#{f 30295}# #{e1 30294}#))
- #{ids 29555}#
- #{labels 29556}#
- #{var-ids 29557}#
- #{vars 29558}#
- #{vals 29559}#
- #{bindings 29560}#))
- #{tmp 30290}#)
+ #{x
30784}#
+ #{w
30028}#
+
#{mod 30030}#))))))
+ (#{f 30564}#
+ (cdr #{forms
30780}#)))))))
+ (#{f 30564}# #{e1 30563}#))
+ #{ids 29812}#
+ #{labels 29813}#
+ #{var-ids 29814}#
+ #{vars 29815}#
+ #{vals 29816}#
+ #{bindings 29817}#))
+ #{tmp 30559}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 29758}#)))
- (if (eqv? #{type 29756}# 'local-syntax-form)
- (#{chi-local-syntax 4380}#
- #{value 29757}#
- #{e 29758}#
- #{er 29562}#
- #{w 29759}#
- #{s 29760}#
- #{mod 29761}#
- (lambda (#{forms 30599}#
- #{er 30600}#
- #{w 30601}#
- #{s 30602}#
- #{mod 30603}#)
- (#{parse 29446}#
+ #{e 30027}#)))
+ (if (eqv? #{type 30025}# 'local-syntax-form)
+ (#{chi-local-syntax 4378}#
+ #{value 30026}#
+ #{e 30027}#
+ #{er 29819}#
+ #{w 30028}#
+ #{s 30029}#
+ #{mod 30030}#
+ (lambda (#{forms 30870}#
+ #{er 30871}#
+ #{w 30872}#
+ #{s 30873}#
+ #{mod 30874}#)
+ (#{parse 29703}#
(letrec*
- ((#{f 30604}#
- (lambda (#{forms 30818}#)
- (if (null? #{forms 30818}#)
- (cdr #{body 29554}#)
- (cons (cons #{er 30600}#
- (let ((#{x
30822}#
- (car
#{forms 30818}#)))
- (if (if
(null? (car #{w 30601}#))
- (null?
(cdr #{w 30601}#))
+ ((#{f 30875}#
+ (lambda (#{forms 31091}#)
+ (if (null? #{forms 31091}#)
+ (cdr #{body 29811}#)
+ (cons (cons #{er 30871}#
+ (let ((#{x
31095}#
+ (car
#{forms 31091}#)))
+ (if (if
(null? (car #{w 30872}#))
+ (null?
(cdr #{w 30872}#))
#f)
- #{x 30822}#
+ #{x 31095}#
(if (if
(vector?
-
#{x 30822}#)
+
#{x 31095}#)
(if
(= (vector-length
-
#{x 30822}#)
+
#{x 31095}#)
4)
(eq? (vector-ref
-
#{x 30822}#
+
#{x 31095}#
0)
'syntax-object)
#f)
#f)
- (let
((#{expression 30840}#
+ (let
((#{expression 31113}#
(vector-ref
-
#{x 30822}#
+
#{x 31095}#
1))
-
(#{wrap 30841}#
-
(let ((#{w2 30849}#
+
(#{wrap 31114}#
+
(let ((#{w2 31122}#
(vector-ref
-
#{x 30822}#
+
#{x 31095}#
2)))
-
(let ((#{m1 30850}#
-
(car #{w 30601}#))
-
(#{s1 30851}#
-
(cdr #{w 30601}#)))
-
(if (null? #{m1 30850}#)
-
(if (null? #{s1 30851}#)
-
#{w2 30849}#
-
(cons (car #{w2 30849}#)
-
(let ((#{m2 30866}#
-
(cdr #{w2 30849}#)))
-
(if (null? #{m2 30866}#)
-
#{s1 30851}#
+
(let ((#{m1 31123}#
+
(car #{w 30872}#))
+
(#{s1 31124}#
+
(cdr #{w 30872}#)))
+
(if (null? #{m1 31123}#)
+
(if (null? #{s1 31124}#)
+
#{w2 31122}#
+
(cons (car #{w2 31122}#)
+
(let ((#{m2 31139}#
+
(cdr #{w2 31122}#)))
+
(if (null? #{m2 31139}#)
+
#{s1 31124}#
(append
-
#{s1 30851}#
-
#{m2 30866}#)))))
-
(cons (let ((#{m2 30874}#
-
(car #{w2 30849}#)))
-
(if (null? #{m2 30874}#)
-
#{m1 30850}#
+
#{s1 31124}#
+
#{m2 31139}#)))))
+
(cons (let ((#{m2 31147}#
+
(car #{w2 31122}#)))
+
(if (null? #{m2 31147}#)
+
#{m1 31123}#
(append
-
#{m1 30850}#
-
#{m2 30874}#)))
-
(let ((#{m2 30882}#
-
(cdr #{w2 30849}#)))
-
(if (null? #{m2 30882}#)
-
#{s1 30851}#
+
#{m1 31123}#
+
#{m2 31147}#)))
+
(let ((#{m2 31155}#
+
(cdr #{w2 31122}#)))
+
(if (null? #{m2 31155}#)
+
#{s1 31124}#
(append
-
#{s1 30851}#
-
#{m2 30882}#))))))))
-
(#{module 30842}#
+
#{s1 31124}#
+
#{m2 31155}#))))))))
+
(#{module 31115}#
(vector-ref
-
#{x 30822}#
+
#{x 31095}#
3)))
(vector
'syntax-object
-
#{expression 30840}#
-
#{wrap 30841}#
-
#{module 30842}#))
- (if
(null? #{x 30822}#)
- #{x
30822}#
+
#{expression 31113}#
+
#{wrap 31114}#
+
#{module 31115}#))
+ (if
(null? #{x 31095}#)
+ #{x
31095}#
(vector
'syntax-object
- #{x
30822}#
- #{w
30601}#
- #{mod
30603}#))))))
- (#{f 30604}#
- (cdr #{forms
30818}#)))))))
- (#{f 30604}# #{forms 30599}#))
- #{ids 29555}#
- #{labels 29556}#
- #{var-ids 29557}#
- #{vars 29558}#
- #{vals 29559}#
- #{bindings 29560}#)))
- (if (null? #{ids 29555}#)
- (#{build-sequence 4324}#
+ #{x
31095}#
+ #{w
30872}#
+ #{mod
30874}#))))))
+ (#{f 30875}#
+ (cdr #{forms
31091}#)))))))
+ (#{f 30875}# #{forms 30870}#))
+ #{ids 29812}#
+ #{labels 29813}#
+ #{var-ids 29814}#
+ #{vars 29815}#
+ #{vals 29816}#
+ #{bindings 29817}#)))
+ (if (null? #{ids 29812}#)
+ (#{build-sequence 4322}#
#f
- (map (lambda (#{x 30969}#)
- (#{chi 4375}#
- (cdr #{x 30969}#)
- (car #{x 30969}#)
+ (map (lambda (#{x 31244}#)
+ (#{chi 4373}#
+ (cdr #{x 31244}#)
+ (car #{x 31244}#)
'(())
- #{mod 29761}#))
- (cons (cons #{er 29562}#
- (let ((#{x 31046}#
+ #{mod 30030}#))
+ (cons (cons #{er 29819}#
+ (let ((#{x 31323}#
(begin
- (if (if
(pair? #{e 29758}#)
- #{s
29760}#
+ (if (if
(pair? #{e 30027}#)
+ #{s
30029}#
#f)
(set-source-properties!
- #{e
29758}#
- #{s
29760}#))
- #{e
29758}#)))
- (if (if (null? (car
#{w 29759}#))
- (null? (cdr
#{w 29759}#))
+ #{e
30027}#
+ #{s
30029}#))
+ #{e
30027}#)))
+ (if (if (null? (car
#{w 30028}#))
+ (null? (cdr
#{w 30028}#))
#f)
- #{x 31046}#
+ #{x 31323}#
(if (if (vector?
- #{x
31046}#)
+ #{x
31323}#)
(if (=
(vector-length
-
#{x 31046}#)
+
#{x 31323}#)
4)
(eq?
(vector-ref
-
#{x 31046}#
+
#{x 31323}#
0)
'syntax-object)
#f)
#f)
- (let
((#{expression 31078}#
+ (let
((#{expression 31355}#
(vector-ref
- #{x
31046}#
+ #{x
31323}#
1))
- (#{wrap
31079}#
- (let
((#{w2 31087}#
+ (#{wrap
31356}#
+ (let
((#{w2 31364}#
(vector-ref
-
#{x 31046}#
+
#{x 31323}#
2)))
- (let
((#{m1 31088}#
-
(car #{w 29759}#))
-
(#{s1 31089}#
-
(cdr #{w 29759}#)))
- (if
(null? #{m1 31088}#)
-
(if (null? #{s1 31089}#)
-
#{w2 31087}#
-
(cons (car #{w2 31087}#)
-
(let ((#{m2 31104}#
-
(cdr #{w2 31087}#)))
-
(if (null? #{m2 31104}#)
-
#{s1 31089}#
+ (let
((#{m1 31365}#
+
(car #{w 30028}#))
+
(#{s1 31366}#
+
(cdr #{w 30028}#)))
+ (if
(null? #{m1 31365}#)
+
(if (null? #{s1 31366}#)
+
#{w2 31364}#
+
(cons (car #{w2 31364}#)
+
(let ((#{m2 31381}#
+
(cdr #{w2 31364}#)))
+
(if (null? #{m2 31381}#)
+
#{s1 31366}#
(append
-
#{s1 31089}#
-
#{m2 31104}#)))))
-
(cons (let ((#{m2 31112}#
-
(car #{w2 31087}#)))
-
(if (null? #{m2 31112}#)
-
#{m1 31088}#
+
#{s1 31366}#
+
#{m2 31381}#)))))
+
(cons (let ((#{m2 31389}#
+
(car #{w2 31364}#)))
+
(if (null? #{m2 31389}#)
+
#{m1 31365}#
(append
-
#{m1 31088}#
-
#{m2 31112}#)))
-
(let ((#{m2 31120}#
-
(cdr #{w2 31087}#)))
-
(if (null? #{m2 31120}#)
-
#{s1 31089}#
+
#{m1 31365}#
+
#{m2 31389}#)))
+
(let ((#{m2 31397}#
+
(cdr #{w2 31364}#)))
+
(if (null? #{m2 31397}#)
+
#{s1 31366}#
(append
-
#{s1 31089}#
-
#{m2 31120}#))))))))
- (#{module
31080}#
+
#{s1 31366}#
+
#{m2 31397}#))))))))
+ (#{module
31357}#
(vector-ref
- #{x
31046}#
+ #{x
31323}#
3)))
(vector
'syntax-object
-
#{expression 31078}#
- #{wrap
31079}#
- #{module
31080}#))
- (if (null? #{x
31046}#)
- #{x 31046}#
+
#{expression 31355}#
+ #{wrap
31356}#
+ #{module
31357}#))
+ (if (null? #{x
31323}#)
+ #{x 31323}#
(vector
'syntax-object
- #{x 31046}#
- #{w 29759}#
- #{mod
29761}#))))))
- (cdr #{body 29554}#))))
+ #{x 31323}#
+ #{w 30028}#
+ #{mod
30030}#))))))
+ (cdr #{body 29811}#))))
(begin
- (if (not (#{valid-bound-ids? 4365}#
- #{ids 29555}#))
+ (if (not (#{valid-bound-ids? 4363}#
+ #{ids 29812}#))
(syntax-violation
#f
"invalid or duplicate identifier
in definition"
- #{outer-form 29439}#))
+ #{outer-form 29696}#))
(letrec*
- ((#{loop 31217}#
- (lambda (#{bs 31220}#
- #{er-cache 31221}#
- #{r-cache 31222}#)
- (if (not (null? #{bs 31220}#))
- (let ((#{b 31223}#
- (car #{bs 31220}#)))
- (if (eq? (car #{b 31223}#)
+ ((#{loop 31496}#
+ (lambda (#{bs 31499}#
+ #{er-cache 31500}#
+ #{r-cache 31501}#)
+ (if (not (null? #{bs 31499}#))
+ (let ((#{b 31502}#
+ (car #{bs 31499}#)))
+ (if (eq? (car #{b 31502}#)
'macro)
- (let ((#{er 31225}#
- (car (cdr #{b
31223}#))))
- (let ((#{r-cache 31226}#
- (if (eq? #{er
31225}#
-
#{er-cache 31221}#)
- #{r-cache
31222}#
-
(#{macros-only-env 4339}#
- #{er
31225}#))))
+ (let ((#{er 31504}#
+ (car (cdr #{b
31502}#))))
+ (let ((#{r-cache 31505}#
+ (if (eq? #{er
31504}#
+
#{er-cache 31500}#)
+ #{r-cache
31501}#
+
(#{macros-only-env 4337}#
+ #{er
31504}#))))
(begin
(set-cdr!
- #{b 31223}#
-
(#{eval-local-transformer 4381}#
- (#{chi 4375}#
- (cdr (cdr #{b
31223}#))
- #{r-cache
31226}#
+ #{b 31502}#
+
(#{eval-local-transformer 4379}#
+ (#{chi 4373}#
+ (cdr (cdr #{b
31502}#))
+ #{r-cache
31505}#
'(())
- #{mod 29761}#)
- #{mod 29761}#))
- (#{loop 31217}#
- (cdr #{bs 31220}#)
- #{er 31225}#
- #{r-cache
31226}#))))
- (#{loop 31217}#
- (cdr #{bs 31220}#)
- #{er-cache 31221}#
- #{r-cache 31222}#)))))))
- (#{loop 31217}#
- #{bindings 29560}#
+ #{mod 30030}#)
+ #{mod 30030}#))
+ (#{loop 31496}#
+ (cdr #{bs 31499}#)
+ #{er 31504}#
+ #{r-cache
31505}#))))
+ (#{loop 31496}#
+ (cdr #{bs 31499}#)
+ #{er-cache 31500}#
+ #{r-cache 31501}#)))))))
+ (#{loop 31496}#
+ #{bindings 29817}#
#f
#f))
(set-cdr!
- #{r 29443}#
- (#{extend-env 4337}#
- #{labels 29556}#
- #{bindings 29560}#
- (cdr #{r 29443}#)))
- (#{build-letrec 4327}#
+ #{r 29700}#
+ (#{extend-env 4335}#
+ #{labels 29813}#
+ #{bindings 29817}#
+ (cdr #{r 29700}#)))
+ (#{build-letrec 4325}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids 29557}#))
- (reverse #{vars 29558}#)
- (map (lambda (#{x 31641}#)
- (#{chi 4375}#
- (cdr #{x 31641}#)
- (car #{x 31641}#)
+ #{var-ids 29814}#))
+ (reverse #{vars 29815}#)
+ (map (lambda (#{x 31924}#)
+ (#{chi 4373}#
+ (cdr #{x 31924}#)
+ (car #{x 31924}#)
'(())
- #{mod 29761}#))
- (reverse #{vals 29559}#))
- (#{build-sequence 4324}#
+ #{mod 30030}#))
+ (reverse #{vals 29816}#))
+ (#{build-sequence 4322}#
#f
- (map (lambda (#{x 31781}#)
- (#{chi 4375}#
- (cdr #{x 31781}#)
- (car #{x 31781}#)
+ (map (lambda (#{x 32068}#)
+ (#{chi 4373}#
+ (cdr #{x 32068}#)
+ (car #{x 32068}#)
'(())
- #{mod 29761}#))
- (cons (cons #{er 29562}#
- (let ((#{x 31858}#
+ #{mod 30030}#))
+ (cons (cons #{er 29819}#
+ (let ((#{x 32147}#
(begin
- (if (if
(pair? #{e 29758}#)
-
#{s 29760}#
+ (if (if
(pair? #{e 30027}#)
+
#{s 30029}#
#f)
(set-source-properties!
- #{e
29758}#
- #{s
29760}#))
- #{e
29758}#)))
- (if (if (null?
(car #{w 29759}#))
- (null?
(cdr #{w 29759}#))
+ #{e
30027}#
+ #{s
30029}#))
+ #{e
30027}#)))
+ (if (if (null?
(car #{w 30028}#))
+ (null?
(cdr #{w 30028}#))
#f)
- #{x 31858}#
+ #{x 32147}#
(if (if
(vector?
- #{x
31858}#)
+ #{x
32147}#)
(if (=
(vector-length
-
#{x 31858}#)
+
#{x 32147}#)
4)
(eq?
(vector-ref
-
#{x 31858}#
+
#{x 32147}#
0)
'syntax-object)
#f)
#f)
- (let
((#{expression 31890}#
+ (let
((#{expression 32179}#
(vector-ref
-
#{x 31858}#
+
#{x 32147}#
1))
-
(#{wrap 31891}#
-
(let ((#{w2 31899}#
+
(#{wrap 32180}#
+
(let ((#{w2 32188}#
(vector-ref
-
#{x 31858}#
+
#{x 32147}#
2)))
-
(let ((#{m1 31900}#
-
(car #{w 29759}#))
-
(#{s1 31901}#
-
(cdr #{w 29759}#)))
-
(if (null? #{m1 31900}#)
-
(if (null? #{s1 31901}#)
-
#{w2 31899}#
-
(cons (car #{w2 31899}#)
-
(let ((#{m2 31916}#
-
(cdr #{w2 31899}#)))
-
(if (null? #{m2 31916}#)
-
#{s1 31901}#
+
(let ((#{m1 32189}#
+
(car #{w 30028}#))
+
(#{s1 32190}#
+
(cdr #{w 30028}#)))
+
(if (null? #{m1 32189}#)
+
(if (null? #{s1 32190}#)
+
#{w2 32188}#
+
(cons (car #{w2 32188}#)
+
(let ((#{m2 32205}#
+
(cdr #{w2 32188}#)))
+
(if (null? #{m2 32205}#)
+
#{s1 32190}#
(append
-
#{s1 31901}#
-
#{m2 31916}#)))))
-
(cons (let ((#{m2 31924}#
-
(car #{w2 31899}#)))
-
(if (null? #{m2 31924}#)
-
#{m1 31900}#
+
#{s1 32190}#
+
#{m2 32205}#)))))
+
(cons (let ((#{m2 32213}#
+
(car #{w2 32188}#)))
+
(if (null? #{m2 32213}#)
+
#{m1 32189}#
(append
-
#{m1 31900}#
-
#{m2 31924}#)))
-
(let ((#{m2 31932}#
-
(cdr #{w2 31899}#)))
-
(if (null? #{m2 31932}#)
-
#{s1 31901}#
+
#{m1 32189}#
+
#{m2 32213}#)))
+
(let ((#{m2 32221}#
+
(cdr #{w2 32188}#)))
+
(if (null? #{m2 32221}#)
+
#{s1 32190}#
(append
-
#{s1 31901}#
-
#{m2 31932}#))))))))
-
(#{module 31892}#
+
#{s1 32190}#
+
#{m2 32221}#))))))))
+
(#{module 32181}#
(vector-ref
-
#{x 31858}#
+
#{x 32147}#
3)))
(vector
'syntax-object
-
#{expression 31890}#
- #{wrap
31891}#
-
#{module 31892}#))
- (if (null?
#{x 31858}#)
- #{x
31858}#
+
#{expression 32179}#
+ #{wrap
32180}#
+
#{module 32181}#))
+ (if (null?
#{x 32147}#)
+ #{x
32147}#
(vector
'syntax-object
- #{x
31858}#
- #{w
29759}#
- #{mod
29761}#))))))
- (cdr #{body
29554}#))))))))))))))))))
- (#{parse 29446}#
- (map (lambda (#{x 29449}#)
- (cons #{r 29443}#
- (if (if (null? (car #{w 29445}#))
- (null? (cdr #{w 29445}#))
+ #{x
32147}#
+ #{w
30028}#
+ #{mod
30030}#))))))
+ (cdr #{body
29811}#))))))))))))))))))
+ (#{parse 29703}#
+ (map (lambda (#{x 29706}#)
+ (cons #{r 29700}#
+ (if (if (null? (car #{w 29702}#))
+ (null? (cdr #{w 29702}#))
#f)
- #{x 29449}#
- (if (if (vector? #{x 29449}#)
- (if (= (vector-length #{x 29449}#) 4)
- (eq? (vector-ref #{x 29449}# 0)
+ #{x 29706}#
+ (if (if (vector? #{x 29706}#)
+ (if (= (vector-length #{x 29706}#) 4)
+ (eq? (vector-ref #{x 29706}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 29485}#
- (vector-ref #{x 29449}# 1))
- (#{wrap 29486}#
- (let ((#{w2 29496}#
- (vector-ref #{x 29449}# 2)))
- (let ((#{m1 29497}#
- (car #{w 29445}#))
- (#{s1 29498}#
- (cdr #{w 29445}#)))
- (if (null? #{m1 29497}#)
- (if (null? #{s1 29498}#)
- #{w2 29496}#
- (cons (car #{w2 29496}#)
- (let ((#{m2 29515}#
- (cdr #{w2
29496}#)))
- (if (null? #{m2
29515}#)
- #{s1 29498}#
+ (let ((#{expression 29742}#
+ (vector-ref #{x 29706}# 1))
+ (#{wrap 29743}#
+ (let ((#{w2 29753}#
+ (vector-ref #{x 29706}# 2)))
+ (let ((#{m1 29754}#
+ (car #{w 29702}#))
+ (#{s1 29755}#
+ (cdr #{w 29702}#)))
+ (if (null? #{m1 29754}#)
+ (if (null? #{s1 29755}#)
+ #{w2 29753}#
+ (cons (car #{w2 29753}#)
+ (let ((#{m2 29772}#
+ (cdr #{w2
29753}#)))
+ (if (null? #{m2
29772}#)
+ #{s1 29755}#
(append
- #{s1 29498}#
- #{m2 29515}#)))))
- (cons (let ((#{m2 29523}#
- (car #{w2
29496}#)))
- (if (null? #{m2
29523}#)
- #{m1 29497}#
+ #{s1 29755}#
+ #{m2 29772}#)))))
+ (cons (let ((#{m2 29780}#
+ (car #{w2
29753}#)))
+ (if (null? #{m2
29780}#)
+ #{m1 29754}#
(append
- #{m1 29497}#
- #{m2 29523}#)))
- (let ((#{m2 29531}#
- (cdr #{w2
29496}#)))
- (if (null? #{m2
29531}#)
- #{s1 29498}#
+ #{m1 29754}#
+ #{m2 29780}#)))
+ (let ((#{m2 29788}#
+ (cdr #{w2
29753}#)))
+ (if (null? #{m2
29788}#)
+ #{s1 29755}#
(append
- #{s1 29498}#
- #{m2
29531}#))))))))
- (#{module 29487}#
- (vector-ref #{x 29449}# 3)))
+ #{s1 29755}#
+ #{m2
29788}#))))))))
+ (#{module 29744}#
+ (vector-ref #{x 29706}# 3)))
(vector
'syntax-object
- #{expression 29485}#
- #{wrap 29486}#
- #{module 29487}#))
- (if (null? #{x 29449}#)
- #{x 29449}#
+ #{expression 29742}#
+ #{wrap 29743}#
+ #{module 29744}#))
+ (if (null? #{x 29706}#)
+ #{x 29706}#
(vector
'syntax-object
- #{x 29449}#
- #{w 29445}#
- #{mod 29442}#))))))
- #{body 29438}#)
+ #{x 29706}#
+ #{w 29702}#
+ #{mod 29699}#))))))
+ #{body 29695}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-local-syntax 4380}#
- (lambda (#{rec? 31947}#
- #{e 31948}#
- #{r 31949}#
- #{w 31950}#
- #{s 31951}#
- #{mod 31952}#
- #{k 31953}#)
- (let ((#{tmp 31955}#
+ (#{chi-local-syntax 4378}#
+ (lambda (#{rec? 32236}#
+ #{e 32237}#
+ #{r 32238}#
+ #{w 32239}#
+ #{s 32240}#
+ #{mod 32241}#
+ #{k 32242}#)
+ (let ((#{tmp 32244}#
($sc-dispatch
- #{e 31948}#
+ #{e 32237}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 31955}#
+ (if #{tmp 32244}#
(@apply
- (lambda (#{id 31959}#
- #{val 31960}#
- #{e1 31961}#
- #{e2 31962}#)
- (if (not (#{valid-bound-ids? 4365}# #{id 31959}#))
+ (lambda (#{id 32248}#
+ #{val 32249}#
+ #{e1 32250}#
+ #{e2 32251}#)
+ (if (not (#{valid-bound-ids? 4363}# #{id 32248}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e 31948}#)
- (let ((#{labels 32057}#
- (#{gen-labels 4346}# #{id 31959}#)))
- (let ((#{new-w 32058}#
- (#{make-binding-wrap 4357}#
- #{id 31959}#
- #{labels 32057}#
- #{w 31950}#)))
- (#{k 31953}#
- (cons #{e1 31961}# #{e2 31962}#)
- (#{extend-env 4337}#
- #{labels 32057}#
- (let ((#{trans-r 32098}#
- (#{macros-only-env 4339}# #{r 31949}#)))
+ #{e 32237}#)
+ (let ((#{labels 32348}#
+ (#{gen-labels 4344}# #{id 32248}#)))
+ (let ((#{new-w 32349}#
+ (#{make-binding-wrap 4355}#
+ #{id 32248}#
+ #{labels 32348}#
+ #{w 32239}#)))
+ (#{k 32242}#
+ (cons #{e1 32250}# #{e2 32251}#)
+ (#{extend-env 4335}#
+ #{labels 32348}#
+ (let ((#{trans-r 32389}#
+ (#{macros-only-env 4337}# #{r 32238}#)))
(begin
- (if #{rec? 31947}# (if #f #f))
- (map (lambda (#{x 32099}#)
+ (if #{rec? 32236}# (if #f #f))
+ (map (lambda (#{x 32390}#)
(cons 'macro
- (#{eval-local-transformer 4381}#
- (#{chi 4375}#
- #{x 32099}#
- #{trans-r 32098}#
- (if #{rec? 31947}#
- #{new-w 32058}#
- #{w 31950}#)
- #{mod 31952}#)
- #{mod 31952}#)))
- #{val 31960}#)))
- #{r 31949}#)
- #{new-w 32058}#
- #{s 31951}#
- #{mod 31952}#)))))
- #{tmp 31955}#)
+ (#{eval-local-transformer 4379}#
+ (#{chi 4373}#
+ #{x 32390}#
+ #{trans-r 32389}#
+ (if #{rec? 32236}#
+ #{new-w 32349}#
+ #{w 32239}#)
+ #{mod 32241}#)
+ #{mod 32241}#)))
+ #{val 32249}#)))
+ #{r 32238}#)
+ #{new-w 32349}#
+ #{s 32240}#
+ #{mod 32241}#)))))
+ #{tmp 32244}#)
(syntax-violation
#f
"bad local syntax definition"
- (let ((#{x 32422}#
+ (let ((#{x 32715}#
(begin
- (if (if (pair? #{e 31948}#) #{s 31951}# #f)
- (set-source-properties! #{e 31948}# #{s 31951}#))
- #{e 31948}#)))
- (if (if (null? (car #{w 31950}#))
- (null? (cdr #{w 31950}#))
+ (if (if (pair? #{e 32237}#) #{s 32240}# #f)
+ (set-source-properties! #{e 32237}# #{s 32240}#))
+ #{e 32237}#)))
+ (if (if (null? (car #{w 32239}#))
+ (null? (cdr #{w 32239}#))
#f)
- #{x 32422}#
- (if (if (vector? #{x 32422}#)
- (if (= (vector-length #{x 32422}#) 4)
- (eq? (vector-ref #{x 32422}# 0) 'syntax-object)
+ #{x 32715}#
+ (if (if (vector? #{x 32715}#)
+ (if (= (vector-length #{x 32715}#) 4)
+ (eq? (vector-ref #{x 32715}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 32454}# (vector-ref #{x 32422}# 1))
- (#{wrap 32455}#
- (let ((#{w2 32463}# (vector-ref #{x 32422}# 2)))
- (let ((#{m1 32464}# (car #{w 31950}#))
- (#{s1 32465}# (cdr #{w 31950}#)))
- (if (null? #{m1 32464}#)
- (if (null? #{s1 32465}#)
- #{w2 32463}#
- (cons (car #{w2 32463}#)
- (let ((#{m2 32480}#
- (cdr #{w2 32463}#)))
- (if (null? #{m2 32480}#)
- #{s1 32465}#
+ (let ((#{expression 32747}# (vector-ref #{x 32715}# 1))
+ (#{wrap 32748}#
+ (let ((#{w2 32756}# (vector-ref #{x 32715}# 2)))
+ (let ((#{m1 32757}# (car #{w 32239}#))
+ (#{s1 32758}# (cdr #{w 32239}#)))
+ (if (null? #{m1 32757}#)
+ (if (null? #{s1 32758}#)
+ #{w2 32756}#
+ (cons (car #{w2 32756}#)
+ (let ((#{m2 32773}#
+ (cdr #{w2 32756}#)))
+ (if (null? #{m2 32773}#)
+ #{s1 32758}#
(append
- #{s1 32465}#
- #{m2 32480}#)))))
- (cons (let ((#{m2 32488}# (car #{w2 32463}#)))
- (if (null? #{m2 32488}#)
- #{m1 32464}#
- (append #{m1 32464}# #{m2 32488}#)))
- (let ((#{m2 32496}# (cdr #{w2 32463}#)))
- (if (null? #{m2 32496}#)
- #{s1 32465}#
+ #{s1 32758}#
+ #{m2 32773}#)))))
+ (cons (let ((#{m2 32781}# (car #{w2 32756}#)))
+ (if (null? #{m2 32781}#)
+ #{m1 32757}#
+ (append #{m1 32757}# #{m2 32781}#)))
+ (let ((#{m2 32789}# (cdr #{w2 32756}#)))
+ (if (null? #{m2 32789}#)
+ #{s1 32758}#
(append
- #{s1 32465}#
- #{m2 32496}#))))))))
- (#{module 32456}# (vector-ref #{x 32422}# 3)))
+ #{s1 32758}#
+ #{m2 32789}#))))))))
+ (#{module 32749}# (vector-ref #{x 32715}# 3)))
(vector
'syntax-object
- #{expression 32454}#
- #{wrap 32455}#
- #{module 32456}#))
- (if (null? #{x 32422}#)
- #{x 32422}#
+ #{expression 32747}#
+ #{wrap 32748}#
+ #{module 32749}#))
+ (if (null? #{x 32715}#)
+ #{x 32715}#
(vector
'syntax-object
- #{x 32422}#
- #{w 31950}#
- #{mod 31952}#))))))))))
- (#{eval-local-transformer 4381}#
- (lambda (#{expanded 32514}# #{mod 32515}#)
- (let ((#{p 32516}# (primitive-eval #{expanded 32514}#)))
- (if (procedure? #{p 32516}#)
- #{p 32516}#
+ #{x 32715}#
+ #{w 32239}#
+ #{mod 32241}#))))))))))
+ (#{eval-local-transformer 4379}#
+ (lambda (#{expanded 32807}# #{mod 32808}#)
+ (let ((#{p 32809}# (primitive-eval #{expanded 32807}#)))
+ (if (procedure? #{p 32809}#)
+ #{p 32809}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p 32516}#)))))
- (#{ellipsis? 4383}#
- (lambda (#{x 5824}#)
- (if (if (if (vector? #{x 5824}#)
- (if (= (vector-length #{x 5824}#) 4)
- (eq? (vector-ref #{x 5824}# 0) 'syntax-object)
+ #{p 32809}#)))))
+ (#{ellipsis? 4381}#
+ (lambda (#{x 5832}#)
+ (if (if (if (vector? #{x 5832}#)
+ (if (= (vector-length #{x 5832}#) 4)
+ (eq? (vector-ref #{x 5832}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 5824}# 1))
+ (symbol? (vector-ref #{x 5832}# 1))
#f)
- (#{free-id=? 4363}#
- #{x 5824}#
+ (#{free-id=? 4361}#
+ #{x 5832}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2263"))
+ #(ribcage #(x) #((top)) #("i2261"))
#(ribcage
(lambda-var-list
gen-var
@@ -6534,350 +6517,350 @@
("i46" "i45" "i44")))
(hygiene guile)))
#f)))
- (#{lambda-formals 4384}#
- (lambda (#{orig-args 32521}#)
+ (#{lambda-formals 4382}#
+ (lambda (#{orig-args 32814}#)
(letrec*
- ((#{req 32522}#
- (lambda (#{args 32526}# #{rreq 32527}#)
- (let ((#{tmp 32529}# ($sc-dispatch #{args 32526}# '())))
- (if #{tmp 32529}#
+ ((#{req 32815}#
+ (lambda (#{args 32819}# #{rreq 32820}#)
+ (let ((#{tmp 32822}# ($sc-dispatch #{args 32819}# '())))
+ (if #{tmp 32822}#
(@apply
(lambda ()
- (#{check 32523}# (reverse #{rreq 32527}#) #f))
- #{tmp 32529}#)
- (let ((#{tmp 32645}#
- ($sc-dispatch #{args 32526}# '(any . any))))
- (if (if #{tmp 32645}#
+ (#{check 32816}# (reverse #{rreq 32820}#) #f))
+ #{tmp 32822}#)
+ (let ((#{tmp 32938}#
+ ($sc-dispatch #{args 32819}# '(any . any))))
+ (if (if #{tmp 32938}#
(@apply
- (lambda (#{a 32649}# #{b 32650}#)
- (if (symbol? #{a 32649}#)
+ (lambda (#{a 32942}# #{b 32943}#)
+ (if (symbol? #{a 32942}#)
#t
- (if (if (vector? #{a 32649}#)
- (if (= (vector-length #{a 32649}#) 4)
- (eq? (vector-ref #{a 32649}# 0)
+ (if (if (vector? #{a 32942}#)
+ (if (= (vector-length #{a 32942}#) 4)
+ (eq? (vector-ref #{a 32942}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 32649}# 1))
+ (symbol? (vector-ref #{a 32942}# 1))
#f)))
- #{tmp 32645}#)
+ #{tmp 32938}#)
#f)
(@apply
- (lambda (#{a 32677}# #{b 32678}#)
- (#{req 32522}#
- #{b 32678}#
- (cons #{a 32677}# #{rreq 32527}#)))
- #{tmp 32645}#)
- (let ((#{tmp 32679}# (list #{args 32526}#)))
+ (lambda (#{a 32970}# #{b 32971}#)
+ (#{req 32815}#
+ #{b 32971}#
+ (cons #{a 32970}# #{rreq 32820}#)))
+ #{tmp 32938}#)
+ (let ((#{tmp 32972}# (list #{args 32819}#)))
(if (@apply
- (lambda (#{r 32681}#)
- (if (symbol? #{r 32681}#)
+ (lambda (#{r 32974}#)
+ (if (symbol? #{r 32974}#)
#t
- (if (if (vector? #{r 32681}#)
- (if (= (vector-length #{r 32681}#) 4)
- (eq? (vector-ref #{r 32681}# 0)
+ (if (if (vector? #{r 32974}#)
+ (if (= (vector-length #{r 32974}#) 4)
+ (eq? (vector-ref #{r 32974}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 32681}# 1))
+ (symbol? (vector-ref #{r 32974}# 1))
#f)))
- #{tmp 32679}#)
+ #{tmp 32972}#)
(@apply
- (lambda (#{r 32711}#)
- (#{check 32523}#
- (reverse #{rreq 32527}#)
- #{r 32711}#))
- #{tmp 32679}#)
+ (lambda (#{r 33004}#)
+ (#{check 32816}#
+ (reverse #{rreq 32820}#)
+ #{r 33004}#))
+ #{tmp 32972}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args 32521}#
- #{args 32526}#)))))))))
- (#{check 32523}#
- (lambda (#{req 32835}# #{rest 32836}#)
- (if (#{distinct-bound-ids? 4366}#
- (if #{rest 32836}#
- (cons #{rest 32836}# #{req 32835}#)
- #{req 32835}#))
- (values #{req 32835}# #f #{rest 32836}# #f)
+ #{orig-args 32814}#
+ #{args 32819}#)))))))))
+ (#{check 32816}#
+ (lambda (#{req 33128}# #{rest 33129}#)
+ (if (#{distinct-bound-ids? 4364}#
+ (if #{rest 33129}#
+ (cons #{rest 33129}# #{req 33128}#)
+ #{req 33128}#))
+ (values #{req 33128}# #f #{rest 33129}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args 32521}#)))))
- (#{req 32522}# #{orig-args 32521}# '()))))
- (#{chi-simple-lambda 4385}#
- (lambda (#{e 32945}#
- #{r 32946}#
- #{w 32947}#
- #{s 32948}#
- #{mod 32949}#
- #{req 32950}#
- #{rest 32951}#
- #{meta 32952}#
- #{body 32953}#)
- (let ((#{ids 32954}#
- (if #{rest 32951}#
- (append #{req 32950}# (list #{rest 32951}#))
- #{req 32950}#)))
- (let ((#{vars 32955}#
- (map #{gen-var 4389}# #{ids 32954}#)))
- (let ((#{labels 32956}#
- (#{gen-labels 4346}# #{ids 32954}#)))
- (#{build-simple-lambda 4318}#
- #{s 32948}#
- (map syntax->datum #{req 32950}#)
- (if #{rest 32951}#
- (syntax->datum #{rest 32951}#)
+ #{orig-args 32814}#)))))
+ (#{req 32815}# #{orig-args 32814}# '()))))
+ (#{chi-simple-lambda 4383}#
+ (lambda (#{e 33238}#
+ #{r 33239}#
+ #{w 33240}#
+ #{s 33241}#
+ #{mod 33242}#
+ #{req 33243}#
+ #{rest 33244}#
+ #{meta 33245}#
+ #{body 33246}#)
+ (let ((#{ids 33247}#
+ (if #{rest 33244}#
+ (append #{req 33243}# (list #{rest 33244}#))
+ #{req 33243}#)))
+ (let ((#{vars 33248}#
+ (map #{gen-var 4387}# #{ids 33247}#)))
+ (let ((#{labels 33249}#
+ (#{gen-labels 4344}# #{ids 33247}#)))
+ (#{build-simple-lambda 4316}#
+ #{s 33241}#
+ (map syntax->datum #{req 33243}#)
+ (if #{rest 33244}#
+ (syntax->datum #{rest 33244}#)
#f)
- #{vars 32955}#
- #{meta 32952}#
- (#{chi-body 4379}#
- #{body 32953}#
- (let ((#{x 33145}#
+ #{vars 33248}#
+ #{meta 33245}#
+ (#{chi-body 4377}#
+ #{body 33246}#
+ (let ((#{x 33438}#
(begin
- (if (if (pair? #{e 32945}#) #{s 32948}# #f)
- (set-source-properties! #{e 32945}# #{s 32948}#))
- #{e 32945}#)))
- (if (if (null? (car #{w 32947}#))
- (null? (cdr #{w 32947}#))
+ (if (if (pair? #{e 33238}#) #{s 33241}# #f)
+ (set-source-properties! #{e 33238}# #{s 33241}#))
+ #{e 33238}#)))
+ (if (if (null? (car #{w 33240}#))
+ (null? (cdr #{w 33240}#))
#f)
- #{x 33145}#
- (if (if (vector? #{x 33145}#)
- (if (= (vector-length #{x 33145}#) 4)
- (eq? (vector-ref #{x 33145}# 0) 'syntax-object)
+ #{x 33438}#
+ (if (if (vector? #{x 33438}#)
+ (if (= (vector-length #{x 33438}#) 4)
+ (eq? (vector-ref #{x 33438}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 33177}# (vector-ref #{x 33145}# 1))
- (#{wrap 33178}#
- (let ((#{w2 33186}# (vector-ref #{x 33145}# 2)))
- (let ((#{m1 33187}# (car #{w 32947}#))
- (#{s1 33188}# (cdr #{w 32947}#)))
- (if (null? #{m1 33187}#)
- (if (null? #{s1 33188}#)
- #{w2 33186}#
- (cons (car #{w2 33186}#)
- (let ((#{m2 33203}#
- (cdr #{w2 33186}#)))
- (if (null? #{m2 33203}#)
- #{s1 33188}#
+ (let ((#{expression 33470}# (vector-ref #{x 33438}# 1))
+ (#{wrap 33471}#
+ (let ((#{w2 33479}# (vector-ref #{x 33438}# 2)))
+ (let ((#{m1 33480}# (car #{w 33240}#))
+ (#{s1 33481}# (cdr #{w 33240}#)))
+ (if (null? #{m1 33480}#)
+ (if (null? #{s1 33481}#)
+ #{w2 33479}#
+ (cons (car #{w2 33479}#)
+ (let ((#{m2 33496}#
+ (cdr #{w2 33479}#)))
+ (if (null? #{m2 33496}#)
+ #{s1 33481}#
(append
- #{s1 33188}#
- #{m2 33203}#)))))
- (cons (let ((#{m2 33211}#
- (car #{w2 33186}#)))
- (if (null? #{m2 33211}#)
- #{m1 33187}#
+ #{s1 33481}#
+ #{m2 33496}#)))))
+ (cons (let ((#{m2 33504}#
+ (car #{w2 33479}#)))
+ (if (null? #{m2 33504}#)
+ #{m1 33480}#
(append
- #{m1 33187}#
- #{m2 33211}#)))
- (let ((#{m2 33219}#
- (cdr #{w2 33186}#)))
- (if (null? #{m2 33219}#)
- #{s1 33188}#
+ #{m1 33480}#
+ #{m2 33504}#)))
+ (let ((#{m2 33512}#
+ (cdr #{w2 33479}#)))
+ (if (null? #{m2 33512}#)
+ #{s1 33481}#
(append
- #{s1 33188}#
- #{m2 33219}#))))))))
- (#{module 33179}# (vector-ref #{x 33145}# 3)))
+ #{s1 33481}#
+ #{m2 33512}#))))))))
+ (#{module 33472}# (vector-ref #{x 33438}# 3)))
(vector
'syntax-object
- #{expression 33177}#
- #{wrap 33178}#
- #{module 33179}#))
- (if (null? #{x 33145}#)
- #{x 33145}#
+ #{expression 33470}#
+ #{wrap 33471}#
+ #{module 33472}#))
+ (if (null? #{x 33438}#)
+ #{x 33438}#
(vector
'syntax-object
- #{x 33145}#
- #{w 32947}#
- #{mod 32949}#)))))
- (#{extend-var-env 4338}#
- #{labels 32956}#
- #{vars 32955}#
- #{r 32946}#)
- (#{make-binding-wrap 4357}#
- #{ids 32954}#
- #{labels 32956}#
- #{w 32947}#)
- #{mod 32949}#)))))))
- (#{lambda*-formals 4386}#
- (lambda (#{orig-args 33450}#)
+ #{x 33438}#
+ #{w 33240}#
+ #{mod 33242}#)))))
+ (#{extend-var-env 4336}#
+ #{labels 33249}#
+ #{vars 33248}#
+ #{r 33239}#)
+ (#{make-binding-wrap 4355}#
+ #{ids 33247}#
+ #{labels 33249}#
+ #{w 33240}#)
+ #{mod 33242}#)))))))
+ (#{lambda*-formals 4384}#
+ (lambda (#{orig-args 33743}#)
(letrec*
- ((#{req 33451}#
- (lambda (#{args 33458}# #{rreq 33459}#)
- (let ((#{tmp 33461}# ($sc-dispatch #{args 33458}# '())))
- (if #{tmp 33461}#
+ ((#{req 33744}#
+ (lambda (#{args 33751}# #{rreq 33752}#)
+ (let ((#{tmp 33754}# ($sc-dispatch #{args 33751}# '())))
+ (if #{tmp 33754}#
(@apply
(lambda ()
- (#{check 33455}#
- (reverse #{rreq 33459}#)
+ (#{check 33748}#
+ (reverse #{rreq 33752}#)
'()
#f
'()))
- #{tmp 33461}#)
- (let ((#{tmp 33580}#
- ($sc-dispatch #{args 33458}# '(any . any))))
- (if (if #{tmp 33580}#
+ #{tmp 33754}#)
+ (let ((#{tmp 33873}#
+ ($sc-dispatch #{args 33751}# '(any . any))))
+ (if (if #{tmp 33873}#
(@apply
- (lambda (#{a 33584}# #{b 33585}#)
- (if (symbol? #{a 33584}#)
+ (lambda (#{a 33877}# #{b 33878}#)
+ (if (symbol? #{a 33877}#)
#t
- (if (if (vector? #{a 33584}#)
- (if (= (vector-length #{a 33584}#) 4)
- (eq? (vector-ref #{a 33584}# 0)
+ (if (if (vector? #{a 33877}#)
+ (if (= (vector-length #{a 33877}#) 4)
+ (eq? (vector-ref #{a 33877}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 33584}# 1))
+ (symbol? (vector-ref #{a 33877}# 1))
#f)))
- #{tmp 33580}#)
+ #{tmp 33873}#)
#f)
(@apply
- (lambda (#{a 33612}# #{b 33613}#)
- (#{req 33451}#
- #{b 33613}#
- (cons #{a 33612}# #{rreq 33459}#)))
- #{tmp 33580}#)
- (let ((#{tmp 33614}#
- ($sc-dispatch #{args 33458}# '(any . any))))
- (if (if #{tmp 33614}#
+ (lambda (#{a 33905}# #{b 33906}#)
+ (#{req 33744}#
+ #{b 33906}#
+ (cons #{a 33905}# #{rreq 33752}#)))
+ #{tmp 33873}#)
+ (let ((#{tmp 33907}#
+ ($sc-dispatch #{args 33751}# '(any . any))))
+ (if (if #{tmp 33907}#
(@apply
- (lambda (#{a 33618}# #{b 33619}#)
- (eq? (syntax->datum #{a 33618}#) #:optional))
- #{tmp 33614}#)
+ (lambda (#{a 33911}# #{b 33912}#)
+ (eq? (syntax->datum #{a 33911}#) #:optional))
+ #{tmp 33907}#)
#f)
(@apply
- (lambda (#{a 33620}# #{b 33621}#)
- (#{opt 33452}#
- #{b 33621}#
- (reverse #{rreq 33459}#)
+ (lambda (#{a 33913}# #{b 33914}#)
+ (#{opt 33745}#
+ #{b 33914}#
+ (reverse #{rreq 33752}#)
'()))
- #{tmp 33614}#)
- (let ((#{tmp 33624}#
- ($sc-dispatch #{args 33458}# '(any . any))))
- (if (if #{tmp 33624}#
+ #{tmp 33907}#)
+ (let ((#{tmp 33917}#
+ ($sc-dispatch #{args 33751}# '(any . any))))
+ (if (if #{tmp 33917}#
(@apply
- (lambda (#{a 33628}# #{b 33629}#)
- (eq? (syntax->datum #{a 33628}#) #:key))
- #{tmp 33624}#)
+ (lambda (#{a 33921}# #{b 33922}#)
+ (eq? (syntax->datum #{a 33921}#) #:key))
+ #{tmp 33917}#)
#f)
(@apply
- (lambda (#{a 33630}# #{b 33631}#)
- (#{key 33453}#
- #{b 33631}#
- (reverse #{rreq 33459}#)
+ (lambda (#{a 33923}# #{b 33924}#)
+ (#{key 33746}#
+ #{b 33924}#
+ (reverse #{rreq 33752}#)
'()
'()))
- #{tmp 33624}#)
- (let ((#{tmp 33634}#
+ #{tmp 33917}#)
+ (let ((#{tmp 33927}#
($sc-dispatch
- #{args 33458}#
+ #{args 33751}#
'(any any))))
- (if (if #{tmp 33634}#
+ (if (if #{tmp 33927}#
(@apply
- (lambda (#{a 33638}# #{b 33639}#)
- (eq? (syntax->datum #{a 33638}#)
+ (lambda (#{a 33931}# #{b 33932}#)
+ (eq? (syntax->datum #{a 33931}#)
#:rest))
- #{tmp 33634}#)
+ #{tmp 33927}#)
#f)
(@apply
- (lambda (#{a 33640}# #{b 33641}#)
- (#{rest 33454}#
- #{b 33641}#
- (reverse #{rreq 33459}#)
+ (lambda (#{a 33933}# #{b 33934}#)
+ (#{rest 33747}#
+ #{b 33934}#
+ (reverse #{rreq 33752}#)
'()
'()))
- #{tmp 33634}#)
- (let ((#{tmp 33644}# (list #{args 33458}#)))
+ #{tmp 33927}#)
+ (let ((#{tmp 33937}# (list #{args 33751}#)))
(if (@apply
- (lambda (#{r 33646}#)
- (if (symbol? #{r 33646}#)
+ (lambda (#{r 33939}#)
+ (if (symbol? #{r 33939}#)
#t
- (if (if (vector? #{r 33646}#)
+ (if (if (vector? #{r 33939}#)
(if (= (vector-length
- #{r 33646}#)
+ #{r 33939}#)
4)
(eq? (vector-ref
- #{r 33646}#
+ #{r 33939}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 33646}# 1))
+ (vector-ref #{r 33939}# 1))
#f)))
- #{tmp 33644}#)
+ #{tmp 33937}#)
(@apply
- (lambda (#{r 33676}#)
- (#{rest 33454}#
- #{r 33676}#
- (reverse #{rreq 33459}#)
+ (lambda (#{r 33969}#)
+ (#{rest 33747}#
+ #{r 33969}#
+ (reverse #{rreq 33752}#)
'()
'()))
- #{tmp 33644}#)
+ #{tmp 33937}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args 33450}#
- #{args 33458}#)))))))))))))))
- (#{opt 33452}#
- (lambda (#{args 33695}# #{req 33696}# #{ropt 33697}#)
- (let ((#{tmp 33699}# ($sc-dispatch #{args 33695}# '())))
- (if #{tmp 33699}#
+ #{orig-args 33743}#
+ #{args 33751}#)))))))))))))))
+ (#{opt 33745}#
+ (lambda (#{args 33988}# #{req 33989}# #{ropt 33990}#)
+ (let ((#{tmp 33992}# ($sc-dispatch #{args 33988}# '())))
+ (if #{tmp 33992}#
(@apply
(lambda ()
- (#{check 33455}#
- #{req 33696}#
- (reverse #{ropt 33697}#)
+ (#{check 33748}#
+ #{req 33989}#
+ (reverse #{ropt 33990}#)
#f
'()))
- #{tmp 33699}#)
- (let ((#{tmp 33820}#
- ($sc-dispatch #{args 33695}# '(any . any))))
- (if (if #{tmp 33820}#
+ #{tmp 33992}#)
+ (let ((#{tmp 34113}#
+ ($sc-dispatch #{args 33988}# '(any . any))))
+ (if (if #{tmp 34113}#
(@apply
- (lambda (#{a 33824}# #{b 33825}#)
- (if (symbol? #{a 33824}#)
+ (lambda (#{a 34117}# #{b 34118}#)
+ (if (symbol? #{a 34117}#)
#t
- (if (if (vector? #{a 33824}#)
- (if (= (vector-length #{a 33824}#) 4)
- (eq? (vector-ref #{a 33824}# 0)
+ (if (if (vector? #{a 34117}#)
+ (if (= (vector-length #{a 34117}#) 4)
+ (eq? (vector-ref #{a 34117}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 33824}# 1))
+ (symbol? (vector-ref #{a 34117}# 1))
#f)))
- #{tmp 33820}#)
+ #{tmp 34113}#)
#f)
(@apply
- (lambda (#{a 33852}# #{b 33853}#)
- (#{opt 33452}#
- #{b 33853}#
- #{req 33696}#
- (cons (cons #{a 33852}#
+ (lambda (#{a 34145}# #{b 34146}#)
+ (#{opt 33745}#
+ #{b 34146}#
+ #{req 33989}#
+ (cons (cons #{a 34145}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("i2402" "i2403"))
+ #("i2400" "i2401"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("i2392" "i2393" "i2394"))
+ #("i2390" "i2391" "i2392"))
#(ribcage
(check rest key opt req)
((top) (top) (top) (top) (top))
- ("i2338"
- "i2336"
+ ("i2336"
"i2334"
"i2332"
- "i2330"))
+ "i2330"
+ "i2328"))
#(ribcage
#(orig-args)
#((top))
- #("i2329"))
+ #("i2327"))
#(ribcage
(lambda-var-list
gen-var
@@ -7300,147 +7283,147 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))))
- #{ropt 33697}#)))
- #{tmp 33820}#)
- (let ((#{tmp 33854}#
+ #{ropt 33990}#)))
+ #{tmp 34113}#)
+ (let ((#{tmp 34147}#
($sc-dispatch
- #{args 33695}#
+ #{args 33988}#
'((any any) . any))))
- (if (if #{tmp 33854}#
+ (if (if #{tmp 34147}#
(@apply
- (lambda (#{a 33858}#
- #{init 33859}#
- #{b 33860}#)
- (if (symbol? #{a 33858}#)
+ (lambda (#{a 34151}#
+ #{init 34152}#
+ #{b 34153}#)
+ (if (symbol? #{a 34151}#)
#t
- (if (if (vector? #{a 33858}#)
- (if (= (vector-length #{a 33858}#) 4)
- (eq? (vector-ref #{a 33858}# 0)
+ (if (if (vector? #{a 34151}#)
+ (if (= (vector-length #{a 34151}#) 4)
+ (eq? (vector-ref #{a 34151}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 33858}# 1))
+ (symbol? (vector-ref #{a 34151}# 1))
#f)))
- #{tmp 33854}#)
+ #{tmp 34147}#)
#f)
(@apply
- (lambda (#{a 33887}# #{init 33888}# #{b 33889}#)
- (#{opt 33452}#
- #{b 33889}#
- #{req 33696}#
- (cons (list #{a 33887}# #{init 33888}#)
- #{ropt 33697}#)))
- #{tmp 33854}#)
- (let ((#{tmp 33890}#
- ($sc-dispatch #{args 33695}# '(any . any))))
- (if (if #{tmp 33890}#
+ (lambda (#{a 34180}# #{init 34181}# #{b 34182}#)
+ (#{opt 33745}#
+ #{b 34182}#
+ #{req 33989}#
+ (cons (list #{a 34180}# #{init 34181}#)
+ #{ropt 33990}#)))
+ #{tmp 34147}#)
+ (let ((#{tmp 34183}#
+ ($sc-dispatch #{args 33988}# '(any . any))))
+ (if (if #{tmp 34183}#
(@apply
- (lambda (#{a 33894}# #{b 33895}#)
- (eq? (syntax->datum #{a 33894}#) #:key))
- #{tmp 33890}#)
+ (lambda (#{a 34187}# #{b 34188}#)
+ (eq? (syntax->datum #{a 34187}#) #:key))
+ #{tmp 34183}#)
#f)
(@apply
- (lambda (#{a 33896}# #{b 33897}#)
- (#{key 33453}#
- #{b 33897}#
- #{req 33696}#
- (reverse #{ropt 33697}#)
+ (lambda (#{a 34189}# #{b 34190}#)
+ (#{key 33746}#
+ #{b 34190}#
+ #{req 33989}#
+ (reverse #{ropt 33990}#)
'()))
- #{tmp 33890}#)
- (let ((#{tmp 33900}#
+ #{tmp 34183}#)
+ (let ((#{tmp 34193}#
($sc-dispatch
- #{args 33695}#
+ #{args 33988}#
'(any any))))
- (if (if #{tmp 33900}#
+ (if (if #{tmp 34193}#
(@apply
- (lambda (#{a 33904}# #{b 33905}#)
- (eq? (syntax->datum #{a 33904}#)
+ (lambda (#{a 34197}# #{b 34198}#)
+ (eq? (syntax->datum #{a 34197}#)
#:rest))
- #{tmp 33900}#)
+ #{tmp 34193}#)
#f)
(@apply
- (lambda (#{a 33906}# #{b 33907}#)
- (#{rest 33454}#
- #{b 33907}#
- #{req 33696}#
- (reverse #{ropt 33697}#)
+ (lambda (#{a 34199}# #{b 34200}#)
+ (#{rest 33747}#
+ #{b 34200}#
+ #{req 33989}#
+ (reverse #{ropt 33990}#)
'()))
- #{tmp 33900}#)
- (let ((#{tmp 33910}# (list #{args 33695}#)))
+ #{tmp 34193}#)
+ (let ((#{tmp 34203}# (list #{args 33988}#)))
(if (@apply
- (lambda (#{r 33912}#)
- (if (symbol? #{r 33912}#)
+ (lambda (#{r 34205}#)
+ (if (symbol? #{r 34205}#)
#t
- (if (if (vector? #{r 33912}#)
+ (if (if (vector? #{r 34205}#)
(if (= (vector-length
- #{r 33912}#)
+ #{r 34205}#)
4)
(eq? (vector-ref
- #{r 33912}#
+ #{r 34205}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 33912}# 1))
+ (vector-ref #{r 34205}# 1))
#f)))
- #{tmp 33910}#)
+ #{tmp 34203}#)
(@apply
- (lambda (#{r 33942}#)
- (#{rest 33454}#
- #{r 33942}#
- #{req 33696}#
- (reverse #{ropt 33697}#)
+ (lambda (#{r 34235}#)
+ (#{rest 33747}#
+ #{r 34235}#
+ #{req 33989}#
+ (reverse #{ropt 33990}#)
'()))
- #{tmp 33910}#)
+ #{tmp 34203}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args 33450}#
- #{args 33695}#)))))))))))))))
- (#{key 33453}#
- (lambda (#{args 33961}#
- #{req 33962}#
- #{opt 33963}#
- #{rkey 33964}#)
- (let ((#{tmp 33966}# ($sc-dispatch #{args 33961}# '())))
- (if #{tmp 33966}#
+ #{orig-args 33743}#
+ #{args 33988}#)))))))))))))))
+ (#{key 33746}#
+ (lambda (#{args 34254}#
+ #{req 34255}#
+ #{opt 34256}#
+ #{rkey 34257}#)
+ (let ((#{tmp 34259}# ($sc-dispatch #{args 34254}# '())))
+ (if #{tmp 34259}#
(@apply
(lambda ()
- (#{check 33455}#
- #{req 33962}#
- #{opt 33963}#
+ (#{check 33748}#
+ #{req 34255}#
+ #{opt 34256}#
#f
- (cons #f (reverse #{rkey 33964}#))))
- #{tmp 33966}#)
- (let ((#{tmp 34088}#
- ($sc-dispatch #{args 33961}# '(any . any))))
- (if (if #{tmp 34088}#
+ (cons #f (reverse #{rkey 34257}#))))
+ #{tmp 34259}#)
+ (let ((#{tmp 34381}#
+ ($sc-dispatch #{args 34254}# '(any . any))))
+ (if (if #{tmp 34381}#
(@apply
- (lambda (#{a 34092}# #{b 34093}#)
- (if (symbol? #{a 34092}#)
+ (lambda (#{a 34385}# #{b 34386}#)
+ (if (symbol? #{a 34385}#)
#t
- (if (if (vector? #{a 34092}#)
- (if (= (vector-length #{a 34092}#) 4)
- (eq? (vector-ref #{a 34092}# 0)
+ (if (if (vector? #{a 34385}#)
+ (if (= (vector-length #{a 34385}#) 4)
+ (eq? (vector-ref #{a 34385}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 34092}# 1))
+ (symbol? (vector-ref #{a 34385}# 1))
#f)))
- #{tmp 34088}#)
+ #{tmp 34381}#)
#f)
(@apply
- (lambda (#{a 34120}# #{b 34121}#)
- (let ((#{tmp 34122}#
+ (lambda (#{a 34413}# #{b 34414}#)
+ (let ((#{tmp 34415}#
(symbol->keyword
- (syntax->datum #{a 34120}#))))
- (#{key 33453}#
- #{b 34121}#
- #{req 33962}#
- #{opt 33963}#
- (cons (cons #{tmp 34122}#
- (cons #{a 34120}#
+ (syntax->datum #{a 34413}#))))
+ (#{key 33746}#
+ #{b 34414}#
+ #{req 34255}#
+ #{opt 34256}#
+ (cons (cons #{tmp 34415}#
+ (cons #{a 34413}#
'(#(syntax-object
#f
((top)
@@ -7448,11 +7431,11 @@
#(ribcage
#(k)
#((top))
- #("i2465"))
+ #("i2463"))
#(ribcage
#(a b)
#((top) (top))
- #("i2459" "i2460"))
+ #("i2457" "i2458"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -7460,10 +7443,10 @@
(top)
(top)
(top))
- #("i2448"
- "i2449"
- "i2450"
- "i2451"))
+ #("i2446"
+ "i2447"
+ "i2448"
+ "i2449"))
#(ribcage
(check rest key opt req)
((top)
@@ -7471,15 +7454,15 @@
(top)
(top)
(top))
- ("i2338"
- "i2336"
+ ("i2336"
"i2334"
"i2332"
- "i2330"))
+ "i2330"
+ "i2328"))
#(ribcage
#(orig-args)
#((top))
- #("i2329"))
+ #("i2327"))
#(ribcage
(lambda-var-list
gen-var
@@ -7902,1009 +7885,1009 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile)))))
- #{rkey 33964}#))))
- #{tmp 34088}#)
- (let ((#{tmp 34125}#
+ #{rkey 34257}#))))
+ #{tmp 34381}#)
+ (let ((#{tmp 34418}#
($sc-dispatch
- #{args 33961}#
+ #{args 34254}#
'((any any) . any))))
- (if (if #{tmp 34125}#
+ (if (if #{tmp 34418}#
(@apply
- (lambda (#{a 34129}#
- #{init 34130}#
- #{b 34131}#)
- (if (symbol? #{a 34129}#)
+ (lambda (#{a 34422}#
+ #{init 34423}#
+ #{b 34424}#)
+ (if (symbol? #{a 34422}#)
#t
- (if (if (vector? #{a 34129}#)
- (if (= (vector-length #{a 34129}#) 4)
- (eq? (vector-ref #{a 34129}# 0)
+ (if (if (vector? #{a 34422}#)
+ (if (= (vector-length #{a 34422}#) 4)
+ (eq? (vector-ref #{a 34422}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 34129}# 1))
+ (symbol? (vector-ref #{a 34422}# 1))
#f)))
- #{tmp 34125}#)
+ #{tmp 34418}#)
#f)
(@apply
- (lambda (#{a 34158}# #{init 34159}# #{b 34160}#)
- (let ((#{tmp 34161}#
+ (lambda (#{a 34451}# #{init 34452}# #{b 34453}#)
+ (let ((#{tmp 34454}#
(symbol->keyword
- (syntax->datum #{a 34158}#))))
- (#{key 33453}#
- #{b 34160}#
- #{req 33962}#
- #{opt 33963}#
- (cons (list #{tmp 34161}#
- #{a 34158}#
- #{init 34159}#)
- #{rkey 33964}#))))
- #{tmp 34125}#)
- (let ((#{tmp 34164}#
+ (syntax->datum #{a 34451}#))))
+ (#{key 33746}#
+ #{b 34453}#
+ #{req 34255}#
+ #{opt 34256}#
+ (cons (list #{tmp 34454}#
+ #{a 34451}#
+ #{init 34452}#)
+ #{rkey 34257}#))))
+ #{tmp 34418}#)
+ (let ((#{tmp 34457}#
($sc-dispatch
- #{args 33961}#
+ #{args 34254}#
'((any any any) . any))))
- (if (if #{tmp 34164}#
+ (if (if #{tmp 34457}#
(@apply
- (lambda (#{a 34168}#
- #{init 34169}#
- #{k 34170}#
- #{b 34171}#)
- (if (if (symbol? #{a 34168}#)
+ (lambda (#{a 34461}#
+ #{init 34462}#
+ #{k 34463}#
+ #{b 34464}#)
+ (if (if (symbol? #{a 34461}#)
#t
- (if (if (vector? #{a 34168}#)
+ (if (if (vector? #{a 34461}#)
(if (= (vector-length
- #{a 34168}#)
+ #{a 34461}#)
4)
(eq? (vector-ref
- #{a 34168}#
+ #{a 34461}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{a 34168}# 1))
+ (vector-ref #{a 34461}# 1))
#f))
- (keyword? (syntax->datum #{k 34170}#))
+ (keyword? (syntax->datum #{k 34463}#))
#f))
- #{tmp 34164}#)
+ #{tmp 34457}#)
#f)
(@apply
- (lambda (#{a 34198}#
- #{init 34199}#
- #{k 34200}#
- #{b 34201}#)
- (#{key 33453}#
- #{b 34201}#
- #{req 33962}#
- #{opt 33963}#
- (cons (list #{k 34200}#
- #{a 34198}#
- #{init 34199}#)
- #{rkey 33964}#)))
- #{tmp 34164}#)
- (let ((#{tmp 34202}#
- ($sc-dispatch #{args 33961}# '(any))))
- (if (if #{tmp 34202}#
+ (lambda (#{a 34491}#
+ #{init 34492}#
+ #{k 34493}#
+ #{b 34494}#)
+ (#{key 33746}#
+ #{b 34494}#
+ #{req 34255}#
+ #{opt 34256}#
+ (cons (list #{k 34493}#
+ #{a 34491}#
+ #{init 34492}#)
+ #{rkey 34257}#)))
+ #{tmp 34457}#)
+ (let ((#{tmp 34495}#
+ ($sc-dispatch #{args 34254}# '(any))))
+ (if (if #{tmp 34495}#
(@apply
- (lambda (#{aok 34206}#)
- (eq? (syntax->datum #{aok 34206}#)
+ (lambda (#{aok 34499}#)
+ (eq? (syntax->datum #{aok 34499}#)
#:allow-other-keys))
- #{tmp 34202}#)
+ #{tmp 34495}#)
#f)
(@apply
- (lambda (#{aok 34207}#)
- (#{check 33455}#
- #{req 33962}#
- #{opt 33963}#
+ (lambda (#{aok 34500}#)
+ (#{check 33748}#
+ #{req 34255}#
+ #{opt 34256}#
#f
- (cons #t (reverse #{rkey 33964}#))))
- #{tmp 34202}#)
- (let ((#{tmp 34326}#
+ (cons #t (reverse #{rkey 34257}#))))
+ #{tmp 34495}#)
+ (let ((#{tmp 34619}#
($sc-dispatch
- #{args 33961}#
+ #{args 34254}#
'(any any any))))
- (if (if #{tmp 34326}#
+ (if (if #{tmp 34619}#
(@apply
- (lambda (#{aok 34330}#
- #{a 34331}#
- #{b 34332}#)
+ (lambda (#{aok 34623}#
+ #{a 34624}#
+ #{b 34625}#)
(if (eq? (syntax->datum
- #{aok 34330}#)
+ #{aok 34623}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a 34331}#)
+ #{a 34624}#)
#:rest)
#f))
- #{tmp 34326}#)
+ #{tmp 34619}#)
#f)
(@apply
- (lambda (#{aok 34333}#
- #{a 34334}#
- #{b 34335}#)
- (#{rest 33454}#
- #{b 34335}#
- #{req 33962}#
- #{opt 33963}#
+ (lambda (#{aok 34626}#
+ #{a 34627}#
+ #{b 34628}#)
+ (#{rest 33747}#
+ #{b 34628}#
+ #{req 34255}#
+ #{opt 34256}#
(cons #t
- (reverse #{rkey 33964}#))))
- #{tmp 34326}#)
- (let ((#{tmp 34338}#
+ (reverse #{rkey 34257}#))))
+ #{tmp 34619}#)
+ (let ((#{tmp 34631}#
($sc-dispatch
- #{args 33961}#
+ #{args 34254}#
'(any . any))))
- (if (if #{tmp 34338}#
+ (if (if #{tmp 34631}#
(@apply
- (lambda (#{aok 34342}#
- #{r 34343}#)
+ (lambda (#{aok 34635}#
+ #{r 34636}#)
(if (eq? (syntax->datum
- #{aok 34342}#)
+ #{aok 34635}#)
#:allow-other-keys)
- (if (symbol? #{r 34343}#)
+ (if (symbol? #{r 34636}#)
#t
(if (if (vector?
- #{r 34343}#)
+ #{r 34636}#)
(if (=
(vector-length
- #{r
34343}#)
+ #{r
34636}#)
4)
(eq? (vector-ref
- #{r
34343}#
+ #{r
34636}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 34343}#
+ #{r 34636}#
1))
#f))
#f))
- #{tmp 34338}#)
+ #{tmp 34631}#)
#f)
(@apply
- (lambda (#{aok 34370}# #{r 34371}#)
- (#{rest 33454}#
- #{r 34371}#
- #{req 33962}#
- #{opt 33963}#
+ (lambda (#{aok 34663}# #{r 34664}#)
+ (#{rest 33747}#
+ #{r 34664}#
+ #{req 34255}#
+ #{opt 34256}#
(cons #t
(reverse
- #{rkey 33964}#))))
- #{tmp 34338}#)
- (let ((#{tmp 34374}#
+ #{rkey 34257}#))))
+ #{tmp 34631}#)
+ (let ((#{tmp 34667}#
($sc-dispatch
- #{args 33961}#
+ #{args 34254}#
'(any any))))
- (if (if #{tmp 34374}#
+ (if (if #{tmp 34667}#
(@apply
- (lambda (#{a 34378}#
- #{b 34379}#)
+ (lambda (#{a 34671}#
+ #{b 34672}#)
(eq? (syntax->datum
- #{a 34378}#)
+ #{a 34671}#)
#:rest))
- #{tmp 34374}#)
+ #{tmp 34667}#)
#f)
(@apply
- (lambda (#{a 34380}#
- #{b 34381}#)
- (#{rest 33454}#
- #{b 34381}#
- #{req 33962}#
- #{opt 33963}#
+ (lambda (#{a 34673}#
+ #{b 34674}#)
+ (#{rest 33747}#
+ #{b 34674}#
+ #{req 34255}#
+ #{opt 34256}#
(cons #f
(reverse
- #{rkey 33964}#))))
- #{tmp 34374}#)
- (let ((#{tmp 34384}#
- (list #{args 33961}#)))
+ #{rkey 34257}#))))
+ #{tmp 34667}#)
+ (let ((#{tmp 34677}#
+ (list #{args 34254}#)))
(if (@apply
- (lambda (#{r 34386}#)
+ (lambda (#{r 34679}#)
(if (symbol?
- #{r 34386}#)
+ #{r 34679}#)
#t
(if (if (vector?
- #{r
34386}#)
+ #{r
34679}#)
(if (=
(vector-length
- #{r
34386}#)
+ #{r
34679}#)
4)
(eq?
(vector-ref
- #{r
34386}#
+ #{r
34679}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 34386}#
+ #{r 34679}#
1))
#f)))
- #{tmp 34384}#)
+ #{tmp 34677}#)
(@apply
- (lambda (#{r 34416}#)
- (#{rest 33454}#
- #{r 34416}#
- #{req 33962}#
- #{opt 33963}#
+ (lambda (#{r 34709}#)
+ (#{rest 33747}#
+ #{r 34709}#
+ #{req 34255}#
+ #{opt 34256}#
(cons #f
(reverse
- #{rkey
33964}#))))
- #{tmp 34384}#)
+ #{rkey
34257}#))))
+ #{tmp 34677}#)
(syntax-violation
'lambda*
"invalid keyword argument
list"
- #{orig-args 33450}#
- #{args
33961}#)))))))))))))))))))))
- (#{rest 33454}#
- (lambda (#{args 34444}#
- #{req 34445}#
- #{opt 34446}#
- #{kw 34447}#)
- (let ((#{tmp 34449}# (list #{args 34444}#)))
+ #{orig-args 33743}#
+ #{args
34254}#)))))))))))))))))))))
+ (#{rest 33747}#
+ (lambda (#{args 34737}#
+ #{req 34738}#
+ #{opt 34739}#
+ #{kw 34740}#)
+ (let ((#{tmp 34742}# (list #{args 34737}#)))
(if (@apply
- (lambda (#{r 34451}#)
- (if (symbol? #{r 34451}#)
+ (lambda (#{r 34744}#)
+ (if (symbol? #{r 34744}#)
#t
- (if (if (vector? #{r 34451}#)
- (if (= (vector-length #{r 34451}#) 4)
- (eq? (vector-ref #{r 34451}# 0)
+ (if (if (vector? #{r 34744}#)
+ (if (= (vector-length #{r 34744}#) 4)
+ (eq? (vector-ref #{r 34744}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 34451}# 1))
+ (symbol? (vector-ref #{r 34744}# 1))
#f)))
- #{tmp 34449}#)
+ #{tmp 34742}#)
(@apply
- (lambda (#{r 34481}#)
- (#{check 33455}#
- #{req 34445}#
- #{opt 34446}#
- #{r 34481}#
- #{kw 34447}#))
- #{tmp 34449}#)
+ (lambda (#{r 34774}#)
+ (#{check 33748}#
+ #{req 34738}#
+ #{opt 34739}#
+ #{r 34774}#
+ #{kw 34740}#))
+ #{tmp 34742}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args 33450}#
- #{args 34444}#)))))
- (#{check 33455}#
- (lambda (#{req 34609}#
- #{opt 34610}#
- #{rest 34611}#
- #{kw 34612}#)
- (if (#{distinct-bound-ids? 4366}#
+ #{orig-args 33743}#
+ #{args 34737}#)))))
+ (#{check 33748}#
+ (lambda (#{req 34902}#
+ #{opt 34903}#
+ #{rest 34904}#
+ #{kw 34905}#)
+ (if (#{distinct-bound-ids? 4364}#
(append
- #{req 34609}#
- (map car #{opt 34610}#)
- (if #{rest 34611}# (list #{rest 34611}#) '())
- (if (pair? #{kw 34612}#)
- (map cadr (cdr #{kw 34612}#))
+ #{req 34902}#
+ (map car #{opt 34903}#)
+ (if #{rest 34904}# (list #{rest 34904}#) '())
+ (if (pair? #{kw 34905}#)
+ (map cadr (cdr #{kw 34905}#))
'())))
(values
- #{req 34609}#
- #{opt 34610}#
- #{rest 34611}#
- #{kw 34612}#)
+ #{req 34902}#
+ #{opt 34903}#
+ #{rest 34904}#
+ #{kw 34905}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args 33450}#)))))
- (#{req 33451}# #{orig-args 33450}# '()))))
- (#{chi-lambda-case 4387}#
- (lambda (#{e 34721}#
- #{r 34722}#
- #{w 34723}#
- #{s 34724}#
- #{mod 34725}#
- #{get-formals 34726}#
- #{clauses 34727}#)
+ #{orig-args 33743}#)))))
+ (#{req 33744}# #{orig-args 33743}# '()))))
+ (#{chi-lambda-case 4385}#
+ (lambda (#{e 35014}#
+ #{r 35015}#
+ #{w 35016}#
+ #{s 35017}#
+ #{mod 35018}#
+ #{get-formals 35019}#
+ #{clauses 35020}#)
(letrec*
- ((#{expand-req 34728}#
- (lambda (#{req 34864}#
- #{opt 34865}#
- #{rest 34866}#
- #{kw 34867}#
- #{body 34868}#)
- (let ((#{vars 34869}#
- (map #{gen-var 4389}# #{req 34864}#))
- (#{labels 34870}#
- (#{gen-labels 4346}# #{req 34864}#)))
- (let ((#{r* 34871}#
- (#{extend-var-env 4338}#
- #{labels 34870}#
- #{vars 34869}#
- #{r 34722}#))
- (#{w* 34872}#
- (#{make-binding-wrap 4357}#
- #{req 34864}#
- #{labels 34870}#
- #{w 34723}#)))
- (#{expand-opt 34729}#
- (map syntax->datum #{req 34864}#)
- #{opt 34865}#
- #{rest 34866}#
- #{kw 34867}#
- #{body 34868}#
- (reverse #{vars 34869}#)
- #{r* 34871}#
- #{w* 34872}#
+ ((#{expand-req 35021}#
+ (lambda (#{req 35157}#
+ #{opt 35158}#
+ #{rest 35159}#
+ #{kw 35160}#
+ #{body 35161}#)
+ (let ((#{vars 35162}#
+ (map #{gen-var 4387}# #{req 35157}#))
+ (#{labels 35163}#
+ (#{gen-labels 4344}# #{req 35157}#)))
+ (let ((#{r* 35164}#
+ (#{extend-var-env 4336}#
+ #{labels 35163}#
+ #{vars 35162}#
+ #{r 35015}#))
+ (#{w* 35165}#
+ (#{make-binding-wrap 4355}#
+ #{req 35157}#
+ #{labels 35163}#
+ #{w 35016}#)))
+ (#{expand-opt 35022}#
+ (map syntax->datum #{req 35157}#)
+ #{opt 35158}#
+ #{rest 35159}#
+ #{kw 35160}#
+ #{body 35161}#
+ (reverse #{vars 35162}#)
+ #{r* 35164}#
+ #{w* 35165}#
'()
'())))))
- (#{expand-opt 34729}#
- (lambda (#{req 35108}#
- #{opt 35109}#
- #{rest 35110}#
- #{kw 35111}#
- #{body 35112}#
- #{vars 35113}#
- #{r* 35114}#
- #{w* 35115}#
- #{out 35116}#
- #{inits 35117}#)
- (if (pair? #{opt 35109}#)
- (let ((#{tmp 35118}# (car #{opt 35109}#)))
- (let ((#{tmp 35119}#
- ($sc-dispatch #{tmp 35118}# '(any any))))
- (if #{tmp 35119}#
+ (#{expand-opt 35022}#
+ (lambda (#{req 35401}#
+ #{opt 35402}#
+ #{rest 35403}#
+ #{kw 35404}#
+ #{body 35405}#
+ #{vars 35406}#
+ #{r* 35407}#
+ #{w* 35408}#
+ #{out 35409}#
+ #{inits 35410}#)
+ (if (pair? #{opt 35402}#)
+ (let ((#{tmp 35411}# (car #{opt 35402}#)))
+ (let ((#{tmp 35412}#
+ ($sc-dispatch #{tmp 35411}# '(any any))))
+ (if #{tmp 35412}#
(@apply
- (lambda (#{id 35121}# #{i 35122}#)
- (let ((#{v 35123}#
- (let ((#{id 35131}#
- (if (if (vector? #{id 35121}#)
+ (lambda (#{id 35414}# #{i 35415}#)
+ (let ((#{v 35416}#
+ (let ((#{id 35424}#
+ (if (if (vector? #{id 35414}#)
(if (= (vector-length
- #{id 35121}#)
+ #{id 35414}#)
4)
(eq? (vector-ref
- #{id 35121}#
+ #{id 35414}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 35121}# 1)
- #{id 35121}#)))
+ (vector-ref #{id 35414}# 1)
+ #{id 35414}#)))
(gensym
(string-append
- (symbol->string #{id 35131}#)
+ (symbol->string #{id 35424}#)
" ")))))
- (let ((#{l 35124}#
- (#{gen-labels 4346}# (list #{v 35123}#))))
- (let ((#{r** 35125}#
- (#{extend-var-env 4338}#
- #{l 35124}#
- (list #{v 35123}#)
- #{r* 35114}#)))
- (let ((#{w** 35126}#
- (#{make-binding-wrap 4357}#
- (list #{id 35121}#)
- #{l 35124}#
- #{w* 35115}#)))
- (#{expand-opt 34729}#
- #{req 35108}#
- (cdr #{opt 35109}#)
- #{rest 35110}#
- #{kw 35111}#
- #{body 35112}#
- (cons #{v 35123}# #{vars 35113}#)
- #{r** 35125}#
- #{w** 35126}#
- (cons (syntax->datum #{id 35121}#)
- #{out 35116}#)
- (cons (#{chi 4375}#
- #{i 35122}#
- #{r* 35114}#
- #{w* 35115}#
- #{mod 34725}#)
- #{inits 35117}#)))))))
- #{tmp 35119}#)
+ (let ((#{l 35417}#
+ (#{gen-labels 4344}# (list #{v 35416}#))))
+ (let ((#{r** 35418}#
+ (#{extend-var-env 4336}#
+ #{l 35417}#
+ (list #{v 35416}#)
+ #{r* 35407}#)))
+ (let ((#{w** 35419}#
+ (#{make-binding-wrap 4355}#
+ (list #{id 35414}#)
+ #{l 35417}#
+ #{w* 35408}#)))
+ (#{expand-opt 35022}#
+ #{req 35401}#
+ (cdr #{opt 35402}#)
+ #{rest 35403}#
+ #{kw 35404}#
+ #{body 35405}#
+ (cons #{v 35416}# #{vars 35406}#)
+ #{r** 35418}#
+ #{w** 35419}#
+ (cons (syntax->datum #{id 35414}#)
+ #{out 35409}#)
+ (cons (#{chi 4373}#
+ #{i 35415}#
+ #{r* 35407}#
+ #{w* 35408}#
+ #{mod 35018}#)
+ #{inits 35410}#)))))))
+ #{tmp 35412}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 35118}#))))
- (if #{rest 35110}#
- (let ((#{v 35430}#
- (let ((#{id 35440}#
- (if (if (vector? #{rest 35110}#)
- (if (= (vector-length #{rest 35110}#)
+ #{tmp 35411}#))))
+ (if #{rest 35403}#
+ (let ((#{v 35725}#
+ (let ((#{id 35735}#
+ (if (if (vector? #{rest 35403}#)
+ (if (= (vector-length #{rest 35403}#)
4)
- (eq? (vector-ref #{rest 35110}# 0)
+ (eq? (vector-ref #{rest 35403}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{rest 35110}# 1)
- #{rest 35110}#)))
+ (vector-ref #{rest 35403}# 1)
+ #{rest 35403}#)))
(gensym
(string-append
- (symbol->string #{id 35440}#)
+ (symbol->string #{id 35735}#)
" ")))))
- (let ((#{l 35431}#
- (#{gen-labels 4346}# (list #{v 35430}#))))
- (let ((#{r* 35432}#
- (#{extend-var-env 4338}#
- #{l 35431}#
- (list #{v 35430}#)
- #{r* 35114}#)))
- (let ((#{w* 35433}#
- (#{make-binding-wrap 4357}#
- (list #{rest 35110}#)
- #{l 35431}#
- #{w* 35115}#)))
- (#{expand-kw 34730}#
- #{req 35108}#
- (if (pair? #{out 35116}#)
- (reverse #{out 35116}#)
+ (let ((#{l 35726}#
+ (#{gen-labels 4344}# (list #{v 35725}#))))
+ (let ((#{r* 35727}#
+ (#{extend-var-env 4336}#
+ #{l 35726}#
+ (list #{v 35725}#)
+ #{r* 35407}#)))
+ (let ((#{w* 35728}#
+ (#{make-binding-wrap 4355}#
+ (list #{rest 35403}#)
+ #{l 35726}#
+ #{w* 35408}#)))
+ (#{expand-kw 35023}#
+ #{req 35401}#
+ (if (pair? #{out 35409}#)
+ (reverse #{out 35409}#)
#f)
- (syntax->datum #{rest 35110}#)
- (if (pair? #{kw 35111}#)
- (cdr #{kw 35111}#)
- #{kw 35111}#)
- #{body 35112}#
- (cons #{v 35430}# #{vars 35113}#)
- #{r* 35432}#
- #{w* 35433}#
- (if (pair? #{kw 35111}#) (car #{kw 35111}#) #f)
+ (syntax->datum #{rest 35403}#)
+ (if (pair? #{kw 35404}#)
+ (cdr #{kw 35404}#)
+ #{kw 35404}#)
+ #{body 35405}#
+ (cons #{v 35725}# #{vars 35406}#)
+ #{r* 35727}#
+ #{w* 35728}#
+ (if (pair? #{kw 35404}#) (car #{kw 35404}#) #f)
'()
- #{inits 35117}#)))))
- (#{expand-kw 34730}#
- #{req 35108}#
- (if (pair? #{out 35116}#)
- (reverse #{out 35116}#)
+ #{inits 35410}#)))))
+ (#{expand-kw 35023}#
+ #{req 35401}#
+ (if (pair? #{out 35409}#)
+ (reverse #{out 35409}#)
#f)
#f
- (if (pair? #{kw 35111}#)
- (cdr #{kw 35111}#)
- #{kw 35111}#)
- #{body 35112}#
- #{vars 35113}#
- #{r* 35114}#
- #{w* 35115}#
- (if (pair? #{kw 35111}#) (car #{kw 35111}#) #f)
+ (if (pair? #{kw 35404}#)
+ (cdr #{kw 35404}#)
+ #{kw 35404}#)
+ #{body 35405}#
+ #{vars 35406}#
+ #{r* 35407}#
+ #{w* 35408}#
+ (if (pair? #{kw 35404}#) (car #{kw 35404}#) #f)
'()
- #{inits 35117}#)))))
- (#{expand-kw 34730}#
- (lambda (#{req 35662}#
- #{opt 35663}#
- #{rest 35664}#
- #{kw 35665}#
- #{body 35666}#
- #{vars 35667}#
- #{r* 35668}#
- #{w* 35669}#
- #{aok 35670}#
- #{out 35671}#
- #{inits 35672}#)
- (if (pair? #{kw 35665}#)
- (let ((#{tmp 35673}# (car #{kw 35665}#)))
- (let ((#{tmp 35674}#
- ($sc-dispatch #{tmp 35673}# '(any any any))))
- (if #{tmp 35674}#
+ #{inits 35410}#)))))
+ (#{expand-kw 35023}#
+ (lambda (#{req 35957}#
+ #{opt 35958}#
+ #{rest 35959}#
+ #{kw 35960}#
+ #{body 35961}#
+ #{vars 35962}#
+ #{r* 35963}#
+ #{w* 35964}#
+ #{aok 35965}#
+ #{out 35966}#
+ #{inits 35967}#)
+ (if (pair? #{kw 35960}#)
+ (let ((#{tmp 35968}# (car #{kw 35960}#)))
+ (let ((#{tmp 35969}#
+ ($sc-dispatch #{tmp 35968}# '(any any any))))
+ (if #{tmp 35969}#
(@apply
- (lambda (#{k 35676}# #{id 35677}# #{i 35678}#)
- (let ((#{v 35679}#
- (let ((#{id 35687}#
- (if (if (vector? #{id 35677}#)
+ (lambda (#{k 35971}# #{id 35972}# #{i 35973}#)
+ (let ((#{v 35974}#
+ (let ((#{id 35982}#
+ (if (if (vector? #{id 35972}#)
(if (= (vector-length
- #{id 35677}#)
+ #{id 35972}#)
4)
(eq? (vector-ref
- #{id 35677}#
+ #{id 35972}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 35677}# 1)
- #{id 35677}#)))
+ (vector-ref #{id 35972}# 1)
+ #{id 35972}#)))
(gensym
(string-append
- (symbol->string #{id 35687}#)
+ (symbol->string #{id 35982}#)
" ")))))
- (let ((#{l 35680}#
- (#{gen-labels 4346}# (list #{v 35679}#))))
- (let ((#{r** 35681}#
- (#{extend-var-env 4338}#
- #{l 35680}#
- (list #{v 35679}#)
- #{r* 35668}#)))
- (let ((#{w** 35682}#
- (#{make-binding-wrap 4357}#
- (list #{id 35677}#)
- #{l 35680}#
- #{w* 35669}#)))
- (#{expand-kw 34730}#
- #{req 35662}#
- #{opt 35663}#
- #{rest 35664}#
- (cdr #{kw 35665}#)
- #{body 35666}#
- (cons #{v 35679}# #{vars 35667}#)
- #{r** 35681}#
- #{w** 35682}#
- #{aok 35670}#
- (cons (list (syntax->datum #{k 35676}#)
- (syntax->datum #{id 35677}#)
- #{v 35679}#)
- #{out 35671}#)
- (cons (#{chi 4375}#
- #{i 35678}#
- #{r* 35668}#
- #{w* 35669}#
- #{mod 34725}#)
- #{inits 35672}#)))))))
- #{tmp 35674}#)
+ (let ((#{l 35975}#
+ (#{gen-labels 4344}# (list #{v 35974}#))))
+ (let ((#{r** 35976}#
+ (#{extend-var-env 4336}#
+ #{l 35975}#
+ (list #{v 35974}#)
+ #{r* 35963}#)))
+ (let ((#{w** 35977}#
+ (#{make-binding-wrap 4355}#
+ (list #{id 35972}#)
+ #{l 35975}#
+ #{w* 35964}#)))
+ (#{expand-kw 35023}#
+ #{req 35957}#
+ #{opt 35958}#
+ #{rest 35959}#
+ (cdr #{kw 35960}#)
+ #{body 35961}#
+ (cons #{v 35974}# #{vars 35962}#)
+ #{r** 35976}#
+ #{w** 35977}#
+ #{aok 35965}#
+ (cons (list (syntax->datum #{k 35971}#)
+ (syntax->datum #{id 35972}#)
+ #{v 35974}#)
+ #{out 35966}#)
+ (cons (#{chi 4373}#
+ #{i 35973}#
+ #{r* 35963}#
+ #{w* 35964}#
+ #{mod 35018}#)
+ #{inits 35967}#)))))))
+ #{tmp 35969}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 35673}#))))
- (#{expand-body 34731}#
- #{req 35662}#
- #{opt 35663}#
- #{rest 35664}#
- (if (if #{aok 35670}#
- #{aok 35670}#
- (pair? #{out 35671}#))
- (cons #{aok 35670}# (reverse #{out 35671}#))
+ #{tmp 35968}#))))
+ (#{expand-body 35024}#
+ #{req 35957}#
+ #{opt 35958}#
+ #{rest 35959}#
+ (if (if #{aok 35965}#
+ #{aok 35965}#
+ (pair? #{out 35966}#))
+ (cons #{aok 35965}# (reverse #{out 35966}#))
#f)
- #{body 35666}#
- (reverse #{vars 35667}#)
- #{r* 35668}#
- #{w* 35669}#
- (reverse #{inits 35672}#)
+ #{body 35961}#
+ (reverse #{vars 35962}#)
+ #{r* 35963}#
+ #{w* 35964}#
+ (reverse #{inits 35967}#)
'()))))
- (#{expand-body 34731}#
- (lambda (#{req 35995}#
- #{opt 35996}#
- #{rest 35997}#
- #{kw 35998}#
- #{body 35999}#
- #{vars 36000}#
- #{r* 36001}#
- #{w* 36002}#
- #{inits 36003}#
- #{meta 36004}#)
- (let ((#{tmp 36006}#
+ (#{expand-body 35024}#
+ (lambda (#{req 36292}#
+ #{opt 36293}#
+ #{rest 36294}#
+ #{kw 36295}#
+ #{body 36296}#
+ #{vars 36297}#
+ #{r* 36298}#
+ #{w* 36299}#
+ #{inits 36300}#
+ #{meta 36301}#)
+ (let ((#{tmp 36303}#
($sc-dispatch
- #{body 35999}#
+ #{body 36296}#
'(any any . each-any))))
- (if (if #{tmp 36006}#
+ (if (if #{tmp 36303}#
(@apply
- (lambda (#{docstring 36010}# #{e1 36011}# #{e2 36012}#)
- (string? (syntax->datum #{docstring 36010}#)))
- #{tmp 36006}#)
+ (lambda (#{docstring 36307}# #{e1 36308}# #{e2 36309}#)
+ (string? (syntax->datum #{docstring 36307}#)))
+ #{tmp 36303}#)
#f)
(@apply
- (lambda (#{docstring 36013}# #{e1 36014}# #{e2 36015}#)
- (#{expand-body 34731}#
- #{req 35995}#
- #{opt 35996}#
- #{rest 35997}#
- #{kw 35998}#
- (cons #{e1 36014}# #{e2 36015}#)
- #{vars 36000}#
- #{r* 36001}#
- #{w* 36002}#
- #{inits 36003}#
+ (lambda (#{docstring 36310}# #{e1 36311}# #{e2 36312}#)
+ (#{expand-body 35024}#
+ #{req 36292}#
+ #{opt 36293}#
+ #{rest 36294}#
+ #{kw 36295}#
+ (cons #{e1 36311}# #{e2 36312}#)
+ #{vars 36297}#
+ #{r* 36298}#
+ #{w* 36299}#
+ #{inits 36300}#
(append
- #{meta 36004}#
+ #{meta 36301}#
(list (cons 'documentation
- (syntax->datum #{docstring 36013}#))))))
- #{tmp 36006}#)
- (let ((#{tmp 36016}#
+ (syntax->datum #{docstring 36310}#))))))
+ #{tmp 36303}#)
+ (let ((#{tmp 36313}#
($sc-dispatch
- #{body 35999}#
+ #{body 36296}#
'(#(vector #(each (any . any))) any . each-any))))
- (if #{tmp 36016}#
+ (if #{tmp 36313}#
(@apply
- (lambda (#{k 36020}#
- #{v 36021}#
- #{e1 36022}#
- #{e2 36023}#)
- (#{expand-body 34731}#
- #{req 35995}#
- #{opt 35996}#
- #{rest 35997}#
- #{kw 35998}#
- (cons #{e1 36022}# #{e2 36023}#)
- #{vars 36000}#
- #{r* 36001}#
- #{w* 36002}#
- #{inits 36003}#
+ (lambda (#{k 36317}#
+ #{v 36318}#
+ #{e1 36319}#
+ #{e2 36320}#)
+ (#{expand-body 35024}#
+ #{req 36292}#
+ #{opt 36293}#
+ #{rest 36294}#
+ #{kw 36295}#
+ (cons #{e1 36319}# #{e2 36320}#)
+ #{vars 36297}#
+ #{r* 36298}#
+ #{w* 36299}#
+ #{inits 36300}#
(append
- #{meta 36004}#
+ #{meta 36301}#
(syntax->datum
- (map cons #{k 36020}# #{v 36021}#)))))
- #{tmp 36016}#)
- (let ((#{tmp 36024}#
- ($sc-dispatch #{body 35999}# '(any . each-any))))
- (if #{tmp 36024}#
+ (map cons #{k 36317}# #{v 36318}#)))))
+ #{tmp 36313}#)
+ (let ((#{tmp 36321}#
+ ($sc-dispatch #{body 36296}# '(any . each-any))))
+ (if #{tmp 36321}#
(@apply
- (lambda (#{e1 36028}# #{e2 36029}#)
+ (lambda (#{e1 36325}# #{e2 36326}#)
(values
- #{meta 36004}#
- #{req 35995}#
- #{opt 35996}#
- #{rest 35997}#
- #{kw 35998}#
- #{inits 36003}#
- #{vars 36000}#
- (#{chi-body 4379}#
- (cons #{e1 36028}# #{e2 36029}#)
- (let ((#{x 36041}#
+ #{meta 36301}#
+ #{req 36292}#
+ #{opt 36293}#
+ #{rest 36294}#
+ #{kw 36295}#
+ #{inits 36300}#
+ #{vars 36297}#
+ (#{chi-body 4377}#
+ (cons #{e1 36325}# #{e2 36326}#)
+ (let ((#{x 36338}#
(begin
- (if (if (pair? #{e 34721}#)
- #{s 34724}#
+ (if (if (pair? #{e 35014}#)
+ #{s 35017}#
#f)
(set-source-properties!
- #{e 34721}#
- #{s 34724}#))
- #{e 34721}#)))
- (if (if (null? (car #{w 34723}#))
- (null? (cdr #{w 34723}#))
+ #{e 35014}#
+ #{s 35017}#))
+ #{e 35014}#)))
+ (if (if (null? (car #{w 35016}#))
+ (null? (cdr #{w 35016}#))
#f)
- #{x 36041}#
- (if (if (vector? #{x 36041}#)
- (if (= (vector-length #{x 36041}#)
+ #{x 36338}#
+ (if (if (vector? #{x 36338}#)
+ (if (= (vector-length #{x 36338}#)
4)
- (eq? (vector-ref #{x 36041}# 0)
+ (eq? (vector-ref #{x 36338}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 36073}#
- (vector-ref #{x 36041}# 1))
- (#{wrap 36074}#
- (let ((#{w2 36082}#
+ (let ((#{expression 36370}#
+ (vector-ref #{x 36338}# 1))
+ (#{wrap 36371}#
+ (let ((#{w2 36379}#
(vector-ref
- #{x 36041}#
+ #{x 36338}#
2)))
- (let ((#{m1 36083}#
- (car #{w 34723}#))
- (#{s1 36084}#
- (cdr #{w 34723}#)))
- (if (null? #{m1 36083}#)
- (if (null? #{s1 36084}#)
- #{w2 36082}#
- (cons (car #{w2
36082}#)
- (let ((#{m2
36099}#
- (cdr
#{w2 36082}#)))
- (if (null?
#{m2 36099}#)
- #{s1 36084}#
+ (let ((#{m1 36380}#
+ (car #{w 35016}#))
+ (#{s1 36381}#
+ (cdr #{w 35016}#)))
+ (if (null? #{m1 36380}#)
+ (if (null? #{s1 36381}#)
+ #{w2 36379}#
+ (cons (car #{w2
36379}#)
+ (let ((#{m2
36396}#
+ (cdr
#{w2 36379}#)))
+ (if (null?
#{m2 36396}#)
+ #{s1 36381}#
(append
- #{s1
36084}#
- #{m2
36099}#)))))
- (cons (let ((#{m2 36107}#
- (car #{w2
36082}#)))
- (if (null? #{m2
36107}#)
- #{m1 36083}#
+ #{s1
36381}#
+ #{m2
36396}#)))))
+ (cons (let ((#{m2 36404}#
+ (car #{w2
36379}#)))
+ (if (null? #{m2
36404}#)
+ #{m1 36380}#
(append
- #{m1 36083}#
- #{m2
36107}#)))
- (let ((#{m2 36115}#
- (cdr #{w2
36082}#)))
- (if (null? #{m2
36115}#)
- #{s1 36084}#
+ #{m1 36380}#
+ #{m2
36404}#)))
+ (let ((#{m2 36412}#
+ (cdr #{w2
36379}#)))
+ (if (null? #{m2
36412}#)
+ #{s1 36381}#
(append
- #{s1 36084}#
- #{m2
36115}#))))))))
- (#{module 36075}#
- (vector-ref #{x 36041}# 3)))
+ #{s1 36381}#
+ #{m2
36412}#))))))))
+ (#{module 36372}#
+ (vector-ref #{x 36338}# 3)))
(vector
'syntax-object
- #{expression 36073}#
- #{wrap 36074}#
- #{module 36075}#))
- (if (null? #{x 36041}#)
- #{x 36041}#
+ #{expression 36370}#
+ #{wrap 36371}#
+ #{module 36372}#))
+ (if (null? #{x 36338}#)
+ #{x 36338}#
(vector
'syntax-object
- #{x 36041}#
- #{w 34723}#
- #{mod 34725}#)))))
- #{r* 36001}#
- #{w* 36002}#
- #{mod 34725}#)))
- #{tmp 36024}#)
+ #{x 36338}#
+ #{w 35016}#
+ #{mod 35018}#)))))
+ #{r* 36298}#
+ #{w* 36299}#
+ #{mod 35018}#)))
+ #{tmp 36321}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{body 35999}#))))))))))
- (let ((#{tmp 34733}#
- ($sc-dispatch #{clauses 34727}# '())))
- (if #{tmp 34733}#
+ #{body 36296}#))))))))))
+ (let ((#{tmp 35026}#
+ ($sc-dispatch #{clauses 35020}# '())))
+ (if #{tmp 35026}#
(@apply
(lambda () (values '() #f))
- #{tmp 34733}#)
- (let ((#{tmp 34738}#
+ #{tmp 35026}#)
+ (let ((#{tmp 35031}#
($sc-dispatch
- #{clauses 34727}#
+ #{clauses 35020}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 34738}#
+ (if #{tmp 35031}#
(@apply
- (lambda (#{args 34742}#
- #{e1 34743}#
- #{e2 34744}#
- #{args* 34745}#
- #{e1* 34746}#
- #{e2* 34747}#)
+ (lambda (#{args 35035}#
+ #{e1 35036}#
+ #{e2 35037}#
+ #{args* 35038}#
+ #{e1* 35039}#
+ #{e2* 35040}#)
(call-with-values
(lambda ()
- (#{get-formals 34726}# #{args 34742}#))
- (lambda (#{req 34748}#
- #{opt 34749}#
- #{rest 34750}#
- #{kw 34751}#)
+ (#{get-formals 35019}# #{args 35035}#))
+ (lambda (#{req 35041}#
+ #{opt 35042}#
+ #{rest 35043}#
+ #{kw 35044}#)
(call-with-values
(lambda ()
- (#{expand-req 34728}#
- #{req 34748}#
- #{opt 34749}#
- #{rest 34750}#
- #{kw 34751}#
- (cons #{e1 34743}# #{e2 34744}#)))
- (lambda (#{meta 34820}#
- #{req 34821}#
- #{opt 34822}#
- #{rest 34823}#
- #{kw 34824}#
- #{inits 34825}#
- #{vars 34826}#
- #{body 34827}#)
+ (#{expand-req 35021}#
+ #{req 35041}#
+ #{opt 35042}#
+ #{rest 35043}#
+ #{kw 35044}#
+ (cons #{e1 35036}# #{e2 35037}#)))
+ (lambda (#{meta 35113}#
+ #{req 35114}#
+ #{opt 35115}#
+ #{rest 35116}#
+ #{kw 35117}#
+ #{inits 35118}#
+ #{vars 35119}#
+ #{body 35120}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case 4387}#
- #{e 34721}#
- #{r 34722}#
- #{w 34723}#
- #{s 34724}#
- #{mod 34725}#
- #{get-formals 34726}#
- (map (lambda (#{tmp 2808 34828}#
- #{tmp 2807 34829}#
- #{tmp 2806 34830}#)
- (cons #{tmp 2806 34830}#
- (cons #{tmp 2807 34829}#
- #{tmp 2808 34828}#)))
- #{e2* 34747}#
- #{e1* 34746}#
- #{args* 34745}#)))
- (lambda (#{meta* 34831}# #{else* 34832}#)
+ (#{chi-lambda-case 4385}#
+ #{e 35014}#
+ #{r 35015}#
+ #{w 35016}#
+ #{s 35017}#
+ #{mod 35018}#
+ #{get-formals 35019}#
+ (map (lambda (#{tmp 2806 35121}#
+ #{tmp 2805 35122}#
+ #{tmp 2804 35123}#)
+ (cons #{tmp 2804 35123}#
+ (cons #{tmp 2805 35122}#
+ #{tmp 2806 35121}#)))
+ #{e2* 35040}#
+ #{e1* 35039}#
+ #{args* 35038}#)))
+ (lambda (#{meta* 35124}# #{else* 35125}#)
(values
- (append #{meta 34820}# #{meta* 34831}#)
+ (append #{meta 35113}# #{meta* 35124}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{s 34724}#
- #{req 34821}#
- #{opt 34822}#
- #{rest 34823}#
- #{kw 34824}#
- #{inits 34825}#
- #{vars 34826}#
- #{body 34827}#
- #{else* 34832}#)))))))))
- #{tmp 34738}#)
+ #{s 35017}#
+ #{req 35114}#
+ #{opt 35115}#
+ #{rest 35116}#
+ #{kw 35117}#
+ #{inits 35118}#
+ #{vars 35119}#
+ #{body 35120}#
+ #{else* 35125}#)))))))))
+ #{tmp 35031}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{clauses 34727}#))))))))
- (#{strip 4388}#
- (lambda (#{x 36142}# #{w 36143}#)
- (if (memq 'top (car #{w 36143}#))
- #{x 36142}#
+ #{clauses 35020}#))))))))
+ (#{strip 4386}#
+ (lambda (#{x 36439}# #{w 36440}#)
+ (if (memq 'top (car #{w 36440}#))
+ #{x 36439}#
(letrec*
- ((#{f 36144}#
- (lambda (#{x 36147}#)
- (if (if (vector? #{x 36147}#)
- (if (= (vector-length #{x 36147}#) 4)
- (eq? (vector-ref #{x 36147}# 0) 'syntax-object)
+ ((#{f 36441}#
+ (lambda (#{x 36444}#)
+ (if (if (vector? #{x 36444}#)
+ (if (= (vector-length #{x 36444}#) 4)
+ (eq? (vector-ref #{x 36444}# 0) 'syntax-object)
#f)
#f)
- (#{strip 4388}#
- (vector-ref #{x 36147}# 1)
- (vector-ref #{x 36147}# 2))
- (if (pair? #{x 36147}#)
- (let ((#{a 36166}# (#{f 36144}# (car #{x 36147}#)))
- (#{d 36167}# (#{f 36144}# (cdr #{x 36147}#))))
- (if (if (eq? #{a 36166}# (car #{x 36147}#))
- (eq? #{d 36167}# (cdr #{x 36147}#))
+ (#{strip 4386}#
+ (vector-ref #{x 36444}# 1)
+ (vector-ref #{x 36444}# 2))
+ (if (pair? #{x 36444}#)
+ (let ((#{a 36463}# (#{f 36441}# (car #{x 36444}#)))
+ (#{d 36464}# (#{f 36441}# (cdr #{x 36444}#))))
+ (if (if (eq? #{a 36463}# (car #{x 36444}#))
+ (eq? #{d 36464}# (cdr #{x 36444}#))
#f)
- #{x 36147}#
- (cons #{a 36166}# #{d 36167}#)))
- (if (vector? #{x 36147}#)
- (let ((#{old 36170}# (vector->list #{x 36147}#)))
- (let ((#{new 36171}# (map #{f 36144}# #{old 36170}#)))
+ #{x 36444}#
+ (cons #{a 36463}# #{d 36464}#)))
+ (if (vector? #{x 36444}#)
+ (let ((#{old 36467}# (vector->list #{x 36444}#)))
+ (let ((#{new 36468}# (map #{f 36441}# #{old 36467}#)))
(letrec*
- ((#{lp 36172}#
- (lambda (#{l1 36269}# #{l2 36270}#)
- (if (null? #{l1 36269}#)
- #{x 36147}#
- (if (eq? (car #{l1 36269}#)
- (car #{l2 36270}#))
- (#{lp 36172}#
- (cdr #{l1 36269}#)
- (cdr #{l2 36270}#))
- (list->vector #{new 36171}#))))))
- (#{lp 36172}# #{old 36170}# #{new 36171}#))))
- #{x 36147}#))))))
- (#{f 36144}# #{x 36142}#)))))
- (#{gen-var 4389}#
- (lambda (#{id 34876}#)
- (let ((#{id 34877}#
- (if (if (vector? #{id 34876}#)
- (if (= (vector-length #{id 34876}#) 4)
- (eq? (vector-ref #{id 34876}# 0) 'syntax-object)
+ ((#{lp 36469}#
+ (lambda (#{l1 36566}# #{l2 36567}#)
+ (if (null? #{l1 36566}#)
+ #{x 36444}#
+ (if (eq? (car #{l1 36566}#)
+ (car #{l2 36567}#))
+ (#{lp 36469}#
+ (cdr #{l1 36566}#)
+ (cdr #{l2 36567}#))
+ (list->vector #{new 36468}#))))))
+ (#{lp 36469}# #{old 36467}# #{new 36468}#))))
+ #{x 36444}#))))))
+ (#{f 36441}# #{x 36439}#)))))
+ (#{gen-var 4387}#
+ (lambda (#{id 35169}#)
+ (let ((#{id 35170}#
+ (if (if (vector? #{id 35169}#)
+ (if (= (vector-length #{id 35169}#) 4)
+ (eq? (vector-ref #{id 35169}# 0) 'syntax-object)
#f)
#f)
- (vector-ref #{id 34876}# 1)
- #{id 34876}#)))
+ (vector-ref #{id 35169}# 1)
+ #{id 35169}#)))
(gensym
- (string-append (symbol->string #{id 34877}#) " ")))))
- (#{lambda-var-list 4390}#
- (lambda (#{vars 36271}#)
+ (string-append (symbol->string #{id 35170}#) " ")))))
+ (#{lambda-var-list 4388}#
+ (lambda (#{vars 36568}#)
(letrec*
- ((#{lvl 36272}#
- (lambda (#{vars 36275}# #{ls 36276}# #{w 36277}#)
- (if (pair? #{vars 36275}#)
- (#{lvl 36272}#
- (cdr #{vars 36275}#)
- (cons (let ((#{x 36281}# (car #{vars 36275}#)))
- (if (if (null? (car #{w 36277}#))
- (null? (cdr #{w 36277}#))
+ ((#{lvl 36569}#
+ (lambda (#{vars 36572}# #{ls 36573}# #{w 36574}#)
+ (if (pair? #{vars 36572}#)
+ (#{lvl 36569}#
+ (cdr #{vars 36572}#)
+ (cons (let ((#{x 36578}# (car #{vars 36572}#)))
+ (if (if (null? (car #{w 36574}#))
+ (null? (cdr #{w 36574}#))
#f)
- #{x 36281}#
- (if (if (vector? #{x 36281}#)
- (if (= (vector-length #{x 36281}#) 4)
- (eq? (vector-ref #{x 36281}# 0)
+ #{x 36578}#
+ (if (if (vector? #{x 36578}#)
+ (if (= (vector-length #{x 36578}#) 4)
+ (eq? (vector-ref #{x 36578}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 36299}#
- (vector-ref #{x 36281}# 1))
- (#{wrap 36300}#
- (let ((#{w2 36308}#
- (vector-ref #{x 36281}# 2)))
- (let ((#{m1 36309}# (car #{w 36277}#))
- (#{s1 36310}# (cdr #{w 36277}#)))
- (if (null? #{m1 36309}#)
- (if (null? #{s1 36310}#)
- #{w2 36308}#
- (cons (car #{w2 36308}#)
- (let ((#{m2 36325}#
- (cdr #{w2
36308}#)))
- (if (null? #{m2 36325}#)
- #{s1 36310}#
+ (let ((#{expression 36596}#
+ (vector-ref #{x 36578}# 1))
+ (#{wrap 36597}#
+ (let ((#{w2 36605}#
+ (vector-ref #{x 36578}# 2)))
+ (let ((#{m1 36606}# (car #{w 36574}#))
+ (#{s1 36607}# (cdr #{w 36574}#)))
+ (if (null? #{m1 36606}#)
+ (if (null? #{s1 36607}#)
+ #{w2 36605}#
+ (cons (car #{w2 36605}#)
+ (let ((#{m2 36622}#
+ (cdr #{w2
36605}#)))
+ (if (null? #{m2 36622}#)
+ #{s1 36607}#
(append
- #{s1 36310}#
- #{m2 36325}#)))))
- (cons (let ((#{m2 36333}#
- (car #{w2 36308}#)))
- (if (null? #{m2 36333}#)
- #{m1 36309}#
+ #{s1 36607}#
+ #{m2 36622}#)))))
+ (cons (let ((#{m2 36630}#
+ (car #{w2 36605}#)))
+ (if (null? #{m2 36630}#)
+ #{m1 36606}#
(append
- #{m1 36309}#
- #{m2 36333}#)))
- (let ((#{m2 36341}#
- (cdr #{w2 36308}#)))
- (if (null? #{m2 36341}#)
- #{s1 36310}#
+ #{m1 36606}#
+ #{m2 36630}#)))
+ (let ((#{m2 36638}#
+ (cdr #{w2 36605}#)))
+ (if (null? #{m2 36638}#)
+ #{s1 36607}#
(append
- #{s1 36310}#
- #{m2 36341}#))))))))
- (#{module 36301}#
- (vector-ref #{x 36281}# 3)))
+ #{s1 36607}#
+ #{m2 36638}#))))))))
+ (#{module 36598}#
+ (vector-ref #{x 36578}# 3)))
(vector
'syntax-object
- #{expression 36299}#
- #{wrap 36300}#
- #{module 36301}#))
- (if (null? #{x 36281}#)
- #{x 36281}#
+ #{expression 36596}#
+ #{wrap 36597}#
+ #{module 36598}#))
+ (if (null? #{x 36578}#)
+ #{x 36578}#
(vector
'syntax-object
- #{x 36281}#
- #{w 36277}#
+ #{x 36578}#
+ #{w 36574}#
#f)))))
- #{ls 36276}#)
- #{w 36277}#)
- (if (if (symbol? #{vars 36275}#)
+ #{ls 36573}#)
+ #{w 36574}#)
+ (if (if (symbol? #{vars 36572}#)
#t
- (if (if (vector? #{vars 36275}#)
- (if (= (vector-length #{vars 36275}#) 4)
- (eq? (vector-ref #{vars 36275}# 0)
+ (if (if (vector? #{vars 36572}#)
+ (if (= (vector-length #{vars 36572}#) 4)
+ (eq? (vector-ref #{vars 36572}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{vars 36275}# 1))
+ (symbol? (vector-ref #{vars 36572}# 1))
#f))
- (cons (if (if (null? (car #{w 36277}#))
- (null? (cdr #{w 36277}#))
+ (cons (if (if (null? (car #{w 36574}#))
+ (null? (cdr #{w 36574}#))
#f)
- #{vars 36275}#
- (if (if (vector? #{vars 36275}#)
- (if (= (vector-length #{vars 36275}#) 4)
- (eq? (vector-ref #{vars 36275}# 0)
+ #{vars 36572}#
+ (if (if (vector? #{vars 36572}#)
+ (if (= (vector-length #{vars 36572}#) 4)
+ (eq? (vector-ref #{vars 36572}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 36411}#
- (vector-ref #{vars 36275}# 1))
- (#{wrap 36412}#
- (let ((#{w2 36422}#
- (vector-ref #{vars 36275}# 2)))
- (let ((#{m1 36423}# (car #{w 36277}#))
- (#{s1 36424}# (cdr #{w 36277}#)))
- (if (null? #{m1 36423}#)
- (if (null? #{s1 36424}#)
- #{w2 36422}#
- (cons (car #{w2 36422}#)
- (let ((#{m2 36441}#
- (cdr #{w2 36422}#)))
- (if (null? #{m2 36441}#)
- #{s1 36424}#
+ (let ((#{expression 36708}#
+ (vector-ref #{vars 36572}# 1))
+ (#{wrap 36709}#
+ (let ((#{w2 36719}#
+ (vector-ref #{vars 36572}# 2)))
+ (let ((#{m1 36720}# (car #{w 36574}#))
+ (#{s1 36721}# (cdr #{w 36574}#)))
+ (if (null? #{m1 36720}#)
+ (if (null? #{s1 36721}#)
+ #{w2 36719}#
+ (cons (car #{w2 36719}#)
+ (let ((#{m2 36738}#
+ (cdr #{w2 36719}#)))
+ (if (null? #{m2 36738}#)
+ #{s1 36721}#
(append
- #{s1 36424}#
- #{m2 36441}#)))))
- (cons (let ((#{m2 36449}#
- (car #{w2 36422}#)))
- (if (null? #{m2 36449}#)
- #{m1 36423}#
+ #{s1 36721}#
+ #{m2 36738}#)))))
+ (cons (let ((#{m2 36746}#
+ (car #{w2 36719}#)))
+ (if (null? #{m2 36746}#)
+ #{m1 36720}#
(append
- #{m1 36423}#
- #{m2 36449}#)))
- (let ((#{m2 36457}#
- (cdr #{w2 36422}#)))
- (if (null? #{m2 36457}#)
- #{s1 36424}#
+ #{m1 36720}#
+ #{m2 36746}#)))
+ (let ((#{m2 36754}#
+ (cdr #{w2 36719}#)))
+ (if (null? #{m2 36754}#)
+ #{s1 36721}#
(append
- #{s1 36424}#
- #{m2 36457}#))))))))
- (#{module 36413}#
- (vector-ref #{vars 36275}# 3)))
+ #{s1 36721}#
+ #{m2 36754}#))))))))
+ (#{module 36710}#
+ (vector-ref #{vars 36572}# 3)))
(vector
'syntax-object
- #{expression 36411}#
- #{wrap 36412}#
- #{module 36413}#))
- (if (null? #{vars 36275}#)
- #{vars 36275}#
+ #{expression 36708}#
+ #{wrap 36709}#
+ #{module 36710}#))
+ (if (null? #{vars 36572}#)
+ #{vars 36572}#
(vector
'syntax-object
- #{vars 36275}#
- #{w 36277}#
+ #{vars 36572}#
+ #{w 36574}#
#f))))
- #{ls 36276}#)
- (if (null? #{vars 36275}#)
- #{ls 36276}#
- (if (if (vector? #{vars 36275}#)
- (if (= (vector-length #{vars 36275}#) 4)
- (eq? (vector-ref #{vars 36275}# 0)
+ #{ls 36573}#)
+ (if (null? #{vars 36572}#)
+ #{ls 36573}#
+ (if (if (vector? #{vars 36572}#)
+ (if (= (vector-length #{vars 36572}#) 4)
+ (eq? (vector-ref #{vars 36572}# 0)
'syntax-object)
#f)
#f)
- (#{lvl 36272}#
- (vector-ref #{vars 36275}# 1)
- #{ls 36276}#
- (let ((#{w2 36498}# (vector-ref #{vars 36275}# 2)))
- (let ((#{m1 36499}# (car #{w 36277}#))
- (#{s1 36500}# (cdr #{w 36277}#)))
- (if (null? #{m1 36499}#)
- (if (null? #{s1 36500}#)
- #{w2 36498}#
- (cons (car #{w2 36498}#)
- (let ((#{m2 36511}# (cdr #{w2 36498}#)))
- (if (null? #{m2 36511}#)
- #{s1 36500}#
+ (#{lvl 36569}#
+ (vector-ref #{vars 36572}# 1)
+ #{ls 36573}#
+ (let ((#{w2 36795}# (vector-ref #{vars 36572}# 2)))
+ (let ((#{m1 36796}# (car #{w 36574}#))
+ (#{s1 36797}# (cdr #{w 36574}#)))
+ (if (null? #{m1 36796}#)
+ (if (null? #{s1 36797}#)
+ #{w2 36795}#
+ (cons (car #{w2 36795}#)
+ (let ((#{m2 36808}# (cdr #{w2 36795}#)))
+ (if (null? #{m2 36808}#)
+ #{s1 36797}#
(append
- #{s1 36500}#
- #{m2 36511}#)))))
- (cons (let ((#{m2 36519}# (car #{w2 36498}#)))
- (if (null? #{m2 36519}#)
- #{m1 36499}#
- (append #{m1 36499}# #{m2 36519}#)))
- (let ((#{m2 36527}# (cdr #{w2 36498}#)))
- (if (null? #{m2 36527}#)
- #{s1 36500}#
+ #{s1 36797}#
+ #{m2 36808}#)))))
+ (cons (let ((#{m2 36816}# (car #{w2 36795}#)))
+ (if (null? #{m2 36816}#)
+ #{m1 36796}#
+ (append #{m1 36796}# #{m2 36816}#)))
+ (let ((#{m2 36824}# (cdr #{w2 36795}#)))
+ (if (null? #{m2 36824}#)
+ #{s1 36797}#
(append
- #{s1 36500}#
- #{m2 36527}#))))))))
- (cons #{vars 36275}# #{ls 36276}#))))))))
- (#{lvl 36272}# #{vars 36271}# '() '(()))))))
+ #{s1 36797}#
+ #{m2 36824}#))))))))
+ (cons #{vars 36572}# #{ls 36573}#))))))))
+ (#{lvl 36569}# #{vars 36568}# '() '(()))))))
(begin
(module-define!
(current-module)
@@ -8920,7 +8903,7 @@
'let-syntax
'local-syntax
#f))
- (#{global-extend 4341}#
+ (#{global-extend 4339}#
'core
'fluid-let-syntax
(lambda (#{e 4515}#
@@ -8938,141 +8921,141 @@
#{val 4526}#
#{e1 4527}#
#{e2 4528}#)
- (#{valid-bound-ids? 4365}# #{var 4525}#))
+ (#{valid-bound-ids? 4363}# #{var 4525}#))
#{tmp 4521}#)
#f)
(@apply
- (lambda (#{var 4611}#
- #{val 4612}#
- #{e1 4613}#
- #{e2 4614}#)
- (let ((#{names 4615}#
- (map (lambda (#{x 4881}#)
- (#{id-var-name 4362}# #{x 4881}# #{w 4517}#))
- #{var 4611}#)))
+ (lambda (#{var 4613}#
+ #{val 4614}#
+ #{e1 4615}#
+ #{e2 4616}#)
+ (let ((#{names 4617}#
+ (map (lambda (#{x 4883}#)
+ (#{id-var-name 4360}# #{x 4883}# #{w 4517}#))
+ #{var 4613}#)))
(begin
(for-each
- (lambda (#{id 4616}# #{n 4617}#)
- (let ((#{atom-key 4618}#
- (car (let ((#{t 4818}#
- (assq #{n 4617}# #{r 4516}#)))
- (if #{t 4818}#
- (cdr #{t 4818}#)
- (if (symbol? #{n 4617}#)
- (let ((#{t 4823}#
+ (lambda (#{id 4618}# #{n 4619}#)
+ (let ((#{atom-key 4620}#
+ (car (let ((#{t 4820}#
+ (assq #{n 4619}# #{r 4516}#)))
+ (if #{t 4820}#
+ (cdr #{t 4820}#)
+ (if (symbol? #{n 4619}#)
+ (let ((#{t 4825}#
(begin
(if (if (not #{mod 4519}#)
(current-module)
#f)
(warn "module system is
booted, we should have a module"
- #{n 4617}#))
- (let ((#{v 4860}#
+ #{n 4619}#))
+ (let ((#{v 4862}#
(module-variable
(if #{mod 4519}#
(resolve-module
(cdr #{mod
4519}#))
(current-module))
- #{n 4617}#)))
- (if #{v 4860}#
+ #{n 4619}#)))
+ (if #{v 4862}#
(if (variable-bound?
- #{v 4860}#)
- (let ((#{val 4869}#
+ #{v 4862}#)
+ (let ((#{val 4871}#
(variable-ref
- #{v
4860}#)))
+ #{v
4862}#)))
(if (macro?
- #{val
4869}#)
+ #{val
4871}#)
(if (macro-type
- #{val
4869}#)
+ #{val
4871}#)
(cons
(macro-type
- #{val
4869}#)
+ #{val
4871}#)
(macro-binding
- #{val
4869}#))
+ #{val
4871}#))
#f)
#f))
#f)
#f)))))
- (if #{t 4823}#
- #{t 4823}#
+ (if #{t 4825}#
+ #{t 4825}#
'(global)))
'(displaced-lexical)))))))
- (if (let ((#{t 4651}# #{atom-key 4618}#))
- (eqv? #{t 4651}# 'displaced-lexical))
+ (if (let ((#{t 4653}# #{atom-key 4620}#))
+ (eqv? #{t 4653}# 'displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
#{e 4515}#
- (let ((#{x 4723}#
+ (let ((#{x 4725}#
(begin
- (if (if (pair? #{id 4616}#)
+ (if (if (pair? #{id 4618}#)
#{s 4518}#
#f)
(set-source-properties!
- #{id 4616}#
+ #{id 4618}#
#{s 4518}#))
- #{id 4616}#)))
+ #{id 4618}#)))
(if (if (null? (car #{w 4517}#))
(null? (cdr #{w 4517}#))
#f)
- #{x 4723}#
- (if (if (vector? #{x 4723}#)
- (if (= (vector-length #{x 4723}#) 4)
- (eq? (vector-ref #{x 4723}# 0)
+ #{x 4725}#
+ (if (if (vector? #{x 4725}#)
+ (if (= (vector-length #{x 4725}#) 4)
+ (eq? (vector-ref #{x 4725}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 4755}#
- (vector-ref #{x 4723}# 1))
- (#{wrap 4756}#
- (let ((#{w2 4764}#
- (vector-ref #{x 4723}# 2)))
- (let ((#{m1 4765}#
+ (let ((#{expression 4757}#
+ (vector-ref #{x 4725}# 1))
+ (#{wrap 4758}#
+ (let ((#{w2 4766}#
+ (vector-ref #{x 4725}# 2)))
+ (let ((#{m1 4767}#
(car #{w 4517}#))
- (#{s1 4766}#
+ (#{s1 4768}#
(cdr #{w 4517}#)))
- (if (null? #{m1 4765}#)
- (if (null? #{s1 4766}#)
- #{w2 4764}#
- (cons (car #{w2 4764}#)
- (let ((#{m2 4781}#
- (cdr #{w2
4764}#)))
- (if (null? #{m2
4781}#)
- #{s1 4766}#
+ (if (null? #{m1 4767}#)
+ (if (null? #{s1 4768}#)
+ #{w2 4766}#
+ (cons (car #{w2 4766}#)
+ (let ((#{m2 4783}#
+ (cdr #{w2
4766}#)))
+ (if (null? #{m2
4783}#)
+ #{s1 4768}#
(append
- #{s1 4766}#
- #{m2
4781}#)))))
- (cons (let ((#{m2 4789}#
- (car #{w2
4764}#)))
- (if (null? #{m2
4789}#)
- #{m1 4765}#
+ #{s1 4768}#
+ #{m2
4783}#)))))
+ (cons (let ((#{m2 4791}#
+ (car #{w2
4766}#)))
+ (if (null? #{m2
4791}#)
+ #{m1 4767}#
(append
- #{m1 4765}#
- #{m2 4789}#)))
- (let ((#{m2 4797}#
- (cdr #{w2
4764}#)))
- (if (null? #{m2
4797}#)
- #{s1 4766}#
+ #{m1 4767}#
+ #{m2 4791}#)))
+ (let ((#{m2 4799}#
+ (cdr #{w2
4766}#)))
+ (if (null? #{m2
4799}#)
+ #{s1 4768}#
(append
- #{s1 4766}#
- #{m2
4797}#))))))))
- (#{module 4757}#
- (vector-ref #{x 4723}# 3)))
+ #{s1 4768}#
+ #{m2
4799}#))))))))
+ (#{module 4759}#
+ (vector-ref #{x 4725}# 3)))
(vector
'syntax-object
- #{expression 4755}#
- #{wrap 4756}#
- #{module 4757}#))
- (if (null? #{x 4723}#)
- #{x 4723}#
+ #{expression 4757}#
+ #{wrap 4758}#
+ #{module 4759}#))
+ (if (null? #{x 4725}#)
+ #{x 4725}#
(vector
'syntax-object
- #{x 4723}#
+ #{x 4725}#
#{w 4517}#
#{mod 4519}#)))))))))
- #{var 4611}#
- #{names 4615}#)
- (#{chi-body 4379}#
- (cons #{e1 4613}# #{e2 4614}#)
- (let ((#{x 4894}#
+ #{var 4613}#
+ #{names 4617}#)
+ (#{chi-body 4377}#
+ (cons #{e1 4615}# #{e2 4616}#)
+ (let ((#{x 4896}#
(begin
(if (if (pair? #{e 4515}#) #{s 4518}# #f)
(set-source-properties!
@@ -9082,72 +9065,72 @@
(if (if (null? (car #{w 4517}#))
(null? (cdr #{w 4517}#))
#f)
- #{x 4894}#
- (if (if (vector? #{x 4894}#)
- (if (= (vector-length #{x 4894}#) 4)
- (eq? (vector-ref #{x 4894}# 0)
+ #{x 4896}#
+ (if (if (vector? #{x 4896}#)
+ (if (= (vector-length #{x 4896}#) 4)
+ (eq? (vector-ref #{x 4896}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 4926}#
- (vector-ref #{x 4894}# 1))
- (#{wrap 4927}#
- (let ((#{w2 4935}#
- (vector-ref #{x 4894}# 2)))
- (let ((#{m1 4936}# (car #{w 4517}#))
- (#{s1 4937}# (cdr #{w 4517}#)))
- (if (null? #{m1 4936}#)
- (if (null? #{s1 4937}#)
- #{w2 4935}#
- (cons (car #{w2 4935}#)
- (let ((#{m2 4952}#
- (cdr #{w2 4935}#)))
- (if (null? #{m2 4952}#)
- #{s1 4937}#
+ (let ((#{expression 4928}#
+ (vector-ref #{x 4896}# 1))
+ (#{wrap 4929}#
+ (let ((#{w2 4937}#
+ (vector-ref #{x 4896}# 2)))
+ (let ((#{m1 4938}# (car #{w 4517}#))
+ (#{s1 4939}# (cdr #{w 4517}#)))
+ (if (null? #{m1 4938}#)
+ (if (null? #{s1 4939}#)
+ #{w2 4937}#
+ (cons (car #{w2 4937}#)
+ (let ((#{m2 4954}#
+ (cdr #{w2 4937}#)))
+ (if (null? #{m2 4954}#)
+ #{s1 4939}#
(append
- #{s1 4937}#
- #{m2 4952}#)))))
- (cons (let ((#{m2 4960}#
- (car #{w2 4935}#)))
- (if (null? #{m2 4960}#)
- #{m1 4936}#
+ #{s1 4939}#
+ #{m2 4954}#)))))
+ (cons (let ((#{m2 4962}#
+ (car #{w2 4937}#)))
+ (if (null? #{m2 4962}#)
+ #{m1 4938}#
(append
- #{m1 4936}#
- #{m2 4960}#)))
- (let ((#{m2 4968}#
- (cdr #{w2 4935}#)))
- (if (null? #{m2 4968}#)
- #{s1 4937}#
+ #{m1 4938}#
+ #{m2 4962}#)))
+ (let ((#{m2 4970}#
+ (cdr #{w2 4937}#)))
+ (if (null? #{m2 4970}#)
+ #{s1 4939}#
(append
- #{s1 4937}#
- #{m2 4968}#))))))))
- (#{module 4928}# (vector-ref #{x 4894}# 3)))
+ #{s1 4939}#
+ #{m2 4970}#))))))))
+ (#{module 4930}# (vector-ref #{x 4896}# 3)))
(vector
'syntax-object
- #{expression 4926}#
- #{wrap 4927}#
- #{module 4928}#))
- (if (null? #{x 4894}#)
- #{x 4894}#
+ #{expression 4928}#
+ #{wrap 4929}#
+ #{module 4930}#))
+ (if (null? #{x 4896}#)
+ #{x 4896}#
(vector
'syntax-object
- #{x 4894}#
+ #{x 4896}#
#{w 4517}#
#{mod 4519}#)))))
- (#{extend-env 4337}#
- #{names 4615}#
- (let ((#{trans-r 5046}#
- (#{macros-only-env 4339}# #{r 4516}#)))
- (map (lambda (#{x 5047}#)
+ (#{extend-env 4335}#
+ #{names 4617}#
+ (let ((#{trans-r 5048}#
+ (#{macros-only-env 4337}# #{r 4516}#)))
+ (map (lambda (#{x 5049}#)
(cons 'macro
- (#{eval-local-transformer 4381}#
- (#{chi 4375}#
- #{x 5047}#
- #{trans-r 5046}#
+ (#{eval-local-transformer 4379}#
+ (#{chi 4373}#
+ #{x 5049}#
+ #{trans-r 5048}#
#{w 4517}#
#{mod 4519}#)
#{mod 4519}#)))
- #{val 4612}#))
+ #{val 4614}#))
#{r 4516}#)
#{w 4517}#
#{mod 4519}#))))
@@ -9155,7 +9138,7 @@
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (let ((#{x 5261}#
+ (let ((#{x 5265}#
(begin
(if (if (pair? #{e 4515}#) #{s 4518}# #f)
(set-source-properties! #{e 4515}# #{s 4518}#))
@@ -9163,49 +9146,49 @@
(if (if (null? (car #{w 4517}#))
(null? (cdr #{w 4517}#))
#f)
- #{x 5261}#
- (if (if (vector? #{x 5261}#)
- (if (= (vector-length #{x 5261}#) 4)
- (eq? (vector-ref #{x 5261}# 0) 'syntax-object)
+ #{x 5265}#
+ (if (if (vector? #{x 5265}#)
+ (if (= (vector-length #{x 5265}#) 4)
+ (eq? (vector-ref #{x 5265}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 5293}# (vector-ref #{x 5261}# 1))
- (#{wrap 5294}#
- (let ((#{w2 5302}# (vector-ref #{x 5261}# 2)))
- (let ((#{m1 5303}# (car #{w 4517}#))
- (#{s1 5304}# (cdr #{w 4517}#)))
- (if (null? #{m1 5303}#)
- (if (null? #{s1 5304}#)
- #{w2 5302}#
- (cons (car #{w2 5302}#)
- (let ((#{m2 5319}#
- (cdr #{w2 5302}#)))
- (if (null? #{m2 5319}#)
- #{s1 5304}#
+ (let ((#{expression 5297}# (vector-ref #{x 5265}# 1))
+ (#{wrap 5298}#
+ (let ((#{w2 5306}# (vector-ref #{x 5265}# 2)))
+ (let ((#{m1 5307}# (car #{w 4517}#))
+ (#{s1 5308}# (cdr #{w 4517}#)))
+ (if (null? #{m1 5307}#)
+ (if (null? #{s1 5308}#)
+ #{w2 5306}#
+ (cons (car #{w2 5306}#)
+ (let ((#{m2 5323}#
+ (cdr #{w2 5306}#)))
+ (if (null? #{m2 5323}#)
+ #{s1 5308}#
(append
- #{s1 5304}#
- #{m2 5319}#)))))
- (cons (let ((#{m2 5327}# (car #{w2 5302}#)))
- (if (null? #{m2 5327}#)
- #{m1 5303}#
- (append #{m1 5303}# #{m2 5327}#)))
- (let ((#{m2 5335}# (cdr #{w2 5302}#)))
- (if (null? #{m2 5335}#)
- #{s1 5304}#
+ #{s1 5308}#
+ #{m2 5323}#)))))
+ (cons (let ((#{m2 5331}# (car #{w2 5306}#)))
+ (if (null? #{m2 5331}#)
+ #{m1 5307}#
+ (append #{m1 5307}# #{m2 5331}#)))
+ (let ((#{m2 5339}# (cdr #{w2 5306}#)))
+ (if (null? #{m2 5339}#)
+ #{s1 5308}#
(append
- #{s1 5304}#
- #{m2 5335}#))))))))
- (#{module 5295}# (vector-ref #{x 5261}# 3)))
+ #{s1 5308}#
+ #{m2 5339}#))))))))
+ (#{module 5299}# (vector-ref #{x 5265}# 3)))
(vector
'syntax-object
- #{expression 5293}#
- #{wrap 5294}#
- #{module 5295}#))
- (if (null? #{x 5261}#)
- #{x 5261}#
+ #{expression 5297}#
+ #{wrap 5298}#
+ #{module 5299}#))
+ (if (null? #{x 5265}#)
+ #{x 5265}#
(vector
'syntax-object
- #{x 5261}#
+ #{x 5265}#
#{w 4517}#
#{mod 4519}#))))))))))
(module-define!
@@ -9214,1807 +9197,1807 @@
(make-syntax-transformer
'quote
'core
- (lambda (#{e 5363}#
- #{r 5364}#
- #{w 5365}#
- #{s 5366}#
- #{mod 5367}#)
- (let ((#{tmp 5369}# ($sc-dispatch #{e 5363}# '(_ any))))
- (if #{tmp 5369}#
+ (lambda (#{e 5367}#
+ #{r 5368}#
+ #{w 5369}#
+ #{s 5370}#
+ #{mod 5371}#)
+ (let ((#{tmp 5373}# ($sc-dispatch #{e 5367}# '(_ any))))
+ (if #{tmp 5373}#
(@apply
- (lambda (#{e 5372}#)
- (let ((#{exp 5376}#
- (#{strip 4388}# #{e 5372}# #{w 5365}#)))
+ (lambda (#{e 5376}#)
+ (let ((#{exp 5380}#
+ (#{strip 4386}# #{e 5376}# #{w 5369}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 5366}#
- #{exp 5376}#)))
- #{tmp 5369}#)
+ #{s 5370}#
+ #{exp 5380}#)))
+ #{tmp 5373}#)
(syntax-violation
'quote
"bad syntax"
- (let ((#{x 5390}#
+ (let ((#{x 5394}#
(begin
- (if (if (pair? #{e 5363}#) #{s 5366}# #f)
- (set-source-properties! #{e 5363}# #{s 5366}#))
- #{e 5363}#)))
- (if (if (null? (car #{w 5365}#))
- (null? (cdr #{w 5365}#))
+ (if (if (pair? #{e 5367}#) #{s 5370}# #f)
+ (set-source-properties! #{e 5367}# #{s 5370}#))
+ #{e 5367}#)))
+ (if (if (null? (car #{w 5369}#))
+ (null? (cdr #{w 5369}#))
#f)
- #{x 5390}#
- (if (if (vector? #{x 5390}#)
- (if (= (vector-length #{x 5390}#) 4)
- (eq? (vector-ref #{x 5390}# 0) 'syntax-object)
+ #{x 5394}#
+ (if (if (vector? #{x 5394}#)
+ (if (= (vector-length #{x 5394}#) 4)
+ (eq? (vector-ref #{x 5394}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 5422}# (vector-ref #{x 5390}# 1))
- (#{wrap 5423}#
- (let ((#{w2 5431}# (vector-ref #{x 5390}# 2)))
- (let ((#{m1 5432}# (car #{w 5365}#))
- (#{s1 5433}# (cdr #{w 5365}#)))
- (if (null? #{m1 5432}#)
- (if (null? #{s1 5433}#)
- #{w2 5431}#
- (cons (car #{w2 5431}#)
- (let ((#{m2 5448}#
- (cdr #{w2 5431}#)))
- (if (null? #{m2 5448}#)
- #{s1 5433}#
+ (let ((#{expression 5426}# (vector-ref #{x 5394}# 1))
+ (#{wrap 5427}#
+ (let ((#{w2 5435}# (vector-ref #{x 5394}# 2)))
+ (let ((#{m1 5436}# (car #{w 5369}#))
+ (#{s1 5437}# (cdr #{w 5369}#)))
+ (if (null? #{m1 5436}#)
+ (if (null? #{s1 5437}#)
+ #{w2 5435}#
+ (cons (car #{w2 5435}#)
+ (let ((#{m2 5452}#
+ (cdr #{w2 5435}#)))
+ (if (null? #{m2 5452}#)
+ #{s1 5437}#
(append
- #{s1 5433}#
- #{m2 5448}#)))))
- (cons (let ((#{m2 5456}#
- (car #{w2 5431}#)))
- (if (null? #{m2 5456}#)
- #{m1 5432}#
+ #{s1 5437}#
+ #{m2 5452}#)))))
+ (cons (let ((#{m2 5460}#
+ (car #{w2 5435}#)))
+ (if (null? #{m2 5460}#)
+ #{m1 5436}#
(append
- #{m1 5432}#
- #{m2 5456}#)))
- (let ((#{m2 5464}#
- (cdr #{w2 5431}#)))
- (if (null? #{m2 5464}#)
- #{s1 5433}#
+ #{m1 5436}#
+ #{m2 5460}#)))
+ (let ((#{m2 5468}#
+ (cdr #{w2 5435}#)))
+ (if (null? #{m2 5468}#)
+ #{s1 5437}#
(append
- #{s1 5433}#
- #{m2 5464}#))))))))
- (#{module 5424}# (vector-ref #{x 5390}# 3)))
+ #{s1 5437}#
+ #{m2 5468}#))))))))
+ (#{module 5428}# (vector-ref #{x 5394}# 3)))
(vector
'syntax-object
- #{expression 5422}#
- #{wrap 5423}#
- #{module 5424}#))
- (if (null? #{x 5390}#)
- #{x 5390}#
+ #{expression 5426}#
+ #{wrap 5427}#
+ #{module 5428}#))
+ (if (null? #{x 5394}#)
+ #{x 5394}#
(vector
'syntax-object
- #{x 5390}#
- #{w 5365}#
- #{mod 5367}#)))))))))))
- (#{global-extend 4341}#
+ #{x 5394}#
+ #{w 5369}#
+ #{mod 5371}#)))))))))))
+ (#{global-extend 4339}#
'core
'syntax
(letrec*
- ((#{gen-syntax 5704}#
- (lambda (#{src 6157}#
- #{e 6158}#
- #{r 6159}#
- #{maps 6160}#
- #{ellipsis? 6161}#
- #{mod 6162}#)
- (if (if (symbol? #{e 6158}#)
+ ((#{gen-syntax 5708}#
+ (lambda (#{src 6171}#
+ #{e 6172}#
+ #{r 6173}#
+ #{maps 6174}#
+ #{ellipsis? 6175}#
+ #{mod 6176}#)
+ (if (if (symbol? #{e 6172}#)
#t
- (if (if (vector? #{e 6158}#)
- (if (= (vector-length #{e 6158}#) 4)
- (eq? (vector-ref #{e 6158}# 0) 'syntax-object)
+ (if (if (vector? #{e 6172}#)
+ (if (= (vector-length #{e 6172}#) 4)
+ (eq? (vector-ref #{e 6172}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 6158}# 1))
+ (symbol? (vector-ref #{e 6172}# 1))
#f))
- (let ((#{label 6189}#
- (#{id-var-name 4362}# #{e 6158}# '(()))))
- (let ((#{b 6190}#
- (let ((#{t 6327}# (assq #{label 6189}# #{r 6159}#)))
- (if #{t 6327}#
- (cdr #{t 6327}#)
- (if (symbol? #{label 6189}#)
- (let ((#{t 6332}#
+ (let ((#{label 6203}#
+ (#{id-var-name 4360}# #{e 6172}# '(()))))
+ (let ((#{b 6204}#
+ (let ((#{t 6341}# (assq #{label 6203}# #{r 6173}#)))
+ (if #{t 6341}#
+ (cdr #{t 6341}#)
+ (if (symbol? #{label 6203}#)
+ (let ((#{t 6346}#
(begin
- (if (if (not #{mod 6162}#)
+ (if (if (not #{mod 6176}#)
(current-module)
#f)
(warn "module system is booted, we
should have a module"
- #{label 6189}#))
- (let ((#{v 6369}#
+ #{label 6203}#))
+ (let ((#{v 6383}#
(module-variable
- (if #{mod 6162}#
+ (if #{mod 6176}#
(resolve-module
- (cdr #{mod 6162}#))
+ (cdr #{mod 6176}#))
(current-module))
- #{label 6189}#)))
- (if #{v 6369}#
- (if (variable-bound? #{v 6369}#)
- (let ((#{val 6378}#
+ #{label 6203}#)))
+ (if #{v 6383}#
+ (if (variable-bound? #{v 6383}#)
+ (let ((#{val 6392}#
(variable-ref
- #{v 6369}#)))
- (if (macro? #{val 6378}#)
+ #{v 6383}#)))
+ (if (macro? #{val 6392}#)
(if (macro-type
- #{val 6378}#)
+ #{val 6392}#)
(cons (macro-type
- #{val 6378}#)
+ #{val 6392}#)
(macro-binding
- #{val 6378}#))
+ #{val 6392}#))
#f)
#f))
#f)
#f)))))
- (if #{t 6332}# #{t 6332}# '(global)))
+ (if #{t 6346}# #{t 6346}# '(global)))
'(displaced-lexical))))))
- (if (eq? (car #{b 6190}#) 'syntax)
+ (if (eq? (car #{b 6204}#) 'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev 6223}# (cdr #{b 6190}#)))
- (#{gen-ref 5705}#
- #{src 6157}#
- (car #{var.lev 6223}#)
- (cdr #{var.lev 6223}#)
- #{maps 6160}#)))
- (lambda (#{var 6319}# #{maps 6320}#)
- (values (list 'ref #{var 6319}#) #{maps 6320}#)))
- (if (#{ellipsis? 6161}# #{e 6158}#)
+ (let ((#{var.lev 6237}# (cdr #{b 6204}#)))
+ (#{gen-ref 5709}#
+ #{src 6171}#
+ (car #{var.lev 6237}#)
+ (cdr #{var.lev 6237}#)
+ #{maps 6174}#)))
+ (lambda (#{var 6333}# #{maps 6334}#)
+ (values (list 'ref #{var 6333}#) #{maps 6334}#)))
+ (if (#{ellipsis? 6175}# #{e 6172}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src 6157}#)
- (values (list 'quote #{e 6158}#) #{maps 6160}#)))))
- (let ((#{tmp 6390}#
- ($sc-dispatch #{e 6158}# '(any any))))
- (if (if #{tmp 6390}#
+ #{src 6171}#)
+ (values (list 'quote #{e 6172}#) #{maps 6174}#)))))
+ (let ((#{tmp 6404}#
+ ($sc-dispatch #{e 6172}# '(any any))))
+ (if (if #{tmp 6404}#
(@apply
- (lambda (#{dots 6394}# #{e 6395}#)
- (#{ellipsis? 6161}# #{dots 6394}#))
- #{tmp 6390}#)
+ (lambda (#{dots 6408}# #{e 6409}#)
+ (#{ellipsis? 6175}# #{dots 6408}#))
+ #{tmp 6404}#)
#f)
(@apply
- (lambda (#{dots 6396}# #{e 6397}#)
- (#{gen-syntax 5704}#
- #{src 6157}#
- #{e 6397}#
- #{r 6159}#
- #{maps 6160}#
- (lambda (#{x 6398}#) #f)
- #{mod 6162}#))
- #{tmp 6390}#)
- (let ((#{tmp 6399}#
- ($sc-dispatch #{e 6158}# '(any any . any))))
- (if (if #{tmp 6399}#
+ (lambda (#{dots 6410}# #{e 6411}#)
+ (#{gen-syntax 5708}#
+ #{src 6171}#
+ #{e 6411}#
+ #{r 6173}#
+ #{maps 6174}#
+ (lambda (#{x 6412}#) #f)
+ #{mod 6176}#))
+ #{tmp 6404}#)
+ (let ((#{tmp 6413}#
+ ($sc-dispatch #{e 6172}# '(any any . any))))
+ (if (if #{tmp 6413}#
(@apply
- (lambda (#{x 6403}# #{dots 6404}# #{y 6405}#)
- (#{ellipsis? 6161}# #{dots 6404}#))
- #{tmp 6399}#)
+ (lambda (#{x 6417}# #{dots 6418}# #{y 6419}#)
+ (#{ellipsis? 6175}# #{dots 6418}#))
+ #{tmp 6413}#)
#f)
(@apply
- (lambda (#{x 6406}# #{dots 6407}# #{y 6408}#)
+ (lambda (#{x 6420}# #{dots 6421}# #{y 6422}#)
(letrec*
- ((#{f 6409}#
- (lambda (#{y 6417}# #{k 6418}#)
- (let ((#{tmp 6420}#
+ ((#{f 6423}#
+ (lambda (#{y 6431}# #{k 6432}#)
+ (let ((#{tmp 6434}#
($sc-dispatch
- #{y 6417}#
+ #{y 6431}#
'(any . any))))
- (if (if #{tmp 6420}#
+ (if (if #{tmp 6434}#
(@apply
- (lambda (#{dots 6424}# #{y 6425}#)
- (#{ellipsis? 6161}#
- #{dots 6424}#))
- #{tmp 6420}#)
+ (lambda (#{dots 6438}# #{y 6439}#)
+ (#{ellipsis? 6175}#
+ #{dots 6438}#))
+ #{tmp 6434}#)
#f)
(@apply
- (lambda (#{dots 6426}# #{y 6427}#)
- (#{f 6409}#
- #{y 6427}#
- (lambda (#{maps 6428}#)
+ (lambda (#{dots 6440}# #{y 6441}#)
+ (#{f 6423}#
+ #{y 6441}#
+ (lambda (#{maps 6442}#)
(call-with-values
(lambda ()
- (#{k 6418}#
- (cons '() #{maps 6428}#)))
- (lambda (#{x 6429}#
- #{maps 6430}#)
- (if (null? (car #{maps
6430}#))
+ (#{k 6432}#
+ (cons '() #{maps 6442}#)))
+ (lambda (#{x 6443}#
+ #{maps 6444}#)
+ (if (null? (car #{maps
6444}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 6157}#)
+ #{src 6171}#)
(values
- (let ((#{map-env 6434}#
- (car #{maps
6430}#)))
+ (let ((#{map-env 6448}#
+ (car #{maps
6444}#)))
(list 'apply
'(primitive
append)
- (#{gen-map 5707}#
- #{x 6429}#
- #{map-env
6434}#)))
- (cdr #{maps
6430}#))))))))
- #{tmp 6420}#)
+ (#{gen-map 5711}#
+ #{x 6443}#
+ #{map-env
6448}#)))
+ (cdr #{maps
6444}#))))))))
+ #{tmp 6434}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5704}#
- #{src 6157}#
- #{y 6417}#
- #{r 6159}#
- #{maps 6160}#
- #{ellipsis? 6161}#
- #{mod 6162}#))
- (lambda (#{y 6437}# #{maps 6438}#)
+ (#{gen-syntax 5708}#
+ #{src 6171}#
+ #{y 6431}#
+ #{r 6173}#
+ #{maps 6174}#
+ #{ellipsis? 6175}#
+ #{mod 6176}#))
+ (lambda (#{y 6451}# #{maps 6452}#)
(call-with-values
(lambda ()
- (#{k 6418}# #{maps 6438}#))
- (lambda (#{x 6439}# #{maps 6440}#)
+ (#{k 6432}# #{maps 6452}#))
+ (lambda (#{x 6453}# #{maps 6454}#)
(values
- (if (equal? #{y 6437}# ''())
- #{x 6439}#
+ (if (equal? #{y 6451}# ''())
+ #{x 6453}#
(list 'append
- #{x 6439}#
- #{y 6437}#))
- #{maps 6440}#))))))))))
- (#{f 6409}#
- #{y 6408}#
- (lambda (#{maps 6412}#)
+ #{x 6453}#
+ #{y 6451}#))
+ #{maps 6454}#))))))))))
+ (#{f 6423}#
+ #{y 6422}#
+ (lambda (#{maps 6426}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5704}#
- #{src 6157}#
- #{x 6406}#
- #{r 6159}#
- (cons '() #{maps 6412}#)
- #{ellipsis? 6161}#
- #{mod 6162}#))
- (lambda (#{x 6413}# #{maps 6414}#)
- (if (null? (car #{maps 6414}#))
+ (#{gen-syntax 5708}#
+ #{src 6171}#
+ #{x 6420}#
+ #{r 6173}#
+ (cons '() #{maps 6426}#)
+ #{ellipsis? 6175}#
+ #{mod 6176}#))
+ (lambda (#{x 6427}# #{maps 6428}#)
+ (if (null? (car #{maps 6428}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 6157}#)
+ #{src 6171}#)
(values
- (#{gen-map 5707}#
- #{x 6413}#
- (car #{maps 6414}#))
- (cdr #{maps 6414}#)))))))))
- #{tmp 6399}#)
- (let ((#{tmp 6456}#
- ($sc-dispatch #{e 6158}# '(any . any))))
- (if #{tmp 6456}#
+ (#{gen-map 5711}#
+ #{x 6427}#
+ (car #{maps 6428}#))
+ (cdr #{maps 6428}#)))))))))
+ #{tmp 6413}#)
+ (let ((#{tmp 6470}#
+ ($sc-dispatch #{e 6172}# '(any . any))))
+ (if #{tmp 6470}#
(@apply
- (lambda (#{x 6460}# #{y 6461}#)
+ (lambda (#{x 6474}# #{y 6475}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5704}#
- #{src 6157}#
- #{x 6460}#
- #{r 6159}#
- #{maps 6160}#
- #{ellipsis? 6161}#
- #{mod 6162}#))
- (lambda (#{x 6462}# #{maps 6463}#)
+ (#{gen-syntax 5708}#
+ #{src 6171}#
+ #{x 6474}#
+ #{r 6173}#
+ #{maps 6174}#
+ #{ellipsis? 6175}#
+ #{mod 6176}#))
+ (lambda (#{x 6476}# #{maps 6477}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5704}#
- #{src 6157}#
- #{y 6461}#
- #{r 6159}#
- #{maps 6463}#
- #{ellipsis? 6161}#
- #{mod 6162}#))
- (lambda (#{y 6464}# #{maps 6465}#)
+ (#{gen-syntax 5708}#
+ #{src 6171}#
+ #{y 6475}#
+ #{r 6173}#
+ #{maps 6477}#
+ #{ellipsis? 6175}#
+ #{mod 6176}#))
+ (lambda (#{y 6478}# #{maps 6479}#)
(values
- (let ((#{atom-key 6470}#
- (car #{y 6464}#)))
- (if (eqv? #{atom-key 6470}# 'quote)
- (if (eq? (car #{x 6462}#) 'quote)
+ (let ((#{atom-key 6484}#
+ (car #{y 6478}#)))
+ (if (eqv? #{atom-key 6484}# 'quote)
+ (if (eq? (car #{x 6476}#) 'quote)
(list 'quote
- (cons (car (cdr #{x
6462}#))
- (car (cdr #{y
6464}#))))
- (if (eq? (car (cdr #{y 6464}#))
+ (cons (car (cdr #{x
6476}#))
+ (car (cdr #{y
6478}#))))
+ (if (eq? (car (cdr #{y 6478}#))
'())
- (list 'list #{x 6462}#)
+ (list 'list #{x 6476}#)
(list 'cons
- #{x 6462}#
- #{y 6464}#)))
- (if (eqv? #{atom-key 6470}# 'list)
+ #{x 6476}#
+ #{y 6478}#)))
+ (if (eqv? #{atom-key 6484}# 'list)
(cons 'list
- (cons #{x 6462}#
- (cdr #{y 6464}#)))
+ (cons #{x 6476}#
+ (cdr #{y 6478}#)))
(list 'cons
- #{x 6462}#
- #{y 6464}#))))
- #{maps 6465}#))))))
- #{tmp 6456}#)
- (let ((#{tmp 6499}#
+ #{x 6476}#
+ #{y 6478}#))))
+ #{maps 6479}#))))))
+ #{tmp 6470}#)
+ (let ((#{tmp 6513}#
($sc-dispatch
- #{e 6158}#
+ #{e 6172}#
'#(vector (any . each-any)))))
- (if #{tmp 6499}#
+ (if #{tmp 6513}#
(@apply
- (lambda (#{e1 6503}# #{e2 6504}#)
+ (lambda (#{e1 6517}# #{e2 6518}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5704}#
- #{src 6157}#
- (cons #{e1 6503}# #{e2 6504}#)
- #{r 6159}#
- #{maps 6160}#
- #{ellipsis? 6161}#
- #{mod 6162}#))
- (lambda (#{e 6505}# #{maps 6506}#)
+ (#{gen-syntax 5708}#
+ #{src 6171}#
+ (cons #{e1 6517}# #{e2 6518}#)
+ #{r 6173}#
+ #{maps 6174}#
+ #{ellipsis? 6175}#
+ #{mod 6176}#))
+ (lambda (#{e 6519}# #{maps 6520}#)
(values
- (if (eq? (car #{e 6505}#) 'list)
- (cons 'vector (cdr #{e 6505}#))
- (if (eq? (car #{e 6505}#) 'quote)
+ (if (eq? (car #{e 6519}#) 'list)
+ (cons 'vector (cdr #{e 6519}#))
+ (if (eq? (car #{e 6519}#) 'quote)
(list 'quote
(list->vector
- (car (cdr #{e 6505}#))))
- (list 'list->vector #{e 6505}#)))
- #{maps 6506}#))))
- #{tmp 6499}#)
+ (car (cdr #{e 6519}#))))
+ (list 'list->vector #{e 6519}#)))
+ #{maps 6520}#))))
+ #{tmp 6513}#)
(values
- (list 'quote #{e 6158}#)
- #{maps 6160}#))))))))))))
- (#{gen-ref 5705}#
- (lambda (#{src 6533}#
- #{var 6534}#
- #{level 6535}#
- #{maps 6536}#)
- (if (= #{level 6535}# 0)
- (values #{var 6534}# #{maps 6536}#)
- (if (null? #{maps 6536}#)
+ (list 'quote #{e 6172}#)
+ #{maps 6174}#))))))))))))
+ (#{gen-ref 5709}#
+ (lambda (#{src 6547}#
+ #{var 6548}#
+ #{level 6549}#
+ #{maps 6550}#)
+ (if (= #{level 6549}# 0)
+ (values #{var 6548}# #{maps 6550}#)
+ (if (null? #{maps 6550}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src 6533}#)
+ #{src 6547}#)
(call-with-values
(lambda ()
- (#{gen-ref 5705}#
- #{src 6533}#
- #{var 6534}#
- (#{1-}# #{level 6535}#)
- (cdr #{maps 6536}#)))
- (lambda (#{outer-var 6537}# #{outer-maps 6538}#)
- (let ((#{b 6539}#
- (assq #{outer-var 6537}# (car #{maps 6536}#))))
- (if #{b 6539}#
- (values (cdr #{b 6539}#) #{maps 6536}#)
- (let ((#{inner-var 6541}#
+ (#{gen-ref 5709}#
+ #{src 6547}#
+ #{var 6548}#
+ (#{1-}# #{level 6549}#)
+ (cdr #{maps 6550}#)))
+ (lambda (#{outer-var 6551}# #{outer-maps 6552}#)
+ (let ((#{b 6553}#
+ (assq #{outer-var 6551}# (car #{maps 6550}#))))
+ (if #{b 6553}#
+ (values (cdr #{b 6553}#) #{maps 6550}#)
+ (let ((#{inner-var 6555}#
(gensym
(string-append (symbol->string 'tmp) " "))))
(values
- #{inner-var 6541}#
- (cons (cons (cons #{outer-var 6537}#
- #{inner-var 6541}#)
- (car #{maps 6536}#))
- #{outer-maps 6538}#)))))))))))
- (#{gen-map 5707}#
- (lambda (#{e 6555}# #{map-env 6556}#)
- (let ((#{formals 6557}# (map cdr #{map-env 6556}#))
- (#{actuals 6558}#
- (map (lambda (#{x 6560}#)
- (list 'ref (car #{x 6560}#)))
- #{map-env 6556}#)))
- (if (eq? (car #{e 6555}#) 'ref)
- (car #{actuals 6558}#)
+ #{inner-var 6555}#
+ (cons (cons (cons #{outer-var 6551}#
+ #{inner-var 6555}#)
+ (car #{maps 6550}#))
+ #{outer-maps 6552}#)))))))))))
+ (#{gen-map 5711}#
+ (lambda (#{e 6569}# #{map-env 6570}#)
+ (let ((#{formals 6571}# (map cdr #{map-env 6570}#))
+ (#{actuals 6572}#
+ (map (lambda (#{x 6574}#)
+ (list 'ref (car #{x 6574}#)))
+ #{map-env 6570}#)))
+ (if (eq? (car #{e 6569}#) 'ref)
+ (car #{actuals 6572}#)
(if (and-map
- (lambda (#{x 6561}#)
- (if (eq? (car #{x 6561}#) 'ref)
- (memq (car (cdr #{x 6561}#)) #{formals 6557}#)
+ (lambda (#{x 6575}#)
+ (if (eq? (car #{x 6575}#) 'ref)
+ (memq (car (cdr #{x 6575}#)) #{formals 6571}#)
#f))
- (cdr #{e 6555}#))
+ (cdr #{e 6569}#))
(cons 'map
- (cons (list 'primitive (car #{e 6555}#))
- (map (let ((#{r 6563}#
+ (cons (list 'primitive (car #{e 6569}#))
+ (map (let ((#{r 6577}#
(map cons
- #{formals 6557}#
- #{actuals 6558}#)))
- (lambda (#{x 6564}#)
- (cdr (assq (car (cdr #{x 6564}#))
- #{r 6563}#))))
- (cdr #{e 6555}#))))
+ #{formals 6571}#
+ #{actuals 6572}#)))
+ (lambda (#{x 6578}#)
+ (cdr (assq (car (cdr #{x 6578}#))
+ #{r 6577}#))))
+ (cdr #{e 6569}#))))
(cons 'map
- (cons (list 'lambda #{formals 6557}# #{e 6555}#)
- #{actuals 6558}#)))))))
- (#{regen 5711}#
- (lambda (#{x 6566}#)
- (let ((#{atom-key 6567}# (car #{x 6566}#)))
- (if (eqv? #{atom-key 6567}# 'ref)
- (let ((#{name 6577}# (car (cdr #{x 6566}#)))
- (#{var 6578}# (car (cdr #{x 6566}#))))
+ (cons (list 'lambda #{formals 6571}# #{e 6569}#)
+ #{actuals 6572}#)))))))
+ (#{regen 5715}#
+ (lambda (#{x 6580}#)
+ (let ((#{atom-key 6581}# (car #{x 6580}#)))
+ (if (eqv? #{atom-key 6581}# 'ref)
+ (let ((#{name 6591}# (car (cdr #{x 6580}#)))
+ (#{var 6592}# (car (cdr #{x 6580}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- #{name 6577}#
- #{var 6578}#))
- (if (eqv? #{atom-key 6567}# 'primitive)
- (let ((#{name 6589}# (car (cdr #{x 6566}#))))
+ #{name 6591}#
+ #{var 6592}#))
+ (if (eqv? #{atom-key 6581}# 'primitive)
+ (let ((#{name 6603}# (car (cdr #{x 6580}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 2)
#f
- #{name 6589}#))
- (if (eqv? #{atom-key 6567}# 'quote)
- (let ((#{exp 6600}# (car (cdr #{x 6566}#))))
+ #{name 6603}#))
+ (if (eqv? #{atom-key 6581}# 'quote)
+ (let ((#{exp 6614}# (car (cdr #{x 6580}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{exp 6600}#))
- (if (eqv? #{atom-key 6567}# 'lambda)
- (if (list? (car (cdr #{x 6566}#)))
- (let ((#{req 6611}# (car (cdr #{x 6566}#)))
- (#{vars 6613}# (car (cdr #{x 6566}#)))
- (#{exp 6615}#
- (#{regen 5711}#
- (car (cdr (cdr #{x 6566}#))))))
- (let ((#{body 6620}#
+ #{exp 6614}#))
+ (if (eqv? #{atom-key 6581}# 'lambda)
+ (if (list? (car (cdr #{x 6580}#)))
+ (let ((#{req 6625}# (car (cdr #{x 6580}#)))
+ (#{vars 6627}# (car (cdr #{x 6580}#)))
+ (#{exp 6629}#
+ (#{regen 5715}#
+ (car (cdr (cdr #{x 6580}#))))))
+ (let ((#{body 6634}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
#f
- #{req 6611}#
+ #{req 6625}#
#f
#f
#f
'()
- #{vars 6613}#
- #{exp 6615}#
+ #{vars 6627}#
+ #{exp 6629}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
'()
- #{body 6620}#)))
- (error "how did we get here" #{x 6566}#))
- (let ((#{name 6636}# (car #{x 6566}#))
- (#{args 6637}#
- (map #{regen 5711}# (cdr #{x 6566}#))))
+ #{body 6634}#)))
+ (error "how did we get here" #{x 6580}#))
+ (let ((#{name 6650}# (car #{x 6580}#))
+ (#{args 6651}#
+ (map #{regen 5715}# (cdr #{x 6580}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
- #{name 6636}#
- #{args 6637}#))))))))))
- (lambda (#{e 5712}#
- #{r 5713}#
- #{w 5714}#
- #{s 5715}#
- #{mod 5716}#)
- (let ((#{e 5717}#
- (let ((#{x 6068}#
+ #{name 6650}#
+ #{args 6651}#))))))))))
+ (lambda (#{e 5716}#
+ #{r 5717}#
+ #{w 5718}#
+ #{s 5719}#
+ #{mod 5720}#)
+ (let ((#{e 5721}#
+ (let ((#{x 6082}#
(begin
- (if (if (pair? #{e 5712}#) #{s 5715}# #f)
- (set-source-properties! #{e 5712}# #{s 5715}#))
- #{e 5712}#)))
- (if (if (null? (car #{w 5714}#))
- (null? (cdr #{w 5714}#))
+ (if (if (pair? #{e 5716}#) #{s 5719}# #f)
+ (set-source-properties! #{e 5716}# #{s 5719}#))
+ #{e 5716}#)))
+ (if (if (null? (car #{w 5718}#))
+ (null? (cdr #{w 5718}#))
#f)
- #{x 6068}#
- (if (if (vector? #{x 6068}#)
- (if (= (vector-length #{x 6068}#) 4)
- (eq? (vector-ref #{x 6068}# 0) 'syntax-object)
+ #{x 6082}#
+ (if (if (vector? #{x 6082}#)
+ (if (= (vector-length #{x 6082}#) 4)
+ (eq? (vector-ref #{x 6082}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 6100}# (vector-ref #{x 6068}# 1))
- (#{wrap 6101}#
- (let ((#{w2 6109}# (vector-ref #{x 6068}# 2)))
- (let ((#{m1 6110}# (car #{w 5714}#))
- (#{s1 6111}# (cdr #{w 5714}#)))
- (if (null? #{m1 6110}#)
- (if (null? #{s1 6111}#)
- #{w2 6109}#
- (cons (car #{w2 6109}#)
- (let ((#{m2 6126}#
- (cdr #{w2 6109}#)))
- (if (null? #{m2 6126}#)
- #{s1 6111}#
+ (let ((#{expression 6114}# (vector-ref #{x 6082}# 1))
+ (#{wrap 6115}#
+ (let ((#{w2 6123}# (vector-ref #{x 6082}# 2)))
+ (let ((#{m1 6124}# (car #{w 5718}#))
+ (#{s1 6125}# (cdr #{w 5718}#)))
+ (if (null? #{m1 6124}#)
+ (if (null? #{s1 6125}#)
+ #{w2 6123}#
+ (cons (car #{w2 6123}#)
+ (let ((#{m2 6140}#
+ (cdr #{w2 6123}#)))
+ (if (null? #{m2 6140}#)
+ #{s1 6125}#
(append
- #{s1 6111}#
- #{m2 6126}#)))))
- (cons (let ((#{m2 6134}#
- (car #{w2 6109}#)))
- (if (null? #{m2 6134}#)
- #{m1 6110}#
+ #{s1 6125}#
+ #{m2 6140}#)))))
+ (cons (let ((#{m2 6148}#
+ (car #{w2 6123}#)))
+ (if (null? #{m2 6148}#)
+ #{m1 6124}#
(append
- #{m1 6110}#
- #{m2 6134}#)))
- (let ((#{m2 6142}#
- (cdr #{w2 6109}#)))
- (if (null? #{m2 6142}#)
- #{s1 6111}#
+ #{m1 6124}#
+ #{m2 6148}#)))
+ (let ((#{m2 6156}#
+ (cdr #{w2 6123}#)))
+ (if (null? #{m2 6156}#)
+ #{s1 6125}#
(append
- #{s1 6111}#
- #{m2 6142}#))))))))
- (#{module 6102}# (vector-ref #{x 6068}# 3)))
+ #{s1 6125}#
+ #{m2 6156}#))))))))
+ (#{module 6116}# (vector-ref #{x 6082}# 3)))
(vector
'syntax-object
- #{expression 6100}#
- #{wrap 6101}#
- #{module 6102}#))
- (if (null? #{x 6068}#)
- #{x 6068}#
+ #{expression 6114}#
+ #{wrap 6115}#
+ #{module 6116}#))
+ (if (null? #{x 6082}#)
+ #{x 6082}#
(vector
'syntax-object
- #{x 6068}#
- #{w 5714}#
- #{mod 5716}#)))))))
- (let ((#{tmp 5718}# #{e 5717}#))
- (let ((#{tmp 5719}#
- ($sc-dispatch #{tmp 5718}# '(_ any))))
- (if #{tmp 5719}#
+ #{x 6082}#
+ #{w 5718}#
+ #{mod 5720}#)))))))
+ (let ((#{tmp 5722}# #{e 5721}#))
+ (let ((#{tmp 5723}#
+ ($sc-dispatch #{tmp 5722}# '(_ any))))
+ (if #{tmp 5723}#
(@apply
- (lambda (#{x 5767}#)
+ (lambda (#{x 5775}#)
(call-with-values
(lambda ()
- (#{gen-syntax 5704}#
- #{e 5717}#
- #{x 5767}#
- #{r 5713}#
+ (#{gen-syntax 5708}#
+ #{e 5721}#
+ #{x 5775}#
+ #{r 5717}#
'()
- #{ellipsis? 4383}#
- #{mod 5716}#))
- (lambda (#{e 5850}# #{maps 5851}#)
- (#{regen 5711}# #{e 5850}#))))
- #{tmp 5719}#)
+ #{ellipsis? 4381}#
+ #{mod 5720}#))
+ (lambda (#{e 5858}# #{maps 5859}#)
+ (#{regen 5715}# #{e 5858}#))))
+ #{tmp 5723}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e 5717}#))))))))
- (#{global-extend 4341}#
+ #{e 5721}#))))))))
+ (#{global-extend 4339}#
'core
'lambda
- (lambda (#{e 6873}#
- #{r 6874}#
- #{w 6875}#
- #{s 6876}#
- #{mod 6877}#)
- (let ((#{tmp 6879}#
- ($sc-dispatch #{e 6873}# '(_ any any . each-any))))
- (if #{tmp 6879}#
+ (lambda (#{e 6887}#
+ #{r 6888}#
+ #{w 6889}#
+ #{s 6890}#
+ #{mod 6891}#)
+ (let ((#{tmp 6893}#
+ ($sc-dispatch #{e 6887}# '(_ any any . each-any))))
+ (if #{tmp 6893}#
(@apply
- (lambda (#{args 6883}# #{e1 6884}# #{e2 6885}#)
+ (lambda (#{args 6897}# #{e1 6898}# #{e2 6899}#)
(call-with-values
(lambda ()
- (#{lambda-formals 4384}# #{args 6883}#))
- (lambda (#{req 6888}#
- #{opt 6889}#
- #{rest 6890}#
- #{kw 6891}#)
+ (#{lambda-formals 4382}# #{args 6897}#))
+ (lambda (#{req 6902}#
+ #{opt 6903}#
+ #{rest 6904}#
+ #{kw 6905}#)
(letrec*
- ((#{lp 6892}#
- (lambda (#{body 6895}# #{meta 6896}#)
- (let ((#{tmp 6898}#
+ ((#{lp 6906}#
+ (lambda (#{body 6909}# #{meta 6910}#)
+ (let ((#{tmp 6912}#
($sc-dispatch
- #{body 6895}#
+ #{body 6909}#
'(any any . each-any))))
- (if (if #{tmp 6898}#
+ (if (if #{tmp 6912}#
(@apply
- (lambda (#{docstring 6902}#
- #{e1 6903}#
- #{e2 6904}#)
+ (lambda (#{docstring 6916}#
+ #{e1 6917}#
+ #{e2 6918}#)
(string?
- (syntax->datum #{docstring 6902}#)))
- #{tmp 6898}#)
+ (syntax->datum #{docstring 6916}#)))
+ #{tmp 6912}#)
#f)
(@apply
- (lambda (#{docstring 6905}#
- #{e1 6906}#
- #{e2 6907}#)
- (#{lp 6892}#
- (cons #{e1 6906}# #{e2 6907}#)
+ (lambda (#{docstring 6919}#
+ #{e1 6920}#
+ #{e2 6921}#)
+ (#{lp 6906}#
+ (cons #{e1 6920}# #{e2 6921}#)
(append
- #{meta 6896}#
+ #{meta 6910}#
(list (cons 'documentation
(syntax->datum
- #{docstring 6905}#))))))
- #{tmp 6898}#)
- (let ((#{tmp 6908}#
+ #{docstring 6919}#))))))
+ #{tmp 6912}#)
+ (let ((#{tmp 6922}#
($sc-dispatch
- #{body 6895}#
+ #{body 6909}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 6908}#
+ (if #{tmp 6922}#
(@apply
- (lambda (#{k 6912}#
- #{v 6913}#
- #{e1 6914}#
- #{e2 6915}#)
- (#{lp 6892}#
- (cons #{e1 6914}# #{e2 6915}#)
+ (lambda (#{k 6926}#
+ #{v 6927}#
+ #{e1 6928}#
+ #{e2 6929}#)
+ (#{lp 6906}#
+ (cons #{e1 6928}# #{e2 6929}#)
(append
- #{meta 6896}#
+ #{meta 6910}#
(syntax->datum
(map cons
- #{k 6912}#
- #{v 6913}#)))))
- #{tmp 6908}#)
- (#{chi-simple-lambda 4385}#
- #{e 6873}#
- #{r 6874}#
- #{w 6875}#
- #{s 6876}#
- #{mod 6877}#
- #{req 6888}#
- #{rest 6890}#
- #{meta 6896}#
- #{body 6895}#))))))))
- (#{lp 6892}# (cons #{e1 6884}# #{e2 6885}#) '())))))
- #{tmp 6879}#)
+ #{k 6926}#
+ #{v 6927}#)))))
+ #{tmp 6922}#)
+ (#{chi-simple-lambda 4383}#
+ #{e 6887}#
+ #{r 6888}#
+ #{w 6889}#
+ #{s 6890}#
+ #{mod 6891}#
+ #{req 6902}#
+ #{rest 6904}#
+ #{meta 6910}#
+ #{body 6909}#))))))))
+ (#{lp 6906}# (cons #{e1 6898}# #{e2 6899}#) '())))))
+ #{tmp 6893}#)
(syntax-violation
'lambda
"bad lambda"
- #{e 6873}#)))))
- (#{global-extend 4341}#
+ #{e 6887}#)))))
+ (#{global-extend 4339}#
'core
'lambda*
- (lambda (#{e 7299}#
- #{r 7300}#
- #{w 7301}#
- #{s 7302}#
- #{mod 7303}#)
- (let ((#{tmp 7305}#
- ($sc-dispatch #{e 7299}# '(_ any any . each-any))))
- (if #{tmp 7305}#
+ (lambda (#{e 7313}#
+ #{r 7314}#
+ #{w 7315}#
+ #{s 7316}#
+ #{mod 7317}#)
+ (let ((#{tmp 7319}#
+ ($sc-dispatch #{e 7313}# '(_ any any . each-any))))
+ (if #{tmp 7319}#
(@apply
- (lambda (#{args 7309}# #{e1 7310}# #{e2 7311}#)
+ (lambda (#{args 7323}# #{e1 7324}# #{e2 7325}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case 4387}#
- #{e 7299}#
- #{r 7300}#
- #{w 7301}#
- #{s 7302}#
- #{mod 7303}#
- #{lambda*-formals 4386}#
- (list (cons #{args 7309}#
- (cons #{e1 7310}# #{e2 7311}#)))))
- (lambda (#{meta 7314}# #{lcase 7315}#)
+ (#{chi-lambda-case 4385}#
+ #{e 7313}#
+ #{r 7314}#
+ #{w 7315}#
+ #{s 7316}#
+ #{mod 7317}#
+ #{lambda*-formals 4384}#
+ (list (cons #{args 7323}#
+ (cons #{e1 7324}# #{e2 7325}#)))))
+ (lambda (#{meta 7328}# #{lcase 7329}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 7302}#
- #{meta 7314}#
- #{lcase 7315}#))))
- #{tmp 7305}#)
+ #{s 7316}#
+ #{meta 7328}#
+ #{lcase 7329}#))))
+ #{tmp 7319}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e 7299}#)))))
- (#{global-extend 4341}#
+ #{e 7313}#)))))
+ (#{global-extend 4339}#
'core
'case-lambda
- (lambda (#{e 7478}#
- #{r 7479}#
- #{w 7480}#
- #{s 7481}#
- #{mod 7482}#)
- (let ((#{tmp 7484}#
+ (lambda (#{e 7492}#
+ #{r 7493}#
+ #{w 7494}#
+ #{s 7495}#
+ #{mod 7496}#)
+ (let ((#{tmp 7498}#
($sc-dispatch
- #{e 7478}#
+ #{e 7492}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 7484}#
+ (if #{tmp 7498}#
(@apply
- (lambda (#{args 7488}#
- #{e1 7489}#
- #{e2 7490}#
- #{args* 7491}#
- #{e1* 7492}#
- #{e2* 7493}#)
+ (lambda (#{args 7502}#
+ #{e1 7503}#
+ #{e2 7504}#
+ #{args* 7505}#
+ #{e1* 7506}#
+ #{e2* 7507}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case 4387}#
- #{e 7478}#
- #{r 7479}#
- #{w 7480}#
- #{s 7481}#
- #{mod 7482}#
- #{lambda-formals 4384}#
- (cons (cons #{args 7488}#
- (cons #{e1 7489}# #{e2 7490}#))
- (map (lambda (#{tmp 3306 7496}#
- #{tmp 3305 7497}#
- #{tmp 3304 7498}#)
- (cons #{tmp 3304 7498}#
- (cons #{tmp 3305 7497}#
- #{tmp 3306 7496}#)))
- #{e2* 7493}#
- #{e1* 7492}#
- #{args* 7491}#))))
- (lambda (#{meta 7499}# #{lcase 7500}#)
+ (#{chi-lambda-case 4385}#
+ #{e 7492}#
+ #{r 7493}#
+ #{w 7494}#
+ #{s 7495}#
+ #{mod 7496}#
+ #{lambda-formals 4382}#
+ (cons (cons #{args 7502}#
+ (cons #{e1 7503}# #{e2 7504}#))
+ (map (lambda (#{tmp 3304 7510}#
+ #{tmp 3303 7511}#
+ #{tmp 3302 7512}#)
+ (cons #{tmp 3302 7512}#
+ (cons #{tmp 3303 7511}#
+ #{tmp 3304 7510}#)))
+ #{e2* 7507}#
+ #{e1* 7506}#
+ #{args* 7505}#))))
+ (lambda (#{meta 7513}# #{lcase 7514}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 7481}#
- #{meta 7499}#
- #{lcase 7500}#))))
- #{tmp 7484}#)
+ #{s 7495}#
+ #{meta 7513}#
+ #{lcase 7514}#))))
+ #{tmp 7498}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e 7478}#)))))
- (#{global-extend 4341}#
+ #{e 7492}#)))))
+ (#{global-extend 4339}#
'core
'case-lambda*
- (lambda (#{e 7669}#
- #{r 7670}#
- #{w 7671}#
- #{s 7672}#
- #{mod 7673}#)
- (let ((#{tmp 7675}#
+ (lambda (#{e 7683}#
+ #{r 7684}#
+ #{w 7685}#
+ #{s 7686}#
+ #{mod 7687}#)
+ (let ((#{tmp 7689}#
($sc-dispatch
- #{e 7669}#
+ #{e 7683}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 7675}#
+ (if #{tmp 7689}#
(@apply
- (lambda (#{args 7679}#
- #{e1 7680}#
- #{e2 7681}#
- #{args* 7682}#
- #{e1* 7683}#
- #{e2* 7684}#)
+ (lambda (#{args 7693}#
+ #{e1 7694}#
+ #{e2 7695}#
+ #{args* 7696}#
+ #{e1* 7697}#
+ #{e2* 7698}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case 4387}#
- #{e 7669}#
- #{r 7670}#
- #{w 7671}#
- #{s 7672}#
- #{mod 7673}#
- #{lambda*-formals 4386}#
- (cons (cons #{args 7679}#
- (cons #{e1 7680}# #{e2 7681}#))
- (map (lambda (#{tmp 3341 7687}#
- #{tmp 3340 7688}#
- #{tmp 3339 7689}#)
- (cons #{tmp 3339 7689}#
- (cons #{tmp 3340 7688}#
- #{tmp 3341 7687}#)))
- #{e2* 7684}#
- #{e1* 7683}#
- #{args* 7682}#))))
- (lambda (#{meta 7690}# #{lcase 7691}#)
+ (#{chi-lambda-case 4385}#
+ #{e 7683}#
+ #{r 7684}#
+ #{w 7685}#
+ #{s 7686}#
+ #{mod 7687}#
+ #{lambda*-formals 4384}#
+ (cons (cons #{args 7693}#
+ (cons #{e1 7694}# #{e2 7695}#))
+ (map (lambda (#{tmp 3339 7701}#
+ #{tmp 3338 7702}#
+ #{tmp 3337 7703}#)
+ (cons #{tmp 3337 7703}#
+ (cons #{tmp 3338 7702}#
+ #{tmp 3339 7701}#)))
+ #{e2* 7698}#
+ #{e1* 7697}#
+ #{args* 7696}#))))
+ (lambda (#{meta 7704}# #{lcase 7705}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 7672}#
- #{meta 7690}#
- #{lcase 7691}#))))
- #{tmp 7675}#)
+ #{s 7686}#
+ #{meta 7704}#
+ #{lcase 7705}#))))
+ #{tmp 7689}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e 7669}#)))))
- (#{global-extend 4341}#
+ #{e 7683}#)))))
+ (#{global-extend 4339}#
'core
'let
(letrec*
- ((#{chi-let 7900}#
- (lambda (#{e 8110}#
- #{r 8111}#
- #{w 8112}#
- #{s 8113}#
- #{mod 8114}#
- #{constructor 8115}#
- #{ids 8116}#
- #{vals 8117}#
- #{exps 8118}#)
- (if (not (#{valid-bound-ids? 4365}# #{ids 8116}#))
+ ((#{chi-let 7914}#
+ (lambda (#{e 8124}#
+ #{r 8125}#
+ #{w 8126}#
+ #{s 8127}#
+ #{mod 8128}#
+ #{constructor 8129}#
+ #{ids 8130}#
+ #{vals 8131}#
+ #{exps 8132}#)
+ (if (not (#{valid-bound-ids? 4363}# #{ids 8130}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e 8110}#)
- (let ((#{labels 8201}#
- (#{gen-labels 4346}# #{ids 8116}#))
- (#{new-vars 8202}#
- (map #{gen-var 4389}# #{ids 8116}#)))
- (let ((#{nw 8203}#
- (#{make-binding-wrap 4357}#
- #{ids 8116}#
- #{labels 8201}#
- #{w 8112}#))
- (#{nr 8204}#
- (#{extend-var-env 4338}#
- #{labels 8201}#
- #{new-vars 8202}#
- #{r 8111}#)))
- (#{constructor 8115}#
- #{s 8113}#
- (map syntax->datum #{ids 8116}#)
- #{new-vars 8202}#
- (map (lambda (#{x 8221}#)
- (#{chi 4375}#
- #{x 8221}#
- #{r 8111}#
- #{w 8112}#
- #{mod 8114}#))
- #{vals 8117}#)
- (#{chi-body 4379}#
- #{exps 8118}#
- (#{source-wrap 4369}#
- #{e 8110}#
- #{nw 8203}#
- #{s 8113}#
- #{mod 8114}#)
- #{nr 8204}#
- #{nw 8203}#
- #{mod 8114}#))))))))
- (lambda (#{e 7901}#
- #{r 7902}#
- #{w 7903}#
- #{s 7904}#
- #{mod 7905}#)
- (let ((#{tmp 7907}#
+ #{e 8124}#)
+ (let ((#{labels 8217}#
+ (#{gen-labels 4344}# #{ids 8130}#))
+ (#{new-vars 8218}#
+ (map #{gen-var 4387}# #{ids 8130}#)))
+ (let ((#{nw 8219}#
+ (#{make-binding-wrap 4355}#
+ #{ids 8130}#
+ #{labels 8217}#
+ #{w 8126}#))
+ (#{nr 8220}#
+ (#{extend-var-env 4336}#
+ #{labels 8217}#
+ #{new-vars 8218}#
+ #{r 8125}#)))
+ (#{constructor 8129}#
+ #{s 8127}#
+ (map syntax->datum #{ids 8130}#)
+ #{new-vars 8218}#
+ (map (lambda (#{x 8237}#)
+ (#{chi 4373}#
+ #{x 8237}#
+ #{r 8125}#
+ #{w 8126}#
+ #{mod 8128}#))
+ #{vals 8131}#)
+ (#{chi-body 4377}#
+ #{exps 8132}#
+ (#{source-wrap 4367}#
+ #{e 8124}#
+ #{nw 8219}#
+ #{s 8127}#
+ #{mod 8128}#)
+ #{nr 8220}#
+ #{nw 8219}#
+ #{mod 8128}#))))))))
+ (lambda (#{e 7915}#
+ #{r 7916}#
+ #{w 7917}#
+ #{s 7918}#
+ #{mod 7919}#)
+ (let ((#{tmp 7921}#
($sc-dispatch
- #{e 7901}#
+ #{e 7915}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 7907}#
+ (if (if #{tmp 7921}#
(@apply
- (lambda (#{id 7911}#
- #{val 7912}#
- #{e1 7913}#
- #{e2 7914}#)
- (and-map #{id? 4343}# #{id 7911}#))
- #{tmp 7907}#)
+ (lambda (#{id 7925}#
+ #{val 7926}#
+ #{e1 7927}#
+ #{e2 7928}#)
+ (and-map #{id? 4341}# #{id 7925}#))
+ #{tmp 7921}#)
#f)
(@apply
- (lambda (#{id 7930}#
- #{val 7931}#
- #{e1 7932}#
- #{e2 7933}#)
- (#{chi-let 7900}#
- #{e 7901}#
- #{r 7902}#
- #{w 7903}#
- #{s 7904}#
- #{mod 7905}#
- (lambda (#{src 7937}#
- #{ids 7938}#
- #{vars 7939}#
- #{val-exps 7940}#
- #{body-exp 7941}#)
+ (lambda (#{id 7944}#
+ #{val 7945}#
+ #{e1 7946}#
+ #{e2 7947}#)
+ (#{chi-let 7914}#
+ #{e 7915}#
+ #{r 7916}#
+ #{w 7917}#
+ #{s 7918}#
+ #{mod 7919}#
+ (lambda (#{src 7951}#
+ #{ids 7952}#
+ #{vars 7953}#
+ #{val-exps 7954}#
+ #{body-exp 7955}#)
(begin
(for-each
- #{maybe-name-value! 4307}#
- #{ids 7938}#
- #{val-exps 7940}#)
- (if (null? #{vars 7939}#)
- #{body-exp 7941}#
+ #{maybe-name-value! 4305}#
+ #{ids 7952}#
+ #{val-exps 7954}#)
+ (if (null? #{vars 7953}#)
+ #{body-exp 7955}#
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 7937}#
- #{ids 7938}#
- #{vars 7939}#
- #{val-exps 7940}#
- #{body-exp 7941}#))))
- #{id 7930}#
- #{val 7931}#
- (cons #{e1 7932}# #{e2 7933}#)))
- #{tmp 7907}#)
- (let ((#{tmp 7948}#
+ #{src 7951}#
+ #{ids 7952}#
+ #{vars 7953}#
+ #{val-exps 7954}#
+ #{body-exp 7955}#))))
+ #{id 7944}#
+ #{val 7945}#
+ (cons #{e1 7946}# #{e2 7947}#)))
+ #{tmp 7921}#)
+ (let ((#{tmp 7962}#
($sc-dispatch
- #{e 7901}#
+ #{e 7915}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 7948}#
+ (if (if #{tmp 7962}#
(@apply
- (lambda (#{f 7952}#
- #{id 7953}#
- #{val 7954}#
- #{e1 7955}#
- #{e2 7956}#)
- (if (if (symbol? #{f 7952}#)
+ (lambda (#{f 7966}#
+ #{id 7967}#
+ #{val 7968}#
+ #{e1 7969}#
+ #{e2 7970}#)
+ (if (if (symbol? #{f 7966}#)
#t
- (if (if (vector? #{f 7952}#)
- (if (= (vector-length #{f 7952}#) 4)
- (eq? (vector-ref #{f 7952}# 0)
+ (if (if (vector? #{f 7966}#)
+ (if (= (vector-length #{f 7966}#) 4)
+ (eq? (vector-ref #{f 7966}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{f 7952}# 1))
+ (symbol? (vector-ref #{f 7966}# 1))
#f))
- (and-map #{id? 4343}# #{id 7953}#)
+ (and-map #{id? 4341}# #{id 7967}#)
#f))
- #{tmp 7948}#)
+ #{tmp 7962}#)
#f)
(@apply
- (lambda (#{f 7998}#
- #{id 7999}#
- #{val 8000}#
- #{e1 8001}#
- #{e2 8002}#)
- (#{chi-let 7900}#
- #{e 7901}#
- #{r 7902}#
- #{w 7903}#
- #{s 7904}#
- #{mod 7905}#
- #{build-named-let 4326}#
- (cons #{f 7998}# #{id 7999}#)
- #{val 8000}#
- (cons #{e1 8001}# #{e2 8002}#)))
- #{tmp 7948}#)
+ (lambda (#{f 8012}#
+ #{id 8013}#
+ #{val 8014}#
+ #{e1 8015}#
+ #{e2 8016}#)
+ (#{chi-let 7914}#
+ #{e 7915}#
+ #{r 7916}#
+ #{w 7917}#
+ #{s 7918}#
+ #{mod 7919}#
+ #{build-named-let 4324}#
+ (cons #{f 8012}# #{id 8013}#)
+ #{val 8014}#
+ (cons #{e1 8015}# #{e2 8016}#)))
+ #{tmp 7962}#)
(syntax-violation
'let
"bad let"
- (let ((#{x 8015}#
+ (let ((#{x 8029}#
(begin
- (if (if (pair? #{e 7901}#) #{s 7904}# #f)
- (set-source-properties! #{e 7901}# #{s 7904}#))
- #{e 7901}#)))
- (if (if (null? (car #{w 7903}#))
- (null? (cdr #{w 7903}#))
+ (if (if (pair? #{e 7915}#) #{s 7918}# #f)
+ (set-source-properties! #{e 7915}# #{s 7918}#))
+ #{e 7915}#)))
+ (if (if (null? (car #{w 7917}#))
+ (null? (cdr #{w 7917}#))
#f)
- #{x 8015}#
- (if (if (vector? #{x 8015}#)
- (if (= (vector-length #{x 8015}#) 4)
- (eq? (vector-ref #{x 8015}# 0) 'syntax-object)
+ #{x 8029}#
+ (if (if (vector? #{x 8029}#)
+ (if (= (vector-length #{x 8029}#) 4)
+ (eq? (vector-ref #{x 8029}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 8047}# (vector-ref #{x 8015}# 1))
- (#{wrap 8048}#
- (let ((#{w2 8056}#
- (vector-ref #{x 8015}# 2)))
- (let ((#{m1 8057}# (car #{w 7903}#))
- (#{s1 8058}# (cdr #{w 7903}#)))
- (if (null? #{m1 8057}#)
- (if (null? #{s1 8058}#)
- #{w2 8056}#
- (cons (car #{w2 8056}#)
- (let ((#{m2 8073}#
- (cdr #{w2 8056}#)))
- (if (null? #{m2 8073}#)
- #{s1 8058}#
+ (let ((#{expression 8061}# (vector-ref #{x 8029}# 1))
+ (#{wrap 8062}#
+ (let ((#{w2 8070}#
+ (vector-ref #{x 8029}# 2)))
+ (let ((#{m1 8071}# (car #{w 7917}#))
+ (#{s1 8072}# (cdr #{w 7917}#)))
+ (if (null? #{m1 8071}#)
+ (if (null? #{s1 8072}#)
+ #{w2 8070}#
+ (cons (car #{w2 8070}#)
+ (let ((#{m2 8087}#
+ (cdr #{w2 8070}#)))
+ (if (null? #{m2 8087}#)
+ #{s1 8072}#
(append
- #{s1 8058}#
- #{m2 8073}#)))))
- (cons (let ((#{m2 8081}#
- (car #{w2 8056}#)))
- (if (null? #{m2 8081}#)
- #{m1 8057}#
+ #{s1 8072}#
+ #{m2 8087}#)))))
+ (cons (let ((#{m2 8095}#
+ (car #{w2 8070}#)))
+ (if (null? #{m2 8095}#)
+ #{m1 8071}#
(append
- #{m1 8057}#
- #{m2 8081}#)))
- (let ((#{m2 8089}#
- (cdr #{w2 8056}#)))
- (if (null? #{m2 8089}#)
- #{s1 8058}#
+ #{m1 8071}#
+ #{m2 8095}#)))
+ (let ((#{m2 8103}#
+ (cdr #{w2 8070}#)))
+ (if (null? #{m2 8103}#)
+ #{s1 8072}#
(append
- #{s1 8058}#
- #{m2 8089}#))))))))
- (#{module 8049}# (vector-ref #{x 8015}# 3)))
+ #{s1 8072}#
+ #{m2 8103}#))))))))
+ (#{module 8063}# (vector-ref #{x 8029}# 3)))
(vector
'syntax-object
- #{expression 8047}#
- #{wrap 8048}#
- #{module 8049}#))
- (if (null? #{x 8015}#)
- #{x 8015}#
+ #{expression 8061}#
+ #{wrap 8062}#
+ #{module 8063}#))
+ (if (null? #{x 8029}#)
+ #{x 8029}#
(vector
'syntax-object
- #{x 8015}#
- #{w 7903}#
- #{mod 7905}#)))))))))))))
- (#{global-extend 4341}#
+ #{x 8029}#
+ #{w 7917}#
+ #{mod 7919}#)))))))))))))
+ (#{global-extend 4339}#
'core
'letrec
- (lambda (#{e 8694}#
- #{r 8695}#
- #{w 8696}#
- #{s 8697}#
- #{mod 8698}#)
- (let ((#{tmp 8700}#
+ (lambda (#{e 8714}#
+ #{r 8715}#
+ #{w 8716}#
+ #{s 8717}#
+ #{mod 8718}#)
+ (let ((#{tmp 8720}#
($sc-dispatch
- #{e 8694}#
+ #{e 8714}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 8700}#
+ (if (if #{tmp 8720}#
(@apply
- (lambda (#{id 8704}#
- #{val 8705}#
- #{e1 8706}#
- #{e2 8707}#)
- (and-map #{id? 4343}# #{id 8704}#))
- #{tmp 8700}#)
+ (lambda (#{id 8724}#
+ #{val 8725}#
+ #{e1 8726}#
+ #{e2 8727}#)
+ (and-map #{id? 4341}# #{id 8724}#))
+ #{tmp 8720}#)
#f)
(@apply
- (lambda (#{id 8723}#
- #{val 8724}#
- #{e1 8725}#
- #{e2 8726}#)
- (if (not (#{valid-bound-ids? 4365}# #{id 8723}#))
+ (lambda (#{id 8743}#
+ #{val 8744}#
+ #{e1 8745}#
+ #{e2 8746}#)
+ (if (not (#{valid-bound-ids? 4363}# #{id 8743}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e 8694}#)
- (let ((#{labels 8821}#
- (#{gen-labels 4346}# #{id 8723}#))
- (#{new-vars 8822}#
- (map #{gen-var 4389}# #{id 8723}#)))
- (let ((#{w 8823}#
- (#{make-binding-wrap 4357}#
- #{id 8723}#
- #{labels 8821}#
- #{w 8696}#))
- (#{r 8824}#
- (#{extend-var-env 4338}#
- #{labels 8821}#
- #{new-vars 8822}#
- #{r 8695}#)))
- (#{build-letrec 4327}#
- #{s 8697}#
+ #{e 8714}#)
+ (let ((#{labels 8843}#
+ (#{gen-labels 4344}# #{id 8743}#))
+ (#{new-vars 8844}#
+ (map #{gen-var 4387}# #{id 8743}#)))
+ (let ((#{w 8845}#
+ (#{make-binding-wrap 4355}#
+ #{id 8743}#
+ #{labels 8843}#
+ #{w 8716}#))
+ (#{r 8846}#
+ (#{extend-var-env 4336}#
+ #{labels 8843}#
+ #{new-vars 8844}#
+ #{r 8715}#)))
+ (#{build-letrec 4325}#
+ #{s 8717}#
#f
- (map syntax->datum #{id 8723}#)
- #{new-vars 8822}#
- (map (lambda (#{x 8903}#)
- (#{chi 4375}#
- #{x 8903}#
- #{r 8824}#
- #{w 8823}#
- #{mod 8698}#))
- #{val 8724}#)
- (#{chi-body 4379}#
- (cons #{e1 8725}# #{e2 8726}#)
- (let ((#{x 8965}#
+ (map syntax->datum #{id 8743}#)
+ #{new-vars 8844}#
+ (map (lambda (#{x 8925}#)
+ (#{chi 4373}#
+ #{x 8925}#
+ #{r 8846}#
+ #{w 8845}#
+ #{mod 8718}#))
+ #{val 8744}#)
+ (#{chi-body 4377}#
+ (cons #{e1 8745}# #{e2 8746}#)
+ (let ((#{x 8987}#
(begin
- (if (if (pair? #{e 8694}#) #{s 8697}# #f)
+ (if (if (pair? #{e 8714}#) #{s 8717}# #f)
(set-source-properties!
- #{e 8694}#
- #{s 8697}#))
- #{e 8694}#)))
- (if (if (null? (car #{w 8823}#))
- (null? (cdr #{w 8823}#))
+ #{e 8714}#
+ #{s 8717}#))
+ #{e 8714}#)))
+ (if (if (null? (car #{w 8845}#))
+ (null? (cdr #{w 8845}#))
#f)
- #{x 8965}#
- (if (if (vector? #{x 8965}#)
- (if (= (vector-length #{x 8965}#) 4)
- (eq? (vector-ref #{x 8965}# 0)
+ #{x 8987}#
+ (if (if (vector? #{x 8987}#)
+ (if (= (vector-length #{x 8987}#) 4)
+ (eq? (vector-ref #{x 8987}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 8997}#
- (vector-ref #{x 8965}# 1))
- (#{wrap 8998}#
- (let ((#{w2 9006}#
- (vector-ref #{x 8965}# 2)))
- (let ((#{m1 9007}# (car #{w 8823}#))
- (#{s1 9008}# (cdr #{w 8823}#)))
- (if (null? #{m1 9007}#)
- (if (null? #{s1 9008}#)
- #{w2 9006}#
- (cons (car #{w2 9006}#)
- (let ((#{m2 9023}#
- (cdr #{w2
9006}#)))
- (if (null? #{m2 9023}#)
- #{s1 9008}#
+ (let ((#{expression 9019}#
+ (vector-ref #{x 8987}# 1))
+ (#{wrap 9020}#
+ (let ((#{w2 9028}#
+ (vector-ref #{x 8987}# 2)))
+ (let ((#{m1 9029}# (car #{w 8845}#))
+ (#{s1 9030}# (cdr #{w 8845}#)))
+ (if (null? #{m1 9029}#)
+ (if (null? #{s1 9030}#)
+ #{w2 9028}#
+ (cons (car #{w2 9028}#)
+ (let ((#{m2 9045}#
+ (cdr #{w2
9028}#)))
+ (if (null? #{m2 9045}#)
+ #{s1 9030}#
(append
- #{s1 9008}#
- #{m2 9023}#)))))
- (cons (let ((#{m2 9031}#
- (car #{w2 9006}#)))
- (if (null? #{m2 9031}#)
- #{m1 9007}#
+ #{s1 9030}#
+ #{m2 9045}#)))))
+ (cons (let ((#{m2 9053}#
+ (car #{w2 9028}#)))
+ (if (null? #{m2 9053}#)
+ #{m1 9029}#
(append
- #{m1 9007}#
- #{m2 9031}#)))
- (let ((#{m2 9039}#
- (cdr #{w2 9006}#)))
- (if (null? #{m2 9039}#)
- #{s1 9008}#
+ #{m1 9029}#
+ #{m2 9053}#)))
+ (let ((#{m2 9061}#
+ (cdr #{w2 9028}#)))
+ (if (null? #{m2 9061}#)
+ #{s1 9030}#
(append
- #{s1 9008}#
- #{m2 9039}#))))))))
- (#{module 8999}#
- (vector-ref #{x 8965}# 3)))
+ #{s1 9030}#
+ #{m2 9061}#))))))))
+ (#{module 9021}#
+ (vector-ref #{x 8987}# 3)))
(vector
'syntax-object
- #{expression 8997}#
- #{wrap 8998}#
- #{module 8999}#))
- (if (null? #{x 8965}#)
- #{x 8965}#
+ #{expression 9019}#
+ #{wrap 9020}#
+ #{module 9021}#))
+ (if (null? #{x 8987}#)
+ #{x 8987}#
(vector
'syntax-object
- #{x 8965}#
- #{w 8823}#
- #{mod 8698}#)))))
- #{r 8824}#
- #{w 8823}#
- #{mod 8698}#))))))
- #{tmp 8700}#)
+ #{x 8987}#
+ #{w 8845}#
+ #{mod 8718}#)))))
+ #{r 8846}#
+ #{w 8845}#
+ #{mod 8718}#))))))
+ #{tmp 8720}#)
(syntax-violation
'letrec
"bad letrec"
- (let ((#{x 9279}#
+ (let ((#{x 9301}#
(begin
- (if (if (pair? #{e 8694}#) #{s 8697}# #f)
- (set-source-properties! #{e 8694}# #{s 8697}#))
- #{e 8694}#)))
- (if (if (null? (car #{w 8696}#))
- (null? (cdr #{w 8696}#))
+ (if (if (pair? #{e 8714}#) #{s 8717}# #f)
+ (set-source-properties! #{e 8714}# #{s 8717}#))
+ #{e 8714}#)))
+ (if (if (null? (car #{w 8716}#))
+ (null? (cdr #{w 8716}#))
#f)
- #{x 9279}#
- (if (if (vector? #{x 9279}#)
- (if (= (vector-length #{x 9279}#) 4)
- (eq? (vector-ref #{x 9279}# 0) 'syntax-object)
+ #{x 9301}#
+ (if (if (vector? #{x 9301}#)
+ (if (= (vector-length #{x 9301}#) 4)
+ (eq? (vector-ref #{x 9301}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 9311}# (vector-ref #{x 9279}# 1))
- (#{wrap 9312}#
- (let ((#{w2 9320}# (vector-ref #{x 9279}# 2)))
- (let ((#{m1 9321}# (car #{w 8696}#))
- (#{s1 9322}# (cdr #{w 8696}#)))
- (if (null? #{m1 9321}#)
- (if (null? #{s1 9322}#)
- #{w2 9320}#
- (cons (car #{w2 9320}#)
- (let ((#{m2 9337}#
- (cdr #{w2 9320}#)))
- (if (null? #{m2 9337}#)
- #{s1 9322}#
+ (let ((#{expression 9333}# (vector-ref #{x 9301}# 1))
+ (#{wrap 9334}#
+ (let ((#{w2 9342}# (vector-ref #{x 9301}# 2)))
+ (let ((#{m1 9343}# (car #{w 8716}#))
+ (#{s1 9344}# (cdr #{w 8716}#)))
+ (if (null? #{m1 9343}#)
+ (if (null? #{s1 9344}#)
+ #{w2 9342}#
+ (cons (car #{w2 9342}#)
+ (let ((#{m2 9359}#
+ (cdr #{w2 9342}#)))
+ (if (null? #{m2 9359}#)
+ #{s1 9344}#
(append
- #{s1 9322}#
- #{m2 9337}#)))))
- (cons (let ((#{m2 9345}# (car #{w2 9320}#)))
- (if (null? #{m2 9345}#)
- #{m1 9321}#
- (append #{m1 9321}# #{m2 9345}#)))
- (let ((#{m2 9353}# (cdr #{w2 9320}#)))
- (if (null? #{m2 9353}#)
- #{s1 9322}#
+ #{s1 9344}#
+ #{m2 9359}#)))))
+ (cons (let ((#{m2 9367}# (car #{w2 9342}#)))
+ (if (null? #{m2 9367}#)
+ #{m1 9343}#
+ (append #{m1 9343}# #{m2 9367}#)))
+ (let ((#{m2 9375}# (cdr #{w2 9342}#)))
+ (if (null? #{m2 9375}#)
+ #{s1 9344}#
(append
- #{s1 9322}#
- #{m2 9353}#))))))))
- (#{module 9313}# (vector-ref #{x 9279}# 3)))
+ #{s1 9344}#
+ #{m2 9375}#))))))))
+ (#{module 9335}# (vector-ref #{x 9301}# 3)))
(vector
'syntax-object
- #{expression 9311}#
- #{wrap 9312}#
- #{module 9313}#))
- (if (null? #{x 9279}#)
- #{x 9279}#
+ #{expression 9333}#
+ #{wrap 9334}#
+ #{module 9335}#))
+ (if (null? #{x 9301}#)
+ #{x 9301}#
(vector
'syntax-object
- #{x 9279}#
- #{w 8696}#
- #{mod 8698}#))))))))))
- (#{global-extend 4341}#
+ #{x 9301}#
+ #{w 8716}#
+ #{mod 8718}#))))))))))
+ (#{global-extend 4339}#
'core
'letrec*
- (lambda (#{e 9502}#
- #{r 9503}#
- #{w 9504}#
- #{s 9505}#
- #{mod 9506}#)
- (let ((#{tmp 9508}#
+ (lambda (#{e 9526}#
+ #{r 9527}#
+ #{w 9528}#
+ #{s 9529}#
+ #{mod 9530}#)
+ (let ((#{tmp 9532}#
($sc-dispatch
- #{e 9502}#
+ #{e 9526}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 9508}#
+ (if (if #{tmp 9532}#
(@apply
- (lambda (#{id 9512}#
- #{val 9513}#
- #{e1 9514}#
- #{e2 9515}#)
- (and-map #{id? 4343}# #{id 9512}#))
- #{tmp 9508}#)
+ (lambda (#{id 9536}#
+ #{val 9537}#
+ #{e1 9538}#
+ #{e2 9539}#)
+ (and-map #{id? 4341}# #{id 9536}#))
+ #{tmp 9532}#)
#f)
(@apply
- (lambda (#{id 9531}#
- #{val 9532}#
- #{e1 9533}#
- #{e2 9534}#)
- (if (not (#{valid-bound-ids? 4365}# #{id 9531}#))
+ (lambda (#{id 9555}#
+ #{val 9556}#
+ #{e1 9557}#
+ #{e2 9558}#)
+ (if (not (#{valid-bound-ids? 4363}# #{id 9555}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e 9502}#)
- (let ((#{labels 9629}#
- (#{gen-labels 4346}# #{id 9531}#))
- (#{new-vars 9630}#
- (map #{gen-var 4389}# #{id 9531}#)))
- (let ((#{w 9631}#
- (#{make-binding-wrap 4357}#
- #{id 9531}#
- #{labels 9629}#
- #{w 9504}#))
- (#{r 9632}#
- (#{extend-var-env 4338}#
- #{labels 9629}#
- #{new-vars 9630}#
- #{r 9503}#)))
- (#{build-letrec 4327}#
- #{s 9505}#
+ #{e 9526}#)
+ (let ((#{labels 9655}#
+ (#{gen-labels 4344}# #{id 9555}#))
+ (#{new-vars 9656}#
+ (map #{gen-var 4387}# #{id 9555}#)))
+ (let ((#{w 9657}#
+ (#{make-binding-wrap 4355}#
+ #{id 9555}#
+ #{labels 9655}#
+ #{w 9528}#))
+ (#{r 9658}#
+ (#{extend-var-env 4336}#
+ #{labels 9655}#
+ #{new-vars 9656}#
+ #{r 9527}#)))
+ (#{build-letrec 4325}#
+ #{s 9529}#
#t
- (map syntax->datum #{id 9531}#)
- #{new-vars 9630}#
- (map (lambda (#{x 9711}#)
- (#{chi 4375}#
- #{x 9711}#
- #{r 9632}#
- #{w 9631}#
- #{mod 9506}#))
- #{val 9532}#)
- (#{chi-body 4379}#
- (cons #{e1 9533}# #{e2 9534}#)
- (let ((#{x 9773}#
+ (map syntax->datum #{id 9555}#)
+ #{new-vars 9656}#
+ (map (lambda (#{x 9737}#)
+ (#{chi 4373}#
+ #{x 9737}#
+ #{r 9658}#
+ #{w 9657}#
+ #{mod 9530}#))
+ #{val 9556}#)
+ (#{chi-body 4377}#
+ (cons #{e1 9557}# #{e2 9558}#)
+ (let ((#{x 9799}#
(begin
- (if (if (pair? #{e 9502}#) #{s 9505}# #f)
+ (if (if (pair? #{e 9526}#) #{s 9529}# #f)
(set-source-properties!
- #{e 9502}#
- #{s 9505}#))
- #{e 9502}#)))
- (if (if (null? (car #{w 9631}#))
- (null? (cdr #{w 9631}#))
+ #{e 9526}#
+ #{s 9529}#))
+ #{e 9526}#)))
+ (if (if (null? (car #{w 9657}#))
+ (null? (cdr #{w 9657}#))
#f)
- #{x 9773}#
- (if (if (vector? #{x 9773}#)
- (if (= (vector-length #{x 9773}#) 4)
- (eq? (vector-ref #{x 9773}# 0)
+ #{x 9799}#
+ (if (if (vector? #{x 9799}#)
+ (if (= (vector-length #{x 9799}#) 4)
+ (eq? (vector-ref #{x 9799}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 9805}#
- (vector-ref #{x 9773}# 1))
- (#{wrap 9806}#
- (let ((#{w2 9814}#
- (vector-ref #{x 9773}# 2)))
- (let ((#{m1 9815}# (car #{w 9631}#))
- (#{s1 9816}# (cdr #{w 9631}#)))
- (if (null? #{m1 9815}#)
- (if (null? #{s1 9816}#)
- #{w2 9814}#
- (cons (car #{w2 9814}#)
- (let ((#{m2 9831}#
- (cdr #{w2
9814}#)))
- (if (null? #{m2 9831}#)
- #{s1 9816}#
+ (let ((#{expression 9831}#
+ (vector-ref #{x 9799}# 1))
+ (#{wrap 9832}#
+ (let ((#{w2 9840}#
+ (vector-ref #{x 9799}# 2)))
+ (let ((#{m1 9841}# (car #{w 9657}#))
+ (#{s1 9842}# (cdr #{w 9657}#)))
+ (if (null? #{m1 9841}#)
+ (if (null? #{s1 9842}#)
+ #{w2 9840}#
+ (cons (car #{w2 9840}#)
+ (let ((#{m2 9857}#
+ (cdr #{w2
9840}#)))
+ (if (null? #{m2 9857}#)
+ #{s1 9842}#
(append
- #{s1 9816}#
- #{m2 9831}#)))))
- (cons (let ((#{m2 9839}#
- (car #{w2 9814}#)))
- (if (null? #{m2 9839}#)
- #{m1 9815}#
+ #{s1 9842}#
+ #{m2 9857}#)))))
+ (cons (let ((#{m2 9865}#
+ (car #{w2 9840}#)))
+ (if (null? #{m2 9865}#)
+ #{m1 9841}#
(append
- #{m1 9815}#
- #{m2 9839}#)))
- (let ((#{m2 9847}#
- (cdr #{w2 9814}#)))
- (if (null? #{m2 9847}#)
- #{s1 9816}#
+ #{m1 9841}#
+ #{m2 9865}#)))
+ (let ((#{m2 9873}#
+ (cdr #{w2 9840}#)))
+ (if (null? #{m2 9873}#)
+ #{s1 9842}#
(append
- #{s1 9816}#
- #{m2 9847}#))))))))
- (#{module 9807}#
- (vector-ref #{x 9773}# 3)))
+ #{s1 9842}#
+ #{m2 9873}#))))))))
+ (#{module 9833}#
+ (vector-ref #{x 9799}# 3)))
(vector
'syntax-object
- #{expression 9805}#
- #{wrap 9806}#
- #{module 9807}#))
- (if (null? #{x 9773}#)
- #{x 9773}#
+ #{expression 9831}#
+ #{wrap 9832}#
+ #{module 9833}#))
+ (if (null? #{x 9799}#)
+ #{x 9799}#
(vector
'syntax-object
- #{x 9773}#
- #{w 9631}#
- #{mod 9506}#)))))
- #{r 9632}#
- #{w 9631}#
- #{mod 9506}#))))))
- #{tmp 9508}#)
+ #{x 9799}#
+ #{w 9657}#
+ #{mod 9530}#)))))
+ #{r 9658}#
+ #{w 9657}#
+ #{mod 9530}#))))))
+ #{tmp 9532}#)
(syntax-violation
'letrec*
"bad letrec*"
- (let ((#{x 10087}#
+ (let ((#{x 10113}#
(begin
- (if (if (pair? #{e 9502}#) #{s 9505}# #f)
- (set-source-properties! #{e 9502}# #{s 9505}#))
- #{e 9502}#)))
- (if (if (null? (car #{w 9504}#))
- (null? (cdr #{w 9504}#))
+ (if (if (pair? #{e 9526}#) #{s 9529}# #f)
+ (set-source-properties! #{e 9526}# #{s 9529}#))
+ #{e 9526}#)))
+ (if (if (null? (car #{w 9528}#))
+ (null? (cdr #{w 9528}#))
#f)
- #{x 10087}#
- (if (if (vector? #{x 10087}#)
- (if (= (vector-length #{x 10087}#) 4)
- (eq? (vector-ref #{x 10087}# 0) 'syntax-object)
+ #{x 10113}#
+ (if (if (vector? #{x 10113}#)
+ (if (= (vector-length #{x 10113}#) 4)
+ (eq? (vector-ref #{x 10113}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 10119}# (vector-ref #{x 10087}# 1))
- (#{wrap 10120}#
- (let ((#{w2 10128}# (vector-ref #{x 10087}# 2)))
- (let ((#{m1 10129}# (car #{w 9504}#))
- (#{s1 10130}# (cdr #{w 9504}#)))
- (if (null? #{m1 10129}#)
- (if (null? #{s1 10130}#)
- #{w2 10128}#
- (cons (car #{w2 10128}#)
- (let ((#{m2 10145}#
- (cdr #{w2 10128}#)))
- (if (null? #{m2 10145}#)
- #{s1 10130}#
+ (let ((#{expression 10145}# (vector-ref #{x 10113}# 1))
+ (#{wrap 10146}#
+ (let ((#{w2 10154}# (vector-ref #{x 10113}# 2)))
+ (let ((#{m1 10155}# (car #{w 9528}#))
+ (#{s1 10156}# (cdr #{w 9528}#)))
+ (if (null? #{m1 10155}#)
+ (if (null? #{s1 10156}#)
+ #{w2 10154}#
+ (cons (car #{w2 10154}#)
+ (let ((#{m2 10171}#
+ (cdr #{w2 10154}#)))
+ (if (null? #{m2 10171}#)
+ #{s1 10156}#
(append
- #{s1 10130}#
- #{m2 10145}#)))))
- (cons (let ((#{m2 10153}#
- (car #{w2 10128}#)))
- (if (null? #{m2 10153}#)
- #{m1 10129}#
+ #{s1 10156}#
+ #{m2 10171}#)))))
+ (cons (let ((#{m2 10179}#
+ (car #{w2 10154}#)))
+ (if (null? #{m2 10179}#)
+ #{m1 10155}#
(append
- #{m1 10129}#
- #{m2 10153}#)))
- (let ((#{m2 10161}#
- (cdr #{w2 10128}#)))
- (if (null? #{m2 10161}#)
- #{s1 10130}#
+ #{m1 10155}#
+ #{m2 10179}#)))
+ (let ((#{m2 10187}#
+ (cdr #{w2 10154}#)))
+ (if (null? #{m2 10187}#)
+ #{s1 10156}#
(append
- #{s1 10130}#
- #{m2 10161}#))))))))
- (#{module 10121}# (vector-ref #{x 10087}# 3)))
+ #{s1 10156}#
+ #{m2 10187}#))))))))
+ (#{module 10147}# (vector-ref #{x 10113}# 3)))
(vector
'syntax-object
- #{expression 10119}#
- #{wrap 10120}#
- #{module 10121}#))
- (if (null? #{x 10087}#)
- #{x 10087}#
+ #{expression 10145}#
+ #{wrap 10146}#
+ #{module 10147}#))
+ (if (null? #{x 10113}#)
+ #{x 10113}#
(vector
'syntax-object
- #{x 10087}#
- #{w 9504}#
- #{mod 9506}#))))))))))
- (#{global-extend 4341}#
+ #{x 10113}#
+ #{w 9528}#
+ #{mod 9530}#))))))))))
+ (#{global-extend 4339}#
'core
'set!
- (lambda (#{e 10378}#
- #{r 10379}#
- #{w 10380}#
- #{s 10381}#
- #{mod 10382}#)
- (let ((#{tmp 10384}#
- ($sc-dispatch #{e 10378}# '(_ any any))))
- (if (if #{tmp 10384}#
+ (lambda (#{e 10406}#
+ #{r 10407}#
+ #{w 10408}#
+ #{s 10409}#
+ #{mod 10410}#)
+ (let ((#{tmp 10412}#
+ ($sc-dispatch #{e 10406}# '(_ any any))))
+ (if (if #{tmp 10412}#
(@apply
- (lambda (#{id 10388}# #{val 10389}#)
- (if (symbol? #{id 10388}#)
+ (lambda (#{id 10416}# #{val 10417}#)
+ (if (symbol? #{id 10416}#)
#t
- (if (if (vector? #{id 10388}#)
- (if (= (vector-length #{id 10388}#) 4)
- (eq? (vector-ref #{id 10388}# 0) 'syntax-object)
+ (if (if (vector? #{id 10416}#)
+ (if (= (vector-length #{id 10416}#) 4)
+ (eq? (vector-ref #{id 10416}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 10388}# 1))
+ (symbol? (vector-ref #{id 10416}# 1))
#f)))
- #{tmp 10384}#)
+ #{tmp 10412}#)
#f)
(@apply
- (lambda (#{id 10416}# #{val 10417}#)
- (let ((#{n 10418}#
- (#{id-var-name 4362}# #{id 10416}# #{w 10380}#))
- (#{id-mod 10419}#
- (if (if (vector? #{id 10416}#)
- (if (= (vector-length #{id 10416}#) 4)
- (eq? (vector-ref #{id 10416}# 0)
+ (lambda (#{id 10444}# #{val 10445}#)
+ (let ((#{n 10446}#
+ (#{id-var-name 4360}# #{id 10444}# #{w 10408}#))
+ (#{id-mod 10447}#
+ (if (if (vector? #{id 10444}#)
+ (if (= (vector-length #{id 10444}#) 4)
+ (eq? (vector-ref #{id 10444}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 10416}# 3)
- #{mod 10382}#)))
- (let ((#{b 10420}#
- (let ((#{t 11129}# (assq #{n 10418}# #{r 10379}#)))
- (if #{t 11129}#
- (cdr #{t 11129}#)
- (if (symbol? #{n 10418}#)
- (let ((#{t 11134}#
+ (vector-ref #{id 10444}# 3)
+ #{mod 10410}#)))
+ (let ((#{b 10448}#
+ (let ((#{t 11165}# (assq #{n 10446}# #{r 10407}#)))
+ (if #{t 11165}#
+ (cdr #{t 11165}#)
+ (if (symbol? #{n 10446}#)
+ (let ((#{t 11170}#
(begin
- (if (if (not #{id-mod 10419}#)
+ (if (if (not #{id-mod 10447}#)
(current-module)
#f)
(warn "module system is booted, we
should have a module"
- #{n 10418}#))
- (let ((#{v 11171}#
+ #{n 10446}#))
+ (let ((#{v 11207}#
(module-variable
- (if #{id-mod 10419}#
+ (if #{id-mod 10447}#
(resolve-module
- (cdr #{id-mod 10419}#))
+ (cdr #{id-mod 10447}#))
(current-module))
- #{n 10418}#)))
- (if #{v 11171}#
- (if (variable-bound? #{v 11171}#)
- (let ((#{val 11180}#
+ #{n 10446}#)))
+ (if #{v 11207}#
+ (if (variable-bound? #{v 11207}#)
+ (let ((#{val 11216}#
(variable-ref
- #{v 11171}#)))
- (if (macro? #{val 11180}#)
+ #{v 11207}#)))
+ (if (macro? #{val 11216}#)
(if (macro-type
- #{val 11180}#)
+ #{val 11216}#)
(cons (macro-type
- #{val 11180}#)
+ #{val 11216}#)
(macro-binding
- #{val 11180}#))
+ #{val 11216}#))
#f)
#f))
#f)
#f)))))
- (if #{t 11134}# #{t 11134}# '(global)))
+ (if #{t 11170}# #{t 11170}# '(global)))
'(displaced-lexical))))))
- (let ((#{atom-key 10421}# (car #{b 10420}#)))
- (if (let ((#{t 10460}# #{atom-key 10421}#))
- (eqv? #{t 10460}# 'lexical))
- (#{build-lexical-assignment 4313}#
- #{s 10381}#
- (syntax->datum #{id 10416}#)
- (cdr #{b 10420}#)
- (#{chi 4375}#
- #{val 10417}#
- #{r 10379}#
- #{w 10380}#
- #{mod 10382}#))
- (if (let ((#{t 10755}# #{atom-key 10421}#))
- (eqv? #{t 10755}# 'global))
- (#{build-global-assignment 4316}#
- #{s 10381}#
- #{n 10418}#
- (#{chi 4375}#
- #{val 10417}#
- #{r 10379}#
- #{w 10380}#
- #{mod 10382}#)
- #{id-mod 10419}#)
- (if (let ((#{t 11020}# #{atom-key 10421}#))
- (eqv? #{t 11020}# 'macro))
- (let ((#{p 11083}# (cdr #{b 10420}#)))
+ (let ((#{atom-key 10449}# (car #{b 10448}#)))
+ (if (let ((#{t 10488}# #{atom-key 10449}#))
+ (eqv? #{t 10488}# 'lexical))
+ (#{build-lexical-assignment 4311}#
+ #{s 10409}#
+ (syntax->datum #{id 10444}#)
+ (cdr #{b 10448}#)
+ (#{chi 4373}#
+ #{val 10445}#
+ #{r 10407}#
+ #{w 10408}#
+ #{mod 10410}#))
+ (if (let ((#{t 10787}# #{atom-key 10449}#))
+ (eqv? #{t 10787}# 'global))
+ (#{build-global-assignment 4314}#
+ #{s 10409}#
+ #{n 10446}#
+ (#{chi 4373}#
+ #{val 10445}#
+ #{r 10407}#
+ #{w 10408}#
+ #{mod 10410}#)
+ #{id-mod 10447}#)
+ (if (let ((#{t 11056}# #{atom-key 10449}#))
+ (eqv? #{t 11056}# 'macro))
+ (let ((#{p 11119}# (cdr #{b 10448}#)))
(if (procedure-property
- #{p 11083}#
+ #{p 11119}#
'variable-transformer)
- (#{chi 4375}#
- (#{chi-macro 4378}#
- #{p 11083}#
- #{e 10378}#
- #{r 10379}#
- #{w 10380}#
- #{s 10381}#
+ (#{chi 4373}#
+ (#{chi-macro 4376}#
+ #{p 11119}#
+ #{e 10406}#
+ #{r 10407}#
+ #{w 10408}#
+ #{s 10409}#
#f
- #{mod 10382}#)
- #{r 10379}#
+ #{mod 10410}#)
+ #{r 10407}#
'(())
- #{mod 10382}#)
+ #{mod 10410}#)
(syntax-violation
'set!
"not a variable transformer"
- (if (if (null? (car #{w 10380}#))
- (null? (cdr #{w 10380}#))
+ (if (if (null? (car #{w 10408}#))
+ (null? (cdr #{w 10408}#))
#f)
- #{e 10378}#
- (if (if (vector? #{e 10378}#)
- (if (= (vector-length #{e 10378}#) 4)
- (eq? (vector-ref #{e 10378}# 0)
+ #{e 10406}#
+ (if (if (vector? #{e 10406}#)
+ (if (= (vector-length #{e 10406}#) 4)
+ (eq? (vector-ref #{e 10406}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 11283}#
- (vector-ref #{e 10378}# 1))
- (#{wrap 11284}#
- (let ((#{w2 11294}#
+ (let ((#{expression 11321}#
+ (vector-ref #{e 10406}# 1))
+ (#{wrap 11322}#
+ (let ((#{w2 11332}#
(vector-ref
- #{e 10378}#
+ #{e 10406}#
2)))
- (let ((#{m1 11295}#
- (car #{w 10380}#))
- (#{s1 11296}#
- (cdr #{w 10380}#)))
- (if (null? #{m1 11295}#)
- (if (null? #{s1 11296}#)
- #{w2 11294}#
- (cons (car #{w2 11294}#)
- (let ((#{m2 11313}#
- (cdr #{w2
11294}#)))
- (if (null? #{m2
11313}#)
- #{s1 11296}#
+ (let ((#{m1 11333}#
+ (car #{w 10408}#))
+ (#{s1 11334}#
+ (cdr #{w 10408}#)))
+ (if (null? #{m1 11333}#)
+ (if (null? #{s1 11334}#)
+ #{w2 11332}#
+ (cons (car #{w2 11332}#)
+ (let ((#{m2 11351}#
+ (cdr #{w2
11332}#)))
+ (if (null? #{m2
11351}#)
+ #{s1 11334}#
(append
- #{s1 11296}#
- #{m2
11313}#)))))
- (cons (let ((#{m2 11321}#
- (car #{w2
11294}#)))
- (if (null? #{m2
11321}#)
- #{m1 11295}#
+ #{s1 11334}#
+ #{m2
11351}#)))))
+ (cons (let ((#{m2 11359}#
+ (car #{w2
11332}#)))
+ (if (null? #{m2
11359}#)
+ #{m1 11333}#
(append
- #{m1 11295}#
- #{m2 11321}#)))
- (let ((#{m2 11329}#
- (cdr #{w2
11294}#)))
- (if (null? #{m2
11329}#)
- #{s1 11296}#
+ #{m1 11333}#
+ #{m2 11359}#)))
+ (let ((#{m2 11367}#
+ (cdr #{w2
11332}#)))
+ (if (null? #{m2
11367}#)
+ #{s1 11334}#
(append
- #{s1 11296}#
- #{m2
11329}#))))))))
- (#{module 11285}#
- (vector-ref #{e 10378}# 3)))
+ #{s1 11334}#
+ #{m2
11367}#))))))))
+ (#{module 11323}#
+ (vector-ref #{e 10406}# 3)))
(vector
'syntax-object
- #{expression 11283}#
- #{wrap 11284}#
- #{module 11285}#))
- (if (null? #{e 10378}#)
- #{e 10378}#
+ #{expression 11321}#
+ #{wrap 11322}#
+ #{module 11323}#))
+ (if (null? #{e 10406}#)
+ #{e 10406}#
(vector
'syntax-object
- #{e 10378}#
- #{w 10380}#
- #{mod 10382}#))))
- (if (if (null? (car #{w 10380}#))
- (null? (cdr #{w 10380}#))
+ #{e 10406}#
+ #{w 10408}#
+ #{mod 10410}#))))
+ (if (if (null? (car #{w 10408}#))
+ (null? (cdr #{w 10408}#))
#f)
- #{id 10416}#
- (if (if (vector? #{id 10416}#)
- (if (= (vector-length #{id 10416}#)
+ #{id 10444}#
+ (if (if (vector? #{id 10444}#)
+ (if (= (vector-length #{id 10444}#)
4)
- (eq? (vector-ref #{id 10416}# 0)
+ (eq? (vector-ref #{id 10444}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 11381}#
- (vector-ref #{id 10416}# 1))
- (#{wrap 11382}#
- (let ((#{w2 11392}#
+ (let ((#{expression 11419}#
+ (vector-ref #{id 10444}# 1))
+ (#{wrap 11420}#
+ (let ((#{w2 11430}#
(vector-ref
- #{id 10416}#
+ #{id 10444}#
2)))
- (let ((#{m1 11393}#
- (car #{w 10380}#))
- (#{s1 11394}#
- (cdr #{w 10380}#)))
- (if (null? #{m1 11393}#)
- (if (null? #{s1 11394}#)
- #{w2 11392}#
- (cons (car #{w2 11392}#)
- (let ((#{m2 11411}#
- (cdr #{w2
11392}#)))
- (if (null? #{m2
11411}#)
- #{s1 11394}#
+ (let ((#{m1 11431}#
+ (car #{w 10408}#))
+ (#{s1 11432}#
+ (cdr #{w 10408}#)))
+ (if (null? #{m1 11431}#)
+ (if (null? #{s1 11432}#)
+ #{w2 11430}#
+ (cons (car #{w2 11430}#)
+ (let ((#{m2 11449}#
+ (cdr #{w2
11430}#)))
+ (if (null? #{m2
11449}#)
+ #{s1 11432}#
(append
- #{s1 11394}#
- #{m2
11411}#)))))
- (cons (let ((#{m2 11419}#
- (car #{w2
11392}#)))
- (if (null? #{m2
11419}#)
- #{m1 11393}#
+ #{s1 11432}#
+ #{m2
11449}#)))))
+ (cons (let ((#{m2 11457}#
+ (car #{w2
11430}#)))
+ (if (null? #{m2
11457}#)
+ #{m1 11431}#
(append
- #{m1 11393}#
- #{m2 11419}#)))
- (let ((#{m2 11427}#
- (cdr #{w2
11392}#)))
- (if (null? #{m2
11427}#)
- #{s1 11394}#
+ #{m1 11431}#
+ #{m2 11457}#)))
+ (let ((#{m2 11465}#
+ (cdr #{w2
11430}#)))
+ (if (null? #{m2
11465}#)
+ #{s1 11432}#
(append
- #{s1 11394}#
- #{m2
11427}#))))))))
- (#{module 11383}#
- (vector-ref #{id 10416}# 3)))
+ #{s1 11432}#
+ #{m2
11465}#))))))))
+ (#{module 11421}#
+ (vector-ref #{id 10444}# 3)))
(vector
'syntax-object
- #{expression 11381}#
- #{wrap 11382}#
- #{module 11383}#))
- (if (null? #{id 10416}#)
- #{id 10416}#
+ #{expression 11419}#
+ #{wrap 11420}#
+ #{module 11421}#))
+ (if (null? #{id 10444}#)
+ #{id 10444}#
(vector
'syntax-object
- #{id 10416}#
- #{w 10380}#
- #{id-mod 10419}#)))))))
- (if (eqv? #{atom-key 10421}# 'displaced-lexical)
+ #{id 10444}#
+ #{w 10408}#
+ #{id-mod 10447}#)))))))
+ (if (eqv? #{atom-key 10449}# 'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (if (if (null? (car #{w 10380}#))
- (null? (cdr #{w 10380}#))
+ (if (if (null? (car #{w 10408}#))
+ (null? (cdr #{w 10408}#))
#f)
- #{id 10416}#
- (if (if (vector? #{id 10416}#)
- (if (= (vector-length #{id 10416}#) 4)
- (eq? (vector-ref #{id 10416}# 0)
+ #{id 10444}#
+ (if (if (vector? #{id 10444}#)
+ (if (= (vector-length #{id 10444}#) 4)
+ (eq? (vector-ref #{id 10444}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 11483}#
- (vector-ref #{id 10416}# 1))
- (#{wrap 11484}#
- (let ((#{w2 11494}#
+ (let ((#{expression 11521}#
+ (vector-ref #{id 10444}# 1))
+ (#{wrap 11522}#
+ (let ((#{w2 11532}#
(vector-ref
- #{id 10416}#
+ #{id 10444}#
2)))
- (let ((#{m1 11495}#
- (car #{w 10380}#))
- (#{s1 11496}#
- (cdr #{w 10380}#)))
- (if (null? #{m1 11495}#)
- (if (null? #{s1 11496}#)
- #{w2 11494}#
- (cons (car #{w2 11494}#)
- (let ((#{m2 11513}#
- (cdr #{w2
11494}#)))
- (if (null? #{m2
11513}#)
- #{s1 11496}#
+ (let ((#{m1 11533}#
+ (car #{w 10408}#))
+ (#{s1 11534}#
+ (cdr #{w 10408}#)))
+ (if (null? #{m1 11533}#)
+ (if (null? #{s1 11534}#)
+ #{w2 11532}#
+ (cons (car #{w2 11532}#)
+ (let ((#{m2 11551}#
+ (cdr #{w2
11532}#)))
+ (if (null? #{m2
11551}#)
+ #{s1 11534}#
(append
- #{s1 11496}#
- #{m2
11513}#)))))
- (cons (let ((#{m2 11521}#
- (car #{w2
11494}#)))
- (if (null? #{m2
11521}#)
- #{m1 11495}#
+ #{s1 11534}#
+ #{m2
11551}#)))))
+ (cons (let ((#{m2 11559}#
+ (car #{w2
11532}#)))
+ (if (null? #{m2
11559}#)
+ #{m1 11533}#
(append
- #{m1 11495}#
- #{m2 11521}#)))
- (let ((#{m2 11529}#
- (cdr #{w2
11494}#)))
- (if (null? #{m2
11529}#)
- #{s1 11496}#
+ #{m1 11533}#
+ #{m2 11559}#)))
+ (let ((#{m2 11567}#
+ (cdr #{w2
11532}#)))
+ (if (null? #{m2
11567}#)
+ #{s1 11534}#
(append
- #{s1 11496}#
- #{m2
11529}#))))))))
- (#{module 11485}#
- (vector-ref #{id 10416}# 3)))
+ #{s1 11534}#
+ #{m2
11567}#))))))))
+ (#{module 11523}#
+ (vector-ref #{id 10444}# 3)))
(vector
'syntax-object
- #{expression 11483}#
- #{wrap 11484}#
- #{module 11485}#))
- (if (null? #{id 10416}#)
- #{id 10416}#
+ #{expression 11521}#
+ #{wrap 11522}#
+ #{module 11523}#))
+ (if (null? #{id 10444}#)
+ #{id 10444}#
(vector
'syntax-object
- #{id 10416}#
- #{w 10380}#
- #{mod 10382}#)))))
+ #{id 10444}#
+ #{w 10408}#
+ #{mod 10410}#)))))
(syntax-violation
'set!
"bad set!"
- (let ((#{x 11561}#
+ (let ((#{x 11599}#
(begin
- (if (if (pair? #{e 10378}#)
- #{s 10381}#
+ (if (if (pair? #{e 10406}#)
+ #{s 10409}#
#f)
(set-source-properties!
- #{e 10378}#
- #{s 10381}#))
- #{e 10378}#)))
- (if (if (null? (car #{w 10380}#))
- (null? (cdr #{w 10380}#))
+ #{e 10406}#
+ #{s 10409}#))
+ #{e 10406}#)))
+ (if (if (null? (car #{w 10408}#))
+ (null? (cdr #{w 10408}#))
#f)
- #{x 11561}#
- (if (if (vector? #{x 11561}#)
- (if (= (vector-length #{x 11561}#) 4)
- (eq? (vector-ref #{x 11561}# 0)
+ #{x 11599}#
+ (if (if (vector? #{x 11599}#)
+ (if (= (vector-length #{x 11599}#) 4)
+ (eq? (vector-ref #{x 11599}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 11593}#
- (vector-ref #{x 11561}# 1))
- (#{wrap 11594}#
- (let ((#{w2 11602}#
+ (let ((#{expression 11631}#
+ (vector-ref #{x 11599}# 1))
+ (#{wrap 11632}#
+ (let ((#{w2 11640}#
(vector-ref
- #{x 11561}#
+ #{x 11599}#
2)))
- (let ((#{m1 11603}#
- (car #{w 10380}#))
- (#{s1 11604}#
- (cdr #{w 10380}#)))
- (if (null? #{m1 11603}#)
- (if (null? #{s1 11604}#)
- #{w2 11602}#
- (cons (car #{w2 11602}#)
- (let ((#{m2 11619}#
- (cdr #{w2
11602}#)))
- (if (null? #{m2
11619}#)
- #{s1 11604}#
+ (let ((#{m1 11641}#
+ (car #{w 10408}#))
+ (#{s1 11642}#
+ (cdr #{w 10408}#)))
+ (if (null? #{m1 11641}#)
+ (if (null? #{s1 11642}#)
+ #{w2 11640}#
+ (cons (car #{w2 11640}#)
+ (let ((#{m2 11657}#
+ (cdr #{w2
11640}#)))
+ (if (null? #{m2
11657}#)
+ #{s1 11642}#
(append
- #{s1 11604}#
- #{m2
11619}#)))))
- (cons (let ((#{m2 11627}#
- (car #{w2
11602}#)))
- (if (null? #{m2
11627}#)
- #{m1 11603}#
+ #{s1 11642}#
+ #{m2
11657}#)))))
+ (cons (let ((#{m2 11665}#
+ (car #{w2
11640}#)))
+ (if (null? #{m2
11665}#)
+ #{m1 11641}#
(append
- #{m1 11603}#
- #{m2 11627}#)))
- (let ((#{m2 11635}#
- (cdr #{w2
11602}#)))
- (if (null? #{m2
11635}#)
- #{s1 11604}#
+ #{m1 11641}#
+ #{m2 11665}#)))
+ (let ((#{m2 11673}#
+ (cdr #{w2
11640}#)))
+ (if (null? #{m2
11673}#)
+ #{s1 11642}#
(append
- #{s1 11604}#
- #{m2
11635}#))))))))
- (#{module 11595}#
- (vector-ref #{x 11561}# 3)))
+ #{s1 11642}#
+ #{m2
11673}#))))))))
+ (#{module 11633}#
+ (vector-ref #{x 11599}# 3)))
(vector
'syntax-object
- #{expression 11593}#
- #{wrap 11594}#
- #{module 11595}#))
- (if (null? #{x 11561}#)
- #{x 11561}#
+ #{expression 11631}#
+ #{wrap 11632}#
+ #{module 11633}#))
+ (if (null? #{x 11599}#)
+ #{x 11599}#
(vector
'syntax-object
- #{x 11561}#
- #{w 10380}#
- #{mod 10382}#))))))))))))))
- #{tmp 10384}#)
- (let ((#{tmp 11650}#
+ #{x 11599}#
+ #{w 10408}#
+ #{mod 10410}#))))))))))))))
+ #{tmp 10412}#)
+ (let ((#{tmp 11688}#
($sc-dispatch
- #{e 10378}#
+ #{e 10406}#
'(_ (any . each-any) any))))
- (if #{tmp 11650}#
+ (if #{tmp 11688}#
(@apply
- (lambda (#{head 11654}# #{tail 11655}# #{val 11656}#)
+ (lambda (#{head 11692}# #{tail 11693}# #{val 11694}#)
(call-with-values
(lambda ()
- (#{syntax-type 4374}#
- #{head 11654}#
- #{r 10379}#
+ (#{syntax-type 4372}#
+ #{head 11692}#
+ #{r 10407}#
'(())
#f
#f
- #{mod 10382}#
+ #{mod 10410}#
#t))
- (lambda (#{type 11659}#
- #{value 11660}#
- #{ee 11661}#
- #{ww 11662}#
- #{ss 11663}#
- #{modmod 11664}#)
- (if (eqv? #{type 11659}# 'module-ref)
- (let ((#{val 11668}#
- (#{chi 4375}#
- #{val 11656}#
- #{r 10379}#
- #{w 10380}#
- #{mod 10382}#)))
+ (lambda (#{type 11697}#
+ #{value 11698}#
+ #{ee 11699}#
+ #{ww 11700}#
+ #{ss 11701}#
+ #{modmod 11702}#)
+ (if (eqv? #{type 11697}# 'module-ref)
+ (let ((#{val 11706}#
+ (#{chi 4373}#
+ #{val 11694}#
+ #{r 10407}#
+ #{w 10408}#
+ #{mod 10410}#)))
(call-with-values
(lambda ()
- (#{value 11660}#
- (cons #{head 11654}# #{tail 11655}#)
- #{r 10379}#
- #{w 10380}#))
- (lambda (#{e 11669}#
- #{r 11670}#
- #{w 11671}#
- #{s* 11672}#
- #{mod 11673}#)
- (let ((#{tmp 11675}# (list #{e 11669}#)))
+ (#{value 11698}#
+ (cons #{head 11692}# #{tail 11693}#)
+ #{r 10407}#
+ #{w 10408}#))
+ (lambda (#{e 11707}#
+ #{r 11708}#
+ #{w 11709}#
+ #{s* 11710}#
+ #{mod 11711}#)
+ (let ((#{tmp 11713}# (list #{e 11707}#)))
(if (@apply
- (lambda (#{e 11677}#)
- (if (symbol? #{e 11677}#)
+ (lambda (#{e 11715}#)
+ (if (symbol? #{e 11715}#)
#t
- (if (if (vector? #{e 11677}#)
+ (if (if (vector? #{e 11715}#)
(if (= (vector-length
- #{e 11677}#)
+ #{e 11715}#)
4)
(eq? (vector-ref
- #{e 11677}#
+ #{e 11715}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{e 11677}# 1))
+ (vector-ref #{e 11715}# 1))
#f)))
- #{tmp 11675}#)
+ #{tmp 11713}#)
(@apply
- (lambda (#{e 11707}#)
- (#{build-global-assignment 4316}#
- #{s 10381}#
- (syntax->datum #{e 11707}#)
- #{val 11668}#
- #{mod 11673}#))
- #{tmp 11675}#)
+ (lambda (#{e 11745}#)
+ (#{build-global-assignment 4314}#
+ #{s 10409}#
+ (syntax->datum #{e 11745}#)
+ #{val 11706}#
+ #{mod 11711}#))
+ #{tmp 11713}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e 11669}#))))))
- (#{build-call 4309}#
- #{s 10381}#
- (#{chi 4375}#
+ #{e 11707}#))))))
+ (#{build-call 4307}#
+ #{s 10409}#
+ (#{chi 4373}#
(list '#(syntax-object
setter
((top)
@@ -11028,25 +11011,25 @@
(top)
(top)
(top))
- #("i3587"
+ #("i3585"
+ "i3586"
+ "i3587"
"i3588"
"i3589"
- "i3590"
- "i3591"
- "i3592"))
+ "i3590"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("i3573" "i3574" "i3575"))
+ #("i3571" "i3572" "i3573"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
#((top) (top) (top) (top) (top))
- #("i3537"
+ #("i3535"
+ "i3536"
+ "i3537"
"i3538"
- "i3539"
- "i3540"
- "i3541"))
+ "i3539"))
#(ribcage
(lambda-var-list
gen-var
@@ -11469,113 +11452,113 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- #{head 11654}#)
- #{r 10379}#
- #{w 10380}#
- #{mod 10382}#)
- (map (lambda (#{e 12028}#)
- (#{chi 4375}#
- #{e 12028}#
- #{r 10379}#
- #{w 10380}#
- #{mod 10382}#))
+ #{head 11692}#)
+ #{r 10407}#
+ #{w 10408}#
+ #{mod 10410}#)
+ (map (lambda (#{e 12074}#)
+ (#{chi 4373}#
+ #{e 12074}#
+ #{r 10407}#
+ #{w 10408}#
+ #{mod 10410}#))
(append
- #{tail 11655}#
- (list #{val 11656}#))))))))
- #{tmp 11650}#)
+ #{tail 11693}#
+ (list #{val 11694}#))))))))
+ #{tmp 11688}#)
(syntax-violation
'set!
"bad set!"
- (let ((#{x 12118}#
+ (let ((#{x 12166}#
(begin
- (if (if (pair? #{e 10378}#) #{s 10381}# #f)
- (set-source-properties! #{e 10378}# #{s 10381}#))
- #{e 10378}#)))
- (if (if (null? (car #{w 10380}#))
- (null? (cdr #{w 10380}#))
+ (if (if (pair? #{e 10406}#) #{s 10409}# #f)
+ (set-source-properties! #{e 10406}# #{s 10409}#))
+ #{e 10406}#)))
+ (if (if (null? (car #{w 10408}#))
+ (null? (cdr #{w 10408}#))
#f)
- #{x 12118}#
- (if (if (vector? #{x 12118}#)
- (if (= (vector-length #{x 12118}#) 4)
- (eq? (vector-ref #{x 12118}# 0) 'syntax-object)
+ #{x 12166}#
+ (if (if (vector? #{x 12166}#)
+ (if (= (vector-length #{x 12166}#) 4)
+ (eq? (vector-ref #{x 12166}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 12150}# (vector-ref #{x 12118}# 1))
- (#{wrap 12151}#
- (let ((#{w2 12159}#
- (vector-ref #{x 12118}# 2)))
- (let ((#{m1 12160}# (car #{w 10380}#))
- (#{s1 12161}# (cdr #{w 10380}#)))
- (if (null? #{m1 12160}#)
- (if (null? #{s1 12161}#)
- #{w2 12159}#
- (cons (car #{w2 12159}#)
- (let ((#{m2 12176}#
- (cdr #{w2 12159}#)))
- (if (null? #{m2 12176}#)
- #{s1 12161}#
+ (let ((#{expression 12198}# (vector-ref #{x 12166}# 1))
+ (#{wrap 12199}#
+ (let ((#{w2 12207}#
+ (vector-ref #{x 12166}# 2)))
+ (let ((#{m1 12208}# (car #{w 10408}#))
+ (#{s1 12209}# (cdr #{w 10408}#)))
+ (if (null? #{m1 12208}#)
+ (if (null? #{s1 12209}#)
+ #{w2 12207}#
+ (cons (car #{w2 12207}#)
+ (let ((#{m2 12224}#
+ (cdr #{w2 12207}#)))
+ (if (null? #{m2 12224}#)
+ #{s1 12209}#
(append
- #{s1 12161}#
- #{m2 12176}#)))))
- (cons (let ((#{m2 12184}#
- (car #{w2 12159}#)))
- (if (null? #{m2 12184}#)
- #{m1 12160}#
+ #{s1 12209}#
+ #{m2 12224}#)))))
+ (cons (let ((#{m2 12232}#
+ (car #{w2 12207}#)))
+ (if (null? #{m2 12232}#)
+ #{m1 12208}#
(append
- #{m1 12160}#
- #{m2 12184}#)))
- (let ((#{m2 12192}#
- (cdr #{w2 12159}#)))
- (if (null? #{m2 12192}#)
- #{s1 12161}#
+ #{m1 12208}#
+ #{m2 12232}#)))
+ (let ((#{m2 12240}#
+ (cdr #{w2 12207}#)))
+ (if (null? #{m2 12240}#)
+ #{s1 12209}#
(append
- #{s1 12161}#
- #{m2 12192}#))))))))
- (#{module 12152}# (vector-ref #{x 12118}# 3)))
+ #{s1 12209}#
+ #{m2 12240}#))))))))
+ (#{module 12200}# (vector-ref #{x 12166}# 3)))
(vector
'syntax-object
- #{expression 12150}#
- #{wrap 12151}#
- #{module 12152}#))
- (if (null? #{x 12118}#)
- #{x 12118}#
+ #{expression 12198}#
+ #{wrap 12199}#
+ #{module 12200}#))
+ (if (null? #{x 12166}#)
+ #{x 12166}#
(vector
'syntax-object
- #{x 12118}#
- #{w 10380}#
- #{mod 10382}#))))))))))))
+ #{x 12166}#
+ #{w 10408}#
+ #{mod 10410}#))))))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (#{e 12223}# #{r 12224}# #{w 12225}#)
- (let ((#{tmp 12227}#
- ($sc-dispatch #{e 12223}# '(_ each-any any))))
- (if (if #{tmp 12227}#
+ (lambda (#{e 12271}# #{r 12272}# #{w 12273}#)
+ (let ((#{tmp 12275}#
+ ($sc-dispatch #{e 12271}# '(_ each-any any))))
+ (if (if #{tmp 12275}#
(@apply
- (lambda (#{mod 12230}# #{id 12231}#)
- (if (and-map #{id? 4343}# #{mod 12230}#)
- (if (symbol? #{id 12231}#)
+ (lambda (#{mod 12278}# #{id 12279}#)
+ (if (and-map #{id? 4341}# #{mod 12278}#)
+ (if (symbol? #{id 12279}#)
#t
- (if (if (vector? #{id 12231}#)
- (if (= (vector-length #{id 12231}#) 4)
- (eq? (vector-ref #{id 12231}# 0)
+ (if (if (vector? #{id 12279}#)
+ (if (= (vector-length #{id 12279}#) 4)
+ (eq? (vector-ref #{id 12279}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 12231}# 1))
+ (symbol? (vector-ref #{id 12279}# 1))
#f))
#f))
- #{tmp 12227}#)
+ #{tmp 12275}#)
#f)
(@apply
- (lambda (#{mod 12271}# #{id 12272}#)
+ (lambda (#{mod 12319}# #{id 12320}#)
(values
- (syntax->datum #{id 12272}#)
- #{r 12224}#
- #{w 12225}#
+ (syntax->datum #{id 12320}#)
+ #{r 12272}#
+ #{w 12273}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -11584,12 +11567,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("i3634" "i3635"))
+ #("i3632" "i3633"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3622" "i3623" "i3624"))
+ #("i3620" "i3621" "i3622"))
#(ribcage
(lambda-var-list
gen-var
@@ -12012,70 +11995,70 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- #{mod 12271}#))))
- #{tmp 12227}#)
+ #{mod 12319}#))))
+ #{tmp 12275}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 12223}#))))))
- (#{global-extend 4341}#
+ #{e 12271}#))))))
+ (#{global-extend 4339}#
'module-ref
'@@
- (lambda (#{e 12374}# #{r 12375}# #{w 12376}#)
+ (lambda (#{e 12424}# #{r 12425}# #{w 12426}#)
(letrec*
- ((#{remodulate 12377}#
- (lambda (#{x 12601}# #{mod 12602}#)
- (if (pair? #{x 12601}#)
- (cons (#{remodulate 12377}#
- (car #{x 12601}#)
- #{mod 12602}#)
- (#{remodulate 12377}#
- (cdr #{x 12601}#)
- #{mod 12602}#))
- (if (if (vector? #{x 12601}#)
- (if (= (vector-length #{x 12601}#) 4)
- (eq? (vector-ref #{x 12601}# 0) 'syntax-object)
+ ((#{remodulate 12427}#
+ (lambda (#{x 12663}# #{mod 12664}#)
+ (if (pair? #{x 12663}#)
+ (cons (#{remodulate 12427}#
+ (car #{x 12663}#)
+ #{mod 12664}#)
+ (#{remodulate 12427}#
+ (cdr #{x 12663}#)
+ #{mod 12664}#))
+ (if (if (vector? #{x 12663}#)
+ (if (= (vector-length #{x 12663}#) 4)
+ (eq? (vector-ref #{x 12663}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 12616}#
- (#{remodulate 12377}#
- (vector-ref #{x 12601}# 1)
- #{mod 12602}#))
- (#{wrap 12617}# (vector-ref #{x 12601}# 2)))
+ (let ((#{expression 12678}#
+ (#{remodulate 12427}#
+ (vector-ref #{x 12663}# 1)
+ #{mod 12664}#))
+ (#{wrap 12679}# (vector-ref #{x 12663}# 2)))
(vector
'syntax-object
- #{expression 12616}#
- #{wrap 12617}#
- #{mod 12602}#))
- (if (vector? #{x 12601}#)
- (let ((#{n 12625}# (vector-length #{x 12601}#)))
- (let ((#{v 12626}# (make-vector #{n 12625}#)))
+ #{expression 12678}#
+ #{wrap 12679}#
+ #{mod 12664}#))
+ (if (vector? #{x 12663}#)
+ (let ((#{n 12687}# (vector-length #{x 12663}#)))
+ (let ((#{v 12688}# (make-vector #{n 12687}#)))
(letrec*
- ((#{loop 12627}#
- (lambda (#{i 12682}#)
- (if (= #{i 12682}# #{n 12625}#)
- #{v 12626}#
+ ((#{loop 12689}#
+ (lambda (#{i 12744}#)
+ (if (= #{i 12744}# #{n 12687}#)
+ #{v 12688}#
(begin
(vector-set!
- #{v 12626}#
- #{i 12682}#
- (#{remodulate 12377}#
- (vector-ref #{x 12601}# #{i 12682}#)
- #{mod 12602}#))
- (#{loop 12627}# (#{1+}# #{i 12682}#)))))))
- (#{loop 12627}# 0))))
- #{x 12601}#))))))
- (let ((#{tmp 12379}#
- ($sc-dispatch #{e 12374}# '(_ each-any any))))
- (if (if #{tmp 12379}#
+ #{v 12688}#
+ #{i 12744}#
+ (#{remodulate 12427}#
+ (vector-ref #{x 12663}# #{i 12744}#)
+ #{mod 12664}#))
+ (#{loop 12689}# (#{1+}# #{i 12744}#)))))))
+ (#{loop 12689}# 0))))
+ #{x 12663}#))))))
+ (let ((#{tmp 12429}#
+ ($sc-dispatch #{e 12424}# '(_ each-any any))))
+ (if (if #{tmp 12429}#
(@apply
- (lambda (#{mod 12383}# #{exp 12384}#)
- (and-map #{id? 4343}# #{mod 12383}#))
- #{tmp 12379}#)
+ (lambda (#{mod 12433}# #{exp 12434}#)
+ (and-map #{id? 4341}# #{mod 12433}#))
+ #{tmp 12429}#)
#f)
(@apply
- (lambda (#{mod 12400}# #{exp 12401}#)
- (let ((#{mod 12402}#
+ (lambda (#{mod 12450}# #{exp 12451}#)
+ (let ((#{mod 12452}#
(syntax->datum
(cons '#(syntax-object
private
@@ -12083,12 +12066,12 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("i3678" "i3679"))
- #(ribcage (remodulate) ((top)) ("i3645"))
+ #("i3676" "i3677"))
+ #(ribcage (remodulate) ((top)) ("i3643"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i3642" "i3643" "i3644"))
+ #("i3640" "i3641" "i3642"))
#(ribcage
(lambda-var-list
gen-var
@@ -12511,181 +12494,181 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- #{mod 12400}#))))
+ #{mod 12450}#))))
(values
- (#{remodulate 12377}#
- #{exp 12401}#
- #{mod 12402}#)
- #{r 12375}#
- #{w 12376}#
- (#{source-annotation 4336}# #{exp 12401}#)
- #{mod 12402}#)))
- #{tmp 12379}#)
+ (#{remodulate 12427}#
+ #{exp 12451}#
+ #{mod 12452}#)
+ #{r 12425}#
+ #{w 12426}#
+ (#{source-annotation 4334}# #{exp 12451}#)
+ #{mod 12452}#)))
+ #{tmp 12429}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 12374}#))))))
- (#{global-extend 4341}#
+ #{e 12424}#))))))
+ (#{global-extend 4339}#
'core
'if
- (lambda (#{e 12793}#
- #{r 12794}#
- #{w 12795}#
- #{s 12796}#
- #{mod 12797}#)
- (let ((#{tmp 12799}#
- ($sc-dispatch #{e 12793}# '(_ any any))))
- (if #{tmp 12799}#
+ (lambda (#{e 12857}#
+ #{r 12858}#
+ #{w 12859}#
+ #{s 12860}#
+ #{mod 12861}#)
+ (let ((#{tmp 12863}#
+ ($sc-dispatch #{e 12857}# '(_ any any))))
+ (if #{tmp 12863}#
(@apply
- (lambda (#{test 12803}# #{then 12804}#)
- (#{build-conditional 4310}#
- #{s 12796}#
- (#{chi 4375}#
- #{test 12803}#
- #{r 12794}#
- #{w 12795}#
- #{mod 12797}#)
- (#{chi 4375}#
- #{then 12804}#
- #{r 12794}#
- #{w 12795}#
- #{mod 12797}#)
+ (lambda (#{test 12867}# #{then 12868}#)
+ (#{build-conditional 4308}#
+ #{s 12860}#
+ (#{chi 4373}#
+ #{test 12867}#
+ #{r 12858}#
+ #{w 12859}#
+ #{mod 12861}#)
+ (#{chi 4373}#
+ #{then 12868}#
+ #{r 12858}#
+ #{w 12859}#
+ #{mod 12861}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp 12799}#)
- (let ((#{tmp 13059}#
- ($sc-dispatch #{e 12793}# '(_ any any any))))
- (if #{tmp 13059}#
+ #{tmp 12863}#)
+ (let ((#{tmp 13129}#
+ ($sc-dispatch #{e 12857}# '(_ any any any))))
+ (if #{tmp 13129}#
(@apply
- (lambda (#{test 13063}# #{then 13064}# #{else 13065}#)
- (#{build-conditional 4310}#
- #{s 12796}#
- (#{chi 4375}#
- #{test 13063}#
- #{r 12794}#
- #{w 12795}#
- #{mod 12797}#)
- (#{chi 4375}#
- #{then 13064}#
- #{r 12794}#
- #{w 12795}#
- #{mod 12797}#)
- (#{chi 4375}#
- #{else 13065}#
- #{r 12794}#
- #{w 12795}#
- #{mod 12797}#)))
- #{tmp 13059}#)
+ (lambda (#{test 13133}# #{then 13134}# #{else 13135}#)
+ (#{build-conditional 4308}#
+ #{s 12860}#
+ (#{chi 4373}#
+ #{test 13133}#
+ #{r 12858}#
+ #{w 12859}#
+ #{mod 12861}#)
+ (#{chi 4373}#
+ #{then 13134}#
+ #{r 12858}#
+ #{w 12859}#
+ #{mod 12861}#)
+ (#{chi 4373}#
+ #{else 13135}#
+ #{r 12858}#
+ #{w 12859}#
+ #{mod 12861}#)))
+ #{tmp 13129}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 12793}#)))))))
- (#{global-extend 4341}#
+ #{e 12857}#)))))))
+ (#{global-extend 4339}#
'core
'with-fluids
- (lambda (#{e 13514}#
- #{r 13515}#
- #{w 13516}#
- #{s 13517}#
- #{mod 13518}#)
- (let ((#{tmp 13520}#
+ (lambda (#{e 13594}#
+ #{r 13595}#
+ #{w 13596}#
+ #{s 13597}#
+ #{mod 13598}#)
+ (let ((#{tmp 13600}#
($sc-dispatch
- #{e 13514}#
+ #{e 13594}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 13520}#
+ (if #{tmp 13600}#
(@apply
- (lambda (#{fluid 13524}#
- #{val 13525}#
- #{b 13526}#
- #{b* 13527}#)
- (#{build-dynlet 4311}#
- #{s 13517}#
- (map (lambda (#{x 13618}#)
- (#{chi 4375}#
- #{x 13618}#
- #{r 13515}#
- #{w 13516}#
- #{mod 13518}#))
- #{fluid 13524}#)
- (map (lambda (#{x 13698}#)
- (#{chi 4375}#
- #{x 13698}#
- #{r 13515}#
- #{w 13516}#
- #{mod 13518}#))
- #{val 13525}#)
- (#{chi-body 4379}#
- (cons #{b 13526}# #{b* 13527}#)
- (let ((#{x 13789}#
+ (lambda (#{fluid 13604}#
+ #{val 13605}#
+ #{b 13606}#
+ #{b* 13607}#)
+ (#{build-dynlet 4309}#
+ #{s 13597}#
+ (map (lambda (#{x 13700}#)
+ (#{chi 4373}#
+ #{x 13700}#
+ #{r 13595}#
+ #{w 13596}#
+ #{mod 13598}#))
+ #{fluid 13604}#)
+ (map (lambda (#{x 13782}#)
+ (#{chi 4373}#
+ #{x 13782}#
+ #{r 13595}#
+ #{w 13596}#
+ #{mod 13598}#))
+ #{val 13605}#)
+ (#{chi-body 4377}#
+ (cons #{b 13606}# #{b* 13607}#)
+ (let ((#{x 13875}#
(begin
- (if (if (pair? #{e 13514}#) #{s 13517}# #f)
+ (if (if (pair? #{e 13594}#) #{s 13597}# #f)
(set-source-properties!
- #{e 13514}#
- #{s 13517}#))
- #{e 13514}#)))
- (if (if (null? (car #{w 13516}#))
- (null? (cdr #{w 13516}#))
+ #{e 13594}#
+ #{s 13597}#))
+ #{e 13594}#)))
+ (if (if (null? (car #{w 13596}#))
+ (null? (cdr #{w 13596}#))
#f)
- #{x 13789}#
- (if (if (vector? #{x 13789}#)
- (if (= (vector-length #{x 13789}#) 4)
- (eq? (vector-ref #{x 13789}# 0) 'syntax-object)
+ #{x 13875}#
+ (if (if (vector? #{x 13875}#)
+ (if (= (vector-length #{x 13875}#) 4)
+ (eq? (vector-ref #{x 13875}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 13821}#
- (vector-ref #{x 13789}# 1))
- (#{wrap 13822}#
- (let ((#{w2 13830}#
- (vector-ref #{x 13789}# 2)))
- (let ((#{m1 13831}# (car #{w 13516}#))
- (#{s1 13832}# (cdr #{w 13516}#)))
- (if (null? #{m1 13831}#)
- (if (null? #{s1 13832}#)
- #{w2 13830}#
- (cons (car #{w2 13830}#)
- (let ((#{m2 13847}#
- (cdr #{w2 13830}#)))
- (if (null? #{m2 13847}#)
- #{s1 13832}#
+ (let ((#{expression 13907}#
+ (vector-ref #{x 13875}# 1))
+ (#{wrap 13908}#
+ (let ((#{w2 13916}#
+ (vector-ref #{x 13875}# 2)))
+ (let ((#{m1 13917}# (car #{w 13596}#))
+ (#{s1 13918}# (cdr #{w 13596}#)))
+ (if (null? #{m1 13917}#)
+ (if (null? #{s1 13918}#)
+ #{w2 13916}#
+ (cons (car #{w2 13916}#)
+ (let ((#{m2 13933}#
+ (cdr #{w2 13916}#)))
+ (if (null? #{m2 13933}#)
+ #{s1 13918}#
(append
- #{s1 13832}#
- #{m2 13847}#)))))
- (cons (let ((#{m2 13855}#
- (car #{w2 13830}#)))
- (if (null? #{m2 13855}#)
- #{m1 13831}#
+ #{s1 13918}#
+ #{m2 13933}#)))))
+ (cons (let ((#{m2 13941}#
+ (car #{w2 13916}#)))
+ (if (null? #{m2 13941}#)
+ #{m1 13917}#
(append
- #{m1 13831}#
- #{m2 13855}#)))
- (let ((#{m2 13863}#
- (cdr #{w2 13830}#)))
- (if (null? #{m2 13863}#)
- #{s1 13832}#
+ #{m1 13917}#
+ #{m2 13941}#)))
+ (let ((#{m2 13949}#
+ (cdr #{w2 13916}#)))
+ (if (null? #{m2 13949}#)
+ #{s1 13918}#
(append
- #{s1 13832}#
- #{m2 13863}#))))))))
- (#{module 13823}# (vector-ref #{x 13789}# 3)))
+ #{s1 13918}#
+ #{m2 13949}#))))))))
+ (#{module 13909}# (vector-ref #{x 13875}# 3)))
(vector
'syntax-object
- #{expression 13821}#
- #{wrap 13822}#
- #{module 13823}#))
- (if (null? #{x 13789}#)
- #{x 13789}#
+ #{expression 13907}#
+ #{wrap 13908}#
+ #{module 13909}#))
+ (if (null? #{x 13875}#)
+ #{x 13875}#
(vector
'syntax-object
- #{x 13789}#
- #{w 13516}#
- #{mod 13518}#)))))
- #{r 13515}#
- #{w 13516}#
- #{mod 13518}#)))
- #{tmp 13520}#)
+ #{x 13875}#
+ #{w 13596}#
+ #{mod 13598}#)))))
+ #{r 13595}#
+ #{w 13596}#
+ #{mod 13598}#)))
+ #{tmp 13600}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 13514}#)))))
+ #{e 13594}#)))))
(module-define!
(current-module)
'begin
@@ -12708,68 +12691,68 @@
'eval-when
'eval-when
'()))
- (#{global-extend 4341}#
+ (#{global-extend 4339}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern 14157}#
- (lambda (#{pattern 15795}# #{keys 15796}#)
+ ((#{convert-pattern 14243}#
+ (lambda (#{pattern 15899}# #{keys 15900}#)
(letrec*
- ((#{cvt* 15797}#
- (lambda (#{p* 16596}# #{n 16597}# #{ids 16598}#)
- (if (not (pair? #{p* 16596}#))
- (#{cvt 15799}#
- #{p* 16596}#
- #{n 16597}#
- #{ids 16598}#)
+ ((#{cvt* 15901}#
+ (lambda (#{p* 16700}# #{n 16701}# #{ids 16702}#)
+ (if (not (pair? #{p* 16700}#))
+ (#{cvt 15903}#
+ #{p* 16700}#
+ #{n 16701}#
+ #{ids 16702}#)
(call-with-values
(lambda ()
- (#{cvt* 15797}#
- (cdr #{p* 16596}#)
- #{n 16597}#
- #{ids 16598}#))
- (lambda (#{y 16601}# #{ids 16602}#)
+ (#{cvt* 15901}#
+ (cdr #{p* 16700}#)
+ #{n 16701}#
+ #{ids 16702}#))
+ (lambda (#{y 16705}# #{ids 16706}#)
(call-with-values
(lambda ()
- (#{cvt 15799}#
- (car #{p* 16596}#)
- #{n 16597}#
- #{ids 16602}#))
- (lambda (#{x 16605}# #{ids 16606}#)
+ (#{cvt 15903}#
+ (car #{p* 16700}#)
+ #{n 16701}#
+ #{ids 16706}#))
+ (lambda (#{x 16709}# #{ids 16710}#)
(values
- (cons #{x 16605}# #{y 16601}#)
- #{ids 16606}#))))))))
- (#{v-reverse 15798}#
- (lambda (#{x 16607}#)
+ (cons #{x 16709}# #{y 16705}#)
+ #{ids 16710}#))))))))
+ (#{v-reverse 15902}#
+ (lambda (#{x 16711}#)
(letrec*
- ((#{loop 16608}#
- (lambda (#{r 16709}# #{x 16710}#)
- (if (not (pair? #{x 16710}#))
- (values #{r 16709}# #{x 16710}#)
- (#{loop 16608}#
- (cons (car #{x 16710}#) #{r 16709}#)
- (cdr #{x 16710}#))))))
- (#{loop 16608}# '() #{x 16607}#))))
- (#{cvt 15799}#
- (lambda (#{p 15802}# #{n 15803}# #{ids 15804}#)
- (if (if (symbol? #{p 15802}#)
+ ((#{loop 16712}#
+ (lambda (#{r 16813}# #{x 16814}#)
+ (if (not (pair? #{x 16814}#))
+ (values #{r 16813}# #{x 16814}#)
+ (#{loop 16712}#
+ (cons (car #{x 16814}#) #{r 16813}#)
+ (cdr #{x 16814}#))))))
+ (#{loop 16712}# '() #{x 16711}#))))
+ (#{cvt 15903}#
+ (lambda (#{p 15906}# #{n 15907}# #{ids 15908}#)
+ (if (if (symbol? #{p 15906}#)
#t
- (if (if (vector? #{p 15802}#)
- (if (= (vector-length #{p 15802}#) 4)
- (eq? (vector-ref #{p 15802}# 0)
+ (if (if (vector? #{p 15906}#)
+ (if (= (vector-length #{p 15906}#) 4)
+ (eq? (vector-ref #{p 15906}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{p 15802}# 1))
+ (symbol? (vector-ref #{p 15906}# 1))
#f))
- (if (#{bound-id-member? 4367}#
- #{p 15802}#
- #{keys 15796}#)
+ (if (#{bound-id-member? 4365}#
+ #{p 15906}#
+ #{keys 15900}#)
(values
- (vector 'free-id #{p 15802}#)
- #{ids 15804}#)
- (if (#{free-id=? 4363}#
- #{p 15802}#
+ (vector 'free-id #{p 15906}#)
+ #{ids 15908}#)
+ (if (#{free-id=? 4361}#
+ #{p 15906}#
'#(syntax-object
_
((top)
@@ -12777,22 +12760,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("i3779" "i3780" "i3781"))
+ #("i3777" "i3778" "i3779"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("i3752" "i3750" "i3748"))
+ ("i3750" "i3748" "i3746"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("i3746" "i3747"))
+ #("i3744" "i3745"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3742" "i3740" "i3738" "i3736"))
+ ("i3740" "i3738" "i3736" "i3734"))
#(ribcage
(lambda-var-list
gen-var
@@ -13215,36 +13198,36 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile)))
- (values '_ #{ids 15804}#)
+ (values '_ #{ids 15908}#)
(values
'any
- (cons (cons #{p 15802}# #{n 15803}#)
- #{ids 15804}#))))
- (let ((#{tmp 15936}#
- ($sc-dispatch #{p 15802}# '(any any))))
- (if (if #{tmp 15936}#
+ (cons (cons #{p 15906}# #{n 15907}#)
+ #{ids 15908}#))))
+ (let ((#{tmp 16040}#
+ ($sc-dispatch #{p 15906}# '(any any))))
+ (if (if #{tmp 16040}#
(@apply
- (lambda (#{x 15940}# #{dots 15941}#)
- (if (if (if (vector? #{dots 15941}#)
+ (lambda (#{x 16044}# #{dots 16045}#)
+ (if (if (if (vector? #{dots 16045}#)
(if (= (vector-length
- #{dots 15941}#)
+ #{dots 16045}#)
4)
(eq? (vector-ref
- #{dots 15941}#
+ #{dots 16045}#
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{dots 15941}# 1))
+ (symbol? (vector-ref #{dots 16045}# 1))
#f)
- (#{free-id=? 4363}#
- #{dots 15941}#
+ (#{free-id=? 4361}#
+ #{dots 16045}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i2263"))
+ #(ribcage #(x) #((top)) #("i2261"))
#(ribcage
(lambda-var-list
gen-var
@@ -13668,45 +13651,45 @@
("i46" "i45" "i44")))
(hygiene guile)))
#f))
- #{tmp 15936}#)
+ #{tmp 16040}#)
#f)
(@apply
- (lambda (#{x 15980}# #{dots 15981}#)
+ (lambda (#{x 16084}# #{dots 16085}#)
(call-with-values
(lambda ()
- (#{cvt 15799}#
- #{x 15980}#
- (#{1+}# #{n 15803}#)
- #{ids 15804}#))
- (lambda (#{p 15982}# #{ids 15983}#)
+ (#{cvt 15903}#
+ #{x 16084}#
+ (#{1+}# #{n 15907}#)
+ #{ids 15908}#))
+ (lambda (#{p 16086}# #{ids 16087}#)
(values
- (if (eq? #{p 15982}# 'any)
+ (if (eq? #{p 16086}# 'any)
'each-any
- (vector 'each #{p 15982}#))
- #{ids 15983}#))))
- #{tmp 15936}#)
- (let ((#{tmp 15984}#
- ($sc-dispatch #{p 15802}# '(any any . any))))
- (if (if #{tmp 15984}#
+ (vector 'each #{p 16086}#))
+ #{ids 16087}#))))
+ #{tmp 16040}#)
+ (let ((#{tmp 16088}#
+ ($sc-dispatch #{p 15906}# '(any any . any))))
+ (if (if #{tmp 16088}#
(@apply
- (lambda (#{x 15988}#
- #{dots 15989}#
- #{ys 15990}#)
- (if (if (if (vector? #{dots 15989}#)
+ (lambda (#{x 16092}#
+ #{dots 16093}#
+ #{ys 16094}#)
+ (if (if (if (vector? #{dots 16093}#)
(if (= (vector-length
- #{dots 15989}#)
+ #{dots 16093}#)
4)
(eq? (vector-ref
- #{dots 15989}#
+ #{dots 16093}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{dots 15989}# 1))
+ (vector-ref #{dots 16093}# 1))
#f)
- (#{free-id=? 4363}#
- #{dots 15989}#
+ (#{free-id=? 4361}#
+ #{dots 16093}#
'#(syntax-object
...
((top)
@@ -13715,7 +13698,7 @@
#(ribcage
#(x)
#((top))
- #("i2263"))
+ #("i2261"))
#(ribcage
(lambda-var-list
gen-var
@@ -14139,175 +14122,175 @@
("i46" "i45" "i44")))
(hygiene guile)))
#f))
- #{tmp 15984}#)
+ #{tmp 16088}#)
#f)
(@apply
- (lambda (#{x 16029}#
- #{dots 16030}#
- #{ys 16031}#)
+ (lambda (#{x 16133}#
+ #{dots 16134}#
+ #{ys 16135}#)
(call-with-values
(lambda ()
- (#{cvt* 15797}#
- #{ys 16031}#
- #{n 15803}#
- #{ids 15804}#))
- (lambda (#{ys 16516}# #{ids 16517}#)
+ (#{cvt* 15901}#
+ #{ys 16135}#
+ #{n 15907}#
+ #{ids 15908}#))
+ (lambda (#{ys 16620}# #{ids 16621}#)
(call-with-values
(lambda ()
- (#{cvt 15799}#
- #{x 16029}#
- (#{1+}# #{n 15803}#)
- #{ids 16517}#))
- (lambda (#{x 16518}# #{ids 16519}#)
+ (#{cvt 15903}#
+ #{x 16133}#
+ (#{1+}# #{n 15907}#)
+ #{ids 16621}#))
+ (lambda (#{x 16622}# #{ids 16623}#)
(call-with-values
(lambda ()
- (#{v-reverse 15798}#
- #{ys 16516}#))
- (lambda (#{ys 16555}# #{e 16556}#)
+ (#{v-reverse 15902}#
+ #{ys 16620}#))
+ (lambda (#{ys 16659}# #{e 16660}#)
(values
(vector
'each+
- #{x 16518}#
- #{ys 16555}#
- #{e 16556}#)
- #{ids 16519}#))))))))
- #{tmp 15984}#)
- (let ((#{tmp 16557}#
- ($sc-dispatch #{p 15802}# '(any . any))))
- (if #{tmp 16557}#
+ #{x 16622}#
+ #{ys 16659}#
+ #{e 16660}#)
+ #{ids 16623}#))))))))
+ #{tmp 16088}#)
+ (let ((#{tmp 16661}#
+ ($sc-dispatch #{p 15906}# '(any . any))))
+ (if #{tmp 16661}#
(@apply
- (lambda (#{x 16561}# #{y 16562}#)
+ (lambda (#{x 16665}# #{y 16666}#)
(call-with-values
(lambda ()
- (#{cvt 15799}#
- #{y 16562}#
- #{n 15803}#
- #{ids 15804}#))
- (lambda (#{y 16563}# #{ids 16564}#)
+ (#{cvt 15903}#
+ #{y 16666}#
+ #{n 15907}#
+ #{ids 15908}#))
+ (lambda (#{y 16667}# #{ids 16668}#)
(call-with-values
(lambda ()
- (#{cvt 15799}#
- #{x 16561}#
- #{n 15803}#
- #{ids 16564}#))
- (lambda (#{x 16565}# #{ids 16566}#)
+ (#{cvt 15903}#
+ #{x 16665}#
+ #{n 15907}#
+ #{ids 16668}#))
+ (lambda (#{x 16669}# #{ids 16670}#)
(values
- (cons #{x 16565}# #{y 16563}#)
- #{ids 16566}#))))))
- #{tmp 16557}#)
- (let ((#{tmp 16567}#
- ($sc-dispatch #{p 15802}# '())))
- (if #{tmp 16567}#
+ (cons #{x 16669}# #{y 16667}#)
+ #{ids 16670}#))))))
+ #{tmp 16661}#)
+ (let ((#{tmp 16671}#
+ ($sc-dispatch #{p 15906}# '())))
+ (if #{tmp 16671}#
(@apply
- (lambda () (values '() #{ids 15804}#))
- #{tmp 16567}#)
- (let ((#{tmp 16571}#
+ (lambda () (values '() #{ids 15908}#))
+ #{tmp 16671}#)
+ (let ((#{tmp 16675}#
($sc-dispatch
- #{p 15802}#
+ #{p 15906}#
'#(vector each-any))))
- (if #{tmp 16571}#
+ (if #{tmp 16675}#
(@apply
- (lambda (#{x 16575}#)
+ (lambda (#{x 16679}#)
(call-with-values
(lambda ()
- (#{cvt 15799}#
- #{x 16575}#
- #{n 15803}#
- #{ids 15804}#))
- (lambda (#{p 16576}#
- #{ids 16577}#)
+ (#{cvt 15903}#
+ #{x 16679}#
+ #{n 15907}#
+ #{ids 15908}#))
+ (lambda (#{p 16680}#
+ #{ids 16681}#)
(values
(vector
'vector
- #{p 16576}#)
- #{ids 16577}#))))
- #{tmp 16571}#)
+ #{p 16680}#)
+ #{ids 16681}#))))
+ #{tmp 16675}#)
(values
(vector
'atom
- (#{strip 4388}#
- #{p 15802}#
+ (#{strip 4386}#
+ #{p 15906}#
'(())))
- #{ids 15804}#)))))))))))))))
- (#{cvt 15799}# #{pattern 15795}# 0 '()))))
- (#{build-dispatch-call 14158}#
- (lambda (#{pvars 16711}#
- #{exp 16712}#
- #{y 16713}#
- #{r 16714}#
- #{mod 16715}#)
- (let ((#{ids 16716}# (map car #{pvars 16711}#)))
+ #{ids 15908}#)))))))))))))))
+ (#{cvt 15903}# #{pattern 15899}# 0 '()))))
+ (#{build-dispatch-call 14244}#
+ (lambda (#{pvars 16815}#
+ #{exp 16816}#
+ #{y 16817}#
+ #{r 16818}#
+ #{mod 16819}#)
+ (let ((#{ids 16820}# (map car #{pvars 16815}#)))
(begin
- (map cdr #{pvars 16711}#)
- (let ((#{labels 16718}#
- (#{gen-labels 4346}# #{ids 16716}#))
- (#{new-vars 16719}#
- (map #{gen-var 4389}# #{ids 16716}#)))
- (#{build-primcall 4321}#
+ (map cdr #{pvars 16815}#)
+ (let ((#{labels 16822}#
+ (#{gen-labels 4344}# #{ids 16820}#))
+ (#{new-vars 16823}#
+ (map #{gen-var 4387}# #{ids 16820}#)))
+ (#{build-primcall 4319}#
#f
'apply
- (list (#{build-simple-lambda 4318}#
+ (list (#{build-simple-lambda 4316}#
#f
- (map syntax->datum #{ids 16716}#)
+ (map syntax->datum #{ids 16820}#)
#f
- #{new-vars 16719}#
+ #{new-vars 16823}#
'()
- (#{chi 4375}#
- #{exp 16712}#
- (#{extend-env 4337}#
- #{labels 16718}#
- (map (lambda (#{var 17051}# #{level 17052}#)
+ (#{chi 4373}#
+ #{exp 16816}#
+ (#{extend-env 4335}#
+ #{labels 16822}#
+ (map (lambda (#{var 17155}# #{level 17156}#)
(cons 'syntax
- (cons #{var 17051}#
- #{level 17052}#)))
- #{new-vars 16719}#
- (map cdr #{pvars 16711}#))
- #{r 16714}#)
- (#{make-binding-wrap 4357}#
- #{ids 16716}#
- #{labels 16718}#
+ (cons #{var 17155}#
+ #{level 17156}#)))
+ #{new-vars 16823}#
+ (map cdr #{pvars 16815}#))
+ #{r 16818}#)
+ (#{make-binding-wrap 4355}#
+ #{ids 16820}#
+ #{labels 16822}#
'(()))
- #{mod 16715}#))
- #{y 16713}#)))))))
- (#{gen-clause 14159}#
- (lambda (#{x 15389}#
- #{keys 15390}#
- #{clauses 15391}#
- #{r 15392}#
- #{pat 15393}#
- #{fender 15394}#
- #{exp 15395}#
- #{mod 15396}#)
+ #{mod 16819}#))
+ #{y 16817}#)))))))
+ (#{gen-clause 14245}#
+ (lambda (#{x 15493}#
+ #{keys 15494}#
+ #{clauses 15495}#
+ #{r 15496}#
+ #{pat 15497}#
+ #{fender 15498}#
+ #{exp 15499}#
+ #{mod 15500}#)
(call-with-values
(lambda ()
- (#{convert-pattern 14157}#
- #{pat 15393}#
- #{keys 15390}#))
- (lambda (#{p 15534}# #{pvars 15535}#)
- (if (not (#{distinct-bound-ids? 4366}#
- (map car #{pvars 15535}#)))
+ (#{convert-pattern 14243}#
+ #{pat 15497}#
+ #{keys 15494}#))
+ (lambda (#{p 15638}# #{pvars 15639}#)
+ (if (not (#{distinct-bound-ids? 4364}#
+ (map car #{pvars 15639}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat 15393}#)
+ #{pat 15497}#)
(if (not (and-map
- (lambda (#{x 15644}#)
- (not (let ((#{x 15648}# (car #{x 15644}#)))
- (if (if (if (vector? #{x 15648}#)
+ (lambda (#{x 15748}#)
+ (not (let ((#{x 15752}# (car #{x 15748}#)))
+ (if (if (if (vector? #{x 15752}#)
(if (= (vector-length
- #{x 15648}#)
+ #{x 15752}#)
4)
(eq? (vector-ref
- #{x 15648}#
+ #{x 15752}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x 15648}# 1))
+ (vector-ref #{x 15752}# 1))
#f)
- (#{free-id=? 4363}#
- #{x 15648}#
+ (#{free-id=? 4361}#
+ #{x 15752}#
'#(syntax-object
...
((top)
@@ -14316,7 +14299,7 @@
#(ribcage
#(x)
#((top))
- #("i2263"))
+ #("i2261"))
#(ribcage
(lambda-var-list
gen-var
@@ -14740,43 +14723,43 @@
("i46" "i45" "i44")))
(hygiene guile)))
#f))))
- #{pvars 15535}#))
+ #{pvars 15639}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat 15393}#)
- (let ((#{y 15673}#
+ #{pat 15497}#)
+ (let ((#{y 15777}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (let ((#{fun-exp 15678}#
- (let ((#{req 15687}# (list 'tmp))
- (#{vars 15689}# (list #{y 15673}#))
- (#{exp 15691}#
- (let ((#{y 15720}#
+ (let ((#{fun-exp 15782}#
+ (let ((#{req 15791}# (list 'tmp))
+ (#{vars 15793}# (list #{y 15777}#))
+ (#{exp 15795}#
+ (let ((#{y 15824}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
3)
#f
'tmp
- #{y 15673}#)))
- (let ((#{test-exp 15724}#
- (let ((#{tmp 15733}#
+ #{y 15777}#)))
+ (let ((#{test-exp 15828}#
+ (let ((#{tmp 15837}#
($sc-dispatch
- #{fender 15394}#
+ #{fender 15498}#
'#(atom #t))))
- (if #{tmp 15733}#
+ (if #{tmp 15837}#
(@apply
- (lambda () #{y 15720}#)
- #{tmp 15733}#)
- (let ((#{then-exp 15751}#
-
(#{build-dispatch-call 14158}#
- #{pvars 15535}#
- #{fender 15394}#
- #{y 15720}#
- #{r 15392}#
- #{mod 15396}#))
- (#{else-exp 15752}#
+ (lambda () #{y 15824}#)
+ #{tmp 15837}#)
+ (let ((#{then-exp 15855}#
+
(#{build-dispatch-call 14244}#
+ #{pvars 15639}#
+ #{fender 15498}#
+ #{y 15824}#
+ #{r 15496}#
+ #{mod 15500}#))
+ (#{else-exp 15856}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
@@ -14788,81 +14771,81 @@
%expanded-vtables
10)
#f
- #{y 15720}#
- #{then-exp 15751}#
- #{else-exp
15752}#)))))
- (#{then-exp 15725}#
- (#{build-dispatch-call 14158}#
- #{pvars 15535}#
- #{exp 15395}#
- #{y 15720}#
- #{r 15392}#
- #{mod 15396}#))
- (#{else-exp 15726}#
- (#{gen-syntax-case 14160}#
- #{x 15389}#
- #{keys 15390}#
- #{clauses 15391}#
- #{r 15392}#
- #{mod 15396}#)))
+ #{y 15824}#
+ #{then-exp 15855}#
+ #{else-exp
15856}#)))))
+ (#{then-exp 15829}#
+ (#{build-dispatch-call 14244}#
+ #{pvars 15639}#
+ #{exp 15499}#
+ #{y 15824}#
+ #{r 15496}#
+ #{mod 15500}#))
+ (#{else-exp 15830}#
+ (#{gen-syntax-case 14246}#
+ #{x 15493}#
+ #{keys 15494}#
+ #{clauses 15495}#
+ #{r 15496}#
+ #{mod 15500}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
#f
- #{test-exp 15724}#
- #{then-exp 15725}#
- #{else-exp 15726}#)))))
- (let ((#{body 15696}#
+ #{test-exp 15828}#
+ #{then-exp 15829}#
+ #{else-exp 15830}#)))))
+ (let ((#{body 15800}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
#f
- #{req 15687}#
+ #{req 15791}#
#f
#f
#f
'()
- #{vars 15689}#
- #{exp 15691}#
+ #{vars 15793}#
+ #{exp 15795}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
'()
- #{body 15696}#))))
- (#{arg-exps 15679}#
- (list (if (eq? #{p 15534}# 'any)
- (let ((#{args 15774}#
- (list #{x 15389}#)))
+ #{body 15800}#))))
+ (#{arg-exps 15783}#
+ (list (if (eq? #{p 15638}# 'any)
+ (let ((#{args 15878}#
+ (list #{x 15493}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'list
- #{args 15774}#))
- (let ((#{args 15783}#
- (list #{x 15389}#
+ #{args 15878}#))
+ (let ((#{args 15887}#
+ (list #{x 15493}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- #{p 15534}#))))
+ #{p 15638}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'$sc-dispatch
- #{args 15783}#))))))
+ #{args 15887}#))))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 15678}#
- #{arg-exps 15679}#)))))))))
- (#{gen-syntax-case 14160}#
- (lambda (#{x 14888}#
- #{keys 14889}#
- #{clauses 14890}#
- #{r 14891}#
- #{mod 14892}#)
- (if (null? #{clauses 14890}#)
- (let ((#{args 14898}#
+ #{fun-exp 15782}#
+ #{arg-exps 15783}#)))))))))
+ (#{gen-syntax-case 14246}#
+ (lambda (#{x 14990}#
+ #{keys 14991}#
+ #{clauses 14992}#
+ #{r 14993}#
+ #{mod 14994}#)
+ (if (null? #{clauses 14992}#)
+ (let ((#{args 15000}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -14871,57 +14854,57 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- #{x 14888}#)))
+ #{x 14990}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
#f
'syntax-violation
- #{args 14898}#))
- (let ((#{tmp 14917}# (car #{clauses 14890}#)))
- (let ((#{tmp 14918}#
- ($sc-dispatch #{tmp 14917}# '(any any))))
- (if #{tmp 14918}#
+ #{args 15000}#))
+ (let ((#{tmp 15019}# (car #{clauses 14992}#)))
+ (let ((#{tmp 15020}#
+ ($sc-dispatch #{tmp 15019}# '(any any))))
+ (if #{tmp 15020}#
(@apply
- (lambda (#{pat 14920}# #{exp 14921}#)
- (if (if (if (symbol? #{pat 14920}#)
+ (lambda (#{pat 15022}# #{exp 15023}#)
+ (if (if (if (symbol? #{pat 15022}#)
#t
- (if (if (vector? #{pat 14920}#)
- (if (= (vector-length #{pat 14920}#)
+ (if (if (vector? #{pat 15022}#)
+ (if (= (vector-length #{pat 15022}#)
4)
- (eq? (vector-ref #{pat 14920}# 0)
+ (eq? (vector-ref #{pat 15022}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{pat 14920}# 1))
+ (symbol? (vector-ref #{pat 15022}# 1))
#f))
(and-map
- (lambda (#{x 14948}#)
- (not (#{free-id=? 4363}#
- #{pat 14920}#
- #{x 14948}#)))
+ (lambda (#{x 15050}#)
+ (not (#{free-id=? 4361}#
+ #{pat 15022}#
+ #{x 15050}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3939" "i3940"))
+ #("i3937" "i3938"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3929"
+ #("i3927"
+ "i3928"
+ "i3929"
"i3930"
- "i3931"
- "i3932"
- "i3933"))
+ "i3931"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3742" "i3740" "i3738" "i3736"))
+ ("i3740" "i3738" "i3736" "i3734"))
#(ribcage
(lambda-var-list
gen-var
@@ -15344,32 +15327,32 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile))
- #{keys 14889}#))
+ #{keys 14991}#))
#f)
- (if (#{free-id=? 4363}#
+ (if (#{free-id=? 4361}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3939" "i3940"))
+ #("i3937" "i3938"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3929"
+ #("i3927"
+ "i3928"
+ "i3929"
"i3930"
- "i3931"
- "i3932"
- "i3933"))
+ "i3931"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3742" "i3740" "i3738" "i3736"))
+ ("i3740" "i3738" "i3736" "i3734"))
#(ribcage
(lambda-var-list
gen-var
@@ -15798,23 +15781,23 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("i3939" "i3940"))
+ #("i3937" "i3938"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("i3929"
+ #("i3927"
+ "i3928"
+ "i3929"
"i3930"
- "i3931"
- "i3932"
- "i3933"))
+ "i3931"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("i3742" "i3740" "i3738" "i3736"))
+ ("i3740" "i3738" "i3736" "i3734"))
#(ribcage
(lambda-var-list
gen-var
@@ -16237,181 +16220,181 @@
((top) (top) (top))
("i46" "i45" "i44")))
(hygiene guile)))
- (#{chi 4375}#
- #{exp 14921}#
- #{r 14891}#
+ (#{chi 4373}#
+ #{exp 15023}#
+ #{r 14993}#
'(())
- #{mod 14892}#)
- (let ((#{labels 15032}#
+ #{mod 14994}#)
+ (let ((#{labels 15136}#
(list (symbol->string (gensym "i"))))
- (#{var 15033}#
- (let ((#{id 15071}#
- (if (if (vector? #{pat 14920}#)
+ (#{var 15137}#
+ (let ((#{id 15175}#
+ (if (if (vector? #{pat 15022}#)
(if (= (vector-length
- #{pat 14920}#)
+ #{pat 15022}#)
4)
(eq? (vector-ref
- #{pat 14920}#
+ #{pat 15022}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 14920}# 1)
- #{pat 14920}#)))
+ (vector-ref #{pat 15022}# 1)
+ #{pat 15022}#)))
(gensym
(string-append
- (symbol->string #{id 15071}#)
+ (symbol->string #{id 15175}#)
" ")))))
- (#{build-call 4309}#
+ (#{build-call 4307}#
#f
- (#{build-simple-lambda 4318}#
+ (#{build-simple-lambda 4316}#
#f
- (list (syntax->datum #{pat 14920}#))
+ (list (syntax->datum #{pat 15022}#))
#f
- (list #{var 15033}#)
+ (list #{var 15137}#)
'()
- (#{chi 4375}#
- #{exp 14921}#
- (#{extend-env 4337}#
- #{labels 15032}#
+ (#{chi 4373}#
+ #{exp 15023}#
+ (#{extend-env 4335}#
+ #{labels 15136}#
(list (cons 'syntax
- (cons #{var 15033}# 0)))
- #{r 14891}#)
- (#{make-binding-wrap 4357}#
- (list #{pat 14920}#)
- #{labels 15032}#
+ (cons #{var 15137}# 0)))
+ #{r 14993}#)
+ (#{make-binding-wrap 4355}#
+ (list #{pat 15022}#)
+ #{labels 15136}#
'(()))
- #{mod 14892}#))
- (list #{x 14888}#))))
- (#{gen-clause 14159}#
- #{x 14888}#
- #{keys 14889}#
- (cdr #{clauses 14890}#)
- #{r 14891}#
- #{pat 14920}#
+ #{mod 14994}#))
+ (list #{x 14990}#))))
+ (#{gen-clause 14245}#
+ #{x 14990}#
+ #{keys 14991}#
+ (cdr #{clauses 14992}#)
+ #{r 14993}#
+ #{pat 15022}#
#t
- #{exp 14921}#
- #{mod 14892}#)))
- #{tmp 14918}#)
- (let ((#{tmp 15381}#
- ($sc-dispatch #{tmp 14917}# '(any any any))))
- (if #{tmp 15381}#
+ #{exp 15023}#
+ #{mod 14994}#)))
+ #{tmp 15020}#)
+ (let ((#{tmp 15485}#
+ ($sc-dispatch #{tmp 15019}# '(any any any))))
+ (if #{tmp 15485}#
(@apply
- (lambda (#{pat 15383}#
- #{fender 15384}#
- #{exp 15385}#)
- (#{gen-clause 14159}#
- #{x 14888}#
- #{keys 14889}#
- (cdr #{clauses 14890}#)
- #{r 14891}#
- #{pat 15383}#
- #{fender 15384}#
- #{exp 15385}#
- #{mod 14892}#))
- #{tmp 15381}#)
+ (lambda (#{pat 15487}#
+ #{fender 15488}#
+ #{exp 15489}#)
+ (#{gen-clause 14245}#
+ #{x 14990}#
+ #{keys 14991}#
+ (cdr #{clauses 14992}#)
+ #{r 14993}#
+ #{pat 15487}#
+ #{fender 15488}#
+ #{exp 15489}#
+ #{mod 14994}#))
+ #{tmp 15485}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses 14890}#)))))))))))
- (lambda (#{e 14161}#
- #{r 14162}#
- #{w 14163}#
- #{s 14164}#
- #{mod 14165}#)
- (let ((#{e 14166}#
- (let ((#{x 14799}#
+ (car #{clauses 14992}#)))))))))))
+ (lambda (#{e 14247}#
+ #{r 14248}#
+ #{w 14249}#
+ #{s 14250}#
+ #{mod 14251}#)
+ (let ((#{e 14252}#
+ (let ((#{x 14901}#
(begin
- (if (if (pair? #{e 14161}#) #{s 14164}# #f)
- (set-source-properties! #{e 14161}# #{s 14164}#))
- #{e 14161}#)))
- (if (if (null? (car #{w 14163}#))
- (null? (cdr #{w 14163}#))
+ (if (if (pair? #{e 14247}#) #{s 14250}# #f)
+ (set-source-properties! #{e 14247}# #{s 14250}#))
+ #{e 14247}#)))
+ (if (if (null? (car #{w 14249}#))
+ (null? (cdr #{w 14249}#))
#f)
- #{x 14799}#
- (if (if (vector? #{x 14799}#)
- (if (= (vector-length #{x 14799}#) 4)
- (eq? (vector-ref #{x 14799}# 0) 'syntax-object)
+ #{x 14901}#
+ (if (if (vector? #{x 14901}#)
+ (if (= (vector-length #{x 14901}#) 4)
+ (eq? (vector-ref #{x 14901}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 14831}# (vector-ref #{x 14799}# 1))
- (#{wrap 14832}#
- (let ((#{w2 14840}#
- (vector-ref #{x 14799}# 2)))
- (let ((#{m1 14841}# (car #{w 14163}#))
- (#{s1 14842}# (cdr #{w 14163}#)))
- (if (null? #{m1 14841}#)
- (if (null? #{s1 14842}#)
- #{w2 14840}#
- (cons (car #{w2 14840}#)
- (let ((#{m2 14857}#
- (cdr #{w2 14840}#)))
- (if (null? #{m2 14857}#)
- #{s1 14842}#
+ (let ((#{expression 14933}# (vector-ref #{x 14901}# 1))
+ (#{wrap 14934}#
+ (let ((#{w2 14942}#
+ (vector-ref #{x 14901}# 2)))
+ (let ((#{m1 14943}# (car #{w 14249}#))
+ (#{s1 14944}# (cdr #{w 14249}#)))
+ (if (null? #{m1 14943}#)
+ (if (null? #{s1 14944}#)
+ #{w2 14942}#
+ (cons (car #{w2 14942}#)
+ (let ((#{m2 14959}#
+ (cdr #{w2 14942}#)))
+ (if (null? #{m2 14959}#)
+ #{s1 14944}#
(append
- #{s1 14842}#
- #{m2 14857}#)))))
- (cons (let ((#{m2 14865}#
- (car #{w2 14840}#)))
- (if (null? #{m2 14865}#)
- #{m1 14841}#
+ #{s1 14944}#
+ #{m2 14959}#)))))
+ (cons (let ((#{m2 14967}#
+ (car #{w2 14942}#)))
+ (if (null? #{m2 14967}#)
+ #{m1 14943}#
(append
- #{m1 14841}#
- #{m2 14865}#)))
- (let ((#{m2 14873}#
- (cdr #{w2 14840}#)))
- (if (null? #{m2 14873}#)
- #{s1 14842}#
+ #{m1 14943}#
+ #{m2 14967}#)))
+ (let ((#{m2 14975}#
+ (cdr #{w2 14942}#)))
+ (if (null? #{m2 14975}#)
+ #{s1 14944}#
(append
- #{s1 14842}#
- #{m2 14873}#))))))))
- (#{module 14833}# (vector-ref #{x 14799}# 3)))
+ #{s1 14944}#
+ #{m2 14975}#))))))))
+ (#{module 14935}# (vector-ref #{x 14901}# 3)))
(vector
'syntax-object
- #{expression 14831}#
- #{wrap 14832}#
- #{module 14833}#))
- (if (null? #{x 14799}#)
- #{x 14799}#
+ #{expression 14933}#
+ #{wrap 14934}#
+ #{module 14935}#))
+ (if (null? #{x 14901}#)
+ #{x 14901}#
(vector
'syntax-object
- #{x 14799}#
- #{w 14163}#
- #{mod 14165}#)))))))
- (let ((#{tmp 14167}# #{e 14166}#))
- (let ((#{tmp 14168}#
+ #{x 14901}#
+ #{w 14249}#
+ #{mod 14251}#)))))))
+ (let ((#{tmp 14253}# #{e 14252}#))
+ (let ((#{tmp 14254}#
($sc-dispatch
- #{tmp 14167}#
+ #{tmp 14253}#
'(_ any each-any . each-any))))
- (if #{tmp 14168}#
+ (if #{tmp 14254}#
(@apply
- (lambda (#{val 14216}# #{key 14217}# #{m 14218}#)
+ (lambda (#{val 14306}# #{key 14307}# #{m 14308}#)
(if (and-map
- (lambda (#{x 14219}#)
- (if (if (symbol? #{x 14219}#)
+ (lambda (#{x 14309}#)
+ (if (if (symbol? #{x 14309}#)
#t
- (if (if (vector? #{x 14219}#)
- (if (= (vector-length #{x 14219}#) 4)
- (eq? (vector-ref #{x 14219}# 0)
+ (if (if (vector? #{x 14309}#)
+ (if (= (vector-length #{x 14309}#) 4)
+ (eq? (vector-ref #{x 14309}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 14219}# 1))
+ (symbol? (vector-ref #{x 14309}# 1))
#f))
- (not (if (if (if (vector? #{x 14219}#)
+ (not (if (if (if (vector? #{x 14309}#)
(if (= (vector-length
- #{x 14219}#)
+ #{x 14309}#)
4)
(eq? (vector-ref
- #{x 14219}#
+ #{x 14309}#
0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 14219}# 1))
+ (symbol? (vector-ref #{x 14309}# 1))
#f)
- (#{free-id=? 4363}#
- #{x 14219}#
+ (#{free-id=? 4361}#
+ #{x 14309}#
'#(syntax-object
...
((top)
@@ -16420,7 +16403,7 @@
#(ribcage
#(x)
#((top))
- #("i2263"))
+ #("i2261"))
#(ribcage
(lambda-var-list
gen-var
@@ -16845,790 +16828,790 @@
(hygiene guile)))
#f))
#f))
- #{key 14217}#)
- (let ((#{x 14284}#
+ #{key 14307}#)
+ (let ((#{x 14374}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-call 4309}#
- #{s 14164}#
- (let ((#{req 14424}# (list 'tmp))
- (#{vars 14426}# (list #{x 14284}#))
- (#{exp 14428}#
- (#{gen-syntax-case 14160}#
+ (#{build-call 4307}#
+ #{s 14250}#
+ (let ((#{req 14516}# (list 'tmp))
+ (#{vars 14518}# (list #{x 14374}#))
+ (#{exp 14520}#
+ (#{gen-syntax-case 14246}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x 14284}#)
- #{key 14217}#
- #{m 14218}#
- #{r 14162}#
- #{mod 14165}#)))
- (let ((#{body 14433}#
+ #{x 14374}#)
+ #{key 14307}#
+ #{m 14308}#
+ #{r 14248}#
+ #{mod 14251}#)))
+ (let ((#{body 14525}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
#f
- #{req 14424}#
+ #{req 14516}#
#f
#f
#f
'()
- #{vars 14426}#
- #{exp 14428}#
+ #{vars 14518}#
+ #{exp 14520}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
'()
- #{body 14433}#)))
- (list (#{chi 4375}#
- #{val 14216}#
- #{r 14162}#
+ #{body 14525}#)))
+ (list (#{chi 4373}#
+ #{val 14306}#
+ #{r 14248}#
'(())
- #{mod 14165}#))))
+ #{mod 14251}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e 14166}#)))
- #{tmp 14168}#)
+ #{e 14252}#)))
+ #{tmp 14254}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 14167}#))))))))
+ #{tmp 14253}#))))))))
(set! macroexpand
(lambda*
- (#{x 17153}#
+ (#{x 17257}#
#:optional
- (#{m 17154}# 'e)
- (#{esew 17155}# '(eval)))
- (#{chi-top-sequence 4371}#
- (list #{x 17153}#)
+ (#{m 17258}# 'e)
+ (#{esew 17259}# '(eval)))
+ (#{chi-top-sequence 4369}#
+ (list #{x 17257}#)
'()
'((top))
#f
- #{m 17154}#
- #{esew 17155}#
+ #{m 17258}#
+ #{esew 17259}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x 17158}#)
- (if (if (vector? #{x 17158}#)
- (if (= (vector-length #{x 17158}#) 4)
- (eq? (vector-ref #{x 17158}# 0) 'syntax-object)
+ (lambda (#{x 17262}#)
+ (if (if (vector? #{x 17262}#)
+ (if (= (vector-length #{x 17262}#) 4)
+ (eq? (vector-ref #{x 17262}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17158}# 1))
+ (symbol? (vector-ref #{x 17262}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id 17183}# #{datum 17184}#)
- (let ((#{wrap 17189}# (vector-ref #{id 17183}# 2))
- (#{module 17190}# (vector-ref #{id 17183}# 3)))
+ (lambda (#{id 17287}# #{datum 17288}#)
+ (let ((#{wrap 17293}# (vector-ref #{id 17287}# 2))
+ (#{module 17294}# (vector-ref #{id 17287}# 3)))
(vector
'syntax-object
- #{datum 17184}#
- #{wrap 17189}#
- #{module 17190}#))))
+ #{datum 17288}#
+ #{wrap 17293}#
+ #{module 17294}#))))
(set! syntax->datum
- (lambda (#{x 17197}#)
- (#{strip 4388}# #{x 17197}# '(()))))
+ (lambda (#{x 17301}#)
+ (#{strip 4386}# #{x 17301}# '(()))))
(set! syntax-source
- (lambda (#{x 17200}#)
- (#{source-annotation 4336}# #{x 17200}#)))
+ (lambda (#{x 17304}#)
+ (#{source-annotation 4334}# #{x 17304}#)))
(set! generate-temporaries
- (lambda (#{ls 17390}#)
+ (lambda (#{ls 17506}#)
(begin
- (if (not (list? #{ls 17390}#))
+ (if (not (list? #{ls 17506}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls 17390}#))
- (let ((#{mod 17398}#
+ #{ls 17506}#))
+ (let ((#{mod 17514}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 17399}#)
- (let ((#{x 17403}# (gensym)))
- (if (if (vector? #{x 17403}#)
- (if (= (vector-length #{x 17403}#) 4)
- (eq? (vector-ref #{x 17403}# 0) 'syntax-object)
+ (map (lambda (#{x 17515}#)
+ (let ((#{x 17519}# (gensym)))
+ (if (if (vector? #{x 17519}#)
+ (if (= (vector-length #{x 17519}#) 4)
+ (eq? (vector-ref #{x 17519}# 0) 'syntax-object)
#f)
#f)
- (let ((#{expression 17418}# (vector-ref #{x 17403}# 1))
- (#{wrap 17419}#
- (let ((#{w2 17427}# (vector-ref #{x 17403}# 2)))
- (cons (let ((#{m2 17434}# (car #{w2 17427}#)))
- (if (null? #{m2 17434}#)
+ (let ((#{expression 17534}# (vector-ref #{x 17519}# 1))
+ (#{wrap 17535}#
+ (let ((#{w2 17543}# (vector-ref #{x 17519}# 2)))
+ (cons (let ((#{m2 17550}# (car #{w2 17543}#)))
+ (if (null? #{m2 17550}#)
'(top)
- (append '(top) #{m2 17434}#)))
- (let ((#{m2 17441}# (cdr #{w2 17427}#)))
- (if (null? #{m2 17441}#)
+ (append '(top) #{m2 17550}#)))
+ (let ((#{m2 17557}# (cdr #{w2 17543}#)))
+ (if (null? #{m2 17557}#)
'()
- (append '() #{m2 17441}#))))))
- (#{module 17420}# (vector-ref #{x 17403}# 3)))
+ (append '() #{m2 17557}#))))))
+ (#{module 17536}# (vector-ref #{x 17519}# 3)))
(vector
'syntax-object
- #{expression 17418}#
- #{wrap 17419}#
- #{module 17420}#))
- (if (null? #{x 17403}#)
- #{x 17403}#
+ #{expression 17534}#
+ #{wrap 17535}#
+ #{module 17536}#))
+ (if (null? #{x 17519}#)
+ #{x 17519}#
(vector
'syntax-object
- #{x 17403}#
+ #{x 17519}#
'((top))
- #{mod 17398}#)))))
- #{ls 17390}#)))))
+ #{mod 17514}#)))))
+ #{ls 17506}#)))))
(set! free-identifier=?
- (lambda (#{x 17450}# #{y 17451}#)
+ (lambda (#{x 17566}# #{y 17567}#)
(begin
- (if (not (if (if (vector? #{x 17450}#)
- (if (= (vector-length #{x 17450}#) 4)
- (eq? (vector-ref #{x 17450}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 17566}#)
+ (if (= (vector-length #{x 17566}#) 4)
+ (eq? (vector-ref #{x 17566}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17450}# 1))
+ (symbol? (vector-ref #{x 17566}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 17450}#))
- (if (not (if (if (vector? #{y 17451}#)
- (if (= (vector-length #{y 17451}#) 4)
- (eq? (vector-ref #{y 17451}# 0) 'syntax-object)
+ #{x 17566}#))
+ (if (not (if (if (vector? #{y 17567}#)
+ (if (= (vector-length #{y 17567}#) 4)
+ (eq? (vector-ref #{y 17567}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 17451}# 1))
+ (symbol? (vector-ref #{y 17567}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y 17451}#))
- (#{free-id=? 4363}# #{x 17450}# #{y 17451}#))))
+ #{y 17567}#))
+ (#{free-id=? 4361}# #{x 17566}# #{y 17567}#))))
(set! bound-identifier=?
- (lambda (#{x 17526}# #{y 17527}#)
+ (lambda (#{x 17642}# #{y 17643}#)
(begin
- (if (not (if (if (vector? #{x 17526}#)
- (if (= (vector-length #{x 17526}#) 4)
- (eq? (vector-ref #{x 17526}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x 17642}#)
+ (if (= (vector-length #{x 17642}#) 4)
+ (eq? (vector-ref #{x 17642}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 17526}# 1))
+ (symbol? (vector-ref #{x 17642}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 17526}#))
- (if (not (if (if (vector? #{y 17527}#)
- (if (= (vector-length #{y 17527}#) 4)
- (eq? (vector-ref #{y 17527}# 0) 'syntax-object)
+ #{x 17642}#))
+ (if (not (if (if (vector? #{y 17643}#)
+ (if (= (vector-length #{y 17643}#) 4)
+ (eq? (vector-ref #{y 17643}# 0) 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 17527}# 1))
+ (symbol? (vector-ref #{y 17643}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y 17527}#))
- (#{bound-id=? 4364}# #{x 17526}# #{y 17527}#))))
+ #{y 17643}#))
+ (#{bound-id=? 4362}# #{x 17642}# #{y 17643}#))))
(set! syntax-violation
(lambda*
- (#{who 17693}#
- #{message 17694}#
- #{form 17695}#
+ (#{who 17809}#
+ #{message 17810}#
+ #{form 17811}#
#:optional
- (#{subform 17696}# #f))
+ (#{subform 17812}# #f))
(begin
- (if (not (if (not #{who 17693}#)
- (not #{who 17693}#)
- (let ((#{t 17714}# (string? #{who 17693}#)))
- (if #{t 17714}#
- #{t 17714}#
- (symbol? #{who 17693}#)))))
+ (if (not (if (not #{who 17809}#)
+ (not #{who 17809}#)
+ (let ((#{t 17830}# (string? #{who 17809}#)))
+ (if #{t 17830}#
+ #{t 17830}#
+ (symbol? #{who 17809}#)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who 17693}#))
- (if (not (string? #{message 17694}#))
+ #{who 17809}#))
+ (if (not (string? #{message 17810}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message 17694}#))
+ #{message 17810}#))
(throw 'syntax-error
- #{who 17693}#
- #{message 17694}#
- (#{source-annotation 4336}#
- (if #{form 17695}#
- #{form 17695}#
- #{subform 17696}#))
- (#{strip 4388}# #{form 17695}# '(()))
- (if #{subform 17696}#
- (#{strip 4388}# #{subform 17696}# '(()))
+ #{who 17809}#
+ #{message 17810}#
+ (#{source-annotation 4334}#
+ (if #{form 17811}#
+ #{form 17811}#
+ #{subform 17812}#))
+ (#{strip 4386}# #{form 17811}# '(()))
+ (if #{subform 17812}#
+ (#{strip 4386}# #{subform 17812}# '(()))
#f)))))
(letrec*
- ((#{match-each 17956}#
- (lambda (#{e 18844}#
- #{p 18845}#
- #{w 18846}#
- #{mod 18847}#)
- (if (pair? #{e 18844}#)
- (let ((#{first 18848}#
- (#{match 17962}#
- (car #{e 18844}#)
- #{p 18845}#
- #{w 18846}#
+ ((#{match-each 18081}#
+ (lambda (#{e 18969}#
+ #{p 18970}#
+ #{w 18971}#
+ #{mod 18972}#)
+ (if (pair? #{e 18969}#)
+ (let ((#{first 18973}#
+ (#{match 18087}#
+ (car #{e 18969}#)
+ #{p 18970}#
+ #{w 18971}#
'()
- #{mod 18847}#)))
- (if #{first 18848}#
- (let ((#{rest 18851}#
- (#{match-each 17956}#
- (cdr #{e 18844}#)
- #{p 18845}#
- #{w 18846}#
- #{mod 18847}#)))
- (if #{rest 18851}#
- (cons #{first 18848}# #{rest 18851}#)
+ #{mod 18972}#)))
+ (if #{first 18973}#
+ (let ((#{rest 18976}#
+ (#{match-each 18081}#
+ (cdr #{e 18969}#)
+ #{p 18970}#
+ #{w 18971}#
+ #{mod 18972}#)))
+ (if #{rest 18976}#
+ (cons #{first 18973}# #{rest 18976}#)
#f))
#f))
- (if (null? #{e 18844}#)
+ (if (null? #{e 18969}#)
'()
- (if (if (vector? #{e 18844}#)
- (if (= (vector-length #{e 18844}#) 4)
- (eq? (vector-ref #{e 18844}# 0) 'syntax-object)
+ (if (if (vector? #{e 18969}#)
+ (if (= (vector-length #{e 18969}#) 4)
+ (eq? (vector-ref #{e 18969}# 0) 'syntax-object)
#f)
#f)
- (#{match-each 17956}#
- (vector-ref #{e 18844}# 1)
- #{p 18845}#
- (let ((#{w2 18873}# (vector-ref #{e 18844}# 2)))
- (let ((#{m1 18874}# (car #{w 18846}#))
- (#{s1 18875}# (cdr #{w 18846}#)))
- (if (null? #{m1 18874}#)
- (if (null? #{s1 18875}#)
- #{w2 18873}#
- (cons (car #{w2 18873}#)
- (let ((#{m2 18886}# (cdr #{w2 18873}#)))
- (if (null? #{m2 18886}#)
- #{s1 18875}#
- (append #{s1 18875}# #{m2 18886}#)))))
- (cons (let ((#{m2 18894}# (car #{w2 18873}#)))
- (if (null? #{m2 18894}#)
- #{m1 18874}#
- (append #{m1 18874}# #{m2 18894}#)))
- (let ((#{m2 18902}# (cdr #{w2 18873}#)))
- (if (null? #{m2 18902}#)
- #{s1 18875}#
- (append #{s1 18875}# #{m2 18902}#)))))))
- (vector-ref #{e 18844}# 3))
+ (#{match-each 18081}#
+ (vector-ref #{e 18969}# 1)
+ #{p 18970}#
+ (let ((#{w2 18998}# (vector-ref #{e 18969}# 2)))
+ (let ((#{m1 18999}# (car #{w 18971}#))
+ (#{s1 19000}# (cdr #{w 18971}#)))
+ (if (null? #{m1 18999}#)
+ (if (null? #{s1 19000}#)
+ #{w2 18998}#
+ (cons (car #{w2 18998}#)
+ (let ((#{m2 19011}# (cdr #{w2 18998}#)))
+ (if (null? #{m2 19011}#)
+ #{s1 19000}#
+ (append #{s1 19000}# #{m2 19011}#)))))
+ (cons (let ((#{m2 19019}# (car #{w2 18998}#)))
+ (if (null? #{m2 19019}#)
+ #{m1 18999}#
+ (append #{m1 18999}# #{m2 19019}#)))
+ (let ((#{m2 19027}# (cdr #{w2 18998}#)))
+ (if (null? #{m2 19027}#)
+ #{s1 19000}#
+ (append #{s1 19000}# #{m2 19027}#)))))))
+ (vector-ref #{e 18969}# 3))
#f)))))
- (#{match-each-any 17958}#
- (lambda (#{e 18911}# #{w 18912}# #{mod 18913}#)
- (if (pair? #{e 18911}#)
- (let ((#{l 18914}#
- (#{match-each-any 17958}#
- (cdr #{e 18911}#)
- #{w 18912}#
- #{mod 18913}#)))
- (if #{l 18914}#
- (cons (let ((#{x 18919}# (car #{e 18911}#)))
- (if (if (null? (car #{w 18912}#))
- (null? (cdr #{w 18912}#))
+ (#{match-each-any 18083}#
+ (lambda (#{e 19036}# #{w 19037}# #{mod 19038}#)
+ (if (pair? #{e 19036}#)
+ (let ((#{l 19039}#
+ (#{match-each-any 18083}#
+ (cdr #{e 19036}#)
+ #{w 19037}#
+ #{mod 19038}#)))
+ (if #{l 19039}#
+ (cons (let ((#{x 19044}# (car #{e 19036}#)))
+ (if (if (null? (car #{w 19037}#))
+ (null? (cdr #{w 19037}#))
#f)
- #{x 18919}#
- (if (if (vector? #{x 18919}#)
- (if (= (vector-length #{x 18919}#) 4)
- (eq? (vector-ref #{x 18919}# 0)
+ #{x 19044}#
+ (if (if (vector? #{x 19044}#)
+ (if (= (vector-length #{x 19044}#) 4)
+ (eq? (vector-ref #{x 19044}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 18937}#
- (vector-ref #{x 18919}# 1))
- (#{wrap 18938}#
- (let ((#{w2 18946}#
- (vector-ref #{x 18919}# 2)))
- (let ((#{m1 18947}# (car #{w 18912}#))
- (#{s1 18948}# (cdr #{w 18912}#)))
- (if (null? #{m1 18947}#)
- (if (null? #{s1 18948}#)
- #{w2 18946}#
- (cons (car #{w2 18946}#)
- (let ((#{m2 18963}#
- (cdr #{w2 18946}#)))
- (if (null? #{m2 18963}#)
- #{s1 18948}#
+ (let ((#{expression 19062}#
+ (vector-ref #{x 19044}# 1))
+ (#{wrap 19063}#
+ (let ((#{w2 19071}#
+ (vector-ref #{x 19044}# 2)))
+ (let ((#{m1 19072}# (car #{w 19037}#))
+ (#{s1 19073}# (cdr #{w 19037}#)))
+ (if (null? #{m1 19072}#)
+ (if (null? #{s1 19073}#)
+ #{w2 19071}#
+ (cons (car #{w2 19071}#)
+ (let ((#{m2 19088}#
+ (cdr #{w2 19071}#)))
+ (if (null? #{m2 19088}#)
+ #{s1 19073}#
(append
- #{s1 18948}#
- #{m2 18963}#)))))
- (cons (let ((#{m2 18971}#
- (car #{w2 18946}#)))
- (if (null? #{m2 18971}#)
- #{m1 18947}#
+ #{s1 19073}#
+ #{m2 19088}#)))))
+ (cons (let ((#{m2 19096}#
+ (car #{w2 19071}#)))
+ (if (null? #{m2 19096}#)
+ #{m1 19072}#
(append
- #{m1 18947}#
- #{m2 18971}#)))
- (let ((#{m2 18979}#
- (cdr #{w2 18946}#)))
- (if (null? #{m2 18979}#)
- #{s1 18948}#
+ #{m1 19072}#
+ #{m2 19096}#)))
+ (let ((#{m2 19104}#
+ (cdr #{w2 19071}#)))
+ (if (null? #{m2 19104}#)
+ #{s1 19073}#
(append
- #{s1 18948}#
- #{m2 18979}#))))))))
- (#{module 18939}#
- (vector-ref #{x 18919}# 3)))
+ #{s1 19073}#
+ #{m2 19104}#))))))))
+ (#{module 19064}#
+ (vector-ref #{x 19044}# 3)))
(vector
'syntax-object
- #{expression 18937}#
- #{wrap 18938}#
- #{module 18939}#))
- (if (null? #{x 18919}#)
- #{x 18919}#
+ #{expression 19062}#
+ #{wrap 19063}#
+ #{module 19064}#))
+ (if (null? #{x 19044}#)
+ #{x 19044}#
(vector
'syntax-object
- #{x 18919}#
- #{w 18912}#
- #{mod 18913}#)))))
- #{l 18914}#)
+ #{x 19044}#
+ #{w 19037}#
+ #{mod 19038}#)))))
+ #{l 19039}#)
#f))
- (if (null? #{e 18911}#)
+ (if (null? #{e 19036}#)
'()
- (if (if (vector? #{e 18911}#)
- (if (= (vector-length #{e 18911}#) 4)
- (eq? (vector-ref #{e 18911}# 0) 'syntax-object)
+ (if (if (vector? #{e 19036}#)
+ (if (= (vector-length #{e 19036}#) 4)
+ (eq? (vector-ref #{e 19036}# 0) 'syntax-object)
#f)
#f)
- (#{match-each-any 17958}#
- (vector-ref #{e 18911}# 1)
- (let ((#{w2 19012}# (vector-ref #{e 18911}# 2)))
- (let ((#{m1 19013}# (car #{w 18912}#))
- (#{s1 19014}# (cdr #{w 18912}#)))
- (if (null? #{m1 19013}#)
- (if (null? #{s1 19014}#)
- #{w2 19012}#
- (cons (car #{w2 19012}#)
- (let ((#{m2 19025}# (cdr #{w2 19012}#)))
- (if (null? #{m2 19025}#)
- #{s1 19014}#
- (append #{s1 19014}# #{m2 19025}#)))))
- (cons (let ((#{m2 19033}# (car #{w2 19012}#)))
- (if (null? #{m2 19033}#)
- #{m1 19013}#
- (append #{m1 19013}# #{m2 19033}#)))
- (let ((#{m2 19041}# (cdr #{w2 19012}#)))
- (if (null? #{m2 19041}#)
- #{s1 19014}#
- (append #{s1 19014}# #{m2 19041}#)))))))
- #{mod 18913}#)
+ (#{match-each-any 18083}#
+ (vector-ref #{e 19036}# 1)
+ (let ((#{w2 19137}# (vector-ref #{e 19036}# 2)))
+ (let ((#{m1 19138}# (car #{w 19037}#))
+ (#{s1 19139}# (cdr #{w 19037}#)))
+ (if (null? #{m1 19138}#)
+ (if (null? #{s1 19139}#)
+ #{w2 19137}#
+ (cons (car #{w2 19137}#)
+ (let ((#{m2 19150}# (cdr #{w2 19137}#)))
+ (if (null? #{m2 19150}#)
+ #{s1 19139}#
+ (append #{s1 19139}# #{m2 19150}#)))))
+ (cons (let ((#{m2 19158}# (car #{w2 19137}#)))
+ (if (null? #{m2 19158}#)
+ #{m1 19138}#
+ (append #{m1 19138}# #{m2 19158}#)))
+ (let ((#{m2 19166}# (cdr #{w2 19137}#)))
+ (if (null? #{m2 19166}#)
+ #{s1 19139}#
+ (append #{s1 19139}# #{m2 19166}#)))))))
+ #{mod 19038}#)
#f)))))
- (#{match-empty 17959}#
- (lambda (#{p 19046}# #{r 19047}#)
- (if (null? #{p 19046}#)
- #{r 19047}#
- (if (eq? #{p 19046}# '_)
- #{r 19047}#
- (if (eq? #{p 19046}# 'any)
- (cons '() #{r 19047}#)
- (if (pair? #{p 19046}#)
- (#{match-empty 17959}#
- (car #{p 19046}#)
- (#{match-empty 17959}#
- (cdr #{p 19046}#)
- #{r 19047}#))
- (if (eq? #{p 19046}# 'each-any)
- (cons '() #{r 19047}#)
- (let ((#{atom-key 19048}# (vector-ref #{p 19046}# 0)))
- (if (eqv? #{atom-key 19048}# 'each)
- (#{match-empty 17959}#
- (vector-ref #{p 19046}# 1)
- #{r 19047}#)
- (if (eqv? #{atom-key 19048}# 'each+)
- (#{match-empty 17959}#
- (vector-ref #{p 19046}# 1)
- (#{match-empty 17959}#
- (reverse (vector-ref #{p 19046}# 2))
- (#{match-empty 17959}#
- (vector-ref #{p 19046}# 3)
- #{r 19047}#)))
- (if (if (eqv? #{atom-key 19048}# 'free-id)
+ (#{match-empty 18084}#
+ (lambda (#{p 19171}# #{r 19172}#)
+ (if (null? #{p 19171}#)
+ #{r 19172}#
+ (if (eq? #{p 19171}# '_)
+ #{r 19172}#
+ (if (eq? #{p 19171}# 'any)
+ (cons '() #{r 19172}#)
+ (if (pair? #{p 19171}#)
+ (#{match-empty 18084}#
+ (car #{p 19171}#)
+ (#{match-empty 18084}#
+ (cdr #{p 19171}#)
+ #{r 19172}#))
+ (if (eq? #{p 19171}# 'each-any)
+ (cons '() #{r 19172}#)
+ (let ((#{atom-key 19173}# (vector-ref #{p 19171}# 0)))
+ (if (eqv? #{atom-key 19173}# 'each)
+ (#{match-empty 18084}#
+ (vector-ref #{p 19171}# 1)
+ #{r 19172}#)
+ (if (eqv? #{atom-key 19173}# 'each+)
+ (#{match-empty 18084}#
+ (vector-ref #{p 19171}# 1)
+ (#{match-empty 18084}#
+ (reverse (vector-ref #{p 19171}# 2))
+ (#{match-empty 18084}#
+ (vector-ref #{p 19171}# 3)
+ #{r 19172}#)))
+ (if (if (eqv? #{atom-key 19173}# 'free-id)
#t
- (eqv? #{atom-key 19048}# 'atom))
- #{r 19047}#
- (if (eqv? #{atom-key 19048}# 'vector)
- (#{match-empty 17959}#
- (vector-ref #{p 19046}# 1)
- #{r 19047}#)))))))))))))
- (#{combine 17960}#
- (lambda (#{r* 19067}# #{r 19068}#)
- (if (null? (car #{r* 19067}#))
- #{r 19068}#
- (cons (map car #{r* 19067}#)
- (#{combine 17960}#
- (map cdr #{r* 19067}#)
- #{r 19068}#)))))
- (#{match* 17961}#
- (lambda (#{e 17991}#
- #{p 17992}#
- #{w 17993}#
- #{r 17994}#
- #{mod 17995}#)
- (if (null? #{p 17992}#)
- (if (null? #{e 17991}#) #{r 17994}# #f)
- (if (pair? #{p 17992}#)
- (if (pair? #{e 17991}#)
- (#{match 17962}#
- (car #{e 17991}#)
- (car #{p 17992}#)
- #{w 17993}#
- (#{match 17962}#
- (cdr #{e 17991}#)
- (cdr #{p 17992}#)
- #{w 17993}#
- #{r 17994}#
- #{mod 17995}#)
- #{mod 17995}#)
+ (eqv? #{atom-key 19173}# 'atom))
+ #{r 19172}#
+ (if (eqv? #{atom-key 19173}# 'vector)
+ (#{match-empty 18084}#
+ (vector-ref #{p 19171}# 1)
+ #{r 19172}#)))))))))))))
+ (#{combine 18085}#
+ (lambda (#{r* 19192}# #{r 19193}#)
+ (if (null? (car #{r* 19192}#))
+ #{r 19193}#
+ (cons (map car #{r* 19192}#)
+ (#{combine 18085}#
+ (map cdr #{r* 19192}#)
+ #{r 19193}#)))))
+ (#{match* 18086}#
+ (lambda (#{e 18116}#
+ #{p 18117}#
+ #{w 18118}#
+ #{r 18119}#
+ #{mod 18120}#)
+ (if (null? #{p 18117}#)
+ (if (null? #{e 18116}#) #{r 18119}# #f)
+ (if (pair? #{p 18117}#)
+ (if (pair? #{e 18116}#)
+ (#{match 18087}#
+ (car #{e 18116}#)
+ (car #{p 18117}#)
+ #{w 18118}#
+ (#{match 18087}#
+ (cdr #{e 18116}#)
+ (cdr #{p 18117}#)
+ #{w 18118}#
+ #{r 18119}#
+ #{mod 18120}#)
+ #{mod 18120}#)
#f)
- (if (eq? #{p 17992}# 'each-any)
- (let ((#{l 18000}#
- (#{match-each-any 17958}#
- #{e 17991}#
- #{w 17993}#
- #{mod 17995}#)))
- (if #{l 18000}#
- (cons #{l 18000}# #{r 17994}#)
+ (if (eq? #{p 18117}# 'each-any)
+ (let ((#{l 18125}#
+ (#{match-each-any 18083}#
+ #{e 18116}#
+ #{w 18118}#
+ #{mod 18120}#)))
+ (if #{l 18125}#
+ (cons #{l 18125}# #{r 18119}#)
#f))
- (let ((#{atom-key 18005}# (vector-ref #{p 17992}# 0)))
- (if (eqv? #{atom-key 18005}# 'each)
- (if (null? #{e 17991}#)
- (#{match-empty 17959}#
- (vector-ref #{p 17992}# 1)
- #{r 17994}#)
- (let ((#{l 18012}#
- (#{match-each 17956}#
- #{e 17991}#
- (vector-ref #{p 17992}# 1)
- #{w 17993}#
- #{mod 17995}#)))
- (if #{l 18012}#
+ (let ((#{atom-key 18130}# (vector-ref #{p 18117}# 0)))
+ (if (eqv? #{atom-key 18130}# 'each)
+ (if (null? #{e 18116}#)
+ (#{match-empty 18084}#
+ (vector-ref #{p 18117}# 1)
+ #{r 18119}#)
+ (let ((#{l 18137}#
+ (#{match-each 18081}#
+ #{e 18116}#
+ (vector-ref #{p 18117}# 1)
+ #{w 18118}#
+ #{mod 18120}#)))
+ (if #{l 18137}#
(letrec*
- ((#{collect 18015}#
- (lambda (#{l 18076}#)
- (if (null? (car #{l 18076}#))
- #{r 17994}#
- (cons (map car #{l 18076}#)
- (#{collect 18015}#
- (map cdr #{l 18076}#)))))))
- (#{collect 18015}# #{l 18012}#))
+ ((#{collect 18140}#
+ (lambda (#{l 18201}#)
+ (if (null? (car #{l 18201}#))
+ #{r 18119}#
+ (cons (map car #{l 18201}#)
+ (#{collect 18140}#
+ (map cdr #{l 18201}#)))))))
+ (#{collect 18140}# #{l 18137}#))
#f)))
- (if (eqv? #{atom-key 18005}# 'each+)
+ (if (eqv? #{atom-key 18130}# 'each+)
(call-with-values
(lambda ()
- (let ((#{x-pat 18085}# (vector-ref #{p 17992}# 1))
- (#{y-pat 18086}# (vector-ref #{p 17992}# 2))
- (#{z-pat 18087}# (vector-ref #{p 17992}# 3)))
+ (let ((#{x-pat 18210}# (vector-ref #{p 18117}# 1))
+ (#{y-pat 18211}# (vector-ref #{p 18117}# 2))
+ (#{z-pat 18212}# (vector-ref #{p 18117}# 3)))
(letrec*
- ((#{f 18091}#
- (lambda (#{e 18093}# #{w 18094}#)
- (if (pair? #{e 18093}#)
+ ((#{f 18216}#
+ (lambda (#{e 18218}# #{w 18219}#)
+ (if (pair? #{e 18218}#)
(call-with-values
(lambda ()
- (#{f 18091}#
- (cdr #{e 18093}#)
- #{w 18094}#))
- (lambda (#{xr* 18095}#
- #{y-pat 18096}#
- #{r 18097}#)
- (if #{r 18097}#
- (if (null? #{y-pat 18096}#)
- (let ((#{xr 18098}#
- (#{match 17962}#
- (car #{e 18093}#)
- #{x-pat 18085}#
- #{w 18094}#
+ (#{f 18216}#
+ (cdr #{e 18218}#)
+ #{w 18219}#))
+ (lambda (#{xr* 18220}#
+ #{y-pat 18221}#
+ #{r 18222}#)
+ (if #{r 18222}#
+ (if (null? #{y-pat 18221}#)
+ (let ((#{xr 18223}#
+ (#{match 18087}#
+ (car #{e 18218}#)
+ #{x-pat 18210}#
+ #{w 18219}#
'()
- #{mod 17995}#)))
- (if #{xr 18098}#
+ #{mod 18120}#)))
+ (if #{xr 18223}#
(values
- (cons #{xr 18098}#
- #{xr* 18095}#)
- #{y-pat 18096}#
- #{r 18097}#)
+ (cons #{xr 18223}#
+ #{xr* 18220}#)
+ #{y-pat 18221}#
+ #{r 18222}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat 18096}#)
- (#{match 17962}#
- (car #{e 18093}#)
- (car #{y-pat 18096}#)
- #{w 18094}#
- #{r 18097}#
- #{mod 17995}#)))
+ (cdr #{y-pat 18221}#)
+ (#{match 18087}#
+ (car #{e 18218}#)
+ (car #{y-pat 18221}#)
+ #{w 18219}#
+ #{r 18222}#
+ #{mod 18120}#)))
(values #f #f #f))))
- (if (if (vector? #{e 18093}#)
- (if (= (vector-length #{e 18093}#)
+ (if (if (vector? #{e 18218}#)
+ (if (= (vector-length #{e 18218}#)
4)
- (eq? (vector-ref #{e 18093}# 0)
+ (eq? (vector-ref #{e 18218}# 0)
'syntax-object)
#f)
#f)
- (#{f 18091}#
- (vector-ref #{e 18093}# 1)
- (let ((#{m1 18126}#
- (car #{w 18094}#))
- (#{s1 18127}#
- (cdr #{w 18094}#)))
- (if (null? #{m1 18126}#)
- (if (null? #{s1 18127}#)
- #{e 18093}#
- (cons (car #{e 18093}#)
- (let ((#{m2 18139}#
- (cdr #{e
18093}#)))
- (if (null? #{m2
18139}#)
- #{s1 18127}#
+ (#{f 18216}#
+ (vector-ref #{e 18218}# 1)
+ (let ((#{m1 18251}#
+ (car #{w 18219}#))
+ (#{s1 18252}#
+ (cdr #{w 18219}#)))
+ (if (null? #{m1 18251}#)
+ (if (null? #{s1 18252}#)
+ #{e 18218}#
+ (cons (car #{e 18218}#)
+ (let ((#{m2 18264}#
+ (cdr #{e
18218}#)))
+ (if (null? #{m2
18264}#)
+ #{s1 18252}#
(append
- #{s1 18127}#
- #{m2 18139}#)))))
- (cons (let ((#{m2 18149}#
- (car #{e 18093}#)))
- (if (null? #{m2 18149}#)
- #{m1 18126}#
+ #{s1 18252}#
+ #{m2 18264}#)))))
+ (cons (let ((#{m2 18274}#
+ (car #{e 18218}#)))
+ (if (null? #{m2 18274}#)
+ #{m1 18251}#
(append
- #{m1 18126}#
- #{m2 18149}#)))
- (let ((#{m2 18159}#
- (cdr #{e 18093}#)))
- (if (null? #{m2 18159}#)
- #{s1 18127}#
+ #{m1 18251}#
+ #{m2 18274}#)))
+ (let ((#{m2 18284}#
+ (cdr #{e 18218}#)))
+ (if (null? #{m2 18284}#)
+ #{s1 18252}#
(append
- #{s1 18127}#
- #{m2 18159}#)))))))
+ #{s1 18252}#
+ #{m2 18284}#)))))))
(values
'()
- #{y-pat 18086}#
- (#{match 17962}#
- #{e 18093}#
- #{z-pat 18087}#
- #{w 18094}#
- #{r 17994}#
- #{mod 17995}#)))))))
- (#{f 18091}# #{e 17991}# #{w 17993}#))))
- (lambda (#{xr* 18169}# #{y-pat 18170}# #{r 18171}#)
- (if #{r 18171}#
- (if (null? #{y-pat 18170}#)
- (if (null? #{xr* 18169}#)
- (#{match-empty 17959}#
- (vector-ref #{p 17992}# 1)
- #{r 18171}#)
- (#{combine 17960}# #{xr* 18169}# #{r 18171}#))
+ #{y-pat 18211}#
+ (#{match 18087}#
+ #{e 18218}#
+ #{z-pat 18212}#
+ #{w 18219}#
+ #{r 18119}#
+ #{mod 18120}#)))))))
+ (#{f 18216}# #{e 18116}# #{w 18118}#))))
+ (lambda (#{xr* 18294}# #{y-pat 18295}# #{r 18296}#)
+ (if #{r 18296}#
+ (if (null? #{y-pat 18295}#)
+ (if (null? #{xr* 18294}#)
+ (#{match-empty 18084}#
+ (vector-ref #{p 18117}# 1)
+ #{r 18296}#)
+ (#{combine 18085}# #{xr* 18294}# #{r 18296}#))
#f)
#f)))
- (if (eqv? #{atom-key 18005}# 'free-id)
- (if (if (symbol? #{e 17991}#)
+ (if (eqv? #{atom-key 18130}# 'free-id)
+ (if (if (symbol? #{e 18116}#)
#t
- (if (if (vector? #{e 17991}#)
- (if (= (vector-length #{e 17991}#) 4)
- (eq? (vector-ref #{e 17991}# 0)
+ (if (if (vector? #{e 18116}#)
+ (if (= (vector-length #{e 18116}#) 4)
+ (eq? (vector-ref #{e 18116}# 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 17991}# 1))
+ (symbol? (vector-ref #{e 18116}# 1))
#f))
- (if (#{free-id=? 4363}#
- (if (if (null? (car #{w 17993}#))
- (null? (cdr #{w 17993}#))
+ (if (#{free-id=? 4361}#
+ (if (if (null? (car #{w 18118}#))
+ (null? (cdr #{w 18118}#))
#f)
- #{e 17991}#
- (if (if (vector? #{e 17991}#)
- (if (= (vector-length #{e 17991}#) 4)
- (eq? (vector-ref #{e 17991}# 0)
+ #{e 18116}#
+ (if (if (vector? #{e 18116}#)
+ (if (= (vector-length #{e 18116}#) 4)
+ (eq? (vector-ref #{e 18116}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 18602}#
- (vector-ref #{e 17991}# 1))
- (#{wrap 18603}#
- (let ((#{w2 18613}#
+ (let ((#{expression 18727}#
+ (vector-ref #{e 18116}# 1))
+ (#{wrap 18728}#
+ (let ((#{w2 18738}#
(vector-ref
- #{e 17991}#
+ #{e 18116}#
2)))
- (let ((#{m1 18614}#
- (car #{w 17993}#))
- (#{s1 18615}#
- (cdr #{w 17993}#)))
- (if (null? #{m1 18614}#)
- (if (null? #{s1 18615}#)
- #{w2 18613}#
- (cons (car #{w2 18613}#)
- (let ((#{m2 18632}#
- (cdr #{w2
18613}#)))
- (if (null? #{m2
18632}#)
- #{s1 18615}#
+ (let ((#{m1 18739}#
+ (car #{w 18118}#))
+ (#{s1 18740}#
+ (cdr #{w 18118}#)))
+ (if (null? #{m1 18739}#)
+ (if (null? #{s1 18740}#)
+ #{w2 18738}#
+ (cons (car #{w2 18738}#)
+ (let ((#{m2 18757}#
+ (cdr #{w2
18738}#)))
+ (if (null? #{m2
18757}#)
+ #{s1 18740}#
(append
- #{s1 18615}#
- #{m2
18632}#)))))
- (cons (let ((#{m2 18640}#
- (car #{w2
18613}#)))
- (if (null? #{m2
18640}#)
- #{m1 18614}#
+ #{s1 18740}#
+ #{m2
18757}#)))))
+ (cons (let ((#{m2 18765}#
+ (car #{w2
18738}#)))
+ (if (null? #{m2
18765}#)
+ #{m1 18739}#
(append
- #{m1 18614}#
- #{m2 18640}#)))
- (let ((#{m2 18648}#
- (cdr #{w2
18613}#)))
- (if (null? #{m2
18648}#)
- #{s1 18615}#
+ #{m1 18739}#
+ #{m2 18765}#)))
+ (let ((#{m2 18773}#
+ (cdr #{w2
18738}#)))
+ (if (null? #{m2
18773}#)
+ #{s1 18740}#
(append
- #{s1 18615}#
- #{m2
18648}#))))))))
- (#{module 18604}#
- (vector-ref #{e 17991}# 3)))
+ #{s1 18740}#
+ #{m2
18773}#))))))))
+ (#{module 18729}#
+ (vector-ref #{e 18116}# 3)))
(vector
'syntax-object
- #{expression 18602}#
- #{wrap 18603}#
- #{module 18604}#))
- (if (null? #{e 17991}#)
- #{e 17991}#
+ #{expression 18727}#
+ #{wrap 18728}#
+ #{module 18729}#))
+ (if (null? #{e 18116}#)
+ #{e 18116}#
(vector
'syntax-object
- #{e 17991}#
- #{w 17993}#
- #{mod 17995}#))))
- (vector-ref #{p 17992}# 1))
- #{r 17994}#
+ #{e 18116}#
+ #{w 18118}#
+ #{mod 18120}#))))
+ (vector-ref #{p 18117}# 1))
+ #{r 18119}#
#f)
#f)
- (if (eqv? #{atom-key 18005}# 'atom)
+ (if (eqv? #{atom-key 18130}# 'atom)
(if (equal?
- (vector-ref #{p 17992}# 1)
- (#{strip 4388}# #{e 17991}# #{w 17993}#))
- #{r 17994}#
+ (vector-ref #{p 18117}# 1)
+ (#{strip 4386}# #{e 18116}# #{w 18118}#))
+ #{r 18119}#
#f)
- (if (eqv? #{atom-key 18005}# 'vector)
- (if (vector? #{e 17991}#)
- (#{match 17962}#
- (vector->list #{e 17991}#)
- (vector-ref #{p 17992}# 1)
- #{w 17993}#
- #{r 17994}#
- #{mod 17995}#)
+ (if (eqv? #{atom-key 18130}# 'vector)
+ (if (vector? #{e 18116}#)
+ (#{match 18087}#
+ (vector->list #{e 18116}#)
+ (vector-ref #{p 18117}# 1)
+ #{w 18118}#
+ #{r 18119}#
+ #{mod 18120}#)
#f))))))))))))
- (#{match 17962}#
- (lambda (#{e 18681}#
- #{p 18682}#
- #{w 18683}#
- #{r 18684}#
- #{mod 18685}#)
- (if (not #{r 18684}#)
+ (#{match 18087}#
+ (lambda (#{e 18806}#
+ #{p 18807}#
+ #{w 18808}#
+ #{r 18809}#
+ #{mod 18810}#)
+ (if (not #{r 18809}#)
#f
- (if (eq? #{p 18682}# '_)
- #{r 18684}#
- (if (eq? #{p 18682}# 'any)
- (cons (if (if (null? (car #{w 18683}#))
- (null? (cdr #{w 18683}#))
+ (if (eq? #{p 18807}# '_)
+ #{r 18809}#
+ (if (eq? #{p 18807}# 'any)
+ (cons (if (if (null? (car #{w 18808}#))
+ (null? (cdr #{w 18808}#))
#f)
- #{e 18681}#
- (if (if (vector? #{e 18681}#)
- (if (= (vector-length #{e 18681}#) 4)
- (eq? (vector-ref #{e 18681}# 0)
+ #{e 18806}#
+ (if (if (vector? #{e 18806}#)
+ (if (= (vector-length #{e 18806}#) 4)
+ (eq? (vector-ref #{e 18806}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression 18715}#
- (vector-ref #{e 18681}# 1))
- (#{wrap 18716}#
- (let ((#{w2 18726}#
- (vector-ref #{e 18681}# 2)))
- (let ((#{m1 18727}# (car #{w 18683}#))
- (#{s1 18728}# (cdr #{w 18683}#)))
- (if (null? #{m1 18727}#)
- (if (null? #{s1 18728}#)
- #{w2 18726}#
- (cons (car #{w2 18726}#)
- (let ((#{m2 18745}#
- (cdr #{w2 18726}#)))
- (if (null? #{m2 18745}#)
- #{s1 18728}#
+ (let ((#{expression 18840}#
+ (vector-ref #{e 18806}# 1))
+ (#{wrap 18841}#
+ (let ((#{w2 18851}#
+ (vector-ref #{e 18806}# 2)))
+ (let ((#{m1 18852}# (car #{w 18808}#))
+ (#{s1 18853}# (cdr #{w 18808}#)))
+ (if (null? #{m1 18852}#)
+ (if (null? #{s1 18853}#)
+ #{w2 18851}#
+ (cons (car #{w2 18851}#)
+ (let ((#{m2 18870}#
+ (cdr #{w2 18851}#)))
+ (if (null? #{m2 18870}#)
+ #{s1 18853}#
(append
- #{s1 18728}#
- #{m2 18745}#)))))
- (cons (let ((#{m2 18753}#
- (car #{w2 18726}#)))
- (if (null? #{m2 18753}#)
- #{m1 18727}#
+ #{s1 18853}#
+ #{m2 18870}#)))))
+ (cons (let ((#{m2 18878}#
+ (car #{w2 18851}#)))
+ (if (null? #{m2 18878}#)
+ #{m1 18852}#
(append
- #{m1 18727}#
- #{m2 18753}#)))
- (let ((#{m2 18761}#
- (cdr #{w2 18726}#)))
- (if (null? #{m2 18761}#)
- #{s1 18728}#
+ #{m1 18852}#
+ #{m2 18878}#)))
+ (let ((#{m2 18886}#
+ (cdr #{w2 18851}#)))
+ (if (null? #{m2 18886}#)
+ #{s1 18853}#
(append
- #{s1 18728}#
- #{m2 18761}#))))))))
- (#{module 18717}# (vector-ref #{e 18681}# 3)))
+ #{s1 18853}#
+ #{m2 18886}#))))))))
+ (#{module 18842}# (vector-ref #{e 18806}# 3)))
(vector
'syntax-object
- #{expression 18715}#
- #{wrap 18716}#
- #{module 18717}#))
- (if (null? #{e 18681}#)
- #{e 18681}#
+ #{expression 18840}#
+ #{wrap 18841}#
+ #{module 18842}#))
+ (if (null? #{e 18806}#)
+ #{e 18806}#
(vector
'syntax-object
- #{e 18681}#
- #{w 18683}#
- #{mod 18685}#))))
- #{r 18684}#)
- (if (if (vector? #{e 18681}#)
- (if (= (vector-length #{e 18681}#) 4)
- (eq? (vector-ref #{e 18681}# 0) 'syntax-object)
+ #{e 18806}#
+ #{w 18808}#
+ #{mod 18810}#))))
+ #{r 18809}#)
+ (if (if (vector? #{e 18806}#)
+ (if (= (vector-length #{e 18806}#) 4)
+ (eq? (vector-ref #{e 18806}# 0) 'syntax-object)
#f)
#f)
- (#{match* 17961}#
- (vector-ref #{e 18681}# 1)
- #{p 18682}#
- (let ((#{w2 18804}# (vector-ref #{e 18681}# 2)))
- (let ((#{m1 18805}# (car #{w 18683}#))
- (#{s1 18806}# (cdr #{w 18683}#)))
- (if (null? #{m1 18805}#)
- (if (null? #{s1 18806}#)
- #{w2 18804}#
- (cons (car #{w2 18804}#)
- (let ((#{m2 18817}# (cdr #{w2 18804}#)))
- (if (null? #{m2 18817}#)
- #{s1 18806}#
- (append #{s1 18806}# #{m2 18817}#)))))
- (cons (let ((#{m2 18825}# (car #{w2 18804}#)))
- (if (null? #{m2 18825}#)
- #{m1 18805}#
- (append #{m1 18805}# #{m2 18825}#)))
- (let ((#{m2 18833}# (cdr #{w2 18804}#)))
- (if (null? #{m2 18833}#)
- #{s1 18806}#
- (append #{s1 18806}# #{m2 18833}#)))))))
- #{r 18684}#
- (vector-ref #{e 18681}# 3))
- (#{match* 17961}#
- #{e 18681}#
- #{p 18682}#
- #{w 18683}#
- #{r 18684}#
- #{mod 18685}#))))))))
+ (#{match* 18086}#
+ (vector-ref #{e 18806}# 1)
+ #{p 18807}#
+ (let ((#{w2 18929}# (vector-ref #{e 18806}# 2)))
+ (let ((#{m1 18930}# (car #{w 18808}#))
+ (#{s1 18931}# (cdr #{w 18808}#)))
+ (if (null? #{m1 18930}#)
+ (if (null? #{s1 18931}#)
+ #{w2 18929}#
+ (cons (car #{w2 18929}#)
+ (let ((#{m2 18942}# (cdr #{w2 18929}#)))
+ (if (null? #{m2 18942}#)
+ #{s1 18931}#
+ (append #{s1 18931}# #{m2 18942}#)))))
+ (cons (let ((#{m2 18950}# (car #{w2 18929}#)))
+ (if (null? #{m2 18950}#)
+ #{m1 18930}#
+ (append #{m1 18930}# #{m2 18950}#)))
+ (let ((#{m2 18958}# (cdr #{w2 18929}#)))
+ (if (null? #{m2 18958}#)
+ #{s1 18931}#
+ (append #{s1 18931}# #{m2 18958}#)))))))
+ #{r 18809}#
+ (vector-ref #{e 18806}# 3))
+ (#{match* 18086}#
+ #{e 18806}#
+ #{p 18807}#
+ #{w 18808}#
+ #{r 18809}#
+ #{mod 18810}#))))))))
(set! $sc-dispatch
- (lambda (#{e 17963}# #{p 17964}#)
- (if (eq? #{p 17964}# 'any)
- (list #{e 17963}#)
- (if (eq? #{p 17964}# '_)
+ (lambda (#{e 18088}# #{p 18089}#)
+ (if (eq? #{p 18089}# 'any)
+ (list #{e 18088}#)
+ (if (eq? #{p 18089}# '_)
'()
- (if (if (vector? #{e 17963}#)
- (if (= (vector-length #{e 17963}#) 4)
- (eq? (vector-ref #{e 17963}# 0) 'syntax-object)
+ (if (if (vector? #{e 18088}#)
+ (if (= (vector-length #{e 18088}#) 4)
+ (eq? (vector-ref #{e 18088}# 0) 'syntax-object)
#f)
#f)
- (#{match* 17961}#
- (vector-ref #{e 17963}# 1)
- #{p 17964}#
- (vector-ref #{e 17963}# 2)
+ (#{match* 18086}#
+ (vector-ref #{e 18088}# 1)
+ #{p 18089}#
+ (vector-ref #{e 18088}# 2)
'()
- (vector-ref #{e 17963}# 3))
- (#{match* 17961}#
- #{e 17963}#
- #{p 17964}#
+ (vector-ref #{e 18088}# 3))
+ (#{match* 18086}#
+ #{e 18088}#
+ #{p 18089}#
'(())
'()
#f)))))))))
@@ -17637,82 +17620,82 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 36962}#)
- (let ((#{tmp 36964}#
- ($sc-dispatch #{x 36962}# '(_ () any . each-any))))
- (if #{tmp 36964}#
+ (lambda (#{x 37268}#)
+ (let ((#{tmp 37270}#
+ ($sc-dispatch #{x 37268}# '(_ () any . each-any))))
+ (if #{tmp 37270}#
(@apply
- (lambda (#{e1 36968}# #{e2 36969}#)
+ (lambda (#{e1 37274}# #{e2 37275}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i36935" "i36936"))
+ #("i37241" "i37242"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36932")))
+ #(ribcage #(x) #((top)) #("i37238")))
(hygiene guile))
- (cons '() (cons #{e1 36968}# #{e2 36969}#))))
- #{tmp 36964}#)
- (let ((#{tmp 36970}#
+ (cons '() (cons #{e1 37274}# #{e2 37275}#))))
+ #{tmp 37270}#)
+ (let ((#{tmp 37276}#
($sc-dispatch
- #{x 36962}#
+ #{x 37268}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 36970}#
+ (if #{tmp 37276}#
(@apply
- (lambda (#{out 36974}#
- #{in 36975}#
- #{e1 36976}#
- #{e2 36977}#)
+ (lambda (#{out 37280}#
+ #{in 37281}#
+ #{e1 37282}#
+ #{e2 37283}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i36941" "i36942" "i36943" "i36944"))
+ #("i37247" "i37248" "i37249" "i37250"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36932")))
+ #(ribcage #(x) #((top)) #("i37238")))
(hygiene guile))
- #{in 36975}#
+ #{in 37281}#
'()
- (list #{out 36974}#
+ (list #{out 37280}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i36941"
- "i36942"
- "i36943"
- "i36944"))
+ #("i37247"
+ "i37248"
+ "i37249"
+ "i37250"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36932")))
+ #(ribcage #(x) #((top)) #("i37238")))
(hygiene guile))
(cons '()
- (cons #{e1 36976}# #{e2 36977}#))))))
- #{tmp 36970}#)
- (let ((#{tmp 36978}#
+ (cons #{e1 37282}# #{e2 37283}#))))))
+ #{tmp 37276}#)
+ (let ((#{tmp 37284}#
($sc-dispatch
- #{x 36962}#
+ #{x 37268}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 36978}#
+ (if #{tmp 37284}#
(@apply
- (lambda (#{out 36982}#
- #{in 36983}#
- #{e1 36984}#
- #{e2 36985}#)
+ (lambda (#{out 37288}#
+ #{in 37289}#
+ #{e1 37290}#
+ #{e2 37291}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i36951" "i36952" "i36953" "i36954"))
+ #("i37257" "i37258" "i37259" "i37260"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36932")))
+ #(ribcage #(x) #((top)) #("i37238")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -17720,62 +17703,62 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i36951" "i36952" "i36953" "i36954"))
+ #("i37257" "i37258" "i37259" "i37260"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36932")))
+ #(ribcage #(x) #((top)) #("i37238")))
(hygiene guile))
- #{in 36983}#)
+ #{in 37289}#)
'()
- (list #{out 36982}#
+ (list #{out 37288}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("i36951"
- "i36952"
- "i36953"
- "i36954"))
+ #("i37257"
+ "i37258"
+ "i37259"
+ "i37260"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i36932")))
+ #("i37238")))
(hygiene guile))
(cons '()
- (cons #{e1 36984}#
- #{e2 36985}#))))))
- #{tmp 36978}#)
+ (cons #{e1 37290}#
+ #{e2 37291}#))))))
+ #{tmp 37284}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 36962}#))))))))))
+ #{x 37268}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 37039}#)
- (let ((#{tmp 37041}#
+ (lambda (#{x 37345}#)
+ (let ((#{tmp 37347}#
($sc-dispatch
- #{x 37039}#
+ #{x 37345}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 37041}#
+ (if #{tmp 37347}#
(@apply
- (lambda (#{k 37045}#
- #{keyword 37046}#
- #{pattern 37047}#
- #{template 37048}#)
+ (lambda (#{k 37351}#
+ #{keyword 37352}#
+ #{pattern 37353}#
+ #{template 37354}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37002" "i37003" "i37004" "i37005"))
+ #("i37308" "i37309" "i37310" "i37311"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36999")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
'(#(syntax-object
x
@@ -17783,9 +17766,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37002" "i37003" "i37004" "i37005"))
+ #("i37308" "i37309" "i37310" "i37311"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36999")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -17794,9 +17777,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37002" "i37003" "i37004" "i37005"))
+ #("i37308" "i37309" "i37310" "i37311"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36999")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
.
#(syntax-object
@@ -17805,9 +17788,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37002" "i37003" "i37004" "i37005"))
+ #("i37308" "i37309" "i37310" "i37311"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36999")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -17815,20 +17798,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37002" "i37003" "i37004" "i37005"))
+ #("i37308" "i37309" "i37310" "i37311"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36999")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
- #{pattern 37047}#))
+ #{pattern 37353}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37002" "i37003" "i37004" "i37005"))
+ #("i37308" "i37309" "i37310" "i37311"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36999")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -17836,13 +17819,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("i37002" "i37003" "i37004" "i37005"))
+ #("i37308" "i37309" "i37310" "i37311"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36999")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
- (cons #{k 37045}#
- (map (lambda (#{tmp 37013 37049}#
- #{tmp 37012 37050}#)
+ (cons #{k 37351}#
+ (map (lambda (#{tmp 37319 37355}#
+ #{tmp 37318 37356}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -17855,10 +17838,10 @@
(top)
(top)
(top))
- #("i37002"
- "i37003"
- "i37004"
- "i37005"))
+ #("i37308"
+ "i37309"
+ "i37310"
+ "i37311"))
#(ribcage
()
()
@@ -17866,9 +17849,9 @@
#(ribcage
#(x)
#((top))
- #("i36999")))
+ #("i37305")))
(hygiene guile))
- #{tmp 37012 37050}#)
+ #{tmp 37318 37356}#)
(list '#(syntax-object
syntax
((top)
@@ -17881,10 +17864,10 @@
(top)
(top)
(top))
- #("i37002"
- "i37003"
- "i37004"
- "i37005"))
+ #("i37308"
+ "i37309"
+ "i37310"
+ "i37311"))
#(ribcage
()
()
@@ -17892,41 +17875,41 @@
#(ribcage
#(x)
#((top))
- #("i36999")))
+ #("i37305")))
(hygiene guile))
- #{tmp 37013 37049}#)))
- #{template 37048}#
- #{pattern 37047}#))))))
- #{tmp 37041}#)
- (let ((#{tmp 37051}#
+ #{tmp 37319 37355}#)))
+ #{template 37354}#
+ #{pattern 37353}#))))))
+ #{tmp 37347}#)
+ (let ((#{tmp 37357}#
($sc-dispatch
- #{x 37039}#
+ #{x 37345}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 37051}#
+ (if (if #{tmp 37357}#
(@apply
- (lambda (#{k 37055}#
- #{docstring 37056}#
- #{keyword 37057}#
- #{pattern 37058}#
- #{template 37059}#)
- (string? (syntax->datum #{docstring 37056}#)))
- #{tmp 37051}#)
+ (lambda (#{k 37361}#
+ #{docstring 37362}#
+ #{keyword 37363}#
+ #{pattern 37364}#
+ #{template 37365}#)
+ (string? (syntax->datum #{docstring 37362}#)))
+ #{tmp 37357}#)
#f)
(@apply
- (lambda (#{k 37060}#
- #{docstring 37061}#
- #{keyword 37062}#
- #{pattern 37063}#
- #{template 37064}#)
+ (lambda (#{k 37366}#
+ #{docstring 37367}#
+ #{keyword 37368}#
+ #{pattern 37369}#
+ #{template 37370}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37025" "i37026" "i37027" "i37028" "i37029"))
+ #("i37331" "i37332" "i37333" "i37334" "i37335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36999")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
'(#(syntax-object
x
@@ -17934,11 +17917,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37025" "i37026" "i37027" "i37028" "i37029"))
+ #("i37331" "i37332" "i37333" "i37334" "i37335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36999")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile)))
- #{docstring 37061}#
+ #{docstring 37367}#
(vector
'(#(syntax-object
macro-type
@@ -17946,13 +17929,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37025"
- "i37026"
- "i37027"
- "i37028"
- "i37029"))
+ #("i37331"
+ "i37332"
+ "i37333"
+ "i37334"
+ "i37335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36999")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
.
#(syntax-object
@@ -17961,13 +17944,13 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37025"
- "i37026"
- "i37027"
- "i37028"
- "i37029"))
+ #("i37331"
+ "i37332"
+ "i37333"
+ "i37334"
+ "i37335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36999")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -17975,28 +17958,28 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37025"
- "i37026"
- "i37027"
- "i37028"
- "i37029"))
+ #("i37331"
+ "i37332"
+ "i37333"
+ "i37334"
+ "i37335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36999")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
- #{pattern 37063}#))
+ #{pattern 37369}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i37025"
- "i37026"
- "i37027"
- "i37028"
- "i37029"))
+ #("i37331"
+ "i37332"
+ "i37333"
+ "i37334"
+ "i37335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36999")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -18008,17 +17991,17 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("i37025"
- "i37026"
- "i37027"
- "i37028"
- "i37029"))
+ #("i37331"
+ "i37332"
+ "i37333"
+ "i37334"
+ "i37335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i36999")))
+ #(ribcage #(x) #((top)) #("i37305")))
(hygiene guile))
- (cons #{k 37060}#
- (map (lambda (#{tmp 37038 37065}#
- #{tmp 37037 37066}#)
+ (cons #{k 37366}#
+ (map (lambda (#{tmp 37344 37371}#
+ #{tmp 37343 37372}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -18033,11 +18016,11 @@
(top)
(top)
(top))
- #("i37025"
- "i37026"
- "i37027"
- "i37028"
- "i37029"))
+ #("i37331"
+ "i37332"
+ "i37333"
+ "i37334"
+ "i37335"))
#(ribcage
()
()
@@ -18045,10 +18028,10 @@
#(ribcage
#(x)
#((top))
-
#("i36999")))
+
#("i37305")))
(hygiene
guile))
- #{tmp 37037
37066}#)
+ #{tmp 37343
37372}#)
(list '#(syntax-object
syntax
((top)
@@ -18063,11 +18046,11 @@
(top)
(top)
(top))
- #("i37025"
- "i37026"
- "i37027"
- "i37028"
- "i37029"))
+ #("i37331"
+ "i37332"
+ "i37333"
+ "i37334"
+ "i37335"))
#(ribcage
()
()
@@ -18075,50 +18058,50 @@
#(ribcage
#(x)
#((top))
-
#("i36999")))
+
#("i37305")))
(hygiene
guile))
- #{tmp 37038
37065}#)))
- #{template 37064}#
- #{pattern 37063}#))))))
- #{tmp 37051}#)
+ #{tmp 37344
37371}#)))
+ #{template 37370}#
+ #{pattern 37369}#))))))
+ #{tmp 37357}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37039}#))))))))
+ #{x 37345}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x 37103}#)
- (let ((#{tmp 37105}#
- ($sc-dispatch #{x 37103}# '(_ (any . any) any))))
- (if #{tmp 37105}#
+ (lambda (#{x 37409}#)
+ (let ((#{tmp 37411}#
+ ($sc-dispatch #{x 37409}# '(_ (any . any) any))))
+ (if #{tmp 37411}#
(@apply
- (lambda (#{name 37109}#
- #{pattern 37110}#
- #{template 37111}#)
+ (lambda (#{name 37415}#
+ #{pattern 37416}#
+ #{template 37417}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i37080" "i37081" "i37082"))
+ #("i37386" "i37387" "i37388"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37077")))
+ #(ribcage #(x) #((top)) #("i37383")))
(hygiene guile))
- #{name 37109}#
+ #{name 37415}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i37080" "i37081" "i37082"))
+ #("i37386" "i37387" "i37388"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37077")))
+ #(ribcage #(x) #((top)) #("i37383")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -18127,54 +18110,54 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("i37080" "i37081" "i37082"))
+ #("i37386" "i37387" "i37388"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37077")))
+ #(ribcage #(x) #((top)) #("i37383")))
(hygiene guile))
- #{pattern 37110}#)
- #{template 37111}#))))
- #{tmp 37105}#)
- (let ((#{tmp 37112}#
+ #{pattern 37416}#)
+ #{template 37417}#))))
+ #{tmp 37411}#)
+ (let ((#{tmp 37418}#
($sc-dispatch
- #{x 37103}#
+ #{x 37409}#
'(_ (any . any) any any))))
- (if (if #{tmp 37112}#
+ (if (if #{tmp 37418}#
(@apply
- (lambda (#{name 37116}#
- #{pattern 37117}#
- #{docstring 37118}#
- #{template 37119}#)
- (string? (syntax->datum #{docstring 37118}#)))
- #{tmp 37112}#)
+ (lambda (#{name 37422}#
+ #{pattern 37423}#
+ #{docstring 37424}#
+ #{template 37425}#)
+ (string? (syntax->datum #{docstring 37424}#)))
+ #{tmp 37418}#)
#f)
(@apply
- (lambda (#{name 37120}#
- #{pattern 37121}#
- #{docstring 37122}#
- #{template 37123}#)
+ (lambda (#{name 37426}#
+ #{pattern 37427}#
+ #{docstring 37428}#
+ #{template 37429}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i37095" "i37096" "i37097" "i37098"))
+ #("i37401" "i37402" "i37403" "i37404"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37077")))
+ #(ribcage #(x) #((top)) #("i37383")))
(hygiene guile))
- #{name 37120}#
+ #{name 37426}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("i37095" "i37096" "i37097" "i37098"))
+ #("i37401" "i37402" "i37403" "i37404"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37077")))
+ #(ribcage #(x) #((top)) #("i37383")))
(hygiene guile))
'()
- #{docstring 37122}#
+ #{docstring 37428}#
(list (cons '#(syntax-object
_
((top)
@@ -18184,53 +18167,53 @@
docstring
template)
#((top) (top) (top) (top))
- #("i37095"
- "i37096"
- "i37097"
- "i37098"))
+ #("i37401"
+ "i37402"
+ "i37403"
+ "i37404"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37077")))
+ #("i37383")))
(hygiene guile))
- #{pattern 37121}#)
- #{template 37123}#))))
- #{tmp 37112}#)
+ #{pattern 37427}#)
+ #{template 37429}#))))
+ #{tmp 37418}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37103}#))))))))
+ #{x 37409}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 37172}#)
- (let ((#{tmp 37174}#
+ (lambda (#{x 37478}#)
+ (let ((#{tmp 37480}#
($sc-dispatch
- #{x 37172}#
+ #{x 37478}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 37174}#
+ (if (if #{tmp 37480}#
(@apply
- (lambda (#{let* 37178}#
- #{x 37179}#
- #{v 37180}#
- #{e1 37181}#
- #{e2 37182}#)
- (and-map identifier? #{x 37179}#))
- #{tmp 37174}#)
+ (lambda (#{let* 37484}#
+ #{x 37485}#
+ #{v 37486}#
+ #{e1 37487}#
+ #{e2 37488}#)
+ (and-map identifier? #{x 37485}#))
+ #{tmp 37480}#)
#f)
(@apply
- (lambda (#{let* 37183}#
- #{x 37184}#
- #{v 37185}#
- #{e1 37186}#
- #{e2 37187}#)
+ (lambda (#{let* 37489}#
+ #{x 37490}#
+ #{v 37491}#
+ #{e1 37492}#
+ #{e2 37493}#)
(letrec*
- ((#{f 37188}#
- (lambda (#{bindings 37191}#)
- (if (null? #{bindings 37191}#)
+ ((#{f 37494}#
+ (lambda (#{bindings 37497}#)
+ (if (null? #{bindings 37497}#)
(cons '#(syntax-object
let
((top)
@@ -18238,27 +18221,27 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i37158" "i37159"))
+ #("i37464" "i37465"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i37148"
- "i37149"
- "i37150"
- "i37151"
- "i37152"))
+ #("i37454"
+ "i37455"
+ "i37456"
+ "i37457"
+ "i37458"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37134")))
+ #(ribcage #(x) #((top)) #("i37440")))
(hygiene guile))
- (cons '() (cons #{e1 37186}# #{e2 37187}#)))
- (let ((#{tmp 37192}#
- (list (#{f 37188}# (cdr #{bindings 37191}#))
- (car #{bindings 37191}#))))
- (let ((#{tmp 37193}#
- ($sc-dispatch #{tmp 37192}# '(any any))))
- (if #{tmp 37193}#
+ (cons '() (cons #{e1 37492}# #{e2 37493}#)))
+ (let ((#{tmp 37498}#
+ (list (#{f 37494}# (cdr #{bindings 37497}#))
+ (car #{bindings 37497}#))))
+ (let ((#{tmp 37499}#
+ ($sc-dispatch #{tmp 37498}# '(any any))))
+ (if #{tmp 37499}#
(@apply
- (lambda (#{body 37195}# #{binding 37196}#)
+ (lambda (#{body 37501}# #{binding 37502}#)
(list '#(syntax-object
let
((top)
@@ -18266,86 +18249,86 @@
#(ribcage
#(body binding)
#((top) (top))
- #("i37168" "i37169"))
+ #("i37474" "i37475"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("i37158" "i37159"))
+ #("i37464" "i37465"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("i37148"
- "i37149"
- "i37150"
- "i37151"
- "i37152"))
+ #("i37454"
+ "i37455"
+ "i37456"
+ "i37457"
+ "i37458"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37134")))
+ #("i37440")))
(hygiene guile))
- (list #{binding 37196}#)
- #{body 37195}#))
- #{tmp 37193}#)
+ (list #{binding 37502}#)
+ #{body 37501}#))
+ #{tmp 37499}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37192}#))))))))
- (#{f 37188}# (map list #{x 37184}# #{v 37185}#))))
- #{tmp 37174}#)
+ #{tmp 37498}#))))))))
+ (#{f 37494}# (map list #{x 37490}# #{v 37491}#))))
+ #{tmp 37480}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37172}#))))))
+ #{x 37478}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 37254}#)
- (let ((#{tmp 37256}#
+ (lambda (#{orig-x 37560}#)
+ (let ((#{tmp 37562}#
($sc-dispatch
- #{orig-x 37254}#
+ #{orig-x 37560}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 37256}#
+ (if #{tmp 37562}#
(@apply
- (lambda (#{var 37260}#
- #{init 37261}#
- #{step 37262}#
- #{e0 37263}#
- #{e1 37264}#
- #{c 37265}#)
- (let ((#{tmp 37266}#
- (map (lambda (#{v 37269}# #{s 37270}#)
- (let ((#{tmp 37272}#
- ($sc-dispatch #{s 37270}# '())))
- (if #{tmp 37272}#
- (@apply (lambda () #{v 37269}#) #{tmp 37272}#)
- (let ((#{tmp 37275}#
- ($sc-dispatch #{s 37270}# '(any))))
- (if #{tmp 37275}#
+ (lambda (#{var 37566}#
+ #{init 37567}#
+ #{step 37568}#
+ #{e0 37569}#
+ #{e1 37570}#
+ #{c 37571}#)
+ (let ((#{tmp 37572}#
+ (map (lambda (#{v 37575}# #{s 37576}#)
+ (let ((#{tmp 37578}#
+ ($sc-dispatch #{s 37576}# '())))
+ (if #{tmp 37578}#
+ (@apply (lambda () #{v 37575}#) #{tmp 37578}#)
+ (let ((#{tmp 37581}#
+ ($sc-dispatch #{s 37576}# '(any))))
+ (if #{tmp 37581}#
(@apply
- (lambda (#{e 37278}#) #{e 37278}#)
- #{tmp 37275}#)
+ (lambda (#{e 37584}#) #{e 37584}#)
+ #{tmp 37581}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x 37254}#
- #{s 37270}#))))))
- #{var 37260}#
- #{step 37262}#)))
- (let ((#{tmp 37267}#
- ($sc-dispatch #{tmp 37266}# 'each-any)))
- (if #{tmp 37267}#
+ #{orig-x 37560}#
+ #{s 37576}#))))))
+ #{var 37566}#
+ #{step 37568}#)))
+ (let ((#{tmp 37573}#
+ ($sc-dispatch #{tmp 37572}# 'each-any)))
+ (if #{tmp 37573}#
(@apply
- (lambda (#{step 37284}#)
- (let ((#{tmp 37286}# ($sc-dispatch #{e1 37264}# '())))
- (if #{tmp 37286}#
+ (lambda (#{step 37590}#)
+ (let ((#{tmp 37592}# ($sc-dispatch #{e1 37570}# '())))
+ (if #{tmp 37592}#
(@apply
(lambda ()
(list '#(syntax-object
@@ -18355,7 +18338,7 @@
#(ribcage
#(step)
#((top))
- #("i37222"))
+ #("i37528"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18364,17 +18347,17 @@
(top)
(top)
(top))
- #("i37207"
- "i37208"
- "i37209"
- "i37210"
- "i37211"
- "i37212"))
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
+ "i37517"
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37204")))
+ #("i37510")))
(hygiene guile))
'#(syntax-object
doloop
@@ -18383,7 +18366,7 @@
#(ribcage
#(step)
#((top))
- #("i37222"))
+ #("i37528"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18392,19 +18375,19 @@
(top)
(top)
(top))
- #("i37207"
- "i37208"
- "i37209"
- "i37210"
- "i37211"
- "i37212"))
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
+ "i37517"
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37204")))
+ #("i37510")))
(hygiene guile))
- (map list #{var 37260}# #{init 37261}#)
+ (map list #{var 37566}# #{init 37567}#)
(list '#(syntax-object
if
((top)
@@ -18412,7 +18395,7 @@
#(ribcage
#(step)
#((top))
- #("i37222"))
+ #("i37528"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18421,17 +18404,17 @@
(top)
(top)
(top))
- #("i37207"
- "i37208"
- "i37209"
- "i37210"
- "i37211"
- "i37212"))
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
+ "i37517"
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37204")))
+ #("i37510")))
(hygiene guile))
(list '#(syntax-object
not
@@ -18440,7 +18423,7 @@
#(ribcage
#(step)
#((top))
- #("i37222"))
+ #("i37528"))
#(ribcage
#(var
init
@@ -18454,19 +18437,19 @@
(top)
(top)
(top))
- #("i37207"
- "i37208"
- "i37209"
- "i37210"
- "i37211"
- "i37212"))
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
+ "i37517"
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37204")))
+ #("i37510")))
(hygiene guile))
- #{e0 37263}#)
+ #{e0 37569}#)
(cons '#(syntax-object
begin
((top)
@@ -18474,7 +18457,7 @@
#(ribcage
#(step)
#((top))
- #("i37222"))
+ #("i37528"))
#(ribcage
#(var
init
@@ -18488,20 +18471,20 @@
(top)
(top)
(top))
- #("i37207"
- "i37208"
- "i37209"
- "i37210"
- "i37211"
- "i37212"))
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
+ "i37517"
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37204")))
+ #("i37510")))
(hygiene guile))
(append
- #{c 37265}#
+ #{c 37571}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -18512,7 +18495,7 @@
#(ribcage
#(step)
#((top))
-
#("i37222"))
+
#("i37528"))
#(ribcage
#(var
init
@@ -18526,12 +18509,12 @@
(top)
(top)
(top))
-
#("i37207"
-
"i37208"
-
"i37209"
-
"i37210"
-
"i37211"
-
"i37212"))
+
#("i37513"
+
"i37514"
+
"i37515"
+
"i37516"
+
"i37517"
+
"i37518"))
#(ribcage
()
()
@@ -18539,30 +18522,30 @@
#(ribcage
#(orig-x)
#((top))
-
#("i37204")))
+
#("i37510")))
(hygiene
guile))
- #{step
37284}#)))))))
- #{tmp 37286}#)
- (let ((#{tmp 37290}#
+ #{step
37590}#)))))))
+ #{tmp 37592}#)
+ (let ((#{tmp 37596}#
($sc-dispatch
- #{e1 37264}#
+ #{e1 37570}#
'(any . each-any))))
- (if #{tmp 37290}#
+ (if #{tmp 37596}#
(@apply
- (lambda (#{e1 37294}# #{e2 37295}#)
+ (lambda (#{e1 37600}# #{e2 37601}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37231" "i37232"))
+ #("i37537" "i37538"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37222"))
+ #("i37528"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18571,17 +18554,17 @@
(top)
(top)
(top))
- #("i37207"
- "i37208"
- "i37209"
- "i37210"
- "i37211"
- "i37212"))
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
+ "i37517"
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37204")))
+ #("i37510")))
(hygiene guile))
'#(syntax-object
doloop
@@ -18589,12 +18572,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37231" "i37232"))
+ #("i37537" "i37538"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37222"))
+ #("i37528"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18603,33 +18586,33 @@
(top)
(top)
(top))
- #("i37207"
- "i37208"
- "i37209"
- "i37210"
- "i37211"
- "i37212"))
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
+ "i37517"
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37204")))
+ #("i37510")))
(hygiene guile))
(map list
- #{var 37260}#
- #{init 37261}#)
+ #{var 37566}#
+ #{init 37567}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37231" "i37232"))
+ #("i37537" "i37538"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37222"))
+ #("i37528"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -18638,32 +18621,32 @@
(top)
(top)
(top))
- #("i37207"
- "i37208"
- "i37209"
- "i37210"
- "i37211"
- "i37212"))
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
+ "i37517"
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37204")))
+ #("i37510")))
(hygiene guile))
- #{e0 37263}#
+ #{e0 37569}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37231"
- "i37232"))
+ #("i37537"
+ "i37538"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37222"))
+ #("i37528"))
#(ribcage
#(var
init
@@ -18677,33 +18660,33 @@
(top)
(top)
(top))
- #("i37207"
- "i37208"
- "i37209"
- "i37210"
- "i37211"
- "i37212"))
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
+ "i37517"
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37204")))
+ #("i37510")))
(hygiene guile))
- (cons #{e1 37294}#
- #{e2 37295}#))
+ (cons #{e1 37600}#
+ #{e2 37601}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i37231"
- "i37232"))
+ #("i37537"
+ "i37538"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("i37222"))
+ #("i37528"))
#(ribcage
#(var
init
@@ -18717,20 +18700,20 @@
(top)
(top)
(top))
- #("i37207"
- "i37208"
- "i37209"
- "i37210"
- "i37211"
- "i37212"))
+ #("i37513"
+ "i37514"
+ "i37515"
+ "i37516"
+ "i37517"
+ "i37518"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("i37204")))
+ #("i37510")))
(hygiene guile))
(append
- #{c 37265}#
+ #{c 37571}#
(list (cons
'#(syntax-object
doloop
((top)
@@ -18739,8 +18722,8 @@
e2)
#((top)
(top))
-
#("i37231"
-
"i37232"))
+
#("i37537"
+
"i37538"))
#(ribcage
()
()
@@ -18748,7 +18731,7 @@
#(ribcage
#(step)
#((top))
-
#("i37222"))
+
#("i37528"))
#(ribcage
#(var
init
@@ -18762,12 +18745,12 @@
(top)
(top)
(top))
-
#("i37207"
-
"i37208"
-
"i37209"
-
"i37210"
-
"i37211"
-
"i37212"))
+
#("i37513"
+
"i37514"
+
"i37515"
+
"i37516"
+
"i37517"
+
"i37518"))
#(ribcage
()
()
@@ -18775,36 +18758,36 @@
#(ribcage
#(orig-x)
#((top))
-
#("i37204")))
+
#("i37510")))
(hygiene
guile))
- #{step
37284}#)))))))
- #{tmp 37290}#)
+ #{step
37590}#)))))))
+ #{tmp 37596}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{e1 37264}#))))))
- #{tmp 37267}#)
+ #{e1 37570}#))))))
+ #{tmp 37573}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37266}#)))))
- #{tmp 37256}#)
+ #{tmp 37572}#)))))
+ #{tmp 37562}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x 37254}#))))))
+ #{orig-x 37560}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 37581}#
- (lambda (#{p 37605}# #{lev 37606}#)
- (let ((#{tmp 37608}#
+ ((#{quasi 37887}#
+ (lambda (#{p 37911}# #{lev 37912}#)
+ (let ((#{tmp 37914}#
($sc-dispatch
- #{p 37605}#
+ #{p 37911}#
'(#(free-id
#(syntax-object
unquote
@@ -18813,7 +18796,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i37327" "i37328"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -18822,28 +18805,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
any))))
- (if #{tmp 37608}#
+ (if #{tmp 37914}#
(@apply
- (lambda (#{p 37612}#)
- (if (= #{lev 37606}# 0)
+ (lambda (#{p 37918}#)
+ (if (= #{lev 37912}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("i37331"))
+ #(ribcage #(p) #((top)) #("i37637"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37327" "i37328"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -18852,25 +18835,25 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{p 37612}#)
- (#{quasicons 37583}#
+ #{p 37918}#)
+ (#{quasicons 37889}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37331"))
+ #(ribcage #(p) #((top)) #("i37637"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37327" "i37328"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -18879,23 +18862,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i37331"))
+ #(ribcage #(p) #((top)) #("i37637"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37327" "i37328"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -18904,21 +18887,21 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
- (#{quasi 37581}#
- (list #{p 37612}#)
- (#{1-}# #{lev 37606}#)))))
- #{tmp 37608}#)
- (let ((#{tmp 37615}#
+ (#{quasi 37887}#
+ (list #{p 37918}#)
+ (#{1-}# #{lev 37912}#)))))
+ #{tmp 37914}#)
+ (let ((#{tmp 37921}#
($sc-dispatch
- #{p 37605}#
+ #{p 37911}#
'(#(free-id
#(syntax-object
quasiquote
@@ -18927,7 +18910,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i37327" "i37328"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -18936,28 +18919,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
any))))
- (if #{tmp 37615}#
+ (if #{tmp 37921}#
(@apply
- (lambda (#{p 37619}#)
- (#{quasicons 37583}#
+ (lambda (#{p 37925}#)
+ (#{quasicons 37889}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37334"))
+ #(ribcage #(p) #((top)) #("i37640"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37327" "i37328"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -18966,23 +18949,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("i37334"))
+ #(ribcage #(p) #((top)) #("i37640"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37327" "i37328"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -18991,26 +18974,26 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
- (#{quasi 37581}#
- (list #{p 37619}#)
- (#{1+}# #{lev 37606}#))))
- #{tmp 37615}#)
- (let ((#{tmp 37622}#
- ($sc-dispatch #{p 37605}# '(any . any))))
- (if #{tmp 37622}#
+ (#{quasi 37887}#
+ (list #{p 37925}#)
+ (#{1+}# #{lev 37912}#))))
+ #{tmp 37921}#)
+ (let ((#{tmp 37928}#
+ ($sc-dispatch #{p 37911}# '(any . any))))
+ (if #{tmp 37928}#
(@apply
- (lambda (#{p 37626}# #{q 37627}#)
- (let ((#{tmp 37629}#
+ (lambda (#{p 37932}# #{q 37933}#)
+ (let ((#{tmp 37935}#
($sc-dispatch
- #{p 37626}#
+ #{p 37932}#
'(#(free-id
#(syntax-object
unquote
@@ -19018,12 +19001,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37337" "i37338"))
+ #("i37643" "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37327" "i37328"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19038,38 +19021,38 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 37629}#
+ (if #{tmp 37935}#
(@apply
- (lambda (#{p 37633}#)
- (if (= #{lev 37606}# 0)
- (#{quasilist* 37585}#
- (map (lambda (#{tmp 37345 37672}#)
+ (lambda (#{p 37939}#)
+ (if (= #{lev 37912}# 0)
+ (#{quasilist* 37891}#
+ (map (lambda (#{tmp 37651 37978}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37343"))
+ #("i37649"))
#(ribcage
#(p q)
#((top) (top))
- #("i37337" "i37338"))
+ #("i37643" "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37327" "i37328"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19084,37 +19067,37 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{tmp 37345 37672}#))
- #{p 37633}#)
- (#{quasi 37581}#
- #{q 37627}#
- #{lev 37606}#))
- (#{quasicons 37583}#
- (#{quasicons 37583}#
+ #{tmp 37651 37978}#))
+ #{p 37939}#)
+ (#{quasi 37887}#
+ #{q 37933}#
+ #{lev 37912}#))
+ (#{quasicons 37889}#
+ (#{quasicons 37889}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i37343"))
+ #("i37649"))
#(ribcage
#(p q)
#((top) (top))
- #("i37337" "i37338"))
+ #("i37643" "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37327" "i37328"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19129,13 +19112,13 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
#(syntax-object
unquote
@@ -19143,16 +19126,16 @@
#(ribcage
#(p)
#((top))
- #("i37343"))
+ #("i37649"))
#(ribcage
#(p q)
#((top) (top))
- #("i37337" "i37338"))
+ #("i37643" "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37327" "i37328"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19167,24 +19150,24 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
- (#{quasi 37581}#
- #{p 37633}#
- (#{1-}# #{lev 37606}#)))
- (#{quasi 37581}#
- #{q 37627}#
- #{lev 37606}#))))
- #{tmp 37629}#)
- (let ((#{tmp 37677}#
+ (#{quasi 37887}#
+ #{p 37939}#
+ (#{1-}# #{lev 37912}#)))
+ (#{quasi 37887}#
+ #{q 37933}#
+ #{lev 37912}#))))
+ #{tmp 37935}#)
+ (let ((#{tmp 37983}#
($sc-dispatch
- #{p 37626}#
+ #{p 37932}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -19192,12 +19175,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37337" "i37338"))
+ #("i37643" "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37327" "i37328"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19212,40 +19195,40 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 37677}#
+ (if #{tmp 37983}#
(@apply
- (lambda (#{p 37681}#)
- (if (= #{lev 37606}# 0)
- (#{quasiappend 37584}#
- (map (lambda (#{tmp 37350 37684}#)
+ (lambda (#{p 37987}#)
+ (if (= #{lev 37912}# 0)
+ (#{quasiappend 37890}#
+ (map (lambda (#{tmp 37656 37990}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37348"))
+ #("i37654"))
#(ribcage
#(p q)
#((top) (top))
- #("i37337"
- "i37338"))
+ #("i37643"
+ "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37327"
- "i37328"))
+ #("i37633"
+ "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19260,37 +19243,37 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{tmp 37350 37684}#))
- #{p 37681}#)
- (#{quasi 37581}#
- #{q 37627}#
- #{lev 37606}#))
- (#{quasicons 37583}#
- (#{quasicons 37583}#
+ #{tmp 37656 37990}#))
+ #{p 37987}#)
+ (#{quasi 37887}#
+ #{q 37933}#
+ #{lev 37912}#))
+ (#{quasicons 37889}#
+ (#{quasicons 37889}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("i37348"))
+ #("i37654"))
#(ribcage
#(p q)
#((top) (top))
- #("i37337" "i37338"))
+ #("i37643" "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37327" "i37328"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19305,13 +19288,13 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -19319,16 +19302,16 @@
#(ribcage
#(p)
#((top))
- #("i37348"))
+ #("i37654"))
#(ribcage
#(p q)
#((top) (top))
- #("i37337" "i37338"))
+ #("i37643" "i37644"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37327" "i37328"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19343,57 +19326,57 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
- (#{quasi 37581}#
- #{p 37681}#
- (#{1-}# #{lev 37606}#)))
- (#{quasi 37581}#
- #{q 37627}#
- #{lev 37606}#))))
- #{tmp 37677}#)
- (#{quasicons 37583}#
- (#{quasi 37581}#
- #{p 37626}#
- #{lev 37606}#)
- (#{quasi 37581}#
- #{q 37627}#
- #{lev 37606}#)))))))
- #{tmp 37622}#)
- (let ((#{tmp 37698}#
- ($sc-dispatch #{p 37605}# '#(vector each-any))))
- (if #{tmp 37698}#
+ (#{quasi 37887}#
+ #{p 37987}#
+ (#{1-}# #{lev 37912}#)))
+ (#{quasi 37887}#
+ #{q 37933}#
+ #{lev 37912}#))))
+ #{tmp 37983}#)
+ (#{quasicons 37889}#
+ (#{quasi 37887}#
+ #{p 37932}#
+ #{lev 37912}#)
+ (#{quasi 37887}#
+ #{q 37933}#
+ #{lev 37912}#)))))))
+ #{tmp 37928}#)
+ (let ((#{tmp 38004}#
+ ($sc-dispatch #{p 37911}# '#(vector each-any))))
+ (if #{tmp 38004}#
(@apply
- (lambda (#{x 37702}#)
- (let ((#{x 37705}#
- (#{vquasi 37582}#
- #{x 37702}#
- #{lev 37606}#)))
- (let ((#{tmp 37707}#
+ (lambda (#{x 38008}#)
+ (let ((#{x 38011}#
+ (#{vquasi 37888}#
+ #{x 38008}#
+ #{lev 37912}#)))
+ (let ((#{tmp 38013}#
($sc-dispatch
- #{x 37705}#
+ #{x 38011}#
'(#(atom "quote") each-any))))
- (if #{tmp 37707}#
+ (if #{tmp 38013}#
(@apply
- (lambda (#{x 37711}#)
+ (lambda (#{x 38017}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("i37455"))
+ #("i37761"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37452"))
+ #("i37758"))
#(ribcage
(emit quasivector
quasilist*
@@ -19408,36 +19391,36 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- (list->vector #{x 37711}#)))
- #{tmp 37707}#)
+ (list->vector #{x 38017}#)))
+ #{tmp 38013}#)
(letrec*
- ((#{f 37713}#
- (lambda (#{y 37725}# #{k 37726}#)
- (let ((#{tmp 37728}#
+ ((#{f 38019}#
+ (lambda (#{y 38031}# #{k 38032}#)
+ (let ((#{tmp 38034}#
($sc-dispatch
- #{y 37725}#
+ #{y 38031}#
'(#(atom "quote")
each-any))))
- (if #{tmp 37728}#
+ (if #{tmp 38034}#
(@apply
- (lambda (#{y 37731}#)
- (#{k 37726}#
- (map (lambda (#{tmp
37480 37732}#)
+ (lambda (#{y 38037}#)
+ (#{k 38032}#
+ (map (lambda (#{tmp
37786 38038}#)
(list
'#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
-
#("i37478"))
+
#("i37784"))
#(ribcage
()
()
@@ -19449,13 +19432,13 @@
#((top)
(top)
(top))
-
#("i37460"
-
"i37461"
-
"i37462"))
+
#("i37766"
+
"i37767"
+
"i37768"))
#(ribcage
#(_)
#((top))
-
#("i37458"))
+
#("i37764"))
#(ribcage
()
()
@@ -19463,7 +19446,7 @@
#(ribcage
#(x)
#((top))
-
#("i37452"))
+
#("i37758"))
#(ribcage
(emit
quasivector
quasilist*
@@ -19478,51 +19461,51 @@
(top)
(top)
(top))
-
("i37323"
-
"i37321"
-
"i37319"
-
"i37317"
-
"i37315"
-
"i37313"
-
"i37311")))
+
("i37629"
+
"i37627"
+
"i37625"
+
"i37623"
+
"i37621"
+
"i37619"
+
"i37617")))
(hygiene
guile))
- #{tmp 37480
37732}#))
- #{y 37731}#)))
- #{tmp 37728}#)
- (let ((#{tmp 37733}#
+ #{tmp 37786
38038}#))
+ #{y 38037}#)))
+ #{tmp 38034}#)
+ (let ((#{tmp 38039}#
($sc-dispatch
- #{y 37725}#
+ #{y 38031}#
'(#(atom "list")
.
each-any))))
- (if #{tmp 37733}#
+ (if #{tmp 38039}#
(@apply
- (lambda (#{y 37736}#)
- (#{k 37726}#
- #{y 37736}#))
- #{tmp 37733}#)
- (let ((#{tmp 37737}#
+ (lambda (#{y 38042}#)
+ (#{k 38032}#
+ #{y 38042}#))
+ #{tmp 38039}#)
+ (let ((#{tmp 38043}#
($sc-dispatch
- #{y 37725}#
+ #{y 38031}#
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp 37737}#
+ (if #{tmp 38043}#
(@apply
- (lambda (#{y 37740}#
- #{z 37741}#)
- (#{f 37713}#
- #{z 37741}#
- (lambda (#{ls
37742}#)
- (#{k 37726}#
+ (lambda (#{y 38046}#
+ #{z 38047}#)
+ (#{f 38019}#
+ #{z 38047}#
+ (lambda (#{ls
38048}#)
+ (#{k 38032}#
(append
- #{y 37740}#
- #{ls
37742}#)))))
- #{tmp 37737}#)
+ #{y 38046}#
+ #{ls
38048}#)))))
+ #{tmp 38043}#)
(list '#(syntax-object
"list->vector"
((top)
@@ -19531,14 +19514,14 @@
()
())
#(ribcage
- #(#{
g37495}#)
- #((m37496
+ #(#{
g37801}#)
+ #((m37802
top))
-
#("i37499"))
+
#("i37805"))
#(ribcage
#(else)
#((top))
-
#("i37493"))
+
#("i37799"))
#(ribcage
()
()
@@ -19548,13 +19531,13 @@
#((top)
(top)
(top))
- #("i37460"
- "i37461"
-
"i37462"))
+ #("i37766"
+ "i37767"
+
"i37768"))
#(ribcage
#(_)
#((top))
-
#("i37458"))
+
#("i37764"))
#(ribcage
()
()
@@ -19562,7 +19545,7 @@
#(ribcage
#(x)
#((top))
-
#("i37452"))
+
#("i37758"))
#(ribcage
(emit
quasivector
quasilist*
@@ -19577,26 +19560,26 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
-
"i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+
"i37617")))
(hygiene
guile))
- #{x
37705}#))))))))))
- (#{f 37713}#
- #{x 37705}#
- (lambda (#{ls 37715}#)
- (let ((#{tmp 37717}#
+ #{x
38011}#))))))))))
+ (#{f 38019}#
+ #{x 38011}#
+ (lambda (#{ls 38021}#)
+ (let ((#{tmp 38023}#
($sc-dispatch
- #{ls 37715}#
+ #{ls 38021}#
'each-any)))
- (if #{tmp 37717}#
+ (if #{tmp 38023}#
(@apply
- (lambda (#{ g37468 37720}#)
+ (lambda (#{ g37774 38026}#)
(cons '#(syntax-object
"vector"
((top)
@@ -19605,9 +19588,9 @@
()
())
#(ribcage
- #(#{ g37468}#)
- #((m37469 top))
- #("i37473"))
+ #(#{ g37774}#)
+ #((m37775 top))
+ #("i37779"))
#(ribcage
()
()
@@ -19623,11 +19606,11 @@
#(ribcage
#(ls)
#((top))
- #("i37467"))
+ #("i37773"))
#(ribcage
#(_)
#((top))
- #("i37458"))
+ #("i37764"))
#(ribcage
()
()
@@ -19635,7 +19618,7 @@
#(ribcage
#(x)
#((top))
- #("i37452"))
+ #("i37758"))
#(ribcage
(emit
quasivector
quasilist*
@@ -19650,30 +19633,30 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{ g37468 37720}#))
- #{tmp 37717}#)
+ #{ g37774 38026}#))
+ #{tmp 38023}#)
(syntax-violation
#f
"source expression failed to
match any pattern"
- #{ls 37715}#))))))))))
- #{tmp 37698}#)
+ #{ls 38021}#))))))))))
+ #{tmp 38004}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37358"))
+ #(ribcage #(p) #((top)) #("i37664"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37327" "i37328"))
+ #("i37633" "i37634"))
#(ribcage
(emit quasivector
quasilist*
@@ -19688,25 +19671,25 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{p 37605}#)))))))))))
- (#{vquasi 37582}#
- (lambda (#{p 37770}# #{lev 37771}#)
- (let ((#{tmp 37773}#
- ($sc-dispatch #{p 37770}# '(any . any))))
- (if #{tmp 37773}#
+ #{p 37911}#)))))))))))
+ (#{vquasi 37888}#
+ (lambda (#{p 38076}# #{lev 38077}#)
+ (let ((#{tmp 38079}#
+ ($sc-dispatch #{p 38076}# '(any . any))))
+ (if #{tmp 38079}#
(@apply
- (lambda (#{p 37777}# #{q 37778}#)
- (let ((#{tmp 37780}#
+ (lambda (#{p 38083}# #{q 38084}#)
+ (let ((#{tmp 38086}#
($sc-dispatch
- #{p 37777}#
+ #{p 38083}#
'(#(free-id
#(syntax-object
unquote
@@ -19714,12 +19697,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37366" "i37367"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37362" "i37363"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -19734,38 +19717,38 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 37780}#
+ (if #{tmp 38086}#
(@apply
- (lambda (#{p 37784}#)
- (if (= #{lev 37771}# 0)
- (#{quasilist* 37585}#
- (map (lambda (#{tmp 37374 37823}#)
+ (lambda (#{p 38090}#)
+ (if (= #{lev 38077}# 0)
+ (#{quasilist* 37891}#
+ (map (lambda (#{tmp 37680 38129}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37372"))
+ #("i37678"))
#(ribcage
#(p q)
#((top) (top))
- #("i37366" "i37367"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37362" "i37363"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -19780,32 +19763,32 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{tmp 37374 37823}#))
- #{p 37784}#)
- (#{vquasi 37582}# #{q 37778}# #{lev 37771}#))
- (#{quasicons 37583}#
- (#{quasicons 37583}#
+ #{tmp 37680 38129}#))
+ #{p 38090}#)
+ (#{vquasi 37888}# #{q 38084}# #{lev 38077}#))
+ (#{quasicons 37889}#
+ (#{quasicons 37889}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37372"))
+ #(ribcage #(p) #((top)) #("i37678"))
#(ribcage
#(p q)
#((top) (top))
- #("i37366" "i37367"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37362" "i37363"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -19820,27 +19803,27 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("i37372"))
+ #(ribcage #(p) #((top)) #("i37678"))
#(ribcage
#(p q)
#((top) (top))
- #("i37366" "i37367"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37362" "i37363"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -19855,22 +19838,22 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
- (#{quasi 37581}#
- #{p 37784}#
- (#{1-}# #{lev 37771}#)))
- (#{vquasi 37582}# #{q 37778}# #{lev 37771}#))))
- #{tmp 37780}#)
- (let ((#{tmp 37830}#
+ (#{quasi 37887}#
+ #{p 38090}#
+ (#{1-}# #{lev 38077}#)))
+ (#{vquasi 37888}# #{q 38084}# #{lev 38077}#))))
+ #{tmp 38086}#)
+ (let ((#{tmp 38136}#
($sc-dispatch
- #{p 37777}#
+ #{p 38083}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -19878,12 +19861,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("i37366" "i37367"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37362" "i37363"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -19898,38 +19881,38 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 37830}#
+ (if #{tmp 38136}#
(@apply
- (lambda (#{p 37834}#)
- (if (= #{lev 37771}# 0)
- (#{quasiappend 37584}#
- (map (lambda (#{tmp 37379 37837}#)
+ (lambda (#{p 38140}#)
+ (if (= #{lev 38077}# 0)
+ (#{quasiappend 37890}#
+ (map (lambda (#{tmp 37685 38143}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("i37377"))
+ #("i37683"))
#(ribcage
#(p q)
#((top) (top))
- #("i37366" "i37367"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37362" "i37363"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -19944,34 +19927,34 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{tmp 37379 37837}#))
- #{p 37834}#)
- (#{vquasi 37582}#
- #{q 37778}#
- #{lev 37771}#))
- (#{quasicons 37583}#
- (#{quasicons 37583}#
+ #{tmp 37685 38143}#))
+ #{p 38140}#)
+ (#{vquasi 37888}#
+ #{q 38084}#
+ #{lev 38077}#))
+ (#{quasicons 37889}#
+ (#{quasicons 37889}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("i37377"))
+ #(ribcage #(p) #((top)) #("i37683"))
#(ribcage
#(p q)
#((top) (top))
- #("i37366" "i37367"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37362" "i37363"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -19986,27 +19969,27 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("i37377"))
+ #(ribcage #(p) #((top)) #("i37683"))
#(ribcage
#(p q)
#((top) (top))
- #("i37366" "i37367"))
+ #("i37672" "i37673"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i37362" "i37363"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -20021,27 +20004,27 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile)))
- (#{quasi 37581}#
- #{p 37834}#
- (#{1-}# #{lev 37771}#)))
- (#{vquasi 37582}#
- #{q 37778}#
- #{lev 37771}#))))
- #{tmp 37830}#)
- (#{quasicons 37583}#
- (#{quasi 37581}# #{p 37777}# #{lev 37771}#)
- (#{vquasi 37582}# #{q 37778}# #{lev 37771}#)))))))
- #{tmp 37773}#)
- (let ((#{tmp 37855}# ($sc-dispatch #{p 37770}# '())))
- (if #{tmp 37855}#
+ (#{quasi 37887}#
+ #{p 38140}#
+ (#{1-}# #{lev 38077}#)))
+ (#{vquasi 37888}#
+ #{q 38084}#
+ #{lev 38077}#))))
+ #{tmp 38136}#)
+ (#{quasicons 37889}#
+ (#{quasi 37887}# #{p 38083}# #{lev 38077}#)
+ (#{vquasi 37888}# #{q 38084}# #{lev 38077}#)))))))
+ #{tmp 38079}#)
+ (let ((#{tmp 38161}# ($sc-dispatch #{p 38076}# '())))
+ (if #{tmp 38161}#
(@apply
(lambda ()
'(#(syntax-object
@@ -20051,7 +20034,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i37362" "i37363"))
+ #("i37668" "i37669"))
#(ribcage
(emit quasivector
quasilist*
@@ -20060,64 +20043,64 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
()))
- #{tmp 37855}#)
+ #{tmp 38161}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{p 37770}#)))))))
- (#{quasicons 37583}#
- (lambda (#{x 37868}# #{y 37869}#)
- (let ((#{tmp 37870}# (list #{x 37868}# #{y 37869}#)))
- (let ((#{tmp 37871}#
- ($sc-dispatch #{tmp 37870}# '(any any))))
- (if #{tmp 37871}#
+ #{p 38076}#)))))))
+ (#{quasicons 37889}#
+ (lambda (#{x 38174}# #{y 38175}#)
+ (let ((#{tmp 38176}# (list #{x 38174}# #{y 38175}#)))
+ (let ((#{tmp 38177}#
+ ($sc-dispatch #{tmp 38176}# '(any any))))
+ (if #{tmp 38177}#
(@apply
- (lambda (#{x 37873}# #{y 37874}#)
- (let ((#{tmp 37876}#
+ (lambda (#{x 38179}# #{y 38180}#)
+ (let ((#{tmp 38182}#
($sc-dispatch
- #{y 37874}#
+ #{y 38180}#
'(#(atom "quote") any))))
- (if #{tmp 37876}#
+ (if #{tmp 38182}#
(@apply
- (lambda (#{dy 37880}#)
- (let ((#{tmp 37882}#
+ (lambda (#{dy 38186}#)
+ (let ((#{tmp 38188}#
($sc-dispatch
- #{x 37873}#
+ #{x 38179}#
'(#(atom "quote") any))))
- (if #{tmp 37882}#
+ (if #{tmp 38188}#
(@apply
- (lambda (#{dx 37886}#)
+ (lambda (#{dx 38192}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("i37401"))
+ #("i37707"))
#(ribcage
#(dy)
#((top))
- #("i37397"))
+ #("i37703"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37391" "i37392"))
+ #("i37697" "i37698"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37386" "i37387"))
+ #("i37692" "i37693"))
#(ribcage
(emit quasivector
quasilist*
@@ -20132,39 +20115,39 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- (cons #{dx 37886}# #{dy 37880}#)))
- #{tmp 37882}#)
- (if (null? #{dy 37880}#)
+ (cons #{dx 38192}# #{dy 38186}#)))
+ #{tmp 38188}#)
+ (if (null? #{dy 38186}#)
(list '#(syntax-object
"list"
((top)
#(ribcage
#(_)
#((top))
- #("i37403"))
+ #("i37709"))
#(ribcage
#(dy)
#((top))
- #("i37397"))
+ #("i37703"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37391" "i37392"))
+ #("i37697" "i37698"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37386" "i37387"))
+ #("i37692" "i37693"))
#(ribcage
(emit quasivector
quasilist*
@@ -20179,37 +20162,37 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{x 37873}#)
+ #{x 38179}#)
(list '#(syntax-object
"list*"
((top)
#(ribcage
#(_)
#((top))
- #("i37403"))
+ #("i37709"))
#(ribcage
#(dy)
#((top))
- #("i37397"))
+ #("i37703"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37391" "i37392"))
+ #("i37697" "i37698"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37386" "i37387"))
+ #("i37692" "i37693"))
#(ribcage
(emit quasivector
quasilist*
@@ -20224,42 +20207,42 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{x 37873}#
- #{y 37874}#)))))
- #{tmp 37876}#)
- (let ((#{tmp 37891}#
+ #{x 38179}#
+ #{y 38180}#)))))
+ #{tmp 38182}#)
+ (let ((#{tmp 38197}#
($sc-dispatch
- #{y 37874}#
+ #{y 38180}#
'(#(atom "list") . any))))
- (if #{tmp 37891}#
+ (if #{tmp 38197}#
(@apply
- (lambda (#{stuff 37895}#)
+ (lambda (#{stuff 38201}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("i37406"))
+ #("i37712"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37391" "i37392"))
+ #("i37697" "i37698"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37386" "i37387"))
+ #("i37692" "i37693"))
#(ribcage
(emit quasivector
quasilist*
@@ -20274,41 +20257,41 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- (cons #{x 37873}# #{stuff 37895}#)))
- #{tmp 37891}#)
- (let ((#{tmp 37896}#
+ (cons #{x 38179}# #{stuff 38201}#)))
+ #{tmp 38197}#)
+ (let ((#{tmp 38202}#
($sc-dispatch
- #{y 37874}#
+ #{y 38180}#
'(#(atom "list*") . any))))
- (if #{tmp 37896}#
+ (if #{tmp 38202}#
(@apply
- (lambda (#{stuff 37900}#)
+ (lambda (#{stuff 38206}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("i37409"))
+ #("i37715"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37391" "i37392"))
+ #("i37697" "i37698"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37386" "i37387"))
+ #("i37692" "i37693"))
#(ribcage
(emit quasivector
quasilist*
@@ -20323,31 +20306,31 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- (cons #{x 37873}# #{stuff 37900}#)))
- #{tmp 37896}#)
+ (cons #{x 38179}# #{stuff 38206}#)))
+ #{tmp 38202}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("i37411"))
+ #(ribcage #(_) #((top)) #("i37717"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37391" "i37392"))
+ #("i37697" "i37698"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37386" "i37387"))
+ #("i37692" "i37693"))
#(ribcage
(emit quasivector
quasilist*
@@ -20362,29 +20345,29 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{x 37873}#
- #{y 37874}#))))))))
- #{tmp 37871}#)
+ #{x 38179}#
+ #{y 38180}#))))))))
+ #{tmp 38177}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37870}#))))))
- (#{quasiappend 37584}#
- (lambda (#{x 37911}# #{y 37912}#)
- (let ((#{tmp 37914}#
- ($sc-dispatch #{y 37912}# '(#(atom "quote") ()))))
- (if #{tmp 37914}#
+ #{tmp 38176}#))))))
+ (#{quasiappend 37890}#
+ (lambda (#{x 38217}# #{y 38218}#)
+ (let ((#{tmp 38220}#
+ ($sc-dispatch #{y 38218}# '(#(atom "quote") ()))))
+ (if #{tmp 38220}#
(@apply
(lambda ()
- (if (null? #{x 37911}#)
+ (if (null? #{x 38217}#)
'(#(syntax-object
"quote"
((top)
@@ -20392,7 +20375,7 @@
#(ribcage
#(x y)
#((top) (top))
- #("i37415" "i37416"))
+ #("i37721" "i37722"))
#(ribcage
(emit quasivector
quasilist*
@@ -20401,32 +20384,32 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
())
- (if (null? (cdr #{x 37911}#))
- (car #{x 37911}#)
- (let ((#{tmp 37919}#
- ($sc-dispatch #{x 37911}# 'each-any)))
- (if #{tmp 37919}#
+ (if (null? (cdr #{x 38217}#))
+ (car #{x 38217}#)
+ (let ((#{tmp 38225}#
+ ($sc-dispatch #{x 38217}# 'each-any)))
+ (if #{tmp 38225}#
(@apply
- (lambda (#{p 37923}#)
+ (lambda (#{p 38229}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("i37427"))
+ #(ribcage #(p) #((top)) #("i37733"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37415" "i37416"))
+ #("i37721" "i37722"))
#(ribcage
(emit quasivector
quasilist*
@@ -20441,29 +20424,29 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{p 37923}#))
- #{tmp 37919}#)
+ #{p 38229}#))
+ #{tmp 38225}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37911}#))))))
- #{tmp 37914}#)
- (if (null? #{x 37911}#)
- #{y 37912}#
- (let ((#{tmp 37931}# (list #{x 37911}# #{y 37912}#)))
- (let ((#{tmp 37932}#
- ($sc-dispatch #{tmp 37931}# '(each-any any))))
- (if #{tmp 37932}#
+ #{x 38217}#))))))
+ #{tmp 38220}#)
+ (if (null? #{x 38217}#)
+ #{y 38218}#
+ (let ((#{tmp 38237}# (list #{x 38217}# #{y 38218}#)))
+ (let ((#{tmp 38238}#
+ ($sc-dispatch #{tmp 38237}# '(each-any any))))
+ (if #{tmp 38238}#
(@apply
- (lambda (#{p 37934}# #{y 37935}#)
+ (lambda (#{p 38240}# #{y 38241}#)
(cons '#(syntax-object
"append"
((top)
@@ -20471,13 +20454,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("i37438" "i37439"))
- #(ribcage #(_) #((top)) #("i37430"))
+ #("i37744" "i37745"))
+ #(ribcage #(_) #((top)) #("i37736"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i37415" "i37416"))
+ #("i37721" "i37722"))
#(ribcage
(emit quasivector
quasilist*
@@ -20492,44 +20475,44 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- (append #{p 37934}# (list #{y 37935}#))))
- #{tmp 37932}#)
+ (append #{p 38240}# (list #{y 38241}#))))
+ #{tmp 38238}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 37931}#)))))))))
- (#{quasilist* 37585}#
- (lambda (#{x 37939}# #{y 37940}#)
+ #{tmp 38237}#)))))))))
+ (#{quasilist* 37891}#
+ (lambda (#{x 38245}# #{y 38246}#)
(letrec*
- ((#{f 37941}#
- (lambda (#{x 38045}#)
- (if (null? #{x 38045}#)
- #{y 37940}#
- (#{quasicons 37583}#
- (car #{x 38045}#)
- (#{f 37941}# (cdr #{x 38045}#)))))))
- (#{f 37941}# #{x 37939}#))))
- (#{emit 37587}#
- (lambda (#{x 38048}#)
- (let ((#{tmp 38050}#
- ($sc-dispatch #{x 38048}# '(#(atom "quote") any))))
- (if #{tmp 38050}#
+ ((#{f 38247}#
+ (lambda (#{x 38351}#)
+ (if (null? #{x 38351}#)
+ #{y 38246}#
+ (#{quasicons 37889}#
+ (car #{x 38351}#)
+ (#{f 38247}# (cdr #{x 38351}#)))))))
+ (#{f 38247}# #{x 38245}#))))
+ (#{emit 37893}#
+ (lambda (#{x 38354}#)
+ (let ((#{tmp 38356}#
+ ($sc-dispatch #{x 38354}# '(#(atom "quote") any))))
+ (if #{tmp 38356}#
(@apply
- (lambda (#{x 38054}#)
+ (lambda (#{x 38360}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i37505"))
+ #(ribcage #(x) #((top)) #("i37811"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37502"))
+ #(ribcage #(x) #((top)) #("i37808"))
#(ribcage
(emit quasivector
quasilist*
@@ -20538,40 +20521,40 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{x 38054}#))
- #{tmp 38050}#)
- (let ((#{tmp 38055}#
+ #{x 38360}#))
+ #{tmp 38356}#)
+ (let ((#{tmp 38361}#
($sc-dispatch
- #{x 38048}#
+ #{x 38354}#
'(#(atom "list") . each-any))))
- (if #{tmp 38055}#
+ (if #{tmp 38361}#
(@apply
- (lambda (#{x 38059}#)
- (let ((#{tmp 38060}# (map #{emit 37587}# #{x 38059}#)))
- (let ((#{tmp 38061}#
- ($sc-dispatch #{tmp 38060}# 'each-any)))
- (if #{tmp 38061}#
+ (lambda (#{x 38365}#)
+ (let ((#{tmp 38366}# (map #{emit 37893}# #{x 38365}#)))
+ (let ((#{tmp 38367}#
+ ($sc-dispatch #{tmp 38366}# 'each-any)))
+ (if #{tmp 38367}#
(@apply
- (lambda (#{ g37510 38063}#)
+ (lambda (#{ g37816 38369}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37510}#)
- #((m37511 top))
- #("i37515"))
- #(ribcage #(x) #((top)) #("i37508"))
+ #(#{ g37816}#)
+ #((m37817 top))
+ #("i37821"))
+ #(ribcage #(x) #((top)) #("i37814"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i37502"))
+ #(ribcage #(x) #((top)) #("i37808"))
#(ribcage
(emit quasivector
quasilist*
@@ -20586,70 +20569,70 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{ g37510 38063}#))
- #{tmp 38061}#)
+ #{ g37816 38369}#))
+ #{tmp 38367}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38060}#)))))
- #{tmp 38055}#)
- (let ((#{tmp 38064}#
+ #{tmp 38366}#)))))
+ #{tmp 38361}#)
+ (let ((#{tmp 38370}#
($sc-dispatch
- #{x 38048}#
+ #{x 38354}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 38064}#
+ (if #{tmp 38370}#
(@apply
- (lambda (#{x 38068}# #{y 38069}#)
+ (lambda (#{x 38374}# #{y 38375}#)
(letrec*
- ((#{f 38070}#
- (lambda (#{x* 38073}#)
- (if (null? #{x* 38073}#)
- (#{emit 37587}# #{y 38069}#)
- (let ((#{tmp 38074}#
- (list (#{emit 37587}#
- (car #{x* 38073}#))
- (#{f 38070}#
- (cdr #{x* 38073}#)))))
- (let ((#{tmp 38075}#
+ ((#{f 38376}#
+ (lambda (#{x* 38379}#)
+ (if (null? #{x* 38379}#)
+ (#{emit 37893}# #{y 38375}#)
+ (let ((#{tmp 38380}#
+ (list (#{emit 37893}#
+ (car #{x* 38379}#))
+ (#{f 38376}#
+ (cdr #{x* 38379}#)))))
+ (let ((#{tmp 38381}#
($sc-dispatch
- #{tmp 38074}#
+ #{tmp 38380}#
'(any any))))
- (if #{tmp 38075}#
+ (if #{tmp 38381}#
(@apply
- (lambda (#{ g37530 38077}#
- #{ g37529 38078}#)
+ (lambda (#{ g37836 38383}#
+ #{ g37835 38384}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37530}#
- #{ g37529}#)
- #((m37531 top)
- (m37531 top))
- #("i37535" "i37536"))
+ #(#{ g37836}#
+ #{ g37835}#)
+ #((m37837 top)
+ (m37837 top))
+ #("i37841" "i37842"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("i37524" "i37525"))
+ #("i37830" "i37831"))
#(ribcage
#(x y)
#((top) (top))
- #("i37520" "i37521"))
+ #("i37826" "i37827"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37502"))
+ #("i37808"))
#(ribcage
(emit quasivector
quasilist*
@@ -20664,56 +20647,56 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{ g37530 38077}#
- #{ g37529 38078}#))
- #{tmp 38075}#)
+ #{ g37836 38383}#
+ #{ g37835 38384}#))
+ #{tmp 38381}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 38074}#))))))))
- (#{f 38070}# #{x 38068}#)))
- #{tmp 38064}#)
- (let ((#{tmp 38079}#
+ #{tmp 38380}#))))))))
+ (#{f 38376}# #{x 38374}#)))
+ #{tmp 38370}#)
+ (let ((#{tmp 38385}#
($sc-dispatch
- #{x 38048}#
+ #{x 38354}#
'(#(atom "append") . each-any))))
- (if #{tmp 38079}#
+ (if #{tmp 38385}#
(@apply
- (lambda (#{x 38083}#)
- (let ((#{tmp 38084}#
- (map #{emit 37587}# #{x 38083}#)))
- (let ((#{tmp 38085}#
+ (lambda (#{x 38389}#)
+ (let ((#{tmp 38390}#
+ (map #{emit 37893}# #{x 38389}#)))
+ (let ((#{tmp 38391}#
($sc-dispatch
- #{tmp 38084}#
+ #{tmp 38390}#
'each-any)))
- (if #{tmp 38085}#
+ (if #{tmp 38391}#
(@apply
- (lambda (#{ g37542 38087}#)
+ (lambda (#{ g37848 38393}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37542}#)
- #((m37543 top))
- #("i37547"))
+ #(#{ g37848}#)
+ #((m37849 top))
+ #("i37853"))
#(ribcage
#(x)
#((top))
- #("i37540"))
+ #("i37846"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37502"))
+ #("i37808"))
#(ribcage
(emit quasivector
quasilist*
@@ -20728,54 +20711,54 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{ g37542 38087}#))
- #{tmp 38085}#)
+ #{ g37848 38393}#))
+ #{tmp 38391}#)
(syntax-violation
#f
"source expression failed to match any
pattern"
- #{tmp 38084}#)))))
- #{tmp 38079}#)
- (let ((#{tmp 38088}#
+ #{tmp 38390}#)))))
+ #{tmp 38385}#)
+ (let ((#{tmp 38394}#
($sc-dispatch
- #{x 38048}#
+ #{x 38354}#
'(#(atom "vector") . each-any))))
- (if #{tmp 38088}#
+ (if #{tmp 38394}#
(@apply
- (lambda (#{x 38092}#)
- (let ((#{tmp 38093}#
- (map #{emit 37587}# #{x 38092}#)))
- (let ((#{tmp 38094}#
+ (lambda (#{x 38398}#)
+ (let ((#{tmp 38399}#
+ (map #{emit 37893}# #{x 38398}#)))
+ (let ((#{tmp 38400}#
($sc-dispatch
- #{tmp 38093}#
+ #{tmp 38399}#
'each-any)))
- (if #{tmp 38094}#
+ (if #{tmp 38400}#
(@apply
- (lambda (#{ g37554 38096}#)
+ (lambda (#{ g37860 38402}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37554}#)
- #((m37555 top))
- #("i37559"))
+ #(#{ g37860}#)
+ #((m37861 top))
+ #("i37865"))
#(ribcage
#(x)
#((top))
- #("i37552"))
+ #("i37858"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37502"))
+ #("i37808"))
#(ribcage
(emit quasivector
quasilist*
@@ -20790,47 +20773,47 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{ g37554 38096}#))
- #{tmp 38094}#)
+ #{ g37860 38402}#))
+ #{tmp 38400}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{tmp 38093}#)))))
- #{tmp 38088}#)
- (let ((#{tmp 38097}#
+ #{tmp 38399}#)))))
+ #{tmp 38394}#)
+ (let ((#{tmp 38403}#
($sc-dispatch
- #{x 38048}#
+ #{x 38354}#
'(#(atom "list->vector") any))))
- (if #{tmp 38097}#
+ (if #{tmp 38403}#
(@apply
- (lambda (#{x 38101}#)
- (let ((#{tmp 38102}#
- (#{emit 37587}# #{x 38101}#)))
+ (lambda (#{x 38407}#)
+ (let ((#{tmp 38408}#
+ (#{emit 37893}# #{x 38407}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g37566}#)
- #((m37567 top))
- #("i37570"))
+ #(#{ g37872}#)
+ #((m37873 top))
+ #("i37876"))
#(ribcage
#(x)
#((top))
- #("i37564"))
+ #("i37870"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i37502"))
+ #("i37808"))
#(ribcage
(emit quasivector
quasilist*
@@ -20845,188 +20828,188 @@
(top)
(top)
(top))
- ("i37323"
- "i37321"
- "i37319"
- "i37317"
- "i37315"
- "i37313"
- "i37311")))
+ ("i37629"
+ "i37627"
+ "i37625"
+ "i37623"
+ "i37621"
+ "i37619"
+ "i37617")))
(hygiene guile))
- #{tmp 38102}#)))
- #{tmp 38097}#)
- (let ((#{tmp 38105}#
+ #{tmp 38408}#)))
+ #{tmp 38403}#)
+ (let ((#{tmp 38411}#
($sc-dispatch
- #{x 38048}#
+ #{x 38354}#
'(#(atom "value") any))))
- (if #{tmp 38105}#
+ (if #{tmp 38411}#
(@apply
- (lambda (#{x 38109}#) #{x 38109}#)
- #{tmp 38105}#)
+ (lambda (#{x 38415}#) #{x 38415}#)
+ #{tmp 38411}#)
(syntax-violation
#f
"source expression failed to match
any pattern"
- #{x 38048}#))))))))))))))))))
- (lambda (#{x 37588}#)
- (let ((#{tmp 37590}#
- ($sc-dispatch #{x 37588}# '(_ any))))
- (if #{tmp 37590}#
+ #{x 38354}#))))))))))))))))))
+ (lambda (#{x 37894}#)
+ (let ((#{tmp 37896}#
+ ($sc-dispatch #{x 37894}# '(_ any))))
+ (if #{tmp 37896}#
(@apply
- (lambda (#{e 37594}#)
- (#{emit 37587}# (#{quasi 37581}# #{e 37594}# 0)))
- #{tmp 37590}#)
+ (lambda (#{e 37900}#)
+ (#{emit 37893}# (#{quasi 37887}# #{e 37900}# 0)))
+ #{tmp 37896}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 37588}#)))))))
+ #{x 37894}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 38164}#)
+ (lambda (#{x 38470}#)
(letrec*
- ((#{read-file 38165}#
- (lambda (#{fn 38281}# #{k 38282}#)
- (let ((#{p 38283}# (open-input-file #{fn 38281}#)))
+ ((#{read-file 38471}#
+ (lambda (#{fn 38587}# #{k 38588}#)
+ (let ((#{p 38589}# (open-input-file #{fn 38587}#)))
(letrec*
- ((#{f 38284}#
- (lambda (#{x 38341}# #{result 38342}#)
- (if (eof-object? #{x 38341}#)
+ ((#{f 38590}#
+ (lambda (#{x 38647}# #{result 38648}#)
+ (if (eof-object? #{x 38647}#)
(begin
- (close-input-port #{p 38283}#)
- (reverse #{result 38342}#))
- (#{f 38284}#
- (read #{p 38283}#)
- (cons (datum->syntax #{k 38282}# #{x 38341}#)
- #{result 38342}#))))))
- (#{f 38284}# (read #{p 38283}#) '()))))))
- (let ((#{tmp 38167}#
- ($sc-dispatch #{x 38164}# '(any any))))
- (if #{tmp 38167}#
+ (close-input-port #{p 38589}#)
+ (reverse #{result 38648}#))
+ (#{f 38590}#
+ (read #{p 38589}#)
+ (cons (datum->syntax #{k 38588}# #{x 38647}#)
+ #{result 38648}#))))))
+ (#{f 38590}# (read #{p 38589}#) '()))))))
+ (let ((#{tmp 38473}#
+ ($sc-dispatch #{x 38470}# '(any any))))
+ (if #{tmp 38473}#
(@apply
- (lambda (#{k 38171}# #{filename 38172}#)
- (let ((#{fn 38173}# (syntax->datum #{filename 38172}#)))
- (let ((#{tmp 38174}#
- (#{read-file 38165}#
- #{fn 38173}#
- #{filename 38172}#)))
- (let ((#{tmp 38175}#
- ($sc-dispatch #{tmp 38174}# 'each-any)))
- (if #{tmp 38175}#
+ (lambda (#{k 38477}# #{filename 38478}#)
+ (let ((#{fn 38479}# (syntax->datum #{filename 38478}#)))
+ (let ((#{tmp 38480}#
+ (#{read-file 38471}#
+ #{fn 38479}#
+ #{filename 38478}#)))
+ (let ((#{tmp 38481}#
+ ($sc-dispatch #{tmp 38480}# 'each-any)))
+ (if #{tmp 38481}#
(@apply
- (lambda (#{exp 38193}#)
+ (lambda (#{exp 38499}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("i38161"))
+ #(ribcage #(exp) #((top)) #("i38467"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i38156"))
+ #(ribcage #(fn) #((top)) #("i38462"))
#(ribcage
#(k filename)
#((top) (top))
- #("i38152" "i38153"))
- #(ribcage (read-file) ((top)) ("i38136"))
- #(ribcage #(x) #((top)) #("i38135")))
+ #("i38458" "i38459"))
+ #(ribcage (read-file) ((top)) ("i38442"))
+ #(ribcage #(x) #((top)) #("i38441")))
(hygiene guile))
- #{exp 38193}#))
- #{tmp 38175}#)
+ #{exp 38499}#))
+ #{tmp 38481}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 38174}#))))))
- #{tmp 38167}#)
+ #{tmp 38480}#))))))
+ #{tmp 38473}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38164}#)))))))
+ #{x 38470}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 38361}#)
- (let ((#{tmp 38363}#
- ($sc-dispatch #{x 38361}# '(any any))))
- (if #{tmp 38363}#
+ (lambda (#{x 38667}#)
+ (let ((#{tmp 38669}#
+ ($sc-dispatch #{x 38667}# '(any any))))
+ (if #{tmp 38669}#
(@apply
- (lambda (#{k 38367}# #{filename 38368}#)
- (let ((#{fn 38369}# (syntax->datum #{filename 38368}#)))
- (let ((#{tmp 38370}#
+ (lambda (#{k 38673}# #{filename 38674}#)
+ (let ((#{fn 38675}# (syntax->datum #{filename 38674}#)))
+ (let ((#{tmp 38676}#
(datum->syntax
- #{filename 38368}#
- (let ((#{t 38373}# (%search-load-path #{fn 38369}#)))
- (if #{t 38373}#
- #{t 38373}#
+ #{filename 38674}#
+ (let ((#{t 38679}# (%search-load-path #{fn 38675}#)))
+ (if #{t 38679}#
+ #{t 38679}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 38361}#
- #{filename 38368}#))))))
+ #{x 38667}#
+ #{filename 38674}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i38355"))
+ #(ribcage #(fn) #((top)) #("i38661"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("i38351"))
+ #(ribcage #(fn) #((top)) #("i38657"))
#(ribcage
#(k filename)
#((top) (top))
- #("i38347" "i38348"))
+ #("i38653" "i38654"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38344")))
+ #(ribcage #(x) #((top)) #("i38650")))
(hygiene guile))
- #{tmp 38370}#))))
- #{tmp 38363}#)
+ #{tmp 38676}#))))
+ #{tmp 38669}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38361}#))))))
+ #{x 38667}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 38382}#)
+ (lambda (#{x 38688}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 38382}#))))
+ #{x 38688}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 38385}#)
+ (lambda (#{x 38691}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 38385}#))))
+ #{x 38691}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 38441}#)
- (let ((#{tmp 38443}#
+ (lambda (#{x 38747}#)
+ (let ((#{tmp 38749}#
($sc-dispatch
- #{x 38441}#
+ #{x 38747}#
'(_ any any . each-any))))
- (if #{tmp 38443}#
+ (if #{tmp 38749}#
(@apply
- (lambda (#{e 38447}# #{m1 38448}# #{m2 38449}#)
- (let ((#{tmp 38450}#
+ (lambda (#{e 38753}# #{m1 38754}# #{m2 38755}#)
+ (let ((#{tmp 38756}#
(letrec*
- ((#{f 38511}#
- (lambda (#{clause 38514}# #{clauses 38515}#)
- (if (null? #{clauses 38515}#)
- (let ((#{tmp 38517}#
+ ((#{f 38817}#
+ (lambda (#{clause 38820}# #{clauses 38821}#)
+ (if (null? #{clauses 38821}#)
+ (let ((#{tmp 38823}#
($sc-dispatch
- #{clause 38514}#
+ #{clause 38820}#
'(#(free-id
#(syntax-object
else
@@ -21035,91 +21018,91 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38400"
- "i38401"
- "i38402"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38390"
- "i38391"
- "i38392"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38387")))
+ #("i38693")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 38517}#
+ (if #{tmp 38823}#
(@apply
- (lambda (#{e1 38521}# #{e2 38522}#)
+ (lambda (#{e1 38827}# #{e2 38828}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("i38409" "i38410"))
+ #("i38715" "i38716"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38400"
- "i38401"
- "i38402"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38390"
- "i38391"
- "i38392"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38387")))
+ #("i38693")))
(hygiene guile))
- (cons #{e1 38521}# #{e2 38522}#)))
- #{tmp 38517}#)
- (let ((#{tmp 38523}#
+ (cons #{e1 38827}# #{e2 38828}#)))
+ #{tmp 38823}#)
+ (let ((#{tmp 38829}#
($sc-dispatch
- #{clause 38514}#
+ #{clause 38820}#
'(each-any any . each-any))))
- (if #{tmp 38523}#
+ (if #{tmp 38829}#
(@apply
- (lambda (#{k 38527}#
- #{e1 38528}#
- #{e2 38529}#)
+ (lambda (#{k 38833}#
+ #{e1 38834}#
+ #{e2 38835}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38415"
- "i38416"
- "i38417"))
+ #("i38721"
+ "i38722"
+ "i38723"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38400"
- "i38401"
- "i38402"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38390"
- "i38391"
- "i38392"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38387")))
+ #("i38693")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -21129,9 +21112,9 @@
#((top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"))
+ #("i38721"
+ "i38722"
+ "i38723"))
#(ribcage () () ())
#(ribcage
#(f
@@ -21140,22 +21123,22 @@
#((top)
(top)
(top))
- #("i38400"
- "i38401"
- "i38402"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38390"
- "i38391"
- "i38392"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38387")))
+ #("i38693")))
(hygiene guile))
'#(syntax-object
t
@@ -21165,9 +21148,9 @@
#((top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"))
+ #("i38721"
+ "i38722"
+ "i38723"))
#(ribcage () () ())
#(ribcage
#(f
@@ -21176,22 +21159,22 @@
#((top)
(top)
(top))
- #("i38400"
- "i38401"
- "i38402"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38390"
- "i38391"
- "i38392"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38387")))
+ #("i38693")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -21201,9 +21184,9 @@
#((top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"))
+ #("i38721"
+ "i38722"
+ "i38723"))
#(ribcage
()
()
@@ -21215,17 +21198,17 @@
#((top)
(top)
(top))
- #("i38400"
- "i38401"
- "i38402"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38390"
- "i38391"
- "i38392"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage
()
()
@@ -21233,10 +21216,10 @@
#(ribcage
#(x)
#((top))
-
#("i38387")))
+
#("i38693")))
(hygiene
guile))
- #{k 38527}#))
+ #{k 38833}#))
(cons '#(syntax-object
begin
((top)
@@ -21245,9 +21228,9 @@
#((top)
(top)
(top))
- #("i38415"
- "i38416"
- "i38417"))
+ #("i38721"
+ "i38722"
+ "i38723"))
#(ribcage () () ())
#(ribcage
#(f
@@ -21256,76 +21239,76 @@
#((top)
(top)
(top))
- #("i38400"
- "i38401"
- "i38402"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38390"
- "i38391"
- "i38392"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38387")))
+ #("i38693")))
(hygiene guile))
- (cons #{e1 38528}#
- #{e2 38529}#))))
- #{tmp 38523}#)
+ (cons #{e1 38834}#
+ #{e2 38835}#))))
+ #{tmp 38829}#)
(syntax-violation
'case
"bad clause"
- #{x 38441}#
- #{clause 38514}#)))))
- (let ((#{tmp 38537}#
- (#{f 38511}#
- (car #{clauses 38515}#)
- (cdr #{clauses 38515}#))))
- (let ((#{tmp 38540}#
+ #{x 38747}#
+ #{clause 38820}#)))))
+ (let ((#{tmp 38843}#
+ (#{f 38817}#
+ (car #{clauses 38821}#)
+ (cdr #{clauses 38821}#))))
+ (let ((#{tmp 38846}#
($sc-dispatch
- #{clause 38514}#
+ #{clause 38820}#
'(each-any any . each-any))))
- (if #{tmp 38540}#
+ (if #{tmp 38846}#
(@apply
- (lambda (#{k 38544}#
- #{e1 38545}#
- #{e2 38546}#)
+ (lambda (#{k 38850}#
+ #{e1 38851}#
+ #{e2 38852}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38431"
- "i38432"
- "i38433"))
+ #("i38737"
+ "i38738"
+ "i38739"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38427"))
+ #("i38733"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38400"
- "i38401"
- "i38402"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38390"
- "i38391"
- "i38392"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38387")))
+ #("i38693")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -21333,32 +21316,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38431"
- "i38432"
- "i38433"))
+ #("i38737"
+ "i38738"
+ "i38739"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38427"))
+ #("i38733"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38400"
- "i38401"
- "i38402"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38390"
- "i38391"
- "i38392"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38387")))
+ #("i38693")))
(hygiene guile))
'#(syntax-object
t
@@ -21366,32 +21349,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38431"
- "i38432"
- "i38433"))
+ #("i38737"
+ "i38738"
+ "i38739"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38427"))
+ #("i38733"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38400"
- "i38401"
- "i38402"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38390"
- "i38391"
- "i38392"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38387")))
+ #("i38693")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -21401,9 +21384,9 @@
#((top)
(top)
(top))
- #("i38431"
- "i38432"
- "i38433"))
+ #("i38737"
+ "i38738"
+ "i38739"))
#(ribcage
()
()
@@ -21411,7 +21394,7 @@
#(ribcage
#(rest)
#((top))
- #("i38427"))
+ #("i38733"))
#(ribcage
()
()
@@ -21423,17 +21406,17 @@
#((top)
(top)
(top))
- #("i38400"
- "i38401"
- "i38402"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("i38390"
- "i38391"
- "i38392"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage
()
()
@@ -21441,232 +21424,232 @@
#(ribcage
#(x)
#((top))
- #("i38387")))
+ #("i38693")))
(hygiene guile))
- #{k 38544}#))
+ #{k 38850}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("i38431"
- "i38432"
- "i38433"))
+ #("i38737"
+ "i38738"
+ "i38739"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("i38427"))
+ #("i38733"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("i38400"
- "i38401"
- "i38402"))
+ #("i38706"
+ "i38707"
+ "i38708"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38390"
- "i38391"
- "i38392"))
+ #("i38696"
+ "i38697"
+ "i38698"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38387")))
+ #("i38693")))
(hygiene guile))
- (cons #{e1 38545}#
- #{e2 38546}#))
- #{tmp 38537}#))
- #{tmp 38540}#)
+ (cons #{e1 38851}#
+ #{e2 38852}#))
+ #{tmp 38843}#))
+ #{tmp 38846}#)
(syntax-violation
'case
"bad clause"
- #{x 38441}#
- #{clause 38514}#))))))))
- (#{f 38511}# #{m1 38448}# #{m2 38449}#))))
- (let ((#{body 38451}# #{tmp 38450}#))
+ #{x 38747}#
+ #{clause 38820}#))))))))
+ (#{f 38817}# #{m1 38754}# #{m2 38755}#))))
+ (let ((#{body 38757}# #{tmp 38756}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i38398"))
+ #(ribcage #(body) #((top)) #("i38704"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38390" "i38391" "i38392"))
+ #("i38696" "i38697" "i38698"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38387")))
+ #(ribcage #(x) #((top)) #("i38693")))
(hygiene guile))
(list (list '#(syntax-object
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("i38398"))
+ #(ribcage #(body) #((top)) #("i38704"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("i38390" "i38391" "i38392"))
+ #("i38696" "i38697" "i38698"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38387")))
+ #(ribcage #(x) #((top)) #("i38693")))
(hygiene guile))
- #{e 38447}#))
- #{body 38451}#))))
- #{tmp 38443}#)
+ #{e 38753}#))
+ #{body 38757}#))))
+ #{tmp 38749}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38441}#))))))
+ #{x 38747}#))))))
(define make-variable-transformer
- (lambda (#{proc 38564}#)
- (if (procedure? #{proc 38564}#)
+ (lambda (#{proc 38870}#)
+ (if (procedure? #{proc 38870}#)
(letrec*
- ((#{trans 38565}#
- (lambda (#{x 38571}#)
- (#{proc 38564}# #{x 38571}#))))
+ ((#{trans 38871}#
+ (lambda (#{x 38877}#)
+ (#{proc 38870}# #{x 38877}#))))
(begin
(set-procedure-property!
- #{trans 38565}#
+ #{trans 38871}#
'variable-transformer
#t)
- #{trans 38565}#))
+ #{trans 38871}#))
(error "variable transformer not a procedure"
- #{proc 38564}#))))
+ #{proc 38870}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 38603}#)
- (let ((#{tmp 38605}#
- ($sc-dispatch #{x 38603}# '(_ any))))
- (if #{tmp 38605}#
+ (lambda (#{x 38909}#)
+ (let ((#{tmp 38911}#
+ ($sc-dispatch #{x 38909}# '(_ any))))
+ (if #{tmp 38911}#
(@apply
- (lambda (#{e 38609}#)
+ (lambda (#{e 38915}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("i38578"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i38578"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("i38578"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("i38578"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("i38578"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i38578"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i38578"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("i38578"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i38578"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("i38578"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i38578"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
- #{e 38609}#))
+ #{e 38915}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("i38578"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("i38578"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("i38578"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("i38578"))
+ #(ribcage #(e) #((top)) #("i38884"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
- (cons #{e 38609}#
+ (cons #{e 38915}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("i38578"))
+ #("i38884"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38575")))
+ #("i38881")))
(hygiene guile))
#(syntax-object
...
@@ -21674,55 +21657,55 @@
#(ribcage
#(e)
#((top))
- #("i38578"))
+ #("i38884"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38575")))
+ #("i38881")))
(hygiene guile)))))))))
- #{tmp 38605}#)
- (let ((#{tmp 38610}#
+ #{tmp 38911}#)
+ (let ((#{tmp 38916}#
($sc-dispatch
- #{x 38603}#
+ #{x 38909}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 38610}#
+ (if (if #{tmp 38916}#
(@apply
- (lambda (#{id 38614}#
- #{exp1 38615}#
- #{var 38616}#
- #{val 38617}#
- #{exp2 38618}#)
- (if (identifier? #{id 38614}#)
- (identifier? #{var 38616}#)
+ (lambda (#{id 38920}#
+ #{exp1 38921}#
+ #{var 38922}#
+ #{val 38923}#
+ #{exp2 38924}#)
+ (if (identifier? #{id 38920}#)
+ (identifier? #{var 38922}#)
#f))
- #{tmp 38610}#)
+ #{tmp 38916}#)
#f)
(@apply
- (lambda (#{id 38619}#
- #{exp1 38620}#
- #{var 38621}#
- #{val 38622}#
- #{exp2 38623}#)
+ (lambda (#{id 38925}#
+ #{exp1 38926}#
+ #{var 38927}#
+ #{val 38928}#
+ #{exp2 38929}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38593" "i38594" "i38595" "i38596" "i38597"))
+ #("i38899" "i38900" "i38901" "i38902" "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -21730,13 +21713,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
'(#(syntax-object
x
@@ -21744,13 +21727,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -21758,13 +21741,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
.
#(syntax-object
@@ -21773,13 +21756,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -21787,13 +21770,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
'#(syntax-object
x
@@ -21801,13 +21784,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile))
'(#(syntax-object
set!
@@ -21815,13 +21798,13 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38575")))
+ #(ribcage #(x) #((top)) #("i38881")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -21833,19 +21816,19 @@
(top)
(top)
(top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38575")))
+ #("i38881")))
(hygiene guile))
- #{var 38621}#
- #{val 38622}#)
+ #{var 38927}#
+ #{val 38928}#)
(list '#(syntax-object
syntax
((top)
@@ -21856,19 +21839,19 @@
(top)
(top)
(top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38575")))
+ #("i38881")))
(hygiene guile))
- #{exp2 38623}#))
- (list (cons #{id 38619}#
+ #{exp2 38929}#))
+ (list (cons #{id 38925}#
'(#(syntax-object
x
((top)
@@ -21879,16 +21862,16 @@
(top)
(top)
(top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38575")))
+ #("i38881")))
(hygiene guile))
#(syntax-object
...
@@ -21900,16 +21883,16 @@
(top)
(top)
(top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38575")))
+ #("i38881")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -21921,18 +21904,18 @@
(top)
(top)
(top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38575")))
+ #("i38881")))
(hygiene guile))
- (cons #{exp1 38620}#
+ (cons #{exp1 38926}#
'(#(syntax-object
x
((top)
@@ -21947,16 +21930,16 @@
(top)
(top)
(top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38575")))
+ #("i38881")))
(hygiene guile))
#(syntax-object
...
@@ -21972,18 +21955,18 @@
(top)
(top)
(top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38575")))
+ #("i38881")))
(hygiene guile))))))
- (list #{id 38619}#
+ (list #{id 38925}#
(list '#(syntax-object
identifier?
((top)
@@ -21994,16 +21977,16 @@
(top)
(top)
(top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38575")))
+ #("i38881")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -22019,18 +22002,18 @@
(top)
(top)
(top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38575")))
+ #("i38881")))
(hygiene guile))
- #{id 38619}#))
+ #{id 38925}#))
(list '#(syntax-object
syntax
((top)
@@ -22041,68 +22024,68 @@
(top)
(top)
(top))
- #("i38593"
- "i38594"
- "i38595"
- "i38596"
- "i38597"))
+ #("i38899"
+ "i38900"
+ "i38901"
+ "i38902"
+ "i38903"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i38575")))
+ #("i38881")))
(hygiene guile))
- #{exp1 38620}#))))))
- #{tmp 38610}#)
+ #{exp1 38926}#))))))
+ #{tmp 38916}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38603}#))))))))
+ #{x 38909}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 38655}#)
- (let ((#{tmp 38657}#
+ (lambda (#{x 38961}#)
+ (let ((#{tmp 38963}#
($sc-dispatch
- #{x 38655}#
+ #{x 38961}#
'(_ (any . any) any . each-any))))
- (if #{tmp 38657}#
+ (if #{tmp 38963}#
(@apply
- (lambda (#{id 38661}#
- #{args 38662}#
- #{b0 38663}#
- #{b1 38664}#)
+ (lambda (#{id 38967}#
+ #{args 38968}#
+ #{b0 38969}#
+ #{b1 38970}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i38637" "i38638" "i38639" "i38640"))
+ #("i38943" "i38944" "i38945" "i38946"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38634")))
+ #(ribcage #(x) #((top)) #("i38940")))
(hygiene guile))
- #{id 38661}#
+ #{id 38967}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("i38637" "i38638" "i38639" "i38640"))
+ #("i38943" "i38944" "i38945" "i38946"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38634")))
+ #(ribcage #(x) #((top)) #("i38940")))
(hygiene guile))
- (cons #{args 38662}#
- (cons #{b0 38663}# #{b1 38664}#)))))
- #{tmp 38657}#)
- (let ((#{tmp 38665}#
- ($sc-dispatch #{x 38655}# '(_ any any))))
- (if (if #{tmp 38665}#
+ (cons #{args 38968}#
+ (cons #{b0 38969}# #{b1 38970}#)))))
+ #{tmp 38963}#)
+ (let ((#{tmp 38971}#
+ ($sc-dispatch #{x 38961}# '(_ any any))))
+ (if (if #{tmp 38971}#
(@apply
- (lambda (#{id 38669}# #{val 38670}#)
+ (lambda (#{id 38975}# #{val 38976}#)
(identifier?
'#(syntax-object
x
@@ -22110,29 +22093,29 @@
#(ribcage
#(id val)
#((top) (top))
- #("i38647" "i38648"))
+ #("i38953" "i38954"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38634")))
+ #(ribcage #(x) #((top)) #("i38940")))
(hygiene guile))))
- #{tmp 38665}#)
+ #{tmp 38971}#)
#f)
(@apply
- (lambda (#{id 38671}# #{val 38672}#)
+ (lambda (#{id 38977}# #{val 38978}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("i38651" "i38652"))
+ #("i38957" "i38958"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i38634")))
+ #(ribcage #(x) #((top)) #("i38940")))
(hygiene guile))
- #{id 38671}#
- #{val 38672}#))
- #{tmp 38665}#)
+ #{id 38977}#
+ #{val 38978}#))
+ #{tmp 38971}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 38655}#))))))))
+ #{x 38961}#))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 1717ba5..07bb0e4 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -916,137 +916,129 @@
;; in reversed order
exps)
(else
- (call-with-values
- (lambda ()
- (call-with-values
- (lambda ()
- (let ((e (car body)))
- (syntax-type e r w (or (source-annotation e) s) #f
mod #f)))
- (lambda (type value e w s mod)
+ (scan
+ (cdr body) r w s m esew mod
+ (call-with-values
+ (lambda ()
+ (let ((e (car body)))
+ (syntax-type e r w (or (source-annotation e) s) #f mod
#f)))
+ (lambda (type value e w s mod)
+ (case type
+ ((begin-form)
+ (syntax-case e ()
+ ((_) exps)
+ ((_ e1 e2 ...)
+ (scan #'(e1 e2 ...) r w s m esew mod exps))))
+ ((local-syntax-form)
+ (chi-local-syntax value e r w s mod
+ (lambda (body r w s mod)
+ (scan body r w s m esew mod exps))))
+ ((eval-when-form)
+ (syntax-case e ()
+ ((_ (x ...) e1 e2 ...)
+ (let ((when-list (chi-when-list e #'(x ...) w))
+ (body #'(e1 e2 ...)))
+ (cond
+ ((eq? m 'e)
+ (if (memq 'eval when-list)
+ (scan body r w s
+ (if (memq 'expand when-list) 'c&e 'e)
+ '(eval)
+ mod exps)
+ (begin
+ (if (memq 'expand when-list)
+ (top-level-eval-hook
+ (chi-top-sequence body r w s 'e '(eval)
mod)
+ mod))
+ exps)))
+ ((memq 'load when-list)
+ (if (or (memq 'compile when-list)
+ (memq 'expand when-list)
+ (and (eq? m 'c&e) (memq 'eval when-list)))
+ (scan body r w s 'c&e '(compile load) mod exps)
+ (if (memq m '(c c&e))
+ (scan body r w s 'c '(load) mod exps)
+ exps)))
+ ((or (memq 'compile when-list)
+ (memq 'expand when-list)
+ (and (eq? m 'c&e) (memq 'eval when-list)))
+ (top-level-eval-hook
+ (chi-top-sequence body r w s 'e '(eval) mod)
+ mod)
+ exps)
+ (else
+ exps))))))
+ ((define-syntax-form)
+ (let ((n (id-var-name value w)) (r (macros-only-env r)))
+ (case m
+ ((c)
+ (if (memq 'compile esew)
+ (let ((e (chi-install-global n (chi e r w mod))))
+ (top-level-eval-hook e mod)
+ (if (memq 'load esew)
+ (cons e exps)
+ exps))
+ (if (memq 'load esew)
+ (cons (chi-install-global n (chi e r w mod))
+ exps)
+ exps)))
+ ((c&e)
+ (let ((e (chi-install-global n (chi e r w mod))))
+ (top-level-eval-hook e mod)
+ (cons e exps)))
+ (else
+ (if (memq 'eval esew)
+ (top-level-eval-hook
+ (chi-install-global n (chi e r w mod))
+ mod))
+ exps))))
+ ((define-form)
+ (let* ((n (id-var-name value w))
+ ;; Lookup the name in the module of the define form.
+ (type (binding-type (lookup n r mod))))
(case type
- ((begin-form)
- (syntax-case e ()
- ((_) exps)
- ((_ e1 e2 ...)
- (scan #'(e1 e2 ...) r w s m esew mod exps))))
- ((local-syntax-form)
- (chi-local-syntax value e r w s mod
- (lambda (body r w s mod)
- (scan body r w s m esew mod
exps))))
- ((eval-when-form)
- (syntax-case e ()
- ((_ (x ...) e1 e2 ...)
- (let ((when-list (chi-when-list e #'(x ...) w))
- (body #'(e1 e2 ...)))
- (cond
- ((eq? m 'e)
- (if (memq 'eval when-list)
- (scan body r w s
- (if (memq 'expand when-list) 'c&e 'e)
- '(eval)
- mod exps)
- (begin
- (if (memq 'expand when-list)
- (top-level-eval-hook
- (chi-top-sequence body r w s 'e
'(eval) mod)
- mod))
- (values exps))))
- ((memq 'load when-list)
- (if (or (memq 'compile when-list)
- (memq 'expand when-list)
- (and (eq? m 'c&e) (memq 'eval
when-list)))
- (scan body r w s 'c&e '(compile load) mod
exps)
- (if (memq m '(c c&e))
- (scan body r w s 'c '(load) mod exps)
- (values exps))))
- ((or (memq 'compile when-list)
- (memq 'expand when-list)
- (and (eq? m 'c&e) (memq 'eval when-list)))
- (top-level-eval-hook
- (chi-top-sequence body r w s 'e '(eval) mod)
- mod)
- (values exps))
- (else
- (values exps)))))))
- ((define-syntax-form)
- (let ((n (id-var-name value w)) (r (macros-only-env
r)))
- (case m
- ((c)
- (if (memq 'compile esew)
- (let ((e (chi-install-global n (chi e r w
mod))))
- (top-level-eval-hook e mod)
- (if (memq 'load esew)
- (values (cons e exps))
- (values exps)))
- (if (memq 'load esew)
- (values (cons (chi-install-global n (chi
e r w mod))
- exps))
- (values exps))))
- ((c&e)
- (let ((e (chi-install-global n (chi e r w mod))))
- (top-level-eval-hook e mod)
- (values (cons e exps))))
- (else
- (if (memq 'eval esew)
- (top-level-eval-hook
- (chi-install-global n (chi e r w mod))
- mod))
- (values exps)))))
- ((define-form)
- (let* ((n (id-var-name value w))
- ;; Lookup the name in the module of the define
form.
- (type (binding-type (lookup n r mod))))
- (case type
- ((global core macro module-ref)
- ;; affect compile-time environment (once we have
booted)
- (if (and (memq m '(c c&e))
- (not (module-local-variable
(current-module) n))
- (current-module))
- (let ((old (module-variable (current-module)
n)))
- ;; use value of the same-named imported
variable, if
- ;; any
- (if (and (variable? old) (variable-bound?
old))
- (module-define! (current-module) n
(variable-ref old))
- (module-add! (current-module) n
(make-undefined-variable)))))
- (values
- (cons
- (if (eq? m 'c&e)
- (let ((x (build-global-definition s n (chi
e r w mod))))
- (top-level-eval-hook x mod)
- x)
- (lambda ()
- (build-global-definition s n (chi e r w
mod))))
- exps)))
- ((displaced-lexical)
- (syntax-violation #f "identifier out of context"
- e (wrap value w mod)))
- (else
- (syntax-violation #f "cannot define keyword at
top level"
- e (wrap value w mod))))))
+ ((global core macro module-ref)
+ ;; affect compile-time environment (once we have
booted)
+ (if (and (memq m '(c c&e))
+ (not (module-local-variable (current-module)
n))
+ (current-module))
+ (let ((old (module-variable (current-module) n)))
+ ;; use value of the same-named imported
variable, if
+ ;; any
+ (if (and (variable? old) (variable-bound? old))
+ (module-define! (current-module) n
(variable-ref old))
+ (module-add! (current-module) n
(make-undefined-variable)))))
+ (cons (if (eq? m 'c&e)
+ (let ((x (build-global-definition s n (chi
e r w mod))))
+ (top-level-eval-hook x mod)
+ x)
+ (lambda ()
+ (build-global-definition s n (chi e r w
mod))))
+ exps))
+ ((displaced-lexical)
+ (syntax-violation #f "identifier out of context"
+ e (wrap value w mod)))
(else
- (values (cons
- (if (eq? m 'c&e)
- (let ((x (chi-expr type value e r w s
mod)))
- (top-level-eval-hook x mod)
- x)
- (lambda ()
- (chi-expr type value e r w s mod)))
- exps)))))))
- (lambda (exps)
- (scan (cdr body) r w s m esew mod exps))))))
-
- (call-with-values (lambda ()
- (scan body r w s m esew mod '()))
- (lambda (exps)
- (if (null? exps)
- (build-void s)
- (build-sequence
- s
- (let lp ((in exps) (out '()))
- (if (null? in) out
- (let ((e (car in)))
- (lp (cdr in)
- (cons (if (procedure? e) (e) e) out)))))))))))
+ (syntax-violation #f "cannot define keyword at top
level"
+ e (wrap value w mod))))))
+ (else
+ (cons (if (eq? m 'c&e)
+ (let ((x (chi-expr type value e r w s mod)))
+ (top-level-eval-hook x mod)
+ x)
+ (lambda ()
+ (chi-expr type value e r w s mod)))
+ exps)))))))))
+ (let ((exps (scan body r w s m esew mod '())))
+ (if (null? exps)
+ (build-void s)
+ (build-sequence
+ s
+ (let lp ((in exps) (out '()))
+ (if (null? in) out
+ (let ((e (car in)))
+ (lp (cdr in)
+ (cons (if (procedure? e) (e) e) out))))))))))
(define chi-install-global
(lambda (name e)
diff --git a/module/language/tree-il/compile-glil.scm
b/module/language/tree-il/compile-glil.scm
index acb3e93..239309f 100644
--- a/module/language/tree-il/compile-glil.scm
+++ b/module/language/tree-il/compile-glil.scm
@@ -115,6 +115,9 @@
((class-of . 1) . class-of)
((@slot-ref . 2) . slot-ref)
((@slot-set! . 3) . slot-set)
+ ((string-length . 1) . string-length)
+ ((string-ref . 2) . string-ref)
+ ((vector-length . 1) . vector-length)
((vector-ref . 2) . vector-ref)
((vector-set! . 3) . vector-set)
((variable-ref . 1) . variable-ref)
diff --git a/module/language/tree-il/primitives.scm
b/module/language/tree-il/primitives.scm
index b291701..2f03ab7 100644
--- a/module/language/tree-il/primitives.scm
+++ b/module/language/tree-il/primitives.scm
@@ -60,7 +60,7 @@
caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr
cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr
- vector-ref vector-set!
+ vector-length vector-ref vector-set!
variable-ref variable-set!
variable-bound?
@@ -141,7 +141,7 @@
+ * - / 1- 1+ quotient remainder modulo
not
pair? null? list? symbol? vector? struct? string?
- string-length
+ string-length vector-length
;; These all should get expanded out by expand-primitives!.
caar cadr cdar cddr
caaar caadr cadar caddr cdaar cdadr cddar cdddr
@@ -474,36 +474,19 @@
'dynamic-wind
(case-lambda
((src pre thunk post)
- ;; Here we will make concessions to the fact that our inliner is
- ;; lame, and add a hack.
- (cond
- ((lambda? thunk)
- (let ((PRE (gensym " pre"))
- (POST (gensym " post")))
- (make-let
- src
- '(pre post)
- (list PRE POST)
- (list pre post)
- (make-dynwind
- src
- (make-lexical-ref #f 'pre PRE)
- (make-call #f thunk '())
- (make-lexical-ref #f 'post POST)))))
- (else
- (let ((PRE (gensym " pre"))
- (THUNK (gensym " thunk"))
- (POST (gensym " post")))
- (make-let
- src
- '(pre thunk post)
- (list PRE THUNK POST)
- (list pre thunk post)
- (make-dynwind
- src
- (make-lexical-ref #f 'pre PRE)
- (make-call #f (make-lexical-ref #f 'thunk THUNK) '())
- (make-lexical-ref #f 'post POST)))))))
+ (let ((PRE (gensym " pre"))
+ (THUNK (gensym " thunk"))
+ (POST (gensym " post")))
+ (make-let
+ src
+ '(pre thunk post)
+ (list PRE THUNK POST)
+ (list pre thunk post)
+ (make-dynwind
+ src
+ (make-lexical-ref #f 'pre PRE)
+ (make-call #f (make-lexical-ref #f 'thunk THUNK) '())
+ (make-lexical-ref #f 'post POST)))))
(else #f)))
(hashq-set! *primitive-expand-table*
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, master, updated. v2.1.0-85-g148dfc2,
Andy Wingo <=