diff --git a/libguile/_scm.h b/libguile/_scm.h index b5c818c79..c3aa8ff85 100644 --- a/libguile/_scm.h +++ b/libguile/_scm.h @@ -3,7 +3,7 @@ #ifndef SCM__SCM_H #define SCM__SCM_H -/* Copyright (C) 1995,1996,2000,2001, 2002, 2006, 2008, 2009 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,2000,2001, 2002, 2006, 2008, 2009, 2010 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -176,7 +176,7 @@ /* Major and minor versions must be single characters. */ #define SCM_OBJCODE_MAJOR_VERSION 0 -#define SCM_OBJCODE_MINOR_VERSION M +#define SCM_OBJCODE_MINOR_VERSION N #define SCM_OBJCODE_MAJOR_VERSION_STRING \ SCM_CPP_STRINGIFY(SCM_OBJCODE_MAJOR_VERSION) #define SCM_OBJCODE_MINOR_VERSION_STRING \ diff --git a/libguile/inline.h b/libguile/inline.h index 09a1b5a35..018e6c636 100644 --- a/libguile/inline.h +++ b/libguile/inline.h @@ -3,7 +3,7 @@ #ifndef SCM_INLINE_H #define SCM_INLINE_H -/* Copyright (C) 2001, 2002, 2003, 2004, 2006, 2008, 2009 Free Software Foundation, Inc. +/* Copyright (C) 2001, 2002, 2003, 2004, 2006, 2008, 2009, 2010 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -87,6 +87,9 @@ SCM_API SCM scm_double_cell (scm_t_bits car, scm_t_bits cbr, scm_t_bits ccr, scm_t_bits cdr); SCM_API SCM scm_immutable_double_cell (scm_t_bits car, scm_t_bits cbr, scm_t_bits ccr, scm_t_bits cdr); +SCM_API SCM scm_words (scm_t_bits car, scm_t_uint16 n_words); +/* no immutable words for now, would require initialization at the same time as + allocation */ SCM_API SCM scm_array_handle_ref (scm_t_array_handle *h, ssize_t pos); SCM_API void scm_array_handle_set (scm_t_array_handle *h, ssize_t pos, SCM val); @@ -237,6 +240,42 @@ scm_immutable_double_cell (scm_t_bits car, scm_t_bits cbr, return z; } +#ifndef SCM_INLINE_C_INCLUDING_INLINE_H +SCM_C_EXTERN_INLINE +#endif +SCM +scm_words (scm_t_bits car, scm_t_uint16 n_words) +{ + SCM z; + + z = SCM_PACK ((scm_t_bits) (GC_MALLOC (sizeof (scm_t_bits) * n_words))); + SCM_GC_SET_CELL_WORD (z, 0, car); + + /* FIXME: is the following concern even relevant with BDW-GC? */ + + /* When this function is inlined, it's possible that the last + SCM_GC_SET_CELL_WORD above will be adjacent to a following + initialization of z. E.g., it occurred in scm_make_real. GCC + from around version 3 (e.g., certainly 3.2) began taking + advantage of strict C aliasing rules which say that it's OK to + interchange the initialization above and the one below when the + pointer types appear to differ sufficiently. We don't want that, + of course. GCC allows this behaviour to be disabled with the + -fno-strict-aliasing option, but would also need to be supplied + by Guile users. Instead, the following statements prevent the + reordering. + */ +#ifdef __GNUC__ + __asm__ volatile ("" : : : "memory"); +#else + /* portable version, just in case any other compiler does the same + thing. */ + scm_remember_upto_here_1 (z); +#endif + + return z; +} + #ifndef SCM_INLINE_C_INCLUDING_INLINE_H SCM_C_EXTERN_INLINE #endif diff --git a/libguile/macros.c b/libguile/macros.c index bbf47674b..edb6538a3 100644 --- a/libguile/macros.c +++ b/libguile/macros.c @@ -22,205 +22,161 @@ # include #endif -#define SCM_BUILDING_DEPRECATED_CODE - #include "libguile/_scm.h" -#include "libguile/alist.h" /* for SCM_EXTEND_ENV (well...) */ -#include "libguile/eval.h" #include "libguile/ports.h" #include "libguile/print.h" -#include "libguile/root.h" #include "libguile/smob.h" -#include "libguile/deprecation.h" - #include "libguile/validate.h" -#include "libguile/programs.h" #include "libguile/macros.h" #include "libguile/private-options.h" -scm_t_bits scm_tc16_macro; + +static scm_t_bits scm_tc16_macro; + +#define SCM_MACROP(x) SCM_SMOB_PREDICATE (scm_tc16_macro, (x)) +#define SCM_MACRO_PRIMITIVE(m) ((scm_t_macro_primitive)SCM_SMOB_DATA (m)) +#define SCM_MACRO_NAME(m) (SCM_SMOB_OBJECT_2 (m)) +#define SCM_MACRO_TYPE(m) (SCM_SMOB_OBJECT_3 (m)) +#define SCM_MACRO_BINDING(m) (SCM_CELL_OBJECT ((m), 4)) +#define SCM_VALIDATE_MACRO(p,v) SCM_MAKE_VALIDATE ((p), (v), MACROP) + + +SCM_API scm_t_bits scm_tc16_macro; static int macro_print (SCM macro, SCM port, scm_print_state *pstate) { - SCM code = SCM_MACRO_CODE (macro); - - scm_puts ("#<", port); - - if (SCM_MACRO_TYPE (macro) < 4 && SCM_MACRO_IS_EXTENDED (macro)) - scm_puts ("extended-", port); - - /* FIXME: doesn't catch boot closures; but do we care? */ - if (!SCM_PROGRAM_P (code)) - scm_puts ("primitive-", port); - - if (SCM_MACRO_TYPE (macro) == 3) - scm_puts ("builtin-macro!", port); - if (SCM_MACRO_TYPE (macro) == 4) - scm_puts ("syncase-macro", port); - - scm_putc (' ', port); + if (scm_is_false (SCM_MACRO_TYPE (macro))) + scm_puts ("#', port); return 1; } -static SCM -makmac (SCM code, scm_t_bits flags) -{ - SCM z; - SCM_NEWSMOB (z, scm_tc16_macro, SCM_UNPACK (code)); - SCM_SET_SMOB_FLAGS (z, flags); - return z; -} - /* Return a mmacro that is known to be one of guile's built in macros. */ SCM -scm_i_makbimacro (const char *name, SCM (*fn)(SCM, SCM)) +scm_i_make_primitive_macro (const char *name, scm_t_macro_primitive fn) { - return makmac (scm_c_make_gsubr (name, 2, 0, 0, fn), 3); -} - - -SCM_DEFINE (scm_make_syncase_macro, "make-syncase-macro", 2, 0, 0, - (SCM type, SCM binding), - "Return a @dfn{macro} that requires expansion by syntax-case.\n" - "While users should not call this function, it is useful to know\n" - "that syntax-case macros are represented as Guile primitive macros.") -#define FUNC_NAME s_scm_make_syncase_macro -{ - SCM z; - SCM_VALIDATE_SYMBOL (1, type); - - SCM_NEWSMOB3 (z, scm_tc16_macro, SCM_UNPACK (binding), SCM_UNPACK (type), - SCM_UNPACK (binding)); - SCM_SET_SMOB_FLAGS (z, 4 | SCM_F_MACRO_EXTENDED); + SCM z = scm_words (scm_tc16_macro, 5); + SCM_SET_SMOB_DATA_N (z, 1, (scm_t_bits)fn); + SCM_SET_SMOB_DATA_N (z, 2, scm_from_locale_symbol (name)); + SCM_SET_SMOB_DATA_N (z, 3, SCM_BOOL_F); + SCM_SET_SMOB_DATA_N (z, 4, SCM_BOOL_F); return z; } -#undef FUNC_NAME -SCM_DEFINE (scm_make_extended_syncase_macro, "make-extended-syncase-macro", 3, 0, 0, - (SCM m, SCM type, SCM binding), - "Extend a core macro @var{m} with a syntax-case binding.") -#define FUNC_NAME s_scm_make_extended_syncase_macro +scm_t_macro_primitive +scm_i_macro_primitive (SCM macro) +{ + return SCM_MACRO_PRIMITIVE (macro); +} + + +SCM_DEFINE (scm_make_syntax_transformer, "make-syntax-transformer", 3, 0, 0, + (SCM name, SCM type, SCM binding), + "Construct a @dfn{syntax transformer}.\n\n" + "This function is part of Guile's low-level support for the psyntax\n" + "syntax expander. Users should not call this function.") +#define FUNC_NAME s_scm_make_syntax_transformer { SCM z; - SCM_VALIDATE_SMOB (1, m, macro); + SCM (*prim)(SCM,SCM) = NULL; + + if (scm_is_true (name)) + { + SCM existing_var; + + SCM_VALIDATE_SYMBOL (1, name); + existing_var = scm_sym2var (name, scm_current_module_lookup_closure (), + SCM_BOOL_F); + if (scm_is_true (existing_var) + && scm_is_true (scm_variable_bound_p (existing_var)) + && SCM_MACROP (SCM_VARIABLE_REF (existing_var))) + prim = SCM_MACRO_PRIMITIVE (SCM_VARIABLE_REF (existing_var)); + } + SCM_VALIDATE_SYMBOL (2, type); - SCM_NEWSMOB3 (z, scm_tc16_macro, SCM_SMOB_DATA (m), SCM_UNPACK (type), - SCM_UNPACK (binding)); - SCM_SET_SMOB_FLAGS (z, SCM_SMOB_FLAGS (m) | SCM_F_MACRO_EXTENDED); + z = scm_words (scm_tc16_macro, 5); + SCM_SET_SMOB_DATA_N (z, 1, prim); + SCM_SET_SMOB_DATA_N (z, 2, name); + SCM_SET_SMOB_DATA_N (z, 3, type); + SCM_SET_SMOB_DATA_N (z, 4, binding); return z; } #undef FUNC_NAME - - SCM_DEFINE (scm_macro_p, "macro?", 1, 0, 0, (SCM obj), - "Return @code{#t} if @var{obj} is a regular macro, a memoizing macro, a\n" - "syntax transformer, or a syntax-case macro.") + "Return @code{#t} if @var{obj} is a syntax transformer (an object that " + "transforms Scheme expressions at expansion-time).\n\n" + "Macros are actually just one kind of syntax transformer; this\n" + "procedure has its name due to historical reasons.") #define FUNC_NAME s_scm_macro_p { - return scm_from_bool (SCM_SMOB_PREDICATE (scm_tc16_macro, obj)); + return scm_from_bool (SCM_MACROP (obj)); } #undef FUNC_NAME - -SCM_SYMBOL (scm_sym_bimacro, "builtin-macro!"); -SCM_SYMBOL (scm_sym_syncase_macro, "syncase-macro"); - SCM_DEFINE (scm_macro_type, "macro-type", 1, 0, 0, (SCM m), - "Return one of the symbols @code{syntax}, @code{macro},\n" - "@code{macro!}, or @code{syntax-case}, depending on whether\n" - "@var{m} is a syntax transformer, a regular macro, a memoizing\n" - "macro, or a syntax-case macro, respectively. If @var{m} is\n" - "not a macro, @code{#f} is returned.") + "Return the type of the syntax transformer @var{m}, as passed to\n" + "@code{make-syntax-transformer}. If @var{m} is a primitive syntax\n" + "transformer, @code{#f} will be returned.") #define FUNC_NAME s_scm_macro_type { - if (!SCM_SMOB_PREDICATE (scm_tc16_macro, m)) - return SCM_BOOL_F; - switch (SCM_MACRO_TYPE (m)) - { - case 3: return scm_sym_bimacro; - case 4: return scm_sym_syncase_macro; - default: scm_wrong_type_arg (FUNC_NAME, 1, m); - } + SCM_VALIDATE_MACRO (1, m); + return SCM_MACRO_TYPE (m); } #undef FUNC_NAME - SCM_DEFINE (scm_macro_name, "macro-name", 1, 0, 0, (SCM m), - "Return the name of the macro @var{m}.") + "Return the name of the syntax transformer @var{m}.") #define FUNC_NAME s_scm_macro_name { - SCM_VALIDATE_SMOB (1, m, macro); - if (scm_is_true (scm_procedure_p (SCM_SMOB_OBJECT (m)))) - return scm_procedure_name (SCM_SMOB_OBJECT (m)); - return SCM_BOOL_F; + SCM_VALIDATE_MACRO (1, m); + return SCM_MACRO_NAME (m); } #undef FUNC_NAME - SCM_DEFINE (scm_macro_transformer, "macro-transformer", 1, 0, 0, (SCM m), - "Return the transformer of the macro @var{m}.") + "Return the transformer procedure of the macro @var{m}.\n\n" + "If @var{m} is a syntax transformer but not a macro, @code{#f}\n" + "will be returned. (This can happen, for example, with primitive\n" + "syntax transformers).") #define FUNC_NAME s_scm_macro_transformer { - SCM data; - - SCM_VALIDATE_SMOB (1, m, macro); - data = SCM_PACK (SCM_SMOB_DATA (m)); - - if (scm_is_true (scm_procedure_p (data))) - return data; + SCM_VALIDATE_MACRO (1, m); + /* here we rely on knowledge of how psyntax represents macro bindings, but + hey, there is code out there that calls this function, and expects to get + a procedure in return... */ + if (scm_is_pair (SCM_MACRO_BINDING (m)) + && scm_is_true (scm_procedure_p (scm_car (SCM_MACRO_BINDING (m))))) + return scm_car (SCM_MACRO_BINDING (m)); else return SCM_BOOL_F; } #undef FUNC_NAME -SCM_DEFINE (scm_syncase_macro_type, "syncase-macro-type", 1, 0, 0, +SCM_DEFINE (scm_macro_binding, "macro-binding", 1, 0, 0, (SCM m), - "Return the type of the macro @var{m}.") -#define FUNC_NAME s_scm_syncase_macro_type + "Return the binding of the syntax transformer @var{m}, as passed to\n" + "@code{make-syntax-transformer}. If @var{m} is a primitive syntax\n" + "transformer, @code{#f} will be returned.") +#define FUNC_NAME s_scm_macro_transformer { - SCM_VALIDATE_SMOB (1, m, macro); - - if (SCM_MACRO_IS_EXTENDED (m)) - return SCM_SMOB_OBJECT_2 (m); - else - return SCM_BOOL_F; + SCM_VALIDATE_MACRO (1, m); + return SCM_MACRO_BINDING (m); } #undef FUNC_NAME -SCM_DEFINE (scm_syncase_macro_binding, "syncase-macro-binding", 1, 0, 0, - (SCM m), - "Return the binding of the macro @var{m}.") -#define FUNC_NAME s_scm_syncase_macro_binding -{ - SCM_VALIDATE_SMOB (1, m, macro); - - if (SCM_MACRO_IS_EXTENDED (m)) - return SCM_SMOB_OBJECT_3 (m); - else - return SCM_BOOL_F; -} -#undef FUNC_NAME void scm_init_macros () diff --git a/libguile/macros.h b/libguile/macros.h index 38ec2d7d3..de2496e1e 100644 --- a/libguile/macros.h +++ b/libguile/macros.h @@ -27,32 +27,20 @@ -#define SCM_ASSYNT(_cond, _msg, _subr) \ - if (!(_cond)) scm_misc_error (_subr, _msg, SCM_EOL); +typedef SCM (*scm_t_macro_primitive) (SCM, SCM); -#define SCM_MACRO_TYPE_BITS (3) -#define SCM_MACRO_TYPE_MASK ((1<memoizing-macro (lambda (expr env) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index ec229ce3a..27552523b 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,610 +1,618 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(letrec ((#{and-map*\ 60}# - (lambda (#{f\ 122}# #{first\ 123}# . #{rest\ 124}#) - (let ((#{t\ 130}# (null? #{first\ 123}#))) - (if #{t\ 130}# - #{t\ 130}# - (if (null? #{rest\ 124}#) - (letrec ((#{andmap\ 134}# - (lambda (#{first\ 135}#) - (let ((#{x\ 138}# (car #{first\ 135}#)) - (#{first\ 139}# (cdr #{first\ 135}#))) - (if (null? #{first\ 139}#) - (#{f\ 122}# #{x\ 138}#) - (if (#{f\ 122}# #{x\ 138}#) - (#{andmap\ 134}# #{first\ 139}#) +(letrec ((#{and-map*\ 9214}# + (lambda (#{f\ 9276}# #{first\ 9277}# . #{rest\ 9278}#) + (let ((#{t\ 9284}# (null? #{first\ 9277}#))) + (if #{t\ 9284}# + #{t\ 9284}# + (if (null? #{rest\ 9278}#) + (letrec ((#{andmap\ 9288}# + (lambda (#{first\ 9289}#) + (let ((#{x\ 9292}# (car #{first\ 9289}#)) + (#{first\ 9293}# (cdr #{first\ 9289}#))) + (if (null? #{first\ 9293}#) + (#{f\ 9276}# #{x\ 9292}#) + (if (#{f\ 9276}# #{x\ 9292}#) + (#{andmap\ 9288}# #{first\ 9293}#) #f)))))) - (#{andmap\ 134}# #{first\ 123}#)) - (letrec ((#{andmap\ 145}# - (lambda (#{first\ 146}# #{rest\ 147}#) - (let ((#{x\ 152}# (car #{first\ 146}#)) - (#{xr\ 153}# (map car #{rest\ 147}#)) - (#{first\ 154}# (cdr #{first\ 146}#)) - (#{rest\ 155}# (map cdr #{rest\ 147}#))) - (if (null? #{first\ 154}#) - (apply #{f\ 122}# - (cons #{x\ 152}# #{xr\ 153}#)) - (if (apply #{f\ 122}# - (cons #{x\ 152}# #{xr\ 153}#)) - (#{andmap\ 145}# - #{first\ 154}# - #{rest\ 155}#) + (#{andmap\ 9288}# #{first\ 9277}#)) + (letrec ((#{andmap\ 9299}# + (lambda (#{first\ 9300}# #{rest\ 9301}#) + (let ((#{x\ 9306}# (car #{first\ 9300}#)) + (#{xr\ 9307}# (map car #{rest\ 9301}#)) + (#{first\ 9308}# (cdr #{first\ 9300}#)) + (#{rest\ 9309}# + (map cdr #{rest\ 9301}#))) + (if (null? #{first\ 9308}#) + (apply #{f\ 9276}# + (cons #{x\ 9306}# #{xr\ 9307}#)) + (if (apply #{f\ 9276}# + (cons #{x\ 9306}# #{xr\ 9307}#)) + (#{andmap\ 9299}# + #{first\ 9308}# + #{rest\ 9309}#) #f)))))) - (#{andmap\ 145}# #{first\ 123}# #{rest\ 124}#)))))))) - (letrec ((#{lambda-var-list\ 375}# - (lambda (#{vars\ 590}#) - (letrec ((#{lvl\ 596}# - (lambda (#{vars\ 597}# #{ls\ 598}# #{w\ 599}#) - (if (pair? #{vars\ 597}#) - (#{lvl\ 596}# - (cdr #{vars\ 597}#) - (cons (#{wrap\ 329}# - (car #{vars\ 597}#) - #{w\ 599}# + (#{andmap\ 9299}# #{first\ 9277}# #{rest\ 9278}#)))))))) + (letrec ((#{lambda-var-list\ 9529}# + (lambda (#{vars\ 9744}#) + (letrec ((#{lvl\ 9750}# + (lambda (#{vars\ 9751}# #{ls\ 9752}# #{w\ 9753}#) + (if (pair? #{vars\ 9751}#) + (#{lvl\ 9750}# + (cdr #{vars\ 9751}#) + (cons (#{wrap\ 9483}# + (car #{vars\ 9751}#) + #{w\ 9753}# #f) - #{ls\ 598}#) - #{w\ 599}#) - (if (#{id?\ 260}# #{vars\ 597}#) - (cons (#{wrap\ 329}# - #{vars\ 597}# - #{w\ 599}# + #{ls\ 9752}#) + #{w\ 9753}#) + (if (#{id?\ 9414}# #{vars\ 9751}#) + (cons (#{wrap\ 9483}# + #{vars\ 9751}# + #{w\ 9753}# #f) - #{ls\ 598}#) - (if (null? #{vars\ 597}#) - #{ls\ 598}# - (if (#{syntax-object?\ 224}# #{vars\ 597}#) - (#{lvl\ 596}# - (#{syntax-object-expression\ 226}# - #{vars\ 597}#) - #{ls\ 598}# - (#{join-wraps\ 311}# - #{w\ 599}# - (#{syntax-object-wrap\ 228}# - #{vars\ 597}#))) - (cons #{vars\ 597}# #{ls\ 598}#)))))))) - (#{lvl\ 596}# - #{vars\ 590}# + #{ls\ 9752}#) + (if (null? #{vars\ 9751}#) + #{ls\ 9752}# + (if (#{syntax-object?\ 9378}# #{vars\ 9751}#) + (#{lvl\ 9750}# + (#{syntax-object-expression\ 9380}# + #{vars\ 9751}#) + #{ls\ 9752}# + (#{join-wraps\ 9465}# + #{w\ 9753}# + (#{syntax-object-wrap\ 9382}# + #{vars\ 9751}#))) + (cons #{vars\ 9751}# #{ls\ 9752}#)))))))) + (#{lvl\ 9750}# + #{vars\ 9744}# '() '(()))))) - (#{gen-var\ 373}# - (lambda (#{id\ 610}#) - (let ((#{id\ 613}# - (if (#{syntax-object?\ 224}# #{id\ 610}#) - (#{syntax-object-expression\ 226}# #{id\ 610}#) - #{id\ 610}#))) + (#{gen-var\ 9527}# + (lambda (#{id\ 9764}#) + (let ((#{id\ 9767}# + (if (#{syntax-object?\ 9378}# #{id\ 9764}#) + (#{syntax-object-expression\ 9380}# #{id\ 9764}#) + #{id\ 9764}#))) (gensym - (string-append (symbol->string #{id\ 613}#) " "))))) - (#{strip\ 371}# - (lambda (#{x\ 615}# #{w\ 616}#) + (string-append (symbol->string #{id\ 9767}#) " "))))) + (#{strip\ 9525}# + (lambda (#{x\ 9769}# #{w\ 9770}#) (if (memq 'top - (#{wrap-marks\ 267}# #{w\ 616}#)) - #{x\ 615}# - (letrec ((#{f\ 622}# (lambda (#{x\ 623}#) - (if (#{syntax-object?\ 224}# - #{x\ 623}#) - (#{strip\ 371}# - (#{syntax-object-expression\ 226}# - #{x\ 623}#) - (#{syntax-object-wrap\ 228}# - #{x\ 623}#)) - (if (pair? #{x\ 623}#) - (let ((#{a\ 630}# (#{f\ 622}# (car #{x\ 623}#))) - (#{d\ 631}# (#{f\ 622}# (cdr #{x\ 623}#)))) - (if (if (eq? #{a\ 630}# - (car #{x\ 623}#)) - (eq? #{d\ 631}# - (cdr #{x\ 623}#)) - #f) - #{x\ 623}# - (cons #{a\ 630}# #{d\ 631}#))) - (if (vector? #{x\ 623}#) - (let ((#{old\ 637}# - (vector->list - #{x\ 623}#))) - (let ((#{new\ 639}# - (map #{f\ 622}# - #{old\ 637}#))) - (if (#{and-map*\ 60}# - eq? - #{old\ 637}# - #{new\ 639}#) - #{x\ 623}# - (list->vector - #{new\ 639}#)))) - #{x\ 623}#)))))) - (#{f\ 622}# #{x\ 615}#))))) - (#{chi-lambda-case\ 369}# - (lambda (#{e\ 641}# - #{r\ 642}# - #{w\ 643}# - #{s\ 644}# - #{mod\ 645}# - #{get-formals\ 646}# - #{clauses\ 647}#) - (letrec ((#{expand-body\ 662}# - (lambda (#{req\ 663}# - #{opt\ 664}# - #{rest\ 665}# - #{kw\ 666}# - #{body\ 667}# - #{vars\ 668}# - #{r*\ 669}# - #{w*\ 670}# - #{inits\ 671}#) - ((lambda (#{tmp\ 681}#) - ((lambda (#{tmp\ 682}#) - (if (if #{tmp\ 682}# - (apply (lambda (#{docstring\ 686}# - #{e1\ 687}# - #{e2\ 688}#) + (#{wrap-marks\ 9421}# #{w\ 9770}#)) + #{x\ 9769}# + (letrec ((#{f\ 9776}# + (lambda (#{x\ 9777}#) + (if (#{syntax-object?\ 9378}# #{x\ 9777}#) + (#{strip\ 9525}# + (#{syntax-object-expression\ 9380}# + #{x\ 9777}#) + (#{syntax-object-wrap\ 9382}# #{x\ 9777}#)) + (if (pair? #{x\ 9777}#) + (let ((#{a\ 9784}# + (#{f\ 9776}# (car #{x\ 9777}#))) + (#{d\ 9785}# + (#{f\ 9776}# (cdr #{x\ 9777}#)))) + (if (if (eq? #{a\ 9784}# (car #{x\ 9777}#)) + (eq? #{d\ 9785}# (cdr #{x\ 9777}#)) + #f) + #{x\ 9777}# + (cons #{a\ 9784}# #{d\ 9785}#))) + (if (vector? #{x\ 9777}#) + (let ((#{old\ 9791}# + (vector->list #{x\ 9777}#))) + (let ((#{new\ 9793}# + (map #{f\ 9776}# #{old\ 9791}#))) + (if (#{and-map*\ 9214}# + eq? + #{old\ 9791}# + #{new\ 9793}#) + #{x\ 9777}# + (list->vector #{new\ 9793}#)))) + #{x\ 9777}#)))))) + (#{f\ 9776}# #{x\ 9769}#))))) + (#{chi-lambda-case\ 9523}# + (lambda (#{e\ 9795}# + #{r\ 9796}# + #{w\ 9797}# + #{s\ 9798}# + #{mod\ 9799}# + #{get-formals\ 9800}# + #{clauses\ 9801}#) + (letrec ((#{expand-body\ 9816}# + (lambda (#{req\ 9817}# + #{opt\ 9818}# + #{rest\ 9819}# + #{kw\ 9820}# + #{body\ 9821}# + #{vars\ 9822}# + #{r*\ 9823}# + #{w*\ 9824}# + #{inits\ 9825}#) + ((lambda (#{tmp\ 9835}#) + ((lambda (#{tmp\ 9836}#) + (if (if #{tmp\ 9836}# + (apply (lambda (#{docstring\ 9840}# + #{e1\ 9841}# + #{e2\ 9842}#) (string? (syntax->datum - #{docstring\ 686}#))) - #{tmp\ 682}#) + #{docstring\ 9840}#))) + #{tmp\ 9836}#) #f) - (apply (lambda (#{docstring\ 692}# - #{e1\ 693}# - #{e2\ 694}#) + (apply (lambda (#{docstring\ 9846}# + #{e1\ 9847}# + #{e2\ 9848}#) (values (syntax->datum - #{docstring\ 692}#) - #{req\ 663}# - #{opt\ 664}# - #{rest\ 665}# - #{kw\ 666}# - #{inits\ 671}# - #{vars\ 668}# - (#{chi-body\ 353}# - (cons #{e1\ 693}# #{e2\ 694}#) - (#{source-wrap\ 331}# - #{e\ 641}# - #{w\ 643}# - #{s\ 644}# - #{mod\ 645}#) - #{r*\ 669}# - #{w*\ 670}# - #{mod\ 645}#))) - #{tmp\ 682}#) - ((lambda (#{tmp\ 696}#) - (if #{tmp\ 696}# - (apply (lambda (#{e1\ 699}# - #{e2\ 700}#) + #{docstring\ 9846}#) + #{req\ 9817}# + #{opt\ 9818}# + #{rest\ 9819}# + #{kw\ 9820}# + #{inits\ 9825}# + #{vars\ 9822}# + (#{chi-body\ 9507}# + (cons #{e1\ 9847}# + #{e2\ 9848}#) + (#{source-wrap\ 9485}# + #{e\ 9795}# + #{w\ 9797}# + #{s\ 9798}# + #{mod\ 9799}#) + #{r*\ 9823}# + #{w*\ 9824}# + #{mod\ 9799}#))) + #{tmp\ 9836}#) + ((lambda (#{tmp\ 9850}#) + (if #{tmp\ 9850}# + (apply (lambda (#{e1\ 9853}# + #{e2\ 9854}#) (values #f - #{req\ 663}# - #{opt\ 664}# - #{rest\ 665}# - #{kw\ 666}# - #{inits\ 671}# - #{vars\ 668}# - (#{chi-body\ 353}# - (cons #{e1\ 699}# - #{e2\ 700}#) - (#{source-wrap\ 331}# - #{e\ 641}# - #{w\ 643}# - #{s\ 644}# - #{mod\ 645}#) - #{r*\ 669}# - #{w*\ 670}# - #{mod\ 645}#))) - #{tmp\ 696}#) + #{req\ 9817}# + #{opt\ 9818}# + #{rest\ 9819}# + #{kw\ 9820}# + #{inits\ 9825}# + #{vars\ 9822}# + (#{chi-body\ 9507}# + (cons #{e1\ 9853}# + #{e2\ 9854}#) + (#{source-wrap\ 9485}# + #{e\ 9795}# + #{w\ 9797}# + #{s\ 9798}# + #{mod\ 9799}#) + #{r*\ 9823}# + #{w*\ 9824}# + #{mod\ 9799}#))) + #{tmp\ 9850}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 681}#))) + #{tmp\ 9835}#))) ($sc-dispatch - #{tmp\ 681}# + #{tmp\ 9835}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 681}# + #{tmp\ 9835}# '(any any . each-any)))) - #{body\ 667}#))) - (#{expand-kw\ 660}# - (lambda (#{req\ 702}# - #{opt\ 703}# - #{rest\ 704}# - #{kw\ 705}# - #{body\ 706}# - #{vars\ 707}# - #{r*\ 708}# - #{w*\ 709}# - #{aok\ 710}# - #{out\ 711}# - #{inits\ 712}#) - (if (pair? #{kw\ 705}#) - ((lambda (#{tmp\ 726}#) - ((lambda (#{tmp\ 727}#) - (if #{tmp\ 727}# - (apply (lambda (#{k\ 731}# - #{id\ 732}# - #{i\ 733}#) - (let ((#{v\ 736}# (#{gen-var\ 373}# - #{id\ 732}#))) - (let ((#{l\ 738}# (#{gen-labels\ 278}# - (list #{v\ 736}#)))) - (let ((#{r**\ 740}# - (#{extend-var-env\ 250}# - #{l\ 738}# - (list #{v\ 736}#) - #{r*\ 708}#))) - (let ((#{w**\ 742}# - (#{make-binding-wrap\ 307}# - (list #{id\ 732}#) - #{l\ 738}# - #{w*\ 709}#))) - (#{expand-kw\ 660}# - #{req\ 702}# - #{opt\ 703}# - #{rest\ 704}# - (cdr #{kw\ 705}#) - #{body\ 706}# - (cons #{v\ 736}# - #{vars\ 707}#) - #{r**\ 740}# - #{w**\ 742}# - #{aok\ 710}# + #{body\ 9821}#))) + (#{expand-kw\ 9814}# + (lambda (#{req\ 9856}# + #{opt\ 9857}# + #{rest\ 9858}# + #{kw\ 9859}# + #{body\ 9860}# + #{vars\ 9861}# + #{r*\ 9862}# + #{w*\ 9863}# + #{aok\ 9864}# + #{out\ 9865}# + #{inits\ 9866}#) + (if (pair? #{kw\ 9859}#) + ((lambda (#{tmp\ 9880}#) + ((lambda (#{tmp\ 9881}#) + (if #{tmp\ 9881}# + (apply (lambda (#{k\ 9885}# + #{id\ 9886}# + #{i\ 9887}#) + (let ((#{v\ 9890}# + (#{gen-var\ 9527}# + #{id\ 9886}#))) + (let ((#{l\ 9892}# + (#{gen-labels\ 9432}# + (list #{v\ 9890}#)))) + (let ((#{r**\ 9894}# + (#{extend-var-env\ 9404}# + #{l\ 9892}# + (list #{v\ 9890}#) + #{r*\ 9862}#))) + (let ((#{w**\ 9896}# + (#{make-binding-wrap\ 9461}# + (list #{id\ 9886}#) + #{l\ 9892}# + #{w*\ 9863}#))) + (#{expand-kw\ 9814}# + #{req\ 9856}# + #{opt\ 9857}# + #{rest\ 9858}# + (cdr #{kw\ 9859}#) + #{body\ 9860}# + (cons #{v\ 9890}# + #{vars\ 9861}#) + #{r**\ 9894}# + #{w**\ 9896}# + #{aok\ 9864}# (cons (list (syntax->datum - #{k\ 731}#) + #{k\ 9885}#) (syntax->datum - #{id\ 732}#) - #{v\ 736}#) - #{out\ 711}#) - (cons (#{chi\ 345}# - #{i\ 733}# - #{r*\ 708}# - #{w*\ 709}# - #{mod\ 645}#) - #{inits\ 712}#))))))) - #{tmp\ 727}#) + #{id\ 9886}#) + #{v\ 9890}#) + #{out\ 9865}#) + (cons (#{chi\ 9499}# + #{i\ 9887}# + #{r*\ 9862}# + #{w*\ 9863}# + #{mod\ 9799}#) + #{inits\ 9866}#))))))) + #{tmp\ 9881}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 726}#))) + #{tmp\ 9880}#))) ($sc-dispatch - #{tmp\ 726}# + #{tmp\ 9880}# '(any any any)))) - (car #{kw\ 705}#)) - (#{expand-body\ 662}# - #{req\ 702}# - #{opt\ 703}# - #{rest\ 704}# - (if (let ((#{t\ 746}# #{aok\ 710}#)) - (if #{t\ 746}# - #{t\ 746}# - (pair? #{out\ 711}#))) - (cons #{aok\ 710}# (reverse #{out\ 711}#)) + (car #{kw\ 9859}#)) + (#{expand-body\ 9816}# + #{req\ 9856}# + #{opt\ 9857}# + #{rest\ 9858}# + (if (let ((#{t\ 9900}# #{aok\ 9864}#)) + (if #{t\ 9900}# + #{t\ 9900}# + (pair? #{out\ 9865}#))) + (cons #{aok\ 9864}# (reverse #{out\ 9865}#)) #f) - #{body\ 706}# - (reverse #{vars\ 707}#) - #{r*\ 708}# - #{w*\ 709}# - (reverse #{inits\ 712}#))))) - (#{expand-opt\ 658}# - (lambda (#{req\ 748}# - #{opt\ 749}# - #{rest\ 750}# - #{kw\ 751}# - #{body\ 752}# - #{vars\ 753}# - #{r*\ 754}# - #{w*\ 755}# - #{out\ 756}# - #{inits\ 757}#) - (if (pair? #{opt\ 749}#) - ((lambda (#{tmp\ 770}#) - ((lambda (#{tmp\ 771}#) - (if #{tmp\ 771}# - (apply (lambda (#{id\ 774}# #{i\ 775}#) - (let ((#{v\ 778}# (#{gen-var\ 373}# - #{id\ 774}#))) - (let ((#{l\ 780}# (#{gen-labels\ 278}# - (list #{v\ 778}#)))) - (let ((#{r**\ 782}# - (#{extend-var-env\ 250}# - #{l\ 780}# - (list #{v\ 778}#) - #{r*\ 754}#))) - (let ((#{w**\ 784}# - (#{make-binding-wrap\ 307}# - (list #{id\ 774}#) - #{l\ 780}# - #{w*\ 755}#))) - (#{expand-opt\ 658}# - #{req\ 748}# - (cdr #{opt\ 749}#) - #{rest\ 750}# - #{kw\ 751}# - #{body\ 752}# - (cons #{v\ 778}# - #{vars\ 753}#) - #{r**\ 782}# - #{w**\ 784}# + #{body\ 9860}# + (reverse #{vars\ 9861}#) + #{r*\ 9862}# + #{w*\ 9863}# + (reverse #{inits\ 9866}#))))) + (#{expand-opt\ 9812}# + (lambda (#{req\ 9902}# + #{opt\ 9903}# + #{rest\ 9904}# + #{kw\ 9905}# + #{body\ 9906}# + #{vars\ 9907}# + #{r*\ 9908}# + #{w*\ 9909}# + #{out\ 9910}# + #{inits\ 9911}#) + (if (pair? #{opt\ 9903}#) + ((lambda (#{tmp\ 9924}#) + ((lambda (#{tmp\ 9925}#) + (if #{tmp\ 9925}# + (apply (lambda (#{id\ 9928}# #{i\ 9929}#) + (let ((#{v\ 9932}# + (#{gen-var\ 9527}# + #{id\ 9928}#))) + (let ((#{l\ 9934}# + (#{gen-labels\ 9432}# + (list #{v\ 9932}#)))) + (let ((#{r**\ 9936}# + (#{extend-var-env\ 9404}# + #{l\ 9934}# + (list #{v\ 9932}#) + #{r*\ 9908}#))) + (let ((#{w**\ 9938}# + (#{make-binding-wrap\ 9461}# + (list #{id\ 9928}#) + #{l\ 9934}# + #{w*\ 9909}#))) + (#{expand-opt\ 9812}# + #{req\ 9902}# + (cdr #{opt\ 9903}#) + #{rest\ 9904}# + #{kw\ 9905}# + #{body\ 9906}# + (cons #{v\ 9932}# + #{vars\ 9907}#) + #{r**\ 9936}# + #{w**\ 9938}# (cons (syntax->datum - #{id\ 774}#) - #{out\ 756}#) - (cons (#{chi\ 345}# - #{i\ 775}# - #{r*\ 754}# - #{w*\ 755}# - #{mod\ 645}#) - #{inits\ 757}#))))))) - #{tmp\ 771}#) + #{id\ 9928}#) + #{out\ 9910}#) + (cons (#{chi\ 9499}# + #{i\ 9929}# + #{r*\ 9908}# + #{w*\ 9909}# + #{mod\ 9799}#) + #{inits\ 9911}#))))))) + #{tmp\ 9925}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 770}#))) + #{tmp\ 9924}#))) ($sc-dispatch - #{tmp\ 770}# + #{tmp\ 9924}# '(any any)))) - (car #{opt\ 749}#)) - (if #{rest\ 750}# - (let ((#{v\ 789}# (#{gen-var\ 373}# - #{rest\ 750}#))) - (let ((#{l\ 791}# (#{gen-labels\ 278}# - (list #{v\ 789}#)))) - (let ((#{r*\ 793}# - (#{extend-var-env\ 250}# - #{l\ 791}# - (list #{v\ 789}#) - #{r*\ 754}#))) - (let ((#{w*\ 795}# - (#{make-binding-wrap\ 307}# - (list #{rest\ 750}#) - #{l\ 791}# - #{w*\ 755}#))) - (#{expand-kw\ 660}# - #{req\ 748}# - (if (pair? #{out\ 756}#) - (reverse #{out\ 756}#) + (car #{opt\ 9903}#)) + (if #{rest\ 9904}# + (let ((#{v\ 9943}# + (#{gen-var\ 9527}# #{rest\ 9904}#))) + (let ((#{l\ 9945}# + (#{gen-labels\ 9432}# + (list #{v\ 9943}#)))) + (let ((#{r*\ 9947}# + (#{extend-var-env\ 9404}# + #{l\ 9945}# + (list #{v\ 9943}#) + #{r*\ 9908}#))) + (let ((#{w*\ 9949}# + (#{make-binding-wrap\ 9461}# + (list #{rest\ 9904}#) + #{l\ 9945}# + #{w*\ 9909}#))) + (#{expand-kw\ 9814}# + #{req\ 9902}# + (if (pair? #{out\ 9910}#) + (reverse #{out\ 9910}#) #f) - (syntax->datum #{rest\ 750}#) - (if (pair? #{kw\ 751}#) - (cdr #{kw\ 751}#) - #{kw\ 751}#) - #{body\ 752}# - (cons #{v\ 789}# #{vars\ 753}#) - #{r*\ 793}# - #{w*\ 795}# - (if (pair? #{kw\ 751}#) - (car #{kw\ 751}#) + (syntax->datum #{rest\ 9904}#) + (if (pair? #{kw\ 9905}#) + (cdr #{kw\ 9905}#) + #{kw\ 9905}#) + #{body\ 9906}# + (cons #{v\ 9943}# #{vars\ 9907}#) + #{r*\ 9947}# + #{w*\ 9949}# + (if (pair? #{kw\ 9905}#) + (car #{kw\ 9905}#) #f) '() - #{inits\ 757}#))))) - (#{expand-kw\ 660}# - #{req\ 748}# - (if (pair? #{out\ 756}#) - (reverse #{out\ 756}#) + #{inits\ 9911}#))))) + (#{expand-kw\ 9814}# + #{req\ 9902}# + (if (pair? #{out\ 9910}#) + (reverse #{out\ 9910}#) #f) #f - (if (pair? #{kw\ 751}#) - (cdr #{kw\ 751}#) - #{kw\ 751}#) - #{body\ 752}# - #{vars\ 753}# - #{r*\ 754}# - #{w*\ 755}# - (if (pair? #{kw\ 751}#) (car #{kw\ 751}#) #f) + (if (pair? #{kw\ 9905}#) + (cdr #{kw\ 9905}#) + #{kw\ 9905}#) + #{body\ 9906}# + #{vars\ 9907}# + #{r*\ 9908}# + #{w*\ 9909}# + (if (pair? #{kw\ 9905}#) + (car #{kw\ 9905}#) + #f) '() - #{inits\ 757}#))))) - (#{expand-req\ 656}# - (lambda (#{req\ 797}# - #{opt\ 798}# - #{rest\ 799}# - #{kw\ 800}# - #{body\ 801}#) - (let ((#{vars\ 809}# - (map #{gen-var\ 373}# #{req\ 797}#)) - (#{labels\ 810}# - (#{gen-labels\ 278}# #{req\ 797}#))) - (let ((#{r*\ 813}# - (#{extend-var-env\ 250}# - #{labels\ 810}# - #{vars\ 809}# - #{r\ 642}#)) - (#{w*\ 814}# - (#{make-binding-wrap\ 307}# - #{req\ 797}# - #{labels\ 810}# - #{w\ 643}#))) - (#{expand-opt\ 658}# - (map syntax->datum #{req\ 797}#) - #{opt\ 798}# - #{rest\ 799}# - #{kw\ 800}# - #{body\ 801}# - (reverse #{vars\ 809}#) - #{r*\ 813}# - #{w*\ 814}# + #{inits\ 9911}#))))) + (#{expand-req\ 9810}# + (lambda (#{req\ 9951}# + #{opt\ 9952}# + #{rest\ 9953}# + #{kw\ 9954}# + #{body\ 9955}#) + (let ((#{vars\ 9963}# + (map #{gen-var\ 9527}# #{req\ 9951}#)) + (#{labels\ 9964}# + (#{gen-labels\ 9432}# #{req\ 9951}#))) + (let ((#{r*\ 9967}# + (#{extend-var-env\ 9404}# + #{labels\ 9964}# + #{vars\ 9963}# + #{r\ 9796}#)) + (#{w*\ 9968}# + (#{make-binding-wrap\ 9461}# + #{req\ 9951}# + #{labels\ 9964}# + #{w\ 9797}#))) + (#{expand-opt\ 9812}# + (map syntax->datum #{req\ 9951}#) + #{opt\ 9952}# + #{rest\ 9953}# + #{kw\ 9954}# + #{body\ 9955}# + (reverse #{vars\ 9963}#) + #{r*\ 9967}# + #{w*\ 9968}# '() '())))))) - ((lambda (#{tmp\ 815}#) - ((lambda (#{tmp\ 816}#) - (if #{tmp\ 816}# - (apply (lambda () (values #f #f)) #{tmp\ 816}#) - ((lambda (#{tmp\ 817}#) - (if #{tmp\ 817}# - (apply (lambda (#{args\ 824}# - #{e1\ 825}# - #{e2\ 826}# - #{args*\ 827}# - #{e1*\ 828}# - #{e2*\ 829}#) + ((lambda (#{tmp\ 9969}#) + ((lambda (#{tmp\ 9970}#) + (if #{tmp\ 9970}# + (apply (lambda () (values #f #f)) #{tmp\ 9970}#) + ((lambda (#{tmp\ 9971}#) + (if #{tmp\ 9971}# + (apply (lambda (#{args\ 9978}# + #{e1\ 9979}# + #{e2\ 9980}# + #{args*\ 9981}# + #{e1*\ 9982}# + #{e2*\ 9983}#) (call-with-values (lambda () - (#{get-formals\ 646}# - #{args\ 824}#)) - (lambda (#{req\ 830}# - #{opt\ 831}# - #{rest\ 832}# - #{kw\ 833}#) + (#{get-formals\ 9800}# + #{args\ 9978}#)) + (lambda (#{req\ 9984}# + #{opt\ 9985}# + #{rest\ 9986}# + #{kw\ 9987}#) (call-with-values (lambda () - (#{expand-req\ 656}# - #{req\ 830}# - #{opt\ 831}# - #{rest\ 832}# - #{kw\ 833}# - (cons #{e1\ 825}# - #{e2\ 826}#))) - (lambda (#{docstring\ 839}# - #{req\ 840}# - #{opt\ 841}# - #{rest\ 842}# - #{kw\ 843}# - #{inits\ 844}# - #{vars\ 845}# - #{body\ 846}#) + (#{expand-req\ 9810}# + #{req\ 9984}# + #{opt\ 9985}# + #{rest\ 9986}# + #{kw\ 9987}# + (cons #{e1\ 9979}# + #{e2\ 9980}#))) + (lambda (#{docstring\ 9993}# + #{req\ 9994}# + #{opt\ 9995}# + #{rest\ 9996}# + #{kw\ 9997}# + #{inits\ 9998}# + #{vars\ 9999}# + #{body\ 10000}#) (call-with-values (lambda () - (#{chi-lambda-case\ 369}# - #{e\ 641}# - #{r\ 642}# - #{w\ 643}# - #{s\ 644}# - #{mod\ 645}# - #{get-formals\ 646}# - (map (lambda (#{tmp\ 857}# - #{tmp\ 856}# - #{tmp\ 855}#) - (cons #{tmp\ 855}# - (cons #{tmp\ 856}# - #{tmp\ 857}#))) - #{e2*\ 829}# - #{e1*\ 828}# - #{args*\ 827}#))) - (lambda (#{docstring*\ 859}# - #{else*\ 860}#) + (#{chi-lambda-case\ 9523}# + #{e\ 9795}# + #{r\ 9796}# + #{w\ 9797}# + #{s\ 9798}# + #{mod\ 9799}# + #{get-formals\ 9800}# + (map (lambda (#{tmp\ 10011}# + #{tmp\ 10010}# + #{tmp\ 10009}#) + (cons #{tmp\ 10009}# + (cons #{tmp\ 10010}# + #{tmp\ 10011}#))) + #{e2*\ 9983}# + #{e1*\ 9982}# + #{args*\ 9981}#))) + (lambda (#{docstring*\ 10013}# + #{else*\ 10014}#) (values - (let ((#{t\ 865}# #{docstring\ 839}#)) - (if #{t\ 865}# - #{t\ 865}# - #{docstring*\ 859}#)) - (#{build-lambda-case\ 206}# - #{s\ 644}# - #{req\ 840}# - #{opt\ 841}# - #{rest\ 842}# - #{kw\ 843}# - #{inits\ 844}# - #{vars\ 845}# - #{body\ 846}# - #{else*\ 860}#))))))))) - #{tmp\ 817}#) + (let ((#{t\ 10019}# + #{docstring\ 9993}#)) + (if #{t\ 10019}# + #{t\ 10019}# + #{docstring*\ 10013}#)) + (#{build-lambda-case\ 9360}# + #{s\ 9798}# + #{req\ 9994}# + #{opt\ 9995}# + #{rest\ 9996}# + #{kw\ 9997}# + #{inits\ 9998}# + #{vars\ 9999}# + #{body\ 10000}# + #{else*\ 10014}#))))))))) + #{tmp\ 9971}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 815}#))) + #{tmp\ 9969}#))) ($sc-dispatch - #{tmp\ 815}# + #{tmp\ 9969}# '((any any . each-any) . #(each (any any . each-any))))))) - ($sc-dispatch #{tmp\ 815}# (quote ())))) - #{clauses\ 647}#)))) - (#{lambda*-formals\ 367}# - (lambda (#{orig-args\ 867}#) - (letrec ((#{check\ 878}# - (lambda (#{req\ 879}# - #{opt\ 880}# - #{rest\ 881}# - #{kw\ 882}#) - (if (#{distinct-bound-ids?\ 325}# + ($sc-dispatch #{tmp\ 9969}# (quote ())))) + #{clauses\ 9801}#)))) + (#{lambda*-formals\ 9521}# + (lambda (#{orig-args\ 10021}#) + (letrec ((#{check\ 10032}# + (lambda (#{req\ 10033}# + #{opt\ 10034}# + #{rest\ 10035}# + #{kw\ 10036}#) + (if (#{distinct-bound-ids?\ 9479}# (append - #{req\ 879}# - (map car #{opt\ 880}#) - (if #{rest\ 881}# - (list #{rest\ 881}#) + #{req\ 10033}# + (map car #{opt\ 10034}#) + (if #{rest\ 10035}# + (list #{rest\ 10035}#) '()) - (if (pair? #{kw\ 882}#) - (map cadr (cdr #{kw\ 882}#)) + (if (pair? #{kw\ 10036}#) + (map cadr (cdr #{kw\ 10036}#)) '()))) (values - #{req\ 879}# - #{opt\ 880}# - #{rest\ 881}# - #{kw\ 882}#) + #{req\ 10033}# + #{opt\ 10034}# + #{rest\ 10035}# + #{kw\ 10036}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args\ 867}#)))) - (#{rest\ 876}# - (lambda (#{args\ 890}# - #{req\ 891}# - #{opt\ 892}# - #{kw\ 893}#) - ((lambda (#{tmp\ 898}#) - ((lambda (#{tmp\ 899}#) - (if (if #{tmp\ 899}# - (apply (lambda (#{r\ 901}#) - (#{id?\ 260}# #{r\ 901}#)) - #{tmp\ 899}#) + #{orig-args\ 10021}#)))) + (#{rest\ 10030}# + (lambda (#{args\ 10044}# + #{req\ 10045}# + #{opt\ 10046}# + #{kw\ 10047}#) + ((lambda (#{tmp\ 10052}#) + ((lambda (#{tmp\ 10053}#) + (if (if #{tmp\ 10053}# + (apply (lambda (#{r\ 10055}#) + (#{id?\ 9414}# #{r\ 10055}#)) + #{tmp\ 10053}#) #f) - (apply (lambda (#{r\ 903}#) - (#{check\ 878}# - #{req\ 891}# - #{opt\ 892}# - #{r\ 903}# - #{kw\ 893}#)) - #{tmp\ 899}#) - ((lambda (#{else\ 905}#) + (apply (lambda (#{r\ 10057}#) + (#{check\ 10032}# + #{req\ 10045}# + #{opt\ 10046}# + #{r\ 10057}# + #{kw\ 10047}#)) + #{tmp\ 10053}#) + ((lambda (#{else\ 10059}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args\ 867}# - #{args\ 890}#)) - #{tmp\ 898}#))) - (list #{tmp\ 898}#))) - #{args\ 890}#))) - (#{key\ 874}# - (lambda (#{args\ 906}# - #{req\ 907}# - #{opt\ 908}# - #{rkey\ 909}#) - ((lambda (#{tmp\ 914}#) - ((lambda (#{tmp\ 915}#) - (if #{tmp\ 915}# + #{orig-args\ 10021}# + #{args\ 10044}#)) + #{tmp\ 10052}#))) + (list #{tmp\ 10052}#))) + #{args\ 10044}#))) + (#{key\ 10028}# + (lambda (#{args\ 10060}# + #{req\ 10061}# + #{opt\ 10062}# + #{rkey\ 10063}#) + ((lambda (#{tmp\ 10068}#) + ((lambda (#{tmp\ 10069}#) + (if #{tmp\ 10069}# (apply (lambda () - (#{check\ 878}# - #{req\ 907}# - #{opt\ 908}# + (#{check\ 10032}# + #{req\ 10061}# + #{opt\ 10062}# #f (cons #f - (reverse #{rkey\ 909}#)))) - #{tmp\ 915}#) - ((lambda (#{tmp\ 916}#) - (if (if #{tmp\ 916}# - (apply (lambda (#{a\ 919}# - #{b\ 920}#) - (#{id?\ 260}# - #{a\ 919}#)) - #{tmp\ 916}#) + (reverse + #{rkey\ 10063}#)))) + #{tmp\ 10069}#) + ((lambda (#{tmp\ 10070}#) + (if (if #{tmp\ 10070}# + (apply (lambda (#{a\ 10073}# + #{b\ 10074}#) + (#{id?\ 9414}# + #{a\ 10073}#)) + #{tmp\ 10070}#) #f) - (apply (lambda (#{a\ 923}# #{b\ 924}#) - ((lambda (#{tmp\ 926}#) - ((lambda (#{k\ 928}#) - (#{key\ 874}# - #{b\ 924}# - #{req\ 907}# - #{opt\ 908}# - (cons (cons #{k\ 928}# - (cons #{a\ 923}# + (apply (lambda (#{a\ 10077}# + #{b\ 10078}#) + ((lambda (#{tmp\ 10080}#) + ((lambda (#{k\ 10082}#) + (#{key\ 10028}# + #{b\ 10078}# + #{req\ 10061}# + #{opt\ 10062}# + (cons (cons #{k\ 10082}# + (cons #{a\ 10077}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) - #("i927")) + #("i10081")) #(ribcage #(a b) #((top) (top)) - #("i921" - "i922")) + #("i10075" + "i10076")) #(ribcage () () @@ -618,10 +626,10 @@ (top) (top) (top)) - #("i910" - "i911" - "i912" - "i913")) + #("i10064" + "i10065" + "i10066" + "i10067")) #(ribcage (check rest key @@ -632,15 +640,15 @@ (top) (top) (top)) - ("i877" - "i875" - "i873" - "i871" - "i869")) + ("i10031" + "i10029" + "i10027" + "i10025" + "i10023")) #(ribcage #(orig-args) #((top)) - #("i868")) + #("i10022")) #(ribcage (lambda-var-list gen-var @@ -876,349 +884,351 @@ (top) (top) (top)) - ("i374" - "i372" - "i370" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i303" - "i302" - "i300" - "i299" - "i298" - "i297" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i277" - "i275" - "i274" - "i273" - "i272" - "i271" - "i270" - "i268" - "i266" - "i264" - "i262" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i246" - "i244" - "i242" - "i241" - "i240" - "i238" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207" - "i205" - "i203" - "i201" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i174" - "i172" - "i170" - "i168" - "i166" - "i164" - "i162" - "i160" - "i158")) + ("i9528" + "i9526" + "i9524" + "i9522" + "i9520" + "i9518" + "i9516" + "i9514" + "i9512" + "i9510" + "i9508" + "i9506" + "i9504" + "i9502" + "i9500" + "i9498" + "i9496" + "i9494" + "i9492" + "i9490" + "i9488" + "i9486" + "i9484" + "i9482" + "i9480" + "i9478" + "i9476" + "i9474" + "i9472" + "i9470" + "i9468" + "i9466" + "i9464" + "i9462" + "i9460" + "i9458" + "i9457" + "i9456" + "i9454" + "i9453" + "i9452" + "i9451" + "i9450" + "i9448" + "i9446" + "i9444" + "i9442" + "i9440" + "i9438" + "i9436" + "i9434" + "i9431" + "i9429" + "i9428" + "i9427" + "i9426" + "i9425" + "i9424" + "i9422" + "i9420" + "i9418" + "i9416" + "i9415" + "i9413" + "i9411" + "i9409" + "i9407" + "i9405" + "i9403" + "i9401" + "i9400" + "i9398" + "i9396" + "i9395" + "i9394" + "i9392" + "i9391" + "i9389" + "i9387" + "i9385" + "i9383" + "i9381" + "i9379" + "i9377" + "i9375" + "i9373" + "i9371" + "i9369" + "i9367" + "i9365" + "i9363" + "i9361" + "i9359" + "i9357" + "i9355" + "i9353" + "i9351" + "i9349" + "i9347" + "i9345" + "i9343" + "i9341" + "i9339" + "i9337" + "i9335" + "i9333" + "i9331" + "i9329" + "i9328" + "i9326" + "i9324" + "i9322" + "i9320" + "i9318" + "i9316" + "i9314" + "i9312")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i61" - "i59"))) + ("i9215" + "i9213"))) (hygiene guile))))) - #{rkey\ 909}#))) - #{tmp\ 926}#)) + #{rkey\ 10063}#))) + #{tmp\ 10080}#)) (symbol->keyword (syntax->datum - #{a\ 923}#)))) - #{tmp\ 916}#) - ((lambda (#{tmp\ 929}#) - (if (if #{tmp\ 929}# - (apply (lambda (#{a\ 933}# - #{init\ 934}# - #{b\ 935}#) - (#{id?\ 260}# - #{a\ 933}#)) - #{tmp\ 929}#) + #{a\ 10077}#)))) + #{tmp\ 10070}#) + ((lambda (#{tmp\ 10083}#) + (if (if #{tmp\ 10083}# + (apply (lambda (#{a\ 10087}# + #{init\ 10088}# + #{b\ 10089}#) + (#{id?\ 9414}# + #{a\ 10087}#)) + #{tmp\ 10083}#) #f) - (apply (lambda (#{a\ 939}# - #{init\ 940}# - #{b\ 941}#) - ((lambda (#{tmp\ 943}#) - ((lambda (#{k\ 945}#) - (#{key\ 874}# - #{b\ 941}# - #{req\ 907}# - #{opt\ 908}# - (cons (list #{k\ 945}# - #{a\ 939}# - #{init\ 940}#) - #{rkey\ 909}#))) - #{tmp\ 943}#)) + (apply (lambda (#{a\ 10093}# + #{init\ 10094}# + #{b\ 10095}#) + ((lambda (#{tmp\ 10097}#) + ((lambda (#{k\ 10099}#) + (#{key\ 10028}# + #{b\ 10095}# + #{req\ 10061}# + #{opt\ 10062}# + (cons (list #{k\ 10099}# + #{a\ 10093}# + #{init\ 10094}#) + #{rkey\ 10063}#))) + #{tmp\ 10097}#)) (symbol->keyword (syntax->datum - #{a\ 939}#)))) - #{tmp\ 929}#) - ((lambda (#{tmp\ 946}#) - (if (if #{tmp\ 946}# - (apply (lambda (#{a\ 951}# - #{init\ 952}# - #{k\ 953}# - #{b\ 954}#) - (if (#{id?\ 260}# - #{a\ 951}#) + #{a\ 10093}#)))) + #{tmp\ 10083}#) + ((lambda (#{tmp\ 10100}#) + (if (if #{tmp\ 10100}# + (apply (lambda (#{a\ 10105}# + #{init\ 10106}# + #{k\ 10107}# + #{b\ 10108}#) + (if (#{id?\ 9414}# + #{a\ 10105}#) (keyword? (syntax->datum - #{k\ 953}#)) + #{k\ 10107}#)) #f)) - #{tmp\ 946}#) + #{tmp\ 10100}#) #f) - (apply (lambda (#{a\ 961}# - #{init\ 962}# - #{k\ 963}# - #{b\ 964}#) - (#{key\ 874}# - #{b\ 964}# - #{req\ 907}# - #{opt\ 908}# - (cons (list #{k\ 963}# - #{a\ 961}# - #{init\ 962}#) - #{rkey\ 909}#))) - #{tmp\ 946}#) - ((lambda (#{tmp\ 965}#) - (if (if #{tmp\ 965}# - (apply (lambda (#{aok\ 967}#) + (apply (lambda (#{a\ 10115}# + #{init\ 10116}# + #{k\ 10117}# + #{b\ 10118}#) + (#{key\ 10028}# + #{b\ 10118}# + #{req\ 10061}# + #{opt\ 10062}# + (cons (list #{k\ 10117}# + #{a\ 10115}# + #{init\ 10116}#) + #{rkey\ 10063}#))) + #{tmp\ 10100}#) + ((lambda (#{tmp\ 10119}#) + (if (if #{tmp\ 10119}# + (apply (lambda (#{aok\ 10121}#) (eq? (syntax->datum - #{aok\ 967}#) + #{aok\ 10121}#) #:allow-other-keys)) - #{tmp\ 965}#) + #{tmp\ 10119}#) #f) - (apply (lambda (#{aok\ 969}#) - (#{check\ 878}# - #{req\ 907}# - #{opt\ 908}# + (apply (lambda (#{aok\ 10123}#) + (#{check\ 10032}# + #{req\ 10061}# + #{opt\ 10062}# #f (cons #t (reverse - #{rkey\ 909}#)))) - #{tmp\ 965}#) - ((lambda (#{tmp\ 970}#) - (if (if #{tmp\ 970}# - (apply (lambda (#{aok\ 974}# - #{a\ 975}# - #{b\ 976}#) + #{rkey\ 10063}#)))) + #{tmp\ 10119}#) + ((lambda (#{tmp\ 10124}#) + (if (if #{tmp\ 10124}# + (apply (lambda (#{aok\ 10128}# + #{a\ 10129}# + #{b\ 10130}#) (if (eq? (syntax->datum - #{aok\ 974}#) + #{aok\ 10128}#) #:allow-other-keys) (eq? (syntax->datum - #{a\ 975}#) + #{a\ 10129}#) #:rest) #f)) - #{tmp\ 970}#) + #{tmp\ 10124}#) #f) - (apply (lambda (#{aok\ 982}# - #{a\ 983}# - #{b\ 984}#) - (#{rest\ 876}# - #{b\ 984}# - #{req\ 907}# - #{opt\ 908}# + (apply (lambda (#{aok\ 10136}# + #{a\ 10137}# + #{b\ 10138}#) + (#{rest\ 10030}# + #{b\ 10138}# + #{req\ 10061}# + #{opt\ 10062}# (cons #t (reverse - #{rkey\ 909}#)))) - #{tmp\ 970}#) - ((lambda (#{tmp\ 985}#) - (if (if #{tmp\ 985}# - (apply (lambda (#{aok\ 988}# - #{r\ 989}#) + #{rkey\ 10063}#)))) + #{tmp\ 10124}#) + ((lambda (#{tmp\ 10139}#) + (if (if #{tmp\ 10139}# + (apply (lambda (#{aok\ 10142}# + #{r\ 10143}#) (if (eq? (syntax->datum - #{aok\ 988}#) + #{aok\ 10142}#) #:allow-other-keys) - (#{id?\ 260}# - #{r\ 989}#) + (#{id?\ 9414}# + #{r\ 10143}#) #f)) - #{tmp\ 985}#) + #{tmp\ 10139}#) #f) - (apply (lambda (#{aok\ 994}# - #{r\ 995}#) - (#{rest\ 876}# - #{r\ 995}# - #{req\ 907}# - #{opt\ 908}# + (apply (lambda (#{aok\ 10148}# + #{r\ 10149}#) + (#{rest\ 10030}# + #{r\ 10149}# + #{req\ 10061}# + #{opt\ 10062}# (cons #t (reverse - #{rkey\ 909}#)))) - #{tmp\ 985}#) - ((lambda (#{tmp\ 996}#) - (if (if #{tmp\ 996}# - (apply (lambda (#{a\ 999}# - #{b\ 1000}#) + #{rkey\ 10063}#)))) + #{tmp\ 10139}#) + ((lambda (#{tmp\ 10150}#) + (if (if #{tmp\ 10150}# + (apply (lambda (#{a\ 10153}# + #{b\ 10154}#) (eq? (syntax->datum - #{a\ 999}#) + #{a\ 10153}#) #:rest)) - #{tmp\ 996}#) + #{tmp\ 10150}#) #f) - (apply (lambda (#{a\ 1003}# - #{b\ 1004}#) - (#{rest\ 876}# - #{b\ 1004}# - #{req\ 907}# - #{opt\ 908}# + (apply (lambda (#{a\ 10157}# + #{b\ 10158}#) + (#{rest\ 10030}# + #{b\ 10158}# + #{req\ 10061}# + #{opt\ 10062}# (cons #f (reverse - #{rkey\ 909}#)))) - #{tmp\ 996}#) - ((lambda (#{tmp\ 1005}#) - (if (if #{tmp\ 1005}# - (apply (lambda (#{r\ 1007}#) - (#{id?\ 260}# - #{r\ 1007}#)) - #{tmp\ 1005}#) + #{rkey\ 10063}#)))) + #{tmp\ 10150}#) + ((lambda (#{tmp\ 10159}#) + (if (if #{tmp\ 10159}# + (apply (lambda (#{r\ 10161}#) + (#{id?\ 9414}# + #{r\ 10161}#)) + #{tmp\ 10159}#) #f) - (apply (lambda (#{r\ 1009}#) - (#{rest\ 876}# - #{r\ 1009}# - #{req\ 907}# - #{opt\ 908}# + (apply (lambda (#{r\ 10163}#) + (#{rest\ 10030}# + #{r\ 10163}# + #{req\ 10061}# + #{opt\ 10062}# (cons #f (reverse - #{rkey\ 909}#)))) - #{tmp\ 1005}#) - ((lambda (#{else\ 1011}#) + #{rkey\ 10063}#)))) + #{tmp\ 10159}#) + ((lambda (#{else\ 10165}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args\ 867}# - #{args\ 906}#)) - #{tmp\ 914}#))) - (list #{tmp\ 914}#)))) + #{orig-args\ 10021}# + #{args\ 10060}#)) + #{tmp\ 10068}#))) + (list #{tmp\ 10068}#)))) ($sc-dispatch - #{tmp\ 914}# + #{tmp\ 10068}# '(any any))))) ($sc-dispatch - #{tmp\ 914}# + #{tmp\ 10068}# '(any . any))))) ($sc-dispatch - #{tmp\ 914}# + #{tmp\ 10068}# '(any any any))))) ($sc-dispatch - #{tmp\ 914}# + #{tmp\ 10068}# '(any))))) ($sc-dispatch - #{tmp\ 914}# + #{tmp\ 10068}# '((any any any) . any))))) ($sc-dispatch - #{tmp\ 914}# + #{tmp\ 10068}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 914}# + #{tmp\ 10068}# '(any . any))))) - ($sc-dispatch #{tmp\ 914}# (quote ())))) - #{args\ 906}#))) - (#{opt\ 872}# - (lambda (#{args\ 1012}# #{req\ 1013}# #{ropt\ 1014}#) - ((lambda (#{tmp\ 1018}#) - ((lambda (#{tmp\ 1019}#) - (if #{tmp\ 1019}# + ($sc-dispatch #{tmp\ 10068}# (quote ())))) + #{args\ 10060}#))) + (#{opt\ 10026}# + (lambda (#{args\ 10166}# + #{req\ 10167}# + #{ropt\ 10168}#) + ((lambda (#{tmp\ 10172}#) + ((lambda (#{tmp\ 10173}#) + (if #{tmp\ 10173}# (apply (lambda () - (#{check\ 878}# - #{req\ 1013}# - (reverse #{ropt\ 1014}#) + (#{check\ 10032}# + #{req\ 10167}# + (reverse #{ropt\ 10168}#) #f '())) - #{tmp\ 1019}#) - ((lambda (#{tmp\ 1020}#) - (if (if #{tmp\ 1020}# - (apply (lambda (#{a\ 1023}# - #{b\ 1024}#) - (#{id?\ 260}# - #{a\ 1023}#)) - #{tmp\ 1020}#) + #{tmp\ 10173}#) + ((lambda (#{tmp\ 10174}#) + (if (if #{tmp\ 10174}# + (apply (lambda (#{a\ 10177}# + #{b\ 10178}#) + (#{id?\ 9414}# + #{a\ 10177}#)) + #{tmp\ 10174}#) #f) - (apply (lambda (#{a\ 1027}# - #{b\ 1028}#) - (#{opt\ 872}# - #{b\ 1028}# - #{req\ 1013}# - (cons (cons #{a\ 1027}# + (apply (lambda (#{a\ 10181}# + #{b\ 10182}#) + (#{opt\ 10026}# + #{b\ 10182}# + #{req\ 10167}# + (cons (cons #{a\ 10181}# '(#(syntax-object #f ((top) @@ -1226,8 +1236,8 @@ #(a b) #((top) (top)) - #("i1025" - "i1026")) + #("i10179" + "i10180")) #(ribcage () () @@ -1239,9 +1249,9 @@ #((top) (top) (top)) - #("i1015" - "i1016" - "i1017")) + #("i10169" + "i10170" + "i10171")) #(ribcage (check rest key @@ -1252,15 +1262,15 @@ (top) (top) (top)) - ("i877" - "i875" - "i873" - "i871" - "i869")) + ("i10031" + "i10029" + "i10027" + "i10025" + "i10023")) #(ribcage #(orig-args) #((top)) - #("i868")) + #("i10022")) #(ribcage (lambda-var-list gen-var @@ -1496,462 +1506,462 @@ (top) (top) (top)) - ("i374" - "i372" - "i370" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i303" - "i302" - "i300" - "i299" - "i298" - "i297" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i277" - "i275" - "i274" - "i273" - "i272" - "i271" - "i270" - "i268" - "i266" - "i264" - "i262" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i246" - "i244" - "i242" - "i241" - "i240" - "i238" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207" - "i205" - "i203" - "i201" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i174" - "i172" - "i170" - "i168" - "i166" - "i164" - "i162" - "i160" - "i158")) + ("i9528" + "i9526" + "i9524" + "i9522" + "i9520" + "i9518" + "i9516" + "i9514" + "i9512" + "i9510" + "i9508" + "i9506" + "i9504" + "i9502" + "i9500" + "i9498" + "i9496" + "i9494" + "i9492" + "i9490" + "i9488" + "i9486" + "i9484" + "i9482" + "i9480" + "i9478" + "i9476" + "i9474" + "i9472" + "i9470" + "i9468" + "i9466" + "i9464" + "i9462" + "i9460" + "i9458" + "i9457" + "i9456" + "i9454" + "i9453" + "i9452" + "i9451" + "i9450" + "i9448" + "i9446" + "i9444" + "i9442" + "i9440" + "i9438" + "i9436" + "i9434" + "i9431" + "i9429" + "i9428" + "i9427" + "i9426" + "i9425" + "i9424" + "i9422" + "i9420" + "i9418" + "i9416" + "i9415" + "i9413" + "i9411" + "i9409" + "i9407" + "i9405" + "i9403" + "i9401" + "i9400" + "i9398" + "i9396" + "i9395" + "i9394" + "i9392" + "i9391" + "i9389" + "i9387" + "i9385" + "i9383" + "i9381" + "i9379" + "i9377" + "i9375" + "i9373" + "i9371" + "i9369" + "i9367" + "i9365" + "i9363" + "i9361" + "i9359" + "i9357" + "i9355" + "i9353" + "i9351" + "i9349" + "i9347" + "i9345" + "i9343" + "i9341" + "i9339" + "i9337" + "i9335" + "i9333" + "i9331" + "i9329" + "i9328" + "i9326" + "i9324" + "i9322" + "i9320" + "i9318" + "i9316" + "i9314" + "i9312")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i61" - "i59"))) + ("i9215" + "i9213"))) (hygiene guile)))) - #{ropt\ 1014}#))) - #{tmp\ 1020}#) - ((lambda (#{tmp\ 1029}#) - (if (if #{tmp\ 1029}# - (apply (lambda (#{a\ 1033}# - #{init\ 1034}# - #{b\ 1035}#) - (#{id?\ 260}# - #{a\ 1033}#)) - #{tmp\ 1029}#) + #{ropt\ 10168}#))) + #{tmp\ 10174}#) + ((lambda (#{tmp\ 10183}#) + (if (if #{tmp\ 10183}# + (apply (lambda (#{a\ 10187}# + #{init\ 10188}# + #{b\ 10189}#) + (#{id?\ 9414}# + #{a\ 10187}#)) + #{tmp\ 10183}#) #f) - (apply (lambda (#{a\ 1039}# - #{init\ 1040}# - #{b\ 1041}#) - (#{opt\ 872}# - #{b\ 1041}# - #{req\ 1013}# - (cons (list #{a\ 1039}# - #{init\ 1040}#) - #{ropt\ 1014}#))) - #{tmp\ 1029}#) - ((lambda (#{tmp\ 1042}#) - (if (if #{tmp\ 1042}# - (apply (lambda (#{a\ 1045}# - #{b\ 1046}#) + (apply (lambda (#{a\ 10193}# + #{init\ 10194}# + #{b\ 10195}#) + (#{opt\ 10026}# + #{b\ 10195}# + #{req\ 10167}# + (cons (list #{a\ 10193}# + #{init\ 10194}#) + #{ropt\ 10168}#))) + #{tmp\ 10183}#) + ((lambda (#{tmp\ 10196}#) + (if (if #{tmp\ 10196}# + (apply (lambda (#{a\ 10199}# + #{b\ 10200}#) (eq? (syntax->datum - #{a\ 1045}#) + #{a\ 10199}#) #:key)) - #{tmp\ 1042}#) + #{tmp\ 10196}#) #f) - (apply (lambda (#{a\ 1049}# - #{b\ 1050}#) - (#{key\ 874}# - #{b\ 1050}# - #{req\ 1013}# + (apply (lambda (#{a\ 10203}# + #{b\ 10204}#) + (#{key\ 10028}# + #{b\ 10204}# + #{req\ 10167}# (reverse - #{ropt\ 1014}#) + #{ropt\ 10168}#) '())) - #{tmp\ 1042}#) - ((lambda (#{tmp\ 1051}#) - (if (if #{tmp\ 1051}# - (apply (lambda (#{a\ 1054}# - #{b\ 1055}#) + #{tmp\ 10196}#) + ((lambda (#{tmp\ 10205}#) + (if (if #{tmp\ 10205}# + (apply (lambda (#{a\ 10208}# + #{b\ 10209}#) (eq? (syntax->datum - #{a\ 1054}#) + #{a\ 10208}#) #:rest)) - #{tmp\ 1051}#) + #{tmp\ 10205}#) #f) - (apply (lambda (#{a\ 1058}# - #{b\ 1059}#) - (#{rest\ 876}# - #{b\ 1059}# - #{req\ 1013}# + (apply (lambda (#{a\ 10212}# + #{b\ 10213}#) + (#{rest\ 10030}# + #{b\ 10213}# + #{req\ 10167}# (reverse - #{ropt\ 1014}#) + #{ropt\ 10168}#) '())) - #{tmp\ 1051}#) - ((lambda (#{tmp\ 1060}#) - (if (if #{tmp\ 1060}# - (apply (lambda (#{r\ 1062}#) - (#{id?\ 260}# - #{r\ 1062}#)) - #{tmp\ 1060}#) + #{tmp\ 10205}#) + ((lambda (#{tmp\ 10214}#) + (if (if #{tmp\ 10214}# + (apply (lambda (#{r\ 10216}#) + (#{id?\ 9414}# + #{r\ 10216}#)) + #{tmp\ 10214}#) #f) - (apply (lambda (#{r\ 1064}#) - (#{rest\ 876}# - #{r\ 1064}# - #{req\ 1013}# + (apply (lambda (#{r\ 10218}#) + (#{rest\ 10030}# + #{r\ 10218}# + #{req\ 10167}# (reverse - #{ropt\ 1014}#) + #{ropt\ 10168}#) '())) - #{tmp\ 1060}#) - ((lambda (#{else\ 1066}#) + #{tmp\ 10214}#) + ((lambda (#{else\ 10220}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args\ 867}# - #{args\ 1012}#)) - #{tmp\ 1018}#))) - (list #{tmp\ 1018}#)))) + #{orig-args\ 10021}# + #{args\ 10166}#)) + #{tmp\ 10172}#))) + (list #{tmp\ 10172}#)))) ($sc-dispatch - #{tmp\ 1018}# + #{tmp\ 10172}# '(any any))))) ($sc-dispatch - #{tmp\ 1018}# + #{tmp\ 10172}# '(any . any))))) ($sc-dispatch - #{tmp\ 1018}# + #{tmp\ 10172}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 1018}# + #{tmp\ 10172}# '(any . any))))) - ($sc-dispatch #{tmp\ 1018}# (quote ())))) - #{args\ 1012}#))) - (#{req\ 870}# - (lambda (#{args\ 1067}# #{rreq\ 1068}#) - ((lambda (#{tmp\ 1071}#) - ((lambda (#{tmp\ 1072}#) - (if #{tmp\ 1072}# + ($sc-dispatch #{tmp\ 10172}# (quote ())))) + #{args\ 10166}#))) + (#{req\ 10024}# + (lambda (#{args\ 10221}# #{rreq\ 10222}#) + ((lambda (#{tmp\ 10225}#) + ((lambda (#{tmp\ 10226}#) + (if #{tmp\ 10226}# (apply (lambda () - (#{check\ 878}# - (reverse #{rreq\ 1068}#) + (#{check\ 10032}# + (reverse #{rreq\ 10222}#) '() #f '())) - #{tmp\ 1072}#) - ((lambda (#{tmp\ 1073}#) - (if (if #{tmp\ 1073}# - (apply (lambda (#{a\ 1076}# - #{b\ 1077}#) - (#{id?\ 260}# - #{a\ 1076}#)) - #{tmp\ 1073}#) + #{tmp\ 10226}#) + ((lambda (#{tmp\ 10227}#) + (if (if #{tmp\ 10227}# + (apply (lambda (#{a\ 10230}# + #{b\ 10231}#) + (#{id?\ 9414}# + #{a\ 10230}#)) + #{tmp\ 10227}#) #f) - (apply (lambda (#{a\ 1080}# - #{b\ 1081}#) - (#{req\ 870}# - #{b\ 1081}# - (cons #{a\ 1080}# - #{rreq\ 1068}#))) - #{tmp\ 1073}#) - ((lambda (#{tmp\ 1082}#) - (if (if #{tmp\ 1082}# - (apply (lambda (#{a\ 1085}# - #{b\ 1086}#) + (apply (lambda (#{a\ 10234}# + #{b\ 10235}#) + (#{req\ 10024}# + #{b\ 10235}# + (cons #{a\ 10234}# + #{rreq\ 10222}#))) + #{tmp\ 10227}#) + ((lambda (#{tmp\ 10236}#) + (if (if #{tmp\ 10236}# + (apply (lambda (#{a\ 10239}# + #{b\ 10240}#) (eq? (syntax->datum - #{a\ 1085}#) + #{a\ 10239}#) #:optional)) - #{tmp\ 1082}#) + #{tmp\ 10236}#) #f) - (apply (lambda (#{a\ 1089}# - #{b\ 1090}#) - (#{opt\ 872}# - #{b\ 1090}# + (apply (lambda (#{a\ 10243}# + #{b\ 10244}#) + (#{opt\ 10026}# + #{b\ 10244}# (reverse - #{rreq\ 1068}#) + #{rreq\ 10222}#) '())) - #{tmp\ 1082}#) - ((lambda (#{tmp\ 1091}#) - (if (if #{tmp\ 1091}# - (apply (lambda (#{a\ 1094}# - #{b\ 1095}#) + #{tmp\ 10236}#) + ((lambda (#{tmp\ 10245}#) + (if (if #{tmp\ 10245}# + (apply (lambda (#{a\ 10248}# + #{b\ 10249}#) (eq? (syntax->datum - #{a\ 1094}#) + #{a\ 10248}#) #:key)) - #{tmp\ 1091}#) + #{tmp\ 10245}#) #f) - (apply (lambda (#{a\ 1098}# - #{b\ 1099}#) - (#{key\ 874}# - #{b\ 1099}# + (apply (lambda (#{a\ 10252}# + #{b\ 10253}#) + (#{key\ 10028}# + #{b\ 10253}# (reverse - #{rreq\ 1068}#) + #{rreq\ 10222}#) '() '())) - #{tmp\ 1091}#) - ((lambda (#{tmp\ 1100}#) - (if (if #{tmp\ 1100}# - (apply (lambda (#{a\ 1103}# - #{b\ 1104}#) + #{tmp\ 10245}#) + ((lambda (#{tmp\ 10254}#) + (if (if #{tmp\ 10254}# + (apply (lambda (#{a\ 10257}# + #{b\ 10258}#) (eq? (syntax->datum - #{a\ 1103}#) + #{a\ 10257}#) #:rest)) - #{tmp\ 1100}#) + #{tmp\ 10254}#) #f) - (apply (lambda (#{a\ 1107}# - #{b\ 1108}#) - (#{rest\ 876}# - #{b\ 1108}# + (apply (lambda (#{a\ 10261}# + #{b\ 10262}#) + (#{rest\ 10030}# + #{b\ 10262}# (reverse - #{rreq\ 1068}#) + #{rreq\ 10222}#) '() '())) - #{tmp\ 1100}#) - ((lambda (#{tmp\ 1109}#) - (if (if #{tmp\ 1109}# - (apply (lambda (#{r\ 1111}#) - (#{id?\ 260}# - #{r\ 1111}#)) - #{tmp\ 1109}#) + #{tmp\ 10254}#) + ((lambda (#{tmp\ 10263}#) + (if (if #{tmp\ 10263}# + (apply (lambda (#{r\ 10265}#) + (#{id?\ 9414}# + #{r\ 10265}#)) + #{tmp\ 10263}#) #f) - (apply (lambda (#{r\ 1113}#) - (#{rest\ 876}# - #{r\ 1113}# + (apply (lambda (#{r\ 10267}#) + (#{rest\ 10030}# + #{r\ 10267}# (reverse - #{rreq\ 1068}#) + #{rreq\ 10222}#) '() '())) - #{tmp\ 1109}#) - ((lambda (#{else\ 1115}#) + #{tmp\ 10263}#) + ((lambda (#{else\ 10269}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args\ 867}# - #{args\ 1067}#)) - #{tmp\ 1071}#))) - (list #{tmp\ 1071}#)))) + #{orig-args\ 10021}# + #{args\ 10221}#)) + #{tmp\ 10225}#))) + (list #{tmp\ 10225}#)))) ($sc-dispatch - #{tmp\ 1071}# + #{tmp\ 10225}# '(any any))))) ($sc-dispatch - #{tmp\ 1071}# + #{tmp\ 10225}# '(any . any))))) ($sc-dispatch - #{tmp\ 1071}# + #{tmp\ 10225}# '(any . any))))) ($sc-dispatch - #{tmp\ 1071}# + #{tmp\ 10225}# '(any . any))))) - ($sc-dispatch #{tmp\ 1071}# (quote ())))) - #{args\ 1067}#)))) - (#{req\ 870}# #{orig-args\ 867}# (quote ()))))) - (#{chi-simple-lambda\ 365}# - (lambda (#{e\ 1116}# - #{r\ 1117}# - #{w\ 1118}# - #{s\ 1119}# - #{mod\ 1120}# - #{req\ 1121}# - #{rest\ 1122}# - #{docstring\ 1123}# - #{body\ 1124}#) - (let ((#{ids\ 1136}# - (if #{rest\ 1122}# - (append #{req\ 1121}# (list #{rest\ 1122}#)) - #{req\ 1121}#))) - (let ((#{vars\ 1138}# - (map #{gen-var\ 373}# #{ids\ 1136}#))) - (let ((#{labels\ 1140}# - (#{gen-labels\ 278}# #{ids\ 1136}#))) - (#{build-simple-lambda\ 202}# - #{s\ 1119}# - (map syntax->datum #{req\ 1121}#) - (if #{rest\ 1122}# - (syntax->datum #{rest\ 1122}#) + ($sc-dispatch #{tmp\ 10225}# (quote ())))) + #{args\ 10221}#)))) + (#{req\ 10024}# #{orig-args\ 10021}# (quote ()))))) + (#{chi-simple-lambda\ 9519}# + (lambda (#{e\ 10270}# + #{r\ 10271}# + #{w\ 10272}# + #{s\ 10273}# + #{mod\ 10274}# + #{req\ 10275}# + #{rest\ 10276}# + #{docstring\ 10277}# + #{body\ 10278}#) + (let ((#{ids\ 10290}# + (if #{rest\ 10276}# + (append #{req\ 10275}# (list #{rest\ 10276}#)) + #{req\ 10275}#))) + (let ((#{vars\ 10292}# + (map #{gen-var\ 9527}# #{ids\ 10290}#))) + (let ((#{labels\ 10294}# + (#{gen-labels\ 9432}# #{ids\ 10290}#))) + (#{build-simple-lambda\ 9356}# + #{s\ 10273}# + (map syntax->datum #{req\ 10275}#) + (if #{rest\ 10276}# + (syntax->datum #{rest\ 10276}#) #f) - #{vars\ 1138}# - #{docstring\ 1123}# - (#{chi-body\ 353}# - #{body\ 1124}# - (#{source-wrap\ 331}# - #{e\ 1116}# - #{w\ 1118}# - #{s\ 1119}# - #{mod\ 1120}#) - (#{extend-var-env\ 250}# - #{labels\ 1140}# - #{vars\ 1138}# - #{r\ 1117}#) - (#{make-binding-wrap\ 307}# - #{ids\ 1136}# - #{labels\ 1140}# - #{w\ 1118}#) - #{mod\ 1120}#))))))) - (#{lambda-formals\ 363}# - (lambda (#{orig-args\ 1143}#) - (letrec ((#{check\ 1148}# - (lambda (#{req\ 1149}# #{rest\ 1150}#) - (if (#{distinct-bound-ids?\ 325}# - (if #{rest\ 1150}# - (cons #{rest\ 1150}# #{req\ 1149}#) - #{req\ 1149}#)) - (values #{req\ 1149}# #f #{rest\ 1150}# #f) + #{vars\ 10292}# + #{docstring\ 10277}# + (#{chi-body\ 9507}# + #{body\ 10278}# + (#{source-wrap\ 9485}# + #{e\ 10270}# + #{w\ 10272}# + #{s\ 10273}# + #{mod\ 10274}#) + (#{extend-var-env\ 9404}# + #{labels\ 10294}# + #{vars\ 10292}# + #{r\ 10271}#) + (#{make-binding-wrap\ 9461}# + #{ids\ 10290}# + #{labels\ 10294}# + #{w\ 10272}#) + #{mod\ 10274}#))))))) + (#{lambda-formals\ 9517}# + (lambda (#{orig-args\ 10297}#) + (letrec ((#{check\ 10302}# + (lambda (#{req\ 10303}# #{rest\ 10304}#) + (if (#{distinct-bound-ids?\ 9479}# + (if #{rest\ 10304}# + (cons #{rest\ 10304}# #{req\ 10303}#) + #{req\ 10303}#)) + (values #{req\ 10303}# #f #{rest\ 10304}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args\ 1143}#)))) - (#{req\ 1146}# - (lambda (#{args\ 1156}# #{rreq\ 1157}#) - ((lambda (#{tmp\ 1160}#) - ((lambda (#{tmp\ 1161}#) - (if #{tmp\ 1161}# + #{orig-args\ 10297}#)))) + (#{req\ 10300}# + (lambda (#{args\ 10310}# #{rreq\ 10311}#) + ((lambda (#{tmp\ 10314}#) + ((lambda (#{tmp\ 10315}#) + (if #{tmp\ 10315}# (apply (lambda () - (#{check\ 1148}# - (reverse #{rreq\ 1157}#) + (#{check\ 10302}# + (reverse #{rreq\ 10311}#) #f)) - #{tmp\ 1161}#) - ((lambda (#{tmp\ 1162}#) - (if (if #{tmp\ 1162}# - (apply (lambda (#{a\ 1165}# - #{b\ 1166}#) - (#{id?\ 260}# - #{a\ 1165}#)) - #{tmp\ 1162}#) + #{tmp\ 10315}#) + ((lambda (#{tmp\ 10316}#) + (if (if #{tmp\ 10316}# + (apply (lambda (#{a\ 10319}# + #{b\ 10320}#) + (#{id?\ 9414}# + #{a\ 10319}#)) + #{tmp\ 10316}#) #f) - (apply (lambda (#{a\ 1169}# - #{b\ 1170}#) - (#{req\ 1146}# - #{b\ 1170}# - (cons #{a\ 1169}# - #{rreq\ 1157}#))) - #{tmp\ 1162}#) - ((lambda (#{tmp\ 1171}#) - (if (if #{tmp\ 1171}# - (apply (lambda (#{r\ 1173}#) - (#{id?\ 260}# - #{r\ 1173}#)) - #{tmp\ 1171}#) + (apply (lambda (#{a\ 10323}# + #{b\ 10324}#) + (#{req\ 10300}# + #{b\ 10324}# + (cons #{a\ 10323}# + #{rreq\ 10311}#))) + #{tmp\ 10316}#) + ((lambda (#{tmp\ 10325}#) + (if (if #{tmp\ 10325}# + (apply (lambda (#{r\ 10327}#) + (#{id?\ 9414}# + #{r\ 10327}#)) + #{tmp\ 10325}#) #f) - (apply (lambda (#{r\ 1175}#) - (#{check\ 1148}# + (apply (lambda (#{r\ 10329}#) + (#{check\ 10302}# (reverse - #{rreq\ 1157}#) - #{r\ 1175}#)) - #{tmp\ 1171}#) - ((lambda (#{else\ 1177}#) + #{rreq\ 10311}#) + #{r\ 10329}#)) + #{tmp\ 10325}#) + ((lambda (#{else\ 10331}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args\ 1143}# - #{args\ 1156}#)) - #{tmp\ 1160}#))) - (list #{tmp\ 1160}#)))) + #{orig-args\ 10297}# + #{args\ 10310}#)) + #{tmp\ 10314}#))) + (list #{tmp\ 10314}#)))) ($sc-dispatch - #{tmp\ 1160}# + #{tmp\ 10314}# '(any . any))))) - ($sc-dispatch #{tmp\ 1160}# (quote ())))) - #{args\ 1156}#)))) - (#{req\ 1146}# #{orig-args\ 1143}# (quote ()))))) - (#{ellipsis?\ 361}# - (lambda (#{x\ 1178}#) - (if (#{nonsymbol-id?\ 258}# #{x\ 1178}#) - (#{free-id=?\ 319}# - #{x\ 1178}# + ($sc-dispatch #{tmp\ 10314}# (quote ())))) + #{args\ 10310}#)))) + (#{req\ 10300}# #{orig-args\ 10297}# (quote ()))))) + (#{ellipsis?\ 9515}# + (lambda (#{x\ 10332}#) + (if (#{nonsymbol-id?\ 9412}# #{x\ 10332}#) + (#{free-id=?\ 9473}# + #{x\ 10332}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1179")) + #(ribcage #(x) #((top)) #("i10333")) #(ribcage (lambda-var-list gen-var @@ -2187,1366 +2197,1372 @@ (top) (top) (top)) - ("i374" - "i372" - "i370" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i303" - "i302" - "i300" - "i299" - "i298" - "i297" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i277" - "i275" - "i274" - "i273" - "i272" - "i271" - "i270" - "i268" - "i266" - "i264" - "i262" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i246" - "i244" - "i242" - "i241" - "i240" - "i238" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207" - "i205" - "i203" - "i201" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i174" - "i172" - "i170" - "i168" - "i166" - "i164" - "i162" - "i160" - "i158")) + ("i9528" + "i9526" + "i9524" + "i9522" + "i9520" + "i9518" + "i9516" + "i9514" + "i9512" + "i9510" + "i9508" + "i9506" + "i9504" + "i9502" + "i9500" + "i9498" + "i9496" + "i9494" + "i9492" + "i9490" + "i9488" + "i9486" + "i9484" + "i9482" + "i9480" + "i9478" + "i9476" + "i9474" + "i9472" + "i9470" + "i9468" + "i9466" + "i9464" + "i9462" + "i9460" + "i9458" + "i9457" + "i9456" + "i9454" + "i9453" + "i9452" + "i9451" + "i9450" + "i9448" + "i9446" + "i9444" + "i9442" + "i9440" + "i9438" + "i9436" + "i9434" + "i9431" + "i9429" + "i9428" + "i9427" + "i9426" + "i9425" + "i9424" + "i9422" + "i9420" + "i9418" + "i9416" + "i9415" + "i9413" + "i9411" + "i9409" + "i9407" + "i9405" + "i9403" + "i9401" + "i9400" + "i9398" + "i9396" + "i9395" + "i9394" + "i9392" + "i9391" + "i9389" + "i9387" + "i9385" + "i9383" + "i9381" + "i9379" + "i9377" + "i9375" + "i9373" + "i9371" + "i9369" + "i9367" + "i9365" + "i9363" + "i9361" + "i9359" + "i9357" + "i9355" + "i9353" + "i9351" + "i9349" + "i9347" + "i9345" + "i9343" + "i9341" + "i9339" + "i9337" + "i9335" + "i9333" + "i9331" + "i9329" + "i9328" + "i9326" + "i9324" + "i9322" + "i9320" + "i9318" + "i9316" + "i9314" + "i9312")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i61" "i59"))) + ("i9215" "i9213"))) (hygiene guile))) #f))) - (#{chi-void\ 359}# - (lambda () (#{build-void\ 182}# #f))) - (#{eval-local-transformer\ 357}# - (lambda (#{expanded\ 1183}# #{mod\ 1184}#) - (let ((#{p\ 1188}# - (#{local-eval-hook\ 173}# - #{expanded\ 1183}# - #{mod\ 1184}#))) - (if (procedure? #{p\ 1188}#) - (cons #{p\ 1188}# (module-name (current-module))) + (#{chi-void\ 9513}# + (lambda () (#{build-void\ 9336}# #f))) + (#{eval-local-transformer\ 9511}# + (lambda (#{expanded\ 10337}# #{mod\ 10338}#) + (let ((#{p\ 10342}# + (#{local-eval-hook\ 9327}# + #{expanded\ 10337}# + #{mod\ 10338}#))) + (if (procedure? #{p\ 10342}#) + (cons #{p\ 10342}# + (module-name (current-module))) (syntax-violation #f "nonprocedure transformer" - #{p\ 1188}#))))) - (#{chi-local-syntax\ 355}# - (lambda (#{rec?\ 1189}# - #{e\ 1190}# - #{r\ 1191}# - #{w\ 1192}# - #{s\ 1193}# - #{mod\ 1194}# - #{k\ 1195}#) - ((lambda (#{tmp\ 1203}#) - ((lambda (#{tmp\ 1204}#) - (if #{tmp\ 1204}# - (apply (lambda (#{_\ 1210}# - #{id\ 1211}# - #{val\ 1212}# - #{e1\ 1213}# - #{e2\ 1214}#) - (let ((#{ids\ 1216}# #{id\ 1211}#)) - (if (not (#{valid-bound-ids?\ 323}# - #{ids\ 1216}#)) + #{p\ 10342}#))))) + (#{chi-local-syntax\ 9509}# + (lambda (#{rec?\ 10343}# + #{e\ 10344}# + #{r\ 10345}# + #{w\ 10346}# + #{s\ 10347}# + #{mod\ 10348}# + #{k\ 10349}#) + ((lambda (#{tmp\ 10357}#) + ((lambda (#{tmp\ 10358}#) + (if #{tmp\ 10358}# + (apply (lambda (#{_\ 10364}# + #{id\ 10365}# + #{val\ 10366}# + #{e1\ 10367}# + #{e2\ 10368}#) + (let ((#{ids\ 10370}# #{id\ 10365}#)) + (if (not (#{valid-bound-ids?\ 9477}# + #{ids\ 10370}#)) (syntax-violation #f "duplicate bound keyword" - #{e\ 1190}#) - (let ((#{labels\ 1219}# - (#{gen-labels\ 278}# - #{ids\ 1216}#))) - (let ((#{new-w\ 1221}# - (#{make-binding-wrap\ 307}# - #{ids\ 1216}# - #{labels\ 1219}# - #{w\ 1192}#))) - (#{k\ 1195}# - (cons #{e1\ 1213}# #{e2\ 1214}#) - (#{extend-env\ 248}# - #{labels\ 1219}# - (let ((#{w\ 1225}# - (if #{rec?\ 1189}# - #{new-w\ 1221}# - #{w\ 1192}#)) - (#{trans-r\ 1226}# - (#{macros-only-env\ 252}# - #{r\ 1191}#))) - (map (lambda (#{x\ 1227}#) + #{e\ 10344}#) + (let ((#{labels\ 10373}# + (#{gen-labels\ 9432}# + #{ids\ 10370}#))) + (let ((#{new-w\ 10375}# + (#{make-binding-wrap\ 9461}# + #{ids\ 10370}# + #{labels\ 10373}# + #{w\ 10346}#))) + (#{k\ 10349}# + (cons #{e1\ 10367}# #{e2\ 10368}#) + (#{extend-env\ 9402}# + #{labels\ 10373}# + (let ((#{w\ 10379}# + (if #{rec?\ 10343}# + #{new-w\ 10375}# + #{w\ 10346}#)) + (#{trans-r\ 10380}# + (#{macros-only-env\ 9406}# + #{r\ 10345}#))) + (map (lambda (#{x\ 10381}#) (cons 'macro - (#{eval-local-transformer\ 357}# - (#{chi\ 345}# - #{x\ 1227}# - #{trans-r\ 1226}# - #{w\ 1225}# - #{mod\ 1194}#) - #{mod\ 1194}#))) - #{val\ 1212}#)) - #{r\ 1191}#) - #{new-w\ 1221}# - #{s\ 1193}# - #{mod\ 1194}#)))))) - #{tmp\ 1204}#) - ((lambda (#{_\ 1232}#) + (#{eval-local-transformer\ 9511}# + (#{chi\ 9499}# + #{x\ 10381}# + #{trans-r\ 10380}# + #{w\ 10379}# + #{mod\ 10348}#) + #{mod\ 10348}#))) + #{val\ 10366}#)) + #{r\ 10345}#) + #{new-w\ 10375}# + #{s\ 10347}# + #{mod\ 10348}#)))))) + #{tmp\ 10358}#) + ((lambda (#{_\ 10386}#) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 331}# - #{e\ 1190}# - #{w\ 1192}# - #{s\ 1193}# - #{mod\ 1194}#))) - #{tmp\ 1203}#))) + (#{source-wrap\ 9485}# + #{e\ 10344}# + #{w\ 10346}# + #{s\ 10347}# + #{mod\ 10348}#))) + #{tmp\ 10357}#))) ($sc-dispatch - #{tmp\ 1203}# + #{tmp\ 10357}# '(any #(each (any any)) any . each-any)))) - #{e\ 1190}#))) - (#{chi-body\ 353}# - (lambda (#{body\ 1233}# - #{outer-form\ 1234}# - #{r\ 1235}# - #{w\ 1236}# - #{mod\ 1237}#) - (let ((#{r\ 1245}# + #{e\ 10344}#))) + (#{chi-body\ 9507}# + (lambda (#{body\ 10387}# + #{outer-form\ 10388}# + #{r\ 10389}# + #{w\ 10390}# + #{mod\ 10391}#) + (let ((#{r\ 10399}# (cons '("placeholder" placeholder) - #{r\ 1235}#))) - (let ((#{ribcage\ 1247}# - (#{make-ribcage\ 281}# + #{r\ 10389}#))) + (let ((#{ribcage\ 10401}# + (#{make-ribcage\ 9435}# '() '() '()))) - (let ((#{w\ 1250}# - (#{make-wrap\ 265}# - (#{wrap-marks\ 267}# #{w\ 1236}#) - (cons #{ribcage\ 1247}# - (#{wrap-subst\ 269}# #{w\ 1236}#))))) - (letrec ((#{parse\ 1259}# - (lambda (#{body\ 1260}# - #{ids\ 1261}# - #{labels\ 1262}# - #{var-ids\ 1263}# - #{vars\ 1264}# - #{vals\ 1265}# - #{bindings\ 1266}#) - (if (null? #{body\ 1260}#) + (let ((#{w\ 10404}# + (#{make-wrap\ 9419}# + (#{wrap-marks\ 9421}# #{w\ 10390}#) + (cons #{ribcage\ 10401}# + (#{wrap-subst\ 9423}# #{w\ 10390}#))))) + (letrec ((#{parse\ 10413}# + (lambda (#{body\ 10414}# + #{ids\ 10415}# + #{labels\ 10416}# + #{var-ids\ 10417}# + #{vars\ 10418}# + #{vals\ 10419}# + #{bindings\ 10420}#) + (if (null? #{body\ 10414}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 1234}#) - (let ((#{e\ 1271}# (cdar #{body\ 1260}#)) - (#{er\ 1272}# (caar #{body\ 1260}#))) + #{outer-form\ 10388}#) + (let ((#{e\ 10425}# (cdar #{body\ 10414}#)) + (#{er\ 10426}# + (caar #{body\ 10414}#))) (call-with-values (lambda () - (#{syntax-type\ 341}# - #{e\ 1271}# - #{er\ 1272}# + (#{syntax-type\ 9495}# + #{e\ 10425}# + #{er\ 10426}# '(()) - (#{source-annotation\ 239}# - #{er\ 1272}#) - #{ribcage\ 1247}# - #{mod\ 1237}# + (#{source-annotation\ 9393}# + #{er\ 10426}#) + #{ribcage\ 10401}# + #{mod\ 10391}# #f)) - (lambda (#{type\ 1274}# - #{value\ 1275}# - #{e\ 1276}# - #{w\ 1277}# - #{s\ 1278}# - #{mod\ 1279}#) - (if (memv #{type\ 1274}# + (lambda (#{type\ 10428}# + #{value\ 10429}# + #{e\ 10430}# + #{w\ 10431}# + #{s\ 10432}# + #{mod\ 10433}#) + (if (memv #{type\ 10428}# '(define-form)) - (let ((#{id\ 1289}# - (#{wrap\ 329}# - #{value\ 1275}# - #{w\ 1277}# - #{mod\ 1279}#)) - (#{label\ 1290}# - (#{gen-label\ 276}#))) - (let ((#{var\ 1292}# - (#{gen-var\ 373}# - #{id\ 1289}#))) + (let ((#{id\ 10443}# + (#{wrap\ 9483}# + #{value\ 10429}# + #{w\ 10431}# + #{mod\ 10433}#)) + (#{label\ 10444}# + (#{gen-label\ 9430}#))) + (let ((#{var\ 10446}# + (#{gen-var\ 9527}# + #{id\ 10443}#))) (begin - (#{extend-ribcage!\ 305}# - #{ribcage\ 1247}# - #{id\ 1289}# - #{label\ 1290}#) - (#{parse\ 1259}# - (cdr #{body\ 1260}#) - (cons #{id\ 1289}# - #{ids\ 1261}#) - (cons #{label\ 1290}# - #{labels\ 1262}#) - (cons #{id\ 1289}# - #{var-ids\ 1263}#) - (cons #{var\ 1292}# - #{vars\ 1264}#) - (cons (cons #{er\ 1272}# - (#{wrap\ 329}# - #{e\ 1276}# - #{w\ 1277}# - #{mod\ 1279}#)) - #{vals\ 1265}#) + (#{extend-ribcage!\ 9459}# + #{ribcage\ 10401}# + #{id\ 10443}# + #{label\ 10444}#) + (#{parse\ 10413}# + (cdr #{body\ 10414}#) + (cons #{id\ 10443}# + #{ids\ 10415}#) + (cons #{label\ 10444}# + #{labels\ 10416}#) + (cons #{id\ 10443}# + #{var-ids\ 10417}#) + (cons #{var\ 10446}# + #{vars\ 10418}#) + (cons (cons #{er\ 10426}# + (#{wrap\ 9483}# + #{e\ 10430}# + #{w\ 10431}# + #{mod\ 10433}#)) + #{vals\ 10419}#) (cons (cons 'lexical - #{var\ 1292}#) - #{bindings\ 1266}#))))) - (if (memv #{type\ 1274}# + #{var\ 10446}#) + #{bindings\ 10420}#))))) + (if (memv #{type\ 10428}# '(define-syntax-form)) - (let ((#{id\ 1297}# - (#{wrap\ 329}# - #{value\ 1275}# - #{w\ 1277}# - #{mod\ 1279}#)) - (#{label\ 1298}# - (#{gen-label\ 276}#))) + (let ((#{id\ 10451}# + (#{wrap\ 9483}# + #{value\ 10429}# + #{w\ 10431}# + #{mod\ 10433}#)) + (#{label\ 10452}# + (#{gen-label\ 9430}#))) (begin - (#{extend-ribcage!\ 305}# - #{ribcage\ 1247}# - #{id\ 1297}# - #{label\ 1298}#) - (#{parse\ 1259}# - (cdr #{body\ 1260}#) - (cons #{id\ 1297}# - #{ids\ 1261}#) - (cons #{label\ 1298}# - #{labels\ 1262}#) - #{var-ids\ 1263}# - #{vars\ 1264}# - #{vals\ 1265}# + (#{extend-ribcage!\ 9459}# + #{ribcage\ 10401}# + #{id\ 10451}# + #{label\ 10452}#) + (#{parse\ 10413}# + (cdr #{body\ 10414}#) + (cons #{id\ 10451}# + #{ids\ 10415}#) + (cons #{label\ 10452}# + #{labels\ 10416}#) + #{var-ids\ 10417}# + #{vars\ 10418}# + #{vals\ 10419}# (cons (cons 'macro - (cons #{er\ 1272}# - (#{wrap\ 329}# - #{e\ 1276}# - #{w\ 1277}# - #{mod\ 1279}#))) - #{bindings\ 1266}#)))) - (if (memv #{type\ 1274}# + (cons #{er\ 10426}# + (#{wrap\ 9483}# + #{e\ 10430}# + #{w\ 10431}# + #{mod\ 10433}#))) + #{bindings\ 10420}#)))) + (if (memv #{type\ 10428}# '(begin-form)) - ((lambda (#{tmp\ 1301}#) - ((lambda (#{tmp\ 1302}#) - (if #{tmp\ 1302}# - (apply (lambda (#{_\ 1305}# - #{e1\ 1306}#) - (#{parse\ 1259}# - (letrec ((#{f\ 1309}# - (lambda (#{forms\ 1310}#) - (if (null? #{forms\ 1310}#) - (cdr #{body\ 1260}#) - (cons (cons #{er\ 1272}# - (#{wrap\ 329}# - (car #{forms\ 1310}#) - #{w\ 1277}# - #{mod\ 1279}#)) - (#{f\ 1309}# - (cdr #{forms\ 1310}#))))))) - (#{f\ 1309}# - #{e1\ 1306}#)) - #{ids\ 1261}# - #{labels\ 1262}# - #{var-ids\ 1263}# - #{vars\ 1264}# - #{vals\ 1265}# - #{bindings\ 1266}#)) - #{tmp\ 1302}#) + ((lambda (#{tmp\ 10455}#) + ((lambda (#{tmp\ 10456}#) + (if #{tmp\ 10456}# + (apply (lambda (#{_\ 10459}# + #{e1\ 10460}#) + (#{parse\ 10413}# + (letrec ((#{f\ 10463}# + (lambda (#{forms\ 10464}#) + (if (null? #{forms\ 10464}#) + (cdr #{body\ 10414}#) + (cons (cons #{er\ 10426}# + (#{wrap\ 9483}# + (car #{forms\ 10464}#) + #{w\ 10431}# + #{mod\ 10433}#)) + (#{f\ 10463}# + (cdr #{forms\ 10464}#))))))) + (#{f\ 10463}# + #{e1\ 10460}#)) + #{ids\ 10415}# + #{labels\ 10416}# + #{var-ids\ 10417}# + #{vars\ 10418}# + #{vals\ 10419}# + #{bindings\ 10420}#)) + #{tmp\ 10456}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1301}#))) + #{tmp\ 10455}#))) ($sc-dispatch - #{tmp\ 1301}# + #{tmp\ 10455}# '(any . each-any)))) - #{e\ 1276}#) - (if (memv #{type\ 1274}# + #{e\ 10430}#) + (if (memv #{type\ 10428}# '(local-syntax-form)) - (#{chi-local-syntax\ 355}# - #{value\ 1275}# - #{e\ 1276}# - #{er\ 1272}# - #{w\ 1277}# - #{s\ 1278}# - #{mod\ 1279}# - (lambda (#{forms\ 1313}# - #{er\ 1314}# - #{w\ 1315}# - #{s\ 1316}# - #{mod\ 1317}#) - (#{parse\ 1259}# - (letrec ((#{f\ 1325}# - (lambda (#{forms\ 1326}#) - (if (null? #{forms\ 1326}#) - (cdr #{body\ 1260}#) - (cons (cons #{er\ 1314}# - (#{wrap\ 329}# - (car #{forms\ 1326}#) - #{w\ 1315}# - #{mod\ 1317}#)) - (#{f\ 1325}# - (cdr #{forms\ 1326}#))))))) - (#{f\ 1325}# - #{forms\ 1313}#)) - #{ids\ 1261}# - #{labels\ 1262}# - #{var-ids\ 1263}# - #{vars\ 1264}# - #{vals\ 1265}# - #{bindings\ 1266}#))) - (if (null? #{ids\ 1261}#) - (#{build-sequence\ 212}# + (#{chi-local-syntax\ 9509}# + #{value\ 10429}# + #{e\ 10430}# + #{er\ 10426}# + #{w\ 10431}# + #{s\ 10432}# + #{mod\ 10433}# + (lambda (#{forms\ 10467}# + #{er\ 10468}# + #{w\ 10469}# + #{s\ 10470}# + #{mod\ 10471}#) + (#{parse\ 10413}# + (letrec ((#{f\ 10479}# + (lambda (#{forms\ 10480}#) + (if (null? #{forms\ 10480}#) + (cdr #{body\ 10414}#) + (cons (cons #{er\ 10468}# + (#{wrap\ 9483}# + (car #{forms\ 10480}#) + #{w\ 10469}# + #{mod\ 10471}#)) + (#{f\ 10479}# + (cdr #{forms\ 10480}#))))))) + (#{f\ 10479}# + #{forms\ 10467}#)) + #{ids\ 10415}# + #{labels\ 10416}# + #{var-ids\ 10417}# + #{vars\ 10418}# + #{vals\ 10419}# + #{bindings\ 10420}#))) + (if (null? #{ids\ 10415}#) + (#{build-sequence\ 9366}# #f - (map (lambda (#{x\ 1329}#) - (#{chi\ 345}# - (cdr #{x\ 1329}#) - (car #{x\ 1329}#) + (map (lambda (#{x\ 10483}#) + (#{chi\ 9499}# + (cdr #{x\ 10483}#) + (car #{x\ 10483}#) '(()) - #{mod\ 1279}#)) - (cons (cons #{er\ 1272}# - (#{source-wrap\ 331}# - #{e\ 1276}# - #{w\ 1277}# - #{s\ 1278}# - #{mod\ 1279}#)) - (cdr #{body\ 1260}#)))) + #{mod\ 10433}#)) + (cons (cons #{er\ 10426}# + (#{source-wrap\ 9485}# + #{e\ 10430}# + #{w\ 10431}# + #{s\ 10432}# + #{mod\ 10433}#)) + (cdr #{body\ 10414}#)))) (begin - (if (not (#{valid-bound-ids?\ 323}# - #{ids\ 1261}#)) + (if (not (#{valid-bound-ids?\ 9477}# + #{ids\ 10415}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form\ 1234}#)) - (letrec ((#{loop\ 1336}# - (lambda (#{bs\ 1337}# - #{er-cache\ 1338}# - #{r-cache\ 1339}#) - (if (not (null? #{bs\ 1337}#)) - (let ((#{b\ 1342}# - (car #{bs\ 1337}#))) - (if (eq? (car #{b\ 1342}#) + #{outer-form\ 10388}#)) + (letrec ((#{loop\ 10490}# + (lambda (#{bs\ 10491}# + #{er-cache\ 10492}# + #{r-cache\ 10493}#) + (if (not (null? #{bs\ 10491}#)) + (let ((#{b\ 10496}# + (car #{bs\ 10491}#))) + (if (eq? (car #{b\ 10496}#) 'macro) - (let ((#{er\ 1345}# - (cadr #{b\ 1342}#))) - (let ((#{r-cache\ 1347}# - (if (eq? #{er\ 1345}# - #{er-cache\ 1338}#) - #{r-cache\ 1339}# - (#{macros-only-env\ 252}# - #{er\ 1345}#)))) + (let ((#{er\ 10499}# + (cadr #{b\ 10496}#))) + (let ((#{r-cache\ 10501}# + (if (eq? #{er\ 10499}# + #{er-cache\ 10492}#) + #{r-cache\ 10493}# + (#{macros-only-env\ 9406}# + #{er\ 10499}#)))) (begin (set-cdr! - #{b\ 1342}# - (#{eval-local-transformer\ 357}# - (#{chi\ 345}# - (cddr #{b\ 1342}#) - #{r-cache\ 1347}# + #{b\ 10496}# + (#{eval-local-transformer\ 9511}# + (#{chi\ 9499}# + (cddr #{b\ 10496}#) + #{r-cache\ 10501}# '(()) - #{mod\ 1279}#) - #{mod\ 1279}#)) - (#{loop\ 1336}# - (cdr #{bs\ 1337}#) - #{er\ 1345}# - #{r-cache\ 1347}#)))) - (#{loop\ 1336}# - (cdr #{bs\ 1337}#) - #{er-cache\ 1338}# - #{r-cache\ 1339}#))))))) - (#{loop\ 1336}# - #{bindings\ 1266}# + #{mod\ 10433}#) + #{mod\ 10433}#)) + (#{loop\ 10490}# + (cdr #{bs\ 10491}#) + #{er\ 10499}# + #{r-cache\ 10501}#)))) + (#{loop\ 10490}# + (cdr #{bs\ 10491}#) + #{er-cache\ 10492}# + #{r-cache\ 10493}#))))))) + (#{loop\ 10490}# + #{bindings\ 10420}# #f #f)) (set-cdr! - #{r\ 1245}# - (#{extend-env\ 248}# - #{labels\ 1262}# - #{bindings\ 1266}# - (cdr #{r\ 1245}#))) - (#{build-letrec\ 218}# + #{r\ 10399}# + (#{extend-env\ 9402}# + #{labels\ 10416}# + #{bindings\ 10420}# + (cdr #{r\ 10399}#))) + (#{build-letrec\ 9372}# #f (map syntax->datum - #{var-ids\ 1263}#) - #{vars\ 1264}# - (map (lambda (#{x\ 1350}#) - (#{chi\ 345}# - (cdr #{x\ 1350}#) - (car #{x\ 1350}#) + #{var-ids\ 10417}#) + #{vars\ 10418}# + (map (lambda (#{x\ 10504}#) + (#{chi\ 9499}# + (cdr #{x\ 10504}#) + (car #{x\ 10504}#) '(()) - #{mod\ 1279}#)) - #{vals\ 1265}#) - (#{build-sequence\ 212}# + #{mod\ 10433}#)) + #{vals\ 10419}#) + (#{build-sequence\ 9366}# #f - (map (lambda (#{x\ 1354}#) - (#{chi\ 345}# - (cdr #{x\ 1354}#) - (car #{x\ 1354}#) + (map (lambda (#{x\ 10508}#) + (#{chi\ 9499}# + (cdr #{x\ 10508}#) + (car #{x\ 10508}#) '(()) - #{mod\ 1279}#)) - (cons (cons #{er\ 1272}# - (#{source-wrap\ 331}# - #{e\ 1276}# - #{w\ 1277}# - #{s\ 1278}# - #{mod\ 1279}#)) - (cdr #{body\ 1260}#)))))))))))))))))) - (#{parse\ 1259}# - (map (lambda (#{x\ 1267}#) - (cons #{r\ 1245}# - (#{wrap\ 329}# - #{x\ 1267}# - #{w\ 1250}# - #{mod\ 1237}#))) - #{body\ 1233}#) + #{mod\ 10433}#)) + (cons (cons #{er\ 10426}# + (#{source-wrap\ 9485}# + #{e\ 10430}# + #{w\ 10431}# + #{s\ 10432}# + #{mod\ 10433}#)) + (cdr #{body\ 10414}#)))))))))))))))))) + (#{parse\ 10413}# + (map (lambda (#{x\ 10421}#) + (cons #{r\ 10399}# + (#{wrap\ 9483}# + #{x\ 10421}# + #{w\ 10404}# + #{mod\ 10391}#))) + #{body\ 10387}#) '() '() '() '() '() '()))))))) - (#{chi-macro\ 351}# - (lambda (#{p\ 1357}# - #{e\ 1358}# - #{r\ 1359}# - #{w\ 1360}# - #{rib\ 1361}# - #{mod\ 1362}#) - (letrec ((#{rebuild-macro-output\ 1370}# - (lambda (#{x\ 1371}# #{m\ 1372}#) - (if (pair? #{x\ 1371}#) - (cons (#{rebuild-macro-output\ 1370}# - (car #{x\ 1371}#) - #{m\ 1372}#) - (#{rebuild-macro-output\ 1370}# - (cdr #{x\ 1371}#) - #{m\ 1372}#)) - (if (#{syntax-object?\ 224}# #{x\ 1371}#) - (let ((#{w\ 1380}# - (#{syntax-object-wrap\ 228}# - #{x\ 1371}#))) - (let ((#{ms\ 1383}# - (#{wrap-marks\ 267}# #{w\ 1380}#)) - (#{s\ 1384}# - (#{wrap-subst\ 269}# #{w\ 1380}#))) - (if (if (pair? #{ms\ 1383}#) - (eq? (car #{ms\ 1383}#) #f) + (#{chi-macro\ 9505}# + (lambda (#{p\ 10511}# + #{e\ 10512}# + #{r\ 10513}# + #{w\ 10514}# + #{rib\ 10515}# + #{mod\ 10516}#) + (letrec ((#{rebuild-macro-output\ 10524}# + (lambda (#{x\ 10525}# #{m\ 10526}#) + (if (pair? #{x\ 10525}#) + (cons (#{rebuild-macro-output\ 10524}# + (car #{x\ 10525}#) + #{m\ 10526}#) + (#{rebuild-macro-output\ 10524}# + (cdr #{x\ 10525}#) + #{m\ 10526}#)) + (if (#{syntax-object?\ 9378}# #{x\ 10525}#) + (let ((#{w\ 10534}# + (#{syntax-object-wrap\ 9382}# + #{x\ 10525}#))) + (let ((#{ms\ 10537}# + (#{wrap-marks\ 9421}# #{w\ 10534}#)) + (#{s\ 10538}# + (#{wrap-subst\ 9423}# #{w\ 10534}#))) + (if (if (pair? #{ms\ 10537}#) + (eq? (car #{ms\ 10537}#) #f) #f) - (#{make-syntax-object\ 222}# - (#{syntax-object-expression\ 226}# - #{x\ 1371}#) - (#{make-wrap\ 265}# - (cdr #{ms\ 1383}#) - (if #{rib\ 1361}# - (cons #{rib\ 1361}# - (cdr #{s\ 1384}#)) - (cdr #{s\ 1384}#))) - (#{syntax-object-module\ 230}# - #{x\ 1371}#)) - (#{make-syntax-object\ 222}# - (#{syntax-object-expression\ 226}# - #{x\ 1371}#) - (#{make-wrap\ 265}# - (cons #{m\ 1372}# #{ms\ 1383}#) - (if #{rib\ 1361}# - (cons #{rib\ 1361}# + (#{make-syntax-object\ 9376}# + (#{syntax-object-expression\ 9380}# + #{x\ 10525}#) + (#{make-wrap\ 9419}# + (cdr #{ms\ 10537}#) + (if #{rib\ 10515}# + (cons #{rib\ 10515}# + (cdr #{s\ 10538}#)) + (cdr #{s\ 10538}#))) + (#{syntax-object-module\ 9384}# + #{x\ 10525}#)) + (#{make-syntax-object\ 9376}# + (#{syntax-object-expression\ 9380}# + #{x\ 10525}#) + (#{make-wrap\ 9419}# + (cons #{m\ 10526}# #{ms\ 10537}#) + (if #{rib\ 10515}# + (cons #{rib\ 10515}# (cons 'shift - #{s\ 1384}#)) - (cons (quote shift) #{s\ 1384}#))) + #{s\ 10538}#)) + (cons (quote shift) #{s\ 10538}#))) (cons 'hygiene - (cdr #{p\ 1357}#)))))) - (if (vector? #{x\ 1371}#) - (let ((#{n\ 1392}# - (vector-length #{x\ 1371}#))) - (let ((#{v\ 1394}# - (make-vector #{n\ 1392}#))) - (letrec ((#{loop\ 1397}# - (lambda (#{i\ 1398}#) - (if (#{fx=\ 167}# - #{i\ 1398}# - #{n\ 1392}#) + (cdr #{p\ 10511}#)))))) + (if (vector? #{x\ 10525}#) + (let ((#{n\ 10546}# + (vector-length #{x\ 10525}#))) + (let ((#{v\ 10548}# + (make-vector #{n\ 10546}#))) + (letrec ((#{loop\ 10551}# + (lambda (#{i\ 10552}#) + (if (#{fx=\ 9321}# + #{i\ 10552}# + #{n\ 10546}#) (begin (if #f #f) - #{v\ 1394}#) + #{v\ 10548}#) (begin (vector-set! - #{v\ 1394}# - #{i\ 1398}# - (#{rebuild-macro-output\ 1370}# + #{v\ 10548}# + #{i\ 10552}# + (#{rebuild-macro-output\ 10524}# (vector-ref - #{x\ 1371}# - #{i\ 1398}#) - #{m\ 1372}#)) - (#{loop\ 1397}# - (#{fx+\ 163}# - #{i\ 1398}# + #{x\ 10525}# + #{i\ 10552}#) + #{m\ 10526}#)) + (#{loop\ 10551}# + (#{fx+\ 9317}# + #{i\ 10552}# 1))))))) - (#{loop\ 1397}# 0)))) - (if (symbol? #{x\ 1371}#) + (#{loop\ 10551}# 0)))) + (if (symbol? #{x\ 10525}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 331}# - #{e\ 1358}# - #{w\ 1360}# - (#{wrap-subst\ 269}# #{w\ 1360}#) - #{mod\ 1362}#) - #{x\ 1371}#) - #{x\ 1371}#))))))) - (#{rebuild-macro-output\ 1370}# - ((car #{p\ 1357}#) - (#{wrap\ 329}# - #{e\ 1358}# - (#{anti-mark\ 301}# #{w\ 1360}#) - #{mod\ 1362}#)) + (#{source-wrap\ 9485}# + #{e\ 10512}# + #{w\ 10514}# + (#{wrap-subst\ 9423}# #{w\ 10514}#) + #{mod\ 10516}#) + #{x\ 10525}#) + #{x\ 10525}#))))))) + (#{rebuild-macro-output\ 10524}# + ((car #{p\ 10511}#) + (#{wrap\ 9483}# + #{e\ 10512}# + (#{anti-mark\ 9455}# #{w\ 10514}#) + #{mod\ 10516}#)) (gensym "m"))))) - (#{chi-application\ 349}# - (lambda (#{x\ 1405}# - #{e\ 1406}# - #{r\ 1407}# - #{w\ 1408}# - #{s\ 1409}# - #{mod\ 1410}#) - ((lambda (#{tmp\ 1417}#) - ((lambda (#{tmp\ 1418}#) - (if #{tmp\ 1418}# - (apply (lambda (#{e0\ 1421}# #{e1\ 1422}#) - (#{build-application\ 184}# - #{s\ 1409}# - #{x\ 1405}# - (map (lambda (#{e\ 1423}#) - (#{chi\ 345}# - #{e\ 1423}# - #{r\ 1407}# - #{w\ 1408}# - #{mod\ 1410}#)) - #{e1\ 1422}#))) - #{tmp\ 1418}#) + (#{chi-application\ 9503}# + (lambda (#{x\ 10559}# + #{e\ 10560}# + #{r\ 10561}# + #{w\ 10562}# + #{s\ 10563}# + #{mod\ 10564}#) + ((lambda (#{tmp\ 10571}#) + ((lambda (#{tmp\ 10572}#) + (if #{tmp\ 10572}# + (apply (lambda (#{e0\ 10575}# #{e1\ 10576}#) + (#{build-application\ 9338}# + #{s\ 10563}# + #{x\ 10559}# + (map (lambda (#{e\ 10577}#) + (#{chi\ 9499}# + #{e\ 10577}# + #{r\ 10561}# + #{w\ 10562}# + #{mod\ 10564}#)) + #{e1\ 10576}#))) + #{tmp\ 10572}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1417}#))) + #{tmp\ 10571}#))) ($sc-dispatch - #{tmp\ 1417}# + #{tmp\ 10571}# '(any . each-any)))) - #{e\ 1406}#))) - (#{chi-expr\ 347}# - (lambda (#{type\ 1426}# - #{value\ 1427}# - #{e\ 1428}# - #{r\ 1429}# - #{w\ 1430}# - #{s\ 1431}# - #{mod\ 1432}#) - (if (memv #{type\ 1426}# (quote (lexical))) - (#{build-lexical-reference\ 188}# + #{e\ 10560}#))) + (#{chi-expr\ 9501}# + (lambda (#{type\ 10580}# + #{value\ 10581}# + #{e\ 10582}# + #{r\ 10583}# + #{w\ 10584}# + #{s\ 10585}# + #{mod\ 10586}#) + (if (memv #{type\ 10580}# (quote (lexical))) + (#{build-lexical-reference\ 9342}# 'value - #{s\ 1431}# - #{e\ 1428}# - #{value\ 1427}#) - (if (memv #{type\ 1426}# (quote (core core-form))) - (#{value\ 1427}# - #{e\ 1428}# - #{r\ 1429}# - #{w\ 1430}# - #{s\ 1431}# - #{mod\ 1432}#) - (if (memv #{type\ 1426}# (quote (module-ref))) + #{s\ 10585}# + #{e\ 10582}# + #{value\ 10581}#) + (if (memv #{type\ 10580}# (quote (core core-form))) + (#{value\ 10581}# + #{e\ 10582}# + #{r\ 10583}# + #{w\ 10584}# + #{s\ 10585}# + #{mod\ 10586}#) + (if (memv #{type\ 10580}# (quote (module-ref))) (call-with-values - (lambda () (#{value\ 1427}# #{e\ 1428}#)) - (lambda (#{id\ 1443}# #{mod\ 1444}#) - (#{build-global-reference\ 194}# - #{s\ 1431}# - #{id\ 1443}# - #{mod\ 1444}#))) - (if (memv #{type\ 1426}# (quote (lexical-call))) - (#{chi-application\ 349}# - (#{build-lexical-reference\ 188}# + (lambda () (#{value\ 10581}# #{e\ 10582}#)) + (lambda (#{id\ 10597}# #{mod\ 10598}#) + (#{build-global-reference\ 9348}# + #{s\ 10585}# + #{id\ 10597}# + #{mod\ 10598}#))) + (if (memv #{type\ 10580}# (quote (lexical-call))) + (#{chi-application\ 9503}# + (#{build-lexical-reference\ 9342}# 'fun - (#{source-annotation\ 239}# (car #{e\ 1428}#)) - (car #{e\ 1428}#) - #{value\ 1427}#) - #{e\ 1428}# - #{r\ 1429}# - #{w\ 1430}# - #{s\ 1431}# - #{mod\ 1432}#) - (if (memv #{type\ 1426}# (quote (global-call))) - (#{chi-application\ 349}# - (#{build-global-reference\ 194}# - (#{source-annotation\ 239}# (car #{e\ 1428}#)) - (if (#{syntax-object?\ 224}# #{value\ 1427}#) - (#{syntax-object-expression\ 226}# - #{value\ 1427}#) - #{value\ 1427}#) - (if (#{syntax-object?\ 224}# #{value\ 1427}#) - (#{syntax-object-module\ 230}# #{value\ 1427}#) - #{mod\ 1432}#)) - #{e\ 1428}# - #{r\ 1429}# - #{w\ 1430}# - #{s\ 1431}# - #{mod\ 1432}#) - (if (memv #{type\ 1426}# (quote (constant))) - (#{build-data\ 210}# - #{s\ 1431}# - (#{strip\ 371}# - (#{source-wrap\ 331}# - #{e\ 1428}# - #{w\ 1430}# - #{s\ 1431}# - #{mod\ 1432}#) + (#{source-annotation\ 9393}# (car #{e\ 10582}#)) + (car #{e\ 10582}#) + #{value\ 10581}#) + #{e\ 10582}# + #{r\ 10583}# + #{w\ 10584}# + #{s\ 10585}# + #{mod\ 10586}#) + (if (memv #{type\ 10580}# (quote (global-call))) + (#{chi-application\ 9503}# + (#{build-global-reference\ 9348}# + (#{source-annotation\ 9393}# (car #{e\ 10582}#)) + (if (#{syntax-object?\ 9378}# #{value\ 10581}#) + (#{syntax-object-expression\ 9380}# + #{value\ 10581}#) + #{value\ 10581}#) + (if (#{syntax-object?\ 9378}# #{value\ 10581}#) + (#{syntax-object-module\ 9384}# + #{value\ 10581}#) + #{mod\ 10586}#)) + #{e\ 10582}# + #{r\ 10583}# + #{w\ 10584}# + #{s\ 10585}# + #{mod\ 10586}#) + (if (memv #{type\ 10580}# (quote (constant))) + (#{build-data\ 9364}# + #{s\ 10585}# + (#{strip\ 9525}# + (#{source-wrap\ 9485}# + #{e\ 10582}# + #{w\ 10584}# + #{s\ 10585}# + #{mod\ 10586}#) '(()))) - (if (memv #{type\ 1426}# (quote (global))) - (#{build-global-reference\ 194}# - #{s\ 1431}# - #{value\ 1427}# - #{mod\ 1432}#) - (if (memv #{type\ 1426}# (quote (call))) - (#{chi-application\ 349}# - (#{chi\ 345}# - (car #{e\ 1428}#) - #{r\ 1429}# - #{w\ 1430}# - #{mod\ 1432}#) - #{e\ 1428}# - #{r\ 1429}# - #{w\ 1430}# - #{s\ 1431}# - #{mod\ 1432}#) - (if (memv #{type\ 1426}# (quote (begin-form))) - ((lambda (#{tmp\ 1454}#) - ((lambda (#{tmp\ 1455}#) - (if #{tmp\ 1455}# - (apply (lambda (#{_\ 1459}# - #{e1\ 1460}# - #{e2\ 1461}#) - (#{chi-sequence\ 333}# - (cons #{e1\ 1460}# - #{e2\ 1461}#) - #{r\ 1429}# - #{w\ 1430}# - #{s\ 1431}# - #{mod\ 1432}#)) - #{tmp\ 1455}#) + (if (memv #{type\ 10580}# (quote (global))) + (#{build-global-reference\ 9348}# + #{s\ 10585}# + #{value\ 10581}# + #{mod\ 10586}#) + (if (memv #{type\ 10580}# (quote (call))) + (#{chi-application\ 9503}# + (#{chi\ 9499}# + (car #{e\ 10582}#) + #{r\ 10583}# + #{w\ 10584}# + #{mod\ 10586}#) + #{e\ 10582}# + #{r\ 10583}# + #{w\ 10584}# + #{s\ 10585}# + #{mod\ 10586}#) + (if (memv #{type\ 10580}# (quote (begin-form))) + ((lambda (#{tmp\ 10608}#) + ((lambda (#{tmp\ 10609}#) + (if #{tmp\ 10609}# + (apply (lambda (#{_\ 10613}# + #{e1\ 10614}# + #{e2\ 10615}#) + (#{chi-sequence\ 9487}# + (cons #{e1\ 10614}# + #{e2\ 10615}#) + #{r\ 10583}# + #{w\ 10584}# + #{s\ 10585}# + #{mod\ 10586}#)) + #{tmp\ 10609}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1454}#))) + #{tmp\ 10608}#))) ($sc-dispatch - #{tmp\ 1454}# + #{tmp\ 10608}# '(any any . each-any)))) - #{e\ 1428}#) - (if (memv #{type\ 1426}# + #{e\ 10582}#) + (if (memv #{type\ 10580}# '(local-syntax-form)) - (#{chi-local-syntax\ 355}# - #{value\ 1427}# - #{e\ 1428}# - #{r\ 1429}# - #{w\ 1430}# - #{s\ 1431}# - #{mod\ 1432}# - #{chi-sequence\ 333}#) - (if (memv #{type\ 1426}# + (#{chi-local-syntax\ 9509}# + #{value\ 10581}# + #{e\ 10582}# + #{r\ 10583}# + #{w\ 10584}# + #{s\ 10585}# + #{mod\ 10586}# + #{chi-sequence\ 9487}#) + (if (memv #{type\ 10580}# '(eval-when-form)) - ((lambda (#{tmp\ 1465}#) - ((lambda (#{tmp\ 1466}#) - (if #{tmp\ 1466}# - (apply (lambda (#{_\ 1471}# - #{x\ 1472}# - #{e1\ 1473}# - #{e2\ 1474}#) - (let ((#{when-list\ 1476}# - (#{chi-when-list\ 339}# - #{e\ 1428}# - #{x\ 1472}# - #{w\ 1430}#))) + ((lambda (#{tmp\ 10619}#) + ((lambda (#{tmp\ 10620}#) + (if #{tmp\ 10620}# + (apply (lambda (#{_\ 10625}# + #{x\ 10626}# + #{e1\ 10627}# + #{e2\ 10628}#) + (let ((#{when-list\ 10630}# + (#{chi-when-list\ 9493}# + #{e\ 10582}# + #{x\ 10626}# + #{w\ 10584}#))) (if (memq 'eval - #{when-list\ 1476}#) - (#{chi-sequence\ 333}# - (cons #{e1\ 1473}# - #{e2\ 1474}#) - #{r\ 1429}# - #{w\ 1430}# - #{s\ 1431}# - #{mod\ 1432}#) - (#{chi-void\ 359}#)))) - #{tmp\ 1466}#) + #{when-list\ 10630}#) + (#{chi-sequence\ 9487}# + (cons #{e1\ 10627}# + #{e2\ 10628}#) + #{r\ 10583}# + #{w\ 10584}# + #{s\ 10585}# + #{mod\ 10586}#) + (#{chi-void\ 9513}#)))) + #{tmp\ 10620}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1465}#))) + #{tmp\ 10619}#))) ($sc-dispatch - #{tmp\ 1465}# + #{tmp\ 10619}# '(any each-any any . each-any)))) - #{e\ 1428}#) - (if (memv #{type\ 1426}# + #{e\ 10582}#) + (if (memv #{type\ 10580}# '(define-form define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 1428}# - (#{wrap\ 329}# - #{value\ 1427}# - #{w\ 1430}# - #{mod\ 1432}#)) - (if (memv #{type\ 1426}# + #{e\ 10582}# + (#{wrap\ 9483}# + #{value\ 10581}# + #{w\ 10584}# + #{mod\ 10586}#)) + (if (memv #{type\ 10580}# '(syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 331}# - #{e\ 1428}# - #{w\ 1430}# - #{s\ 1431}# - #{mod\ 1432}#)) - (if (memv #{type\ 1426}# + (#{source-wrap\ 9485}# + #{e\ 10582}# + #{w\ 10584}# + #{s\ 10585}# + #{mod\ 10586}#)) + (if (memv #{type\ 10580}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 331}# - #{e\ 1428}# - #{w\ 1430}# - #{s\ 1431}# - #{mod\ 1432}#)) + (#{source-wrap\ 9485}# + #{e\ 10582}# + #{w\ 10584}# + #{s\ 10585}# + #{mod\ 10586}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 331}# - #{e\ 1428}# - #{w\ 1430}# - #{s\ 1431}# - #{mod\ 1432}#)))))))))))))))))) - (#{chi\ 345}# - (lambda (#{e\ 1483}# - #{r\ 1484}# - #{w\ 1485}# - #{mod\ 1486}#) + (#{source-wrap\ 9485}# + #{e\ 10582}# + #{w\ 10584}# + #{s\ 10585}# + #{mod\ 10586}#)))))))))))))))))) + (#{chi\ 9499}# + (lambda (#{e\ 10637}# + #{r\ 10638}# + #{w\ 10639}# + #{mod\ 10640}#) (call-with-values (lambda () - (#{syntax-type\ 341}# - #{e\ 1483}# - #{r\ 1484}# - #{w\ 1485}# - (#{source-annotation\ 239}# #{e\ 1483}#) + (#{syntax-type\ 9495}# + #{e\ 10637}# + #{r\ 10638}# + #{w\ 10639}# + (#{source-annotation\ 9393}# #{e\ 10637}#) #f - #{mod\ 1486}# + #{mod\ 10640}# #f)) - (lambda (#{type\ 1491}# - #{value\ 1492}# - #{e\ 1493}# - #{w\ 1494}# - #{s\ 1495}# - #{mod\ 1496}#) - (#{chi-expr\ 347}# - #{type\ 1491}# - #{value\ 1492}# - #{e\ 1493}# - #{r\ 1484}# - #{w\ 1494}# - #{s\ 1495}# - #{mod\ 1496}#))))) - (#{chi-top\ 343}# - (lambda (#{e\ 1503}# - #{r\ 1504}# - #{w\ 1505}# - #{m\ 1506}# - #{esew\ 1507}# - #{mod\ 1508}#) + (lambda (#{type\ 10645}# + #{value\ 10646}# + #{e\ 10647}# + #{w\ 10648}# + #{s\ 10649}# + #{mod\ 10650}#) + (#{chi-expr\ 9501}# + #{type\ 10645}# + #{value\ 10646}# + #{e\ 10647}# + #{r\ 10638}# + #{w\ 10648}# + #{s\ 10649}# + #{mod\ 10650}#))))) + (#{chi-top\ 9497}# + (lambda (#{e\ 10657}# + #{r\ 10658}# + #{w\ 10659}# + #{m\ 10660}# + #{esew\ 10661}# + #{mod\ 10662}#) (call-with-values (lambda () - (#{syntax-type\ 341}# - #{e\ 1503}# - #{r\ 1504}# - #{w\ 1505}# - (#{source-annotation\ 239}# #{e\ 1503}#) + (#{syntax-type\ 9495}# + #{e\ 10657}# + #{r\ 10658}# + #{w\ 10659}# + (#{source-annotation\ 9393}# #{e\ 10657}#) #f - #{mod\ 1508}# + #{mod\ 10662}# #f)) - (lambda (#{type\ 1529}# - #{value\ 1530}# - #{e\ 1531}# - #{w\ 1532}# - #{s\ 1533}# - #{mod\ 1534}#) - (if (memv #{type\ 1529}# (quote (begin-form))) - ((lambda (#{tmp\ 1542}#) - ((lambda (#{tmp\ 1543}#) - (if #{tmp\ 1543}# - (apply (lambda (#{_\ 1545}#) (#{chi-void\ 359}#)) - #{tmp\ 1543}#) - ((lambda (#{tmp\ 1546}#) - (if #{tmp\ 1546}# - (apply (lambda (#{_\ 1550}# - #{e1\ 1551}# - #{e2\ 1552}#) - (#{chi-top-sequence\ 335}# - (cons #{e1\ 1551}# #{e2\ 1552}#) - #{r\ 1504}# - #{w\ 1532}# - #{s\ 1533}# - #{m\ 1506}# - #{esew\ 1507}# - #{mod\ 1534}#)) - #{tmp\ 1546}#) + (lambda (#{type\ 10683}# + #{value\ 10684}# + #{e\ 10685}# + #{w\ 10686}# + #{s\ 10687}# + #{mod\ 10688}#) + (if (memv #{type\ 10683}# (quote (begin-form))) + ((lambda (#{tmp\ 10696}#) + ((lambda (#{tmp\ 10697}#) + (if #{tmp\ 10697}# + (apply (lambda (#{_\ 10699}#) + (#{chi-void\ 9513}#)) + #{tmp\ 10697}#) + ((lambda (#{tmp\ 10700}#) + (if #{tmp\ 10700}# + (apply (lambda (#{_\ 10704}# + #{e1\ 10705}# + #{e2\ 10706}#) + (#{chi-top-sequence\ 9489}# + (cons #{e1\ 10705}# #{e2\ 10706}#) + #{r\ 10658}# + #{w\ 10686}# + #{s\ 10687}# + #{m\ 10660}# + #{esew\ 10661}# + #{mod\ 10688}#)) + #{tmp\ 10700}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1542}#))) + #{tmp\ 10696}#))) ($sc-dispatch - #{tmp\ 1542}# + #{tmp\ 10696}# '(any any . each-any))))) - ($sc-dispatch #{tmp\ 1542}# (quote (any))))) - #{e\ 1531}#) - (if (memv #{type\ 1529}# (quote (local-syntax-form))) - (#{chi-local-syntax\ 355}# - #{value\ 1530}# - #{e\ 1531}# - #{r\ 1504}# - #{w\ 1532}# - #{s\ 1533}# - #{mod\ 1534}# - (lambda (#{body\ 1555}# - #{r\ 1556}# - #{w\ 1557}# - #{s\ 1558}# - #{mod\ 1559}#) - (#{chi-top-sequence\ 335}# - #{body\ 1555}# - #{r\ 1556}# - #{w\ 1557}# - #{s\ 1558}# - #{m\ 1506}# - #{esew\ 1507}# - #{mod\ 1559}#))) - (if (memv #{type\ 1529}# (quote (eval-when-form))) - ((lambda (#{tmp\ 1566}#) - ((lambda (#{tmp\ 1567}#) - (if #{tmp\ 1567}# - (apply (lambda (#{_\ 1572}# - #{x\ 1573}# - #{e1\ 1574}# - #{e2\ 1575}#) - (let ((#{when-list\ 1578}# - (#{chi-when-list\ 339}# - #{e\ 1531}# - #{x\ 1573}# - #{w\ 1532}#)) - (#{body\ 1579}# - (cons #{e1\ 1574}# - #{e2\ 1575}#))) - (if (eq? #{m\ 1506}# (quote e)) + ($sc-dispatch #{tmp\ 10696}# (quote (any))))) + #{e\ 10685}#) + (if (memv #{type\ 10683}# + '(local-syntax-form)) + (#{chi-local-syntax\ 9509}# + #{value\ 10684}# + #{e\ 10685}# + #{r\ 10658}# + #{w\ 10686}# + #{s\ 10687}# + #{mod\ 10688}# + (lambda (#{body\ 10709}# + #{r\ 10710}# + #{w\ 10711}# + #{s\ 10712}# + #{mod\ 10713}#) + (#{chi-top-sequence\ 9489}# + #{body\ 10709}# + #{r\ 10710}# + #{w\ 10711}# + #{s\ 10712}# + #{m\ 10660}# + #{esew\ 10661}# + #{mod\ 10713}#))) + (if (memv #{type\ 10683}# (quote (eval-when-form))) + ((lambda (#{tmp\ 10720}#) + ((lambda (#{tmp\ 10721}#) + (if #{tmp\ 10721}# + (apply (lambda (#{_\ 10726}# + #{x\ 10727}# + #{e1\ 10728}# + #{e2\ 10729}#) + (let ((#{when-list\ 10732}# + (#{chi-when-list\ 9493}# + #{e\ 10685}# + #{x\ 10727}# + #{w\ 10686}#)) + (#{body\ 10733}# + (cons #{e1\ 10728}# + #{e2\ 10729}#))) + (if (eq? #{m\ 10660}# (quote e)) (if (memq 'eval - #{when-list\ 1578}#) - (#{chi-top-sequence\ 335}# - #{body\ 1579}# - #{r\ 1504}# - #{w\ 1532}# - #{s\ 1533}# + #{when-list\ 10732}#) + (#{chi-top-sequence\ 9489}# + #{body\ 10733}# + #{r\ 10658}# + #{w\ 10686}# + #{s\ 10687}# 'e '(eval) - #{mod\ 1534}#) - (#{chi-void\ 359}#)) + #{mod\ 10688}#) + (#{chi-void\ 9513}#)) (if (memq 'load - #{when-list\ 1578}#) - (if (let ((#{t\ 1588}# + #{when-list\ 10732}#) + (if (let ((#{t\ 10742}# (memq 'compile - #{when-list\ 1578}#))) - (if #{t\ 1588}# - #{t\ 1588}# - (if (eq? #{m\ 1506}# + #{when-list\ 10732}#))) + (if #{t\ 10742}# + #{t\ 10742}# + (if (eq? #{m\ 10660}# 'c&e) (memq 'eval - #{when-list\ 1578}#) + #{when-list\ 10732}#) #f))) - (#{chi-top-sequence\ 335}# - #{body\ 1579}# - #{r\ 1504}# - #{w\ 1532}# - #{s\ 1533}# + (#{chi-top-sequence\ 9489}# + #{body\ 10733}# + #{r\ 10658}# + #{w\ 10686}# + #{s\ 10687}# 'c&e '(compile load) - #{mod\ 1534}#) - (if (memq #{m\ 1506}# + #{mod\ 10688}#) + (if (memq #{m\ 10660}# '(c c&e)) - (#{chi-top-sequence\ 335}# - #{body\ 1579}# - #{r\ 1504}# - #{w\ 1532}# - #{s\ 1533}# + (#{chi-top-sequence\ 9489}# + #{body\ 10733}# + #{r\ 10658}# + #{w\ 10686}# + #{s\ 10687}# 'c '(load) - #{mod\ 1534}#) - (#{chi-void\ 359}#))) - (if (let ((#{t\ 1596}# + #{mod\ 10688}#) + (#{chi-void\ 9513}#))) + (if (let ((#{t\ 10750}# (memq 'compile - #{when-list\ 1578}#))) - (if #{t\ 1596}# - #{t\ 1596}# - (if (eq? #{m\ 1506}# + #{when-list\ 10732}#))) + (if #{t\ 10750}# + #{t\ 10750}# + (if (eq? #{m\ 10660}# 'c&e) (memq 'eval - #{when-list\ 1578}#) + #{when-list\ 10732}#) #f))) (begin - (#{top-level-eval-hook\ 171}# - (#{chi-top-sequence\ 335}# - #{body\ 1579}# - #{r\ 1504}# - #{w\ 1532}# - #{s\ 1533}# + (#{top-level-eval-hook\ 9325}# + (#{chi-top-sequence\ 9489}# + #{body\ 10733}# + #{r\ 10658}# + #{w\ 10686}# + #{s\ 10687}# 'e '(eval) - #{mod\ 1534}#) - #{mod\ 1534}#) - (#{chi-void\ 359}#)) - (#{chi-void\ 359}#)))))) - #{tmp\ 1567}#) + #{mod\ 10688}#) + #{mod\ 10688}#) + (#{chi-void\ 9513}#)) + (#{chi-void\ 9513}#)))))) + #{tmp\ 10721}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1566}#))) + #{tmp\ 10720}#))) ($sc-dispatch - #{tmp\ 1566}# + #{tmp\ 10720}# '(any each-any any . each-any)))) - #{e\ 1531}#) - (if (memv #{type\ 1529}# + #{e\ 10685}#) + (if (memv #{type\ 10683}# '(define-syntax-form)) - (let ((#{n\ 1604}# - (#{id-var-name\ 317}# - #{value\ 1530}# - #{w\ 1532}#)) - (#{r\ 1605}# - (#{macros-only-env\ 252}# #{r\ 1504}#))) - (if (memv #{m\ 1506}# (quote (c))) - (if (memq (quote compile) #{esew\ 1507}#) - (let ((#{e\ 1608}# - (#{chi-install-global\ 337}# - #{n\ 1604}# - (#{chi\ 345}# - #{e\ 1531}# - #{r\ 1605}# - #{w\ 1532}# - #{mod\ 1534}#)))) + (let ((#{n\ 10758}# + (#{id-var-name\ 9471}# + #{value\ 10684}# + #{w\ 10686}#)) + (#{r\ 10759}# + (#{macros-only-env\ 9406}# #{r\ 10658}#))) + (if (memv #{m\ 10660}# (quote (c))) + (if (memq (quote compile) #{esew\ 10661}#) + (let ((#{e\ 10762}# + (#{chi-install-global\ 9491}# + #{n\ 10758}# + (#{chi\ 9499}# + #{e\ 10685}# + #{r\ 10759}# + #{w\ 10686}# + #{mod\ 10688}#)))) (begin - (#{top-level-eval-hook\ 171}# - #{e\ 1608}# - #{mod\ 1534}#) - (if (memq (quote load) #{esew\ 1507}#) - #{e\ 1608}# - (#{chi-void\ 359}#)))) - (if (memq (quote load) #{esew\ 1507}#) - (#{chi-install-global\ 337}# - #{n\ 1604}# - (#{chi\ 345}# - #{e\ 1531}# - #{r\ 1605}# - #{w\ 1532}# - #{mod\ 1534}#)) - (#{chi-void\ 359}#))) - (if (memv #{m\ 1506}# (quote (c&e))) - (let ((#{e\ 1611}# - (#{chi-install-global\ 337}# - #{n\ 1604}# - (#{chi\ 345}# - #{e\ 1531}# - #{r\ 1605}# - #{w\ 1532}# - #{mod\ 1534}#)))) + (#{top-level-eval-hook\ 9325}# + #{e\ 10762}# + #{mod\ 10688}#) + (if (memq (quote load) #{esew\ 10661}#) + #{e\ 10762}# + (#{chi-void\ 9513}#)))) + (if (memq (quote load) #{esew\ 10661}#) + (#{chi-install-global\ 9491}# + #{n\ 10758}# + (#{chi\ 9499}# + #{e\ 10685}# + #{r\ 10759}# + #{w\ 10686}# + #{mod\ 10688}#)) + (#{chi-void\ 9513}#))) + (if (memv #{m\ 10660}# (quote (c&e))) + (let ((#{e\ 10765}# + (#{chi-install-global\ 9491}# + #{n\ 10758}# + (#{chi\ 9499}# + #{e\ 10685}# + #{r\ 10759}# + #{w\ 10686}# + #{mod\ 10688}#)))) (begin - (#{top-level-eval-hook\ 171}# - #{e\ 1611}# - #{mod\ 1534}#) - #{e\ 1611}#)) + (#{top-level-eval-hook\ 9325}# + #{e\ 10765}# + #{mod\ 10688}#) + #{e\ 10765}#)) (begin - (if (memq (quote eval) #{esew\ 1507}#) - (#{top-level-eval-hook\ 171}# - (#{chi-install-global\ 337}# - #{n\ 1604}# - (#{chi\ 345}# - #{e\ 1531}# - #{r\ 1605}# - #{w\ 1532}# - #{mod\ 1534}#)) - #{mod\ 1534}#)) - (#{chi-void\ 359}#))))) - (if (memv #{type\ 1529}# (quote (define-form))) - (let ((#{n\ 1616}# - (#{id-var-name\ 317}# - #{value\ 1530}# - #{w\ 1532}#))) - (let ((#{type\ 1618}# - (#{binding-type\ 243}# - (#{lookup\ 254}# - #{n\ 1616}# - #{r\ 1504}# - #{mod\ 1534}#)))) - (if (memv #{type\ 1618}# + (if (memq (quote eval) #{esew\ 10661}#) + (#{top-level-eval-hook\ 9325}# + (#{chi-install-global\ 9491}# + #{n\ 10758}# + (#{chi\ 9499}# + #{e\ 10685}# + #{r\ 10759}# + #{w\ 10686}# + #{mod\ 10688}#)) + #{mod\ 10688}#)) + (#{chi-void\ 9513}#))))) + (if (memv #{type\ 10683}# (quote (define-form))) + (let ((#{n\ 10770}# + (#{id-var-name\ 9471}# + #{value\ 10684}# + #{w\ 10686}#))) + (let ((#{type\ 10772}# + (#{binding-type\ 9397}# + (#{lookup\ 9408}# + #{n\ 10770}# + #{r\ 10658}# + #{mod\ 10688}#)))) + (if (memv #{type\ 10772}# '(global core macro module-ref)) (begin (if (if (not (module-local-variable (current-module) - #{n\ 1616}#)) + #{n\ 10770}#)) (current-module) #f) - (let ((#{old\ 1623}# + (let ((#{old\ 10777}# (module-variable (current-module) - #{n\ 1616}#))) + #{n\ 10770}#))) (module-define! (current-module) - #{n\ 1616}# - (if (variable? #{old\ 1623}#) - (variable-ref #{old\ 1623}#) + #{n\ 10770}# + (if (variable? #{old\ 10777}#) + (variable-ref #{old\ 10777}#) #f)))) - (let ((#{x\ 1626}# - (#{build-global-definition\ 200}# - #{s\ 1533}# - #{n\ 1616}# - (#{chi\ 345}# - #{e\ 1531}# - #{r\ 1504}# - #{w\ 1532}# - #{mod\ 1534}#)))) + (let ((#{x\ 10780}# + (#{build-global-definition\ 9354}# + #{s\ 10687}# + #{n\ 10770}# + (#{chi\ 9499}# + #{e\ 10685}# + #{r\ 10658}# + #{w\ 10686}# + #{mod\ 10688}#)))) (begin - (if (eq? #{m\ 1506}# (quote c&e)) - (#{top-level-eval-hook\ 171}# - #{x\ 1626}# - #{mod\ 1534}#)) - #{x\ 1626}#))) - (if (memv #{type\ 1618}# + (if (eq? #{m\ 10660}# (quote c&e)) + (#{top-level-eval-hook\ 9325}# + #{x\ 10780}# + #{mod\ 10688}#)) + #{x\ 10780}#))) + (if (memv #{type\ 10772}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e\ 1531}# - (#{wrap\ 329}# - #{value\ 1530}# - #{w\ 1532}# - #{mod\ 1534}#)) + #{e\ 10685}# + (#{wrap\ 9483}# + #{value\ 10684}# + #{w\ 10686}# + #{mod\ 10688}#)) (syntax-violation #f "cannot define keyword at top level" - #{e\ 1531}# - (#{wrap\ 329}# - #{value\ 1530}# - #{w\ 1532}# - #{mod\ 1534}#)))))) - (let ((#{x\ 1632}# - (#{chi-expr\ 347}# - #{type\ 1529}# - #{value\ 1530}# - #{e\ 1531}# - #{r\ 1504}# - #{w\ 1532}# - #{s\ 1533}# - #{mod\ 1534}#))) + #{e\ 10685}# + (#{wrap\ 9483}# + #{value\ 10684}# + #{w\ 10686}# + #{mod\ 10688}#)))))) + (let ((#{x\ 10786}# + (#{chi-expr\ 9501}# + #{type\ 10683}# + #{value\ 10684}# + #{e\ 10685}# + #{r\ 10658}# + #{w\ 10686}# + #{s\ 10687}# + #{mod\ 10688}#))) (begin - (if (eq? #{m\ 1506}# (quote c&e)) - (#{top-level-eval-hook\ 171}# - #{x\ 1632}# - #{mod\ 1534}#)) - #{x\ 1632}#))))))))))) - (#{syntax-type\ 341}# - (lambda (#{e\ 1633}# - #{r\ 1634}# - #{w\ 1635}# - #{s\ 1636}# - #{rib\ 1637}# - #{mod\ 1638}# - #{for-car?\ 1639}#) - (if (symbol? #{e\ 1633}#) - (let ((#{n\ 1651}# - (#{id-var-name\ 317}# #{e\ 1633}# #{w\ 1635}#))) - (let ((#{b\ 1653}# - (#{lookup\ 254}# - #{n\ 1651}# - #{r\ 1634}# - #{mod\ 1638}#))) - (let ((#{type\ 1655}# - (#{binding-type\ 243}# #{b\ 1653}#))) - (if (memv #{type\ 1655}# (quote (lexical))) + (if (eq? #{m\ 10660}# (quote c&e)) + (#{top-level-eval-hook\ 9325}# + #{x\ 10786}# + #{mod\ 10688}#)) + #{x\ 10786}#))))))))))) + (#{syntax-type\ 9495}# + (lambda (#{e\ 10787}# + #{r\ 10788}# + #{w\ 10789}# + #{s\ 10790}# + #{rib\ 10791}# + #{mod\ 10792}# + #{for-car?\ 10793}#) + (if (symbol? #{e\ 10787}#) + (let ((#{n\ 10805}# + (#{id-var-name\ 9471}# #{e\ 10787}# #{w\ 10789}#))) + (let ((#{b\ 10807}# + (#{lookup\ 9408}# + #{n\ 10805}# + #{r\ 10788}# + #{mod\ 10792}#))) + (let ((#{type\ 10809}# + (#{binding-type\ 9397}# #{b\ 10807}#))) + (if (memv #{type\ 10809}# (quote (lexical))) (values - #{type\ 1655}# - (#{binding-value\ 245}# #{b\ 1653}#) - #{e\ 1633}# - #{w\ 1635}# - #{s\ 1636}# - #{mod\ 1638}#) - (if (memv #{type\ 1655}# (quote (global))) + #{type\ 10809}# + (#{binding-value\ 9399}# #{b\ 10807}#) + #{e\ 10787}# + #{w\ 10789}# + #{s\ 10790}# + #{mod\ 10792}#) + (if (memv #{type\ 10809}# (quote (global))) (values - #{type\ 1655}# - #{n\ 1651}# - #{e\ 1633}# - #{w\ 1635}# - #{s\ 1636}# - #{mod\ 1638}#) - (if (memv #{type\ 1655}# (quote (macro))) - (if #{for-car?\ 1639}# + #{type\ 10809}# + #{n\ 10805}# + #{e\ 10787}# + #{w\ 10789}# + #{s\ 10790}# + #{mod\ 10792}#) + (if (memv #{type\ 10809}# (quote (macro))) + (if #{for-car?\ 10793}# (values - #{type\ 1655}# - (#{binding-value\ 245}# #{b\ 1653}#) - #{e\ 1633}# - #{w\ 1635}# - #{s\ 1636}# - #{mod\ 1638}#) - (#{syntax-type\ 341}# - (#{chi-macro\ 351}# - (#{binding-value\ 245}# #{b\ 1653}#) - #{e\ 1633}# - #{r\ 1634}# - #{w\ 1635}# - #{rib\ 1637}# - #{mod\ 1638}#) - #{r\ 1634}# + #{type\ 10809}# + (#{binding-value\ 9399}# #{b\ 10807}#) + #{e\ 10787}# + #{w\ 10789}# + #{s\ 10790}# + #{mod\ 10792}#) + (#{syntax-type\ 9495}# + (#{chi-macro\ 9505}# + (#{binding-value\ 9399}# #{b\ 10807}#) + #{e\ 10787}# + #{r\ 10788}# + #{w\ 10789}# + #{rib\ 10791}# + #{mod\ 10792}#) + #{r\ 10788}# '(()) - #{s\ 1636}# - #{rib\ 1637}# - #{mod\ 1638}# + #{s\ 10790}# + #{rib\ 10791}# + #{mod\ 10792}# #f)) (values - #{type\ 1655}# - (#{binding-value\ 245}# #{b\ 1653}#) - #{e\ 1633}# - #{w\ 1635}# - #{s\ 1636}# - #{mod\ 1638}#))))))) - (if (pair? #{e\ 1633}#) - (let ((#{first\ 1664}# (car #{e\ 1633}#))) + #{type\ 10809}# + (#{binding-value\ 9399}# #{b\ 10807}#) + #{e\ 10787}# + #{w\ 10789}# + #{s\ 10790}# + #{mod\ 10792}#))))))) + (if (pair? #{e\ 10787}#) + (let ((#{first\ 10818}# (car #{e\ 10787}#))) (call-with-values (lambda () - (#{syntax-type\ 341}# - #{first\ 1664}# - #{r\ 1634}# - #{w\ 1635}# - #{s\ 1636}# - #{rib\ 1637}# - #{mod\ 1638}# + (#{syntax-type\ 9495}# + #{first\ 10818}# + #{r\ 10788}# + #{w\ 10789}# + #{s\ 10790}# + #{rib\ 10791}# + #{mod\ 10792}# #t)) - (lambda (#{ftype\ 1665}# - #{fval\ 1666}# - #{fe\ 1667}# - #{fw\ 1668}# - #{fs\ 1669}# - #{fmod\ 1670}#) - (if (memv #{ftype\ 1665}# (quote (lexical))) + (lambda (#{ftype\ 10819}# + #{fval\ 10820}# + #{fe\ 10821}# + #{fw\ 10822}# + #{fs\ 10823}# + #{fmod\ 10824}#) + (if (memv #{ftype\ 10819}# (quote (lexical))) (values 'lexical-call - #{fval\ 1666}# - #{e\ 1633}# - #{w\ 1635}# - #{s\ 1636}# - #{mod\ 1638}#) - (if (memv #{ftype\ 1665}# (quote (global))) + #{fval\ 10820}# + #{e\ 10787}# + #{w\ 10789}# + #{s\ 10790}# + #{mod\ 10792}#) + (if (memv #{ftype\ 10819}# (quote (global))) (values 'global-call - (#{make-syntax-object\ 222}# - #{fval\ 1666}# - #{w\ 1635}# - #{fmod\ 1670}#) - #{e\ 1633}# - #{w\ 1635}# - #{s\ 1636}# - #{mod\ 1638}#) - (if (memv #{ftype\ 1665}# (quote (macro))) - (#{syntax-type\ 341}# - (#{chi-macro\ 351}# - #{fval\ 1666}# - #{e\ 1633}# - #{r\ 1634}# - #{w\ 1635}# - #{rib\ 1637}# - #{mod\ 1638}#) - #{r\ 1634}# + (#{make-syntax-object\ 9376}# + #{fval\ 10820}# + #{w\ 10789}# + #{fmod\ 10824}#) + #{e\ 10787}# + #{w\ 10789}# + #{s\ 10790}# + #{mod\ 10792}#) + (if (memv #{ftype\ 10819}# (quote (macro))) + (#{syntax-type\ 9495}# + (#{chi-macro\ 9505}# + #{fval\ 10820}# + #{e\ 10787}# + #{r\ 10788}# + #{w\ 10789}# + #{rib\ 10791}# + #{mod\ 10792}#) + #{r\ 10788}# '(()) - #{s\ 1636}# - #{rib\ 1637}# - #{mod\ 1638}# - #{for-car?\ 1639}#) - (if (memv #{ftype\ 1665}# (quote (module-ref))) + #{s\ 10790}# + #{rib\ 10791}# + #{mod\ 10792}# + #{for-car?\ 10793}#) + (if (memv #{ftype\ 10819}# (quote (module-ref))) (call-with-values - (lambda () (#{fval\ 1666}# #{e\ 1633}#)) - (lambda (#{sym\ 1682}# #{mod\ 1683}#) - (#{syntax-type\ 341}# - #{sym\ 1682}# - #{r\ 1634}# - #{w\ 1635}# - #{s\ 1636}# - #{rib\ 1637}# - #{mod\ 1683}# - #{for-car?\ 1639}#))) - (if (memv #{ftype\ 1665}# (quote (core))) + (lambda () (#{fval\ 10820}# #{e\ 10787}#)) + (lambda (#{sym\ 10836}# #{mod\ 10837}#) + (#{syntax-type\ 9495}# + #{sym\ 10836}# + #{r\ 10788}# + #{w\ 10789}# + #{s\ 10790}# + #{rib\ 10791}# + #{mod\ 10837}# + #{for-car?\ 10793}#))) + (if (memv #{ftype\ 10819}# (quote (core))) (values 'core-form - #{fval\ 1666}# - #{e\ 1633}# - #{w\ 1635}# - #{s\ 1636}# - #{mod\ 1638}#) - (if (memv #{ftype\ 1665}# + #{fval\ 10820}# + #{e\ 10787}# + #{w\ 10789}# + #{s\ 10790}# + #{mod\ 10792}#) + (if (memv #{ftype\ 10819}# '(local-syntax)) (values 'local-syntax-form - #{fval\ 1666}# - #{e\ 1633}# - #{w\ 1635}# - #{s\ 1636}# - #{mod\ 1638}#) - (if (memv #{ftype\ 1665}# (quote (begin))) + #{fval\ 10820}# + #{e\ 10787}# + #{w\ 10789}# + #{s\ 10790}# + #{mod\ 10792}#) + (if (memv #{ftype\ 10819}# + '(begin)) (values 'begin-form #f - #{e\ 1633}# - #{w\ 1635}# - #{s\ 1636}# - #{mod\ 1638}#) - (if (memv #{ftype\ 1665}# + #{e\ 10787}# + #{w\ 10789}# + #{s\ 10790}# + #{mod\ 10792}#) + (if (memv #{ftype\ 10819}# '(eval-when)) (values 'eval-when-form #f - #{e\ 1633}# - #{w\ 1635}# - #{s\ 1636}# - #{mod\ 1638}#) - (if (memv #{ftype\ 1665}# + #{e\ 10787}# + #{w\ 10789}# + #{s\ 10790}# + #{mod\ 10792}#) + (if (memv #{ftype\ 10819}# '(define)) - ((lambda (#{tmp\ 1691}#) - ((lambda (#{tmp\ 1692}#) - (if (if #{tmp\ 1692}# - (apply (lambda (#{_\ 1696}# - #{name\ 1697}# - #{val\ 1698}#) - (#{id?\ 260}# - #{name\ 1697}#)) - #{tmp\ 1692}#) + ((lambda (#{tmp\ 10845}#) + ((lambda (#{tmp\ 10846}#) + (if (if #{tmp\ 10846}# + (apply (lambda (#{_\ 10850}# + #{name\ 10851}# + #{val\ 10852}#) + (#{id?\ 9414}# + #{name\ 10851}#)) + #{tmp\ 10846}#) #f) - (apply (lambda (#{_\ 1702}# - #{name\ 1703}# - #{val\ 1704}#) + (apply (lambda (#{_\ 10856}# + #{name\ 10857}# + #{val\ 10858}#) (values 'define-form - #{name\ 1703}# - #{val\ 1704}# - #{w\ 1635}# - #{s\ 1636}# - #{mod\ 1638}#)) - #{tmp\ 1692}#) - ((lambda (#{tmp\ 1705}#) - (if (if #{tmp\ 1705}# - (apply (lambda (#{_\ 1711}# - #{name\ 1712}# - #{args\ 1713}# - #{e1\ 1714}# - #{e2\ 1715}#) - (if (#{id?\ 260}# - #{name\ 1712}#) - (#{valid-bound-ids?\ 323}# - (#{lambda-var-list\ 375}# - #{args\ 1713}#)) + #{name\ 10857}# + #{val\ 10858}# + #{w\ 10789}# + #{s\ 10790}# + #{mod\ 10792}#)) + #{tmp\ 10846}#) + ((lambda (#{tmp\ 10859}#) + (if (if #{tmp\ 10859}# + (apply (lambda (#{_\ 10865}# + #{name\ 10866}# + #{args\ 10867}# + #{e1\ 10868}# + #{e2\ 10869}#) + (if (#{id?\ 9414}# + #{name\ 10866}#) + (#{valid-bound-ids?\ 9477}# + (#{lambda-var-list\ 9529}# + #{args\ 10867}#)) #f)) - #{tmp\ 1705}#) + #{tmp\ 10859}#) #f) - (apply (lambda (#{_\ 1723}# - #{name\ 1724}# - #{args\ 1725}# - #{e1\ 1726}# - #{e2\ 1727}#) + (apply (lambda (#{_\ 10877}# + #{name\ 10878}# + #{args\ 10879}# + #{e1\ 10880}# + #{e2\ 10881}#) (values 'define-form - (#{wrap\ 329}# - #{name\ 1724}# - #{w\ 1635}# - #{mod\ 1638}#) - (#{decorate-source\ 180}# + (#{wrap\ 9483}# + #{name\ 10878}# + #{w\ 10789}# + #{mod\ 10792}#) + (#{decorate-source\ 9334}# (cons '#(syntax-object lambda ((top) @@ -3561,11 +3577,11 @@ (top) (top) (top)) - #("i1718" - "i1719" - "i1720" - "i1721" - "i1722")) + #("i10872" + "i10873" + "i10874" + "i10875" + "i10876")) #(ribcage () () @@ -3587,12 +3603,12 @@ (top) (top) (top)) - #("i1671" - "i1672" - "i1673" - "i1674" - "i1675" - "i1676")) + #("i10825" + "i10826" + "i10827" + "i10828" + "i10829" + "i10830")) #(ribcage () () @@ -3600,7 +3616,7 @@ #(ribcage #(first) #((top)) - #("i1663")) + #("i10817")) #(ribcage () () @@ -3628,13 +3644,13 @@ (top) (top) (top)) - #("i1640" - "i1641" - "i1642" - "i1643" - "i1644" - "i1645" - "i1646")) + #("i10794" + "i10795" + "i10796" + "i10797" + "i10798" + "i10799" + "i10800")) #(ribcage (lambda-var-list gen-var @@ -3870,159 +3886,159 @@ (top) (top) (top)) - ("i374" - "i372" - "i370" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i303" - "i302" - "i300" - "i299" - "i298" - "i297" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i277" - "i275" - "i274" - "i273" - "i272" - "i271" - "i270" - "i268" - "i266" - "i264" - "i262" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i246" - "i244" - "i242" - "i241" - "i240" - "i238" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207" - "i205" - "i203" - "i201" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i174" - "i172" - "i170" - "i168" - "i166" - "i164" - "i162" - "i160" - "i158")) + ("i9528" + "i9526" + "i9524" + "i9522" + "i9520" + "i9518" + "i9516" + "i9514" + "i9512" + "i9510" + "i9508" + "i9506" + "i9504" + "i9502" + "i9500" + "i9498" + "i9496" + "i9494" + "i9492" + "i9490" + "i9488" + "i9486" + "i9484" + "i9482" + "i9480" + "i9478" + "i9476" + "i9474" + "i9472" + "i9470" + "i9468" + "i9466" + "i9464" + "i9462" + "i9460" + "i9458" + "i9457" + "i9456" + "i9454" + "i9453" + "i9452" + "i9451" + "i9450" + "i9448" + "i9446" + "i9444" + "i9442" + "i9440" + "i9438" + "i9436" + "i9434" + "i9431" + "i9429" + "i9428" + "i9427" + "i9426" + "i9425" + "i9424" + "i9422" + "i9420" + "i9418" + "i9416" + "i9415" + "i9413" + "i9411" + "i9409" + "i9407" + "i9405" + "i9403" + "i9401" + "i9400" + "i9398" + "i9396" + "i9395" + "i9394" + "i9392" + "i9391" + "i9389" + "i9387" + "i9385" + "i9383" + "i9381" + "i9379" + "i9377" + "i9375" + "i9373" + "i9371" + "i9369" + "i9367" + "i9365" + "i9363" + "i9361" + "i9359" + "i9357" + "i9355" + "i9353" + "i9351" + "i9349" + "i9347" + "i9345" + "i9343" + "i9341" + "i9339" + "i9337" + "i9335" + "i9333" + "i9331" + "i9329" + "i9328" + "i9326" + "i9324" + "i9322" + "i9320" + "i9318" + "i9316" + "i9314" + "i9312")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i61" - "i59"))) + ("i9215" + "i9213"))) (hygiene guile)) - (#{wrap\ 329}# - (cons #{args\ 1725}# - (cons #{e1\ 1726}# - #{e2\ 1727}#)) - #{w\ 1635}# - #{mod\ 1638}#)) - #{s\ 1636}#) + (#{wrap\ 9483}# + (cons #{args\ 10879}# + (cons #{e1\ 10880}# + #{e2\ 10881}#)) + #{w\ 10789}# + #{mod\ 10792}#)) + #{s\ 10790}#) '(()) - #{s\ 1636}# - #{mod\ 1638}#)) - #{tmp\ 1705}#) - ((lambda (#{tmp\ 1730}#) - (if (if #{tmp\ 1730}# - (apply (lambda (#{_\ 1733}# - #{name\ 1734}#) - (#{id?\ 260}# - #{name\ 1734}#)) - #{tmp\ 1730}#) + #{s\ 10790}# + #{mod\ 10792}#)) + #{tmp\ 10859}#) + ((lambda (#{tmp\ 10884}#) + (if (if #{tmp\ 10884}# + (apply (lambda (#{_\ 10887}# + #{name\ 10888}#) + (#{id?\ 9414}# + #{name\ 10888}#)) + #{tmp\ 10884}#) #f) - (apply (lambda (#{_\ 1737}# - #{name\ 1738}#) + (apply (lambda (#{_\ 10891}# + #{name\ 10892}#) (values 'define-form - (#{wrap\ 329}# - #{name\ 1738}# - #{w\ 1635}# - #{mod\ 1638}#) + (#{wrap\ 9483}# + #{name\ 10892}# + #{w\ 10789}# + #{mod\ 10792}#) '(#(syntax-object if ((top) @@ -4031,8 +4047,8 @@ name) #((top) (top)) - #("i1735" - "i1736")) + #("i10889" + "i10890")) #(ribcage () () @@ -4054,12 +4070,12 @@ (top) (top) (top)) - #("i1671" - "i1672" - "i1673" - "i1674" - "i1675" - "i1676")) + #("i10825" + "i10826" + "i10827" + "i10828" + "i10829" + "i10830")) #(ribcage () () @@ -4067,7 +4083,7 @@ #(ribcage #(first) #((top)) - #("i1663")) + #("i10817")) #(ribcage () () @@ -4095,13 +4111,13 @@ (top) (top) (top)) - #("i1640" - "i1641" - "i1642" - "i1643" - "i1644" - "i1645" - "i1646")) + #("i10794" + "i10795" + "i10796" + "i10797" + "i10798" + "i10799" + "i10800")) #(ribcage (lambda-var-list gen-var @@ -4337,130 +4353,130 @@ (top) (top) (top)) - ("i374" - "i372" - "i370" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i303" - "i302" - "i300" - "i299" - "i298" - "i297" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i277" - "i275" - "i274" - "i273" - "i272" - "i271" - "i270" - "i268" - "i266" - "i264" - "i262" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i246" - "i244" - "i242" - "i241" - "i240" - "i238" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207" - "i205" - "i203" - "i201" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i174" - "i172" - "i170" - "i168" - "i166" - "i164" - "i162" - "i160" - "i158")) + ("i9528" + "i9526" + "i9524" + "i9522" + "i9520" + "i9518" + "i9516" + "i9514" + "i9512" + "i9510" + "i9508" + "i9506" + "i9504" + "i9502" + "i9500" + "i9498" + "i9496" + "i9494" + "i9492" + "i9490" + "i9488" + "i9486" + "i9484" + "i9482" + "i9480" + "i9478" + "i9476" + "i9474" + "i9472" + "i9470" + "i9468" + "i9466" + "i9464" + "i9462" + "i9460" + "i9458" + "i9457" + "i9456" + "i9454" + "i9453" + "i9452" + "i9451" + "i9450" + "i9448" + "i9446" + "i9444" + "i9442" + "i9440" + "i9438" + "i9436" + "i9434" + "i9431" + "i9429" + "i9428" + "i9427" + "i9426" + "i9425" + "i9424" + "i9422" + "i9420" + "i9418" + "i9416" + "i9415" + "i9413" + "i9411" + "i9409" + "i9407" + "i9405" + "i9403" + "i9401" + "i9400" + "i9398" + "i9396" + "i9395" + "i9394" + "i9392" + "i9391" + "i9389" + "i9387" + "i9385" + "i9383" + "i9381" + "i9379" + "i9377" + "i9375" + "i9373" + "i9371" + "i9369" + "i9367" + "i9365" + "i9363" + "i9361" + "i9359" + "i9357" + "i9355" + "i9353" + "i9351" + "i9349" + "i9347" + "i9345" + "i9343" + "i9341" + "i9339" + "i9337" + "i9335" + "i9333" + "i9331" + "i9329" + "i9328" + "i9326" + "i9324" + "i9322" + "i9320" + "i9318" + "i9316" + "i9314" + "i9312")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i61" - "i59"))) + ("i9215" + "i9213"))) (hygiene guile)) #(syntax-object @@ -4471,8 +4487,8 @@ name) #((top) (top)) - #("i1735" - "i1736")) + #("i10889" + "i10890")) #(ribcage () () @@ -4494,12 +4510,12 @@ (top) (top) (top)) - #("i1671" - "i1672" - "i1673" - "i1674" - "i1675" - "i1676")) + #("i10825" + "i10826" + "i10827" + "i10828" + "i10829" + "i10830")) #(ribcage () () @@ -4507,7 +4523,7 @@ #(ribcage #(first) #((top)) - #("i1663")) + #("i10817")) #(ribcage () () @@ -4535,13 +4551,13 @@ (top) (top) (top)) - #("i1640" - "i1641" - "i1642" - "i1643" - "i1644" - "i1645" - "i1646")) + #("i10794" + "i10795" + "i10796" + "i10797" + "i10798" + "i10799" + "i10800")) #(ribcage (lambda-var-list gen-var @@ -4777,130 +4793,130 @@ (top) (top) (top)) - ("i374" - "i372" - "i370" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i303" - "i302" - "i300" - "i299" - "i298" - "i297" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i277" - "i275" - "i274" - "i273" - "i272" - "i271" - "i270" - "i268" - "i266" - "i264" - "i262" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i246" - "i244" - "i242" - "i241" - "i240" - "i238" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207" - "i205" - "i203" - "i201" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i174" - "i172" - "i170" - "i168" - "i166" - "i164" - "i162" - "i160" - "i158")) + ("i9528" + "i9526" + "i9524" + "i9522" + "i9520" + "i9518" + "i9516" + "i9514" + "i9512" + "i9510" + "i9508" + "i9506" + "i9504" + "i9502" + "i9500" + "i9498" + "i9496" + "i9494" + "i9492" + "i9490" + "i9488" + "i9486" + "i9484" + "i9482" + "i9480" + "i9478" + "i9476" + "i9474" + "i9472" + "i9470" + "i9468" + "i9466" + "i9464" + "i9462" + "i9460" + "i9458" + "i9457" + "i9456" + "i9454" + "i9453" + "i9452" + "i9451" + "i9450" + "i9448" + "i9446" + "i9444" + "i9442" + "i9440" + "i9438" + "i9436" + "i9434" + "i9431" + "i9429" + "i9428" + "i9427" + "i9426" + "i9425" + "i9424" + "i9422" + "i9420" + "i9418" + "i9416" + "i9415" + "i9413" + "i9411" + "i9409" + "i9407" + "i9405" + "i9403" + "i9401" + "i9400" + "i9398" + "i9396" + "i9395" + "i9394" + "i9392" + "i9391" + "i9389" + "i9387" + "i9385" + "i9383" + "i9381" + "i9379" + "i9377" + "i9375" + "i9373" + "i9371" + "i9369" + "i9367" + "i9365" + "i9363" + "i9361" + "i9359" + "i9357" + "i9355" + "i9353" + "i9351" + "i9349" + "i9347" + "i9345" + "i9343" + "i9341" + "i9339" + "i9337" + "i9335" + "i9333" + "i9331" + "i9329" + "i9328" + "i9326" + "i9324" + "i9322" + "i9320" + "i9318" + "i9316" + "i9314" + "i9312")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i61" - "i59"))) + ("i9215" + "i9213"))) (hygiene guile)) #(syntax-object @@ -4911,8 +4927,8 @@ name) #((top) (top)) - #("i1735" - "i1736")) + #("i10889" + "i10890")) #(ribcage () () @@ -4934,12 +4950,12 @@ (top) (top) (top)) - #("i1671" - "i1672" - "i1673" - "i1674" - "i1675" - "i1676")) + #("i10825" + "i10826" + "i10827" + "i10828" + "i10829" + "i10830")) #(ribcage () () @@ -4947,7 +4963,7 @@ #(ribcage #(first) #((top)) - #("i1663")) + #("i10817")) #(ribcage () () @@ -4975,13 +4991,13 @@ (top) (top) (top)) - #("i1640" - "i1641" - "i1642" - "i1643" - "i1644" - "i1645" - "i1646")) + #("i10794" + "i10795" + "i10796" + "i10797" + "i10798" + "i10799" + "i10800")) #(ribcage (lambda-var-list gen-var @@ -5217,231 +5233,231 @@ (top) (top) (top)) - ("i374" - "i372" - "i370" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i303" - "i302" - "i300" - "i299" - "i298" - "i297" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i277" - "i275" - "i274" - "i273" - "i272" - "i271" - "i270" - "i268" - "i266" - "i264" - "i262" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i246" - "i244" - "i242" - "i241" - "i240" - "i238" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207" - "i205" - "i203" - "i201" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i174" - "i172" - "i170" - "i168" - "i166" - "i164" - "i162" - "i160" - "i158")) + ("i9528" + "i9526" + "i9524" + "i9522" + "i9520" + "i9518" + "i9516" + "i9514" + "i9512" + "i9510" + "i9508" + "i9506" + "i9504" + "i9502" + "i9500" + "i9498" + "i9496" + "i9494" + "i9492" + "i9490" + "i9488" + "i9486" + "i9484" + "i9482" + "i9480" + "i9478" + "i9476" + "i9474" + "i9472" + "i9470" + "i9468" + "i9466" + "i9464" + "i9462" + "i9460" + "i9458" + "i9457" + "i9456" + "i9454" + "i9453" + "i9452" + "i9451" + "i9450" + "i9448" + "i9446" + "i9444" + "i9442" + "i9440" + "i9438" + "i9436" + "i9434" + "i9431" + "i9429" + "i9428" + "i9427" + "i9426" + "i9425" + "i9424" + "i9422" + "i9420" + "i9418" + "i9416" + "i9415" + "i9413" + "i9411" + "i9409" + "i9407" + "i9405" + "i9403" + "i9401" + "i9400" + "i9398" + "i9396" + "i9395" + "i9394" + "i9392" + "i9391" + "i9389" + "i9387" + "i9385" + "i9383" + "i9381" + "i9379" + "i9377" + "i9375" + "i9373" + "i9371" + "i9369" + "i9367" + "i9365" + "i9363" + "i9361" + "i9359" + "i9357" + "i9355" + "i9353" + "i9351" + "i9349" + "i9347" + "i9345" + "i9343" + "i9341" + "i9339" + "i9337" + "i9335" + "i9333" + "i9331" + "i9329" + "i9328" + "i9326" + "i9324" + "i9322" + "i9320" + "i9318" + "i9316" + "i9314" + "i9312")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i61" - "i59"))) + ("i9215" + "i9213"))) (hygiene guile))) '(()) - #{s\ 1636}# - #{mod\ 1638}#)) - #{tmp\ 1730}#) + #{s\ 10790}# + #{mod\ 10792}#)) + #{tmp\ 10884}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1691}#))) + #{tmp\ 10845}#))) ($sc-dispatch - #{tmp\ 1691}# + #{tmp\ 10845}# '(any any))))) ($sc-dispatch - #{tmp\ 1691}# + #{tmp\ 10845}# '(any (any . any) any . each-any))))) ($sc-dispatch - #{tmp\ 1691}# + #{tmp\ 10845}# '(any any any)))) - #{e\ 1633}#) - (if (memv #{ftype\ 1665}# + #{e\ 10787}#) + (if (memv #{ftype\ 10819}# '(define-syntax)) - ((lambda (#{tmp\ 1741}#) - ((lambda (#{tmp\ 1742}#) - (if (if #{tmp\ 1742}# - (apply (lambda (#{_\ 1746}# - #{name\ 1747}# - #{val\ 1748}#) - (#{id?\ 260}# - #{name\ 1747}#)) - #{tmp\ 1742}#) + ((lambda (#{tmp\ 10895}#) + ((lambda (#{tmp\ 10896}#) + (if (if #{tmp\ 10896}# + (apply (lambda (#{_\ 10900}# + #{name\ 10901}# + #{val\ 10902}#) + (#{id?\ 9414}# + #{name\ 10901}#)) + #{tmp\ 10896}#) #f) - (apply (lambda (#{_\ 1752}# - #{name\ 1753}# - #{val\ 1754}#) + (apply (lambda (#{_\ 10906}# + #{name\ 10907}# + #{val\ 10908}#) (values 'define-syntax-form - #{name\ 1753}# - #{val\ 1754}# - #{w\ 1635}# - #{s\ 1636}# - #{mod\ 1638}#)) - #{tmp\ 1742}#) + #{name\ 10907}# + #{val\ 10908}# + #{w\ 10789}# + #{s\ 10790}# + #{mod\ 10792}#)) + #{tmp\ 10896}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1741}#))) + #{tmp\ 10895}#))) ($sc-dispatch - #{tmp\ 1741}# + #{tmp\ 10895}# '(any any any)))) - #{e\ 1633}#) + #{e\ 10787}#) (values 'call #f - #{e\ 1633}# - #{w\ 1635}# - #{s\ 1636}# - #{mod\ 1638}#)))))))))))))) - (if (#{syntax-object?\ 224}# #{e\ 1633}#) - (#{syntax-type\ 341}# - (#{syntax-object-expression\ 226}# #{e\ 1633}#) - #{r\ 1634}# - (#{join-wraps\ 311}# - #{w\ 1635}# - (#{syntax-object-wrap\ 228}# #{e\ 1633}#)) - #{s\ 1636}# - #{rib\ 1637}# - (let ((#{t\ 1760}# - (#{syntax-object-module\ 230}# #{e\ 1633}#))) - (if #{t\ 1760}# #{t\ 1760}# #{mod\ 1638}#)) - #{for-car?\ 1639}#) - (if (self-evaluating? #{e\ 1633}#) + #{e\ 10787}# + #{w\ 10789}# + #{s\ 10790}# + #{mod\ 10792}#)))))))))))))) + (if (#{syntax-object?\ 9378}# #{e\ 10787}#) + (#{syntax-type\ 9495}# + (#{syntax-object-expression\ 9380}# #{e\ 10787}#) + #{r\ 10788}# + (#{join-wraps\ 9465}# + #{w\ 10789}# + (#{syntax-object-wrap\ 9382}# #{e\ 10787}#)) + #{s\ 10790}# + #{rib\ 10791}# + (let ((#{t\ 10914}# + (#{syntax-object-module\ 9384}# #{e\ 10787}#))) + (if #{t\ 10914}# #{t\ 10914}# #{mod\ 10792}#)) + #{for-car?\ 10793}#) + (if (self-evaluating? #{e\ 10787}#) (values 'constant #f - #{e\ 1633}# - #{w\ 1635}# - #{s\ 1636}# - #{mod\ 1638}#) + #{e\ 10787}# + #{w\ 10789}# + #{s\ 10790}# + #{mod\ 10792}#) (values 'other #f - #{e\ 1633}# - #{w\ 1635}# - #{s\ 1636}# - #{mod\ 1638}#))))))) - (#{chi-when-list\ 339}# - (lambda (#{e\ 1765}# #{when-list\ 1766}# #{w\ 1767}#) - (letrec ((#{f\ 1774}# - (lambda (#{when-list\ 1775}# #{situations\ 1776}#) - (if (null? #{when-list\ 1775}#) - #{situations\ 1776}# - (#{f\ 1774}# - (cdr #{when-list\ 1775}#) - (cons (let ((#{x\ 1778}# - (car #{when-list\ 1775}#))) - (if (#{free-id=?\ 319}# - #{x\ 1778}# + #{e\ 10787}# + #{w\ 10789}# + #{s\ 10790}# + #{mod\ 10792}#))))))) + (#{chi-when-list\ 9493}# + (lambda (#{e\ 10919}# #{when-list\ 10920}# #{w\ 10921}#) + (letrec ((#{f\ 10928}# + (lambda (#{when-list\ 10929}# #{situations\ 10930}#) + (if (null? #{when-list\ 10929}#) + #{situations\ 10930}# + (#{f\ 10928}# + (cdr #{when-list\ 10929}#) + (cons (let ((#{x\ 10932}# + (car #{when-list\ 10929}#))) + (if (#{free-id=?\ 9473}# + #{x\ 10932}# '#(syntax-object compile ((top) @@ -5451,17 +5467,21 @@ #(ribcage #(x) #((top)) - #("i1777")) + #("i10931")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1771" "i1772" "i1773")) + #("i10925" + "i10926" + "i10927")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1768" "i1769" "i1770")) + #("i10922" + "i10923" + "i10924")) #(ribcage (lambda-var-list gen-var @@ -5697,131 +5717,131 @@ (top) (top) (top)) - ("i374" - "i372" - "i370" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i303" - "i302" - "i300" - "i299" - "i298" - "i297" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i277" - "i275" - "i274" - "i273" - "i272" - "i271" - "i270" - "i268" - "i266" - "i264" - "i262" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i246" - "i244" - "i242" - "i241" - "i240" - "i238" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207" - "i205" - "i203" - "i201" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i174" - "i172" - "i170" - "i168" - "i166" - "i164" - "i162" - "i160" - "i158")) + ("i9528" + "i9526" + "i9524" + "i9522" + "i9520" + "i9518" + "i9516" + "i9514" + "i9512" + "i9510" + "i9508" + "i9506" + "i9504" + "i9502" + "i9500" + "i9498" + "i9496" + "i9494" + "i9492" + "i9490" + "i9488" + "i9486" + "i9484" + "i9482" + "i9480" + "i9478" + "i9476" + "i9474" + "i9472" + "i9470" + "i9468" + "i9466" + "i9464" + "i9462" + "i9460" + "i9458" + "i9457" + "i9456" + "i9454" + "i9453" + "i9452" + "i9451" + "i9450" + "i9448" + "i9446" + "i9444" + "i9442" + "i9440" + "i9438" + "i9436" + "i9434" + "i9431" + "i9429" + "i9428" + "i9427" + "i9426" + "i9425" + "i9424" + "i9422" + "i9420" + "i9418" + "i9416" + "i9415" + "i9413" + "i9411" + "i9409" + "i9407" + "i9405" + "i9403" + "i9401" + "i9400" + "i9398" + "i9396" + "i9395" + "i9394" + "i9392" + "i9391" + "i9389" + "i9387" + "i9385" + "i9383" + "i9381" + "i9379" + "i9377" + "i9375" + "i9373" + "i9371" + "i9369" + "i9367" + "i9365" + "i9363" + "i9361" + "i9359" + "i9357" + "i9355" + "i9353" + "i9351" + "i9349" + "i9347" + "i9345" + "i9343" + "i9341" + "i9339" + "i9337" + "i9335" + "i9333" + "i9331" + "i9329" + "i9328" + "i9326" + "i9324" + "i9322" + "i9320" + "i9318" + "i9316" + "i9314" + "i9312")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i61" "i59"))) + ("i9215" "i9213"))) (hygiene guile))) 'compile - (if (#{free-id=?\ 319}# - #{x\ 1778}# + (if (#{free-id=?\ 9473}# + #{x\ 10932}# '#(syntax-object load ((top) @@ -5831,21 +5851,21 @@ #(ribcage #(x) #((top)) - #("i1777")) + #("i10931")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1771" - "i1772" - "i1773")) + #("i10925" + "i10926" + "i10927")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1768" - "i1769" - "i1770")) + #("i10922" + "i10923" + "i10924")) #(ribcage (lambda-var-list gen-var @@ -6081,132 +6101,132 @@ (top) (top) (top)) - ("i374" - "i372" - "i370" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i303" - "i302" - "i300" - "i299" - "i298" - "i297" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i277" - "i275" - "i274" - "i273" - "i272" - "i271" - "i270" - "i268" - "i266" - "i264" - "i262" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i246" - "i244" - "i242" - "i241" - "i240" - "i238" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207" - "i205" - "i203" - "i201" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i174" - "i172" - "i170" - "i168" - "i166" - "i164" - "i162" - "i160" - "i158")) + ("i9528" + "i9526" + "i9524" + "i9522" + "i9520" + "i9518" + "i9516" + "i9514" + "i9512" + "i9510" + "i9508" + "i9506" + "i9504" + "i9502" + "i9500" + "i9498" + "i9496" + "i9494" + "i9492" + "i9490" + "i9488" + "i9486" + "i9484" + "i9482" + "i9480" + "i9478" + "i9476" + "i9474" + "i9472" + "i9470" + "i9468" + "i9466" + "i9464" + "i9462" + "i9460" + "i9458" + "i9457" + "i9456" + "i9454" + "i9453" + "i9452" + "i9451" + "i9450" + "i9448" + "i9446" + "i9444" + "i9442" + "i9440" + "i9438" + "i9436" + "i9434" + "i9431" + "i9429" + "i9428" + "i9427" + "i9426" + "i9425" + "i9424" + "i9422" + "i9420" + "i9418" + "i9416" + "i9415" + "i9413" + "i9411" + "i9409" + "i9407" + "i9405" + "i9403" + "i9401" + "i9400" + "i9398" + "i9396" + "i9395" + "i9394" + "i9392" + "i9391" + "i9389" + "i9387" + "i9385" + "i9383" + "i9381" + "i9379" + "i9377" + "i9375" + "i9373" + "i9371" + "i9369" + "i9367" + "i9365" + "i9363" + "i9361" + "i9359" + "i9357" + "i9355" + "i9353" + "i9351" + "i9349" + "i9347" + "i9345" + "i9343" + "i9341" + "i9339" + "i9337" + "i9335" + "i9333" + "i9331" + "i9329" + "i9328" + "i9326" + "i9324" + "i9322" + "i9320" + "i9318" + "i9316" + "i9314" + "i9312")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i61" "i59"))) + ("i9215" "i9213"))) (hygiene guile))) 'load - (if (#{free-id=?\ 319}# - #{x\ 1778}# + (if (#{free-id=?\ 9473}# + #{x\ 10932}# '#(syntax-object eval ((top) @@ -6216,23 +6236,23 @@ #(ribcage #(x) #((top)) - #("i1777")) + #("i10931")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i1771" - "i1772" - "i1773")) + #("i10925" + "i10926" + "i10927")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i1768" - "i1769" - "i1770")) + #("i10922" + "i10923" + "i10924")) #(ribcage (lambda-var-list gen-var @@ -6468,1044 +6488,1030 @@ (top) (top) (top)) - ("i374" - "i372" - "i370" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i303" - "i302" - "i300" - "i299" - "i298" - "i297" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i277" - "i275" - "i274" - "i273" - "i272" - "i271" - "i270" - "i268" - "i266" - "i264" - "i262" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i246" - "i244" - "i242" - "i241" - "i240" - "i238" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207" - "i205" - "i203" - "i201" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i174" - "i172" - "i170" - "i168" - "i166" - "i164" - "i162" - "i160" - "i158")) + ("i9528" + "i9526" + "i9524" + "i9522" + "i9520" + "i9518" + "i9516" + "i9514" + "i9512" + "i9510" + "i9508" + "i9506" + "i9504" + "i9502" + "i9500" + "i9498" + "i9496" + "i9494" + "i9492" + "i9490" + "i9488" + "i9486" + "i9484" + "i9482" + "i9480" + "i9478" + "i9476" + "i9474" + "i9472" + "i9470" + "i9468" + "i9466" + "i9464" + "i9462" + "i9460" + "i9458" + "i9457" + "i9456" + "i9454" + "i9453" + "i9452" + "i9451" + "i9450" + "i9448" + "i9446" + "i9444" + "i9442" + "i9440" + "i9438" + "i9436" + "i9434" + "i9431" + "i9429" + "i9428" + "i9427" + "i9426" + "i9425" + "i9424" + "i9422" + "i9420" + "i9418" + "i9416" + "i9415" + "i9413" + "i9411" + "i9409" + "i9407" + "i9405" + "i9403" + "i9401" + "i9400" + "i9398" + "i9396" + "i9395" + "i9394" + "i9392" + "i9391" + "i9389" + "i9387" + "i9385" + "i9383" + "i9381" + "i9379" + "i9377" + "i9375" + "i9373" + "i9371" + "i9369" + "i9367" + "i9365" + "i9363" + "i9361" + "i9359" + "i9357" + "i9355" + "i9353" + "i9351" + "i9349" + "i9347" + "i9345" + "i9343" + "i9341" + "i9339" + "i9337" + "i9335" + "i9333" + "i9331" + "i9329" + "i9328" + "i9326" + "i9324" + "i9322" + "i9320" + "i9318" + "i9316" + "i9314" + "i9312")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i61" "i59"))) + ("i9215" "i9213"))) (hygiene guile))) 'eval (syntax-violation 'eval-when "invalid situation" - #{e\ 1765}# - (#{wrap\ 329}# - #{x\ 1778}# - #{w\ 1767}# + #{e\ 10919}# + (#{wrap\ 9483}# + #{x\ 10932}# + #{w\ 10921}# #f)))))) - #{situations\ 1776}#)))))) - (#{f\ 1774}# #{when-list\ 1766}# (quote ()))))) - (#{chi-install-global\ 337}# - (lambda (#{name\ 1786}# #{e\ 1787}#) - (#{build-global-definition\ 200}# + #{situations\ 10930}#)))))) + (#{f\ 10928}# #{when-list\ 10920}# (quote ()))))) + (#{chi-install-global\ 9491}# + (lambda (#{name\ 10940}# #{e\ 10941}#) + (#{build-global-definition\ 9354}# #f - #{name\ 1786}# - (if (let ((#{v\ 1792}# - (module-variable - (current-module) - #{name\ 1786}#))) - (if #{v\ 1792}# - (if (variable-bound? #{v\ 1792}#) - (if (macro? (variable-ref #{v\ 1792}#)) - (not (eq? (macro-type (variable-ref #{v\ 1792}#)) - 'syncase-macro)) - #f) - #f) - #f)) - (#{build-application\ 184}# + #{name\ 10940}# + (#{build-application\ 9338}# + #f + (#{build-primref\ 9362}# #f - (#{build-primref\ 208}# - #f - 'make-extended-syncase-macro) - (list (#{build-application\ 184}# - #f - (#{build-primref\ 208}# #f (quote module-ref)) - (list (#{build-application\ 184}# + 'make-syntax-transformer) + (list (#{build-data\ 9364}# #f #{name\ 10940}#) + (#{build-data\ 9364}# #f (quote macro)) + (#{build-application\ 9338}# + #f + (#{build-primref\ 9362}# #f (quote cons)) + (list #{e\ 10941}# + (#{build-application\ 9338}# + #f + (#{build-primref\ 9362}# #f - (#{build-primref\ 208}# - #f - 'current-module) - '()) - (#{build-data\ 210}# #f #{name\ 1786}#))) - (#{build-data\ 210}# #f (quote macro)) - (#{build-application\ 184}# - #f - (#{build-primref\ 208}# #f (quote cons)) - (list #{e\ 1787}# - (#{build-application\ 184}# - #f - (#{build-primref\ 208}# - #f - 'module-name) - (list (#{build-application\ 184}# + 'module-name) + (list (#{build-application\ 9338}# + #f + (#{build-primref\ 9362}# #f - (#{build-primref\ 208}# - #f - 'current-module) - '()))))))) - (#{build-application\ 184}# - #f - (#{build-primref\ 208}# - #f - 'make-syncase-macro) - (list (#{build-data\ 210}# #f (quote macro)) - (#{build-application\ 184}# - #f - (#{build-primref\ 208}# #f (quote cons)) - (list #{e\ 1787}# - (#{build-application\ 184}# - #f - (#{build-primref\ 208}# - #f - 'module-name) - (list (#{build-application\ 184}# - #f - (#{build-primref\ 208}# - #f - 'current-module) - '()))))))))))) - (#{chi-top-sequence\ 335}# - (lambda (#{body\ 1820}# - #{r\ 1821}# - #{w\ 1822}# - #{s\ 1823}# - #{m\ 1824}# - #{esew\ 1825}# - #{mod\ 1826}#) - (#{build-sequence\ 212}# - #{s\ 1823}# - (letrec ((#{dobody\ 1841}# - (lambda (#{body\ 1842}# - #{r\ 1843}# - #{w\ 1844}# - #{m\ 1845}# - #{esew\ 1846}# - #{mod\ 1847}#) - (if (null? #{body\ 1842}#) + 'current-module) + '())))))))))) + (#{chi-top-sequence\ 9489}# + (lambda (#{body\ 10955}# + #{r\ 10956}# + #{w\ 10957}# + #{s\ 10958}# + #{m\ 10959}# + #{esew\ 10960}# + #{mod\ 10961}#) + (#{build-sequence\ 9366}# + #{s\ 10958}# + (letrec ((#{dobody\ 10976}# + (lambda (#{body\ 10977}# + #{r\ 10978}# + #{w\ 10979}# + #{m\ 10980}# + #{esew\ 10981}# + #{mod\ 10982}#) + (if (null? #{body\ 10977}#) '() - (let ((#{first\ 1849}# - (#{chi-top\ 343}# - (car #{body\ 1842}#) - #{r\ 1843}# - #{w\ 1844}# - #{m\ 1845}# - #{esew\ 1846}# - #{mod\ 1847}#))) - (cons #{first\ 1849}# - (#{dobody\ 1841}# - (cdr #{body\ 1842}#) - #{r\ 1843}# - #{w\ 1844}# - #{m\ 1845}# - #{esew\ 1846}# - #{mod\ 1847}#))))))) - (#{dobody\ 1841}# - #{body\ 1820}# - #{r\ 1821}# - #{w\ 1822}# - #{m\ 1824}# - #{esew\ 1825}# - #{mod\ 1826}#))))) - (#{chi-sequence\ 333}# - (lambda (#{body\ 1850}# - #{r\ 1851}# - #{w\ 1852}# - #{s\ 1853}# - #{mod\ 1854}#) - (#{build-sequence\ 212}# - #{s\ 1853}# - (letrec ((#{dobody\ 1865}# - (lambda (#{body\ 1866}# - #{r\ 1867}# - #{w\ 1868}# - #{mod\ 1869}#) - (if (null? #{body\ 1866}#) + (let ((#{first\ 10984}# + (#{chi-top\ 9497}# + (car #{body\ 10977}#) + #{r\ 10978}# + #{w\ 10979}# + #{m\ 10980}# + #{esew\ 10981}# + #{mod\ 10982}#))) + (cons #{first\ 10984}# + (#{dobody\ 10976}# + (cdr #{body\ 10977}#) + #{r\ 10978}# + #{w\ 10979}# + #{m\ 10980}# + #{esew\ 10981}# + #{mod\ 10982}#))))))) + (#{dobody\ 10976}# + #{body\ 10955}# + #{r\ 10956}# + #{w\ 10957}# + #{m\ 10959}# + #{esew\ 10960}# + #{mod\ 10961}#))))) + (#{chi-sequence\ 9487}# + (lambda (#{body\ 10985}# + #{r\ 10986}# + #{w\ 10987}# + #{s\ 10988}# + #{mod\ 10989}#) + (#{build-sequence\ 9366}# + #{s\ 10988}# + (letrec ((#{dobody\ 11000}# + (lambda (#{body\ 11001}# + #{r\ 11002}# + #{w\ 11003}# + #{mod\ 11004}#) + (if (null? #{body\ 11001}#) '() - (let ((#{first\ 1871}# - (#{chi\ 345}# - (car #{body\ 1866}#) - #{r\ 1867}# - #{w\ 1868}# - #{mod\ 1869}#))) - (cons #{first\ 1871}# - (#{dobody\ 1865}# - (cdr #{body\ 1866}#) - #{r\ 1867}# - #{w\ 1868}# - #{mod\ 1869}#))))))) - (#{dobody\ 1865}# - #{body\ 1850}# - #{r\ 1851}# - #{w\ 1852}# - #{mod\ 1854}#))))) - (#{source-wrap\ 331}# - (lambda (#{x\ 1872}# - #{w\ 1873}# - #{s\ 1874}# - #{defmod\ 1875}#) - (#{wrap\ 329}# - (#{decorate-source\ 180}# - #{x\ 1872}# - #{s\ 1874}#) - #{w\ 1873}# - #{defmod\ 1875}#))) - (#{wrap\ 329}# - (lambda (#{x\ 1880}# #{w\ 1881}# #{defmod\ 1882}#) - (if (if (null? (#{wrap-marks\ 267}# #{w\ 1881}#)) - (null? (#{wrap-subst\ 269}# #{w\ 1881}#)) + (let ((#{first\ 11006}# + (#{chi\ 9499}# + (car #{body\ 11001}#) + #{r\ 11002}# + #{w\ 11003}# + #{mod\ 11004}#))) + (cons #{first\ 11006}# + (#{dobody\ 11000}# + (cdr #{body\ 11001}#) + #{r\ 11002}# + #{w\ 11003}# + #{mod\ 11004}#))))))) + (#{dobody\ 11000}# + #{body\ 10985}# + #{r\ 10986}# + #{w\ 10987}# + #{mod\ 10989}#))))) + (#{source-wrap\ 9485}# + (lambda (#{x\ 11007}# + #{w\ 11008}# + #{s\ 11009}# + #{defmod\ 11010}#) + (#{wrap\ 9483}# + (#{decorate-source\ 9334}# + #{x\ 11007}# + #{s\ 11009}#) + #{w\ 11008}# + #{defmod\ 11010}#))) + (#{wrap\ 9483}# + (lambda (#{x\ 11015}# #{w\ 11016}# #{defmod\ 11017}#) + (if (if (null? (#{wrap-marks\ 9421}# #{w\ 11016}#)) + (null? (#{wrap-subst\ 9423}# #{w\ 11016}#)) #f) - #{x\ 1880}# - (if (#{syntax-object?\ 224}# #{x\ 1880}#) - (#{make-syntax-object\ 222}# - (#{syntax-object-expression\ 226}# #{x\ 1880}#) - (#{join-wraps\ 311}# - #{w\ 1881}# - (#{syntax-object-wrap\ 228}# #{x\ 1880}#)) - (#{syntax-object-module\ 230}# #{x\ 1880}#)) - (if (null? #{x\ 1880}#) - #{x\ 1880}# - (#{make-syntax-object\ 222}# - #{x\ 1880}# - #{w\ 1881}# - #{defmod\ 1882}#)))))) - (#{bound-id-member?\ 327}# - (lambda (#{x\ 1895}# #{list\ 1896}#) - (if (not (null? #{list\ 1896}#)) - (let ((#{t\ 1903}# - (#{bound-id=?\ 321}# - #{x\ 1895}# - (car #{list\ 1896}#)))) - (if #{t\ 1903}# - #{t\ 1903}# - (#{bound-id-member?\ 327}# - #{x\ 1895}# - (cdr #{list\ 1896}#)))) + #{x\ 11015}# + (if (#{syntax-object?\ 9378}# #{x\ 11015}#) + (#{make-syntax-object\ 9376}# + (#{syntax-object-expression\ 9380}# #{x\ 11015}#) + (#{join-wraps\ 9465}# + #{w\ 11016}# + (#{syntax-object-wrap\ 9382}# #{x\ 11015}#)) + (#{syntax-object-module\ 9384}# #{x\ 11015}#)) + (if (null? #{x\ 11015}#) + #{x\ 11015}# + (#{make-syntax-object\ 9376}# + #{x\ 11015}# + #{w\ 11016}# + #{defmod\ 11017}#)))))) + (#{bound-id-member?\ 9481}# + (lambda (#{x\ 11030}# #{list\ 11031}#) + (if (not (null? #{list\ 11031}#)) + (let ((#{t\ 11038}# + (#{bound-id=?\ 9475}# + #{x\ 11030}# + (car #{list\ 11031}#)))) + (if #{t\ 11038}# + #{t\ 11038}# + (#{bound-id-member?\ 9481}# + #{x\ 11030}# + (cdr #{list\ 11031}#)))) #f))) - (#{distinct-bound-ids?\ 325}# - (lambda (#{ids\ 1905}#) - (letrec ((#{distinct?\ 1909}# - (lambda (#{ids\ 1910}#) - (let ((#{t\ 1913}# (null? #{ids\ 1910}#))) - (if #{t\ 1913}# - #{t\ 1913}# - (if (not (#{bound-id-member?\ 327}# - (car #{ids\ 1910}#) - (cdr #{ids\ 1910}#))) - (#{distinct?\ 1909}# (cdr #{ids\ 1910}#)) + (#{distinct-bound-ids?\ 9479}# + (lambda (#{ids\ 11040}#) + (letrec ((#{distinct?\ 11044}# + (lambda (#{ids\ 11045}#) + (let ((#{t\ 11048}# (null? #{ids\ 11045}#))) + (if #{t\ 11048}# + #{t\ 11048}# + (if (not (#{bound-id-member?\ 9481}# + (car #{ids\ 11045}#) + (cdr #{ids\ 11045}#))) + (#{distinct?\ 11044}# (cdr #{ids\ 11045}#)) #f)))))) - (#{distinct?\ 1909}# #{ids\ 1905}#)))) - (#{valid-bound-ids?\ 323}# - (lambda (#{ids\ 1917}#) - (if (letrec ((#{all-ids?\ 1922}# - (lambda (#{ids\ 1923}#) - (let ((#{t\ 1926}# (null? #{ids\ 1923}#))) - (if #{t\ 1926}# - #{t\ 1926}# - (if (#{id?\ 260}# (car #{ids\ 1923}#)) - (#{all-ids?\ 1922}# (cdr #{ids\ 1923}#)) + (#{distinct?\ 11044}# #{ids\ 11040}#)))) + (#{valid-bound-ids?\ 9477}# + (lambda (#{ids\ 11052}#) + (if (letrec ((#{all-ids?\ 11057}# + (lambda (#{ids\ 11058}#) + (let ((#{t\ 11061}# (null? #{ids\ 11058}#))) + (if #{t\ 11061}# + #{t\ 11061}# + (if (#{id?\ 9414}# (car #{ids\ 11058}#)) + (#{all-ids?\ 11057}# + (cdr #{ids\ 11058}#)) #f)))))) - (#{all-ids?\ 1922}# #{ids\ 1917}#)) - (#{distinct-bound-ids?\ 325}# #{ids\ 1917}#) + (#{all-ids?\ 11057}# #{ids\ 11052}#)) + (#{distinct-bound-ids?\ 9479}# #{ids\ 11052}#) #f))) - (#{bound-id=?\ 321}# - (lambda (#{i\ 1931}# #{j\ 1932}#) - (if (if (#{syntax-object?\ 224}# #{i\ 1931}#) - (#{syntax-object?\ 224}# #{j\ 1932}#) + (#{bound-id=?\ 9475}# + (lambda (#{i\ 11066}# #{j\ 11067}#) + (if (if (#{syntax-object?\ 9378}# #{i\ 11066}#) + (#{syntax-object?\ 9378}# #{j\ 11067}#) #f) - (if (eq? (#{syntax-object-expression\ 226}# #{i\ 1931}#) - (#{syntax-object-expression\ 226}# #{j\ 1932}#)) - (#{same-marks?\ 315}# - (#{wrap-marks\ 267}# - (#{syntax-object-wrap\ 228}# #{i\ 1931}#)) - (#{wrap-marks\ 267}# - (#{syntax-object-wrap\ 228}# #{j\ 1932}#))) + (if (eq? (#{syntax-object-expression\ 9380}# #{i\ 11066}#) + (#{syntax-object-expression\ 9380}# #{j\ 11067}#)) + (#{same-marks?\ 9469}# + (#{wrap-marks\ 9421}# + (#{syntax-object-wrap\ 9382}# #{i\ 11066}#)) + (#{wrap-marks\ 9421}# + (#{syntax-object-wrap\ 9382}# #{j\ 11067}#))) #f) - (eq? #{i\ 1931}# #{j\ 1932}#)))) - (#{free-id=?\ 319}# - (lambda (#{i\ 1939}# #{j\ 1940}#) - (if (eq? (let ((#{x\ 1946}# #{i\ 1939}#)) - (if (#{syntax-object?\ 224}# #{x\ 1946}#) - (#{syntax-object-expression\ 226}# #{x\ 1946}#) - #{x\ 1946}#)) - (let ((#{x\ 1949}# #{j\ 1940}#)) - (if (#{syntax-object?\ 224}# #{x\ 1949}#) - (#{syntax-object-expression\ 226}# #{x\ 1949}#) - #{x\ 1949}#))) - (eq? (#{id-var-name\ 317}# #{i\ 1939}# (quote (()))) - (#{id-var-name\ 317}# #{j\ 1940}# (quote (())))) + (eq? #{i\ 11066}# #{j\ 11067}#)))) + (#{free-id=?\ 9473}# + (lambda (#{i\ 11074}# #{j\ 11075}#) + (if (eq? (let ((#{x\ 11081}# #{i\ 11074}#)) + (if (#{syntax-object?\ 9378}# #{x\ 11081}#) + (#{syntax-object-expression\ 9380}# #{x\ 11081}#) + #{x\ 11081}#)) + (let ((#{x\ 11084}# #{j\ 11075}#)) + (if (#{syntax-object?\ 9378}# #{x\ 11084}#) + (#{syntax-object-expression\ 9380}# #{x\ 11084}#) + #{x\ 11084}#))) + (eq? (#{id-var-name\ 9471}# #{i\ 11074}# (quote (()))) + (#{id-var-name\ 9471}# #{j\ 11075}# (quote (())))) #f))) - (#{id-var-name\ 317}# - (lambda (#{id\ 1953}# #{w\ 1954}#) - (letrec ((#{search-vector-rib\ 1963}# - (lambda (#{sym\ 1975}# - #{subst\ 1976}# - #{marks\ 1977}# - #{symnames\ 1978}# - #{ribcage\ 1979}#) - (let ((#{n\ 1986}# - (vector-length #{symnames\ 1978}#))) - (letrec ((#{f\ 1989}# - (lambda (#{i\ 1990}#) - (if (#{fx=\ 167}# - #{i\ 1990}# - #{n\ 1986}#) - (#{search\ 1959}# - #{sym\ 1975}# - (cdr #{subst\ 1976}#) - #{marks\ 1977}#) + (#{id-var-name\ 9471}# + (lambda (#{id\ 11088}# #{w\ 11089}#) + (letrec ((#{search-vector-rib\ 11098}# + (lambda (#{sym\ 11110}# + #{subst\ 11111}# + #{marks\ 11112}# + #{symnames\ 11113}# + #{ribcage\ 11114}#) + (let ((#{n\ 11121}# + (vector-length #{symnames\ 11113}#))) + (letrec ((#{f\ 11124}# + (lambda (#{i\ 11125}#) + (if (#{fx=\ 9321}# + #{i\ 11125}# + #{n\ 11121}#) + (#{search\ 11094}# + #{sym\ 11110}# + (cdr #{subst\ 11111}#) + #{marks\ 11112}#) (if (if (eq? (vector-ref - #{symnames\ 1978}# - #{i\ 1990}#) - #{sym\ 1975}#) - (#{same-marks?\ 315}# - #{marks\ 1977}# + #{symnames\ 11113}# + #{i\ 11125}#) + #{sym\ 11110}#) + (#{same-marks?\ 9469}# + #{marks\ 11112}# (vector-ref - (#{ribcage-marks\ 287}# - #{ribcage\ 1979}#) - #{i\ 1990}#)) + (#{ribcage-marks\ 9441}# + #{ribcage\ 11114}#) + #{i\ 11125}#)) #f) (values (vector-ref - (#{ribcage-labels\ 289}# - #{ribcage\ 1979}#) - #{i\ 1990}#) - #{marks\ 1977}#) - (#{f\ 1989}# - (#{fx+\ 163}# - #{i\ 1990}# + (#{ribcage-labels\ 9443}# + #{ribcage\ 11114}#) + #{i\ 11125}#) + #{marks\ 11112}#) + (#{f\ 11124}# + (#{fx+\ 9317}# + #{i\ 11125}# 1))))))) - (#{f\ 1989}# 0))))) - (#{search-list-rib\ 1961}# - (lambda (#{sym\ 1998}# - #{subst\ 1999}# - #{marks\ 2000}# - #{symnames\ 2001}# - #{ribcage\ 2002}#) - (letrec ((#{f\ 2011}# - (lambda (#{symnames\ 2012}# #{i\ 2013}#) - (if (null? #{symnames\ 2012}#) - (#{search\ 1959}# - #{sym\ 1998}# - (cdr #{subst\ 1999}#) - #{marks\ 2000}#) - (if (if (eq? (car #{symnames\ 2012}#) - #{sym\ 1998}#) - (#{same-marks?\ 315}# - #{marks\ 2000}# + (#{f\ 11124}# 0))))) + (#{search-list-rib\ 11096}# + (lambda (#{sym\ 11133}# + #{subst\ 11134}# + #{marks\ 11135}# + #{symnames\ 11136}# + #{ribcage\ 11137}#) + (letrec ((#{f\ 11146}# + (lambda (#{symnames\ 11147}# + #{i\ 11148}#) + (if (null? #{symnames\ 11147}#) + (#{search\ 11094}# + #{sym\ 11133}# + (cdr #{subst\ 11134}#) + #{marks\ 11135}#) + (if (if (eq? (car #{symnames\ 11147}#) + #{sym\ 11133}#) + (#{same-marks?\ 9469}# + #{marks\ 11135}# (list-ref - (#{ribcage-marks\ 287}# - #{ribcage\ 2002}#) - #{i\ 2013}#)) + (#{ribcage-marks\ 9441}# + #{ribcage\ 11137}#) + #{i\ 11148}#)) #f) (values (list-ref - (#{ribcage-labels\ 289}# - #{ribcage\ 2002}#) - #{i\ 2013}#) - #{marks\ 2000}#) - (#{f\ 2011}# - (cdr #{symnames\ 2012}#) - (#{fx+\ 163}# - #{i\ 2013}# + (#{ribcage-labels\ 9443}# + #{ribcage\ 11137}#) + #{i\ 11148}#) + #{marks\ 11135}#) + (#{f\ 11146}# + (cdr #{symnames\ 11147}#) + (#{fx+\ 9317}# + #{i\ 11148}# 1))))))) - (#{f\ 2011}# #{symnames\ 2001}# 0)))) - (#{search\ 1959}# - (lambda (#{sym\ 2021}# - #{subst\ 2022}# - #{marks\ 2023}#) - (if (null? #{subst\ 2022}#) - (values #f #{marks\ 2023}#) - (let ((#{fst\ 2028}# (car #{subst\ 2022}#))) - (if (eq? #{fst\ 2028}# (quote shift)) - (#{search\ 1959}# - #{sym\ 2021}# - (cdr #{subst\ 2022}#) - (cdr #{marks\ 2023}#)) - (let ((#{symnames\ 2030}# - (#{ribcage-symnames\ 285}# - #{fst\ 2028}#))) - (if (vector? #{symnames\ 2030}#) - (#{search-vector-rib\ 1963}# - #{sym\ 2021}# - #{subst\ 2022}# - #{marks\ 2023}# - #{symnames\ 2030}# - #{fst\ 2028}#) - (#{search-list-rib\ 1961}# - #{sym\ 2021}# - #{subst\ 2022}# - #{marks\ 2023}# - #{symnames\ 2030}# - #{fst\ 2028}#))))))))) - (if (symbol? #{id\ 1953}#) - (let ((#{t\ 2033}# + (#{f\ 11146}# #{symnames\ 11136}# 0)))) + (#{search\ 11094}# + (lambda (#{sym\ 11156}# + #{subst\ 11157}# + #{marks\ 11158}#) + (if (null? #{subst\ 11157}#) + (values #f #{marks\ 11158}#) + (let ((#{fst\ 11163}# (car #{subst\ 11157}#))) + (if (eq? #{fst\ 11163}# (quote shift)) + (#{search\ 11094}# + #{sym\ 11156}# + (cdr #{subst\ 11157}#) + (cdr #{marks\ 11158}#)) + (let ((#{symnames\ 11165}# + (#{ribcage-symnames\ 9439}# + #{fst\ 11163}#))) + (if (vector? #{symnames\ 11165}#) + (#{search-vector-rib\ 11098}# + #{sym\ 11156}# + #{subst\ 11157}# + #{marks\ 11158}# + #{symnames\ 11165}# + #{fst\ 11163}#) + (#{search-list-rib\ 11096}# + #{sym\ 11156}# + #{subst\ 11157}# + #{marks\ 11158}# + #{symnames\ 11165}# + #{fst\ 11163}#))))))))) + (if (symbol? #{id\ 11088}#) + (let ((#{t\ 11168}# (call-with-values (lambda () - (#{search\ 1959}# - #{id\ 1953}# - (#{wrap-subst\ 269}# #{w\ 1954}#) - (#{wrap-marks\ 267}# #{w\ 1954}#))) - (lambda (#{x\ 2035}# . #{ignore\ 2036}#) - #{x\ 2035}#)))) - (if #{t\ 2033}# #{t\ 2033}# #{id\ 1953}#)) - (if (#{syntax-object?\ 224}# #{id\ 1953}#) - (let ((#{id\ 2044}# - (#{syntax-object-expression\ 226}# #{id\ 1953}#)) - (#{w1\ 2045}# - (#{syntax-object-wrap\ 228}# #{id\ 1953}#))) - (let ((#{marks\ 2047}# - (#{join-marks\ 313}# - (#{wrap-marks\ 267}# #{w\ 1954}#) - (#{wrap-marks\ 267}# #{w1\ 2045}#)))) + (#{search\ 11094}# + #{id\ 11088}# + (#{wrap-subst\ 9423}# #{w\ 11089}#) + (#{wrap-marks\ 9421}# #{w\ 11089}#))) + (lambda (#{x\ 11170}# . #{ignore\ 11171}#) + #{x\ 11170}#)))) + (if #{t\ 11168}# #{t\ 11168}# #{id\ 11088}#)) + (if (#{syntax-object?\ 9378}# #{id\ 11088}#) + (let ((#{id\ 11179}# + (#{syntax-object-expression\ 9380}# + #{id\ 11088}#)) + (#{w1\ 11180}# + (#{syntax-object-wrap\ 9382}# #{id\ 11088}#))) + (let ((#{marks\ 11182}# + (#{join-marks\ 9467}# + (#{wrap-marks\ 9421}# #{w\ 11089}#) + (#{wrap-marks\ 9421}# #{w1\ 11180}#)))) (call-with-values (lambda () - (#{search\ 1959}# - #{id\ 2044}# - (#{wrap-subst\ 269}# #{w\ 1954}#) - #{marks\ 2047}#)) - (lambda (#{new-id\ 2048}# #{marks\ 2049}#) - (let ((#{t\ 2054}# #{new-id\ 2048}#)) - (if #{t\ 2054}# - #{t\ 2054}# - (let ((#{t\ 2057}# + (#{search\ 11094}# + #{id\ 11179}# + (#{wrap-subst\ 9423}# #{w\ 11089}#) + #{marks\ 11182}#)) + (lambda (#{new-id\ 11183}# #{marks\ 11184}#) + (let ((#{t\ 11189}# #{new-id\ 11183}#)) + (if #{t\ 11189}# + #{t\ 11189}# + (let ((#{t\ 11192}# (call-with-values (lambda () - (#{search\ 1959}# - #{id\ 2044}# - (#{wrap-subst\ 269}# - #{w1\ 2045}#) - #{marks\ 2049}#)) - (lambda (#{x\ 2059}# + (#{search\ 11094}# + #{id\ 11179}# + (#{wrap-subst\ 9423}# + #{w1\ 11180}#) + #{marks\ 11184}#)) + (lambda (#{x\ 11194}# . - #{ignore\ 2060}#) - #{x\ 2059}#)))) - (if #{t\ 2057}# - #{t\ 2057}# - #{id\ 2044}#)))))))) + #{ignore\ 11195}#) + #{x\ 11194}#)))) + (if #{t\ 11192}# + #{t\ 11192}# + #{id\ 11179}#)))))))) (syntax-violation 'id-var-name "invalid id" - #{id\ 1953}#)))))) - (#{same-marks?\ 315}# - (lambda (#{x\ 2065}# #{y\ 2066}#) - (let ((#{t\ 2071}# (eq? #{x\ 2065}# #{y\ 2066}#))) - (if #{t\ 2071}# - #{t\ 2071}# - (if (not (null? #{x\ 2065}#)) - (if (not (null? #{y\ 2066}#)) - (if (eq? (car #{x\ 2065}#) (car #{y\ 2066}#)) - (#{same-marks?\ 315}# - (cdr #{x\ 2065}#) - (cdr #{y\ 2066}#)) + #{id\ 11088}#)))))) + (#{same-marks?\ 9469}# + (lambda (#{x\ 11200}# #{y\ 11201}#) + (let ((#{t\ 11206}# (eq? #{x\ 11200}# #{y\ 11201}#))) + (if #{t\ 11206}# + #{t\ 11206}# + (if (not (null? #{x\ 11200}#)) + (if (not (null? #{y\ 11201}#)) + (if (eq? (car #{x\ 11200}#) (car #{y\ 11201}#)) + (#{same-marks?\ 9469}# + (cdr #{x\ 11200}#) + (cdr #{y\ 11201}#)) #f) #f) #f))))) - (#{join-marks\ 313}# - (lambda (#{m1\ 2077}# #{m2\ 2078}#) - (#{smart-append\ 309}# #{m1\ 2077}# #{m2\ 2078}#))) - (#{join-wraps\ 311}# - (lambda (#{w1\ 2081}# #{w2\ 2082}#) - (let ((#{m1\ 2087}# (#{wrap-marks\ 267}# #{w1\ 2081}#)) - (#{s1\ 2088}# (#{wrap-subst\ 269}# #{w1\ 2081}#))) - (if (null? #{m1\ 2087}#) - (if (null? #{s1\ 2088}#) - #{w2\ 2082}# - (#{make-wrap\ 265}# - (#{wrap-marks\ 267}# #{w2\ 2082}#) - (#{smart-append\ 309}# - #{s1\ 2088}# - (#{wrap-subst\ 269}# #{w2\ 2082}#)))) - (#{make-wrap\ 265}# - (#{smart-append\ 309}# - #{m1\ 2087}# - (#{wrap-marks\ 267}# #{w2\ 2082}#)) - (#{smart-append\ 309}# - #{s1\ 2088}# - (#{wrap-subst\ 269}# #{w2\ 2082}#))))))) - (#{smart-append\ 309}# - (lambda (#{m1\ 2089}# #{m2\ 2090}#) - (if (null? #{m2\ 2090}#) - #{m1\ 2089}# - (append #{m1\ 2089}# #{m2\ 2090}#)))) - (#{make-binding-wrap\ 307}# - (lambda (#{ids\ 2093}# #{labels\ 2094}# #{w\ 2095}#) - (if (null? #{ids\ 2093}#) - #{w\ 2095}# - (#{make-wrap\ 265}# - (#{wrap-marks\ 267}# #{w\ 2095}#) - (cons (let ((#{labelvec\ 2100}# - (list->vector #{labels\ 2094}#))) - (let ((#{n\ 2102}# - (vector-length #{labelvec\ 2100}#))) - (let ((#{symnamevec\ 2105}# - (make-vector #{n\ 2102}#)) - (#{marksvec\ 2106}# - (make-vector #{n\ 2102}#))) + (#{join-marks\ 9467}# + (lambda (#{m1\ 11212}# #{m2\ 11213}#) + (#{smart-append\ 9463}# + #{m1\ 11212}# + #{m2\ 11213}#))) + (#{join-wraps\ 9465}# + (lambda (#{w1\ 11216}# #{w2\ 11217}#) + (let ((#{m1\ 11222}# + (#{wrap-marks\ 9421}# #{w1\ 11216}#)) + (#{s1\ 11223}# + (#{wrap-subst\ 9423}# #{w1\ 11216}#))) + (if (null? #{m1\ 11222}#) + (if (null? #{s1\ 11223}#) + #{w2\ 11217}# + (#{make-wrap\ 9419}# + (#{wrap-marks\ 9421}# #{w2\ 11217}#) + (#{smart-append\ 9463}# + #{s1\ 11223}# + (#{wrap-subst\ 9423}# #{w2\ 11217}#)))) + (#{make-wrap\ 9419}# + (#{smart-append\ 9463}# + #{m1\ 11222}# + (#{wrap-marks\ 9421}# #{w2\ 11217}#)) + (#{smart-append\ 9463}# + #{s1\ 11223}# + (#{wrap-subst\ 9423}# #{w2\ 11217}#))))))) + (#{smart-append\ 9463}# + (lambda (#{m1\ 11224}# #{m2\ 11225}#) + (if (null? #{m2\ 11225}#) + #{m1\ 11224}# + (append #{m1\ 11224}# #{m2\ 11225}#)))) + (#{make-binding-wrap\ 9461}# + (lambda (#{ids\ 11228}# #{labels\ 11229}# #{w\ 11230}#) + (if (null? #{ids\ 11228}#) + #{w\ 11230}# + (#{make-wrap\ 9419}# + (#{wrap-marks\ 9421}# #{w\ 11230}#) + (cons (let ((#{labelvec\ 11235}# + (list->vector #{labels\ 11229}#))) + (let ((#{n\ 11237}# + (vector-length #{labelvec\ 11235}#))) + (let ((#{symnamevec\ 11240}# + (make-vector #{n\ 11237}#)) + (#{marksvec\ 11241}# + (make-vector #{n\ 11237}#))) (begin - (letrec ((#{f\ 2110}# - (lambda (#{ids\ 2111}# #{i\ 2112}#) - (if (not (null? #{ids\ 2111}#)) + (letrec ((#{f\ 11245}# + (lambda (#{ids\ 11246}# + #{i\ 11247}#) + (if (not (null? #{ids\ 11246}#)) (call-with-values (lambda () - (#{id-sym-name&marks\ 263}# - (car #{ids\ 2111}#) - #{w\ 2095}#)) - (lambda (#{symname\ 2113}# - #{marks\ 2114}#) + (#{id-sym-name&marks\ 9417}# + (car #{ids\ 11246}#) + #{w\ 11230}#)) + (lambda (#{symname\ 11248}# + #{marks\ 11249}#) (begin (vector-set! - #{symnamevec\ 2105}# - #{i\ 2112}# - #{symname\ 2113}#) + #{symnamevec\ 11240}# + #{i\ 11247}# + #{symname\ 11248}#) (vector-set! - #{marksvec\ 2106}# - #{i\ 2112}# - #{marks\ 2114}#) - (#{f\ 2110}# - (cdr #{ids\ 2111}#) - (#{fx+\ 163}# - #{i\ 2112}# + #{marksvec\ 11241}# + #{i\ 11247}# + #{marks\ 11249}#) + (#{f\ 11245}# + (cdr #{ids\ 11246}#) + (#{fx+\ 9317}# + #{i\ 11247}# 1))))))))) - (#{f\ 2110}# #{ids\ 2093}# 0)) - (#{make-ribcage\ 281}# - #{symnamevec\ 2105}# - #{marksvec\ 2106}# - #{labelvec\ 2100}#))))) - (#{wrap-subst\ 269}# #{w\ 2095}#)))))) - (#{extend-ribcage!\ 305}# - (lambda (#{ribcage\ 2117}# #{id\ 2118}# #{label\ 2119}#) + (#{f\ 11245}# #{ids\ 11228}# 0)) + (#{make-ribcage\ 9435}# + #{symnamevec\ 11240}# + #{marksvec\ 11241}# + #{labelvec\ 11235}#))))) + (#{wrap-subst\ 9423}# #{w\ 11230}#)))))) + (#{extend-ribcage!\ 9459}# + (lambda (#{ribcage\ 11252}# + #{id\ 11253}# + #{label\ 11254}#) (begin - (#{set-ribcage-symnames!\ 291}# - #{ribcage\ 2117}# - (cons (#{syntax-object-expression\ 226}# #{id\ 2118}#) - (#{ribcage-symnames\ 285}# #{ribcage\ 2117}#))) - (#{set-ribcage-marks!\ 293}# - #{ribcage\ 2117}# - (cons (#{wrap-marks\ 267}# - (#{syntax-object-wrap\ 228}# #{id\ 2118}#)) - (#{ribcage-marks\ 287}# #{ribcage\ 2117}#))) - (#{set-ribcage-labels!\ 295}# - #{ribcage\ 2117}# - (cons #{label\ 2119}# - (#{ribcage-labels\ 289}# #{ribcage\ 2117}#)))))) - (#{anti-mark\ 301}# - (lambda (#{w\ 2123}#) - (#{make-wrap\ 265}# - (cons #f (#{wrap-marks\ 267}# #{w\ 2123}#)) + (#{set-ribcage-symnames!\ 9445}# + #{ribcage\ 11252}# + (cons (#{syntax-object-expression\ 9380}# + #{id\ 11253}#) + (#{ribcage-symnames\ 9439}# #{ribcage\ 11252}#))) + (#{set-ribcage-marks!\ 9447}# + #{ribcage\ 11252}# + (cons (#{wrap-marks\ 9421}# + (#{syntax-object-wrap\ 9382}# #{id\ 11253}#)) + (#{ribcage-marks\ 9441}# #{ribcage\ 11252}#))) + (#{set-ribcage-labels!\ 9449}# + #{ribcage\ 11252}# + (cons #{label\ 11254}# + (#{ribcage-labels\ 9443}# #{ribcage\ 11252}#)))))) + (#{anti-mark\ 9455}# + (lambda (#{w\ 11258}#) + (#{make-wrap\ 9419}# + (cons #f (#{wrap-marks\ 9421}# #{w\ 11258}#)) (cons 'shift - (#{wrap-subst\ 269}# #{w\ 2123}#))))) - (#{set-ribcage-labels!\ 295}# - (lambda (#{x\ 2126}# #{update\ 2127}#) - (vector-set! #{x\ 2126}# 3 #{update\ 2127}#))) - (#{set-ribcage-marks!\ 293}# - (lambda (#{x\ 2130}# #{update\ 2131}#) - (vector-set! #{x\ 2130}# 2 #{update\ 2131}#))) - (#{set-ribcage-symnames!\ 291}# - (lambda (#{x\ 2134}# #{update\ 2135}#) - (vector-set! #{x\ 2134}# 1 #{update\ 2135}#))) - (#{ribcage-labels\ 289}# - (lambda (#{x\ 2138}#) (vector-ref #{x\ 2138}# 3))) - (#{ribcage-marks\ 287}# - (lambda (#{x\ 2140}#) (vector-ref #{x\ 2140}# 2))) - (#{ribcage-symnames\ 285}# - (lambda (#{x\ 2142}#) (vector-ref #{x\ 2142}# 1))) - (#{ribcage?\ 283}# - (lambda (#{x\ 2144}#) - (if (vector? #{x\ 2144}#) - (if (= (vector-length #{x\ 2144}#) 4) - (eq? (vector-ref #{x\ 2144}# 0) (quote ribcage)) + (#{wrap-subst\ 9423}# #{w\ 11258}#))))) + (#{set-ribcage-labels!\ 9449}# + (lambda (#{x\ 11261}# #{update\ 11262}#) + (vector-set! #{x\ 11261}# 3 #{update\ 11262}#))) + (#{set-ribcage-marks!\ 9447}# + (lambda (#{x\ 11265}# #{update\ 11266}#) + (vector-set! #{x\ 11265}# 2 #{update\ 11266}#))) + (#{set-ribcage-symnames!\ 9445}# + (lambda (#{x\ 11269}# #{update\ 11270}#) + (vector-set! #{x\ 11269}# 1 #{update\ 11270}#))) + (#{ribcage-labels\ 9443}# + (lambda (#{x\ 11273}#) + (vector-ref #{x\ 11273}# 3))) + (#{ribcage-marks\ 9441}# + (lambda (#{x\ 11275}#) + (vector-ref #{x\ 11275}# 2))) + (#{ribcage-symnames\ 9439}# + (lambda (#{x\ 11277}#) + (vector-ref #{x\ 11277}# 1))) + (#{ribcage?\ 9437}# + (lambda (#{x\ 11279}#) + (if (vector? #{x\ 11279}#) + (if (= (vector-length #{x\ 11279}#) 4) + (eq? (vector-ref #{x\ 11279}# 0) (quote ribcage)) #f) #f))) - (#{make-ribcage\ 281}# - (lambda (#{symnames\ 2149}# - #{marks\ 2150}# - #{labels\ 2151}#) + (#{make-ribcage\ 9435}# + (lambda (#{symnames\ 11284}# + #{marks\ 11285}# + #{labels\ 11286}#) (vector 'ribcage - #{symnames\ 2149}# - #{marks\ 2150}# - #{labels\ 2151}#))) - (#{gen-labels\ 278}# - (lambda (#{ls\ 2155}#) - (if (null? #{ls\ 2155}#) + #{symnames\ 11284}# + #{marks\ 11285}# + #{labels\ 11286}#))) + (#{gen-labels\ 9432}# + (lambda (#{ls\ 11290}#) + (if (null? #{ls\ 11290}#) '() - (cons (#{gen-label\ 276}#) - (#{gen-labels\ 278}# (cdr #{ls\ 2155}#)))))) - (#{gen-label\ 276}# + (cons (#{gen-label\ 9430}#) + (#{gen-labels\ 9432}# (cdr #{ls\ 11290}#)))))) + (#{gen-label\ 9430}# (lambda () (symbol->string (gensym "i")))) - (#{wrap-subst\ 269}# cdr) - (#{wrap-marks\ 267}# car) - (#{make-wrap\ 265}# cons) - (#{id-sym-name&marks\ 263}# - (lambda (#{x\ 2157}# #{w\ 2158}#) - (if (#{syntax-object?\ 224}# #{x\ 2157}#) + (#{wrap-subst\ 9423}# cdr) + (#{wrap-marks\ 9421}# car) + (#{make-wrap\ 9419}# cons) + (#{id-sym-name&marks\ 9417}# + (lambda (#{x\ 11292}# #{w\ 11293}#) + (if (#{syntax-object?\ 9378}# #{x\ 11292}#) (values - (#{syntax-object-expression\ 226}# #{x\ 2157}#) - (#{join-marks\ 313}# - (#{wrap-marks\ 267}# #{w\ 2158}#) - (#{wrap-marks\ 267}# - (#{syntax-object-wrap\ 228}# #{x\ 2157}#)))) + (#{syntax-object-expression\ 9380}# #{x\ 11292}#) + (#{join-marks\ 9467}# + (#{wrap-marks\ 9421}# #{w\ 11293}#) + (#{wrap-marks\ 9421}# + (#{syntax-object-wrap\ 9382}# #{x\ 11292}#)))) (values - #{x\ 2157}# - (#{wrap-marks\ 267}# #{w\ 2158}#))))) - (#{id?\ 260}# - (lambda (#{x\ 2161}#) - (if (symbol? #{x\ 2161}#) + #{x\ 11292}# + (#{wrap-marks\ 9421}# #{w\ 11293}#))))) + (#{id?\ 9414}# + (lambda (#{x\ 11296}#) + (if (symbol? #{x\ 11296}#) #t - (if (#{syntax-object?\ 224}# #{x\ 2161}#) + (if (#{syntax-object?\ 9378}# #{x\ 11296}#) (symbol? - (#{syntax-object-expression\ 226}# #{x\ 2161}#)) + (#{syntax-object-expression\ 9380}# #{x\ 11296}#)) #f)))) - (#{nonsymbol-id?\ 258}# - (lambda (#{x\ 2168}#) - (if (#{syntax-object?\ 224}# #{x\ 2168}#) + (#{nonsymbol-id?\ 9412}# + (lambda (#{x\ 11303}#) + (if (#{syntax-object?\ 9378}# #{x\ 11303}#) (symbol? - (#{syntax-object-expression\ 226}# #{x\ 2168}#)) + (#{syntax-object-expression\ 9380}# #{x\ 11303}#)) #f))) - (#{global-extend\ 256}# - (lambda (#{type\ 2172}# #{sym\ 2173}# #{val\ 2174}#) - (#{put-global-definition-hook\ 176}# - #{sym\ 2173}# - #{type\ 2172}# - #{val\ 2174}#))) - (#{lookup\ 254}# - (lambda (#{x\ 2178}# #{r\ 2179}# #{mod\ 2180}#) - (let ((#{t\ 2186}# (assq #{x\ 2178}# #{r\ 2179}#))) - (if #{t\ 2186}# - (cdr #{t\ 2186}#) - (if (symbol? #{x\ 2178}#) - (let ((#{t\ 2192}# - (#{get-global-definition-hook\ 178}# - #{x\ 2178}# - #{mod\ 2180}#))) - (if #{t\ 2192}# #{t\ 2192}# (quote (global)))) + (#{global-extend\ 9410}# + (lambda (#{type\ 11307}# #{sym\ 11308}# #{val\ 11309}#) + (#{put-global-definition-hook\ 9330}# + #{sym\ 11308}# + #{type\ 11307}# + #{val\ 11309}#))) + (#{lookup\ 9408}# + (lambda (#{x\ 11313}# #{r\ 11314}# #{mod\ 11315}#) + (let ((#{t\ 11321}# (assq #{x\ 11313}# #{r\ 11314}#))) + (if #{t\ 11321}# + (cdr #{t\ 11321}#) + (if (symbol? #{x\ 11313}#) + (let ((#{t\ 11327}# + (#{get-global-definition-hook\ 9332}# + #{x\ 11313}# + #{mod\ 11315}#))) + (if #{t\ 11327}# #{t\ 11327}# (quote (global)))) '(displaced-lexical)))))) - (#{macros-only-env\ 252}# - (lambda (#{r\ 2197}#) - (if (null? #{r\ 2197}#) + (#{macros-only-env\ 9406}# + (lambda (#{r\ 11332}#) + (if (null? #{r\ 11332}#) '() - (let ((#{a\ 2200}# (car #{r\ 2197}#))) - (if (eq? (cadr #{a\ 2200}#) (quote macro)) - (cons #{a\ 2200}# - (#{macros-only-env\ 252}# (cdr #{r\ 2197}#))) - (#{macros-only-env\ 252}# (cdr #{r\ 2197}#))))))) - (#{extend-var-env\ 250}# - (lambda (#{labels\ 2201}# #{vars\ 2202}# #{r\ 2203}#) - (if (null? #{labels\ 2201}#) - #{r\ 2203}# - (#{extend-var-env\ 250}# - (cdr #{labels\ 2201}#) - (cdr #{vars\ 2202}#) - (cons (cons (car #{labels\ 2201}#) - (cons (quote lexical) (car #{vars\ 2202}#))) - #{r\ 2203}#))))) - (#{extend-env\ 248}# - (lambda (#{labels\ 2208}# #{bindings\ 2209}# #{r\ 2210}#) - (if (null? #{labels\ 2208}#) - #{r\ 2210}# - (#{extend-env\ 248}# - (cdr #{labels\ 2208}#) - (cdr #{bindings\ 2209}#) - (cons (cons (car #{labels\ 2208}#) - (car #{bindings\ 2209}#)) - #{r\ 2210}#))))) - (#{binding-value\ 245}# cdr) - (#{binding-type\ 243}# car) - (#{source-annotation\ 239}# - (lambda (#{x\ 2214}#) - (if (#{syntax-object?\ 224}# #{x\ 2214}#) - (#{source-annotation\ 239}# - (#{syntax-object-expression\ 226}# #{x\ 2214}#)) - (if (pair? #{x\ 2214}#) - (let ((#{props\ 2221}# (source-properties #{x\ 2214}#))) - (if (pair? #{props\ 2221}#) #{props\ 2221}# #f)) + (let ((#{a\ 11335}# (car #{r\ 11332}#))) + (if (eq? (cadr #{a\ 11335}#) (quote macro)) + (cons #{a\ 11335}# + (#{macros-only-env\ 9406}# (cdr #{r\ 11332}#))) + (#{macros-only-env\ 9406}# (cdr #{r\ 11332}#))))))) + (#{extend-var-env\ 9404}# + (lambda (#{labels\ 11336}# #{vars\ 11337}# #{r\ 11338}#) + (if (null? #{labels\ 11336}#) + #{r\ 11338}# + (#{extend-var-env\ 9404}# + (cdr #{labels\ 11336}#) + (cdr #{vars\ 11337}#) + (cons (cons (car #{labels\ 11336}#) + (cons (quote lexical) (car #{vars\ 11337}#))) + #{r\ 11338}#))))) + (#{extend-env\ 9402}# + (lambda (#{labels\ 11343}# + #{bindings\ 11344}# + #{r\ 11345}#) + (if (null? #{labels\ 11343}#) + #{r\ 11345}# + (#{extend-env\ 9402}# + (cdr #{labels\ 11343}#) + (cdr #{bindings\ 11344}#) + (cons (cons (car #{labels\ 11343}#) + (car #{bindings\ 11344}#)) + #{r\ 11345}#))))) + (#{binding-value\ 9399}# cdr) + (#{binding-type\ 9397}# car) + (#{source-annotation\ 9393}# + (lambda (#{x\ 11349}#) + (if (#{syntax-object?\ 9378}# #{x\ 11349}#) + (#{source-annotation\ 9393}# + (#{syntax-object-expression\ 9380}# #{x\ 11349}#)) + (if (pair? #{x\ 11349}#) + (let ((#{props\ 11356}# + (source-properties #{x\ 11349}#))) + (if (pair? #{props\ 11356}#) #{props\ 11356}# #f)) #f)))) - (#{set-syntax-object-module!\ 236}# - (lambda (#{x\ 2223}# #{update\ 2224}#) - (vector-set! #{x\ 2223}# 3 #{update\ 2224}#))) - (#{set-syntax-object-wrap!\ 234}# - (lambda (#{x\ 2227}# #{update\ 2228}#) - (vector-set! #{x\ 2227}# 2 #{update\ 2228}#))) - (#{set-syntax-object-expression!\ 232}# - (lambda (#{x\ 2231}# #{update\ 2232}#) - (vector-set! #{x\ 2231}# 1 #{update\ 2232}#))) - (#{syntax-object-module\ 230}# - (lambda (#{x\ 2235}#) (vector-ref #{x\ 2235}# 3))) - (#{syntax-object-wrap\ 228}# - (lambda (#{x\ 2237}#) (vector-ref #{x\ 2237}# 2))) - (#{syntax-object-expression\ 226}# - (lambda (#{x\ 2239}#) (vector-ref #{x\ 2239}# 1))) - (#{syntax-object?\ 224}# - (lambda (#{x\ 2241}#) - (if (vector? #{x\ 2241}#) - (if (= (vector-length #{x\ 2241}#) 4) - (eq? (vector-ref #{x\ 2241}# 0) + (#{set-syntax-object-module!\ 9390}# + (lambda (#{x\ 11358}# #{update\ 11359}#) + (vector-set! #{x\ 11358}# 3 #{update\ 11359}#))) + (#{set-syntax-object-wrap!\ 9388}# + (lambda (#{x\ 11362}# #{update\ 11363}#) + (vector-set! #{x\ 11362}# 2 #{update\ 11363}#))) + (#{set-syntax-object-expression!\ 9386}# + (lambda (#{x\ 11366}# #{update\ 11367}#) + (vector-set! #{x\ 11366}# 1 #{update\ 11367}#))) + (#{syntax-object-module\ 9384}# + (lambda (#{x\ 11370}#) + (vector-ref #{x\ 11370}# 3))) + (#{syntax-object-wrap\ 9382}# + (lambda (#{x\ 11372}#) + (vector-ref #{x\ 11372}# 2))) + (#{syntax-object-expression\ 9380}# + (lambda (#{x\ 11374}#) + (vector-ref #{x\ 11374}# 1))) + (#{syntax-object?\ 9378}# + (lambda (#{x\ 11376}#) + (if (vector? #{x\ 11376}#) + (if (= (vector-length #{x\ 11376}#) 4) + (eq? (vector-ref #{x\ 11376}# 0) 'syntax-object) #f) #f))) - (#{make-syntax-object\ 222}# - (lambda (#{expression\ 2246}# - #{wrap\ 2247}# - #{module\ 2248}#) + (#{make-syntax-object\ 9376}# + (lambda (#{expression\ 11381}# + #{wrap\ 11382}# + #{module\ 11383}#) (vector 'syntax-object - #{expression\ 2246}# - #{wrap\ 2247}# - #{module\ 2248}#))) - (#{build-letrec\ 218}# - (lambda (#{src\ 2252}# - #{ids\ 2253}# - #{vars\ 2254}# - #{val-exps\ 2255}# - #{body-exp\ 2256}#) - (if (null? #{vars\ 2254}#) - #{body-exp\ 2256}# - (let ((#{atom-key\ 2264}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2264}# (quote (c))) + #{expression\ 11381}# + #{wrap\ 11382}# + #{module\ 11383}#))) + (#{build-letrec\ 9372}# + (lambda (#{src\ 11387}# + #{ids\ 11388}# + #{vars\ 11389}# + #{val-exps\ 11390}# + #{body-exp\ 11391}#) + (if (null? #{vars\ 11389}#) + #{body-exp\ 11391}# + (let ((#{atom-key\ 11399}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11399}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 198}# - #{ids\ 2253}# - #{val-exps\ 2255}#) + #{maybe-name-value!\ 9352}# + #{ids\ 11388}# + #{val-exps\ 11390}#) ((@ (language tree-il) make-letrec) - #{src\ 2252}# - #{ids\ 2253}# - #{vars\ 2254}# - #{val-exps\ 2255}# - #{body-exp\ 2256}#)) - (#{decorate-source\ 180}# + #{src\ 11387}# + #{ids\ 11388}# + #{vars\ 11389}# + #{val-exps\ 11390}# + #{body-exp\ 11391}#)) + (#{decorate-source\ 9334}# (list 'letrec - (map list #{vars\ 2254}# #{val-exps\ 2255}#) - #{body-exp\ 2256}#) - #{src\ 2252}#)))))) - (#{build-named-let\ 216}# - (lambda (#{src\ 2268}# - #{ids\ 2269}# - #{vars\ 2270}# - #{val-exps\ 2271}# - #{body-exp\ 2272}#) - (let ((#{f\ 2282}# (car #{vars\ 2270}#)) - (#{f-name\ 2283}# (car #{ids\ 2269}#)) - (#{vars\ 2284}# (cdr #{vars\ 2270}#)) - (#{ids\ 2285}# (cdr #{ids\ 2269}#))) - (let ((#{atom-key\ 2288}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2288}# (quote (c))) - (let ((#{proc\ 2291}# - (#{build-simple-lambda\ 202}# - #{src\ 2268}# - #{ids\ 2285}# + (map list #{vars\ 11389}# #{val-exps\ 11390}#) + #{body-exp\ 11391}#) + #{src\ 11387}#)))))) + (#{build-named-let\ 9370}# + (lambda (#{src\ 11403}# + #{ids\ 11404}# + #{vars\ 11405}# + #{val-exps\ 11406}# + #{body-exp\ 11407}#) + (let ((#{f\ 11417}# (car #{vars\ 11405}#)) + (#{f-name\ 11418}# (car #{ids\ 11404}#)) + (#{vars\ 11419}# (cdr #{vars\ 11405}#)) + (#{ids\ 11420}# (cdr #{ids\ 11404}#))) + (let ((#{atom-key\ 11423}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11423}# (quote (c))) + (let ((#{proc\ 11426}# + (#{build-simple-lambda\ 9356}# + #{src\ 11403}# + #{ids\ 11420}# #f - #{vars\ 2284}# + #{vars\ 11419}# #f - #{body-exp\ 2272}#))) + #{body-exp\ 11407}#))) (begin - (#{maybe-name-value!\ 198}# - #{f-name\ 2283}# - #{proc\ 2291}#) + (#{maybe-name-value!\ 9352}# + #{f-name\ 11418}# + #{proc\ 11426}#) (for-each - #{maybe-name-value!\ 198}# - #{ids\ 2285}# - #{val-exps\ 2271}#) + #{maybe-name-value!\ 9352}# + #{ids\ 11420}# + #{val-exps\ 11406}#) ((@ (language tree-il) make-letrec) - #{src\ 2268}# - (list #{f-name\ 2283}#) - (list #{f\ 2282}#) - (list #{proc\ 2291}#) - (#{build-application\ 184}# - #{src\ 2268}# - (#{build-lexical-reference\ 188}# + #{src\ 11403}# + (list #{f-name\ 11418}#) + (list #{f\ 11417}#) + (list #{proc\ 11426}#) + (#{build-application\ 9338}# + #{src\ 11403}# + (#{build-lexical-reference\ 9342}# 'fun - #{src\ 2268}# - #{f-name\ 2283}# - #{f\ 2282}#) - #{val-exps\ 2271}#)))) - (#{decorate-source\ 180}# + #{src\ 11403}# + #{f-name\ 11418}# + #{f\ 11417}#) + #{val-exps\ 11406}#)))) + (#{decorate-source\ 9334}# (list 'letrec - (list (list #{f\ 2282}# + (list (list #{f\ 11417}# (list 'lambda - #{vars\ 2284}# - #{body-exp\ 2272}#))) - (cons #{f\ 2282}# #{val-exps\ 2271}#)) - #{src\ 2268}#)))))) - (#{build-let\ 214}# - (lambda (#{src\ 2294}# - #{ids\ 2295}# - #{vars\ 2296}# - #{val-exps\ 2297}# - #{body-exp\ 2298}#) - (if (null? #{vars\ 2296}#) - #{body-exp\ 2298}# - (let ((#{atom-key\ 2306}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2306}# (quote (c))) + #{vars\ 11419}# + #{body-exp\ 11407}#))) + (cons #{f\ 11417}# #{val-exps\ 11406}#)) + #{src\ 11403}#)))))) + (#{build-let\ 9368}# + (lambda (#{src\ 11429}# + #{ids\ 11430}# + #{vars\ 11431}# + #{val-exps\ 11432}# + #{body-exp\ 11433}#) + (if (null? #{vars\ 11431}#) + #{body-exp\ 11433}# + (let ((#{atom-key\ 11441}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11441}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 198}# - #{ids\ 2295}# - #{val-exps\ 2297}#) + #{maybe-name-value!\ 9352}# + #{ids\ 11430}# + #{val-exps\ 11432}#) ((@ (language tree-il) make-let) - #{src\ 2294}# - #{ids\ 2295}# - #{vars\ 2296}# - #{val-exps\ 2297}# - #{body-exp\ 2298}#)) - (#{decorate-source\ 180}# + #{src\ 11429}# + #{ids\ 11430}# + #{vars\ 11431}# + #{val-exps\ 11432}# + #{body-exp\ 11433}#)) + (#{decorate-source\ 9334}# (list 'let - (map list #{vars\ 2296}# #{val-exps\ 2297}#) - #{body-exp\ 2298}#) - #{src\ 2294}#)))))) - (#{build-sequence\ 212}# - (lambda (#{src\ 2310}# #{exps\ 2311}#) - (if (null? (cdr #{exps\ 2311}#)) - (car #{exps\ 2311}#) - (let ((#{atom-key\ 2316}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2316}# (quote (c))) + (map list #{vars\ 11431}# #{val-exps\ 11432}#) + #{body-exp\ 11433}#) + #{src\ 11429}#)))))) + (#{build-sequence\ 9366}# + (lambda (#{src\ 11445}# #{exps\ 11446}#) + (if (null? (cdr #{exps\ 11446}#)) + (car #{exps\ 11446}#) + (let ((#{atom-key\ 11451}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11451}# (quote (c))) ((@ (language tree-il) make-sequence) - #{src\ 2310}# - #{exps\ 2311}#) - (#{decorate-source\ 180}# - (cons (quote begin) #{exps\ 2311}#) - #{src\ 2310}#)))))) - (#{build-data\ 210}# - (lambda (#{src\ 2320}# #{exp\ 2321}#) - (let ((#{atom-key\ 2326}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2326}# (quote (c))) + #{src\ 11445}# + #{exps\ 11446}#) + (#{decorate-source\ 9334}# + (cons (quote begin) #{exps\ 11446}#) + #{src\ 11445}#)))))) + (#{build-data\ 9364}# + (lambda (#{src\ 11455}# #{exp\ 11456}#) + (let ((#{atom-key\ 11461}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11461}# (quote (c))) ((@ (language tree-il) make-const) - #{src\ 2320}# - #{exp\ 2321}#) - (#{decorate-source\ 180}# - (if (if (self-evaluating? #{exp\ 2321}#) - (not (vector? #{exp\ 2321}#)) + #{src\ 11455}# + #{exp\ 11456}#) + (#{decorate-source\ 9334}# + (if (if (self-evaluating? #{exp\ 11456}#) + (not (vector? #{exp\ 11456}#)) #f) - #{exp\ 2321}# - (list (quote quote) #{exp\ 2321}#)) - #{src\ 2320}#))))) - (#{build-primref\ 208}# - (lambda (#{src\ 2331}# #{name\ 2332}#) + #{exp\ 11456}# + (list (quote quote) #{exp\ 11456}#)) + #{src\ 11455}#))))) + (#{build-primref\ 9362}# + (lambda (#{src\ 11466}# #{name\ 11467}#) (if (equal? (module-name (current-module)) '(guile)) - (let ((#{atom-key\ 2337}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2337}# (quote (c))) + (let ((#{atom-key\ 11472}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11472}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{src\ 2331}# - #{name\ 2332}#) - (#{decorate-source\ 180}# - #{name\ 2332}# - #{src\ 2331}#))) - (let ((#{atom-key\ 2342}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2342}# (quote (c))) + #{src\ 11466}# + #{name\ 11467}#) + (#{decorate-source\ 9334}# + #{name\ 11467}# + #{src\ 11466}#))) + (let ((#{atom-key\ 11477}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11477}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{src\ 2331}# + #{src\ 11466}# '(guile) - #{name\ 2332}# + #{name\ 11467}# #f) - (#{decorate-source\ 180}# - (list (quote @@) (quote (guile)) #{name\ 2332}#) - #{src\ 2331}#)))))) - (#{build-lambda-case\ 206}# - (lambda (#{src\ 2346}# - #{req\ 2347}# - #{opt\ 2348}# - #{rest\ 2349}# - #{kw\ 2350}# - #{inits\ 2351}# - #{vars\ 2352}# - #{body\ 2353}# - #{else-case\ 2354}#) - (let ((#{atom-key\ 2366}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2366}# (quote (c))) + (#{decorate-source\ 9334}# + (list (quote @@) (quote (guile)) #{name\ 11467}#) + #{src\ 11466}#)))))) + (#{build-lambda-case\ 9360}# + (lambda (#{src\ 11481}# + #{req\ 11482}# + #{opt\ 11483}# + #{rest\ 11484}# + #{kw\ 11485}# + #{inits\ 11486}# + #{vars\ 11487}# + #{body\ 11488}# + #{else-case\ 11489}#) + (let ((#{atom-key\ 11501}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11501}# (quote (c))) ((@ (language tree-il) make-lambda-case) - #{src\ 2346}# - #{req\ 2347}# - #{opt\ 2348}# - #{rest\ 2349}# - #{kw\ 2350}# - #{inits\ 2351}# - #{vars\ 2352}# - #{body\ 2353}# - #{else-case\ 2354}#) - (let ((#{nreq\ 2371}# (length #{req\ 2347}#))) - (let ((#{nopt\ 2373}# - (if #{opt\ 2348}# (length #{opt\ 2348}#) 0))) - (let ((#{rest-idx\ 2375}# - (if #{rest\ 2349}# - (+ #{nreq\ 2371}# #{nopt\ 2373}#) + #{src\ 11481}# + #{req\ 11482}# + #{opt\ 11483}# + #{rest\ 11484}# + #{kw\ 11485}# + #{inits\ 11486}# + #{vars\ 11487}# + #{body\ 11488}# + #{else-case\ 11489}#) + (let ((#{nreq\ 11506}# (length #{req\ 11482}#))) + (let ((#{nopt\ 11508}# + (if #{opt\ 11483}# (length #{opt\ 11483}#) 0))) + (let ((#{rest-idx\ 11510}# + (if #{rest\ 11484}# + (+ #{nreq\ 11506}# #{nopt\ 11508}#) #f))) - (let ((#{allow-other-keys?\ 2379}# - (if #{kw\ 2350}# (car #{kw\ 2350}#) #f))) - (let ((#{kw-indices\ 2381}# - (map (lambda (#{x\ 2382}#) - (cons (car #{x\ 2382}#) + (let ((#{allow-other-keys?\ 11514}# + (if #{kw\ 11485}# (car #{kw\ 11485}#) #f))) + (let ((#{kw-indices\ 11516}# + (map (lambda (#{x\ 11517}#) + (cons (car #{x\ 11517}#) (list-index - #{vars\ 2352}# - (caddr #{x\ 2382}#)))) - (if #{kw\ 2350}# - (cdr #{kw\ 2350}#) + #{vars\ 11487}# + (caddr #{x\ 11517}#)))) + (if #{kw\ 11485}# + (cdr #{kw\ 11485}#) '())))) - (let ((#{nargs\ 2385}# + (let ((#{nargs\ 11520}# (apply max - (+ #{nreq\ 2371}# - #{nopt\ 2373}# - (if #{rest\ 2349}# 1 0)) + (+ #{nreq\ 11506}# + #{nopt\ 11508}# + (if #{rest\ 11484}# 1 0)) (map 1+ (map cdr - #{kw-indices\ 2381}#))))) + #{kw-indices\ 11516}#))))) (begin - (let ((#{t\ 2388}# - (= #{nargs\ 2385}# - (length #{vars\ 2352}#) - (+ #{nreq\ 2371}# - (length #{inits\ 2351}#) - (if #{rest\ 2349}# 1 0))))) - (if #{t\ 2388}# - #{t\ 2388}# + (let ((#{t\ 11523}# + (= #{nargs\ 11520}# + (length #{vars\ 11487}#) + (+ #{nreq\ 11506}# + (length #{inits\ 11486}#) + (if #{rest\ 11484}# 1 0))))) + (if #{t\ 11523}# + #{t\ 11523}# (error "something went wrong" - #{req\ 2347}# - #{opt\ 2348}# - #{rest\ 2349}# - #{kw\ 2350}# - #{inits\ 2351}# - #{vars\ 2352}# - #{nreq\ 2371}# - #{nopt\ 2373}# - #{kw-indices\ 2381}# - #{nargs\ 2385}#))) - (#{decorate-source\ 180}# + #{req\ 11482}# + #{opt\ 11483}# + #{rest\ 11484}# + #{kw\ 11485}# + #{inits\ 11486}# + #{vars\ 11487}# + #{nreq\ 11506}# + #{nopt\ 11508}# + #{kw-indices\ 11516}# + #{nargs\ 11520}#))) + (#{decorate-source\ 9334}# (cons (list (cons '(@@ (ice-9 optargs) parse-lambda-case) (cons (list 'quote - (list #{nreq\ 2371}# - #{nopt\ 2373}# - #{rest-idx\ 2375}# - #{nargs\ 2385}# - #{allow-other-keys?\ 2379}# - #{kw-indices\ 2381}#)) + (list #{nreq\ 11506}# + #{nopt\ 11508}# + #{rest-idx\ 11510}# + #{nargs\ 11520}# + #{allow-other-keys?\ 11514}# + #{kw-indices\ 11516}#)) (cons (cons 'list - (map (lambda (#{i\ 2391}#) + (map (lambda (#{i\ 11526}#) (list 'lambda - #{vars\ 2352}# - #{i\ 2391}#)) - #{inits\ 2351}#)) + #{vars\ 11487}# + #{i\ 11526}#)) + #{inits\ 11486}#)) '(%%args)))) '=> (list 'lambda '(%%args) (cons 'apply (cons (list 'lambda - #{vars\ 2352}# - #{body\ 2353}#) + #{vars\ 11487}# + #{body\ 11488}#) '(%%args))))) - (let ((#{t\ 2396}# - #{else-case\ 2354}#)) - (if #{t\ 2396}# - #{t\ 2396}# + (let ((#{t\ 11531}# + #{else-case\ 11489}#)) + (if #{t\ 11531}# + #{t\ 11531}# '((%%args (scm-error 'wrong-number-of-args @@ -7513,1423 +7519,1444 @@ "Wrong number of arguments" '() %%args)))))) - #{src\ 2346}#)))))))))))) - (#{build-case-lambda\ 204}# - (lambda (#{src\ 2399}# - #{docstring\ 2400}# - #{body\ 2401}#) - (let ((#{atom-key\ 2407}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2407}# (quote (c))) + #{src\ 11481}#)))))))))))) + (#{build-case-lambda\ 9358}# + (lambda (#{src\ 11534}# + #{docstring\ 11535}# + #{body\ 11536}#) + (let ((#{atom-key\ 11542}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11542}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 2399}# - (if #{docstring\ 2400}# - (list (cons (quote documentation) #{docstring\ 2400}#)) + #{src\ 11534}# + (if #{docstring\ 11535}# + (list (cons (quote documentation) #{docstring\ 11535}#)) '()) - #{body\ 2401}#) - (#{decorate-source\ 180}# + #{body\ 11536}#) + (#{decorate-source\ 9334}# (cons 'lambda (cons '%%args (append - (if #{docstring\ 2400}# - (list #{docstring\ 2400}#) + (if #{docstring\ 11535}# + (list #{docstring\ 11535}#) '()) - (list (cons (quote cond) #{body\ 2401}#))))) - #{src\ 2399}#))))) - (#{build-simple-lambda\ 202}# - (lambda (#{src\ 2412}# - #{req\ 2413}# - #{rest\ 2414}# - #{vars\ 2415}# - #{docstring\ 2416}# - #{exp\ 2417}#) - (let ((#{atom-key\ 2426}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2426}# (quote (c))) + (list (cons 'cond + #{body\ 11536}#))))) + #{src\ 11534}#))))) + (#{build-simple-lambda\ 9356}# + (lambda (#{src\ 11547}# + #{req\ 11548}# + #{rest\ 11549}# + #{vars\ 11550}# + #{docstring\ 11551}# + #{exp\ 11552}#) + (let ((#{atom-key\ 11561}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11561}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 2412}# - (if #{docstring\ 2416}# - (list (cons (quote documentation) #{docstring\ 2416}#)) + #{src\ 11547}# + (if #{docstring\ 11551}# + (list (cons (quote documentation) #{docstring\ 11551}#)) '()) ((@ (language tree-il) make-lambda-case) - #{src\ 2412}# - #{req\ 2413}# + #{src\ 11547}# + #{req\ 11548}# #f - #{rest\ 2414}# + #{rest\ 11549}# #f '() - #{vars\ 2415}# - #{exp\ 2417}# + #{vars\ 11550}# + #{exp\ 11552}# #f)) - (#{decorate-source\ 180}# + (#{decorate-source\ 9334}# (cons 'lambda - (cons (if #{rest\ 2414}# - (apply cons* #{vars\ 2415}#) - #{vars\ 2415}#) + (cons (if #{rest\ 11549}# + (apply cons* #{vars\ 11550}#) + #{vars\ 11550}#) (append - (if #{docstring\ 2416}# - (list #{docstring\ 2416}#) + (if #{docstring\ 11551}# + (list #{docstring\ 11551}#) '()) - (list #{exp\ 2417}#)))) - #{src\ 2412}#))))) - (#{build-global-definition\ 200}# - (lambda (#{source\ 2431}# #{var\ 2432}# #{exp\ 2433}#) - (let ((#{atom-key\ 2439}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2439}# (quote (c))) + (list #{exp\ 11552}#)))) + #{src\ 11547}#))))) + (#{build-global-definition\ 9354}# + (lambda (#{source\ 11566}# #{var\ 11567}# #{exp\ 11568}#) + (let ((#{atom-key\ 11574}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11574}# (quote (c))) (begin - (#{maybe-name-value!\ 198}# - #{var\ 2432}# - #{exp\ 2433}#) + (#{maybe-name-value!\ 9352}# + #{var\ 11567}# + #{exp\ 11568}#) ((@ (language tree-il) make-toplevel-define) - #{source\ 2431}# - #{var\ 2432}# - #{exp\ 2433}#)) - (#{decorate-source\ 180}# - (list (quote define) #{var\ 2432}# #{exp\ 2433}#) - #{source\ 2431}#))))) - (#{maybe-name-value!\ 198}# - (lambda (#{name\ 2443}# #{val\ 2444}#) - (if ((@ (language tree-il) lambda?) #{val\ 2444}#) - (let ((#{meta\ 2450}# + #{source\ 11566}# + #{var\ 11567}# + #{exp\ 11568}#)) + (#{decorate-source\ 9334}# + (list 'define + #{var\ 11567}# + #{exp\ 11568}#) + #{source\ 11566}#))))) + (#{maybe-name-value!\ 9352}# + (lambda (#{name\ 11578}# #{val\ 11579}#) + (if ((@ (language tree-il) lambda?) #{val\ 11579}#) + (let ((#{meta\ 11585}# ((@ (language tree-il) lambda-meta) - #{val\ 2444}#))) - (if (not (assq (quote name) #{meta\ 2450}#)) + #{val\ 11579}#))) + (if (not (assq (quote name) #{meta\ 11585}#)) ((setter (@ (language tree-il) lambda-meta)) - #{val\ 2444}# + #{val\ 11579}# (acons 'name - #{name\ 2443}# - #{meta\ 2450}#))))))) - (#{build-global-assignment\ 196}# - (lambda (#{source\ 2451}# - #{var\ 2452}# - #{exp\ 2453}# - #{mod\ 2454}#) - (#{analyze-variable\ 192}# - #{mod\ 2454}# - #{var\ 2452}# - (lambda (#{mod\ 2459}# #{var\ 2460}# #{public?\ 2461}#) - (let ((#{atom-key\ 2467}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2467}# (quote (c))) + #{name\ 11578}# + #{meta\ 11585}#))))))) + (#{build-global-assignment\ 9350}# + (lambda (#{source\ 11586}# + #{var\ 11587}# + #{exp\ 11588}# + #{mod\ 11589}#) + (#{analyze-variable\ 9346}# + #{mod\ 11589}# + #{var\ 11587}# + (lambda (#{mod\ 11594}# + #{var\ 11595}# + #{public?\ 11596}#) + (let ((#{atom-key\ 11602}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11602}# (quote (c))) ((@ (language tree-il) make-module-set) - #{source\ 2451}# - #{mod\ 2459}# - #{var\ 2460}# - #{public?\ 2461}# - #{exp\ 2453}#) - (#{decorate-source\ 180}# + #{source\ 11586}# + #{mod\ 11594}# + #{var\ 11595}# + #{public?\ 11596}# + #{exp\ 11588}#) + (#{decorate-source\ 9334}# (list 'set! - (list (if #{public?\ 2461}# + (list (if #{public?\ 11596}# '@ '@@) - #{mod\ 2459}# - #{var\ 2460}#) - #{exp\ 2453}#) - #{source\ 2451}#)))) - (lambda (#{var\ 2471}#) - (let ((#{atom-key\ 2475}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2475}# (quote (c))) + #{mod\ 11594}# + #{var\ 11595}#) + #{exp\ 11588}#) + #{source\ 11586}#)))) + (lambda (#{var\ 11606}#) + (let ((#{atom-key\ 11610}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11610}# (quote (c))) ((@ (language tree-il) make-toplevel-set) - #{source\ 2451}# - #{var\ 2471}# - #{exp\ 2453}#) - (#{decorate-source\ 180}# - (list (quote set!) #{var\ 2471}# #{exp\ 2453}#) - #{source\ 2451}#))))))) - (#{build-global-reference\ 194}# - (lambda (#{source\ 2479}# #{var\ 2480}# #{mod\ 2481}#) - (#{analyze-variable\ 192}# - #{mod\ 2481}# - #{var\ 2480}# - (lambda (#{mod\ 2485}# #{var\ 2486}# #{public?\ 2487}#) - (let ((#{atom-key\ 2493}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2493}# (quote (c))) + #{source\ 11586}# + #{var\ 11606}# + #{exp\ 11588}#) + (#{decorate-source\ 9334}# + (list (quote set!) #{var\ 11606}# #{exp\ 11588}#) + #{source\ 11586}#))))))) + (#{build-global-reference\ 9348}# + (lambda (#{source\ 11614}# #{var\ 11615}# #{mod\ 11616}#) + (#{analyze-variable\ 9346}# + #{mod\ 11616}# + #{var\ 11615}# + (lambda (#{mod\ 11620}# + #{var\ 11621}# + #{public?\ 11622}#) + (let ((#{atom-key\ 11628}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11628}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{source\ 2479}# - #{mod\ 2485}# - #{var\ 2486}# - #{public?\ 2487}#) - (#{decorate-source\ 180}# - (list (if #{public?\ 2487}# (quote @) (quote @@)) - #{mod\ 2485}# - #{var\ 2486}#) - #{source\ 2479}#)))) - (lambda (#{var\ 2496}#) - (let ((#{atom-key\ 2500}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2500}# (quote (c))) + #{source\ 11614}# + #{mod\ 11620}# + #{var\ 11621}# + #{public?\ 11622}#) + (#{decorate-source\ 9334}# + (list (if #{public?\ 11622}# (quote @) (quote @@)) + #{mod\ 11620}# + #{var\ 11621}#) + #{source\ 11614}#)))) + (lambda (#{var\ 11631}#) + (let ((#{atom-key\ 11635}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11635}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{source\ 2479}# - #{var\ 2496}#) - (#{decorate-source\ 180}# - #{var\ 2496}# - #{source\ 2479}#))))))) - (#{analyze-variable\ 192}# - (lambda (#{mod\ 2503}# - #{var\ 2504}# - #{modref-cont\ 2505}# - #{bare-cont\ 2506}#) - (if (not #{mod\ 2503}#) - (#{bare-cont\ 2506}# #{var\ 2504}#) - (let ((#{kind\ 2513}# (car #{mod\ 2503}#)) - (#{mod\ 2514}# (cdr #{mod\ 2503}#))) - (if (memv #{kind\ 2513}# (quote (public))) - (#{modref-cont\ 2505}# - #{mod\ 2514}# - #{var\ 2504}# + #{source\ 11614}# + #{var\ 11631}#) + (#{decorate-source\ 9334}# + #{var\ 11631}# + #{source\ 11614}#))))))) + (#{analyze-variable\ 9346}# + (lambda (#{mod\ 11638}# + #{var\ 11639}# + #{modref-cont\ 11640}# + #{bare-cont\ 11641}#) + (if (not #{mod\ 11638}#) + (#{bare-cont\ 11641}# #{var\ 11639}#) + (let ((#{kind\ 11648}# (car #{mod\ 11638}#)) + (#{mod\ 11649}# (cdr #{mod\ 11638}#))) + (if (memv #{kind\ 11648}# (quote (public))) + (#{modref-cont\ 11640}# + #{mod\ 11649}# + #{var\ 11639}# #t) - (if (memv #{kind\ 2513}# (quote (private))) + (if (memv #{kind\ 11648}# (quote (private))) (if (not (equal? - #{mod\ 2514}# + #{mod\ 11649}# (module-name (current-module)))) - (#{modref-cont\ 2505}# - #{mod\ 2514}# - #{var\ 2504}# + (#{modref-cont\ 11640}# + #{mod\ 11649}# + #{var\ 11639}# #f) - (#{bare-cont\ 2506}# #{var\ 2504}#)) - (if (memv #{kind\ 2513}# (quote (bare))) - (#{bare-cont\ 2506}# #{var\ 2504}#) - (if (memv #{kind\ 2513}# (quote (hygiene))) + (#{bare-cont\ 11641}# #{var\ 11639}#)) + (if (memv #{kind\ 11648}# (quote (bare))) + (#{bare-cont\ 11641}# #{var\ 11639}#) + (if (memv #{kind\ 11648}# (quote (hygiene))) (if (if (not (equal? - #{mod\ 2514}# + #{mod\ 11649}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 2514}#) - #{var\ 2504}#) + (resolve-module #{mod\ 11649}#) + #{var\ 11639}#) #f) - (#{modref-cont\ 2505}# - #{mod\ 2514}# - #{var\ 2504}# + (#{modref-cont\ 11640}# + #{mod\ 11649}# + #{var\ 11639}# #f) - (#{bare-cont\ 2506}# #{var\ 2504}#)) + (#{bare-cont\ 11641}# #{var\ 11639}#)) (syntax-violation #f "bad module kind" - #{var\ 2504}# - #{mod\ 2514}#))))))))) - (#{build-lexical-assignment\ 190}# - (lambda (#{source\ 2522}# - #{name\ 2523}# - #{var\ 2524}# - #{exp\ 2525}#) - (let ((#{atom-key\ 2532}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2532}# (quote (c))) + #{var\ 11639}# + #{mod\ 11649}#))))))))) + (#{build-lexical-assignment\ 9344}# + (lambda (#{source\ 11657}# + #{name\ 11658}# + #{var\ 11659}# + #{exp\ 11660}#) + (let ((#{atom-key\ 11667}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11667}# (quote (c))) ((@ (language tree-il) make-lexical-set) - #{source\ 2522}# - #{name\ 2523}# - #{var\ 2524}# - #{exp\ 2525}#) - (#{decorate-source\ 180}# - (list (quote set!) #{var\ 2524}# #{exp\ 2525}#) - #{source\ 2522}#))))) - (#{build-lexical-reference\ 188}# - (lambda (#{type\ 2536}# - #{source\ 2537}# - #{name\ 2538}# - #{var\ 2539}#) - (let ((#{atom-key\ 2546}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2546}# (quote (c))) + #{source\ 11657}# + #{name\ 11658}# + #{var\ 11659}# + #{exp\ 11660}#) + (#{decorate-source\ 9334}# + (list (quote set!) #{var\ 11659}# #{exp\ 11660}#) + #{source\ 11657}#))))) + (#{build-lexical-reference\ 9342}# + (lambda (#{type\ 11671}# + #{source\ 11672}# + #{name\ 11673}# + #{var\ 11674}#) + (let ((#{atom-key\ 11681}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11681}# (quote (c))) ((@ (language tree-il) make-lexical-ref) - #{source\ 2537}# - #{name\ 2538}# - #{var\ 2539}#) - (#{decorate-source\ 180}# - #{var\ 2539}# - #{source\ 2537}#))))) - (#{build-conditional\ 186}# - (lambda (#{source\ 2549}# - #{test-exp\ 2550}# - #{then-exp\ 2551}# - #{else-exp\ 2552}#) - (let ((#{atom-key\ 2559}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2559}# (quote (c))) + #{source\ 11672}# + #{name\ 11673}# + #{var\ 11674}#) + (#{decorate-source\ 9334}# + #{var\ 11674}# + #{source\ 11672}#))))) + (#{build-conditional\ 9340}# + (lambda (#{source\ 11684}# + #{test-exp\ 11685}# + #{then-exp\ 11686}# + #{else-exp\ 11687}#) + (let ((#{atom-key\ 11694}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11694}# (quote (c))) ((@ (language tree-il) make-conditional) - #{source\ 2549}# - #{test-exp\ 2550}# - #{then-exp\ 2551}# - #{else-exp\ 2552}#) - (#{decorate-source\ 180}# - (if (equal? #{else-exp\ 2552}# (quote (if #f #f))) + #{source\ 11684}# + #{test-exp\ 11685}# + #{then-exp\ 11686}# + #{else-exp\ 11687}#) + (#{decorate-source\ 9334}# + (if (equal? #{else-exp\ 11687}# (quote (if #f #f))) (list 'if - #{test-exp\ 2550}# - #{then-exp\ 2551}#) + #{test-exp\ 11685}# + #{then-exp\ 11686}#) (list 'if - #{test-exp\ 2550}# - #{then-exp\ 2551}# - #{else-exp\ 2552}#)) - #{source\ 2549}#))))) - (#{build-application\ 184}# - (lambda (#{source\ 2564}# - #{fun-exp\ 2565}# - #{arg-exps\ 2566}#) - (let ((#{atom-key\ 2572}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2572}# (quote (c))) + #{test-exp\ 11685}# + #{then-exp\ 11686}# + #{else-exp\ 11687}#)) + #{source\ 11684}#))))) + (#{build-application\ 9338}# + (lambda (#{source\ 11699}# + #{fun-exp\ 11700}# + #{arg-exps\ 11701}#) + (let ((#{atom-key\ 11707}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11707}# (quote (c))) ((@ (language tree-il) make-application) - #{source\ 2564}# - #{fun-exp\ 2565}# - #{arg-exps\ 2566}#) - (#{decorate-source\ 180}# - (cons #{fun-exp\ 2565}# #{arg-exps\ 2566}#) - #{source\ 2564}#))))) - (#{build-void\ 182}# - (lambda (#{source\ 2576}#) - (let ((#{atom-key\ 2580}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2580}# (quote (c))) + #{source\ 11699}# + #{fun-exp\ 11700}# + #{arg-exps\ 11701}#) + (#{decorate-source\ 9334}# + (cons #{fun-exp\ 11700}# #{arg-exps\ 11701}#) + #{source\ 11699}#))))) + (#{build-void\ 9336}# + (lambda (#{source\ 11711}#) + (let ((#{atom-key\ 11715}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11715}# (quote (c))) ((@ (language tree-il) make-void) - #{source\ 2576}#) - (#{decorate-source\ 180}# + #{source\ 11711}#) + (#{decorate-source\ 9334}# '(if #f #f) - #{source\ 2576}#))))) - (#{decorate-source\ 180}# - (lambda (#{e\ 2583}# #{s\ 2584}#) + #{source\ 11711}#))))) + (#{decorate-source\ 9334}# + (lambda (#{e\ 11718}# #{s\ 11719}#) (begin - (if (if (pair? #{e\ 2583}#) #{s\ 2584}# #f) - (set-source-properties! #{e\ 2583}# #{s\ 2584}#)) - #{e\ 2583}#))) - (#{get-global-definition-hook\ 178}# - (lambda (#{symbol\ 2589}# #{module\ 2590}#) + (if (if (pair? #{e\ 11718}#) #{s\ 11719}# #f) + (set-source-properties! + #{e\ 11718}# + #{s\ 11719}#)) + #{e\ 11718}#))) + (#{get-global-definition-hook\ 9332}# + (lambda (#{symbol\ 11724}# #{module\ 11725}#) (begin - (if (if (not #{module\ 2590}#) (current-module) #f) + (if (if (not #{module\ 11725}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 2589}#)) - (let ((#{v\ 2596}# + #{symbol\ 11724}#)) + (let ((#{v\ 11731}# (module-variable - (if #{module\ 2590}# - (resolve-module (cdr #{module\ 2590}#)) + (if #{module\ 11725}# + (resolve-module (cdr #{module\ 11725}#)) (current-module)) - #{symbol\ 2589}#))) - (if #{v\ 2596}# - (if (variable-bound? #{v\ 2596}#) - (let ((#{val\ 2601}# (variable-ref #{v\ 2596}#))) - (if (macro? #{val\ 2601}#) - (if (syncase-macro-type #{val\ 2601}#) - (cons (syncase-macro-type #{val\ 2601}#) - (syncase-macro-binding #{val\ 2601}#)) + #{symbol\ 11724}#))) + (if #{v\ 11731}# + (if (variable-bound? #{v\ 11731}#) + (let ((#{val\ 11736}# (variable-ref #{v\ 11731}#))) + (if (macro? #{val\ 11736}#) + (if (macro-type #{val\ 11736}#) + (cons (macro-type #{val\ 11736}#) + (macro-binding #{val\ 11736}#)) #f) #f)) #f) #f))))) - (#{put-global-definition-hook\ 176}# - (lambda (#{symbol\ 2605}# #{type\ 2606}# #{val\ 2607}#) - (let ((#{existing\ 2612}# - (let ((#{v\ 2614}# - (module-variable - (current-module) - #{symbol\ 2605}#))) - (if #{v\ 2614}# - (if (variable-bound? #{v\ 2614}#) - (let ((#{val\ 2619}# (variable-ref #{v\ 2614}#))) - (if (macro? #{val\ 2619}#) - (if (not (syncase-macro-type #{val\ 2619}#)) - #{val\ 2619}# - #f) - #f)) - #f) - #f)))) - (module-define! - (current-module) - #{symbol\ 2605}# - (if #{existing\ 2612}# - (make-extended-syncase-macro - #{existing\ 2612}# - #{type\ 2606}# - #{val\ 2607}#) - (make-syncase-macro #{type\ 2606}# #{val\ 2607}#)))))) - (#{local-eval-hook\ 173}# - (lambda (#{x\ 2623}# #{mod\ 2624}#) + (#{put-global-definition-hook\ 9330}# + (lambda (#{symbol\ 11740}# + #{type\ 11741}# + #{val\ 11742}#) + (module-define! + (current-module) + #{symbol\ 11740}# + (make-syntax-transformer + #{symbol\ 11740}# + #{type\ 11741}# + #{val\ 11742}#)))) + (#{local-eval-hook\ 9327}# + (lambda (#{x\ 11746}# #{mod\ 11747}#) (primitive-eval - (list #{noexpand\ 159}# - (let ((#{atom-key\ 2630}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2630}# (quote (c))) + (list #{noexpand\ 9313}# + (let ((#{atom-key\ 11753}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11753}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 2623}#) - #{x\ 2623}#)))))) - (#{top-level-eval-hook\ 171}# - (lambda (#{x\ 2633}# #{mod\ 2634}#) + #{x\ 11746}#) + #{x\ 11746}#)))))) + (#{top-level-eval-hook\ 9325}# + (lambda (#{x\ 11756}# #{mod\ 11757}#) (primitive-eval - (list #{noexpand\ 159}# - (let ((#{atom-key\ 2640}# (fluid-ref #{*mode*\ 161}#))) - (if (memv #{atom-key\ 2640}# (quote (c))) + (list #{noexpand\ 9313}# + (let ((#{atom-key\ 11763}# + (fluid-ref #{*mode*\ 9315}#))) + (if (memv #{atom-key\ 11763}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 2633}#) - #{x\ 2633}#)))))) - (#{fx<\ 169}# <) - (#{fx=\ 167}# =) - (#{fx-\ 165}# -) - (#{fx+\ 163}# +) - (#{*mode*\ 161}# (make-fluid)) - (#{noexpand\ 159}# "noexpand")) + #{x\ 11756}#) + #{x\ 11756}#)))))) + (#{fx<\ 9323}# <) + (#{fx=\ 9321}# =) + (#{fx-\ 9319}# -) + (#{fx+\ 9317}# +) + (#{*mode*\ 9315}# (make-fluid)) + (#{noexpand\ 9313}# "noexpand")) (begin - (#{global-extend\ 256}# + (#{global-extend\ 9410}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 256}# + (#{global-extend\ 9410}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 256}# + (#{global-extend\ 9410}# 'core 'fluid-let-syntax - (lambda (#{e\ 2643}# - #{r\ 2644}# - #{w\ 2645}# - #{s\ 2646}# - #{mod\ 2647}#) - ((lambda (#{tmp\ 2653}#) - ((lambda (#{tmp\ 2654}#) - (if (if #{tmp\ 2654}# - (apply (lambda (#{_\ 2660}# - #{var\ 2661}# - #{val\ 2662}# - #{e1\ 2663}# - #{e2\ 2664}#) - (#{valid-bound-ids?\ 323}# #{var\ 2661}#)) - #{tmp\ 2654}#) + (lambda (#{e\ 11766}# + #{r\ 11767}# + #{w\ 11768}# + #{s\ 11769}# + #{mod\ 11770}#) + ((lambda (#{tmp\ 11776}#) + ((lambda (#{tmp\ 11777}#) + (if (if #{tmp\ 11777}# + (apply (lambda (#{_\ 11783}# + #{var\ 11784}# + #{val\ 11785}# + #{e1\ 11786}# + #{e2\ 11787}#) + (#{valid-bound-ids?\ 9477}# #{var\ 11784}#)) + #{tmp\ 11777}#) #f) - (apply (lambda (#{_\ 2671}# - #{var\ 2672}# - #{val\ 2673}# - #{e1\ 2674}# - #{e2\ 2675}#) - (let ((#{names\ 2677}# - (map (lambda (#{x\ 2678}#) - (#{id-var-name\ 317}# - #{x\ 2678}# - #{w\ 2645}#)) - #{var\ 2672}#))) + (apply (lambda (#{_\ 11794}# + #{var\ 11795}# + #{val\ 11796}# + #{e1\ 11797}# + #{e2\ 11798}#) + (let ((#{names\ 11800}# + (map (lambda (#{x\ 11801}#) + (#{id-var-name\ 9471}# + #{x\ 11801}# + #{w\ 11768}#)) + #{var\ 11795}#))) (begin (for-each - (lambda (#{id\ 2681}# #{n\ 2682}#) - (let ((#{atom-key\ 2687}# - (#{binding-type\ 243}# - (#{lookup\ 254}# - #{n\ 2682}# - #{r\ 2644}# - #{mod\ 2647}#)))) - (if (memv #{atom-key\ 2687}# + (lambda (#{id\ 11804}# #{n\ 11805}#) + (let ((#{atom-key\ 11810}# + (#{binding-type\ 9397}# + (#{lookup\ 9408}# + #{n\ 11805}# + #{r\ 11767}# + #{mod\ 11770}#)))) + (if (memv #{atom-key\ 11810}# '(displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e\ 2643}# - (#{source-wrap\ 331}# - #{id\ 2681}# - #{w\ 2645}# - #{s\ 2646}# - #{mod\ 2647}#))))) - #{var\ 2672}# - #{names\ 2677}#) - (#{chi-body\ 353}# - (cons #{e1\ 2674}# #{e2\ 2675}#) - (#{source-wrap\ 331}# - #{e\ 2643}# - #{w\ 2645}# - #{s\ 2646}# - #{mod\ 2647}#) - (#{extend-env\ 248}# - #{names\ 2677}# - (let ((#{trans-r\ 2692}# - (#{macros-only-env\ 252}# - #{r\ 2644}#))) - (map (lambda (#{x\ 2693}#) + #{e\ 11766}# + (#{source-wrap\ 9485}# + #{id\ 11804}# + #{w\ 11768}# + #{s\ 11769}# + #{mod\ 11770}#))))) + #{var\ 11795}# + #{names\ 11800}#) + (#{chi-body\ 9507}# + (cons #{e1\ 11797}# #{e2\ 11798}#) + (#{source-wrap\ 9485}# + #{e\ 11766}# + #{w\ 11768}# + #{s\ 11769}# + #{mod\ 11770}#) + (#{extend-env\ 9402}# + #{names\ 11800}# + (let ((#{trans-r\ 11815}# + (#{macros-only-env\ 9406}# + #{r\ 11767}#))) + (map (lambda (#{x\ 11816}#) (cons 'macro - (#{eval-local-transformer\ 357}# - (#{chi\ 345}# - #{x\ 2693}# - #{trans-r\ 2692}# - #{w\ 2645}# - #{mod\ 2647}#) - #{mod\ 2647}#))) - #{val\ 2673}#)) - #{r\ 2644}#) - #{w\ 2645}# - #{mod\ 2647}#)))) - #{tmp\ 2654}#) - ((lambda (#{_\ 2698}#) + (#{eval-local-transformer\ 9511}# + (#{chi\ 9499}# + #{x\ 11816}# + #{trans-r\ 11815}# + #{w\ 11768}# + #{mod\ 11770}#) + #{mod\ 11770}#))) + #{val\ 11796}#)) + #{r\ 11767}#) + #{w\ 11768}# + #{mod\ 11770}#)))) + #{tmp\ 11777}#) + ((lambda (#{_\ 11821}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 331}# - #{e\ 2643}# - #{w\ 2645}# - #{s\ 2646}# - #{mod\ 2647}#))) - #{tmp\ 2653}#))) + (#{source-wrap\ 9485}# + #{e\ 11766}# + #{w\ 11768}# + #{s\ 11769}# + #{mod\ 11770}#))) + #{tmp\ 11776}#))) ($sc-dispatch - #{tmp\ 2653}# + #{tmp\ 11776}# '(any #(each (any any)) any . each-any)))) - #{e\ 2643}#))) - (#{global-extend\ 256}# + #{e\ 11766}#))) + (#{global-extend\ 9410}# 'core 'quote - (lambda (#{e\ 2699}# - #{r\ 2700}# - #{w\ 2701}# - #{s\ 2702}# - #{mod\ 2703}#) - ((lambda (#{tmp\ 2709}#) - ((lambda (#{tmp\ 2710}#) - (if #{tmp\ 2710}# - (apply (lambda (#{_\ 2713}# #{e\ 2714}#) - (#{build-data\ 210}# - #{s\ 2702}# - (#{strip\ 371}# #{e\ 2714}# #{w\ 2701}#))) - #{tmp\ 2710}#) - ((lambda (#{_\ 2716}#) + (lambda (#{e\ 11822}# + #{r\ 11823}# + #{w\ 11824}# + #{s\ 11825}# + #{mod\ 11826}#) + ((lambda (#{tmp\ 11832}#) + ((lambda (#{tmp\ 11833}#) + (if #{tmp\ 11833}# + (apply (lambda (#{_\ 11836}# #{e\ 11837}#) + (#{build-data\ 9364}# + #{s\ 11825}# + (#{strip\ 9525}# #{e\ 11837}# #{w\ 11824}#))) + #{tmp\ 11833}#) + ((lambda (#{_\ 11839}#) (syntax-violation 'quote "bad syntax" - (#{source-wrap\ 331}# - #{e\ 2699}# - #{w\ 2701}# - #{s\ 2702}# - #{mod\ 2703}#))) - #{tmp\ 2709}#))) - ($sc-dispatch #{tmp\ 2709}# (quote (any any))))) - #{e\ 2699}#))) - (#{global-extend\ 256}# + (#{source-wrap\ 9485}# + #{e\ 11822}# + #{w\ 11824}# + #{s\ 11825}# + #{mod\ 11826}#))) + #{tmp\ 11832}#))) + ($sc-dispatch #{tmp\ 11832}# (quote (any any))))) + #{e\ 11822}#))) + (#{global-extend\ 9410}# 'core 'syntax - (letrec ((#{regen\ 2732}# - (lambda (#{x\ 2733}#) - (let ((#{atom-key\ 2737}# (car #{x\ 2733}#))) - (if (memv #{atom-key\ 2737}# (quote (ref))) - (#{build-lexical-reference\ 188}# + (letrec ((#{regen\ 11855}# + (lambda (#{x\ 11856}#) + (let ((#{atom-key\ 11860}# (car #{x\ 11856}#))) + (if (memv #{atom-key\ 11860}# (quote (ref))) + (#{build-lexical-reference\ 9342}# 'value #f - (cadr #{x\ 2733}#) - (cadr #{x\ 2733}#)) - (if (memv #{atom-key\ 2737}# (quote (primitive))) - (#{build-primref\ 208}# #f (cadr #{x\ 2733}#)) - (if (memv #{atom-key\ 2737}# (quote (quote))) - (#{build-data\ 210}# #f (cadr #{x\ 2733}#)) - (if (memv #{atom-key\ 2737}# (quote (lambda))) - (if (list? (cadr #{x\ 2733}#)) - (#{build-simple-lambda\ 202}# + (cadr #{x\ 11856}#) + (cadr #{x\ 11856}#)) + (if (memv #{atom-key\ 11860}# (quote (primitive))) + (#{build-primref\ 9362}# #f (cadr #{x\ 11856}#)) + (if (memv #{atom-key\ 11860}# (quote (quote))) + (#{build-data\ 9364}# #f (cadr #{x\ 11856}#)) + (if (memv #{atom-key\ 11860}# (quote (lambda))) + (if (list? (cadr #{x\ 11856}#)) + (#{build-simple-lambda\ 9356}# #f - (cadr #{x\ 2733}#) + (cadr #{x\ 11856}#) #f - (cadr #{x\ 2733}#) + (cadr #{x\ 11856}#) #f - (#{regen\ 2732}# (caddr #{x\ 2733}#))) - (error "how did we get here" #{x\ 2733}#)) - (#{build-application\ 184}# + (#{regen\ 11855}# (caddr #{x\ 11856}#))) + (error "how did we get here" #{x\ 11856}#)) + (#{build-application\ 9338}# #f - (#{build-primref\ 208}# #f (car #{x\ 2733}#)) - (map #{regen\ 2732}# - (cdr #{x\ 2733}#)))))))))) - (#{gen-vector\ 2730}# - (lambda (#{x\ 2749}#) - (if (eq? (car #{x\ 2749}#) (quote list)) - (cons (quote vector) (cdr #{x\ 2749}#)) - (if (eq? (car #{x\ 2749}#) (quote quote)) + (#{build-primref\ 9362}# + #f + (car #{x\ 11856}#)) + (map #{regen\ 11855}# + (cdr #{x\ 11856}#)))))))))) + (#{gen-vector\ 11853}# + (lambda (#{x\ 11872}#) + (if (eq? (car #{x\ 11872}#) (quote list)) + (cons (quote vector) (cdr #{x\ 11872}#)) + (if (eq? (car #{x\ 11872}#) (quote quote)) (list 'quote - (list->vector (cadr #{x\ 2749}#))) - (list (quote list->vector) #{x\ 2749}#))))) - (#{gen-append\ 2728}# - (lambda (#{x\ 2759}# #{y\ 2760}#) - (if (equal? #{y\ 2760}# (quote (quote ()))) - #{x\ 2759}# - (list (quote append) #{x\ 2759}# #{y\ 2760}#)))) - (#{gen-cons\ 2726}# - (lambda (#{x\ 2764}# #{y\ 2765}#) - (let ((#{atom-key\ 2770}# (car #{y\ 2765}#))) - (if (memv #{atom-key\ 2770}# (quote (quote))) - (if (eq? (car #{x\ 2764}#) (quote quote)) + (list->vector (cadr #{x\ 11872}#))) + (list (quote list->vector) #{x\ 11872}#))))) + (#{gen-append\ 11851}# + (lambda (#{x\ 11882}# #{y\ 11883}#) + (if (equal? #{y\ 11883}# (quote (quote ()))) + #{x\ 11882}# + (list (quote append) #{x\ 11882}# #{y\ 11883}#)))) + (#{gen-cons\ 11849}# + (lambda (#{x\ 11887}# #{y\ 11888}#) + (let ((#{atom-key\ 11893}# (car #{y\ 11888}#))) + (if (memv #{atom-key\ 11893}# (quote (quote))) + (if (eq? (car #{x\ 11887}#) (quote quote)) (list 'quote - (cons (cadr #{x\ 2764}#) (cadr #{y\ 2765}#))) - (if (eq? (cadr #{y\ 2765}#) (quote ())) - (list (quote list) #{x\ 2764}#) - (list (quote cons) #{x\ 2764}# #{y\ 2765}#))) - (if (memv #{atom-key\ 2770}# (quote (list))) + (cons (cadr #{x\ 11887}#) + (cadr #{y\ 11888}#))) + (if (eq? (cadr #{y\ 11888}#) (quote ())) + (list (quote list) #{x\ 11887}#) + (list (quote cons) #{x\ 11887}# #{y\ 11888}#))) + (if (memv #{atom-key\ 11893}# (quote (list))) (cons 'list - (cons #{x\ 2764}# (cdr #{y\ 2765}#))) - (list (quote cons) #{x\ 2764}# #{y\ 2765}#)))))) - (#{gen-map\ 2724}# - (lambda (#{e\ 2779}# #{map-env\ 2780}#) - (let ((#{formals\ 2785}# (map cdr #{map-env\ 2780}#)) - (#{actuals\ 2786}# - (map (lambda (#{x\ 2787}#) - (list (quote ref) (car #{x\ 2787}#))) - #{map-env\ 2780}#))) - (if (eq? (car #{e\ 2779}#) (quote ref)) - (car #{actuals\ 2786}#) + (cons #{x\ 11887}# (cdr #{y\ 11888}#))) + (list (quote cons) #{x\ 11887}# #{y\ 11888}#)))))) + (#{gen-map\ 11847}# + (lambda (#{e\ 11902}# #{map-env\ 11903}#) + (let ((#{formals\ 11908}# (map cdr #{map-env\ 11903}#)) + (#{actuals\ 11909}# + (map (lambda (#{x\ 11910}#) + (list (quote ref) (car #{x\ 11910}#))) + #{map-env\ 11903}#))) + (if (eq? (car #{e\ 11902}#) (quote ref)) + (car #{actuals\ 11909}#) (if (and-map - (lambda (#{x\ 2794}#) - (if (eq? (car #{x\ 2794}#) (quote ref)) - (memq (cadr #{x\ 2794}#) #{formals\ 2785}#) + (lambda (#{x\ 11917}#) + (if (eq? (car #{x\ 11917}#) (quote ref)) + (memq (cadr #{x\ 11917}#) + #{formals\ 11908}#) #f)) - (cdr #{e\ 2779}#)) + (cdr #{e\ 11902}#)) (cons 'map (cons (list 'primitive - (car #{e\ 2779}#)) - (map (let ((#{r\ 2800}# + (car #{e\ 11902}#)) + (map (let ((#{r\ 11923}# (map cons - #{formals\ 2785}# - #{actuals\ 2786}#))) - (lambda (#{x\ 2801}#) - (cdr (assq (cadr #{x\ 2801}#) - #{r\ 2800}#)))) - (cdr #{e\ 2779}#)))) + #{formals\ 11908}# + #{actuals\ 11909}#))) + (lambda (#{x\ 11924}#) + (cdr (assq (cadr #{x\ 11924}#) + #{r\ 11923}#)))) + (cdr #{e\ 11902}#)))) (cons 'map (cons (list 'lambda - #{formals\ 2785}# - #{e\ 2779}#) - #{actuals\ 2786}#))))))) - (#{gen-mappend\ 2722}# - (lambda (#{e\ 2805}# #{map-env\ 2806}#) + #{formals\ 11908}# + #{e\ 11902}#) + #{actuals\ 11909}#))))))) + (#{gen-mappend\ 11845}# + (lambda (#{e\ 11928}# #{map-env\ 11929}#) (list 'apply '(primitive append) - (#{gen-map\ 2724}# #{e\ 2805}# #{map-env\ 2806}#)))) - (#{gen-ref\ 2720}# - (lambda (#{src\ 2810}# - #{var\ 2811}# - #{level\ 2812}# - #{maps\ 2813}#) - (if (#{fx=\ 167}# #{level\ 2812}# 0) - (values #{var\ 2811}# #{maps\ 2813}#) - (if (null? #{maps\ 2813}#) + (#{gen-map\ 11847}# + #{e\ 11928}# + #{map-env\ 11929}#)))) + (#{gen-ref\ 11843}# + (lambda (#{src\ 11933}# + #{var\ 11934}# + #{level\ 11935}# + #{maps\ 11936}#) + (if (#{fx=\ 9321}# #{level\ 11935}# 0) + (values #{var\ 11934}# #{maps\ 11936}#) + (if (null? #{maps\ 11936}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 2810}#) + #{src\ 11933}#) (call-with-values (lambda () - (#{gen-ref\ 2720}# - #{src\ 2810}# - #{var\ 2811}# - (#{fx-\ 165}# #{level\ 2812}# 1) - (cdr #{maps\ 2813}#))) - (lambda (#{outer-var\ 2818}# #{outer-maps\ 2819}#) - (let ((#{b\ 2823}# - (assq #{outer-var\ 2818}# - (car #{maps\ 2813}#)))) - (if #{b\ 2823}# - (values (cdr #{b\ 2823}#) #{maps\ 2813}#) - (let ((#{inner-var\ 2825}# - (#{gen-var\ 373}# (quote tmp)))) + (#{gen-ref\ 11843}# + #{src\ 11933}# + #{var\ 11934}# + (#{fx-\ 9319}# #{level\ 11935}# 1) + (cdr #{maps\ 11936}#))) + (lambda (#{outer-var\ 11941}# #{outer-maps\ 11942}#) + (let ((#{b\ 11946}# + (assq #{outer-var\ 11941}# + (car #{maps\ 11936}#)))) + (if #{b\ 11946}# + (values (cdr #{b\ 11946}#) #{maps\ 11936}#) + (let ((#{inner-var\ 11948}# + (#{gen-var\ 9527}# (quote tmp)))) (values - #{inner-var\ 2825}# - (cons (cons (cons #{outer-var\ 2818}# - #{inner-var\ 2825}#) - (car #{maps\ 2813}#)) - #{outer-maps\ 2819}#))))))))))) - (#{gen-syntax\ 2718}# - (lambda (#{src\ 2826}# - #{e\ 2827}# - #{r\ 2828}# - #{maps\ 2829}# - #{ellipsis?\ 2830}# - #{mod\ 2831}#) - (if (#{id?\ 260}# #{e\ 2827}#) - (let ((#{label\ 2839}# - (#{id-var-name\ 317}# - #{e\ 2827}# + #{inner-var\ 11948}# + (cons (cons (cons #{outer-var\ 11941}# + #{inner-var\ 11948}#) + (car #{maps\ 11936}#)) + #{outer-maps\ 11942}#))))))))))) + (#{gen-syntax\ 11841}# + (lambda (#{src\ 11949}# + #{e\ 11950}# + #{r\ 11951}# + #{maps\ 11952}# + #{ellipsis?\ 11953}# + #{mod\ 11954}#) + (if (#{id?\ 9414}# #{e\ 11950}#) + (let ((#{label\ 11962}# + (#{id-var-name\ 9471}# + #{e\ 11950}# '(())))) - (let ((#{b\ 2842}# - (#{lookup\ 254}# - #{label\ 2839}# - #{r\ 2828}# - #{mod\ 2831}#))) - (if (eq? (#{binding-type\ 243}# #{b\ 2842}#) + (let ((#{b\ 11965}# + (#{lookup\ 9408}# + #{label\ 11962}# + #{r\ 11951}# + #{mod\ 11954}#))) + (if (eq? (#{binding-type\ 9397}# #{b\ 11965}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev\ 2844}# - (#{binding-value\ 245}# #{b\ 2842}#))) - (#{gen-ref\ 2720}# - #{src\ 2826}# - (car #{var.lev\ 2844}#) - (cdr #{var.lev\ 2844}#) - #{maps\ 2829}#))) - (lambda (#{var\ 2845}# #{maps\ 2846}#) + (let ((#{var.lev\ 11967}# + (#{binding-value\ 9399}# + #{b\ 11965}#))) + (#{gen-ref\ 11843}# + #{src\ 11949}# + (car #{var.lev\ 11967}#) + (cdr #{var.lev\ 11967}#) + #{maps\ 11952}#))) + (lambda (#{var\ 11968}# #{maps\ 11969}#) (values - (list (quote ref) #{var\ 2845}#) - #{maps\ 2846}#))) - (if (#{ellipsis?\ 2830}# #{e\ 2827}#) + (list (quote ref) #{var\ 11968}#) + #{maps\ 11969}#))) + (if (#{ellipsis?\ 11953}# #{e\ 11950}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 2826}#) + #{src\ 11949}#) (values - (list (quote quote) #{e\ 2827}#) - #{maps\ 2829}#))))) - ((lambda (#{tmp\ 2851}#) - ((lambda (#{tmp\ 2852}#) - (if (if #{tmp\ 2852}# - (apply (lambda (#{dots\ 2855}# #{e\ 2856}#) - (#{ellipsis?\ 2830}# - #{dots\ 2855}#)) - #{tmp\ 2852}#) + (list (quote quote) #{e\ 11950}#) + #{maps\ 11952}#))))) + ((lambda (#{tmp\ 11974}#) + ((lambda (#{tmp\ 11975}#) + (if (if #{tmp\ 11975}# + (apply (lambda (#{dots\ 11978}# + #{e\ 11979}#) + (#{ellipsis?\ 11953}# + #{dots\ 11978}#)) + #{tmp\ 11975}#) #f) - (apply (lambda (#{dots\ 2859}# #{e\ 2860}#) - (#{gen-syntax\ 2718}# - #{src\ 2826}# - #{e\ 2860}# - #{r\ 2828}# - #{maps\ 2829}# - (lambda (#{x\ 2861}#) #f) - #{mod\ 2831}#)) - #{tmp\ 2852}#) - ((lambda (#{tmp\ 2863}#) - (if (if #{tmp\ 2863}# - (apply (lambda (#{x\ 2867}# - #{dots\ 2868}# - #{y\ 2869}#) - (#{ellipsis?\ 2830}# - #{dots\ 2868}#)) - #{tmp\ 2863}#) + (apply (lambda (#{dots\ 11982}# #{e\ 11983}#) + (#{gen-syntax\ 11841}# + #{src\ 11949}# + #{e\ 11983}# + #{r\ 11951}# + #{maps\ 11952}# + (lambda (#{x\ 11984}#) #f) + #{mod\ 11954}#)) + #{tmp\ 11975}#) + ((lambda (#{tmp\ 11986}#) + (if (if #{tmp\ 11986}# + (apply (lambda (#{x\ 11990}# + #{dots\ 11991}# + #{y\ 11992}#) + (#{ellipsis?\ 11953}# + #{dots\ 11991}#)) + #{tmp\ 11986}#) #f) - (apply (lambda (#{x\ 2873}# - #{dots\ 2874}# - #{y\ 2875}#) - (letrec ((#{f\ 2879}# - (lambda (#{y\ 2880}# - #{k\ 2881}#) - ((lambda (#{tmp\ 2888}#) - ((lambda (#{tmp\ 2889}#) - (if (if #{tmp\ 2889}# - (apply (lambda (#{dots\ 2892}# - #{y\ 2893}#) - (#{ellipsis?\ 2830}# - #{dots\ 2892}#)) - #{tmp\ 2889}#) + (apply (lambda (#{x\ 11996}# + #{dots\ 11997}# + #{y\ 11998}#) + (letrec ((#{f\ 12002}# + (lambda (#{y\ 12003}# + #{k\ 12004}#) + ((lambda (#{tmp\ 12011}#) + ((lambda (#{tmp\ 12012}#) + (if (if #{tmp\ 12012}# + (apply (lambda (#{dots\ 12015}# + #{y\ 12016}#) + (#{ellipsis?\ 11953}# + #{dots\ 12015}#)) + #{tmp\ 12012}#) #f) - (apply (lambda (#{dots\ 2896}# - #{y\ 2897}#) - (#{f\ 2879}# - #{y\ 2897}# - (lambda (#{maps\ 2898}#) + (apply (lambda (#{dots\ 12019}# + #{y\ 12020}#) + (#{f\ 12002}# + #{y\ 12020}# + (lambda (#{maps\ 12021}#) (call-with-values (lambda () - (#{k\ 2881}# + (#{k\ 12004}# (cons '() - #{maps\ 2898}#))) - (lambda (#{x\ 2900}# - #{maps\ 2901}#) - (if (null? (car #{maps\ 2901}#)) + #{maps\ 12021}#))) + (lambda (#{x\ 12023}# + #{maps\ 12024}#) + (if (null? (car #{maps\ 12024}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2826}#) + #{src\ 11949}#) (values - (#{gen-mappend\ 2722}# - #{x\ 2900}# - (car #{maps\ 2901}#)) - (cdr #{maps\ 2901}#)))))))) - #{tmp\ 2889}#) - ((lambda (#{_\ 2905}#) + (#{gen-mappend\ 11845}# + #{x\ 12023}# + (car #{maps\ 12024}#)) + (cdr #{maps\ 12024}#)))))))) + #{tmp\ 12012}#) + ((lambda (#{_\ 12028}#) (call-with-values (lambda () - (#{gen-syntax\ 2718}# - #{src\ 2826}# - #{y\ 2880}# - #{r\ 2828}# - #{maps\ 2829}# - #{ellipsis?\ 2830}# - #{mod\ 2831}#)) - (lambda (#{y\ 2906}# - #{maps\ 2907}#) + (#{gen-syntax\ 11841}# + #{src\ 11949}# + #{y\ 12003}# + #{r\ 11951}# + #{maps\ 11952}# + #{ellipsis?\ 11953}# + #{mod\ 11954}#)) + (lambda (#{y\ 12029}# + #{maps\ 12030}#) (call-with-values (lambda () - (#{k\ 2881}# - #{maps\ 2907}#)) - (lambda (#{x\ 2910}# - #{maps\ 2911}#) + (#{k\ 12004}# + #{maps\ 12030}#)) + (lambda (#{x\ 12033}# + #{maps\ 12034}#) (values - (#{gen-append\ 2728}# - #{x\ 2910}# - #{y\ 2906}#) - #{maps\ 2911}#)))))) - #{tmp\ 2888}#))) + (#{gen-append\ 11851}# + #{x\ 12033}# + #{y\ 12029}#) + #{maps\ 12034}#)))))) + #{tmp\ 12011}#))) ($sc-dispatch - #{tmp\ 2888}# + #{tmp\ 12011}# '(any . any)))) - #{y\ 2880}#)))) - (#{f\ 2879}# - #{y\ 2875}# - (lambda (#{maps\ 2882}#) + #{y\ 12003}#)))) + (#{f\ 12002}# + #{y\ 11998}# + (lambda (#{maps\ 12005}#) (call-with-values (lambda () - (#{gen-syntax\ 2718}# - #{src\ 2826}# - #{x\ 2873}# - #{r\ 2828}# + (#{gen-syntax\ 11841}# + #{src\ 11949}# + #{x\ 11996}# + #{r\ 11951}# (cons '() - #{maps\ 2882}#) - #{ellipsis?\ 2830}# - #{mod\ 2831}#)) - (lambda (#{x\ 2884}# - #{maps\ 2885}#) - (if (null? (car #{maps\ 2885}#)) + #{maps\ 12005}#) + #{ellipsis?\ 11953}# + #{mod\ 11954}#)) + (lambda (#{x\ 12007}# + #{maps\ 12008}#) + (if (null? (car #{maps\ 12008}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 2826}#) + #{src\ 11949}#) (values - (#{gen-map\ 2724}# - #{x\ 2884}# - (car #{maps\ 2885}#)) - (cdr #{maps\ 2885}#))))))))) - #{tmp\ 2863}#) - ((lambda (#{tmp\ 2914}#) - (if #{tmp\ 2914}# - (apply (lambda (#{x\ 2917}# - #{y\ 2918}#) + (#{gen-map\ 11847}# + #{x\ 12007}# + (car #{maps\ 12008}#)) + (cdr #{maps\ 12008}#))))))))) + #{tmp\ 11986}#) + ((lambda (#{tmp\ 12037}#) + (if #{tmp\ 12037}# + (apply (lambda (#{x\ 12040}# + #{y\ 12041}#) (call-with-values (lambda () - (#{gen-syntax\ 2718}# - #{src\ 2826}# - #{x\ 2917}# - #{r\ 2828}# - #{maps\ 2829}# - #{ellipsis?\ 2830}# - #{mod\ 2831}#)) - (lambda (#{x\ 2919}# - #{maps\ 2920}#) + (#{gen-syntax\ 11841}# + #{src\ 11949}# + #{x\ 12040}# + #{r\ 11951}# + #{maps\ 11952}# + #{ellipsis?\ 11953}# + #{mod\ 11954}#)) + (lambda (#{x\ 12042}# + #{maps\ 12043}#) (call-with-values (lambda () - (#{gen-syntax\ 2718}# - #{src\ 2826}# - #{y\ 2918}# - #{r\ 2828}# - #{maps\ 2920}# - #{ellipsis?\ 2830}# - #{mod\ 2831}#)) - (lambda (#{y\ 2923}# - #{maps\ 2924}#) + (#{gen-syntax\ 11841}# + #{src\ 11949}# + #{y\ 12041}# + #{r\ 11951}# + #{maps\ 12043}# + #{ellipsis?\ 11953}# + #{mod\ 11954}#)) + (lambda (#{y\ 12046}# + #{maps\ 12047}#) (values - (#{gen-cons\ 2726}# - #{x\ 2919}# - #{y\ 2923}#) - #{maps\ 2924}#)))))) - #{tmp\ 2914}#) - ((lambda (#{tmp\ 2927}#) - (if #{tmp\ 2927}# - (apply (lambda (#{e1\ 2930}# - #{e2\ 2931}#) + (#{gen-cons\ 11849}# + #{x\ 12042}# + #{y\ 12046}#) + #{maps\ 12047}#)))))) + #{tmp\ 12037}#) + ((lambda (#{tmp\ 12050}#) + (if #{tmp\ 12050}# + (apply (lambda (#{e1\ 12053}# + #{e2\ 12054}#) (call-with-values (lambda () - (#{gen-syntax\ 2718}# - #{src\ 2826}# - (cons #{e1\ 2930}# - #{e2\ 2931}#) - #{r\ 2828}# - #{maps\ 2829}# - #{ellipsis?\ 2830}# - #{mod\ 2831}#)) - (lambda (#{e\ 2933}# - #{maps\ 2934}#) + (#{gen-syntax\ 11841}# + #{src\ 11949}# + (cons #{e1\ 12053}# + #{e2\ 12054}#) + #{r\ 11951}# + #{maps\ 11952}# + #{ellipsis?\ 11953}# + #{mod\ 11954}#)) + (lambda (#{e\ 12056}# + #{maps\ 12057}#) (values - (#{gen-vector\ 2730}# - #{e\ 2933}#) - #{maps\ 2934}#)))) - #{tmp\ 2927}#) - ((lambda (#{_\ 2938}#) + (#{gen-vector\ 11853}# + #{e\ 12056}#) + #{maps\ 12057}#)))) + #{tmp\ 12050}#) + ((lambda (#{_\ 12061}#) (values (list 'quote - #{e\ 2827}#) - #{maps\ 2829}#)) - #{tmp\ 2851}#))) + #{e\ 11950}#) + #{maps\ 11952}#)) + #{tmp\ 11974}#))) ($sc-dispatch - #{tmp\ 2851}# + #{tmp\ 11974}# '#(vector (any . each-any)))))) ($sc-dispatch - #{tmp\ 2851}# + #{tmp\ 11974}# '(any . any))))) ($sc-dispatch - #{tmp\ 2851}# + #{tmp\ 11974}# '(any any . any))))) - ($sc-dispatch #{tmp\ 2851}# (quote (any any))))) - #{e\ 2827}#))))) - (lambda (#{e\ 2940}# - #{r\ 2941}# - #{w\ 2942}# - #{s\ 2943}# - #{mod\ 2944}#) - (let ((#{e\ 2951}# - (#{source-wrap\ 331}# - #{e\ 2940}# - #{w\ 2942}# - #{s\ 2943}# - #{mod\ 2944}#))) - ((lambda (#{tmp\ 2952}#) - ((lambda (#{tmp\ 2953}#) - (if #{tmp\ 2953}# - (apply (lambda (#{_\ 2956}# #{x\ 2957}#) + ($sc-dispatch #{tmp\ 11974}# (quote (any any))))) + #{e\ 11950}#))))) + (lambda (#{e\ 12063}# + #{r\ 12064}# + #{w\ 12065}# + #{s\ 12066}# + #{mod\ 12067}#) + (let ((#{e\ 12074}# + (#{source-wrap\ 9485}# + #{e\ 12063}# + #{w\ 12065}# + #{s\ 12066}# + #{mod\ 12067}#))) + ((lambda (#{tmp\ 12075}#) + ((lambda (#{tmp\ 12076}#) + (if #{tmp\ 12076}# + (apply (lambda (#{_\ 12079}# #{x\ 12080}#) (call-with-values (lambda () - (#{gen-syntax\ 2718}# - #{e\ 2951}# - #{x\ 2957}# - #{r\ 2941}# + (#{gen-syntax\ 11841}# + #{e\ 12074}# + #{x\ 12080}# + #{r\ 12064}# '() - #{ellipsis?\ 361}# - #{mod\ 2944}#)) - (lambda (#{e\ 2958}# #{maps\ 2959}#) - (#{regen\ 2732}# #{e\ 2958}#)))) - #{tmp\ 2953}#) - ((lambda (#{_\ 2963}#) + #{ellipsis?\ 9515}# + #{mod\ 12067}#)) + (lambda (#{e\ 12081}# #{maps\ 12082}#) + (#{regen\ 11855}# #{e\ 12081}#)))) + #{tmp\ 12076}#) + ((lambda (#{_\ 12086}#) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 2951}#)) - #{tmp\ 2952}#))) - ($sc-dispatch #{tmp\ 2952}# (quote (any any))))) - #{e\ 2951}#))))) - (#{global-extend\ 256}# + #{e\ 12074}#)) + #{tmp\ 12075}#))) + ($sc-dispatch #{tmp\ 12075}# (quote (any any))))) + #{e\ 12074}#))))) + (#{global-extend\ 9410}# 'core 'lambda - (lambda (#{e\ 2964}# - #{r\ 2965}# - #{w\ 2966}# - #{s\ 2967}# - #{mod\ 2968}#) - ((lambda (#{tmp\ 2974}#) - ((lambda (#{tmp\ 2975}#) - (if (if #{tmp\ 2975}# - (apply (lambda (#{_\ 2981}# - #{args\ 2982}# - #{docstring\ 2983}# - #{e1\ 2984}# - #{e2\ 2985}#) - (string? (syntax->datum #{docstring\ 2983}#))) - #{tmp\ 2975}#) + (lambda (#{e\ 12087}# + #{r\ 12088}# + #{w\ 12089}# + #{s\ 12090}# + #{mod\ 12091}#) + ((lambda (#{tmp\ 12097}#) + ((lambda (#{tmp\ 12098}#) + (if (if #{tmp\ 12098}# + (apply (lambda (#{_\ 12104}# + #{args\ 12105}# + #{docstring\ 12106}# + #{e1\ 12107}# + #{e2\ 12108}#) + (string? (syntax->datum #{docstring\ 12106}#))) + #{tmp\ 12098}#) #f) - (apply (lambda (#{_\ 2991}# - #{args\ 2992}# - #{docstring\ 2993}# - #{e1\ 2994}# - #{e2\ 2995}#) + (apply (lambda (#{_\ 12114}# + #{args\ 12115}# + #{docstring\ 12116}# + #{e1\ 12117}# + #{e2\ 12118}#) (call-with-values (lambda () - (#{lambda-formals\ 363}# #{args\ 2992}#)) - (lambda (#{req\ 2996}# - #{opt\ 2997}# - #{rest\ 2998}# - #{kw\ 2999}#) - (#{chi-simple-lambda\ 365}# - #{e\ 2964}# - #{r\ 2965}# - #{w\ 2966}# - #{s\ 2967}# - #{mod\ 2968}# - #{req\ 2996}# - #{rest\ 2998}# - (syntax->datum #{docstring\ 2993}#) - (cons #{e1\ 2994}# #{e2\ 2995}#))))) - #{tmp\ 2975}#) - ((lambda (#{tmp\ 3005}#) - (if #{tmp\ 3005}# - (apply (lambda (#{_\ 3010}# - #{args\ 3011}# - #{e1\ 3012}# - #{e2\ 3013}#) + (#{lambda-formals\ 9517}# #{args\ 12115}#)) + (lambda (#{req\ 12119}# + #{opt\ 12120}# + #{rest\ 12121}# + #{kw\ 12122}#) + (#{chi-simple-lambda\ 9519}# + #{e\ 12087}# + #{r\ 12088}# + #{w\ 12089}# + #{s\ 12090}# + #{mod\ 12091}# + #{req\ 12119}# + #{rest\ 12121}# + (syntax->datum #{docstring\ 12116}#) + (cons #{e1\ 12117}# #{e2\ 12118}#))))) + #{tmp\ 12098}#) + ((lambda (#{tmp\ 12128}#) + (if #{tmp\ 12128}# + (apply (lambda (#{_\ 12133}# + #{args\ 12134}# + #{e1\ 12135}# + #{e2\ 12136}#) (call-with-values (lambda () - (#{lambda-formals\ 363}# #{args\ 3011}#)) - (lambda (#{req\ 3014}# - #{opt\ 3015}# - #{rest\ 3016}# - #{kw\ 3017}#) - (#{chi-simple-lambda\ 365}# - #{e\ 2964}# - #{r\ 2965}# - #{w\ 2966}# - #{s\ 2967}# - #{mod\ 2968}# - #{req\ 3014}# - #{rest\ 3016}# + (#{lambda-formals\ 9517}# #{args\ 12134}#)) + (lambda (#{req\ 12137}# + #{opt\ 12138}# + #{rest\ 12139}# + #{kw\ 12140}#) + (#{chi-simple-lambda\ 9519}# + #{e\ 12087}# + #{r\ 12088}# + #{w\ 12089}# + #{s\ 12090}# + #{mod\ 12091}# + #{req\ 12137}# + #{rest\ 12139}# #f - (cons #{e1\ 3012}# #{e2\ 3013}#))))) - #{tmp\ 3005}#) - ((lambda (#{_\ 3024}#) + (cons #{e1\ 12135}# #{e2\ 12136}#))))) + #{tmp\ 12128}#) + ((lambda (#{_\ 12147}#) (syntax-violation 'lambda "bad lambda" - #{e\ 2964}#)) - #{tmp\ 2974}#))) + #{e\ 12087}#)) + #{tmp\ 12097}#))) ($sc-dispatch - #{tmp\ 2974}# + #{tmp\ 12097}# '(any any any . each-any))))) ($sc-dispatch - #{tmp\ 2974}# + #{tmp\ 12097}# '(any any any any . each-any)))) - #{e\ 2964}#))) - (#{global-extend\ 256}# + #{e\ 12087}#))) + (#{global-extend\ 9410}# 'core 'lambda* - (lambda (#{e\ 3025}# - #{r\ 3026}# - #{w\ 3027}# - #{s\ 3028}# - #{mod\ 3029}#) - ((lambda (#{tmp\ 3035}#) - ((lambda (#{tmp\ 3036}#) - (if #{tmp\ 3036}# - (apply (lambda (#{_\ 3041}# - #{args\ 3042}# - #{e1\ 3043}# - #{e2\ 3044}#) + (lambda (#{e\ 12148}# + #{r\ 12149}# + #{w\ 12150}# + #{s\ 12151}# + #{mod\ 12152}#) + ((lambda (#{tmp\ 12158}#) + ((lambda (#{tmp\ 12159}#) + (if #{tmp\ 12159}# + (apply (lambda (#{_\ 12164}# + #{args\ 12165}# + #{e1\ 12166}# + #{e2\ 12167}#) (call-with-values (lambda () - (#{chi-lambda-case\ 369}# - #{e\ 3025}# - #{r\ 3026}# - #{w\ 3027}# - #{s\ 3028}# - #{mod\ 3029}# - #{lambda*-formals\ 367}# - (list (cons #{args\ 3042}# - (cons #{e1\ 3043}# - #{e2\ 3044}#))))) - (lambda (#{docstring\ 3046}# #{lcase\ 3047}#) - (#{build-case-lambda\ 204}# - #{s\ 3028}# - #{docstring\ 3046}# - #{lcase\ 3047}#)))) - #{tmp\ 3036}#) - ((lambda (#{_\ 3051}#) + (#{chi-lambda-case\ 9523}# + #{e\ 12148}# + #{r\ 12149}# + #{w\ 12150}# + #{s\ 12151}# + #{mod\ 12152}# + #{lambda*-formals\ 9521}# + (list (cons #{args\ 12165}# + (cons #{e1\ 12166}# + #{e2\ 12167}#))))) + (lambda (#{docstring\ 12169}# #{lcase\ 12170}#) + (#{build-case-lambda\ 9358}# + #{s\ 12151}# + #{docstring\ 12169}# + #{lcase\ 12170}#)))) + #{tmp\ 12159}#) + ((lambda (#{_\ 12174}#) (syntax-violation 'lambda "bad lambda*" - #{e\ 3025}#)) - #{tmp\ 3035}#))) + #{e\ 12148}#)) + #{tmp\ 12158}#))) ($sc-dispatch - #{tmp\ 3035}# + #{tmp\ 12158}# '(any any any . each-any)))) - #{e\ 3025}#))) - (#{global-extend\ 256}# + #{e\ 12148}#))) + (#{global-extend\ 9410}# 'core 'case-lambda - (lambda (#{e\ 3052}# - #{r\ 3053}# - #{w\ 3054}# - #{s\ 3055}# - #{mod\ 3056}#) - ((lambda (#{tmp\ 3062}#) - ((lambda (#{tmp\ 3063}#) - (if #{tmp\ 3063}# - (apply (lambda (#{_\ 3071}# - #{args\ 3072}# - #{e1\ 3073}# - #{e2\ 3074}# - #{args*\ 3075}# - #{e1*\ 3076}# - #{e2*\ 3077}#) + (lambda (#{e\ 12175}# + #{r\ 12176}# + #{w\ 12177}# + #{s\ 12178}# + #{mod\ 12179}#) + ((lambda (#{tmp\ 12185}#) + ((lambda (#{tmp\ 12186}#) + (if #{tmp\ 12186}# + (apply (lambda (#{_\ 12194}# + #{args\ 12195}# + #{e1\ 12196}# + #{e2\ 12197}# + #{args*\ 12198}# + #{e1*\ 12199}# + #{e2*\ 12200}#) (call-with-values (lambda () - (#{chi-lambda-case\ 369}# - #{e\ 3052}# - #{r\ 3053}# - #{w\ 3054}# - #{s\ 3055}# - #{mod\ 3056}# - #{lambda-formals\ 363}# - (cons (cons #{args\ 3072}# - (cons #{e1\ 3073}# #{e2\ 3074}#)) - (map (lambda (#{tmp\ 3081}# - #{tmp\ 3080}# - #{tmp\ 3079}#) - (cons #{tmp\ 3079}# - (cons #{tmp\ 3080}# - #{tmp\ 3081}#))) - #{e2*\ 3077}# - #{e1*\ 3076}# - #{args*\ 3075}#)))) - (lambda (#{docstring\ 3083}# #{lcase\ 3084}#) - (#{build-case-lambda\ 204}# - #{s\ 3055}# - #{docstring\ 3083}# - #{lcase\ 3084}#)))) - #{tmp\ 3063}#) - ((lambda (#{_\ 3088}#) + (#{chi-lambda-case\ 9523}# + #{e\ 12175}# + #{r\ 12176}# + #{w\ 12177}# + #{s\ 12178}# + #{mod\ 12179}# + #{lambda-formals\ 9517}# + (cons (cons #{args\ 12195}# + (cons #{e1\ 12196}# + #{e2\ 12197}#)) + (map (lambda (#{tmp\ 12204}# + #{tmp\ 12203}# + #{tmp\ 12202}#) + (cons #{tmp\ 12202}# + (cons #{tmp\ 12203}# + #{tmp\ 12204}#))) + #{e2*\ 12200}# + #{e1*\ 12199}# + #{args*\ 12198}#)))) + (lambda (#{docstring\ 12206}# #{lcase\ 12207}#) + (#{build-case-lambda\ 9358}# + #{s\ 12178}# + #{docstring\ 12206}# + #{lcase\ 12207}#)))) + #{tmp\ 12186}#) + ((lambda (#{_\ 12211}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e\ 3052}#)) - #{tmp\ 3062}#))) + #{e\ 12175}#)) + #{tmp\ 12185}#))) ($sc-dispatch - #{tmp\ 3062}# + #{tmp\ 12185}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 3052}#))) - (#{global-extend\ 256}# + #{e\ 12175}#))) + (#{global-extend\ 9410}# 'core 'case-lambda* - (lambda (#{e\ 3089}# - #{r\ 3090}# - #{w\ 3091}# - #{s\ 3092}# - #{mod\ 3093}#) - ((lambda (#{tmp\ 3099}#) - ((lambda (#{tmp\ 3100}#) - (if #{tmp\ 3100}# - (apply (lambda (#{_\ 3108}# - #{args\ 3109}# - #{e1\ 3110}# - #{e2\ 3111}# - #{args*\ 3112}# - #{e1*\ 3113}# - #{e2*\ 3114}#) + (lambda (#{e\ 12212}# + #{r\ 12213}# + #{w\ 12214}# + #{s\ 12215}# + #{mod\ 12216}#) + ((lambda (#{tmp\ 12222}#) + ((lambda (#{tmp\ 12223}#) + (if #{tmp\ 12223}# + (apply (lambda (#{_\ 12231}# + #{args\ 12232}# + #{e1\ 12233}# + #{e2\ 12234}# + #{args*\ 12235}# + #{e1*\ 12236}# + #{e2*\ 12237}#) (call-with-values (lambda () - (#{chi-lambda-case\ 369}# - #{e\ 3089}# - #{r\ 3090}# - #{w\ 3091}# - #{s\ 3092}# - #{mod\ 3093}# - #{lambda*-formals\ 367}# - (cons (cons #{args\ 3109}# - (cons #{e1\ 3110}# #{e2\ 3111}#)) - (map (lambda (#{tmp\ 3118}# - #{tmp\ 3117}# - #{tmp\ 3116}#) - (cons #{tmp\ 3116}# - (cons #{tmp\ 3117}# - #{tmp\ 3118}#))) - #{e2*\ 3114}# - #{e1*\ 3113}# - #{args*\ 3112}#)))) - (lambda (#{docstring\ 3120}# #{lcase\ 3121}#) - (#{build-case-lambda\ 204}# - #{s\ 3092}# - #{docstring\ 3120}# - #{lcase\ 3121}#)))) - #{tmp\ 3100}#) - ((lambda (#{_\ 3125}#) + (#{chi-lambda-case\ 9523}# + #{e\ 12212}# + #{r\ 12213}# + #{w\ 12214}# + #{s\ 12215}# + #{mod\ 12216}# + #{lambda*-formals\ 9521}# + (cons (cons #{args\ 12232}# + (cons #{e1\ 12233}# + #{e2\ 12234}#)) + (map (lambda (#{tmp\ 12241}# + #{tmp\ 12240}# + #{tmp\ 12239}#) + (cons #{tmp\ 12239}# + (cons #{tmp\ 12240}# + #{tmp\ 12241}#))) + #{e2*\ 12237}# + #{e1*\ 12236}# + #{args*\ 12235}#)))) + (lambda (#{docstring\ 12243}# #{lcase\ 12244}#) + (#{build-case-lambda\ 9358}# + #{s\ 12215}# + #{docstring\ 12243}# + #{lcase\ 12244}#)))) + #{tmp\ 12223}#) + ((lambda (#{_\ 12248}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e\ 3089}#)) - #{tmp\ 3099}#))) + #{e\ 12212}#)) + #{tmp\ 12222}#))) ($sc-dispatch - #{tmp\ 3099}# + #{tmp\ 12222}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 3089}#))) - (#{global-extend\ 256}# + #{e\ 12212}#))) + (#{global-extend\ 9410}# 'core 'let - (letrec ((#{chi-let\ 3127}# - (lambda (#{e\ 3128}# - #{r\ 3129}# - #{w\ 3130}# - #{s\ 3131}# - #{mod\ 3132}# - #{constructor\ 3133}# - #{ids\ 3134}# - #{vals\ 3135}# - #{exps\ 3136}#) - (if (not (#{valid-bound-ids?\ 323}# #{ids\ 3134}#)) + (letrec ((#{chi-let\ 12250}# + (lambda (#{e\ 12251}# + #{r\ 12252}# + #{w\ 12253}# + #{s\ 12254}# + #{mod\ 12255}# + #{constructor\ 12256}# + #{ids\ 12257}# + #{vals\ 12258}# + #{exps\ 12259}#) + (if (not (#{valid-bound-ids?\ 9477}# #{ids\ 12257}#)) (syntax-violation 'let "duplicate bound variable" - #{e\ 3128}#) - (let ((#{labels\ 3148}# - (#{gen-labels\ 278}# #{ids\ 3134}#)) - (#{new-vars\ 3149}# - (map #{gen-var\ 373}# #{ids\ 3134}#))) - (let ((#{nw\ 3152}# - (#{make-binding-wrap\ 307}# - #{ids\ 3134}# - #{labels\ 3148}# - #{w\ 3130}#)) - (#{nr\ 3153}# - (#{extend-var-env\ 250}# - #{labels\ 3148}# - #{new-vars\ 3149}# - #{r\ 3129}#))) - (#{constructor\ 3133}# - #{s\ 3131}# - (map syntax->datum #{ids\ 3134}#) - #{new-vars\ 3149}# - (map (lambda (#{x\ 3154}#) - (#{chi\ 345}# - #{x\ 3154}# - #{r\ 3129}# - #{w\ 3130}# - #{mod\ 3132}#)) - #{vals\ 3135}#) - (#{chi-body\ 353}# - #{exps\ 3136}# - (#{source-wrap\ 331}# - #{e\ 3128}# - #{nw\ 3152}# - #{s\ 3131}# - #{mod\ 3132}#) - #{nr\ 3153}# - #{nw\ 3152}# - #{mod\ 3132}#)))))))) - (lambda (#{e\ 3156}# - #{r\ 3157}# - #{w\ 3158}# - #{s\ 3159}# - #{mod\ 3160}#) - ((lambda (#{tmp\ 3166}#) - ((lambda (#{tmp\ 3167}#) - (if (if #{tmp\ 3167}# - (apply (lambda (#{_\ 3173}# - #{id\ 3174}# - #{val\ 3175}# - #{e1\ 3176}# - #{e2\ 3177}#) - (and-map #{id?\ 260}# #{id\ 3174}#)) - #{tmp\ 3167}#) + #{e\ 12251}#) + (let ((#{labels\ 12271}# + (#{gen-labels\ 9432}# #{ids\ 12257}#)) + (#{new-vars\ 12272}# + (map #{gen-var\ 9527}# #{ids\ 12257}#))) + (let ((#{nw\ 12275}# + (#{make-binding-wrap\ 9461}# + #{ids\ 12257}# + #{labels\ 12271}# + #{w\ 12253}#)) + (#{nr\ 12276}# + (#{extend-var-env\ 9404}# + #{labels\ 12271}# + #{new-vars\ 12272}# + #{r\ 12252}#))) + (#{constructor\ 12256}# + #{s\ 12254}# + (map syntax->datum #{ids\ 12257}#) + #{new-vars\ 12272}# + (map (lambda (#{x\ 12277}#) + (#{chi\ 9499}# + #{x\ 12277}# + #{r\ 12252}# + #{w\ 12253}# + #{mod\ 12255}#)) + #{vals\ 12258}#) + (#{chi-body\ 9507}# + #{exps\ 12259}# + (#{source-wrap\ 9485}# + #{e\ 12251}# + #{nw\ 12275}# + #{s\ 12254}# + #{mod\ 12255}#) + #{nr\ 12276}# + #{nw\ 12275}# + #{mod\ 12255}#)))))))) + (lambda (#{e\ 12279}# + #{r\ 12280}# + #{w\ 12281}# + #{s\ 12282}# + #{mod\ 12283}#) + ((lambda (#{tmp\ 12289}#) + ((lambda (#{tmp\ 12290}#) + (if (if #{tmp\ 12290}# + (apply (lambda (#{_\ 12296}# + #{id\ 12297}# + #{val\ 12298}# + #{e1\ 12299}# + #{e2\ 12300}#) + (and-map #{id?\ 9414}# #{id\ 12297}#)) + #{tmp\ 12290}#) #f) - (apply (lambda (#{_\ 3184}# - #{id\ 3185}# - #{val\ 3186}# - #{e1\ 3187}# - #{e2\ 3188}#) - (#{chi-let\ 3127}# - #{e\ 3156}# - #{r\ 3157}# - #{w\ 3158}# - #{s\ 3159}# - #{mod\ 3160}# - #{build-let\ 214}# - #{id\ 3185}# - #{val\ 3186}# - (cons #{e1\ 3187}# #{e2\ 3188}#))) - #{tmp\ 3167}#) - ((lambda (#{tmp\ 3192}#) - (if (if #{tmp\ 3192}# - (apply (lambda (#{_\ 3199}# - #{f\ 3200}# - #{id\ 3201}# - #{val\ 3202}# - #{e1\ 3203}# - #{e2\ 3204}#) - (if (#{id?\ 260}# #{f\ 3200}#) - (and-map #{id?\ 260}# #{id\ 3201}#) + (apply (lambda (#{_\ 12307}# + #{id\ 12308}# + #{val\ 12309}# + #{e1\ 12310}# + #{e2\ 12311}#) + (#{chi-let\ 12250}# + #{e\ 12279}# + #{r\ 12280}# + #{w\ 12281}# + #{s\ 12282}# + #{mod\ 12283}# + #{build-let\ 9368}# + #{id\ 12308}# + #{val\ 12309}# + (cons #{e1\ 12310}# #{e2\ 12311}#))) + #{tmp\ 12290}#) + ((lambda (#{tmp\ 12315}#) + (if (if #{tmp\ 12315}# + (apply (lambda (#{_\ 12322}# + #{f\ 12323}# + #{id\ 12324}# + #{val\ 12325}# + #{e1\ 12326}# + #{e2\ 12327}#) + (if (#{id?\ 9414}# #{f\ 12323}#) + (and-map #{id?\ 9414}# #{id\ 12324}#) #f)) - #{tmp\ 3192}#) + #{tmp\ 12315}#) #f) - (apply (lambda (#{_\ 3214}# - #{f\ 3215}# - #{id\ 3216}# - #{val\ 3217}# - #{e1\ 3218}# - #{e2\ 3219}#) - (#{chi-let\ 3127}# - #{e\ 3156}# - #{r\ 3157}# - #{w\ 3158}# - #{s\ 3159}# - #{mod\ 3160}# - #{build-named-let\ 216}# - (cons #{f\ 3215}# #{id\ 3216}#) - #{val\ 3217}# - (cons #{e1\ 3218}# #{e2\ 3219}#))) - #{tmp\ 3192}#) - ((lambda (#{_\ 3224}#) + (apply (lambda (#{_\ 12337}# + #{f\ 12338}# + #{id\ 12339}# + #{val\ 12340}# + #{e1\ 12341}# + #{e2\ 12342}#) + (#{chi-let\ 12250}# + #{e\ 12279}# + #{r\ 12280}# + #{w\ 12281}# + #{s\ 12282}# + #{mod\ 12283}# + #{build-named-let\ 9370}# + (cons #{f\ 12338}# #{id\ 12339}#) + #{val\ 12340}# + (cons #{e1\ 12341}# #{e2\ 12342}#))) + #{tmp\ 12315}#) + ((lambda (#{_\ 12347}#) (syntax-violation 'let "bad let" - (#{source-wrap\ 331}# - #{e\ 3156}# - #{w\ 3158}# - #{s\ 3159}# - #{mod\ 3160}#))) - #{tmp\ 3166}#))) + (#{source-wrap\ 9485}# + #{e\ 12279}# + #{w\ 12281}# + #{s\ 12282}# + #{mod\ 12283}#))) + #{tmp\ 12289}#))) ($sc-dispatch - #{tmp\ 3166}# + #{tmp\ 12289}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 3166}# + #{tmp\ 12289}# '(any #(each (any any)) any . each-any)))) - #{e\ 3156}#)))) - (#{global-extend\ 256}# + #{e\ 12279}#)))) + (#{global-extend\ 9410}# 'core 'letrec - (lambda (#{e\ 3225}# - #{r\ 3226}# - #{w\ 3227}# - #{s\ 3228}# - #{mod\ 3229}#) - ((lambda (#{tmp\ 3235}#) - ((lambda (#{tmp\ 3236}#) - (if (if #{tmp\ 3236}# - (apply (lambda (#{_\ 3242}# - #{id\ 3243}# - #{val\ 3244}# - #{e1\ 3245}# - #{e2\ 3246}#) - (and-map #{id?\ 260}# #{id\ 3243}#)) - #{tmp\ 3236}#) + (lambda (#{e\ 12348}# + #{r\ 12349}# + #{w\ 12350}# + #{s\ 12351}# + #{mod\ 12352}#) + ((lambda (#{tmp\ 12358}#) + ((lambda (#{tmp\ 12359}#) + (if (if #{tmp\ 12359}# + (apply (lambda (#{_\ 12365}# + #{id\ 12366}# + #{val\ 12367}# + #{e1\ 12368}# + #{e2\ 12369}#) + (and-map #{id?\ 9414}# #{id\ 12366}#)) + #{tmp\ 12359}#) #f) - (apply (lambda (#{_\ 3253}# - #{id\ 3254}# - #{val\ 3255}# - #{e1\ 3256}# - #{e2\ 3257}#) - (let ((#{ids\ 3259}# #{id\ 3254}#)) - (if (not (#{valid-bound-ids?\ 323}# - #{ids\ 3259}#)) + (apply (lambda (#{_\ 12376}# + #{id\ 12377}# + #{val\ 12378}# + #{e1\ 12379}# + #{e2\ 12380}#) + (let ((#{ids\ 12382}# #{id\ 12377}#)) + (if (not (#{valid-bound-ids?\ 9477}# + #{ids\ 12382}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e\ 3225}#) - (let ((#{labels\ 3263}# - (#{gen-labels\ 278}# #{ids\ 3259}#)) - (#{new-vars\ 3264}# - (map #{gen-var\ 373}# #{ids\ 3259}#))) - (let ((#{w\ 3267}# - (#{make-binding-wrap\ 307}# - #{ids\ 3259}# - #{labels\ 3263}# - #{w\ 3227}#)) - (#{r\ 3268}# - (#{extend-var-env\ 250}# - #{labels\ 3263}# - #{new-vars\ 3264}# - #{r\ 3226}#))) - (#{build-letrec\ 218}# - #{s\ 3228}# - (map syntax->datum #{ids\ 3259}#) - #{new-vars\ 3264}# - (map (lambda (#{x\ 3269}#) - (#{chi\ 345}# - #{x\ 3269}# - #{r\ 3268}# - #{w\ 3267}# - #{mod\ 3229}#)) - #{val\ 3255}#) - (#{chi-body\ 353}# - (cons #{e1\ 3256}# #{e2\ 3257}#) - (#{source-wrap\ 331}# - #{e\ 3225}# - #{w\ 3267}# - #{s\ 3228}# - #{mod\ 3229}#) - #{r\ 3268}# - #{w\ 3267}# - #{mod\ 3229}#))))))) - #{tmp\ 3236}#) - ((lambda (#{_\ 3274}#) + #{e\ 12348}#) + (let ((#{labels\ 12386}# + (#{gen-labels\ 9432}# #{ids\ 12382}#)) + (#{new-vars\ 12387}# + (map #{gen-var\ 9527}# #{ids\ 12382}#))) + (let ((#{w\ 12390}# + (#{make-binding-wrap\ 9461}# + #{ids\ 12382}# + #{labels\ 12386}# + #{w\ 12350}#)) + (#{r\ 12391}# + (#{extend-var-env\ 9404}# + #{labels\ 12386}# + #{new-vars\ 12387}# + #{r\ 12349}#))) + (#{build-letrec\ 9372}# + #{s\ 12351}# + (map syntax->datum #{ids\ 12382}#) + #{new-vars\ 12387}# + (map (lambda (#{x\ 12392}#) + (#{chi\ 9499}# + #{x\ 12392}# + #{r\ 12391}# + #{w\ 12390}# + #{mod\ 12352}#)) + #{val\ 12378}#) + (#{chi-body\ 9507}# + (cons #{e1\ 12379}# #{e2\ 12380}#) + (#{source-wrap\ 9485}# + #{e\ 12348}# + #{w\ 12390}# + #{s\ 12351}# + #{mod\ 12352}#) + #{r\ 12391}# + #{w\ 12390}# + #{mod\ 12352}#))))))) + #{tmp\ 12359}#) + ((lambda (#{_\ 12397}#) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 331}# - #{e\ 3225}# - #{w\ 3227}# - #{s\ 3228}# - #{mod\ 3229}#))) - #{tmp\ 3235}#))) + (#{source-wrap\ 9485}# + #{e\ 12348}# + #{w\ 12350}# + #{s\ 12351}# + #{mod\ 12352}#))) + #{tmp\ 12358}#))) ($sc-dispatch - #{tmp\ 3235}# + #{tmp\ 12358}# '(any #(each (any any)) any . each-any)))) - #{e\ 3225}#))) - (#{global-extend\ 256}# + #{e\ 12348}#))) + (#{global-extend\ 9410}# 'core 'set! - (lambda (#{e\ 3275}# - #{r\ 3276}# - #{w\ 3277}# - #{s\ 3278}# - #{mod\ 3279}#) - ((lambda (#{tmp\ 3285}#) - ((lambda (#{tmp\ 3286}#) - (if (if #{tmp\ 3286}# - (apply (lambda (#{_\ 3290}# #{id\ 3291}# #{val\ 3292}#) - (#{id?\ 260}# #{id\ 3291}#)) - #{tmp\ 3286}#) + (lambda (#{e\ 12398}# + #{r\ 12399}# + #{w\ 12400}# + #{s\ 12401}# + #{mod\ 12402}#) + ((lambda (#{tmp\ 12408}#) + ((lambda (#{tmp\ 12409}#) + (if (if #{tmp\ 12409}# + (apply (lambda (#{_\ 12413}# + #{id\ 12414}# + #{val\ 12415}#) + (#{id?\ 9414}# #{id\ 12414}#)) + #{tmp\ 12409}#) #f) - (apply (lambda (#{_\ 3296}# #{id\ 3297}# #{val\ 3298}#) - (let ((#{val\ 3301}# - (#{chi\ 345}# - #{val\ 3298}# - #{r\ 3276}# - #{w\ 3277}# - #{mod\ 3279}#)) - (#{n\ 3302}# - (#{id-var-name\ 317}# - #{id\ 3297}# - #{w\ 3277}#))) - (let ((#{b\ 3304}# - (#{lookup\ 254}# - #{n\ 3302}# - #{r\ 3276}# - #{mod\ 3279}#))) - (let ((#{atom-key\ 3307}# - (#{binding-type\ 243}# #{b\ 3304}#))) - (if (memv #{atom-key\ 3307}# + (apply (lambda (#{_\ 12419}# #{id\ 12420}# #{val\ 12421}#) + (let ((#{val\ 12424}# + (#{chi\ 9499}# + #{val\ 12421}# + #{r\ 12399}# + #{w\ 12400}# + #{mod\ 12402}#)) + (#{n\ 12425}# + (#{id-var-name\ 9471}# + #{id\ 12420}# + #{w\ 12400}#))) + (let ((#{b\ 12427}# + (#{lookup\ 9408}# + #{n\ 12425}# + #{r\ 12399}# + #{mod\ 12402}#))) + (let ((#{atom-key\ 12430}# + (#{binding-type\ 9397}# #{b\ 12427}#))) + (if (memv #{atom-key\ 12430}# '(lexical)) - (#{build-lexical-assignment\ 190}# - #{s\ 3278}# - (syntax->datum #{id\ 3297}#) - (#{binding-value\ 245}# #{b\ 3304}#) - #{val\ 3301}#) - (if (memv #{atom-key\ 3307}# + (#{build-lexical-assignment\ 9344}# + #{s\ 12401}# + (syntax->datum #{id\ 12420}#) + (#{binding-value\ 9399}# #{b\ 12427}#) + #{val\ 12424}#) + (if (memv #{atom-key\ 12430}# '(global)) - (#{build-global-assignment\ 196}# - #{s\ 3278}# - #{n\ 3302}# - #{val\ 3301}# - #{mod\ 3279}#) - (if (memv #{atom-key\ 3307}# + (#{build-global-assignment\ 9350}# + #{s\ 12401}# + #{n\ 12425}# + #{val\ 12424}# + #{mod\ 12402}#) + (if (memv #{atom-key\ 12430}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 329}# - #{id\ 3297}# - #{w\ 3277}# - #{mod\ 3279}#)) + (#{wrap\ 9483}# + #{id\ 12420}# + #{w\ 12400}# + #{mod\ 12402}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 331}# - #{e\ 3275}# - #{w\ 3277}# - #{s\ 3278}# - #{mod\ 3279}#))))))))) - #{tmp\ 3286}#) - ((lambda (#{tmp\ 3312}#) - (if #{tmp\ 3312}# - (apply (lambda (#{_\ 3317}# - #{head\ 3318}# - #{tail\ 3319}# - #{val\ 3320}#) + (#{source-wrap\ 9485}# + #{e\ 12398}# + #{w\ 12400}# + #{s\ 12401}# + #{mod\ 12402}#))))))))) + #{tmp\ 12409}#) + ((lambda (#{tmp\ 12435}#) + (if #{tmp\ 12435}# + (apply (lambda (#{_\ 12440}# + #{head\ 12441}# + #{tail\ 12442}# + #{val\ 12443}#) (call-with-values (lambda () - (#{syntax-type\ 341}# - #{head\ 3318}# - #{r\ 3276}# + (#{syntax-type\ 9495}# + #{head\ 12441}# + #{r\ 12399}# '(()) #f #f - #{mod\ 3279}# + #{mod\ 12402}# #t)) - (lambda (#{type\ 3323}# - #{value\ 3324}# - #{ee\ 3325}# - #{ww\ 3326}# - #{ss\ 3327}# - #{modmod\ 3328}#) - (if (memv #{type\ 3323}# + (lambda (#{type\ 12446}# + #{value\ 12447}# + #{ee\ 12448}# + #{ww\ 12449}# + #{ss\ 12450}# + #{modmod\ 12451}#) + (if (memv #{type\ 12446}# '(module-ref)) - (let ((#{val\ 3337}# - (#{chi\ 345}# - #{val\ 3320}# - #{r\ 3276}# - #{w\ 3277}# - #{mod\ 3279}#))) + (let ((#{val\ 12460}# + (#{chi\ 9499}# + #{val\ 12443}# + #{r\ 12399}# + #{w\ 12400}# + #{mod\ 12402}#))) (call-with-values (lambda () - (#{value\ 3324}# - (cons #{head\ 3318}# - #{tail\ 3319}#))) - (lambda (#{id\ 3339}# #{mod\ 3340}#) - (#{build-global-assignment\ 196}# - #{s\ 3278}# - #{id\ 3339}# - #{val\ 3337}# - #{mod\ 3340}#)))) - (#{build-application\ 184}# - #{s\ 3278}# - (#{chi\ 345}# + (#{value\ 12447}# + (cons #{head\ 12441}# + #{tail\ 12442}#))) + (lambda (#{id\ 12462}# + #{mod\ 12463}#) + (#{build-global-assignment\ 9350}# + #{s\ 12401}# + #{id\ 12462}# + #{val\ 12460}# + #{mod\ 12463}#)))) + (#{build-application\ 9338}# + #{s\ 12401}# + (#{chi\ 9499}# (list '#(syntax-object setter ((top) @@ -8948,22 +8975,22 @@ (top) (top) (top)) - #("i3329" - "i3330" - "i3331" - "i3332" - "i3333" - "i3334")) + #("i12452" + "i12453" + "i12454" + "i12455" + "i12456" + "i12457")) #(ribcage #(_ head tail val) #((top) (top) (top) (top)) - #("i3313" - "i3314" - "i3315" - "i3316")) + #("i12436" + "i12437" + "i12438" + "i12439")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -8972,11 +8999,11 @@ (top) (top) (top)) - #("i3280" - "i3281" - "i3282" - "i3283" - "i3284")) + #("i12403" + "i12404" + "i12405" + "i12406" + "i12407")) #(ribcage (lambda-var-list gen-var @@ -9212,176 +9239,178 @@ (top) (top) (top)) - ("i374" - "i372" - "i370" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i303" - "i302" - "i300" - "i299" - "i298" - "i297" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i277" - "i275" - "i274" - "i273" - "i272" - "i271" - "i270" - "i268" - "i266" - "i264" - "i262" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i246" - "i244" - "i242" - "i241" - "i240" - "i238" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207" - "i205" - "i203" - "i201" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i174" - "i172" - "i170" - "i168" - "i166" - "i164" - "i162" - "i160" - "i158")) + ("i9528" + "i9526" + "i9524" + "i9522" + "i9520" + "i9518" + "i9516" + "i9514" + "i9512" + "i9510" + "i9508" + "i9506" + "i9504" + "i9502" + "i9500" + "i9498" + "i9496" + "i9494" + "i9492" + "i9490" + "i9488" + "i9486" + "i9484" + "i9482" + "i9480" + "i9478" + "i9476" + "i9474" + "i9472" + "i9470" + "i9468" + "i9466" + "i9464" + "i9462" + "i9460" + "i9458" + "i9457" + "i9456" + "i9454" + "i9453" + "i9452" + "i9451" + "i9450" + "i9448" + "i9446" + "i9444" + "i9442" + "i9440" + "i9438" + "i9436" + "i9434" + "i9431" + "i9429" + "i9428" + "i9427" + "i9426" + "i9425" + "i9424" + "i9422" + "i9420" + "i9418" + "i9416" + "i9415" + "i9413" + "i9411" + "i9409" + "i9407" + "i9405" + "i9403" + "i9401" + "i9400" + "i9398" + "i9396" + "i9395" + "i9394" + "i9392" + "i9391" + "i9389" + "i9387" + "i9385" + "i9383" + "i9381" + "i9379" + "i9377" + "i9375" + "i9373" + "i9371" + "i9369" + "i9367" + "i9365" + "i9363" + "i9361" + "i9359" + "i9357" + "i9355" + "i9353" + "i9351" + "i9349" + "i9347" + "i9345" + "i9343" + "i9341" + "i9339" + "i9337" + "i9335" + "i9333" + "i9331" + "i9329" + "i9328" + "i9326" + "i9324" + "i9322" + "i9320" + "i9318" + "i9316" + "i9314" + "i9312")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i61" "i59"))) + ("i9215" "i9213"))) (hygiene guile)) - #{head\ 3318}#) - #{r\ 3276}# - #{w\ 3277}# - #{mod\ 3279}#) - (map (lambda (#{e\ 3344}#) - (#{chi\ 345}# - #{e\ 3344}# - #{r\ 3276}# - #{w\ 3277}# - #{mod\ 3279}#)) + #{head\ 12441}#) + #{r\ 12399}# + #{w\ 12400}# + #{mod\ 12402}#) + (map (lambda (#{e\ 12467}#) + (#{chi\ 9499}# + #{e\ 12467}# + #{r\ 12399}# + #{w\ 12400}# + #{mod\ 12402}#)) (append - #{tail\ 3319}# - (list #{val\ 3320}#)))))))) - #{tmp\ 3312}#) - ((lambda (#{_\ 3348}#) + #{tail\ 12442}# + (list #{val\ 12443}#)))))))) + #{tmp\ 12435}#) + ((lambda (#{_\ 12471}#) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 331}# - #{e\ 3275}# - #{w\ 3277}# - #{s\ 3278}# - #{mod\ 3279}#))) - #{tmp\ 3285}#))) + (#{source-wrap\ 9485}# + #{e\ 12398}# + #{w\ 12400}# + #{s\ 12401}# + #{mod\ 12402}#))) + #{tmp\ 12408}#))) ($sc-dispatch - #{tmp\ 3285}# + #{tmp\ 12408}# '(any (any . each-any) any))))) ($sc-dispatch - #{tmp\ 3285}# + #{tmp\ 12408}# '(any any any)))) - #{e\ 3275}#))) - (#{global-extend\ 256}# + #{e\ 12398}#))) + (#{global-extend\ 9410}# 'module-ref '@ - (lambda (#{e\ 3349}#) - ((lambda (#{tmp\ 3351}#) - ((lambda (#{tmp\ 3352}#) - (if (if #{tmp\ 3352}# - (apply (lambda (#{_\ 3356}# #{mod\ 3357}# #{id\ 3358}#) - (if (and-map #{id?\ 260}# #{mod\ 3357}#) - (#{id?\ 260}# #{id\ 3358}#) + (lambda (#{e\ 12472}#) + ((lambda (#{tmp\ 12474}#) + ((lambda (#{tmp\ 12475}#) + (if (if #{tmp\ 12475}# + (apply (lambda (#{_\ 12479}# + #{mod\ 12480}# + #{id\ 12481}#) + (if (and-map #{id?\ 9414}# #{mod\ 12480}#) + (#{id?\ 9414}# #{id\ 12481}#) #f)) - #{tmp\ 3352}#) + #{tmp\ 12475}#) #f) - (apply (lambda (#{_\ 3365}# #{mod\ 3366}# #{id\ 3367}#) + (apply (lambda (#{_\ 12488}# #{mod\ 12489}# #{id\ 12490}#) (values - (syntax->datum #{id\ 3367}#) + (syntax->datum #{id\ 12490}#) (syntax->datum (cons '#(syntax-object public @@ -9389,9 +9418,9 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i3362" "i3363" "i3364")) + #("i12485" "i12486" "i12487")) #(ribcage () () ()) - #(ribcage #(e) #((top)) #("i3350")) + #(ribcage #(e) #((top)) #("i12473")) #(ribcage (lambda-var-list gen-var @@ -9627,154 +9656,156 @@ (top) (top) (top)) - ("i374" - "i372" - "i370" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i303" - "i302" - "i300" - "i299" - "i298" - "i297" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i277" - "i275" - "i274" - "i273" - "i272" - "i271" - "i270" - "i268" - "i266" - "i264" - "i262" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i246" - "i244" - "i242" - "i241" - "i240" - "i238" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207" - "i205" - "i203" - "i201" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i174" - "i172" - "i170" - "i168" - "i166" - "i164" - "i162" - "i160" - "i158")) + ("i9528" + "i9526" + "i9524" + "i9522" + "i9520" + "i9518" + "i9516" + "i9514" + "i9512" + "i9510" + "i9508" + "i9506" + "i9504" + "i9502" + "i9500" + "i9498" + "i9496" + "i9494" + "i9492" + "i9490" + "i9488" + "i9486" + "i9484" + "i9482" + "i9480" + "i9478" + "i9476" + "i9474" + "i9472" + "i9470" + "i9468" + "i9466" + "i9464" + "i9462" + "i9460" + "i9458" + "i9457" + "i9456" + "i9454" + "i9453" + "i9452" + "i9451" + "i9450" + "i9448" + "i9446" + "i9444" + "i9442" + "i9440" + "i9438" + "i9436" + "i9434" + "i9431" + "i9429" + "i9428" + "i9427" + "i9426" + "i9425" + "i9424" + "i9422" + "i9420" + "i9418" + "i9416" + "i9415" + "i9413" + "i9411" + "i9409" + "i9407" + "i9405" + "i9403" + "i9401" + "i9400" + "i9398" + "i9396" + "i9395" + "i9394" + "i9392" + "i9391" + "i9389" + "i9387" + "i9385" + "i9383" + "i9381" + "i9379" + "i9377" + "i9375" + "i9373" + "i9371" + "i9369" + "i9367" + "i9365" + "i9363" + "i9361" + "i9359" + "i9357" + "i9355" + "i9353" + "i9351" + "i9349" + "i9347" + "i9345" + "i9343" + "i9341" + "i9339" + "i9337" + "i9335" + "i9333" + "i9331" + "i9329" + "i9328" + "i9326" + "i9324" + "i9322" + "i9320" + "i9318" + "i9316" + "i9314" + "i9312")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i61" "i59"))) + ("i9215" "i9213"))) (hygiene guile)) - #{mod\ 3366}#)))) - #{tmp\ 3352}#) + #{mod\ 12489}#)))) + #{tmp\ 12475}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3351}#))) + #{tmp\ 12474}#))) ($sc-dispatch - #{tmp\ 3351}# + #{tmp\ 12474}# '(any each-any any)))) - #{e\ 3349}#))) - (#{global-extend\ 256}# + #{e\ 12472}#))) + (#{global-extend\ 9410}# 'module-ref '@@ - (lambda (#{e\ 3369}#) - ((lambda (#{tmp\ 3371}#) - ((lambda (#{tmp\ 3372}#) - (if (if #{tmp\ 3372}# - (apply (lambda (#{_\ 3376}# #{mod\ 3377}# #{id\ 3378}#) - (if (and-map #{id?\ 260}# #{mod\ 3377}#) - (#{id?\ 260}# #{id\ 3378}#) + (lambda (#{e\ 12492}#) + ((lambda (#{tmp\ 12494}#) + ((lambda (#{tmp\ 12495}#) + (if (if #{tmp\ 12495}# + (apply (lambda (#{_\ 12499}# + #{mod\ 12500}# + #{id\ 12501}#) + (if (and-map #{id?\ 9414}# #{mod\ 12500}#) + (#{id?\ 9414}# #{id\ 12501}#) #f)) - #{tmp\ 3372}#) + #{tmp\ 12495}#) #f) - (apply (lambda (#{_\ 3385}# #{mod\ 3386}# #{id\ 3387}#) + (apply (lambda (#{_\ 12508}# #{mod\ 12509}# #{id\ 12510}#) (values - (syntax->datum #{id\ 3387}#) + (syntax->datum #{id\ 12510}#) (syntax->datum (cons '#(syntax-object private @@ -9782,9 +9813,9 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i3382" "i3383" "i3384")) + #("i12505" "i12506" "i12507")) #(ribcage () () ()) - #(ribcage #(e) #((top)) #("i3370")) + #(ribcage #(e) #((top)) #("i12493")) #(ribcage (lambda-var-list gen-var @@ -10020,252 +10051,253 @@ (top) (top) (top)) - ("i374" - "i372" - "i370" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i303" - "i302" - "i300" - "i299" - "i298" - "i297" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i277" - "i275" - "i274" - "i273" - "i272" - "i271" - "i270" - "i268" - "i266" - "i264" - "i262" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i246" - "i244" - "i242" - "i241" - "i240" - "i238" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207" - "i205" - "i203" - "i201" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i174" - "i172" - "i170" - "i168" - "i166" - "i164" - "i162" - "i160" - "i158")) + ("i9528" + "i9526" + "i9524" + "i9522" + "i9520" + "i9518" + "i9516" + "i9514" + "i9512" + "i9510" + "i9508" + "i9506" + "i9504" + "i9502" + "i9500" + "i9498" + "i9496" + "i9494" + "i9492" + "i9490" + "i9488" + "i9486" + "i9484" + "i9482" + "i9480" + "i9478" + "i9476" + "i9474" + "i9472" + "i9470" + "i9468" + "i9466" + "i9464" + "i9462" + "i9460" + "i9458" + "i9457" + "i9456" + "i9454" + "i9453" + "i9452" + "i9451" + "i9450" + "i9448" + "i9446" + "i9444" + "i9442" + "i9440" + "i9438" + "i9436" + "i9434" + "i9431" + "i9429" + "i9428" + "i9427" + "i9426" + "i9425" + "i9424" + "i9422" + "i9420" + "i9418" + "i9416" + "i9415" + "i9413" + "i9411" + "i9409" + "i9407" + "i9405" + "i9403" + "i9401" + "i9400" + "i9398" + "i9396" + "i9395" + "i9394" + "i9392" + "i9391" + "i9389" + "i9387" + "i9385" + "i9383" + "i9381" + "i9379" + "i9377" + "i9375" + "i9373" + "i9371" + "i9369" + "i9367" + "i9365" + "i9363" + "i9361" + "i9359" + "i9357" + "i9355" + "i9353" + "i9351" + "i9349" + "i9347" + "i9345" + "i9343" + "i9341" + "i9339" + "i9337" + "i9335" + "i9333" + "i9331" + "i9329" + "i9328" + "i9326" + "i9324" + "i9322" + "i9320" + "i9318" + "i9316" + "i9314" + "i9312")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i61" "i59"))) + ("i9215" "i9213"))) (hygiene guile)) - #{mod\ 3386}#)))) - #{tmp\ 3372}#) + #{mod\ 12509}#)))) + #{tmp\ 12495}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3371}#))) + #{tmp\ 12494}#))) ($sc-dispatch - #{tmp\ 3371}# + #{tmp\ 12494}# '(any each-any any)))) - #{e\ 3369}#))) - (#{global-extend\ 256}# + #{e\ 12492}#))) + (#{global-extend\ 9410}# 'core 'if - (lambda (#{e\ 3389}# - #{r\ 3390}# - #{w\ 3391}# - #{s\ 3392}# - #{mod\ 3393}#) - ((lambda (#{tmp\ 3399}#) - ((lambda (#{tmp\ 3400}#) - (if #{tmp\ 3400}# - (apply (lambda (#{_\ 3404}# #{test\ 3405}# #{then\ 3406}#) - (#{build-conditional\ 186}# - #{s\ 3392}# - (#{chi\ 345}# - #{test\ 3405}# - #{r\ 3390}# - #{w\ 3391}# - #{mod\ 3393}#) - (#{chi\ 345}# - #{then\ 3406}# - #{r\ 3390}# - #{w\ 3391}# - #{mod\ 3393}#) - (#{build-void\ 182}# #f))) - #{tmp\ 3400}#) - ((lambda (#{tmp\ 3408}#) - (if #{tmp\ 3408}# - (apply (lambda (#{_\ 3413}# - #{test\ 3414}# - #{then\ 3415}# - #{else\ 3416}#) - (#{build-conditional\ 186}# - #{s\ 3392}# - (#{chi\ 345}# - #{test\ 3414}# - #{r\ 3390}# - #{w\ 3391}# - #{mod\ 3393}#) - (#{chi\ 345}# - #{then\ 3415}# - #{r\ 3390}# - #{w\ 3391}# - #{mod\ 3393}#) - (#{chi\ 345}# - #{else\ 3416}# - #{r\ 3390}# - #{w\ 3391}# - #{mod\ 3393}#))) - #{tmp\ 3408}#) + (lambda (#{e\ 12512}# + #{r\ 12513}# + #{w\ 12514}# + #{s\ 12515}# + #{mod\ 12516}#) + ((lambda (#{tmp\ 12522}#) + ((lambda (#{tmp\ 12523}#) + (if #{tmp\ 12523}# + (apply (lambda (#{_\ 12527}# #{test\ 12528}# #{then\ 12529}#) + (#{build-conditional\ 9340}# + #{s\ 12515}# + (#{chi\ 9499}# + #{test\ 12528}# + #{r\ 12513}# + #{w\ 12514}# + #{mod\ 12516}#) + (#{chi\ 9499}# + #{then\ 12529}# + #{r\ 12513}# + #{w\ 12514}# + #{mod\ 12516}#) + (#{build-void\ 9336}# #f))) + #{tmp\ 12523}#) + ((lambda (#{tmp\ 12531}#) + (if #{tmp\ 12531}# + (apply (lambda (#{_\ 12536}# + #{test\ 12537}# + #{then\ 12538}# + #{else\ 12539}#) + (#{build-conditional\ 9340}# + #{s\ 12515}# + (#{chi\ 9499}# + #{test\ 12537}# + #{r\ 12513}# + #{w\ 12514}# + #{mod\ 12516}#) + (#{chi\ 9499}# + #{then\ 12538}# + #{r\ 12513}# + #{w\ 12514}# + #{mod\ 12516}#) + (#{chi\ 9499}# + #{else\ 12539}# + #{r\ 12513}# + #{w\ 12514}# + #{mod\ 12516}#))) + #{tmp\ 12531}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3399}#))) + #{tmp\ 12522}#))) ($sc-dispatch - #{tmp\ 3399}# + #{tmp\ 12522}# '(any any any any))))) ($sc-dispatch - #{tmp\ 3399}# + #{tmp\ 12522}# '(any any any)))) - #{e\ 3389}#))) - (#{global-extend\ 256}# + #{e\ 12512}#))) + (#{global-extend\ 9410}# 'begin 'begin '()) - (#{global-extend\ 256}# + (#{global-extend\ 9410}# 'define 'define '()) - (#{global-extend\ 256}# + (#{global-extend\ 9410}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 256}# + (#{global-extend\ 9410}# 'eval-when 'eval-when '()) - (#{global-extend\ 256}# + (#{global-extend\ 9410}# 'core 'syntax-case - (letrec ((#{gen-syntax-case\ 3424}# - (lambda (#{x\ 3425}# - #{keys\ 3426}# - #{clauses\ 3427}# - #{r\ 3428}# - #{mod\ 3429}#) - (if (null? #{clauses\ 3427}#) - (#{build-application\ 184}# + (letrec ((#{gen-syntax-case\ 12547}# + (lambda (#{x\ 12548}# + #{keys\ 12549}# + #{clauses\ 12550}# + #{r\ 12551}# + #{mod\ 12552}#) + (if (null? #{clauses\ 12550}#) + (#{build-application\ 9338}# #f - (#{build-primref\ 208}# + (#{build-primref\ 9362}# #f 'syntax-violation) - (list (#{build-data\ 210}# #f #f) - (#{build-data\ 210}# + (list (#{build-data\ 9364}# #f #f) + (#{build-data\ 9364}# #f "source expression failed to match any pattern") - #{x\ 3425}#)) - ((lambda (#{tmp\ 3439}#) - ((lambda (#{tmp\ 3440}#) - (if #{tmp\ 3440}# - (apply (lambda (#{pat\ 3443}# #{exp\ 3444}#) - (if (if (#{id?\ 260}# #{pat\ 3443}#) + #{x\ 12548}#)) + ((lambda (#{tmp\ 12562}#) + ((lambda (#{tmp\ 12563}#) + (if #{tmp\ 12563}# + (apply (lambda (#{pat\ 12566}# #{exp\ 12567}#) + (if (if (#{id?\ 9414}# #{pat\ 12566}#) (and-map - (lambda (#{x\ 3447}#) - (not (#{free-id=?\ 319}# - #{pat\ 3443}# - #{x\ 3447}#))) + (lambda (#{x\ 12570}#) + (not (#{free-id=?\ 9473}# + #{pat\ 12566}# + #{x\ 12570}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3441" "i3442")) + #("i12564" + "i12565")) #(ribcage () () ()) #(ribcage #(x @@ -10278,11 +10310,11 @@ (top) (top) (top)) - #("i3430" - "i3431" - "i3432" - "i3433" - "i3434")) + #("i12553" + "i12554" + "i12555" + "i12556" + "i12557")) #(ribcage (gen-syntax-case gen-clause @@ -10292,10 +10324,10 @@ (top) (top) (top)) - ("i3423" - "i3421" - "i3419" - "i3417")) + ("i12546" + "i12544" + "i12542" + "i12540")) #(ribcage (lambda-var-list gen-var @@ -10531,1077 +10563,1082 @@ (top) (top) (top)) - ("i374" - "i372" - "i370" - "i368" - "i366" - "i364" - "i362" - "i360" - "i358" - "i356" - "i354" - "i352" - "i350" - "i348" - "i346" - "i344" - "i342" - "i340" - "i338" - "i336" - "i334" - "i332" - "i330" - "i328" - "i326" - "i324" - "i322" - "i320" - "i318" - "i316" - "i314" - "i312" - "i310" - "i308" - "i306" - "i304" - "i303" - "i302" - "i300" - "i299" - "i298" - "i297" - "i296" - "i294" - "i292" - "i290" - "i288" - "i286" - "i284" - "i282" - "i280" - "i277" - "i275" - "i274" - "i273" - "i272" - "i271" - "i270" - "i268" - "i266" - "i264" - "i262" - "i261" - "i259" - "i257" - "i255" - "i253" - "i251" - "i249" - "i247" - "i246" - "i244" - "i242" - "i241" - "i240" - "i238" - "i237" - "i235" - "i233" - "i231" - "i229" - "i227" - "i225" - "i223" - "i221" - "i219" - "i217" - "i215" - "i213" - "i211" - "i209" - "i207" - "i205" - "i203" - "i201" - "i199" - "i197" - "i195" - "i193" - "i191" - "i189" - "i187" - "i185" - "i183" - "i181" - "i179" - "i177" - "i175" - "i174" - "i172" - "i170" - "i168" - "i166" - "i164" - "i162" - "i160" - "i158")) + ("i9528" + "i9526" + "i9524" + "i9522" + "i9520" + "i9518" + "i9516" + "i9514" + "i9512" + "i9510" + "i9508" + "i9506" + "i9504" + "i9502" + "i9500" + "i9498" + "i9496" + "i9494" + "i9492" + "i9490" + "i9488" + "i9486" + "i9484" + "i9482" + "i9480" + "i9478" + "i9476" + "i9474" + "i9472" + "i9470" + "i9468" + "i9466" + "i9464" + "i9462" + "i9460" + "i9458" + "i9457" + "i9456" + "i9454" + "i9453" + "i9452" + "i9451" + "i9450" + "i9448" + "i9446" + "i9444" + "i9442" + "i9440" + "i9438" + "i9436" + "i9434" + "i9431" + "i9429" + "i9428" + "i9427" + "i9426" + "i9425" + "i9424" + "i9422" + "i9420" + "i9418" + "i9416" + "i9415" + "i9413" + "i9411" + "i9409" + "i9407" + "i9405" + "i9403" + "i9401" + "i9400" + "i9398" + "i9396" + "i9395" + "i9394" + "i9392" + "i9391" + "i9389" + "i9387" + "i9385" + "i9383" + "i9381" + "i9379" + "i9377" + "i9375" + "i9373" + "i9371" + "i9369" + "i9367" + "i9365" + "i9363" + "i9361" + "i9359" + "i9357" + "i9355" + "i9353" + "i9351" + "i9349" + "i9347" + "i9345" + "i9343" + "i9341" + "i9339" + "i9337" + "i9335" + "i9333" + "i9331" + "i9329" + "i9328" + "i9326" + "i9324" + "i9322" + "i9320" + "i9318" + "i9316" + "i9314" + "i9312")) #(ribcage (define-structure and-map*) ((top) (top)) - ("i61" "i59"))) + ("i9215" "i9213"))) (hygiene guile)) - #{keys\ 3426}#)) + #{keys\ 12549}#)) #f) - (let ((#{labels\ 3451}# - (list (#{gen-label\ 276}#))) - (#{var\ 3452}# - (#{gen-var\ 373}# - #{pat\ 3443}#))) - (#{build-application\ 184}# + (let ((#{labels\ 12574}# + (list (#{gen-label\ 9430}#))) + (#{var\ 12575}# + (#{gen-var\ 9527}# + #{pat\ 12566}#))) + (#{build-application\ 9338}# #f - (#{build-simple-lambda\ 202}# + (#{build-simple-lambda\ 9356}# #f (list (syntax->datum - #{pat\ 3443}#)) + #{pat\ 12566}#)) #f - (list #{var\ 3452}#) + (list #{var\ 12575}#) #f - (#{chi\ 345}# - #{exp\ 3444}# - (#{extend-env\ 248}# - #{labels\ 3451}# + (#{chi\ 9499}# + #{exp\ 12567}# + (#{extend-env\ 9402}# + #{labels\ 12574}# (list (cons 'syntax - (cons #{var\ 3452}# + (cons #{var\ 12575}# 0))) - #{r\ 3428}#) - (#{make-binding-wrap\ 307}# - (list #{pat\ 3443}#) - #{labels\ 3451}# + #{r\ 12551}#) + (#{make-binding-wrap\ 9461}# + (list #{pat\ 12566}#) + #{labels\ 12574}# '(())) - #{mod\ 3429}#)) - (list #{x\ 3425}#))) - (#{gen-clause\ 3422}# - #{x\ 3425}# - #{keys\ 3426}# - (cdr #{clauses\ 3427}#) - #{r\ 3428}# - #{pat\ 3443}# + #{mod\ 12552}#)) + (list #{x\ 12548}#))) + (#{gen-clause\ 12545}# + #{x\ 12548}# + #{keys\ 12549}# + (cdr #{clauses\ 12550}#) + #{r\ 12551}# + #{pat\ 12566}# #t - #{exp\ 3444}# - #{mod\ 3429}#))) - #{tmp\ 3440}#) - ((lambda (#{tmp\ 3458}#) - (if #{tmp\ 3458}# - (apply (lambda (#{pat\ 3462}# - #{fender\ 3463}# - #{exp\ 3464}#) - (#{gen-clause\ 3422}# - #{x\ 3425}# - #{keys\ 3426}# - (cdr #{clauses\ 3427}#) - #{r\ 3428}# - #{pat\ 3462}# - #{fender\ 3463}# - #{exp\ 3464}# - #{mod\ 3429}#)) - #{tmp\ 3458}#) - ((lambda (#{_\ 3466}#) + #{exp\ 12567}# + #{mod\ 12552}#))) + #{tmp\ 12563}#) + ((lambda (#{tmp\ 12581}#) + (if #{tmp\ 12581}# + (apply (lambda (#{pat\ 12585}# + #{fender\ 12586}# + #{exp\ 12587}#) + (#{gen-clause\ 12545}# + #{x\ 12548}# + #{keys\ 12549}# + (cdr #{clauses\ 12550}#) + #{r\ 12551}# + #{pat\ 12585}# + #{fender\ 12586}# + #{exp\ 12587}# + #{mod\ 12552}#)) + #{tmp\ 12581}#) + ((lambda (#{_\ 12589}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 3427}#))) - #{tmp\ 3439}#))) + (car #{clauses\ 12550}#))) + #{tmp\ 12562}#))) ($sc-dispatch - #{tmp\ 3439}# + #{tmp\ 12562}# '(any any any))))) - ($sc-dispatch #{tmp\ 3439}# (quote (any any))))) - (car #{clauses\ 3427}#))))) - (#{gen-clause\ 3422}# - (lambda (#{x\ 3467}# - #{keys\ 3468}# - #{clauses\ 3469}# - #{r\ 3470}# - #{pat\ 3471}# - #{fender\ 3472}# - #{exp\ 3473}# - #{mod\ 3474}#) + ($sc-dispatch #{tmp\ 12562}# (quote (any any))))) + (car #{clauses\ 12550}#))))) + (#{gen-clause\ 12545}# + (lambda (#{x\ 12590}# + #{keys\ 12591}# + #{clauses\ 12592}# + #{r\ 12593}# + #{pat\ 12594}# + #{fender\ 12595}# + #{exp\ 12596}# + #{mod\ 12597}#) (call-with-values (lambda () - (#{convert-pattern\ 3418}# - #{pat\ 3471}# - #{keys\ 3468}#)) - (lambda (#{p\ 3483}# #{pvars\ 3484}#) - (if (not (#{distinct-bound-ids?\ 325}# - (map car #{pvars\ 3484}#))) + (#{convert-pattern\ 12541}# + #{pat\ 12594}# + #{keys\ 12591}#)) + (lambda (#{p\ 12606}# #{pvars\ 12607}#) + (if (not (#{distinct-bound-ids?\ 9479}# + (map car #{pvars\ 12607}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 3471}#) + #{pat\ 12594}#) (if (not (and-map - (lambda (#{x\ 3491}#) - (not (#{ellipsis?\ 361}# - (car #{x\ 3491}#)))) - #{pvars\ 3484}#)) + (lambda (#{x\ 12614}#) + (not (#{ellipsis?\ 9515}# + (car #{x\ 12614}#)))) + #{pvars\ 12607}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 3471}#) - (let ((#{y\ 3495}# - (#{gen-var\ 373}# (quote tmp)))) - (#{build-application\ 184}# + #{pat\ 12594}#) + (let ((#{y\ 12618}# + (#{gen-var\ 9527}# (quote tmp)))) + (#{build-application\ 9338}# #f - (#{build-simple-lambda\ 202}# + (#{build-simple-lambda\ 9356}# #f (list (quote tmp)) #f - (list #{y\ 3495}#) + (list #{y\ 12618}#) #f - (let ((#{y\ 3499}# - (#{build-lexical-reference\ 188}# + (let ((#{y\ 12622}# + (#{build-lexical-reference\ 9342}# 'value #f 'tmp - #{y\ 3495}#))) - (#{build-conditional\ 186}# + #{y\ 12618}#))) + (#{build-conditional\ 9340}# #f - ((lambda (#{tmp\ 3502}#) - ((lambda (#{tmp\ 3503}#) - (if #{tmp\ 3503}# - (apply (lambda () #{y\ 3499}#) - #{tmp\ 3503}#) - ((lambda (#{_\ 3505}#) - (#{build-conditional\ 186}# + ((lambda (#{tmp\ 12625}#) + ((lambda (#{tmp\ 12626}#) + (if #{tmp\ 12626}# + (apply (lambda () #{y\ 12622}#) + #{tmp\ 12626}#) + ((lambda (#{_\ 12628}#) + (#{build-conditional\ 9340}# #f - #{y\ 3499}# - (#{build-dispatch-call\ 3420}# - #{pvars\ 3484}# - #{fender\ 3472}# - #{y\ 3499}# - #{r\ 3470}# - #{mod\ 3474}#) - (#{build-data\ 210}# + #{y\ 12622}# + (#{build-dispatch-call\ 12543}# + #{pvars\ 12607}# + #{fender\ 12595}# + #{y\ 12622}# + #{r\ 12593}# + #{mod\ 12597}#) + (#{build-data\ 9364}# #f #f))) - #{tmp\ 3502}#))) + #{tmp\ 12625}#))) ($sc-dispatch - #{tmp\ 3502}# + #{tmp\ 12625}# '#(atom #t)))) - #{fender\ 3472}#) - (#{build-dispatch-call\ 3420}# - #{pvars\ 3484}# - #{exp\ 3473}# - #{y\ 3499}# - #{r\ 3470}# - #{mod\ 3474}#) - (#{gen-syntax-case\ 3424}# - #{x\ 3467}# - #{keys\ 3468}# - #{clauses\ 3469}# - #{r\ 3470}# - #{mod\ 3474}#)))) - (list (if (eq? #{p\ 3483}# (quote any)) - (#{build-application\ 184}# + #{fender\ 12595}#) + (#{build-dispatch-call\ 12543}# + #{pvars\ 12607}# + #{exp\ 12596}# + #{y\ 12622}# + #{r\ 12593}# + #{mod\ 12597}#) + (#{gen-syntax-case\ 12547}# + #{x\ 12590}# + #{keys\ 12591}# + #{clauses\ 12592}# + #{r\ 12593}# + #{mod\ 12597}#)))) + (list (if (eq? #{p\ 12606}# (quote any)) + (#{build-application\ 9338}# #f - (#{build-primref\ 208}# + (#{build-primref\ 9362}# #f 'list) - (list #{x\ 3467}#)) - (#{build-application\ 184}# + (list #{x\ 12590}#)) + (#{build-application\ 9338}# #f - (#{build-primref\ 208}# + (#{build-primref\ 9362}# #f '$sc-dispatch) - (list #{x\ 3467}# - (#{build-data\ 210}# + (list #{x\ 12590}# + (#{build-data\ 9364}# #f - #{p\ 3483}#))))))))))))) - (#{build-dispatch-call\ 3420}# - (lambda (#{pvars\ 3513}# - #{exp\ 3514}# - #{y\ 3515}# - #{r\ 3516}# - #{mod\ 3517}#) - (let ((#{ids\ 3525}# (map car #{pvars\ 3513}#)) - (#{levels\ 3526}# (map cdr #{pvars\ 3513}#))) - (let ((#{labels\ 3529}# - (#{gen-labels\ 278}# #{ids\ 3525}#)) - (#{new-vars\ 3530}# - (map #{gen-var\ 373}# #{ids\ 3525}#))) - (#{build-application\ 184}# + #{p\ 12606}#))))))))))))) + (#{build-dispatch-call\ 12543}# + (lambda (#{pvars\ 12636}# + #{exp\ 12637}# + #{y\ 12638}# + #{r\ 12639}# + #{mod\ 12640}#) + (let ((#{ids\ 12648}# (map car #{pvars\ 12636}#)) + (#{levels\ 12649}# (map cdr #{pvars\ 12636}#))) + (let ((#{labels\ 12652}# + (#{gen-labels\ 9432}# #{ids\ 12648}#)) + (#{new-vars\ 12653}# + (map #{gen-var\ 9527}# #{ids\ 12648}#))) + (#{build-application\ 9338}# #f - (#{build-primref\ 208}# #f (quote apply)) - (list (#{build-simple-lambda\ 202}# + (#{build-primref\ 9362}# #f (quote apply)) + (list (#{build-simple-lambda\ 9356}# #f - (map syntax->datum #{ids\ 3525}#) + (map syntax->datum #{ids\ 12648}#) #f - #{new-vars\ 3530}# + #{new-vars\ 12653}# #f - (#{chi\ 345}# - #{exp\ 3514}# - (#{extend-env\ 248}# - #{labels\ 3529}# - (map (lambda (#{var\ 3534}# - #{level\ 3535}#) + (#{chi\ 9499}# + #{exp\ 12637}# + (#{extend-env\ 9402}# + #{labels\ 12652}# + (map (lambda (#{var\ 12657}# + #{level\ 12658}#) (cons 'syntax - (cons #{var\ 3534}# - #{level\ 3535}#))) - #{new-vars\ 3530}# - (map cdr #{pvars\ 3513}#)) - #{r\ 3516}#) - (#{make-binding-wrap\ 307}# - #{ids\ 3525}# - #{labels\ 3529}# + (cons #{var\ 12657}# + #{level\ 12658}#))) + #{new-vars\ 12653}# + (map cdr #{pvars\ 12636}#)) + #{r\ 12639}#) + (#{make-binding-wrap\ 9461}# + #{ids\ 12648}# + #{labels\ 12652}# '(())) - #{mod\ 3517}#)) - #{y\ 3515}#)))))) - (#{convert-pattern\ 3418}# - (lambda (#{pattern\ 3541}# #{keys\ 3542}#) - (letrec ((#{cvt\ 3548}# - (lambda (#{p\ 3549}# #{n\ 3550}# #{ids\ 3551}#) - (if (#{id?\ 260}# #{p\ 3549}#) - (if (#{bound-id-member?\ 327}# - #{p\ 3549}# - #{keys\ 3542}#) + #{mod\ 12640}#)) + #{y\ 12638}#)))))) + (#{convert-pattern\ 12541}# + (lambda (#{pattern\ 12664}# #{keys\ 12665}#) + (letrec ((#{cvt\ 12671}# + (lambda (#{p\ 12672}# + #{n\ 12673}# + #{ids\ 12674}#) + (if (#{id?\ 9414}# #{p\ 12672}#) + (if (#{bound-id-member?\ 9481}# + #{p\ 12672}# + #{keys\ 12665}#) (values - (vector (quote free-id) #{p\ 3549}#) - #{ids\ 3551}#) + (vector (quote free-id) #{p\ 12672}#) + #{ids\ 12674}#) (values 'any - (cons (cons #{p\ 3549}# #{n\ 3550}#) - #{ids\ 3551}#))) - ((lambda (#{tmp\ 3555}#) - ((lambda (#{tmp\ 3556}#) - (if (if #{tmp\ 3556}# - (apply (lambda (#{x\ 3559}# - #{dots\ 3560}#) - (#{ellipsis?\ 361}# - #{dots\ 3560}#)) - #{tmp\ 3556}#) + (cons (cons #{p\ 12672}# #{n\ 12673}#) + #{ids\ 12674}#))) + ((lambda (#{tmp\ 12678}#) + ((lambda (#{tmp\ 12679}#) + (if (if #{tmp\ 12679}# + (apply (lambda (#{x\ 12682}# + #{dots\ 12683}#) + (#{ellipsis?\ 9515}# + #{dots\ 12683}#)) + #{tmp\ 12679}#) #f) - (apply (lambda (#{x\ 3563}# - #{dots\ 3564}#) + (apply (lambda (#{x\ 12686}# + #{dots\ 12687}#) (call-with-values (lambda () - (#{cvt\ 3548}# - #{x\ 3563}# - (#{fx+\ 163}# - #{n\ 3550}# + (#{cvt\ 12671}# + #{x\ 12686}# + (#{fx+\ 9317}# + #{n\ 12673}# 1) - #{ids\ 3551}#)) - (lambda (#{p\ 3565}# - #{ids\ 3566}#) + #{ids\ 12674}#)) + (lambda (#{p\ 12688}# + #{ids\ 12689}#) (values - (if (eq? #{p\ 3565}# + (if (eq? #{p\ 12688}# 'any) 'each-any (vector 'each - #{p\ 3565}#)) - #{ids\ 3566}#)))) - #{tmp\ 3556}#) - ((lambda (#{tmp\ 3569}#) - (if (if #{tmp\ 3569}# - (apply (lambda (#{x\ 3573}# - #{dots\ 3574}# - #{ys\ 3575}#) - (#{ellipsis?\ 361}# - #{dots\ 3574}#)) - #{tmp\ 3569}#) + #{p\ 12688}#)) + #{ids\ 12689}#)))) + #{tmp\ 12679}#) + ((lambda (#{tmp\ 12692}#) + (if (if #{tmp\ 12692}# + (apply (lambda (#{x\ 12696}# + #{dots\ 12697}# + #{ys\ 12698}#) + (#{ellipsis?\ 9515}# + #{dots\ 12697}#)) + #{tmp\ 12692}#) #f) - (apply (lambda (#{x\ 3579}# - #{dots\ 3580}# - #{ys\ 3581}#) + (apply (lambda (#{x\ 12702}# + #{dots\ 12703}# + #{ys\ 12704}#) (call-with-values (lambda () - (#{cvt*\ 3546}# - #{ys\ 3581}# - #{n\ 3550}# - #{ids\ 3551}#)) - (lambda (#{ys\ 3583}# - #{ids\ 3584}#) + (#{cvt*\ 12669}# + #{ys\ 12704}# + #{n\ 12673}# + #{ids\ 12674}#)) + (lambda (#{ys\ 12706}# + #{ids\ 12707}#) (call-with-values (lambda () - (#{cvt\ 3548}# - #{x\ 3579}# - (+ #{n\ 3550}# + (#{cvt\ 12671}# + #{x\ 12702}# + (+ #{n\ 12673}# 1) - #{ids\ 3584}#)) - (lambda (#{x\ 3587}# - #{ids\ 3588}#) + #{ids\ 12707}#)) + (lambda (#{x\ 12710}# + #{ids\ 12711}#) (values (list->vector (cons 'each+ - (cons #{x\ 3587}# + (cons #{x\ 12710}# (cons (reverse - #{ys\ 3583}#) + #{ys\ 12706}#) '(()))))) - #{ids\ 3588}#)))))) - #{tmp\ 3569}#) - ((lambda (#{tmp\ 3592}#) - (if #{tmp\ 3592}# - (apply (lambda (#{x\ 3595}# - #{y\ 3596}#) + #{ids\ 12711}#)))))) + #{tmp\ 12692}#) + ((lambda (#{tmp\ 12715}#) + (if #{tmp\ 12715}# + (apply (lambda (#{x\ 12718}# + #{y\ 12719}#) (call-with-values (lambda () - (#{cvt\ 3548}# - #{y\ 3596}# - #{n\ 3550}# - #{ids\ 3551}#)) - (lambda (#{y\ 3597}# - #{ids\ 3598}#) + (#{cvt\ 12671}# + #{y\ 12719}# + #{n\ 12673}# + #{ids\ 12674}#)) + (lambda (#{y\ 12720}# + #{ids\ 12721}#) (call-with-values (lambda () - (#{cvt\ 3548}# - #{x\ 3595}# - #{n\ 3550}# - #{ids\ 3598}#)) - (lambda (#{x\ 3601}# - #{ids\ 3602}#) + (#{cvt\ 12671}# + #{x\ 12718}# + #{n\ 12673}# + #{ids\ 12721}#)) + (lambda (#{x\ 12724}# + #{ids\ 12725}#) (values - (cons #{x\ 3601}# - #{y\ 3597}#) - #{ids\ 3602}#)))))) - #{tmp\ 3592}#) - ((lambda (#{tmp\ 3605}#) - (if #{tmp\ 3605}# + (cons #{x\ 12724}# + #{y\ 12720}#) + #{ids\ 12725}#)))))) + #{tmp\ 12715}#) + ((lambda (#{tmp\ 12728}#) + (if #{tmp\ 12728}# (apply (lambda () (values '() - #{ids\ 3551}#)) - #{tmp\ 3605}#) - ((lambda (#{tmp\ 3606}#) - (if #{tmp\ 3606}# - (apply (lambda (#{x\ 3608}#) + #{ids\ 12674}#)) + #{tmp\ 12728}#) + ((lambda (#{tmp\ 12729}#) + (if #{tmp\ 12729}# + (apply (lambda (#{x\ 12731}#) (call-with-values (lambda () - (#{cvt\ 3548}# - #{x\ 3608}# - #{n\ 3550}# - #{ids\ 3551}#)) - (lambda (#{p\ 3610}# - #{ids\ 3611}#) + (#{cvt\ 12671}# + #{x\ 12731}# + #{n\ 12673}# + #{ids\ 12674}#)) + (lambda (#{p\ 12733}# + #{ids\ 12734}#) (values (vector 'vector - #{p\ 3610}#) - #{ids\ 3611}#)))) - #{tmp\ 3606}#) - ((lambda (#{x\ 3615}#) + #{p\ 12733}#) + #{ids\ 12734}#)))) + #{tmp\ 12729}#) + ((lambda (#{x\ 12738}#) (values (vector 'atom - (#{strip\ 371}# - #{p\ 3549}# + (#{strip\ 9525}# + #{p\ 12672}# '(()))) - #{ids\ 3551}#)) - #{tmp\ 3555}#))) + #{ids\ 12674}#)) + #{tmp\ 12678}#))) ($sc-dispatch - #{tmp\ 3555}# + #{tmp\ 12678}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 3555}# + #{tmp\ 12678}# '())))) ($sc-dispatch - #{tmp\ 3555}# + #{tmp\ 12678}# '(any . any))))) ($sc-dispatch - #{tmp\ 3555}# + #{tmp\ 12678}# '(any any . each-any))))) ($sc-dispatch - #{tmp\ 3555}# + #{tmp\ 12678}# '(any any)))) - #{p\ 3549}#)))) - (#{cvt*\ 3546}# - (lambda (#{p*\ 3617}# - #{n\ 3618}# - #{ids\ 3619}#) - (if (null? #{p*\ 3617}#) - (values (quote ()) #{ids\ 3619}#) + #{p\ 12672}#)))) + (#{cvt*\ 12669}# + (lambda (#{p*\ 12740}# + #{n\ 12741}# + #{ids\ 12742}#) + (if (null? #{p*\ 12740}#) + (values (quote ()) #{ids\ 12742}#) (call-with-values (lambda () - (#{cvt*\ 3546}# - (cdr #{p*\ 3617}#) - #{n\ 3618}# - #{ids\ 3619}#)) - (lambda (#{y\ 3623}# #{ids\ 3624}#) + (#{cvt*\ 12669}# + (cdr #{p*\ 12740}#) + #{n\ 12741}# + #{ids\ 12742}#)) + (lambda (#{y\ 12746}# #{ids\ 12747}#) (call-with-values (lambda () - (#{cvt\ 3548}# - (car #{p*\ 3617}#) - #{n\ 3618}# - #{ids\ 3624}#)) - (lambda (#{x\ 3627}# #{ids\ 3628}#) + (#{cvt\ 12671}# + (car #{p*\ 12740}#) + #{n\ 12741}# + #{ids\ 12747}#)) + (lambda (#{x\ 12750}# #{ids\ 12751}#) (values - (cons #{x\ 3627}# #{y\ 3623}#) - #{ids\ 3628}#))))))))) - (#{cvt\ 3548}# #{pattern\ 3541}# 0 (quote ())))))) - (lambda (#{e\ 3631}# - #{r\ 3632}# - #{w\ 3633}# - #{s\ 3634}# - #{mod\ 3635}#) - (let ((#{e\ 3642}# - (#{source-wrap\ 331}# - #{e\ 3631}# - #{w\ 3633}# - #{s\ 3634}# - #{mod\ 3635}#))) - ((lambda (#{tmp\ 3643}#) - ((lambda (#{tmp\ 3644}#) - (if #{tmp\ 3644}# - (apply (lambda (#{_\ 3649}# - #{val\ 3650}# - #{key\ 3651}# - #{m\ 3652}#) + (cons #{x\ 12750}# #{y\ 12746}#) + #{ids\ 12751}#))))))))) + (#{cvt\ 12671}# #{pattern\ 12664}# 0 (quote ())))))) + (lambda (#{e\ 12754}# + #{r\ 12755}# + #{w\ 12756}# + #{s\ 12757}# + #{mod\ 12758}#) + (let ((#{e\ 12765}# + (#{source-wrap\ 9485}# + #{e\ 12754}# + #{w\ 12756}# + #{s\ 12757}# + #{mod\ 12758}#))) + ((lambda (#{tmp\ 12766}#) + ((lambda (#{tmp\ 12767}#) + (if #{tmp\ 12767}# + (apply (lambda (#{_\ 12772}# + #{val\ 12773}# + #{key\ 12774}# + #{m\ 12775}#) (if (and-map - (lambda (#{x\ 3653}#) - (if (#{id?\ 260}# #{x\ 3653}#) - (not (#{ellipsis?\ 361}# #{x\ 3653}#)) + (lambda (#{x\ 12776}#) + (if (#{id?\ 9414}# #{x\ 12776}#) + (not (#{ellipsis?\ 9515}# + #{x\ 12776}#)) #f)) - #{key\ 3651}#) - (let ((#{x\ 3659}# - (#{gen-var\ 373}# (quote tmp)))) - (#{build-application\ 184}# - #{s\ 3634}# - (#{build-simple-lambda\ 202}# + #{key\ 12774}#) + (let ((#{x\ 12782}# + (#{gen-var\ 9527}# (quote tmp)))) + (#{build-application\ 9338}# + #{s\ 12757}# + (#{build-simple-lambda\ 9356}# #f (list (quote tmp)) #f - (list #{x\ 3659}#) + (list #{x\ 12782}#) #f - (#{gen-syntax-case\ 3424}# - (#{build-lexical-reference\ 188}# + (#{gen-syntax-case\ 12547}# + (#{build-lexical-reference\ 9342}# 'value #f 'tmp - #{x\ 3659}#) - #{key\ 3651}# - #{m\ 3652}# - #{r\ 3632}# - #{mod\ 3635}#)) - (list (#{chi\ 345}# - #{val\ 3650}# - #{r\ 3632}# + #{x\ 12782}#) + #{key\ 12774}# + #{m\ 12775}# + #{r\ 12755}# + #{mod\ 12758}#)) + (list (#{chi\ 9499}# + #{val\ 12773}# + #{r\ 12755}# '(()) - #{mod\ 3635}#)))) + #{mod\ 12758}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 3642}#))) - #{tmp\ 3644}#) + #{e\ 12765}#))) + #{tmp\ 12767}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3643}#))) + #{tmp\ 12766}#))) ($sc-dispatch - #{tmp\ 3643}# + #{tmp\ 12766}# '(any any each-any . each-any)))) - #{e\ 3642}#))))) + #{e\ 12765}#))))) (set! sc-expand - (lambda (#{x\ 3665}# . #{rest\ 3666}#) - (if (if (pair? #{x\ 3665}#) - (equal? (car #{x\ 3665}#) #{noexpand\ 159}#) + (lambda (#{x\ 12788}# . #{rest\ 12789}#) + (if (if (pair? #{x\ 12788}#) + (equal? (car #{x\ 12788}#) #{noexpand\ 9313}#) #f) - (cadr #{x\ 3665}#) - (let ((#{m\ 3673}# - (if (null? #{rest\ 3666}#) + (cadr #{x\ 12788}#) + (let ((#{m\ 12796}# + (if (null? #{rest\ 12789}#) 'e - (car #{rest\ 3666}#))) - (#{esew\ 3674}# - (if (let ((#{t\ 3677}# (null? #{rest\ 3666}#))) - (if #{t\ 3677}# - #{t\ 3677}# - (null? (cdr #{rest\ 3666}#)))) + (car #{rest\ 12789}#))) + (#{esew\ 12797}# + (if (let ((#{t\ 12800}# (null? #{rest\ 12789}#))) + (if #{t\ 12800}# + #{t\ 12800}# + (null? (cdr #{rest\ 12789}#)))) '(eval) - (cadr #{rest\ 3666}#)))) + (cadr #{rest\ 12789}#)))) (with-fluid* - #{*mode*\ 161}# - #{m\ 3673}# + #{*mode*\ 9315}# + #{m\ 12796}# (lambda () - (#{chi-top\ 343}# - #{x\ 3665}# + (#{chi-top\ 9497}# + #{x\ 12788}# '() '((top)) - #{m\ 3673}# - #{esew\ 3674}# + #{m\ 12796}# + #{esew\ 12797}# (cons 'hygiene (module-name (current-module)))))))))) (set! identifier? - (lambda (#{x\ 3681}#) - (#{nonsymbol-id?\ 258}# #{x\ 3681}#))) + (lambda (#{x\ 12804}#) + (#{nonsymbol-id?\ 9412}# #{x\ 12804}#))) (set! datum->syntax - (lambda (#{id\ 3683}# #{datum\ 3684}#) - (#{make-syntax-object\ 222}# - #{datum\ 3684}# - (#{syntax-object-wrap\ 228}# #{id\ 3683}#) + (lambda (#{id\ 12806}# #{datum\ 12807}#) + (#{make-syntax-object\ 9376}# + #{datum\ 12807}# + (#{syntax-object-wrap\ 9382}# #{id\ 12806}#) #f))) (set! syntax->datum - (lambda (#{x\ 3687}#) - (#{strip\ 371}# #{x\ 3687}# (quote (()))))) + (lambda (#{x\ 12810}#) + (#{strip\ 9525}# #{x\ 12810}# (quote (()))))) (set! generate-temporaries - (lambda (#{ls\ 3690}#) + (lambda (#{ls\ 12813}#) (begin - (let ((#{x\ 3694}# #{ls\ 3690}#)) - (if (not (list? #{x\ 3694}#)) + (let ((#{x\ 12817}# #{ls\ 12813}#)) + (if (not (list? #{x\ 12817}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 3694}#))) - (map (lambda (#{x\ 3695}#) - (#{wrap\ 329}# (gensym) (quote ((top))) #f)) - #{ls\ 3690}#)))) + #{x\ 12817}#))) + (map (lambda (#{x\ 12818}#) + (#{wrap\ 9483}# (gensym) (quote ((top))) #f)) + #{ls\ 12813}#)))) (set! free-identifier=? - (lambda (#{x\ 3699}# #{y\ 3700}#) + (lambda (#{x\ 12822}# #{y\ 12823}#) (begin - (let ((#{x\ 3705}# #{x\ 3699}#)) - (if (not (#{nonsymbol-id?\ 258}# #{x\ 3705}#)) + (let ((#{x\ 12828}# #{x\ 12822}#)) + (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12828}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 3705}#))) - (let ((#{x\ 3708}# #{y\ 3700}#)) - (if (not (#{nonsymbol-id?\ 258}# #{x\ 3708}#)) + #{x\ 12828}#))) + (let ((#{x\ 12831}# #{y\ 12823}#)) + (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12831}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 3708}#))) - (#{free-id=?\ 319}# #{x\ 3699}# #{y\ 3700}#)))) + #{x\ 12831}#))) + (#{free-id=?\ 9473}# #{x\ 12822}# #{y\ 12823}#)))) (set! bound-identifier=? - (lambda (#{x\ 3709}# #{y\ 3710}#) + (lambda (#{x\ 12832}# #{y\ 12833}#) (begin - (let ((#{x\ 3715}# #{x\ 3709}#)) - (if (not (#{nonsymbol-id?\ 258}# #{x\ 3715}#)) + (let ((#{x\ 12838}# #{x\ 12832}#)) + (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12838}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 3715}#))) - (let ((#{x\ 3718}# #{y\ 3710}#)) - (if (not (#{nonsymbol-id?\ 258}# #{x\ 3718}#)) + #{x\ 12838}#))) + (let ((#{x\ 12841}# #{y\ 12833}#)) + (if (not (#{nonsymbol-id?\ 9412}# #{x\ 12841}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 3718}#))) - (#{bound-id=?\ 321}# #{x\ 3709}# #{y\ 3710}#)))) + #{x\ 12841}#))) + (#{bound-id=?\ 9475}# #{x\ 12832}# #{y\ 12833}#)))) (set! syntax-violation - (lambda (#{who\ 3719}# - #{message\ 3720}# - #{form\ 3721}# + (lambda (#{who\ 12842}# + #{message\ 12843}# + #{form\ 12844}# . - #{subform\ 3722}#) + #{subform\ 12845}#) (begin - (let ((#{x\ 3729}# #{who\ 3719}#)) - (if (not ((lambda (#{x\ 3730}#) - (let ((#{t\ 3734}# (not #{x\ 3730}#))) - (if #{t\ 3734}# - #{t\ 3734}# - (let ((#{t\ 3737}# (string? #{x\ 3730}#))) - (if #{t\ 3737}# - #{t\ 3737}# - (symbol? #{x\ 3730}#)))))) - #{x\ 3729}#)) + (let ((#{x\ 12852}# #{who\ 12842}#)) + (if (not ((lambda (#{x\ 12853}#) + (let ((#{t\ 12857}# (not #{x\ 12853}#))) + (if #{t\ 12857}# + #{t\ 12857}# + (let ((#{t\ 12860}# (string? #{x\ 12853}#))) + (if #{t\ 12860}# + #{t\ 12860}# + (symbol? #{x\ 12853}#)))))) + #{x\ 12852}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 3729}#))) - (let ((#{x\ 3741}# #{message\ 3720}#)) - (if (not (string? #{x\ 3741}#)) + #{x\ 12852}#))) + (let ((#{x\ 12864}# #{message\ 12843}#)) + (if (not (string? #{x\ 12864}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 3741}#))) + #{x\ 12864}#))) (scm-error 'syntax-error 'sc-expand (string-append - (if #{who\ 3719}# "~a: " "") + (if #{who\ 12842}# "~a: " "") "~a " - (if (null? #{subform\ 3722}#) + (if (null? #{subform\ 12845}#) "in ~a" "in subform `~s' of `~s'")) - (let ((#{tail\ 3743}# - (cons #{message\ 3720}# - (map (lambda (#{x\ 3744}#) - (#{strip\ 371}# #{x\ 3744}# (quote (())))) + (let ((#{tail\ 12866}# + (cons #{message\ 12843}# + (map (lambda (#{x\ 12867}#) + (#{strip\ 9525}# #{x\ 12867}# (quote (())))) (append - #{subform\ 3722}# - (list #{form\ 3721}#)))))) - (if #{who\ 3719}# - (cons #{who\ 3719}# #{tail\ 3743}#) - #{tail\ 3743}#)) + #{subform\ 12845}# + (list #{form\ 12844}#)))))) + (if #{who\ 12842}# + (cons #{who\ 12842}# #{tail\ 12866}#) + #{tail\ 12866}#)) #f)))) - (letrec ((#{match\ 3760}# - (lambda (#{e\ 3761}# - #{p\ 3762}# - #{w\ 3763}# - #{r\ 3764}# - #{mod\ 3765}#) - (if (not #{r\ 3764}#) + (letrec ((#{match\ 12883}# + (lambda (#{e\ 12884}# + #{p\ 12885}# + #{w\ 12886}# + #{r\ 12887}# + #{mod\ 12888}#) + (if (not #{r\ 12887}#) #f - (if (eq? #{p\ 3762}# (quote any)) - (cons (#{wrap\ 329}# - #{e\ 3761}# - #{w\ 3763}# - #{mod\ 3765}#) - #{r\ 3764}#) - (if (#{syntax-object?\ 224}# #{e\ 3761}#) - (#{match*\ 3758}# - (#{syntax-object-expression\ 226}# #{e\ 3761}#) - #{p\ 3762}# - (#{join-wraps\ 311}# - #{w\ 3763}# - (#{syntax-object-wrap\ 228}# #{e\ 3761}#)) - #{r\ 3764}# - (#{syntax-object-module\ 230}# #{e\ 3761}#)) - (#{match*\ 3758}# - #{e\ 3761}# - #{p\ 3762}# - #{w\ 3763}# - #{r\ 3764}# - #{mod\ 3765}#)))))) - (#{match*\ 3758}# - (lambda (#{e\ 3778}# - #{p\ 3779}# - #{w\ 3780}# - #{r\ 3781}# - #{mod\ 3782}#) - (if (null? #{p\ 3779}#) - (if (null? #{e\ 3778}#) #{r\ 3781}# #f) - (if (pair? #{p\ 3779}#) - (if (pair? #{e\ 3778}#) - (#{match\ 3760}# - (car #{e\ 3778}#) - (car #{p\ 3779}#) - #{w\ 3780}# - (#{match\ 3760}# - (cdr #{e\ 3778}#) - (cdr #{p\ 3779}#) - #{w\ 3780}# - #{r\ 3781}# - #{mod\ 3782}#) - #{mod\ 3782}#) + (if (eq? #{p\ 12885}# (quote any)) + (cons (#{wrap\ 9483}# + #{e\ 12884}# + #{w\ 12886}# + #{mod\ 12888}#) + #{r\ 12887}#) + (if (#{syntax-object?\ 9378}# #{e\ 12884}#) + (#{match*\ 12881}# + (#{syntax-object-expression\ 9380}# #{e\ 12884}#) + #{p\ 12885}# + (#{join-wraps\ 9465}# + #{w\ 12886}# + (#{syntax-object-wrap\ 9382}# #{e\ 12884}#)) + #{r\ 12887}# + (#{syntax-object-module\ 9384}# #{e\ 12884}#)) + (#{match*\ 12881}# + #{e\ 12884}# + #{p\ 12885}# + #{w\ 12886}# + #{r\ 12887}# + #{mod\ 12888}#)))))) + (#{match*\ 12881}# + (lambda (#{e\ 12901}# + #{p\ 12902}# + #{w\ 12903}# + #{r\ 12904}# + #{mod\ 12905}#) + (if (null? #{p\ 12902}#) + (if (null? #{e\ 12901}#) #{r\ 12904}# #f) + (if (pair? #{p\ 12902}#) + (if (pair? #{e\ 12901}#) + (#{match\ 12883}# + (car #{e\ 12901}#) + (car #{p\ 12902}#) + #{w\ 12903}# + (#{match\ 12883}# + (cdr #{e\ 12901}#) + (cdr #{p\ 12902}#) + #{w\ 12903}# + #{r\ 12904}# + #{mod\ 12905}#) + #{mod\ 12905}#) #f) - (if (eq? #{p\ 3779}# (quote each-any)) - (let ((#{l\ 3799}# - (#{match-each-any\ 3752}# - #{e\ 3778}# - #{w\ 3780}# - #{mod\ 3782}#))) - (if #{l\ 3799}# - (cons #{l\ 3799}# #{r\ 3781}#) + (if (eq? #{p\ 12902}# (quote each-any)) + (let ((#{l\ 12922}# + (#{match-each-any\ 12875}# + #{e\ 12901}# + #{w\ 12903}# + #{mod\ 12905}#))) + (if #{l\ 12922}# + (cons #{l\ 12922}# #{r\ 12904}#) #f)) - (let ((#{atom-key\ 3805}# (vector-ref #{p\ 3779}# 0))) - (if (memv #{atom-key\ 3805}# (quote (each))) - (if (null? #{e\ 3778}#) - (#{match-empty\ 3754}# - (vector-ref #{p\ 3779}# 1) - #{r\ 3781}#) - (let ((#{l\ 3808}# - (#{match-each\ 3748}# - #{e\ 3778}# - (vector-ref #{p\ 3779}# 1) - #{w\ 3780}# - #{mod\ 3782}#))) - (if #{l\ 3808}# - (letrec ((#{collect\ 3813}# - (lambda (#{l\ 3814}#) - (if (null? (car #{l\ 3814}#)) - #{r\ 3781}# - (cons (map car #{l\ 3814}#) - (#{collect\ 3813}# + (let ((#{atom-key\ 12928}# + (vector-ref #{p\ 12902}# 0))) + (if (memv #{atom-key\ 12928}# (quote (each))) + (if (null? #{e\ 12901}#) + (#{match-empty\ 12877}# + (vector-ref #{p\ 12902}# 1) + #{r\ 12904}#) + (let ((#{l\ 12931}# + (#{match-each\ 12871}# + #{e\ 12901}# + (vector-ref #{p\ 12902}# 1) + #{w\ 12903}# + #{mod\ 12905}#))) + (if #{l\ 12931}# + (letrec ((#{collect\ 12936}# + (lambda (#{l\ 12937}#) + (if (null? (car #{l\ 12937}#)) + #{r\ 12904}# + (cons (map car #{l\ 12937}#) + (#{collect\ 12936}# (map cdr - #{l\ 3814}#))))))) - (#{collect\ 3813}# #{l\ 3808}#)) + #{l\ 12937}#))))))) + (#{collect\ 12936}# #{l\ 12931}#)) #f))) - (if (memv #{atom-key\ 3805}# (quote (each+))) + (if (memv #{atom-key\ 12928}# (quote (each+))) (call-with-values (lambda () - (#{match-each+\ 3750}# - #{e\ 3778}# - (vector-ref #{p\ 3779}# 1) - (vector-ref #{p\ 3779}# 2) - (vector-ref #{p\ 3779}# 3) - #{w\ 3780}# - #{r\ 3781}# - #{mod\ 3782}#)) - (lambda (#{xr*\ 3816}# - #{y-pat\ 3817}# - #{r\ 3818}#) - (if #{r\ 3818}# - (if (null? #{y-pat\ 3817}#) - (if (null? #{xr*\ 3816}#) - (#{match-empty\ 3754}# - (vector-ref #{p\ 3779}# 1) - #{r\ 3818}#) - (#{combine\ 3756}# - #{xr*\ 3816}# - #{r\ 3818}#)) + (#{match-each+\ 12873}# + #{e\ 12901}# + (vector-ref #{p\ 12902}# 1) + (vector-ref #{p\ 12902}# 2) + (vector-ref #{p\ 12902}# 3) + #{w\ 12903}# + #{r\ 12904}# + #{mod\ 12905}#)) + (lambda (#{xr*\ 12939}# + #{y-pat\ 12940}# + #{r\ 12941}#) + (if #{r\ 12941}# + (if (null? #{y-pat\ 12940}#) + (if (null? #{xr*\ 12939}#) + (#{match-empty\ 12877}# + (vector-ref #{p\ 12902}# 1) + #{r\ 12941}#) + (#{combine\ 12879}# + #{xr*\ 12939}# + #{r\ 12941}#)) #f) #f))) - (if (memv #{atom-key\ 3805}# (quote (free-id))) - (if (#{id?\ 260}# #{e\ 3778}#) - (if (#{free-id=?\ 319}# - (#{wrap\ 329}# - #{e\ 3778}# - #{w\ 3780}# - #{mod\ 3782}#) - (vector-ref #{p\ 3779}# 1)) - #{r\ 3781}# + (if (memv #{atom-key\ 12928}# (quote (free-id))) + (if (#{id?\ 9414}# #{e\ 12901}#) + (if (#{free-id=?\ 9473}# + (#{wrap\ 9483}# + #{e\ 12901}# + #{w\ 12903}# + #{mod\ 12905}#) + (vector-ref #{p\ 12902}# 1)) + #{r\ 12904}# #f) #f) - (if (memv #{atom-key\ 3805}# (quote (atom))) + (if (memv #{atom-key\ 12928}# (quote (atom))) (if (equal? - (vector-ref #{p\ 3779}# 1) - (#{strip\ 371}# - #{e\ 3778}# - #{w\ 3780}#)) - #{r\ 3781}# + (vector-ref #{p\ 12902}# 1) + (#{strip\ 9525}# + #{e\ 12901}# + #{w\ 12903}#)) + #{r\ 12904}# #f) - (if (memv #{atom-key\ 3805}# + (if (memv #{atom-key\ 12928}# '(vector)) - (if (vector? #{e\ 3778}#) - (#{match\ 3760}# - (vector->list #{e\ 3778}#) - (vector-ref #{p\ 3779}# 1) - #{w\ 3780}# - #{r\ 3781}# - #{mod\ 3782}#) + (if (vector? #{e\ 12901}#) + (#{match\ 12883}# + (vector->list #{e\ 12901}#) + (vector-ref #{p\ 12902}# 1) + #{w\ 12903}# + #{r\ 12904}# + #{mod\ 12905}#) #f)))))))))))) - (#{combine\ 3756}# - (lambda (#{r*\ 3835}# #{r\ 3836}#) - (if (null? (car #{r*\ 3835}#)) - #{r\ 3836}# - (cons (map car #{r*\ 3835}#) - (#{combine\ 3756}# - (map cdr #{r*\ 3835}#) - #{r\ 3836}#))))) - (#{match-empty\ 3754}# - (lambda (#{p\ 3839}# #{r\ 3840}#) - (if (null? #{p\ 3839}#) - #{r\ 3840}# - (if (eq? #{p\ 3839}# (quote any)) - (cons (quote ()) #{r\ 3840}#) - (if (pair? #{p\ 3839}#) - (#{match-empty\ 3754}# - (car #{p\ 3839}#) - (#{match-empty\ 3754}# - (cdr #{p\ 3839}#) - #{r\ 3840}#)) - (if (eq? #{p\ 3839}# (quote each-any)) - (cons (quote ()) #{r\ 3840}#) - (let ((#{atom-key\ 3854}# - (vector-ref #{p\ 3839}# 0))) - (if (memv #{atom-key\ 3854}# (quote (each))) - (#{match-empty\ 3754}# - (vector-ref #{p\ 3839}# 1) - #{r\ 3840}#) - (if (memv #{atom-key\ 3854}# (quote (each+))) - (#{match-empty\ 3754}# - (vector-ref #{p\ 3839}# 1) - (#{match-empty\ 3754}# - (reverse (vector-ref #{p\ 3839}# 2)) - (#{match-empty\ 3754}# - (vector-ref #{p\ 3839}# 3) - #{r\ 3840}#))) - (if (memv #{atom-key\ 3854}# + (#{combine\ 12879}# + (lambda (#{r*\ 12958}# #{r\ 12959}#) + (if (null? (car #{r*\ 12958}#)) + #{r\ 12959}# + (cons (map car #{r*\ 12958}#) + (#{combine\ 12879}# + (map cdr #{r*\ 12958}#) + #{r\ 12959}#))))) + (#{match-empty\ 12877}# + (lambda (#{p\ 12962}# #{r\ 12963}#) + (if (null? #{p\ 12962}#) + #{r\ 12963}# + (if (eq? #{p\ 12962}# (quote any)) + (cons (quote ()) #{r\ 12963}#) + (if (pair? #{p\ 12962}#) + (#{match-empty\ 12877}# + (car #{p\ 12962}#) + (#{match-empty\ 12877}# + (cdr #{p\ 12962}#) + #{r\ 12963}#)) + (if (eq? #{p\ 12962}# (quote each-any)) + (cons (quote ()) #{r\ 12963}#) + (let ((#{atom-key\ 12977}# + (vector-ref #{p\ 12962}# 0))) + (if (memv #{atom-key\ 12977}# (quote (each))) + (#{match-empty\ 12877}# + (vector-ref #{p\ 12962}# 1) + #{r\ 12963}#) + (if (memv #{atom-key\ 12977}# (quote (each+))) + (#{match-empty\ 12877}# + (vector-ref #{p\ 12962}# 1) + (#{match-empty\ 12877}# + (reverse (vector-ref #{p\ 12962}# 2)) + (#{match-empty\ 12877}# + (vector-ref #{p\ 12962}# 3) + #{r\ 12963}#))) + (if (memv #{atom-key\ 12977}# '(free-id atom)) - #{r\ 3840}# - (if (memv #{atom-key\ 3854}# + #{r\ 12963}# + (if (memv #{atom-key\ 12977}# '(vector)) - (#{match-empty\ 3754}# - (vector-ref #{p\ 3839}# 1) - #{r\ 3840}#)))))))))))) - (#{match-each-any\ 3752}# - (lambda (#{e\ 3859}# #{w\ 3860}# #{mod\ 3861}#) - (if (pair? #{e\ 3859}#) - (let ((#{l\ 3868}# - (#{match-each-any\ 3752}# - (cdr #{e\ 3859}#) - #{w\ 3860}# - #{mod\ 3861}#))) - (if #{l\ 3868}# - (cons (#{wrap\ 329}# - (car #{e\ 3859}#) - #{w\ 3860}# - #{mod\ 3861}#) - #{l\ 3868}#) + (#{match-empty\ 12877}# + (vector-ref #{p\ 12962}# 1) + #{r\ 12963}#)))))))))))) + (#{match-each-any\ 12875}# + (lambda (#{e\ 12982}# #{w\ 12983}# #{mod\ 12984}#) + (if (pair? #{e\ 12982}#) + (let ((#{l\ 12991}# + (#{match-each-any\ 12875}# + (cdr #{e\ 12982}#) + #{w\ 12983}# + #{mod\ 12984}#))) + (if #{l\ 12991}# + (cons (#{wrap\ 9483}# + (car #{e\ 12982}#) + #{w\ 12983}# + #{mod\ 12984}#) + #{l\ 12991}#) #f)) - (if (null? #{e\ 3859}#) + (if (null? #{e\ 12982}#) '() - (if (#{syntax-object?\ 224}# #{e\ 3859}#) - (#{match-each-any\ 3752}# - (#{syntax-object-expression\ 226}# #{e\ 3859}#) - (#{join-wraps\ 311}# - #{w\ 3860}# - (#{syntax-object-wrap\ 228}# #{e\ 3859}#)) - #{mod\ 3861}#) + (if (#{syntax-object?\ 9378}# #{e\ 12982}#) + (#{match-each-any\ 12875}# + (#{syntax-object-expression\ 9380}# #{e\ 12982}#) + (#{join-wraps\ 9465}# + #{w\ 12983}# + (#{syntax-object-wrap\ 9382}# #{e\ 12982}#)) + #{mod\ 12984}#) #f))))) - (#{match-each+\ 3750}# - (lambda (#{e\ 3876}# - #{x-pat\ 3877}# - #{y-pat\ 3878}# - #{z-pat\ 3879}# - #{w\ 3880}# - #{r\ 3881}# - #{mod\ 3882}#) - (letrec ((#{f\ 3893}# - (lambda (#{e\ 3894}# #{w\ 3895}#) - (if (pair? #{e\ 3894}#) + (#{match-each+\ 12873}# + (lambda (#{e\ 12999}# + #{x-pat\ 13000}# + #{y-pat\ 13001}# + #{z-pat\ 13002}# + #{w\ 13003}# + #{r\ 13004}# + #{mod\ 13005}#) + (letrec ((#{f\ 13016}# + (lambda (#{e\ 13017}# #{w\ 13018}#) + (if (pair? #{e\ 13017}#) (call-with-values (lambda () - (#{f\ 3893}# - (cdr #{e\ 3894}#) - #{w\ 3895}#)) - (lambda (#{xr*\ 3898}# - #{y-pat\ 3899}# - #{r\ 3900}#) - (if #{r\ 3900}# - (if (null? #{y-pat\ 3899}#) - (let ((#{xr\ 3905}# - (#{match\ 3760}# - (car #{e\ 3894}#) - #{x-pat\ 3877}# - #{w\ 3895}# + (#{f\ 13016}# + (cdr #{e\ 13017}#) + #{w\ 13018}#)) + (lambda (#{xr*\ 13021}# + #{y-pat\ 13022}# + #{r\ 13023}#) + (if #{r\ 13023}# + (if (null? #{y-pat\ 13022}#) + (let ((#{xr\ 13028}# + (#{match\ 12883}# + (car #{e\ 13017}#) + #{x-pat\ 13000}# + #{w\ 13018}# '() - #{mod\ 3882}#))) - (if #{xr\ 3905}# + #{mod\ 13005}#))) + (if #{xr\ 13028}# (values - (cons #{xr\ 3905}# - #{xr*\ 3898}#) - #{y-pat\ 3899}# - #{r\ 3900}#) + (cons #{xr\ 13028}# + #{xr*\ 13021}#) + #{y-pat\ 13022}# + #{r\ 13023}#) (values #f #f #f))) (values '() - (cdr #{y-pat\ 3899}#) - (#{match\ 3760}# - (car #{e\ 3894}#) - (car #{y-pat\ 3899}#) - #{w\ 3895}# - #{r\ 3900}# - #{mod\ 3882}#))) + (cdr #{y-pat\ 13022}#) + (#{match\ 12883}# + (car #{e\ 13017}#) + (car #{y-pat\ 13022}#) + #{w\ 13018}# + #{r\ 13023}# + #{mod\ 13005}#))) (values #f #f #f)))) - (if (#{syntax-object?\ 224}# #{e\ 3894}#) - (#{f\ 3893}# - (#{syntax-object-expression\ 226}# - #{e\ 3894}#) - (#{join-wraps\ 311}# - #{w\ 3895}# - #{e\ 3894}#)) + (if (#{syntax-object?\ 9378}# #{e\ 13017}#) + (#{f\ 13016}# + (#{syntax-object-expression\ 9380}# + #{e\ 13017}#) + (#{join-wraps\ 9465}# + #{w\ 13018}# + #{e\ 13017}#)) (values '() - #{y-pat\ 3878}# - (#{match\ 3760}# - #{e\ 3894}# - #{z-pat\ 3879}# - #{w\ 3895}# - #{r\ 3881}# - #{mod\ 3882}#))))))) - (#{f\ 3893}# #{e\ 3876}# #{w\ 3880}#)))) - (#{match-each\ 3748}# - (lambda (#{e\ 3909}# - #{p\ 3910}# - #{w\ 3911}# - #{mod\ 3912}#) - (if (pair? #{e\ 3909}#) - (let ((#{first\ 3920}# - (#{match\ 3760}# - (car #{e\ 3909}#) - #{p\ 3910}# - #{w\ 3911}# + #{y-pat\ 13001}# + (#{match\ 12883}# + #{e\ 13017}# + #{z-pat\ 13002}# + #{w\ 13018}# + #{r\ 13004}# + #{mod\ 13005}#))))))) + (#{f\ 13016}# #{e\ 12999}# #{w\ 13003}#)))) + (#{match-each\ 12871}# + (lambda (#{e\ 13032}# + #{p\ 13033}# + #{w\ 13034}# + #{mod\ 13035}#) + (if (pair? #{e\ 13032}#) + (let ((#{first\ 13043}# + (#{match\ 12883}# + (car #{e\ 13032}#) + #{p\ 13033}# + #{w\ 13034}# '() - #{mod\ 3912}#))) - (if #{first\ 3920}# - (let ((#{rest\ 3924}# - (#{match-each\ 3748}# - (cdr #{e\ 3909}#) - #{p\ 3910}# - #{w\ 3911}# - #{mod\ 3912}#))) - (if #{rest\ 3924}# - (cons #{first\ 3920}# #{rest\ 3924}#) + #{mod\ 13035}#))) + (if #{first\ 13043}# + (let ((#{rest\ 13047}# + (#{match-each\ 12871}# + (cdr #{e\ 13032}#) + #{p\ 13033}# + #{w\ 13034}# + #{mod\ 13035}#))) + (if #{rest\ 13047}# + (cons #{first\ 13043}# #{rest\ 13047}#) #f)) #f)) - (if (null? #{e\ 3909}#) + (if (null? #{e\ 13032}#) '() - (if (#{syntax-object?\ 224}# #{e\ 3909}#) - (#{match-each\ 3748}# - (#{syntax-object-expression\ 226}# #{e\ 3909}#) - #{p\ 3910}# - (#{join-wraps\ 311}# - #{w\ 3911}# - (#{syntax-object-wrap\ 228}# #{e\ 3909}#)) - (#{syntax-object-module\ 230}# #{e\ 3909}#)) + (if (#{syntax-object?\ 9378}# #{e\ 13032}#) + (#{match-each\ 12871}# + (#{syntax-object-expression\ 9380}# #{e\ 13032}#) + #{p\ 13033}# + (#{join-wraps\ 9465}# + #{w\ 13034}# + (#{syntax-object-wrap\ 9382}# #{e\ 13032}#)) + (#{syntax-object-module\ 9384}# #{e\ 13032}#)) #f)))))) (set! $sc-dispatch - (lambda (#{e\ 3932}# #{p\ 3933}#) - (if (eq? #{p\ 3933}# (quote any)) - (list #{e\ 3932}#) - (if (#{syntax-object?\ 224}# #{e\ 3932}#) - (#{match*\ 3758}# - (#{syntax-object-expression\ 226}# #{e\ 3932}#) - #{p\ 3933}# - (#{syntax-object-wrap\ 228}# #{e\ 3932}#) + (lambda (#{e\ 13055}# #{p\ 13056}#) + (if (eq? #{p\ 13056}# (quote any)) + (list #{e\ 13055}#) + (if (#{syntax-object?\ 9378}# #{e\ 13055}#) + (#{match*\ 12881}# + (#{syntax-object-expression\ 9380}# #{e\ 13055}#) + #{p\ 13056}# + (#{syntax-object-wrap\ 9382}# #{e\ 13055}#) '() - (#{syntax-object-module\ 230}# #{e\ 3932}#)) - (#{match*\ 3758}# - #{e\ 3932}# - #{p\ 3933}# + (#{syntax-object-module\ 9384}# #{e\ 13055}#)) + (#{match*\ 12881}# + #{e\ 13055}# + #{p\ 13056}# '(()) '() #f))))))))) (define with-syntax - (make-syncase-macro + (make-syntax-transformer + 'with-syntax 'macro - (cons (lambda (#{x\ 3942}#) - ((lambda (#{tmp\ 3944}#) - ((lambda (#{tmp\ 3945}#) - (if #{tmp\ 3945}# - (apply (lambda (#{_\ 3949}# #{e1\ 3950}# #{e2\ 3951}#) + (cons (lambda (#{x\ 13065}#) + ((lambda (#{tmp\ 13067}#) + ((lambda (#{tmp\ 13068}#) + (if #{tmp\ 13068}# + (apply (lambda (#{_\ 13072}# #{e1\ 13073}# #{e2\ 13074}#) (cons '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) - #("i3946" "i3947" "i3948")) + #("i13069" "i13070" "i13071")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i3943"))) + #(ribcage #(x) #((top)) #("i13066"))) (hygiene guile)) - (cons #{e1\ 3950}# #{e2\ 3951}#))) - #{tmp\ 3945}#) - ((lambda (#{tmp\ 3953}#) - (if #{tmp\ 3953}# - (apply (lambda (#{_\ 3959}# - #{out\ 3960}# - #{in\ 3961}# - #{e1\ 3962}# - #{e2\ 3963}#) + (cons #{e1\ 13073}# #{e2\ 13074}#))) + #{tmp\ 13068}#) + ((lambda (#{tmp\ 13076}#) + (if #{tmp\ 13076}# + (apply (lambda (#{_\ 13082}# + #{out\ 13083}# + #{in\ 13084}# + #{e1\ 13085}# + #{e2\ 13086}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) - #("i3954" - "i3955" - "i3956" - "i3957" - "i3958")) + #("i13077" + "i13078" + "i13079" + "i13080" + "i13081")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3943"))) + #("i13066"))) (hygiene guile)) - #{in\ 3961}# + #{in\ 13084}# '() - (list #{out\ 3960}# + (list #{out\ 13083}# (cons '#(syntax-object begin ((top) @@ -11612,27 +11649,27 @@ (top) (top) (top)) - #("i3954" - "i3955" - "i3956" - "i3957" - "i3958")) + #("i13077" + "i13078" + "i13079" + "i13080" + "i13081")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3943"))) + #("i13066"))) (hygiene guile)) - (cons #{e1\ 3962}# - #{e2\ 3963}#))))) - #{tmp\ 3953}#) - ((lambda (#{tmp\ 3965}#) - (if #{tmp\ 3965}# - (apply (lambda (#{_\ 3971}# - #{out\ 3972}# - #{in\ 3973}# - #{e1\ 3974}# - #{e2\ 3975}#) + (cons #{e1\ 13085}# + #{e2\ 13086}#))))) + #{tmp\ 13076}#) + ((lambda (#{tmp\ 13088}#) + (if #{tmp\ 13088}# + (apply (lambda (#{_\ 13094}# + #{out\ 13095}# + #{in\ 13096}# + #{e1\ 13097}# + #{e2\ 13098}#) (list '#(syntax-object syntax-case ((top) @@ -11643,16 +11680,16 @@ (top) (top) (top)) - #("i3966" - "i3967" - "i3968" - "i3969" - "i3970")) + #("i13089" + "i13090" + "i13091" + "i13092" + "i13093")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3943"))) + #("i13066"))) (hygiene guile)) (cons '#(syntax-object list @@ -11664,20 +11701,20 @@ (top) (top) (top)) - #("i3966" - "i3967" - "i3968" - "i3969" - "i3970")) + #("i13089" + "i13090" + "i13091" + "i13092" + "i13093")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3943"))) + #("i13066"))) (hygiene guile)) - #{in\ 3973}#) + #{in\ 13096}#) '() - (list #{out\ 3972}# + (list #{out\ 13095}# (cons '#(syntax-object begin ((top) @@ -11692,11 +11729,11 @@ (top) (top) (top)) - #("i3966" - "i3967" - "i3968" - "i3969" - "i3970")) + #("i13089" + "i13090" + "i13091" + "i13092" + "i13093")) #(ribcage () () @@ -11704,52 +11741,53 @@ #(ribcage #(x) #((top)) - #("i3943"))) + #("i13066"))) (hygiene guile)) - (cons #{e1\ 3974}# - #{e2\ 3975}#))))) - #{tmp\ 3965}#) + (cons #{e1\ 13097}# + #{e2\ 13098}#))))) + #{tmp\ 13088}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3944}#))) + #{tmp\ 13067}#))) ($sc-dispatch - #{tmp\ 3944}# + #{tmp\ 13067}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 3944}# + #{tmp\ 13067}# '(any ((any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 3944}# + #{tmp\ 13067}# '(any () any . each-any)))) - #{x\ 3942}#)) + #{x\ 13065}#)) (module-name (current-module))))) (define syntax-rules - (make-syncase-macro + (make-syntax-transformer + 'syntax-rules 'macro - (cons (lambda (#{x\ 3979}#) - ((lambda (#{tmp\ 3981}#) - ((lambda (#{tmp\ 3982}#) - (if #{tmp\ 3982}# - (apply (lambda (#{_\ 3988}# - #{k\ 3989}# - #{keyword\ 3990}# - #{pattern\ 3991}# - #{template\ 3992}#) + (cons (lambda (#{x\ 13102}#) + ((lambda (#{tmp\ 13104}#) + ((lambda (#{tmp\ 13105}#) + (if #{tmp\ 13105}# + (apply (lambda (#{_\ 13111}# + #{k\ 13112}# + #{keyword\ 13113}# + #{pattern\ 13114}# + #{template\ 13115}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i3983" - "i3984" - "i3985" - "i3986" - "i3987")) + #("i13106" + "i13107" + "i13108" + "i13109" + "i13110")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i3980"))) + #(ribcage #(x) #((top)) #("i13103"))) (hygiene guile)) '(#(syntax-object x @@ -11757,13 +11795,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i3983" - "i3984" - "i3985" - "i3986" - "i3987")) + #("i13106" + "i13107" + "i13108" + "i13109" + "i13110")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i3980"))) + #(ribcage #(x) #((top)) #("i13103"))) (hygiene guile))) (cons '#(syntax-object syntax-case @@ -11771,16 +11809,16 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i3983" - "i3984" - "i3985" - "i3986" - "i3987")) + #("i13106" + "i13107" + "i13108" + "i13109" + "i13110")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3980"))) + #("i13103"))) (hygiene guile)) (cons '#(syntax-object x @@ -11796,20 +11834,20 @@ (top) (top) (top)) - #("i3983" - "i3984" - "i3985" - "i3986" - "i3987")) + #("i13106" + "i13107" + "i13108" + "i13109" + "i13110")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3980"))) + #("i13103"))) (hygiene guile)) - (cons #{k\ 3989}# - (map (lambda (#{tmp\ 3995}# - #{tmp\ 3994}#) + (cons #{k\ 13112}# + (map (lambda (#{tmp\ 13118}# + #{tmp\ 13117}#) (list (cons '#(syntax-object dummy ((top) @@ -11824,11 +11862,11 @@ (top) (top) (top)) - #("i3983" - "i3984" - "i3985" - "i3986" - "i3987")) + #("i13106" + "i13107" + "i13108" + "i13109" + "i13110")) #(ribcage () () @@ -11836,10 +11874,10 @@ #(ribcage #(x) #((top)) - #("i3980"))) + #("i13103"))) (hygiene guile)) - #{tmp\ 3994}#) + #{tmp\ 13117}#) (list '#(syntax-object syntax ((top) @@ -11854,11 +11892,11 @@ (top) (top) (top)) - #("i3983" - "i3984" - "i3985" - "i3986" - "i3987")) + #("i13106" + "i13107" + "i13108" + "i13109" + "i13110")) #(ribcage () () @@ -11866,47 +11904,47 @@ #(ribcage #(x) #((top)) - #("i3980"))) + #("i13103"))) (hygiene guile)) - #{tmp\ 3995}#))) - #{template\ 3992}# - #{pattern\ 3991}#)))))) - #{tmp\ 3982}#) + #{tmp\ 13118}#))) + #{template\ 13115}# + #{pattern\ 13114}#)))))) + #{tmp\ 13105}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3981}#))) + #{tmp\ 13104}#))) ($sc-dispatch - #{tmp\ 3981}# + #{tmp\ 13104}# '(any each-any . #(each ((any . any) any)))))) - #{x\ 3979}#)) + #{x\ 13102}#)) (module-name (current-module))))) (define let* - (make-extended-syncase-macro - (module-ref (current-module) (quote let*)) + (make-syntax-transformer + 'let* 'macro - (cons (lambda (#{x\ 3996}#) - ((lambda (#{tmp\ 3998}#) - ((lambda (#{tmp\ 3999}#) - (if (if #{tmp\ 3999}# - (apply (lambda (#{let*\ 4005}# - #{x\ 4006}# - #{v\ 4007}# - #{e1\ 4008}# - #{e2\ 4009}#) - (and-map identifier? #{x\ 4006}#)) - #{tmp\ 3999}#) + (cons (lambda (#{x\ 13119}#) + ((lambda (#{tmp\ 13121}#) + ((lambda (#{tmp\ 13122}#) + (if (if #{tmp\ 13122}# + (apply (lambda (#{let*\ 13128}# + #{x\ 13129}# + #{v\ 13130}# + #{e1\ 13131}# + #{e2\ 13132}#) + (and-map identifier? #{x\ 13129}#)) + #{tmp\ 13122}#) #f) - (apply (lambda (#{let*\ 4016}# - #{x\ 4017}# - #{v\ 4018}# - #{e1\ 4019}# - #{e2\ 4020}#) - (letrec ((#{f\ 4023}# - (lambda (#{bindings\ 4024}#) - (if (null? #{bindings\ 4024}#) + (apply (lambda (#{let*\ 13139}# + #{x\ 13140}# + #{v\ 13141}# + #{e1\ 13142}# + #{e2\ 13143}#) + (letrec ((#{f\ 13146}# + (lambda (#{bindings\ 13147}#) + (if (null? #{bindings\ 13147}#) (cons '#(syntax-object let ((top) @@ -11914,7 +11952,7 @@ #(ribcage #(f bindings) #((top) (top)) - #("i4021" "i4022")) + #("i13144" "i13145")) #(ribcage #(let* x v e1 e2) #((top) @@ -11922,25 +11960,25 @@ (top) (top) (top)) - #("i4011" - "i4012" - "i4013" - "i4014" - "i4015")) + #("i13134" + "i13135" + "i13136" + "i13137" + "i13138")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i3997"))) + #("i13120"))) (hygiene guile)) (cons '() - (cons #{e1\ 4019}# - #{e2\ 4020}#))) - ((lambda (#{tmp\ 4029}#) - ((lambda (#{tmp\ 4030}#) - (if #{tmp\ 4030}# - (apply (lambda (#{body\ 4033}# - #{binding\ 4034}#) + (cons #{e1\ 13142}# + #{e2\ 13143}#))) + ((lambda (#{tmp\ 13152}#) + ((lambda (#{tmp\ 13153}#) + (if #{tmp\ 13153}# + (apply (lambda (#{body\ 13156}# + #{binding\ 13157}#) (list '#(syntax-object let ((top) @@ -11949,8 +11987,8 @@ binding) #((top) (top)) - #("i4031" - "i4032")) + #("i13154" + "i13155")) #(ribcage () () @@ -11960,8 +11998,8 @@ bindings) #((top) (top)) - #("i4021" - "i4022")) + #("i13144" + "i13145")) #(ribcage #(let* x @@ -11973,11 +12011,11 @@ (top) (top) (top)) - #("i4011" - "i4012" - "i4013" - "i4014" - "i4015")) + #("i13134" + "i13135" + "i13136" + "i13137" + "i13138")) #(ribcage () () @@ -11985,56 +12023,57 @@ #(ribcage #(x) #((top)) - #("i3997"))) + #("i13120"))) (hygiene guile)) - (list #{binding\ 4034}#) - #{body\ 4033}#)) - #{tmp\ 4030}#) + (list #{binding\ 13157}#) + #{body\ 13156}#)) + #{tmp\ 13153}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4029}#))) + #{tmp\ 13152}#))) ($sc-dispatch - #{tmp\ 4029}# + #{tmp\ 13152}# '(any any)))) - (list (#{f\ 4023}# - (cdr #{bindings\ 4024}#)) - (car #{bindings\ 4024}#))))))) - (#{f\ 4023}# - (map list #{x\ 4017}# #{v\ 4018}#)))) - #{tmp\ 3999}#) + (list (#{f\ 13146}# + (cdr #{bindings\ 13147}#)) + (car #{bindings\ 13147}#))))))) + (#{f\ 13146}# + (map list #{x\ 13140}# #{v\ 13141}#)))) + #{tmp\ 13122}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3998}#))) + #{tmp\ 13121}#))) ($sc-dispatch - #{tmp\ 3998}# + #{tmp\ 13121}# '(any #(each (any any)) any . each-any)))) - #{x\ 3996}#)) + #{x\ 13119}#)) (module-name (current-module))))) (define do - (make-syncase-macro + (make-syntax-transformer + 'do 'macro - (cons (lambda (#{orig-x\ 4035}#) - ((lambda (#{tmp\ 4037}#) - ((lambda (#{tmp\ 4038}#) - (if #{tmp\ 4038}# - (apply (lambda (#{_\ 4046}# - #{var\ 4047}# - #{init\ 4048}# - #{step\ 4049}# - #{e0\ 4050}# - #{e1\ 4051}# - #{c\ 4052}#) - ((lambda (#{tmp\ 4054}#) - ((lambda (#{tmp\ 4055}#) - (if #{tmp\ 4055}# - (apply (lambda (#{step\ 4057}#) - ((lambda (#{tmp\ 4058}#) - ((lambda (#{tmp\ 4059}#) - (if #{tmp\ 4059}# + (cons (lambda (#{orig-x\ 13158}#) + ((lambda (#{tmp\ 13160}#) + ((lambda (#{tmp\ 13161}#) + (if #{tmp\ 13161}# + (apply (lambda (#{_\ 13169}# + #{var\ 13170}# + #{init\ 13171}# + #{step\ 13172}# + #{e0\ 13173}# + #{e1\ 13174}# + #{c\ 13175}#) + ((lambda (#{tmp\ 13177}#) + ((lambda (#{tmp\ 13178}#) + (if #{tmp\ 13178}# + (apply (lambda (#{step\ 13180}#) + ((lambda (#{tmp\ 13181}#) + ((lambda (#{tmp\ 13182}#) + (if #{tmp\ 13182}# (apply (lambda () (list '#(syntax-object let @@ -12042,7 +12081,7 @@ #(ribcage #(step) #((top)) - #("i4056")) + #("i13179")) #(ribcage #(_ var @@ -12058,13 +12097,13 @@ (top) (top) (top)) - #("i4039" - "i4040" - "i4041" - "i4042" - "i4043" - "i4044" - "i4045")) + #("i13162" + "i13163" + "i13164" + "i13165" + "i13166" + "i13167" + "i13168")) #(ribcage () () @@ -12072,7 +12111,7 @@ #(ribcage #(orig-x) #((top)) - #("i4036"))) + #("i13159"))) (hygiene guile)) '#(syntax-object @@ -12081,7 +12120,7 @@ #(ribcage #(step) #((top)) - #("i4056")) + #("i13179")) #(ribcage #(_ var @@ -12097,13 +12136,13 @@ (top) (top) (top)) - #("i4039" - "i4040" - "i4041" - "i4042" - "i4043" - "i4044" - "i4045")) + #("i13162" + "i13163" + "i13164" + "i13165" + "i13166" + "i13167" + "i13168")) #(ribcage () () @@ -12111,19 +12150,19 @@ #(ribcage #(orig-x) #((top)) - #("i4036"))) + #("i13159"))) (hygiene guile)) (map list - #{var\ 4047}# - #{init\ 4048}#) + #{var\ 13170}# + #{init\ 13171}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) - #("i4056")) + #("i13179")) #(ribcage #(_ var @@ -12139,13 +12178,13 @@ (top) (top) (top)) - #("i4039" - "i4040" - "i4041" - "i4042" - "i4043" - "i4044" - "i4045")) + #("i13162" + "i13163" + "i13164" + "i13165" + "i13166" + "i13167" + "i13168")) #(ribcage () () @@ -12153,7 +12192,7 @@ #(ribcage #(orig-x) #((top)) - #("i4036"))) + #("i13159"))) (hygiene guile)) (list '#(syntax-object @@ -12162,7 +12201,7 @@ #(ribcage #(step) #((top)) - #("i4056")) + #("i13179")) #(ribcage #(_ var @@ -12178,13 +12217,13 @@ (top) (top) (top)) - #("i4039" - "i4040" - "i4041" - "i4042" - "i4043" - "i4044" - "i4045")) + #("i13162" + "i13163" + "i13164" + "i13165" + "i13166" + "i13167" + "i13168")) #(ribcage () () @@ -12192,17 +12231,17 @@ #(ribcage #(orig-x) #((top)) - #("i4036"))) + #("i13159"))) (hygiene guile)) - #{e0\ 4050}#) + #{e0\ 13173}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) - #("i4056")) + #("i13179")) #(ribcage #(_ var @@ -12218,13 +12257,13 @@ (top) (top) (top)) - #("i4039" - "i4040" - "i4041" - "i4042" - "i4043" - "i4044" - "i4045")) + #("i13162" + "i13163" + "i13164" + "i13165" + "i13166" + "i13167" + "i13168")) #(ribcage () () @@ -12232,18 +12271,18 @@ #(ribcage #(orig-x) #((top)) - #("i4036"))) + #("i13159"))) (hygiene guile)) (append - #{c\ 4052}# + #{c\ 13175}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) - #("i4056")) + #("i13179")) #(ribcage #(_ var @@ -12259,13 +12298,13 @@ (top) (top) (top)) - #("i4039" - "i4040" - "i4041" - "i4042" - "i4043" - "i4044" - "i4045")) + #("i13162" + "i13163" + "i13164" + "i13165" + "i13166" + "i13167" + "i13168")) #(ribcage () () @@ -12273,15 +12312,15 @@ #(ribcage #(orig-x) #((top)) - #("i4036"))) + #("i13159"))) (hygiene guile)) - #{step\ 4057}#))))))) - #{tmp\ 4059}#) - ((lambda (#{tmp\ 4064}#) - (if #{tmp\ 4064}# - (apply (lambda (#{e1\ 4067}# - #{e2\ 4068}#) + #{step\ 13180}#))))))) + #{tmp\ 13182}#) + ((lambda (#{tmp\ 13187}#) + (if #{tmp\ 13187}# + (apply (lambda (#{e1\ 13190}# + #{e2\ 13191}#) (list '#(syntax-object let ((top) @@ -12290,12 +12329,12 @@ e2) #((top) (top)) - #("i4065" - "i4066")) + #("i13188" + "i13189")) #(ribcage #(step) #((top)) - #("i4056")) + #("i13179")) #(ribcage #(_ var @@ -12311,13 +12350,13 @@ (top) (top) (top)) - #("i4039" - "i4040" - "i4041" - "i4042" - "i4043" - "i4044" - "i4045")) + #("i13162" + "i13163" + "i13164" + "i13165" + "i13166" + "i13167" + "i13168")) #(ribcage () () @@ -12325,7 +12364,7 @@ #(ribcage #(orig-x) #((top)) - #("i4036"))) + #("i13159"))) (hygiene guile)) '#(syntax-object @@ -12336,12 +12375,12 @@ e2) #((top) (top)) - #("i4065" - "i4066")) + #("i13188" + "i13189")) #(ribcage #(step) #((top)) - #("i4056")) + #("i13179")) #(ribcage #(_ var @@ -12357,13 +12396,13 @@ (top) (top) (top)) - #("i4039" - "i4040" - "i4041" - "i4042" - "i4043" - "i4044" - "i4045")) + #("i13162" + "i13163" + "i13164" + "i13165" + "i13166" + "i13167" + "i13168")) #(ribcage () () @@ -12371,12 +12410,12 @@ #(ribcage #(orig-x) #((top)) - #("i4036"))) + #("i13159"))) (hygiene guile)) (map list - #{var\ 4047}# - #{init\ 4048}#) + #{var\ 13170}# + #{init\ 13171}#) (list '#(syntax-object if ((top) @@ -12385,12 +12424,12 @@ e2) #((top) (top)) - #("i4065" - "i4066")) + #("i13188" + "i13189")) #(ribcage #(step) #((top)) - #("i4056")) + #("i13179")) #(ribcage #(_ var @@ -12406,13 +12445,13 @@ (top) (top) (top)) - #("i4039" - "i4040" - "i4041" - "i4042" - "i4043" - "i4044" - "i4045")) + #("i13162" + "i13163" + "i13164" + "i13165" + "i13166" + "i13167" + "i13168")) #(ribcage () () @@ -12420,10 +12459,10 @@ #(ribcage #(orig-x) #((top)) - #("i4036"))) + #("i13159"))) (hygiene guile)) - #{e0\ 4050}# + #{e0\ 13173}# (cons '#(syntax-object begin ((top) @@ -12432,12 +12471,12 @@ e2) #((top) (top)) - #("i4065" - "i4066")) + #("i13188" + "i13189")) #(ribcage #(step) #((top)) - #("i4056")) + #("i13179")) #(ribcage #(_ var @@ -12453,13 +12492,13 @@ (top) (top) (top)) - #("i4039" - "i4040" - "i4041" - "i4042" - "i4043" - "i4044" - "i4045")) + #("i13162" + "i13163" + "i13164" + "i13165" + "i13166" + "i13167" + "i13168")) #(ribcage () () @@ -12467,11 +12506,11 @@ #(ribcage #(orig-x) #((top)) - #("i4036"))) + #("i13159"))) (hygiene guile)) - (cons #{e1\ 4067}# - #{e2\ 4068}#)) + (cons #{e1\ 13190}# + #{e2\ 13191}#)) (cons '#(syntax-object begin ((top) @@ -12480,12 +12519,12 @@ e2) #((top) (top)) - #("i4065" - "i4066")) + #("i13188" + "i13189")) #(ribcage #(step) #((top)) - #("i4056")) + #("i13179")) #(ribcage #(_ var @@ -12501,13 +12540,13 @@ (top) (top) (top)) - #("i4039" - "i4040" - "i4041" - "i4042" - "i4043" - "i4044" - "i4045")) + #("i13162" + "i13163" + "i13164" + "i13165" + "i13166" + "i13167" + "i13168")) #(ribcage () () @@ -12515,11 +12554,11 @@ #(ribcage #(orig-x) #((top)) - #("i4036"))) + #("i13159"))) (hygiene guile)) (append - #{c\ 4052}# + #{c\ 13175}# (list (cons '#(syntax-object doloop ((top) @@ -12528,12 +12567,12 @@ e2) #((top) (top)) - #("i4065" - "i4066")) + #("i13188" + "i13189")) #(ribcage #(step) #((top)) - #("i4056")) + #("i13179")) #(ribcage #(_ var @@ -12549,13 +12588,13 @@ (top) (top) (top)) - #("i4039" - "i4040" - "i4041" - "i4042" - "i4043" - "i4044" - "i4045")) + #("i13162" + "i13163" + "i13164" + "i13165" + "i13166" + "i13167" + "i13168")) #(ribcage () () @@ -12563,106 +12602,107 @@ #(ribcage #(orig-x) #((top)) - #("i4036"))) + #("i13159"))) (hygiene guile)) - #{step\ 4057}#))))))) - #{tmp\ 4064}#) + #{step\ 13180}#))))))) + #{tmp\ 13187}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4058}#))) + #{tmp\ 13181}#))) ($sc-dispatch - #{tmp\ 4058}# + #{tmp\ 13181}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 4058}# + #{tmp\ 13181}# '()))) - #{e1\ 4051}#)) - #{tmp\ 4055}#) + #{e1\ 13174}#)) + #{tmp\ 13178}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4054}#))) + #{tmp\ 13177}#))) ($sc-dispatch - #{tmp\ 4054}# + #{tmp\ 13177}# 'each-any))) - (map (lambda (#{v\ 4075}# #{s\ 4076}#) - ((lambda (#{tmp\ 4079}#) - ((lambda (#{tmp\ 4080}#) - (if #{tmp\ 4080}# - (apply (lambda () #{v\ 4075}#) - #{tmp\ 4080}#) - ((lambda (#{tmp\ 4081}#) - (if #{tmp\ 4081}# - (apply (lambda (#{e\ 4083}#) - #{e\ 4083}#) - #{tmp\ 4081}#) - ((lambda (#{_\ 4085}#) + (map (lambda (#{v\ 13198}# #{s\ 13199}#) + ((lambda (#{tmp\ 13202}#) + ((lambda (#{tmp\ 13203}#) + (if #{tmp\ 13203}# + (apply (lambda () #{v\ 13198}#) + #{tmp\ 13203}#) + ((lambda (#{tmp\ 13204}#) + (if #{tmp\ 13204}# + (apply (lambda (#{e\ 13206}#) + #{e\ 13206}#) + #{tmp\ 13204}#) + ((lambda (#{_\ 13208}#) (syntax-violation 'do "bad step expression" - #{orig-x\ 4035}# - #{s\ 4076}#)) - #{tmp\ 4079}#))) + #{orig-x\ 13158}# + #{s\ 13199}#)) + #{tmp\ 13202}#))) ($sc-dispatch - #{tmp\ 4079}# + #{tmp\ 13202}# '(any))))) ($sc-dispatch - #{tmp\ 4079}# + #{tmp\ 13202}# '()))) - #{s\ 4076}#)) - #{var\ 4047}# - #{step\ 4049}#))) - #{tmp\ 4038}#) + #{s\ 13199}#)) + #{var\ 13170}# + #{step\ 13172}#))) + #{tmp\ 13161}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4037}#))) + #{tmp\ 13160}#))) ($sc-dispatch - #{tmp\ 4037}# + #{tmp\ 13160}# '(any #(each (any any . any)) (any . each-any) . each-any)))) - #{orig-x\ 4035}#)) + #{orig-x\ 13158}#)) (module-name (current-module))))) (define quasiquote - (make-syncase-macro + (make-syntax-transformer + 'quasiquote 'macro - (cons (letrec ((#{quasicons\ 4092}# - (lambda (#{x\ 4096}# #{y\ 4097}#) - ((lambda (#{tmp\ 4101}#) - ((lambda (#{tmp\ 4102}#) - (if #{tmp\ 4102}# - (apply (lambda (#{x\ 4105}# #{y\ 4106}#) - ((lambda (#{tmp\ 4107}#) - ((lambda (#{tmp\ 4108}#) - (if #{tmp\ 4108}# - (apply (lambda (#{dy\ 4110}#) - ((lambda (#{tmp\ 4111}#) - ((lambda (#{tmp\ 4112}#) - (if #{tmp\ 4112}# - (apply (lambda (#{dx\ 4114}#) + (cons (letrec ((#{quasicons\ 13215}# + (lambda (#{x\ 13219}# #{y\ 13220}#) + ((lambda (#{tmp\ 13224}#) + ((lambda (#{tmp\ 13225}#) + (if #{tmp\ 13225}# + (apply (lambda (#{x\ 13228}# #{y\ 13229}#) + ((lambda (#{tmp\ 13230}#) + ((lambda (#{tmp\ 13231}#) + (if #{tmp\ 13231}# + (apply (lambda (#{dy\ 13233}#) + ((lambda (#{tmp\ 13234}#) + ((lambda (#{tmp\ 13235}#) + (if #{tmp\ 13235}# + (apply (lambda (#{dx\ 13237}#) (list '#(syntax-object quote ((top) #(ribcage #(dx) #((top)) - #("i4113")) + #("i13236")) #(ribcage #(dy) #((top)) - #("i4109")) + #("i13232")) #(ribcage #(x y) #((top) (top)) - #("i4103" - "i4104")) + #("i13226" + "i13227")) #(ribcage () () @@ -12676,8 +12716,8 @@ y) #((top) (top)) - #("i4098" - "i4099")) + #("i13221" + "i13222")) #(ribcage #(quasicons quasiappend @@ -12687,35 +12727,35 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile)) - (cons #{dx\ 4114}# - #{dy\ 4110}#))) - #{tmp\ 4112}#) - ((lambda (#{_\ 4116}#) - (if (null? #{dy\ 4110}#) + (cons #{dx\ 13237}# + #{dy\ 13233}#))) + #{tmp\ 13235}#) + ((lambda (#{_\ 13239}#) + (if (null? #{dy\ 13233}#) (list '#(syntax-object list ((top) #(ribcage #(_) #((top)) - #("i4115")) + #("i13238")) #(ribcage #(dy) #((top)) - #("i4109")) + #("i13232")) #(ribcage #(x y) #((top) (top)) - #("i4103" - "i4104")) + #("i13226" + "i13227")) #(ribcage () () @@ -12729,8 +12769,8 @@ y) #((top) (top)) - #("i4098" - "i4099")) + #("i13221" + "i13222")) #(ribcage #(quasicons quasiappend @@ -12740,31 +12780,31 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile)) - #{x\ 4105}#) + #{x\ 13228}#) (list '#(syntax-object cons ((top) #(ribcage #(_) #((top)) - #("i4115")) + #("i13238")) #(ribcage #(dy) #((top)) - #("i4109")) + #("i13232")) #(ribcage #(x y) #((top) (top)) - #("i4103" - "i4104")) + #("i13226" + "i13227")) #(ribcage () () @@ -12778,8 +12818,8 @@ y) #((top) (top)) - #("i4098" - "i4099")) + #("i13221" + "i13222")) #(ribcage #(quasicons quasiappend @@ -12789,17 +12829,17 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile)) - #{x\ 4105}# - #{y\ 4106}#))) - #{tmp\ 4111}#))) + #{x\ 13228}# + #{y\ 13229}#))) + #{tmp\ 13234}#))) ($sc-dispatch - #{tmp\ 4111}# + #{tmp\ 13234}# '(#(free-id #(syntax-object quote @@ -12807,13 +12847,13 @@ #(ribcage #(dy) #((top)) - #("i4109")) + #("i13232")) #(ribcage #(x y) #((top) (top)) - #("i4103" - "i4104")) + #("i13226" + "i13227")) #(ribcage () () @@ -12826,8 +12866,8 @@ #(x y) #((top) (top)) - #("i4098" - "i4099")) + #("i13221" + "i13222")) #(ribcage #(quasicons quasiappend @@ -12837,32 +12877,32 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile))) any)))) - #{x\ 4105}#)) - #{tmp\ 4108}#) - ((lambda (#{tmp\ 4117}#) - (if #{tmp\ 4117}# - (apply (lambda (#{stuff\ 4119}#) + #{x\ 13228}#)) + #{tmp\ 13231}#) + ((lambda (#{tmp\ 13240}#) + (if #{tmp\ 13240}# + (apply (lambda (#{stuff\ 13242}#) (cons '#(syntax-object list ((top) #(ribcage #(stuff) #((top)) - #("i4118")) + #("i13241")) #(ribcage #(x y) #((top) (top)) - #("i4103" - "i4104")) + #("i13226" + "i13227")) #(ribcage () () @@ -12876,8 +12916,8 @@ y) #((top) (top)) - #("i4098" - "i4099")) + #("i13221" + "i13222")) #(ribcage #(quasicons quasiappend @@ -12887,29 +12927,29 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile)) - (cons #{x\ 4105}# - #{stuff\ 4119}#))) - #{tmp\ 4117}#) - ((lambda (#{else\ 4121}#) + (cons #{x\ 13228}# + #{stuff\ 13242}#))) + #{tmp\ 13240}#) + ((lambda (#{else\ 13244}#) (list '#(syntax-object cons ((top) #(ribcage #(else) #((top)) - #("i4120")) + #("i13243")) #(ribcage #(x y) #((top) (top)) - #("i4103" - "i4104")) + #("i13226" + "i13227")) #(ribcage () () @@ -12922,8 +12962,8 @@ #(x y) #((top) (top)) - #("i4098" - "i4099")) + #("i13221" + "i13222")) #(ribcage #(quasicons quasiappend @@ -12933,17 +12973,17 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile)) - #{x\ 4105}# - #{y\ 4106}#)) - #{tmp\ 4107}#))) + #{x\ 13228}# + #{y\ 13229}#)) + #{tmp\ 13230}#))) ($sc-dispatch - #{tmp\ 4107}# + #{tmp\ 13230}# '(#(free-id #(syntax-object list @@ -12951,13 +12991,15 @@ #(ribcage #(x y) #((top) (top)) - #("i4103" "i4104")) + #("i13226" + "i13227")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4098" "i4099")) + #("i13221" + "i13222")) #(ribcage #(quasicons quasiappend @@ -12967,15 +13009,15 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 4107}# + #{tmp\ 13230}# '(#(free-id #(syntax-object quote @@ -12983,13 +13025,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4103" "i4104")) + #("i13226" "i13227")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4098" "i4099")) + #("i13221" "i13222")) #(ribcage #(quasicons quasiappend @@ -12999,44 +13041,44 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile))) any)))) - #{y\ 4106}#)) - #{tmp\ 4102}#) + #{y\ 13229}#)) + #{tmp\ 13225}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4101}#))) - ($sc-dispatch #{tmp\ 4101}# (quote (any any))))) - (list #{x\ 4096}# #{y\ 4097}#)))) - (#{quasiappend\ 4093}# - (lambda (#{x\ 4122}# #{y\ 4123}#) - ((lambda (#{tmp\ 4127}#) - ((lambda (#{tmp\ 4128}#) - (if #{tmp\ 4128}# - (apply (lambda (#{x\ 4131}# #{y\ 4132}#) - ((lambda (#{tmp\ 4133}#) - ((lambda (#{tmp\ 4134}#) - (if #{tmp\ 4134}# - (apply (lambda () #{x\ 4131}#) - #{tmp\ 4134}#) - ((lambda (#{_\ 4136}#) + #{tmp\ 13224}#))) + ($sc-dispatch #{tmp\ 13224}# (quote (any any))))) + (list #{x\ 13219}# #{y\ 13220}#)))) + (#{quasiappend\ 13216}# + (lambda (#{x\ 13245}# #{y\ 13246}#) + ((lambda (#{tmp\ 13250}#) + ((lambda (#{tmp\ 13251}#) + (if #{tmp\ 13251}# + (apply (lambda (#{x\ 13254}# #{y\ 13255}#) + ((lambda (#{tmp\ 13256}#) + ((lambda (#{tmp\ 13257}#) + (if #{tmp\ 13257}# + (apply (lambda () #{x\ 13254}#) + #{tmp\ 13257}#) + ((lambda (#{_\ 13259}#) (list '#(syntax-object append ((top) #(ribcage #(_) #((top)) - #("i4135")) + #("i13258")) #(ribcage #(x y) #((top) (top)) - #("i4129" - "i4130")) + #("i13252" + "i13253")) #(ribcage () () @@ -13048,8 +13090,8 @@ #(ribcage #(x y) #((top) (top)) - #("i4124" - "i4125")) + #("i13247" + "i13248")) #(ribcage #(quasicons quasiappend @@ -13059,16 +13101,16 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile)) - #{x\ 4131}# - #{y\ 4132}#)) - #{tmp\ 4133}#))) + #{x\ 13254}# + #{y\ 13255}#)) + #{tmp\ 13256}#))) ($sc-dispatch - #{tmp\ 4133}# + #{tmp\ 13256}# '(#(free-id #(syntax-object quote @@ -13076,13 +13118,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4129" "i4130")) + #("i13252" "i13253")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4124" "i4125")) + #("i13247" "i13248")) #(ribcage #(quasicons quasiappend @@ -13092,45 +13134,45 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile))) ())))) - #{y\ 4132}#)) - #{tmp\ 4128}#) + #{y\ 13255}#)) + #{tmp\ 13251}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4127}#))) - ($sc-dispatch #{tmp\ 4127}# (quote (any any))))) - (list #{x\ 4122}# #{y\ 4123}#)))) - (#{quasivector\ 4094}# - (lambda (#{x\ 4137}#) - ((lambda (#{tmp\ 4140}#) - ((lambda (#{x\ 4142}#) - ((lambda (#{tmp\ 4143}#) - ((lambda (#{tmp\ 4144}#) - (if #{tmp\ 4144}# - (apply (lambda (#{x\ 4146}#) + #{tmp\ 13250}#))) + ($sc-dispatch #{tmp\ 13250}# (quote (any any))))) + (list #{x\ 13245}# #{y\ 13246}#)))) + (#{quasivector\ 13217}# + (lambda (#{x\ 13260}#) + ((lambda (#{tmp\ 13263}#) + ((lambda (#{x\ 13265}#) + ((lambda (#{tmp\ 13266}#) + ((lambda (#{tmp\ 13267}#) + (if #{tmp\ 13267}# + (apply (lambda (#{x\ 13269}#) (list '#(syntax-object quote ((top) #(ribcage #(x) #((top)) - #("i4145")) + #("i13268")) #(ribcage #(x) #((top)) - #("i4141")) + #("i13264")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4138")) + #("i13261")) #(ribcage #(quasicons quasiappend @@ -13140,28 +13182,28 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile)) (list->vector - #{x\ 4146}#))) - #{tmp\ 4144}#) - ((lambda (#{tmp\ 4148}#) - (if #{tmp\ 4148}# - (apply (lambda (#{x\ 4150}#) + #{x\ 13269}#))) + #{tmp\ 13267}#) + ((lambda (#{tmp\ 13271}#) + (if #{tmp\ 13271}# + (apply (lambda (#{x\ 13273}#) (cons '#(syntax-object vector ((top) #(ribcage #(x) #((top)) - #("i4149")) + #("i13272")) #(ribcage #(x) #((top)) - #("i4141")) + #("i13264")) #(ribcage () () @@ -13173,7 +13215,7 @@ #(ribcage #(x) #((top)) - #("i4138")) + #("i13261")) #(ribcage #(quasicons quasiappend @@ -13183,31 +13225,31 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile)) - #{x\ 4150}#)) - #{tmp\ 4148}#) - ((lambda (#{_\ 4153}#) + #{x\ 13273}#)) + #{tmp\ 13271}#) + ((lambda (#{_\ 13276}#) (list '#(syntax-object list->vector ((top) #(ribcage #(_) #((top)) - #("i4152")) + #("i13275")) #(ribcage #(x) #((top)) - #("i4141")) + #("i13264")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4138")) + #("i13261")) #(ribcage #(quasicons quasiappend @@ -13217,15 +13259,15 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile)) - #{x\ 4142}#)) - #{tmp\ 4143}#))) + #{x\ 13265}#)) + #{tmp\ 13266}#))) ($sc-dispatch - #{tmp\ 4143}# + #{tmp\ 13266}# '(#(free-id #(syntax-object list @@ -13233,82 +13275,82 @@ #(ribcage #(x) #((top)) - #("i4141")) + #("i13264")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4138")) + #("i13261")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile))) . each-any))))) ($sc-dispatch - #{tmp\ 4143}# + #{tmp\ 13266}# '(#(free-id #(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i4141")) + #(ribcage #(x) #((top)) #("i13264")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4138")) + #(ribcage #(x) #((top)) #("i13261")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile))) each-any)))) - #{x\ 4142}#)) - #{tmp\ 4140}#)) - #{x\ 4137}#))) - (#{quasi\ 4095}# - (lambda (#{p\ 4154}# #{lev\ 4155}#) - ((lambda (#{tmp\ 4158}#) - ((lambda (#{tmp\ 4159}#) - (if #{tmp\ 4159}# - (apply (lambda (#{p\ 4161}#) - (if (= #{lev\ 4155}# 0) - #{p\ 4161}# - (#{quasicons\ 4092}# + #{x\ 13265}#)) + #{tmp\ 13263}#)) + #{x\ 13260}#))) + (#{quasi\ 13218}# + (lambda (#{p\ 13277}# #{lev\ 13278}#) + ((lambda (#{tmp\ 13281}#) + ((lambda (#{tmp\ 13282}#) + (if #{tmp\ 13282}# + (apply (lambda (#{p\ 13284}#) + (if (= #{lev\ 13278}# 0) + #{p\ 13284}# + (#{quasicons\ 13215}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4160")) + #("i13283")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4156" "i4157")) + #("i13279" "i13280")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile)) #(syntax-object unquote @@ -13316,50 +13358,51 @@ #(ribcage #(p) #((top)) - #("i4160")) + #("i13283")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4156" "i4157")) + #("i13279" "i13280")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile))) - (#{quasi\ 4095}# - (list #{p\ 4161}#) - (- #{lev\ 4155}# 1))))) - #{tmp\ 4159}#) - ((lambda (#{tmp\ 4162}#) - (if (if #{tmp\ 4162}# - (apply (lambda (#{args\ 4164}#) - (= #{lev\ 4155}# 0)) - #{tmp\ 4162}#) + (#{quasi\ 13218}# + (list #{p\ 13284}#) + (- #{lev\ 13278}# 1))))) + #{tmp\ 13282}#) + ((lambda (#{tmp\ 13285}#) + (if (if #{tmp\ 13285}# + (apply (lambda (#{args\ 13287}#) + (= #{lev\ 13278}# 0)) + #{tmp\ 13285}#) #f) - (apply (lambda (#{args\ 4166}#) + (apply (lambda (#{args\ 13289}#) (syntax-violation 'unquote "unquote takes exactly one argument" - #{p\ 4154}# + #{p\ 13277}# (cons '#(syntax-object unquote ((top) #(ribcage #(args) #((top)) - #("i4165")) + #("i13288")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4156" "i4157")) + #("i13279" + "i13280")) #(ribcage #(quasicons quasiappend @@ -13369,33 +13412,33 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile)) - #{args\ 4166}#))) - #{tmp\ 4162}#) - ((lambda (#{tmp\ 4167}#) - (if #{tmp\ 4167}# - (apply (lambda (#{p\ 4170}# - #{q\ 4171}#) - (if (= #{lev\ 4155}# 0) - (#{quasiappend\ 4093}# - #{p\ 4170}# - (#{quasi\ 4095}# - #{q\ 4171}# - #{lev\ 4155}#)) - (#{quasicons\ 4092}# - (#{quasicons\ 4092}# + #{args\ 13289}#))) + #{tmp\ 13285}#) + ((lambda (#{tmp\ 13290}#) + (if #{tmp\ 13290}# + (apply (lambda (#{p\ 13293}# + #{q\ 13294}#) + (if (= #{lev\ 13278}# 0) + (#{quasiappend\ 13216}# + #{p\ 13293}# + (#{quasi\ 13218}# + #{q\ 13294}# + #{lev\ 13278}#)) + (#{quasicons\ 13215}# + (#{quasicons\ 13215}# '(#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) - #("i4168" - "i4169")) + #("i13291" + "i13292")) #(ribcage () () @@ -13403,8 +13446,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i4156" - "i4157")) + #("i13279" + "i13280")) #(ribcage #(quasicons quasiappend @@ -13414,10 +13457,10 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -13425,8 +13468,8 @@ #(ribcage #(p q) #((top) (top)) - #("i4168" - "i4169")) + #("i13291" + "i13292")) #(ribcage () () @@ -13434,8 +13477,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i4156" - "i4157")) + #("i13279" + "i13280")) #(ribcage #(quasicons quasiappend @@ -13445,31 +13488,33 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile))) - (#{quasi\ 4095}# - (list #{p\ 4170}#) - (- #{lev\ 4155}# 1))) - (#{quasi\ 4095}# - #{q\ 4171}# - #{lev\ 4155}#)))) - #{tmp\ 4167}#) - ((lambda (#{tmp\ 4172}#) - (if (if #{tmp\ 4172}# - (apply (lambda (#{args\ 4175}# - #{q\ 4176}#) - (= #{lev\ 4155}# 0)) - #{tmp\ 4172}#) + (#{quasi\ 13218}# + (list #{p\ 13293}#) + (- #{lev\ 13278}# + 1))) + (#{quasi\ 13218}# + #{q\ 13294}# + #{lev\ 13278}#)))) + #{tmp\ 13290}#) + ((lambda (#{tmp\ 13295}#) + (if (if #{tmp\ 13295}# + (apply (lambda (#{args\ 13298}# + #{q\ 13299}#) + (= #{lev\ 13278}# + 0)) + #{tmp\ 13295}#) #f) - (apply (lambda (#{args\ 4179}# - #{q\ 4180}#) + (apply (lambda (#{args\ 13302}# + #{q\ 13303}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" - #{p\ 4154}# + #{p\ 13277}# (cons '#(syntax-object unquote-splicing ((top) @@ -13477,8 +13522,8 @@ #(args q) #((top) (top)) - #("i4177" - "i4178")) + #("i13300" + "i13301")) #(ribcage () () @@ -13487,8 +13532,8 @@ #(p lev) #((top) (top)) - #("i4156" - "i4157")) + #("i13279" + "i13280")) #(ribcage #(quasicons quasiappend @@ -13498,25 +13543,25 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile)) - #{args\ 4179}#))) - #{tmp\ 4172}#) - ((lambda (#{tmp\ 4181}#) - (if #{tmp\ 4181}# - (apply (lambda (#{p\ 4183}#) - (#{quasicons\ 4092}# + #{args\ 13302}#))) + #{tmp\ 13295}#) + ((lambda (#{tmp\ 13304}#) + (if #{tmp\ 13304}# + (apply (lambda (#{p\ 13306}#) + (#{quasicons\ 13215}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4182")) + #("i13305")) #(ribcage () () @@ -13525,8 +13570,8 @@ #(p lev) #((top) (top)) - #("i4156" - "i4157")) + #("i13279" + "i13280")) #(ribcage #(quasicons quasiappend @@ -13536,10 +13581,10 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile)) #(syntax-object @@ -13548,7 +13593,7 @@ #(ribcage #(p) #((top)) - #("i4182")) + #("i13305")) #(ribcage () () @@ -13557,8 +13602,8 @@ #(p lev) #((top) (top)) - #("i4156" - "i4157")) + #("i13279" + "i13280")) #(ribcage #(quasicons quasiappend @@ -13568,45 +13613,45 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile))) - (#{quasi\ 4095}# - (list #{p\ 4183}#) - (+ #{lev\ 4155}# + (#{quasi\ 13218}# + (list #{p\ 13306}#) + (+ #{lev\ 13278}# 1)))) - #{tmp\ 4181}#) - ((lambda (#{tmp\ 4184}#) - (if #{tmp\ 4184}# - (apply (lambda (#{p\ 4187}# - #{q\ 4188}#) - (#{quasicons\ 4092}# - (#{quasi\ 4095}# - #{p\ 4187}# - #{lev\ 4155}#) - (#{quasi\ 4095}# - #{q\ 4188}# - #{lev\ 4155}#))) - #{tmp\ 4184}#) - ((lambda (#{tmp\ 4189}#) - (if #{tmp\ 4189}# - (apply (lambda (#{x\ 4191}#) - (#{quasivector\ 4094}# - (#{quasi\ 4095}# - #{x\ 4191}# - #{lev\ 4155}#))) - #{tmp\ 4189}#) - ((lambda (#{p\ 4194}#) + #{tmp\ 13304}#) + ((lambda (#{tmp\ 13307}#) + (if #{tmp\ 13307}# + (apply (lambda (#{p\ 13310}# + #{q\ 13311}#) + (#{quasicons\ 13215}# + (#{quasi\ 13218}# + #{p\ 13310}# + #{lev\ 13278}#) + (#{quasi\ 13218}# + #{q\ 13311}# + #{lev\ 13278}#))) + #{tmp\ 13307}#) + ((lambda (#{tmp\ 13312}#) + (if #{tmp\ 13312}# + (apply (lambda (#{x\ 13314}#) + (#{quasivector\ 13217}# + (#{quasi\ 13218}# + #{x\ 13314}# + #{lev\ 13278}#))) + #{tmp\ 13312}#) + ((lambda (#{p\ 13317}#) (list '#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4193")) + #("i13316")) #(ribcage () () @@ -13616,8 +13661,8 @@ lev) #((top) (top)) - #("i4156" - "i4157")) + #("i13279" + "i13280")) #(ribcage #(quasicons quasiappend @@ -13627,23 +13672,23 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile)) - #{p\ 4194}#)) - #{tmp\ 4158}#))) + #{p\ 13317}#)) + #{tmp\ 13281}#))) ($sc-dispatch - #{tmp\ 4158}# + #{tmp\ 13281}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 4158}# + #{tmp\ 13281}# '(any . any))))) ($sc-dispatch - #{tmp\ 4158}# + #{tmp\ 13281}# '(#(free-id #(syntax-object quasiquote @@ -13652,7 +13697,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4156" "i4157")) + #("i13279" "i13280")) #(ribcage #(quasicons quasiappend @@ -13662,14 +13707,14 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile))) any))))) ($sc-dispatch - #{tmp\ 4158}# + #{tmp\ 13281}# '((#(free-id #(syntax-object unquote-splicing @@ -13678,7 +13723,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4156" "i4157")) + #("i13279" "i13280")) #(ribcage #(quasicons quasiappend @@ -13688,17 +13733,17 @@ (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile))) . any) . any))))) ($sc-dispatch - #{tmp\ 4158}# + #{tmp\ 13281}# '((#(free-id #(syntax-object unquote-splicing @@ -13707,23 +13752,23 @@ #(ribcage #(p lev) #((top) (top)) - #("i4156" "i4157")) + #("i13279" "i13280")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4088" - "i4089" - "i4090" - "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile))) any) . any))))) ($sc-dispatch - #{tmp\ 4158}# + #{tmp\ 13281}# '(#(free-id #(syntax-object unquote @@ -13732,19 +13777,22 @@ #(ribcage #(p lev) #((top) (top)) - #("i4156" "i4157")) + #("i13279" "i13280")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4088" "i4089" "i4090" "i4091"))) + #("i13211" + "i13212" + "i13213" + "i13214"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 4158}# + #{tmp\ 13281}# '(#(free-id #(syntax-object unquote @@ -13753,238 +13801,243 @@ #(ribcage #(p lev) #((top) (top)) - #("i4156" "i4157")) + #("i13279" "i13280")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4088" "i4089" "i4090" "i4091"))) + #("i13211" "i13212" "i13213" "i13214"))) (hygiene guile))) any)))) - #{p\ 4154}#)))) - (lambda (#{x\ 4195}#) - ((lambda (#{tmp\ 4197}#) - ((lambda (#{tmp\ 4198}#) - (if #{tmp\ 4198}# - (apply (lambda (#{_\ 4201}# #{e\ 4202}#) - (#{quasi\ 4095}# #{e\ 4202}# 0)) - #{tmp\ 4198}#) + #{p\ 13277}#)))) + (lambda (#{x\ 13318}#) + ((lambda (#{tmp\ 13320}#) + ((lambda (#{tmp\ 13321}#) + (if #{tmp\ 13321}# + (apply (lambda (#{_\ 13324}# #{e\ 13325}#) + (#{quasi\ 13218}# #{e\ 13325}# 0)) + #{tmp\ 13321}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4197}#))) - ($sc-dispatch #{tmp\ 4197}# (quote (any any))))) - #{x\ 4195}#))) + #{tmp\ 13320}#))) + ($sc-dispatch #{tmp\ 13320}# (quote (any any))))) + #{x\ 13318}#))) (module-name (current-module))))) (define include - (make-syncase-macro + (make-syntax-transformer + 'include 'macro - (cons (lambda (#{x\ 4203}#) - (letrec ((#{read-file\ 4206}# - (lambda (#{fn\ 4207}# #{k\ 4208}#) - (let ((#{p\ 4212}# (open-input-file #{fn\ 4207}#))) - (letrec ((#{f\ 4215}# - (lambda (#{x\ 4216}#) - (if (eof-object? #{x\ 4216}#) + (cons (lambda (#{x\ 13326}#) + (letrec ((#{read-file\ 13329}# + (lambda (#{fn\ 13330}# #{k\ 13331}#) + (let ((#{p\ 13335}# (open-input-file #{fn\ 13330}#))) + (letrec ((#{f\ 13338}# + (lambda (#{x\ 13339}#) + (if (eof-object? #{x\ 13339}#) (begin - (close-input-port #{p\ 4212}#) + (close-input-port #{p\ 13335}#) '()) (cons (datum->syntax - #{k\ 4208}# - #{x\ 4216}#) - (#{f\ 4215}# - (read #{p\ 4212}#))))))) - (#{f\ 4215}# (read #{p\ 4212}#))))))) - ((lambda (#{tmp\ 4217}#) - ((lambda (#{tmp\ 4218}#) - (if #{tmp\ 4218}# - (apply (lambda (#{k\ 4221}# #{filename\ 4222}#) - (let ((#{fn\ 4224}# - (syntax->datum #{filename\ 4222}#))) - ((lambda (#{tmp\ 4226}#) - ((lambda (#{tmp\ 4227}#) - (if #{tmp\ 4227}# - (apply (lambda (#{exp\ 4229}#) + #{k\ 13331}# + #{x\ 13339}#) + (#{f\ 13338}# + (read #{p\ 13335}#))))))) + (#{f\ 13338}# (read #{p\ 13335}#))))))) + ((lambda (#{tmp\ 13340}#) + ((lambda (#{tmp\ 13341}#) + (if #{tmp\ 13341}# + (apply (lambda (#{k\ 13344}# #{filename\ 13345}#) + (let ((#{fn\ 13347}# + (syntax->datum #{filename\ 13345}#))) + ((lambda (#{tmp\ 13349}#) + ((lambda (#{tmp\ 13350}#) + (if #{tmp\ 13350}# + (apply (lambda (#{exp\ 13352}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) - #("i4228")) + #("i13351")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4223")) + #("i13346")) #(ribcage #(k filename) #((top) (top)) - #("i4219" - "i4220")) + #("i13342" + "i13343")) #(ribcage (read-file) ((top)) - ("i4205")) + ("i13328")) #(ribcage #(x) #((top)) - #("i4204"))) + #("i13327"))) (hygiene guile)) - #{exp\ 4229}#)) - #{tmp\ 4227}#) + #{exp\ 13352}#)) + #{tmp\ 13350}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4226}#))) + #{tmp\ 13349}#))) ($sc-dispatch - #{tmp\ 4226}# + #{tmp\ 13349}# 'each-any))) - (#{read-file\ 4206}# - #{fn\ 4224}# - #{k\ 4221}#)))) - #{tmp\ 4218}#) + (#{read-file\ 13329}# + #{fn\ 13347}# + #{k\ 13344}#)))) + #{tmp\ 13341}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4217}#))) - ($sc-dispatch #{tmp\ 4217}# (quote (any any))))) - #{x\ 4203}#))) + #{tmp\ 13340}#))) + ($sc-dispatch #{tmp\ 13340}# (quote (any any))))) + #{x\ 13326}#))) (module-name (current-module))))) (define include-from-path - (make-syncase-macro + (make-syntax-transformer + 'include-from-path 'macro - (cons (lambda (#{x\ 4231}#) - ((lambda (#{tmp\ 4233}#) - ((lambda (#{tmp\ 4234}#) - (if #{tmp\ 4234}# - (apply (lambda (#{k\ 4237}# #{filename\ 4238}#) - (let ((#{fn\ 4240}# - (syntax->datum #{filename\ 4238}#))) - ((lambda (#{tmp\ 4242}#) - ((lambda (#{fn\ 4244}#) + (cons (lambda (#{x\ 13354}#) + ((lambda (#{tmp\ 13356}#) + ((lambda (#{tmp\ 13357}#) + (if #{tmp\ 13357}# + (apply (lambda (#{k\ 13360}# #{filename\ 13361}#) + (let ((#{fn\ 13363}# + (syntax->datum #{filename\ 13361}#))) + ((lambda (#{tmp\ 13365}#) + ((lambda (#{fn\ 13367}#) (list '#(syntax-object include ((top) #(ribcage #(fn) #((top)) - #("i4243")) + #("i13366")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4239")) + #("i13362")) #(ribcage #(k filename) #((top) (top)) - #("i4235" "i4236")) + #("i13358" "i13359")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4232"))) + #("i13355"))) (hygiene guile)) - #{fn\ 4244}#)) - #{tmp\ 4242}#)) - (let ((#{t\ 4247}# - (%search-load-path #{fn\ 4240}#))) - (if #{t\ 4247}# - #{t\ 4247}# + #{fn\ 13367}#)) + #{tmp\ 13365}#)) + (let ((#{t\ 13370}# + (%search-load-path #{fn\ 13363}#))) + (if #{t\ 13370}# + #{t\ 13370}# (syntax-violation 'include-from-path "file not found in path" - #{x\ 4231}# - #{filename\ 4238}#)))))) - #{tmp\ 4234}#) + #{x\ 13354}# + #{filename\ 13361}#)))))) + #{tmp\ 13357}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4233}#))) - ($sc-dispatch #{tmp\ 4233}# (quote (any any))))) - #{x\ 4231}#)) + #{tmp\ 13356}#))) + ($sc-dispatch #{tmp\ 13356}# (quote (any any))))) + #{x\ 13354}#)) (module-name (current-module))))) (define unquote - (make-syncase-macro + (make-syntax-transformer + 'unquote 'macro - (cons (lambda (#{x\ 4249}#) - ((lambda (#{tmp\ 4251}#) - ((lambda (#{tmp\ 4252}#) - (if #{tmp\ 4252}# - (apply (lambda (#{_\ 4255}# #{e\ 4256}#) + (cons (lambda (#{x\ 13372}#) + ((lambda (#{tmp\ 13374}#) + ((lambda (#{tmp\ 13375}#) + (if #{tmp\ 13375}# + (apply (lambda (#{_\ 13378}# #{e\ 13379}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 4249}#)) - #{tmp\ 4252}#) + #{x\ 13372}#)) + #{tmp\ 13375}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4251}#))) - ($sc-dispatch #{tmp\ 4251}# (quote (any any))))) - #{x\ 4249}#)) + #{tmp\ 13374}#))) + ($sc-dispatch #{tmp\ 13374}# (quote (any any))))) + #{x\ 13372}#)) (module-name (current-module))))) (define unquote-splicing - (make-syncase-macro + (make-syntax-transformer + 'unquote-splicing 'macro - (cons (lambda (#{x\ 4257}#) - ((lambda (#{tmp\ 4259}#) - ((lambda (#{tmp\ 4260}#) - (if #{tmp\ 4260}# - (apply (lambda (#{_\ 4263}# #{e\ 4264}#) + (cons (lambda (#{x\ 13380}#) + ((lambda (#{tmp\ 13382}#) + ((lambda (#{tmp\ 13383}#) + (if #{tmp\ 13383}# + (apply (lambda (#{_\ 13386}# #{e\ 13387}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 4257}#)) - #{tmp\ 4260}#) + #{x\ 13380}#)) + #{tmp\ 13383}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4259}#))) - ($sc-dispatch #{tmp\ 4259}# (quote (any any))))) - #{x\ 4257}#)) + #{tmp\ 13382}#))) + ($sc-dispatch #{tmp\ 13382}# (quote (any any))))) + #{x\ 13380}#)) (module-name (current-module))))) (define case - (make-syncase-macro + (make-syntax-transformer + 'case 'macro - (cons (lambda (#{x\ 4265}#) - ((lambda (#{tmp\ 4267}#) - ((lambda (#{tmp\ 4268}#) - (if #{tmp\ 4268}# - (apply (lambda (#{_\ 4273}# - #{e\ 4274}# - #{m1\ 4275}# - #{m2\ 4276}#) - ((lambda (#{tmp\ 4278}#) - ((lambda (#{body\ 4280}#) + (cons (lambda (#{x\ 13388}#) + ((lambda (#{tmp\ 13390}#) + ((lambda (#{tmp\ 13391}#) + (if #{tmp\ 13391}# + (apply (lambda (#{_\ 13396}# + #{e\ 13397}# + #{m1\ 13398}# + #{m2\ 13399}#) + ((lambda (#{tmp\ 13401}#) + ((lambda (#{body\ 13403}#) (list '#(syntax-object let ((top) #(ribcage #(body) #((top)) - #("i4279")) + #("i13402")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4269" - "i4270" - "i4271" - "i4272")) + #("i13392" + "i13393" + "i13394" + "i13395")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4266"))) + #("i13389"))) (hygiene guile)) (list (list '#(syntax-object t @@ -13992,35 +14045,35 @@ #(ribcage #(body) #((top)) - #("i4279")) + #("i13402")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4269" - "i4270" - "i4271" - "i4272")) + #("i13392" + "i13393" + "i13394" + "i13395")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4266"))) + #("i13389"))) (hygiene guile)) - #{e\ 4274}#)) - #{body\ 4280}#)) - #{tmp\ 4278}#)) - (letrec ((#{f\ 4284}# - (lambda (#{clause\ 4285}# - #{clauses\ 4286}#) - (if (null? #{clauses\ 4286}#) - ((lambda (#{tmp\ 4288}#) - ((lambda (#{tmp\ 4289}#) - (if #{tmp\ 4289}# - (apply (lambda (#{e1\ 4292}# - #{e2\ 4293}#) + #{e\ 13397}#)) + #{body\ 13403}#)) + #{tmp\ 13401}#)) + (letrec ((#{f\ 13407}# + (lambda (#{clause\ 13408}# + #{clauses\ 13409}#) + (if (null? #{clauses\ 13409}#) + ((lambda (#{tmp\ 13411}#) + ((lambda (#{tmp\ 13412}#) + (if #{tmp\ 13412}# + (apply (lambda (#{e1\ 13415}# + #{e2\ 13416}#) (cons '#(syntax-object begin ((top) @@ -14029,8 +14082,8 @@ e2) #((top) (top)) - #("i4290" - "i4291")) + #("i13413" + "i13414")) #(ribcage () () @@ -14042,9 +14095,9 @@ #((top) (top) (top)) - #("i4281" - "i4282" - "i4283")) + #("i13404" + "i13405" + "i13406")) #(ribcage #(_ e @@ -14054,10 +14107,10 @@ (top) (top) (top)) - #("i4269" - "i4270" - "i4271" - "i4272")) + #("i13392" + "i13393" + "i13394" + "i13395")) #(ribcage () () @@ -14065,17 +14118,17 @@ #(ribcage #(x) #((top)) - #("i4266"))) + #("i13389"))) (hygiene guile)) - (cons #{e1\ 4292}# - #{e2\ 4293}#))) - #{tmp\ 4289}#) - ((lambda (#{tmp\ 4295}#) - (if #{tmp\ 4295}# - (apply (lambda (#{k\ 4299}# - #{e1\ 4300}# - #{e2\ 4301}#) + (cons #{e1\ 13415}# + #{e2\ 13416}#))) + #{tmp\ 13412}#) + ((lambda (#{tmp\ 13418}#) + (if #{tmp\ 13418}# + (apply (lambda (#{k\ 13422}# + #{e1\ 13423}# + #{e2\ 13424}#) (list '#(syntax-object if ((top) @@ -14086,9 +14139,9 @@ #((top) (top) (top)) - #("i4296" - "i4297" - "i4298")) + #("i13419" + "i13420" + "i13421")) #(ribcage () () @@ -14100,9 +14153,9 @@ #((top) (top) (top)) - #("i4281" - "i4282" - "i4283")) + #("i13404" + "i13405" + "i13406")) #(ribcage #(_ e @@ -14112,10 +14165,10 @@ (top) (top) (top)) - #("i4269" - "i4270" - "i4271" - "i4272")) + #("i13392" + "i13393" + "i13394" + "i13395")) #(ribcage () () @@ -14123,7 +14176,7 @@ #(ribcage #(x) #((top)) - #("i4266"))) + #("i13389"))) (hygiene guile)) (list '#(syntax-object @@ -14136,9 +14189,9 @@ #((top) (top) (top)) - #("i4296" - "i4297" - "i4298")) + #("i13419" + "i13420" + "i13421")) #(ribcage () () @@ -14150,9 +14203,9 @@ #((top) (top) (top)) - #("i4281" - "i4282" - "i4283")) + #("i13404" + "i13405" + "i13406")) #(ribcage #(_ e @@ -14162,10 +14215,10 @@ (top) (top) (top)) - #("i4269" - "i4270" - "i4271" - "i4272")) + #("i13392" + "i13393" + "i13394" + "i13395")) #(ribcage () () @@ -14173,7 +14226,7 @@ #(ribcage #(x) #((top)) - #("i4266"))) + #("i13389"))) (hygiene guile)) '#(syntax-object @@ -14186,9 +14239,9 @@ #((top) (top) (top)) - #("i4296" - "i4297" - "i4298")) + #("i13419" + "i13420" + "i13421")) #(ribcage () () @@ -14200,9 +14253,9 @@ #((top) (top) (top)) - #("i4281" - "i4282" - "i4283")) + #("i13404" + "i13405" + "i13406")) #(ribcage #(_ e @@ -14212,10 +14265,10 @@ (top) (top) (top)) - #("i4269" - "i4270" - "i4271" - "i4272")) + #("i13392" + "i13393" + "i13394" + "i13395")) #(ribcage () () @@ -14223,7 +14276,7 @@ #(ribcage #(x) #((top)) - #("i4266"))) + #("i13389"))) (hygiene guile)) (list '#(syntax-object @@ -14236,9 +14289,9 @@ #((top) (top) (top)) - #("i4296" - "i4297" - "i4298")) + #("i13419" + "i13420" + "i13421")) #(ribcage () () @@ -14250,9 +14303,9 @@ #((top) (top) (top)) - #("i4281" - "i4282" - "i4283")) + #("i13404" + "i13405" + "i13406")) #(ribcage #(_ e @@ -14262,10 +14315,10 @@ (top) (top) (top)) - #("i4269" - "i4270" - "i4271" - "i4272")) + #("i13392" + "i13393" + "i13394" + "i13395")) #(ribcage () () @@ -14273,10 +14326,10 @@ #(ribcage #(x) #((top)) - #("i4266"))) + #("i13389"))) (hygiene guile)) - #{k\ 4299}#)) + #{k\ 13422}#)) (cons '#(syntax-object begin ((top) @@ -14287,9 +14340,9 @@ #((top) (top) (top)) - #("i4296" - "i4297" - "i4298")) + #("i13419" + "i13420" + "i13421")) #(ribcage () () @@ -14301,9 +14354,9 @@ #((top) (top) (top)) - #("i4281" - "i4282" - "i4283")) + #("i13404" + "i13405" + "i13406")) #(ribcage #(_ e @@ -14313,10 +14366,10 @@ (top) (top) (top)) - #("i4269" - "i4270" - "i4271" - "i4272")) + #("i13392" + "i13393" + "i13394" + "i13395")) #(ribcage () () @@ -14324,27 +14377,27 @@ #(ribcage #(x) #((top)) - #("i4266"))) + #("i13389"))) (hygiene guile)) - (cons #{e1\ 4300}# - #{e2\ 4301}#)))) - #{tmp\ 4295}#) - ((lambda (#{_\ 4305}#) + (cons #{e1\ 13423}# + #{e2\ 13424}#)))) + #{tmp\ 13418}#) + ((lambda (#{_\ 13428}#) (syntax-violation 'case "bad clause" - #{x\ 4265}# - #{clause\ 4285}#)) - #{tmp\ 4288}#))) + #{x\ 13388}# + #{clause\ 13408}#)) + #{tmp\ 13411}#))) ($sc-dispatch - #{tmp\ 4288}# + #{tmp\ 13411}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 4288}# + #{tmp\ 13411}# '(#(free-id #(syntax-object else @@ -14355,37 +14408,37 @@ #((top) (top) (top)) - #("i4281" - "i4282" - "i4283")) + #("i13404" + "i13405" + "i13406")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4269" - "i4270" - "i4271" - "i4272")) + #("i13392" + "i13393" + "i13394" + "i13395")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4266"))) + #("i13389"))) (hygiene guile))) any . each-any)))) - #{clause\ 4285}#) - ((lambda (#{tmp\ 4307}#) - ((lambda (#{rest\ 4309}#) - ((lambda (#{tmp\ 4310}#) - ((lambda (#{tmp\ 4311}#) - (if #{tmp\ 4311}# - (apply (lambda (#{k\ 4315}# - #{e1\ 4316}# - #{e2\ 4317}#) + #{clause\ 13408}#) + ((lambda (#{tmp\ 13430}#) + ((lambda (#{rest\ 13432}#) + ((lambda (#{tmp\ 13433}#) + ((lambda (#{tmp\ 13434}#) + (if #{tmp\ 13434}# + (apply (lambda (#{k\ 13438}# + #{e1\ 13439}# + #{e2\ 13440}#) (list '#(syntax-object if ((top) @@ -14396,13 +14449,13 @@ #((top) (top) (top)) - #("i4312" - "i4313" - "i4314")) + #("i13435" + "i13436" + "i13437")) #(ribcage #(rest) #((top)) - #("i4308")) + #("i13431")) #(ribcage () () @@ -14414,9 +14467,9 @@ #((top) (top) (top)) - #("i4281" - "i4282" - "i4283")) + #("i13404" + "i13405" + "i13406")) #(ribcage #(_ e @@ -14426,10 +14479,10 @@ (top) (top) (top)) - #("i4269" - "i4270" - "i4271" - "i4272")) + #("i13392" + "i13393" + "i13394" + "i13395")) #(ribcage () () @@ -14437,7 +14490,7 @@ #(ribcage #(x) #((top)) - #("i4266"))) + #("i13389"))) (hygiene guile)) (list '#(syntax-object @@ -14450,13 +14503,13 @@ #((top) (top) (top)) - #("i4312" - "i4313" - "i4314")) + #("i13435" + "i13436" + "i13437")) #(ribcage #(rest) #((top)) - #("i4308")) + #("i13431")) #(ribcage () () @@ -14468,9 +14521,9 @@ #((top) (top) (top)) - #("i4281" - "i4282" - "i4283")) + #("i13404" + "i13405" + "i13406")) #(ribcage #(_ e @@ -14480,10 +14533,10 @@ (top) (top) (top)) - #("i4269" - "i4270" - "i4271" - "i4272")) + #("i13392" + "i13393" + "i13394" + "i13395")) #(ribcage () () @@ -14491,7 +14544,7 @@ #(ribcage #(x) #((top)) - #("i4266"))) + #("i13389"))) (hygiene guile)) '#(syntax-object @@ -14504,13 +14557,13 @@ #((top) (top) (top)) - #("i4312" - "i4313" - "i4314")) + #("i13435" + "i13436" + "i13437")) #(ribcage #(rest) #((top)) - #("i4308")) + #("i13431")) #(ribcage () () @@ -14522,9 +14575,9 @@ #((top) (top) (top)) - #("i4281" - "i4282" - "i4283")) + #("i13404" + "i13405" + "i13406")) #(ribcage #(_ e @@ -14534,10 +14587,10 @@ (top) (top) (top)) - #("i4269" - "i4270" - "i4271" - "i4272")) + #("i13392" + "i13393" + "i13394" + "i13395")) #(ribcage () () @@ -14545,7 +14598,7 @@ #(ribcage #(x) #((top)) - #("i4266"))) + #("i13389"))) (hygiene guile)) (list '#(syntax-object @@ -14558,13 +14611,13 @@ #((top) (top) (top)) - #("i4312" - "i4313" - "i4314")) + #("i13435" + "i13436" + "i13437")) #(ribcage #(rest) #((top)) - #("i4308")) + #("i13431")) #(ribcage () () @@ -14576,9 +14629,9 @@ #((top) (top) (top)) - #("i4281" - "i4282" - "i4283")) + #("i13404" + "i13405" + "i13406")) #(ribcage #(_ e @@ -14588,10 +14641,10 @@ (top) (top) (top)) - #("i4269" - "i4270" - "i4271" - "i4272")) + #("i13392" + "i13393" + "i13394" + "i13395")) #(ribcage () () @@ -14599,10 +14652,10 @@ #(ribcage #(x) #((top)) - #("i4266"))) + #("i13389"))) (hygiene guile)) - #{k\ 4315}#)) + #{k\ 13438}#)) (cons '#(syntax-object begin ((top) @@ -14613,13 +14666,13 @@ #((top) (top) (top)) - #("i4312" - "i4313" - "i4314")) + #("i13435" + "i13436" + "i13437")) #(ribcage #(rest) #((top)) - #("i4308")) + #("i13431")) #(ribcage () () @@ -14631,9 +14684,9 @@ #((top) (top) (top)) - #("i4281" - "i4282" - "i4283")) + #("i13404" + "i13405" + "i13406")) #(ribcage #(_ e @@ -14643,10 +14696,10 @@ (top) (top) (top)) - #("i4269" - "i4270" - "i4271" - "i4272")) + #("i13392" + "i13393" + "i13394" + "i13395")) #(ribcage () () @@ -14654,60 +14707,61 @@ #(ribcage #(x) #((top)) - #("i4266"))) + #("i13389"))) (hygiene guile)) - (cons #{e1\ 4316}# - #{e2\ 4317}#)) - #{rest\ 4309}#)) - #{tmp\ 4311}#) - ((lambda (#{_\ 4321}#) + (cons #{e1\ 13439}# + #{e2\ 13440}#)) + #{rest\ 13432}#)) + #{tmp\ 13434}#) + ((lambda (#{_\ 13444}#) (syntax-violation 'case "bad clause" - #{x\ 4265}# - #{clause\ 4285}#)) - #{tmp\ 4310}#))) + #{x\ 13388}# + #{clause\ 13408}#)) + #{tmp\ 13433}#))) ($sc-dispatch - #{tmp\ 4310}# + #{tmp\ 13433}# '(each-any any . each-any)))) - #{clause\ 4285}#)) - #{tmp\ 4307}#)) - (#{f\ 4284}# - (car #{clauses\ 4286}#) - (cdr #{clauses\ 4286}#))))))) - (#{f\ 4284}# #{m1\ 4275}# #{m2\ 4276}#)))) - #{tmp\ 4268}#) + #{clause\ 13408}#)) + #{tmp\ 13430}#)) + (#{f\ 13407}# + (car #{clauses\ 13409}#) + (cdr #{clauses\ 13409}#))))))) + (#{f\ 13407}# #{m1\ 13398}# #{m2\ 13399}#)))) + #{tmp\ 13391}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4267}#))) + #{tmp\ 13390}#))) ($sc-dispatch - #{tmp\ 4267}# + #{tmp\ 13390}# '(any any any . each-any)))) - #{x\ 4265}#)) + #{x\ 13388}#)) (module-name (current-module))))) (define identifier-syntax - (make-syncase-macro + (make-syntax-transformer + 'identifier-syntax 'macro - (cons (lambda (#{x\ 4322}#) - ((lambda (#{tmp\ 4324}#) - ((lambda (#{tmp\ 4325}#) - (if #{tmp\ 4325}# - (apply (lambda (#{_\ 4328}# #{e\ 4329}#) + (cons (lambda (#{x\ 13445}#) + ((lambda (#{tmp\ 13447}#) + ((lambda (#{tmp\ 13448}#) + (if #{tmp\ 13448}# + (apply (lambda (#{_\ 13451}# #{e\ 13452}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top)) - #("i4326" "i4327")) + #("i13449" "i13450")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4323"))) + #(ribcage #(x) #((top)) #("i13446"))) (hygiene guile)) '(#(syntax-object x @@ -14715,9 +14769,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4326" "i4327")) + #("i13449" "i13450")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4323"))) + #(ribcage #(x) #((top)) #("i13446"))) (hygiene guile))) (list '#(syntax-object syntax-case @@ -14725,12 +14779,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4326" "i4327")) + #("i13449" "i13450")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4323"))) + #("i13446"))) (hygiene guile)) '#(syntax-object x @@ -14738,12 +14792,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4326" "i4327")) + #("i13449" "i13450")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4323"))) + #("i13446"))) (hygiene guile)) '() (list '#(syntax-object @@ -14752,12 +14806,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4326" "i4327")) + #("i13449" "i13450")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4323"))) + #("i13446"))) (hygiene guile)) '(#(syntax-object identifier? @@ -14765,12 +14819,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4326" "i4327")) + #("i13449" "i13450")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4323"))) + #("i13446"))) (hygiene guile)) (#(syntax-object syntax @@ -14778,12 +14832,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4326" "i4327")) + #("i13449" "i13450")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4323"))) + #("i13446"))) (hygiene guile)) #(syntax-object id @@ -14791,12 +14845,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4326" "i4327")) + #("i13449" "i13450")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4323"))) + #("i13446"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -14804,27 +14858,29 @@ #(ribcage #(_ e) #((top) (top)) - #("i4326" "i4327")) + #("i13449" + "i13450")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4323"))) + #("i13446"))) (hygiene guile)) - #{e\ 4329}#)) - (list (cons #{_\ 4328}# + #{e\ 13452}#)) + (list (cons #{_\ 13451}# '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) - #("i4326" "i4327")) + #("i13449" + "i13450")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4323"))) + #("i13446"))) (hygiene guile)) #(syntax-object ... @@ -14832,12 +14888,13 @@ #(ribcage #(_ e) #((top) (top)) - #("i4326" "i4327")) + #("i13449" + "i13450")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4323"))) + #("i13446"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -14845,14 +14902,15 @@ #(ribcage #(_ e) #((top) (top)) - #("i4326" "i4327")) + #("i13449" + "i13450")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4323"))) + #("i13446"))) (hygiene guile)) - (cons #{e\ 4329}# + (cons #{e\ 13452}# '(#(syntax-object x ((top) @@ -14860,8 +14918,8 @@ #(_ e) #((top) (top)) - #("i4326" - "i4327")) + #("i13449" + "i13450")) #(ribcage () () @@ -14869,7 +14927,7 @@ #(ribcage #(x) #((top)) - #("i4323"))) + #("i13446"))) (hygiene guile)) #(syntax-object ... @@ -14878,8 +14936,8 @@ #(_ e) #((top) (top)) - #("i4326" - "i4327")) + #("i13449" + "i13450")) #(ribcage () () @@ -14887,80 +14945,85 @@ #(ribcage #(x) #((top)) - #("i4323"))) + #("i13446"))) (hygiene guile))))))))) - #{tmp\ 4325}#) + #{tmp\ 13448}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4324}#))) - ($sc-dispatch #{tmp\ 4324}# (quote (any any))))) - #{x\ 4322}#)) + #{tmp\ 13447}#))) + ($sc-dispatch #{tmp\ 13447}# (quote (any any))))) + #{x\ 13445}#)) (module-name (current-module))))) (define define* - (make-syncase-macro + (make-syntax-transformer + 'define* 'macro - (cons (lambda (#{x\ 4331}#) - ((lambda (#{tmp\ 4333}#) - ((lambda (#{tmp\ 4334}#) - (if #{tmp\ 4334}# - (apply (lambda (#{dummy\ 4340}# - #{id\ 4341}# - #{args\ 4342}# - #{b0\ 4343}# - #{b1\ 4344}#) + (cons (lambda (#{x\ 13454}#) + ((lambda (#{tmp\ 13456}#) + ((lambda (#{tmp\ 13457}#) + (if #{tmp\ 13457}# + (apply (lambda (#{dummy\ 13463}# + #{id\ 13464}# + #{args\ 13465}# + #{b0\ 13466}# + #{b1\ 13467}#) (list '#(syntax-object define ((top) #(ribcage #(dummy id args b0 b1) - #((m4330 top) (top) (top) (top) (top)) - #("i4335" - "i4336" - "i4337" - "i4338" - "i4339")) + #((m13453 top) + (top) + (top) + (top) + (top)) + #("i13458" + "i13459" + "i13460" + "i13461" + "i13462")) #(ribcage () () ()) #(ribcage #(x) - #((m4330 top)) - #("i4332"))) + #((m13453 top)) + #("i13455"))) (hygiene guile)) - #{id\ 4341}# + #{id\ 13464}# (cons '#(syntax-object lambda* ((top) #(ribcage #(dummy id args b0 b1) - #((m4330 top) + #((m13453 top) (top) (top) (top) (top)) - #("i4335" - "i4336" - "i4337" - "i4338" - "i4339")) + #("i13458" + "i13459" + "i13460" + "i13461" + "i13462")) #(ribcage () () ()) #(ribcage #(x) - #((m4330 top)) - #("i4332"))) + #((m13453 top)) + #("i13455"))) (hygiene guile)) - (cons #{args\ 4342}# - (cons #{b0\ 4343}# - #{b1\ 4344}#))))) - #{tmp\ 4334}#) + (cons #{args\ 13465}# + (cons #{b0\ 13466}# + #{b1\ 13467}#))))) + #{tmp\ 13457}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4333}#))) + #{tmp\ 13456}#))) ($sc-dispatch - #{tmp\ 4333}# + #{tmp\ 13456}# '(any (any . any) any . each-any)))) - #{x\ 4331}#)) + #{x\ 13454}#)) (module-name (current-module))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 4e6c849e4..a9a22c0a4 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -1,6 +1,6 @@ ;;;; -*-scheme-*- ;;;; -;;;; Copyright (C) 2001, 2003, 2006, 2009 Free Software Foundation, Inc. +;;;; Copyright (C) 2001, 2003, 2006, 2009, 2010 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -308,18 +308,10 @@ (define put-global-definition-hook (lambda (symbol type val) - (let ((existing (let ((v (module-variable (current-module) symbol))) - (and v (variable-bound? v) - (let ((val (variable-ref v))) - (and (macro? val) - (not (syncase-macro-type val)) - val)))))) - (module-define! (current-module) - symbol - (if existing - (make-extended-syncase-macro existing type val) - (make-syncase-macro type val)))))) - + (module-define! (current-module) + symbol + (make-syntax-transformer symbol type val)))) + (define get-global-definition-hook (lambda (symbol module) (if (and (not module) (current-module)) @@ -330,9 +322,9 @@ symbol))) (and v (variable-bound? v) (let ((val (variable-ref v))) - (and (macro? val) (syncase-macro-type val) - (cons (syncase-macro-type val) - (syncase-macro-binding val)))))))) + (and (macro? val) (macro-type val) + (cons (macro-type val) + (macro-binding val)))))))) ) @@ -1036,49 +1028,22 @@ (build-global-definition no-source name - ;; FIXME: seems nasty to call current-module here - (if (let ((v (module-variable (current-module) name))) - ;; FIXME use primitive-macro? - (and v (variable-bound? v) (macro? (variable-ref v)) - (not (eq? (macro-type (variable-ref v)) 'syncase-macro)))) - (build-application - no-source - (build-primref no-source 'make-extended-syncase-macro) - (list (build-application - no-source - (build-primref no-source 'module-ref) - (list (build-application - no-source - (build-primref no-source 'current-module) - '()) - (build-data no-source name))) - (build-data no-source 'macro) - (build-application - no-source - (build-primref no-source 'cons) - (list e - (build-application - no-source - (build-primref no-source 'module-name) - (list (build-application - no-source - (build-primref no-source 'current-module) - '()))))))) - (build-application - no-source - (build-primref no-source 'make-syncase-macro) - (list (build-data no-source 'macro) - (build-application - no-source - (build-primref no-source 'cons) - (list e - (build-application - no-source - (build-primref no-source 'module-name) - (list (build-application - no-source - (build-primref no-source 'current-module) - '()))))))))))) + (build-application + no-source + (build-primref no-source 'make-syntax-transformer) + (list (build-data no-source name) + (build-data no-source 'macro) + (build-application + no-source + (build-primref no-source 'cons) + (list e + (build-application + no-source + (build-primref no-source 'module-name) + (list (build-application + no-source + (build-primref no-source 'current-module) + '())))))))))) (define chi-when-list (lambda (e when-list w)