summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-05-20 12:53:21 +0200
committerAndy Wingo <wingo@pobox.com>2010-05-20 12:53:21 +0200
commit632ddbf02b6983a93a3a8f1268772b78354a335a (patch)
tree3fa0523df57b4f908059dbe1124b297ec74f93c0
parenta310a1d12e9b44ba77bb28d5491f0bd378a90886 (diff)
downloadguile-632ddbf02b6983a93a3a8f1268772b78354a335a.tar.gz
iron out inconsistency between eval and compile expansion
* libguile/expand.c (expand_lambda_star_case): Harmonize with tree-il, expanding keywords to (aok? (kw name gensym) ...), not (aok? (kw . index) ...). * libguile/memoize.c (memoize): Process the (kw name gensym) format into (kw . index). * module/ice-9/psyntax.scm (build-lambda-case): Remove a compile-versus-eval special case. * module/ice-9/psyntax-pp.scm: Regenerate.
-rw-r--r--libguile/expand.c14
-rw-r--r--libguile/memoize.c19
-rw-r--r--module/ice-9/psyntax-pp.scm16680
-rw-r--r--module/ice-9/psyntax.scm26
4 files changed, 8277 insertions, 8462 deletions
diff --git a/libguile/expand.c b/libguile/expand.c
index 4b9f0e147..2dd93ecea 100644
--- a/libguile/expand.c
+++ b/libguile/expand.c
@@ -693,7 +693,7 @@ static SCM
expand_lambda_star_case (SCM clause, SCM alternate, SCM env)
{
SCM req, opt, kw, allow_other_keys, rest, formals, vars, body, tmp;
- SCM inits, kw_indices;
+ SCM inits;
int nreq, nopt;
const long length = scm_ilength (clause);
@@ -807,14 +807,12 @@ expand_lambda_star_case (SCM clause, SCM alternate, SCM env)
env = scm_acons (rest, CAR (vars), env);
}
- /* Build up kw inits, env, and kw-indices alist */
+ /* Build up kw inits, env, and kw-canon list */
if (scm_is_null (kw))
kw = SCM_BOOL_F;
else
{
- int idx = nreq + nopt + (scm_is_true (rest) ? 1 : 0);
-
- kw_indices = SCM_EOL;
+ SCM kw_canon = SCM_EOL;
kw = scm_reverse_x (kw, SCM_UNDEFINED);
for (tmp = kw; scm_is_pair (tmp); tmp = scm_cdr (tmp))
{
@@ -842,13 +840,13 @@ expand_lambda_star_case (SCM clause, SCM alternate, SCM env)
else
syntax_error (s_bad_formals, CAR (clause), SCM_UNDEFINED);
- kw_indices = scm_acons (k, SCM_I_MAKINUM (idx++), kw_indices);
inits = scm_cons (expand (init, env), inits);
vars = scm_cons (scm_gensym (SCM_UNDEFINED), vars);
+ kw_canon = scm_cons (scm_list_3 (k, sym, CAR (vars)), kw_canon);
env = scm_acons (sym, CAR (vars), env);
}
- kw_indices = scm_reverse_x (kw_indices, SCM_UNDEFINED);
- kw = scm_cons (allow_other_keys, kw_indices);
+ kw_canon = scm_reverse_x (kw_canon, SCM_UNDEFINED);
+ kw = scm_cons (allow_other_keys, kw_canon);
}
/* We should check for no duplicates, but given that psyntax does this
diff --git a/libguile/memoize.c b/libguile/memoize.c
index 2604be9ea..393598e94 100644
--- a/libguile/memoize.c
+++ b/libguile/memoize.c
@@ -273,7 +273,7 @@ memoize (SCM exp, SCM env)
{
SCM req, rest, opt, kw, inits, vars, body, alt;
SCM walk, minits, arity, new_env;
- int nreq, nopt;
+ int nreq, nopt, ntotal;
req = REF (exp, LAMBDA_CASE, REQ);
rest = REF (exp, LAMBDA_CASE, REST);
@@ -286,6 +286,7 @@ memoize (SCM exp, SCM env)
nreq = scm_ilength (req);
nopt = scm_is_pair (opt) ? scm_ilength (opt) : 0;
+ ntotal = scm_ilength (vars);
/* The vars are the gensyms, according to the divine plan. But we need
to memoize the inits within their appropriate environment,
@@ -319,6 +320,22 @@ memoize (SCM exp, SCM env)
minits = scm_reverse_x (minits, SCM_UNDEFINED);
+ if (scm_is_true (kw))
+ {
+ /* (aok? (kw name sym) ...) -> (aok? (kw . index) ...) */
+ SCM aok = CAR (kw), indices = SCM_EOL;
+ for (kw = CDR (kw); scm_is_pair (kw); kw = CDR (kw))
+ {
+ SCM k;
+ int idx;
+
+ k = CAR (CAR (kw));
+ idx = ntotal - 1 - lookup (CADDR (CAR (kw)), new_env);
+ indices = scm_acons (k, SCM_I_MAKINUM (idx), indices);
+ }
+ kw = scm_cons (aok, scm_reverse_x (indices, SCM_UNDEFINED));
+ }
+
if (scm_is_false (alt) && scm_is_false (kw) && scm_is_false (opt))
{
if (scm_is_false (rest))
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index ecfccc16b..2cdd06bed 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,657 +1,644 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((#{and-map*\ 12627}#
- (lambda (#{f\ 12741}# #{first\ 12742}# . #{rest\ 12743}#)
- (let ((#{t\ 12749}# (null? #{first\ 12742}#)))
- (if #{t\ 12749}#
- #{t\ 12749}#
- (if (null? #{rest\ 12743}#)
- (letrec ((#{andmap\ 12753}#
- (lambda (#{first\ 12754}#)
- (let ((#{x\ 12757}# (car #{first\ 12754}#))
- (#{first\ 12758}#
- (cdr #{first\ 12754}#)))
- (if (null? #{first\ 12758}#)
- (#{f\ 12741}# #{x\ 12757}#)
- (if (#{f\ 12741}# #{x\ 12757}#)
- (#{andmap\ 12753}# #{first\ 12758}#)
+(letrec ((#{and-map*\ 2064}#
+ (lambda (#{f\ 2178}# #{first\ 2179}# . #{rest\ 2180}#)
+ (let ((#{t\ 2186}# (null? #{first\ 2179}#)))
+ (if #{t\ 2186}#
+ #{t\ 2186}#
+ (if (null? #{rest\ 2180}#)
+ (letrec ((#{andmap\ 2190}#
+ (lambda (#{first\ 2191}#)
+ (let ((#{x\ 2194}# (car #{first\ 2191}#))
+ (#{first\ 2195}# (cdr #{first\ 2191}#)))
+ (if (null? #{first\ 2195}#)
+ (#{f\ 2178}# #{x\ 2194}#)
+ (if (#{f\ 2178}# #{x\ 2194}#)
+ (#{andmap\ 2190}# #{first\ 2195}#)
#f))))))
- (#{andmap\ 12753}# #{first\ 12742}#))
- (letrec ((#{andmap\ 12764}#
- (lambda (#{first\ 12765}# #{rest\ 12766}#)
- (let ((#{x\ 12771}# (car #{first\ 12765}#))
- (#{xr\ 12772}# (map car #{rest\ 12766}#))
- (#{first\ 12773}# (cdr #{first\ 12765}#))
- (#{rest\ 12774}#
- (map cdr #{rest\ 12766}#)))
- (if (null? #{first\ 12773}#)
- (apply #{f\ 12741}#
- (cons #{x\ 12771}# #{xr\ 12772}#))
- (if (apply #{f\ 12741}#
- (cons #{x\ 12771}#
- #{xr\ 12772}#))
- (#{andmap\ 12764}#
- #{first\ 12773}#
- #{rest\ 12774}#)
+ (#{andmap\ 2190}# #{first\ 2179}#))
+ (letrec ((#{andmap\ 2201}#
+ (lambda (#{first\ 2202}# #{rest\ 2203}#)
+ (let ((#{x\ 2208}# (car #{first\ 2202}#))
+ (#{xr\ 2209}# (map car #{rest\ 2203}#))
+ (#{first\ 2210}# (cdr #{first\ 2202}#))
+ (#{rest\ 2211}#
+ (map cdr #{rest\ 2203}#)))
+ (if (null? #{first\ 2210}#)
+ (apply #{f\ 2178}#
+ (cons #{x\ 2208}# #{xr\ 2209}#))
+ (if (apply #{f\ 2178}#
+ (cons #{x\ 2208}# #{xr\ 2209}#))
+ (#{andmap\ 2201}#
+ #{first\ 2210}#
+ #{rest\ 2211}#)
#f))))))
- (#{andmap\ 12764}#
- #{first\ 12742}#
- #{rest\ 12743}#))))))))
- (letrec ((#{lambda-var-list\ 13031}#
- (lambda (#{vars\ 13246}#)
- (letrec ((#{lvl\ 13252}#
- (lambda (#{vars\ 13253}# #{ls\ 13254}# #{w\ 13255}#)
- (if (pair? #{vars\ 13253}#)
- (#{lvl\ 13252}#
- (cdr #{vars\ 13253}#)
- (cons (#{wrap\ 12985}#
- (car #{vars\ 13253}#)
- #{w\ 13255}#
+ (#{andmap\ 2201}# #{first\ 2179}# #{rest\ 2180}#))))))))
+ (letrec ((#{lambda-var-list\ 2468}#
+ (lambda (#{vars\ 2683}#)
+ (letrec ((#{lvl\ 2689}#
+ (lambda (#{vars\ 2690}# #{ls\ 2691}# #{w\ 2692}#)
+ (if (pair? #{vars\ 2690}#)
+ (#{lvl\ 2689}#
+ (cdr #{vars\ 2690}#)
+ (cons (#{wrap\ 2422}#
+ (car #{vars\ 2690}#)
+ #{w\ 2692}#
#f)
- #{ls\ 13254}#)
- #{w\ 13255}#)
- (if (#{id?\ 12916}# #{vars\ 13253}#)
- (cons (#{wrap\ 12985}#
- #{vars\ 13253}#
- #{w\ 13255}#
+ #{ls\ 2691}#)
+ #{w\ 2692}#)
+ (if (#{id?\ 2353}# #{vars\ 2690}#)
+ (cons (#{wrap\ 2422}#
+ #{vars\ 2690}#
+ #{w\ 2692}#
#f)
- #{ls\ 13254}#)
- (if (null? #{vars\ 13253}#)
- #{ls\ 13254}#
- (if (#{syntax-object?\ 12880}#
- #{vars\ 13253}#)
- (#{lvl\ 13252}#
- (#{syntax-object-expression\ 12882}#
- #{vars\ 13253}#)
- #{ls\ 13254}#
- (#{join-wraps\ 12967}#
- #{w\ 13255}#
- (#{syntax-object-wrap\ 12884}#
- #{vars\ 13253}#)))
- (cons #{vars\ 13253}# #{ls\ 13254}#))))))))
- (#{lvl\ 13252}#
- #{vars\ 13246}#
+ #{ls\ 2691}#)
+ (if (null? #{vars\ 2690}#)
+ #{ls\ 2691}#
+ (if (#{syntax-object?\ 2317}# #{vars\ 2690}#)
+ (#{lvl\ 2689}#
+ (#{syntax-object-expression\ 2319}#
+ #{vars\ 2690}#)
+ #{ls\ 2691}#
+ (#{join-wraps\ 2404}#
+ #{w\ 2692}#
+ (#{syntax-object-wrap\ 2321}#
+ #{vars\ 2690}#)))
+ (cons #{vars\ 2690}# #{ls\ 2691}#))))))))
+ (#{lvl\ 2689}#
+ #{vars\ 2683}#
'()
'(())))))
- (#{gen-var\ 13029}#
- (lambda (#{id\ 13266}#)
- (let ((#{id\ 13269}#
- (if (#{syntax-object?\ 12880}# #{id\ 13266}#)
- (#{syntax-object-expression\ 12882}#
- #{id\ 13266}#)
- #{id\ 13266}#)))
+ (#{gen-var\ 2466}#
+ (lambda (#{id\ 2703}#)
+ (let ((#{id\ 2706}#
+ (if (#{syntax-object?\ 2317}# #{id\ 2703}#)
+ (#{syntax-object-expression\ 2319}# #{id\ 2703}#)
+ #{id\ 2703}#)))
(gensym
- (string-append
- (symbol->string #{id\ 13269}#)
- " ")))))
- (#{strip\ 13027}#
- (lambda (#{x\ 13271}# #{w\ 13272}#)
+ (string-append (symbol->string #{id\ 2706}#) " ")))))
+ (#{strip\ 2464}#
+ (lambda (#{x\ 2708}# #{w\ 2709}#)
(if (memq 'top
- (#{wrap-marks\ 12923}# #{w\ 13272}#))
- #{x\ 13271}#
- (letrec ((#{f\ 13278}#
- (lambda (#{x\ 13279}#)
- (if (#{syntax-object?\ 12880}# #{x\ 13279}#)
- (#{strip\ 13027}#
- (#{syntax-object-expression\ 12882}#
- #{x\ 13279}#)
- (#{syntax-object-wrap\ 12884}# #{x\ 13279}#))
- (if (pair? #{x\ 13279}#)
- (let ((#{a\ 13286}#
- (#{f\ 13278}# (car #{x\ 13279}#)))
- (#{d\ 13287}#
- (#{f\ 13278}# (cdr #{x\ 13279}#))))
- (if (if (eq? #{a\ 13286}#
- (car #{x\ 13279}#))
- (eq? #{d\ 13287}# (cdr #{x\ 13279}#))
+ (#{wrap-marks\ 2360}# #{w\ 2709}#))
+ #{x\ 2708}#
+ (letrec ((#{f\ 2715}#
+ (lambda (#{x\ 2716}#)
+ (if (#{syntax-object?\ 2317}# #{x\ 2716}#)
+ (#{strip\ 2464}#
+ (#{syntax-object-expression\ 2319}#
+ #{x\ 2716}#)
+ (#{syntax-object-wrap\ 2321}# #{x\ 2716}#))
+ (if (pair? #{x\ 2716}#)
+ (let ((#{a\ 2723}#
+ (#{f\ 2715}# (car #{x\ 2716}#)))
+ (#{d\ 2724}#
+ (#{f\ 2715}# (cdr #{x\ 2716}#))))
+ (if (if (eq? #{a\ 2723}# (car #{x\ 2716}#))
+ (eq? #{d\ 2724}# (cdr #{x\ 2716}#))
#f)
- #{x\ 13279}#
- (cons #{a\ 13286}# #{d\ 13287}#)))
- (if (vector? #{x\ 13279}#)
- (let ((#{old\ 13293}#
- (vector->list #{x\ 13279}#)))
- (let ((#{new\ 13295}#
- (map #{f\ 13278}#
- #{old\ 13293}#)))
- (if (#{and-map*\ 12627}#
+ #{x\ 2716}#
+ (cons #{a\ 2723}# #{d\ 2724}#)))
+ (if (vector? #{x\ 2716}#)
+ (let ((#{old\ 2730}#
+ (vector->list #{x\ 2716}#)))
+ (let ((#{new\ 2732}#
+ (map #{f\ 2715}# #{old\ 2730}#)))
+ (if (#{and-map*\ 2064}#
eq?
- #{old\ 13293}#
- #{new\ 13295}#)
- #{x\ 13279}#
- (list->vector #{new\ 13295}#))))
- #{x\ 13279}#))))))
- (#{f\ 13278}# #{x\ 13271}#)))))
- (#{chi-lambda-case\ 13025}#
- (lambda (#{e\ 13297}#
- #{r\ 13298}#
- #{w\ 13299}#
- #{s\ 13300}#
- #{mod\ 13301}#
- #{get-formals\ 13302}#
- #{clauses\ 13303}#)
- (letrec ((#{expand-body\ 13318}#
- (lambda (#{req\ 13319}#
- #{opt\ 13320}#
- #{rest\ 13321}#
- #{kw\ 13322}#
- #{body\ 13323}#
- #{vars\ 13324}#
- #{r*\ 13325}#
- #{w*\ 13326}#
- #{inits\ 13327}#
- #{meta\ 13328}#)
- ((lambda (#{tmp\ 13339}#)
- ((lambda (#{tmp\ 13340}#)
- (if (if #{tmp\ 13340}#
- (apply (lambda (#{docstring\ 13344}#
- #{e1\ 13345}#
- #{e2\ 13346}#)
+ #{old\ 2730}#
+ #{new\ 2732}#)
+ #{x\ 2716}#
+ (list->vector #{new\ 2732}#))))
+ #{x\ 2716}#))))))
+ (#{f\ 2715}# #{x\ 2708}#)))))
+ (#{chi-lambda-case\ 2462}#
+ (lambda (#{e\ 2734}#
+ #{r\ 2735}#
+ #{w\ 2736}#
+ #{s\ 2737}#
+ #{mod\ 2738}#
+ #{get-formals\ 2739}#
+ #{clauses\ 2740}#)
+ (letrec ((#{expand-body\ 2755}#
+ (lambda (#{req\ 2756}#
+ #{opt\ 2757}#
+ #{rest\ 2758}#
+ #{kw\ 2759}#
+ #{body\ 2760}#
+ #{vars\ 2761}#
+ #{r*\ 2762}#
+ #{w*\ 2763}#
+ #{inits\ 2764}#
+ #{meta\ 2765}#)
+ ((lambda (#{tmp\ 2776}#)
+ ((lambda (#{tmp\ 2777}#)
+ (if (if #{tmp\ 2777}#
+ (apply (lambda (#{docstring\ 2781}#
+ #{e1\ 2782}#
+ #{e2\ 2783}#)
(string?
(syntax->datum
- #{docstring\ 13344}#)))
- #{tmp\ 13340}#)
+ #{docstring\ 2781}#)))
+ #{tmp\ 2777}#)
#f)
- (apply (lambda (#{docstring\ 13350}#
- #{e1\ 13351}#
- #{e2\ 13352}#)
- (#{expand-body\ 13318}#
- #{req\ 13319}#
- #{opt\ 13320}#
- #{rest\ 13321}#
- #{kw\ 13322}#
- (cons #{e1\ 13351}#
- #{e2\ 13352}#)
- #{vars\ 13324}#
- #{r*\ 13325}#
- #{w*\ 13326}#
- #{inits\ 13327}#
+ (apply (lambda (#{docstring\ 2787}#
+ #{e1\ 2788}#
+ #{e2\ 2789}#)
+ (#{expand-body\ 2755}#
+ #{req\ 2756}#
+ #{opt\ 2757}#
+ #{rest\ 2758}#
+ #{kw\ 2759}#
+ (cons #{e1\ 2788}# #{e2\ 2789}#)
+ #{vars\ 2761}#
+ #{r*\ 2762}#
+ #{w*\ 2763}#
+ #{inits\ 2764}#
(append
- #{meta\ 13328}#
+ #{meta\ 2765}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 13350}#))))))
- #{tmp\ 13340}#)
- ((lambda (#{tmp\ 13355}#)
- (if #{tmp\ 13355}#
- (apply (lambda (#{k\ 13360}#
- #{v\ 13361}#
- #{e1\ 13362}#
- #{e2\ 13363}#)
- (#{expand-body\ 13318}#
- #{req\ 13319}#
- #{opt\ 13320}#
- #{rest\ 13321}#
- #{kw\ 13322}#
- (cons #{e1\ 13362}#
- #{e2\ 13363}#)
- #{vars\ 13324}#
- #{r*\ 13325}#
- #{w*\ 13326}#
- #{inits\ 13327}#
+ #{docstring\ 2787}#))))))
+ #{tmp\ 2777}#)
+ ((lambda (#{tmp\ 2792}#)
+ (if #{tmp\ 2792}#
+ (apply (lambda (#{k\ 2797}#
+ #{v\ 2798}#
+ #{e1\ 2799}#
+ #{e2\ 2800}#)
+ (#{expand-body\ 2755}#
+ #{req\ 2756}#
+ #{opt\ 2757}#
+ #{rest\ 2758}#
+ #{kw\ 2759}#
+ (cons #{e1\ 2799}#
+ #{e2\ 2800}#)
+ #{vars\ 2761}#
+ #{r*\ 2762}#
+ #{w*\ 2763}#
+ #{inits\ 2764}#
(append
- #{meta\ 13328}#
+ #{meta\ 2765}#
(syntax->datum
(map cons
- #{k\ 13360}#
- #{v\ 13361}#)))))
- #{tmp\ 13355}#)
- ((lambda (#{tmp\ 13367}#)
- (if #{tmp\ 13367}#
- (apply (lambda (#{e1\ 13370}#
- #{e2\ 13371}#)
+ #{k\ 2797}#
+ #{v\ 2798}#)))))
+ #{tmp\ 2792}#)
+ ((lambda (#{tmp\ 2804}#)
+ (if #{tmp\ 2804}#
+ (apply (lambda (#{e1\ 2807}#
+ #{e2\ 2808}#)
(values
- #{meta\ 13328}#
- #{req\ 13319}#
- #{opt\ 13320}#
- #{rest\ 13321}#
- #{kw\ 13322}#
- #{inits\ 13327}#
- #{vars\ 13324}#
- (#{chi-body\ 13009}#
- (cons #{e1\ 13370}#
- #{e2\ 13371}#)
- (#{source-wrap\ 12987}#
- #{e\ 13297}#
- #{w\ 13299}#
- #{s\ 13300}#
- #{mod\ 13301}#)
- #{r*\ 13325}#
- #{w*\ 13326}#
- #{mod\ 13301}#)))
- #{tmp\ 13367}#)
+ #{meta\ 2765}#
+ #{req\ 2756}#
+ #{opt\ 2757}#
+ #{rest\ 2758}#
+ #{kw\ 2759}#
+ #{inits\ 2764}#
+ #{vars\ 2761}#
+ (#{chi-body\ 2446}#
+ (cons #{e1\ 2807}#
+ #{e2\ 2808}#)
+ (#{source-wrap\ 2424}#
+ #{e\ 2734}#
+ #{w\ 2736}#
+ #{s\ 2737}#
+ #{mod\ 2738}#)
+ #{r*\ 2762}#
+ #{w*\ 2763}#
+ #{mod\ 2738}#)))
+ #{tmp\ 2804}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 13339}#)))
+ #{tmp\ 2776}#)))
($sc-dispatch
- #{tmp\ 13339}#
+ #{tmp\ 2776}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 13339}#
+ #{tmp\ 2776}#
'(#(vector #(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 13339}#
+ #{tmp\ 2776}#
'(any any . each-any))))
- #{body\ 13323}#)))
- (#{expand-kw\ 13316}#
- (lambda (#{req\ 13373}#
- #{opt\ 13374}#
- #{rest\ 13375}#
- #{kw\ 13376}#
- #{body\ 13377}#
- #{vars\ 13378}#
- #{r*\ 13379}#
- #{w*\ 13380}#
- #{aok\ 13381}#
- #{out\ 13382}#
- #{inits\ 13383}#)
- (if (pair? #{kw\ 13376}#)
- ((lambda (#{tmp\ 13397}#)
- ((lambda (#{tmp\ 13398}#)
- (if #{tmp\ 13398}#
- (apply (lambda (#{k\ 13402}#
- #{id\ 13403}#
- #{i\ 13404}#)
- (let ((#{v\ 13407}#
- (#{gen-var\ 13029}#
- #{id\ 13403}#)))
- (let ((#{l\ 13409}#
- (#{gen-labels\ 12934}#
- (list #{v\ 13407}#))))
- (let ((#{r**\ 13411}#
- (#{extend-var-env\ 12906}#
- #{l\ 13409}#
- (list #{v\ 13407}#)
- #{r*\ 13379}#)))
- (let ((#{w**\ 13413}#
- (#{make-binding-wrap\ 12963}#
- (list #{id\ 13403}#)
- #{l\ 13409}#
- #{w*\ 13380}#)))
- (#{expand-kw\ 13316}#
- #{req\ 13373}#
- #{opt\ 13374}#
- #{rest\ 13375}#
- (cdr #{kw\ 13376}#)
- #{body\ 13377}#
- (cons #{v\ 13407}#
- #{vars\ 13378}#)
- #{r**\ 13411}#
- #{w**\ 13413}#
- #{aok\ 13381}#
+ #{body\ 2760}#)))
+ (#{expand-kw\ 2753}#
+ (lambda (#{req\ 2810}#
+ #{opt\ 2811}#
+ #{rest\ 2812}#
+ #{kw\ 2813}#
+ #{body\ 2814}#
+ #{vars\ 2815}#
+ #{r*\ 2816}#
+ #{w*\ 2817}#
+ #{aok\ 2818}#
+ #{out\ 2819}#
+ #{inits\ 2820}#)
+ (if (pair? #{kw\ 2813}#)
+ ((lambda (#{tmp\ 2834}#)
+ ((lambda (#{tmp\ 2835}#)
+ (if #{tmp\ 2835}#
+ (apply (lambda (#{k\ 2839}#
+ #{id\ 2840}#
+ #{i\ 2841}#)
+ (let ((#{v\ 2844}#
+ (#{gen-var\ 2466}#
+ #{id\ 2840}#)))
+ (let ((#{l\ 2846}#
+ (#{gen-labels\ 2371}#
+ (list #{v\ 2844}#))))
+ (let ((#{r**\ 2848}#
+ (#{extend-var-env\ 2343}#
+ #{l\ 2846}#
+ (list #{v\ 2844}#)
+ #{r*\ 2816}#)))
+ (let ((#{w**\ 2850}#
+ (#{make-binding-wrap\ 2400}#
+ (list #{id\ 2840}#)
+ #{l\ 2846}#
+ #{w*\ 2817}#)))
+ (#{expand-kw\ 2753}#
+ #{req\ 2810}#
+ #{opt\ 2811}#
+ #{rest\ 2812}#
+ (cdr #{kw\ 2813}#)
+ #{body\ 2814}#
+ (cons #{v\ 2844}#
+ #{vars\ 2815}#)
+ #{r**\ 2848}#
+ #{w**\ 2850}#
+ #{aok\ 2818}#
(cons (list (syntax->datum
- #{k\ 13402}#)
+ #{k\ 2839}#)
(syntax->datum
- #{id\ 13403}#)
- #{v\ 13407}#)
- #{out\ 13382}#)
- (cons (#{chi\ 13001}#
- #{i\ 13404}#
- #{r*\ 13379}#
- #{w*\ 13380}#
- #{mod\ 13301}#)
- #{inits\ 13383}#)))))))
- #{tmp\ 13398}#)
+ #{id\ 2840}#)
+ #{v\ 2844}#)
+ #{out\ 2819}#)
+ (cons (#{chi\ 2438}#
+ #{i\ 2841}#
+ #{r*\ 2816}#
+ #{w*\ 2817}#
+ #{mod\ 2738}#)
+ #{inits\ 2820}#)))))))
+ #{tmp\ 2835}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 13397}#)))
+ #{tmp\ 2834}#)))
($sc-dispatch
- #{tmp\ 13397}#
+ #{tmp\ 2834}#
'(any any any))))
- (car #{kw\ 13376}#))
- (#{expand-body\ 13318}#
- #{req\ 13373}#
- #{opt\ 13374}#
- #{rest\ 13375}#
- (if (let ((#{t\ 13417}# #{aok\ 13381}#))
- (if #{t\ 13417}#
- #{t\ 13417}#
- (pair? #{out\ 13382}#)))
- (cons #{aok\ 13381}#
- (reverse #{out\ 13382}#))
+ (car #{kw\ 2813}#))
+ (#{expand-body\ 2755}#
+ #{req\ 2810}#
+ #{opt\ 2811}#
+ #{rest\ 2812}#
+ (if (let ((#{t\ 2854}# #{aok\ 2818}#))
+ (if #{t\ 2854}#
+ #{t\ 2854}#
+ (pair? #{out\ 2819}#)))
+ (cons #{aok\ 2818}# (reverse #{out\ 2819}#))
#f)
- #{body\ 13377}#
- (reverse #{vars\ 13378}#)
- #{r*\ 13379}#
- #{w*\ 13380}#
- (reverse #{inits\ 13383}#)
+ #{body\ 2814}#
+ (reverse #{vars\ 2815}#)
+ #{r*\ 2816}#
+ #{w*\ 2817}#
+ (reverse #{inits\ 2820}#)
'()))))
- (#{expand-opt\ 13314}#
- (lambda (#{req\ 13419}#
- #{opt\ 13420}#
- #{rest\ 13421}#
- #{kw\ 13422}#
- #{body\ 13423}#
- #{vars\ 13424}#
- #{r*\ 13425}#
- #{w*\ 13426}#
- #{out\ 13427}#
- #{inits\ 13428}#)
- (if (pair? #{opt\ 13420}#)
- ((lambda (#{tmp\ 13441}#)
- ((lambda (#{tmp\ 13442}#)
- (if #{tmp\ 13442}#
- (apply (lambda (#{id\ 13445}#
- #{i\ 13446}#)
- (let ((#{v\ 13449}#
- (#{gen-var\ 13029}#
- #{id\ 13445}#)))
- (let ((#{l\ 13451}#
- (#{gen-labels\ 12934}#
- (list #{v\ 13449}#))))
- (let ((#{r**\ 13453}#
- (#{extend-var-env\ 12906}#
- #{l\ 13451}#
- (list #{v\ 13449}#)
- #{r*\ 13425}#)))
- (let ((#{w**\ 13455}#
- (#{make-binding-wrap\ 12963}#
- (list #{id\ 13445}#)
- #{l\ 13451}#
- #{w*\ 13426}#)))
- (#{expand-opt\ 13314}#
- #{req\ 13419}#
- (cdr #{opt\ 13420}#)
- #{rest\ 13421}#
- #{kw\ 13422}#
- #{body\ 13423}#
- (cons #{v\ 13449}#
- #{vars\ 13424}#)
- #{r**\ 13453}#
- #{w**\ 13455}#
+ (#{expand-opt\ 2751}#
+ (lambda (#{req\ 2856}#
+ #{opt\ 2857}#
+ #{rest\ 2858}#
+ #{kw\ 2859}#
+ #{body\ 2860}#
+ #{vars\ 2861}#
+ #{r*\ 2862}#
+ #{w*\ 2863}#
+ #{out\ 2864}#
+ #{inits\ 2865}#)
+ (if (pair? #{opt\ 2857}#)
+ ((lambda (#{tmp\ 2878}#)
+ ((lambda (#{tmp\ 2879}#)
+ (if #{tmp\ 2879}#
+ (apply (lambda (#{id\ 2882}# #{i\ 2883}#)
+ (let ((#{v\ 2886}#
+ (#{gen-var\ 2466}#
+ #{id\ 2882}#)))
+ (let ((#{l\ 2888}#
+ (#{gen-labels\ 2371}#
+ (list #{v\ 2886}#))))
+ (let ((#{r**\ 2890}#
+ (#{extend-var-env\ 2343}#
+ #{l\ 2888}#
+ (list #{v\ 2886}#)
+ #{r*\ 2862}#)))
+ (let ((#{w**\ 2892}#
+ (#{make-binding-wrap\ 2400}#
+ (list #{id\ 2882}#)
+ #{l\ 2888}#
+ #{w*\ 2863}#)))
+ (#{expand-opt\ 2751}#
+ #{req\ 2856}#
+ (cdr #{opt\ 2857}#)
+ #{rest\ 2858}#
+ #{kw\ 2859}#
+ #{body\ 2860}#
+ (cons #{v\ 2886}#
+ #{vars\ 2861}#)
+ #{r**\ 2890}#
+ #{w**\ 2892}#
(cons (syntax->datum
- #{id\ 13445}#)
- #{out\ 13427}#)
- (cons (#{chi\ 13001}#
- #{i\ 13446}#
- #{r*\ 13425}#
- #{w*\ 13426}#
- #{mod\ 13301}#)
- #{inits\ 13428}#)))))))
- #{tmp\ 13442}#)
+ #{id\ 2882}#)
+ #{out\ 2864}#)
+ (cons (#{chi\ 2438}#
+ #{i\ 2883}#
+ #{r*\ 2862}#
+ #{w*\ 2863}#
+ #{mod\ 2738}#)
+ #{inits\ 2865}#)))))))
+ #{tmp\ 2879}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 13441}#)))
+ #{tmp\ 2878}#)))
($sc-dispatch
- #{tmp\ 13441}#
+ #{tmp\ 2878}#
'(any any))))
- (car #{opt\ 13420}#))
- (if #{rest\ 13421}#
- (let ((#{v\ 13460}#
- (#{gen-var\ 13029}# #{rest\ 13421}#)))
- (let ((#{l\ 13462}#
- (#{gen-labels\ 12934}#
- (list #{v\ 13460}#))))
- (let ((#{r*\ 13464}#
- (#{extend-var-env\ 12906}#
- #{l\ 13462}#
- (list #{v\ 13460}#)
- #{r*\ 13425}#)))
- (let ((#{w*\ 13466}#
- (#{make-binding-wrap\ 12963}#
- (list #{rest\ 13421}#)
- #{l\ 13462}#
- #{w*\ 13426}#)))
- (#{expand-kw\ 13316}#
- #{req\ 13419}#
- (if (pair? #{out\ 13427}#)
- (reverse #{out\ 13427}#)
+ (car #{opt\ 2857}#))
+ (if #{rest\ 2858}#
+ (let ((#{v\ 2897}#
+ (#{gen-var\ 2466}# #{rest\ 2858}#)))
+ (let ((#{l\ 2899}#
+ (#{gen-labels\ 2371}#
+ (list #{v\ 2897}#))))
+ (let ((#{r*\ 2901}#
+ (#{extend-var-env\ 2343}#
+ #{l\ 2899}#
+ (list #{v\ 2897}#)
+ #{r*\ 2862}#)))
+ (let ((#{w*\ 2903}#
+ (#{make-binding-wrap\ 2400}#
+ (list #{rest\ 2858}#)
+ #{l\ 2899}#
+ #{w*\ 2863}#)))
+ (#{expand-kw\ 2753}#
+ #{req\ 2856}#
+ (if (pair? #{out\ 2864}#)
+ (reverse #{out\ 2864}#)
#f)
- (syntax->datum #{rest\ 13421}#)
- (if (pair? #{kw\ 13422}#)
- (cdr #{kw\ 13422}#)
- #{kw\ 13422}#)
- #{body\ 13423}#
- (cons #{v\ 13460}# #{vars\ 13424}#)
- #{r*\ 13464}#
- #{w*\ 13466}#
- (if (pair? #{kw\ 13422}#)
- (car #{kw\ 13422}#)
+ (syntax->datum #{rest\ 2858}#)
+ (if (pair? #{kw\ 2859}#)
+ (cdr #{kw\ 2859}#)
+ #{kw\ 2859}#)
+ #{body\ 2860}#
+ (cons #{v\ 2897}# #{vars\ 2861}#)
+ #{r*\ 2901}#
+ #{w*\ 2903}#
+ (if (pair? #{kw\ 2859}#)
+ (car #{kw\ 2859}#)
#f)
'()
- #{inits\ 13428}#)))))
- (#{expand-kw\ 13316}#
- #{req\ 13419}#
- (if (pair? #{out\ 13427}#)
- (reverse #{out\ 13427}#)
+ #{inits\ 2865}#)))))
+ (#{expand-kw\ 2753}#
+ #{req\ 2856}#
+ (if (pair? #{out\ 2864}#)
+ (reverse #{out\ 2864}#)
#f)
#f
- (if (pair? #{kw\ 13422}#)
- (cdr #{kw\ 13422}#)
- #{kw\ 13422}#)
- #{body\ 13423}#
- #{vars\ 13424}#
- #{r*\ 13425}#
- #{w*\ 13426}#
- (if (pair? #{kw\ 13422}#)
- (car #{kw\ 13422}#)
+ (if (pair? #{kw\ 2859}#)
+ (cdr #{kw\ 2859}#)
+ #{kw\ 2859}#)
+ #{body\ 2860}#
+ #{vars\ 2861}#
+ #{r*\ 2862}#
+ #{w*\ 2863}#
+ (if (pair? #{kw\ 2859}#)
+ (car #{kw\ 2859}#)
#f)
'()
- #{inits\ 13428}#)))))
- (#{expand-req\ 13312}#
- (lambda (#{req\ 13468}#
- #{opt\ 13469}#
- #{rest\ 13470}#
- #{kw\ 13471}#
- #{body\ 13472}#)
- (let ((#{vars\ 13480}#
- (map #{gen-var\ 13029}# #{req\ 13468}#))
- (#{labels\ 13481}#
- (#{gen-labels\ 12934}# #{req\ 13468}#)))
- (let ((#{r*\ 13484}#
- (#{extend-var-env\ 12906}#
- #{labels\ 13481}#
- #{vars\ 13480}#
- #{r\ 13298}#))
- (#{w*\ 13485}#
- (#{make-binding-wrap\ 12963}#
- #{req\ 13468}#
- #{labels\ 13481}#
- #{w\ 13299}#)))
- (#{expand-opt\ 13314}#
- (map syntax->datum #{req\ 13468}#)
- #{opt\ 13469}#
- #{rest\ 13470}#
- #{kw\ 13471}#
- #{body\ 13472}#
- (reverse #{vars\ 13480}#)
- #{r*\ 13484}#
- #{w*\ 13485}#
+ #{inits\ 2865}#)))))
+ (#{expand-req\ 2749}#
+ (lambda (#{req\ 2905}#
+ #{opt\ 2906}#
+ #{rest\ 2907}#
+ #{kw\ 2908}#
+ #{body\ 2909}#)
+ (let ((#{vars\ 2917}#
+ (map #{gen-var\ 2466}# #{req\ 2905}#))
+ (#{labels\ 2918}#
+ (#{gen-labels\ 2371}# #{req\ 2905}#)))
+ (let ((#{r*\ 2921}#
+ (#{extend-var-env\ 2343}#
+ #{labels\ 2918}#
+ #{vars\ 2917}#
+ #{r\ 2735}#))
+ (#{w*\ 2922}#
+ (#{make-binding-wrap\ 2400}#
+ #{req\ 2905}#
+ #{labels\ 2918}#
+ #{w\ 2736}#)))
+ (#{expand-opt\ 2751}#
+ (map syntax->datum #{req\ 2905}#)
+ #{opt\ 2906}#
+ #{rest\ 2907}#
+ #{kw\ 2908}#
+ #{body\ 2909}#
+ (reverse #{vars\ 2917}#)
+ #{r*\ 2921}#
+ #{w*\ 2922}#
'()
'()))))))
- ((lambda (#{tmp\ 13486}#)
- ((lambda (#{tmp\ 13487}#)
- (if #{tmp\ 13487}#
+ ((lambda (#{tmp\ 2923}#)
+ ((lambda (#{tmp\ 2924}#)
+ (if #{tmp\ 2924}#
(apply (lambda () (values (quote ()) #f))
- #{tmp\ 13487}#)
- ((lambda (#{tmp\ 13488}#)
- (if #{tmp\ 13488}#
- (apply (lambda (#{args\ 13495}#
- #{e1\ 13496}#
- #{e2\ 13497}#
- #{args*\ 13498}#
- #{e1*\ 13499}#
- #{e2*\ 13500}#)
+ #{tmp\ 2924}#)
+ ((lambda (#{tmp\ 2925}#)
+ (if #{tmp\ 2925}#
+ (apply (lambda (#{args\ 2932}#
+ #{e1\ 2933}#
+ #{e2\ 2934}#
+ #{args*\ 2935}#
+ #{e1*\ 2936}#
+ #{e2*\ 2937}#)
(call-with-values
(lambda ()
- (#{get-formals\ 13302}#
- #{args\ 13495}#))
- (lambda (#{req\ 13501}#
- #{opt\ 13502}#
- #{rest\ 13503}#
- #{kw\ 13504}#)
+ (#{get-formals\ 2739}#
+ #{args\ 2932}#))
+ (lambda (#{req\ 2938}#
+ #{opt\ 2939}#
+ #{rest\ 2940}#
+ #{kw\ 2941}#)
(call-with-values
(lambda ()
- (#{expand-req\ 13312}#
- #{req\ 13501}#
- #{opt\ 13502}#
- #{rest\ 13503}#
- #{kw\ 13504}#
- (cons #{e1\ 13496}#
- #{e2\ 13497}#)))
- (lambda (#{meta\ 13510}#
- #{req\ 13511}#
- #{opt\ 13512}#
- #{rest\ 13513}#
- #{kw\ 13514}#
- #{inits\ 13515}#
- #{vars\ 13516}#
- #{body\ 13517}#)
+ (#{expand-req\ 2749}#
+ #{req\ 2938}#
+ #{opt\ 2939}#
+ #{rest\ 2940}#
+ #{kw\ 2941}#
+ (cons #{e1\ 2933}#
+ #{e2\ 2934}#)))
+ (lambda (#{meta\ 2947}#
+ #{req\ 2948}#
+ #{opt\ 2949}#
+ #{rest\ 2950}#
+ #{kw\ 2951}#
+ #{inits\ 2952}#
+ #{vars\ 2953}#
+ #{body\ 2954}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 13025}#
- #{e\ 13297}#
- #{r\ 13298}#
- #{w\ 13299}#
- #{s\ 13300}#
- #{mod\ 13301}#
- #{get-formals\ 13302}#
- (map (lambda (#{tmp\ 13528}#
- #{tmp\ 13527}#
- #{tmp\ 13526}#)
- (cons #{tmp\ 13526}#
- (cons #{tmp\ 13527}#
- #{tmp\ 13528}#)))
- #{e2*\ 13500}#
- #{e1*\ 13499}#
- #{args*\ 13498}#)))
- (lambda (#{meta*\ 13530}#
- #{else*\ 13531}#)
+ (#{chi-lambda-case\ 2462}#
+ #{e\ 2734}#
+ #{r\ 2735}#
+ #{w\ 2736}#
+ #{s\ 2737}#
+ #{mod\ 2738}#
+ #{get-formals\ 2739}#
+ (map (lambda (#{tmp\ 2965}#
+ #{tmp\ 2964}#
+ #{tmp\ 2963}#)
+ (cons #{tmp\ 2963}#
+ (cons #{tmp\ 2964}#
+ #{tmp\ 2965}#)))
+ #{e2*\ 2937}#
+ #{e1*\ 2936}#
+ #{args*\ 2935}#)))
+ (lambda (#{meta*\ 2967}#
+ #{else*\ 2968}#)
(values
(append
- #{meta\ 13510}#
- #{meta*\ 13530}#)
- (#{build-lambda-case\ 12862}#
- #{s\ 13300}#
- #{req\ 13511}#
- #{opt\ 13512}#
- #{rest\ 13513}#
- #{kw\ 13514}#
- #{inits\ 13515}#
- #{vars\ 13516}#
- #{body\ 13517}#
- #{else*\ 13531}#)))))))))
- #{tmp\ 13488}#)
+ #{meta\ 2947}#
+ #{meta*\ 2967}#)
+ (#{build-lambda-case\ 2299}#
+ #{s\ 2737}#
+ #{req\ 2948}#
+ #{opt\ 2949}#
+ #{rest\ 2950}#
+ #{kw\ 2951}#
+ #{inits\ 2952}#
+ #{vars\ 2953}#
+ #{body\ 2954}#
+ #{else*\ 2968}#)))))))))
+ #{tmp\ 2925}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 13486}#)))
+ #{tmp\ 2923}#)))
($sc-dispatch
- #{tmp\ 13486}#
+ #{tmp\ 2923}#
'((any any . each-any)
.
#(each (any any . each-any)))))))
- ($sc-dispatch #{tmp\ 13486}# (quote ()))))
- #{clauses\ 13303}#))))
- (#{lambda*-formals\ 13023}#
- (lambda (#{orig-args\ 13534}#)
- (letrec ((#{check\ 13545}#
- (lambda (#{req\ 13546}#
- #{opt\ 13547}#
- #{rest\ 13548}#
- #{kw\ 13549}#)
- (if (#{distinct-bound-ids?\ 12981}#
+ ($sc-dispatch #{tmp\ 2923}# (quote ()))))
+ #{clauses\ 2740}#))))
+ (#{lambda*-formals\ 2460}#
+ (lambda (#{orig-args\ 2971}#)
+ (letrec ((#{check\ 2982}#
+ (lambda (#{req\ 2983}#
+ #{opt\ 2984}#
+ #{rest\ 2985}#
+ #{kw\ 2986}#)
+ (if (#{distinct-bound-ids?\ 2418}#
(append
- #{req\ 13546}#
- (map car #{opt\ 13547}#)
- (if #{rest\ 13548}#
- (list #{rest\ 13548}#)
+ #{req\ 2983}#
+ (map car #{opt\ 2984}#)
+ (if #{rest\ 2985}#
+ (list #{rest\ 2985}#)
'())
- (if (pair? #{kw\ 13549}#)
- (map cadr (cdr #{kw\ 13549}#))
+ (if (pair? #{kw\ 2986}#)
+ (map cadr (cdr #{kw\ 2986}#))
'())))
(values
- #{req\ 13546}#
- #{opt\ 13547}#
- #{rest\ 13548}#
- #{kw\ 13549}#)
+ #{req\ 2983}#
+ #{opt\ 2984}#
+ #{rest\ 2985}#
+ #{kw\ 2986}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 13534}#))))
- (#{rest\ 13543}#
- (lambda (#{args\ 13557}#
- #{req\ 13558}#
- #{opt\ 13559}#
- #{kw\ 13560}#)
- ((lambda (#{tmp\ 13565}#)
- ((lambda (#{tmp\ 13566}#)
- (if (if #{tmp\ 13566}#
- (apply (lambda (#{r\ 13568}#)
- (#{id?\ 12916}# #{r\ 13568}#))
- #{tmp\ 13566}#)
+ #{orig-args\ 2971}#))))
+ (#{rest\ 2980}#
+ (lambda (#{args\ 2994}#
+ #{req\ 2995}#
+ #{opt\ 2996}#
+ #{kw\ 2997}#)
+ ((lambda (#{tmp\ 3002}#)
+ ((lambda (#{tmp\ 3003}#)
+ (if (if #{tmp\ 3003}#
+ (apply (lambda (#{r\ 3005}#)
+ (#{id?\ 2353}# #{r\ 3005}#))
+ #{tmp\ 3003}#)
#f)
- (apply (lambda (#{r\ 13570}#)
- (#{check\ 13545}#
- #{req\ 13558}#
- #{opt\ 13559}#
- #{r\ 13570}#
- #{kw\ 13560}#))
- #{tmp\ 13566}#)
- ((lambda (#{else\ 13572}#)
+ (apply (lambda (#{r\ 3007}#)
+ (#{check\ 2982}#
+ #{req\ 2995}#
+ #{opt\ 2996}#
+ #{r\ 3007}#
+ #{kw\ 2997}#))
+ #{tmp\ 3003}#)
+ ((lambda (#{else\ 3009}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 13534}#
- #{args\ 13557}#))
- #{tmp\ 13565}#)))
- (list #{tmp\ 13565}#)))
- #{args\ 13557}#)))
- (#{key\ 13541}#
- (lambda (#{args\ 13573}#
- #{req\ 13574}#
- #{opt\ 13575}#
- #{rkey\ 13576}#)
- ((lambda (#{tmp\ 13581}#)
- ((lambda (#{tmp\ 13582}#)
- (if #{tmp\ 13582}#
+ #{orig-args\ 2971}#
+ #{args\ 2994}#))
+ #{tmp\ 3002}#)))
+ (list #{tmp\ 3002}#)))
+ #{args\ 2994}#)))
+ (#{key\ 2978}#
+ (lambda (#{args\ 3010}#
+ #{req\ 3011}#
+ #{opt\ 3012}#
+ #{rkey\ 3013}#)
+ ((lambda (#{tmp\ 3018}#)
+ ((lambda (#{tmp\ 3019}#)
+ (if #{tmp\ 3019}#
(apply (lambda ()
- (#{check\ 13545}#
- #{req\ 13574}#
- #{opt\ 13575}#
+ (#{check\ 2982}#
+ #{req\ 3011}#
+ #{opt\ 3012}#
#f
(cons #f
(reverse
- #{rkey\ 13576}#))))
- #{tmp\ 13582}#)
- ((lambda (#{tmp\ 13583}#)
- (if (if #{tmp\ 13583}#
- (apply (lambda (#{a\ 13586}#
- #{b\ 13587}#)
- (#{id?\ 12916}#
- #{a\ 13586}#))
- #{tmp\ 13583}#)
+ #{rkey\ 3013}#))))
+ #{tmp\ 3019}#)
+ ((lambda (#{tmp\ 3020}#)
+ (if (if #{tmp\ 3020}#
+ (apply (lambda (#{a\ 3023}#
+ #{b\ 3024}#)
+ (#{id?\ 2353}#
+ #{a\ 3023}#))
+ #{tmp\ 3020}#)
#f)
- (apply (lambda (#{a\ 13590}#
- #{b\ 13591}#)
- ((lambda (#{tmp\ 13593}#)
- ((lambda (#{k\ 13595}#)
- (#{key\ 13541}#
- #{b\ 13591}#
- #{req\ 13574}#
- #{opt\ 13575}#
- (cons (cons #{k\ 13595}#
- (cons #{a\ 13590}#
+ (apply (lambda (#{a\ 3027}#
+ #{b\ 3028}#)
+ ((lambda (#{tmp\ 3030}#)
+ ((lambda (#{k\ 3032}#)
+ (#{key\ 2978}#
+ #{b\ 3028}#
+ #{req\ 3011}#
+ #{opt\ 3012}#
+ (cons (cons #{k\ 3032}#
+ (cons #{a\ 3027}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i13594"))
+ #("i3031"))
#(ribcage
#(a
b)
#((top)
(top))
- #("i13588"
- "i13589"))
+ #("i3025"
+ "i3026"))
#(ribcage
()
()
@@ -665,10 +652,10 @@
(top)
(top)
(top))
- #("i13577"
- "i13578"
- "i13579"
- "i13580"))
+ #("i3014"
+ "i3015"
+ "i3016"
+ "i3017"))
#(ribcage
(check rest
key
@@ -679,15 +666,15 @@
(top)
(top)
(top))
- ("i13544"
- "i13542"
- "i13540"
- "i13538"
- "i13536"))
+ ("i2981"
+ "i2979"
+ "i2977"
+ "i2975"
+ "i2973"))
#(ribcage
#(orig-args)
#((top))
- #("i13535"))
+ #("i2972"))
#(ribcage
(lambda-var-list
gen-var
@@ -959,141 +946,141 @@
(top)
(top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2407"
+ "i2405"
+ "i2403"
+ "i2401"
+ "i2399"
+ "i2397"
+ "i2396"
+ "i2395"
+ "i2393"
+ "i2392"
+ "i2391"
+ "i2390"
+ "i2389"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2370"
+ "i2368"
+ "i2367"
+ "i2366"
+ "i2365"
+ "i2364"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2354"
+ "i2352"
+ "i2350"
+ "i2348"
+ "i2346"
+ "i2344"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2337"
+ "i2335"
+ "i2334"
+ "i2333"
+ "i2331"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"
+ "i2308"
+ "i2306"
+ "i2304"
+ "i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2265"
+ "i2263"
+ "i2261"
+ "i2259"
+ "i2257"
+ "i2255"
+ "i2253"
+ "i2251"
+ "i2249"
+ "i2247"
+ "i2245"
+ "i2243"
+ "i2241"
+ "i2239"
+ "i2237"
+ "i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2214"))
#(ribcage
(define-structure
define-expansion-constructors
@@ -1101,230 +1088,228 @@
((top)
(top)
(top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i2066"
+ "i2065"
+ "i2063")))
(hygiene
guile)))))
- #{rkey\ 13576}#)))
- #{tmp\ 13593}#))
+ #{rkey\ 3013}#)))
+ #{tmp\ 3030}#))
(symbol->keyword
(syntax->datum
- #{a\ 13590}#))))
- #{tmp\ 13583}#)
- ((lambda (#{tmp\ 13596}#)
- (if (if #{tmp\ 13596}#
- (apply (lambda (#{a\ 13600}#
- #{init\ 13601}#
- #{b\ 13602}#)
- (#{id?\ 12916}#
- #{a\ 13600}#))
- #{tmp\ 13596}#)
+ #{a\ 3027}#))))
+ #{tmp\ 3020}#)
+ ((lambda (#{tmp\ 3033}#)
+ (if (if #{tmp\ 3033}#
+ (apply (lambda (#{a\ 3037}#
+ #{init\ 3038}#
+ #{b\ 3039}#)
+ (#{id?\ 2353}#
+ #{a\ 3037}#))
+ #{tmp\ 3033}#)
#f)
- (apply (lambda (#{a\ 13606}#
- #{init\ 13607}#
- #{b\ 13608}#)
- ((lambda (#{tmp\ 13610}#)
- ((lambda (#{k\ 13612}#)
- (#{key\ 13541}#
- #{b\ 13608}#
- #{req\ 13574}#
- #{opt\ 13575}#
- (cons (list #{k\ 13612}#
- #{a\ 13606}#
- #{init\ 13607}#)
- #{rkey\ 13576}#)))
- #{tmp\ 13610}#))
+ (apply (lambda (#{a\ 3043}#
+ #{init\ 3044}#
+ #{b\ 3045}#)
+ ((lambda (#{tmp\ 3047}#)
+ ((lambda (#{k\ 3049}#)
+ (#{key\ 2978}#
+ #{b\ 3045}#
+ #{req\ 3011}#
+ #{opt\ 3012}#
+ (cons (list #{k\ 3049}#
+ #{a\ 3043}#
+ #{init\ 3044}#)
+ #{rkey\ 3013}#)))
+ #{tmp\ 3047}#))
(symbol->keyword
(syntax->datum
- #{a\ 13606}#))))
- #{tmp\ 13596}#)
- ((lambda (#{tmp\ 13613}#)
- (if (if #{tmp\ 13613}#
- (apply (lambda (#{a\ 13618}#
- #{init\ 13619}#
- #{k\ 13620}#
- #{b\ 13621}#)
- (if (#{id?\ 12916}#
- #{a\ 13618}#)
+ #{a\ 3043}#))))
+ #{tmp\ 3033}#)
+ ((lambda (#{tmp\ 3050}#)
+ (if (if #{tmp\ 3050}#
+ (apply (lambda (#{a\ 3055}#
+ #{init\ 3056}#
+ #{k\ 3057}#
+ #{b\ 3058}#)
+ (if (#{id?\ 2353}#
+ #{a\ 3055}#)
(keyword?
(syntax->datum
- #{k\ 13620}#))
+ #{k\ 3057}#))
#f))
- #{tmp\ 13613}#)
+ #{tmp\ 3050}#)
#f)
- (apply (lambda (#{a\ 13628}#
- #{init\ 13629}#
- #{k\ 13630}#
- #{b\ 13631}#)
- (#{key\ 13541}#
- #{b\ 13631}#
- #{req\ 13574}#
- #{opt\ 13575}#
- (cons (list #{k\ 13630}#
- #{a\ 13628}#
- #{init\ 13629}#)
- #{rkey\ 13576}#)))
- #{tmp\ 13613}#)
- ((lambda (#{tmp\ 13632}#)
- (if (if #{tmp\ 13632}#
- (apply (lambda (#{aok\ 13634}#)
+ (apply (lambda (#{a\ 3065}#
+ #{init\ 3066}#
+ #{k\ 3067}#
+ #{b\ 3068}#)
+ (#{key\ 2978}#
+ #{b\ 3068}#
+ #{req\ 3011}#
+ #{opt\ 3012}#
+ (cons (list #{k\ 3067}#
+ #{a\ 3065}#
+ #{init\ 3066}#)
+ #{rkey\ 3013}#)))
+ #{tmp\ 3050}#)
+ ((lambda (#{tmp\ 3069}#)
+ (if (if #{tmp\ 3069}#
+ (apply (lambda (#{aok\ 3071}#)
(eq? (syntax->datum
- #{aok\ 13634}#)
+ #{aok\ 3071}#)
#:allow-other-keys))
- #{tmp\ 13632}#)
+ #{tmp\ 3069}#)
#f)
- (apply (lambda (#{aok\ 13636}#)
- (#{check\ 13545}#
- #{req\ 13574}#
- #{opt\ 13575}#
+ (apply (lambda (#{aok\ 3073}#)
+ (#{check\ 2982}#
+ #{req\ 3011}#
+ #{opt\ 3012}#
#f
(cons #t
(reverse
- #{rkey\ 13576}#))))
- #{tmp\ 13632}#)
- ((lambda (#{tmp\ 13637}#)
- (if (if #{tmp\ 13637}#
- (apply (lambda (#{aok\ 13641}#
- #{a\ 13642}#
- #{b\ 13643}#)
+ #{rkey\ 3013}#))))
+ #{tmp\ 3069}#)
+ ((lambda (#{tmp\ 3074}#)
+ (if (if #{tmp\ 3074}#
+ (apply (lambda (#{aok\ 3078}#
+ #{a\ 3079}#
+ #{b\ 3080}#)
(if (eq? (syntax->datum
- #{aok\ 13641}#)
+ #{aok\ 3078}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 13642}#)
+ #{a\ 3079}#)
#:rest)
#f))
- #{tmp\ 13637}#)
+ #{tmp\ 3074}#)
#f)
- (apply (lambda (#{aok\ 13649}#
- #{a\ 13650}#
- #{b\ 13651}#)
- (#{rest\ 13543}#
- #{b\ 13651}#
- #{req\ 13574}#
- #{opt\ 13575}#
+ (apply (lambda (#{aok\ 3086}#
+ #{a\ 3087}#
+ #{b\ 3088}#)
+ (#{rest\ 2980}#
+ #{b\ 3088}#
+ #{req\ 3011}#
+ #{opt\ 3012}#
(cons #t
(reverse
- #{rkey\ 13576}#))))
- #{tmp\ 13637}#)
- ((lambda (#{tmp\ 13652}#)
- (if (if #{tmp\ 13652}#
- (apply (lambda (#{aok\ 13655}#
- #{r\ 13656}#)
+ #{rkey\ 3013}#))))
+ #{tmp\ 3074}#)
+ ((lambda (#{tmp\ 3089}#)
+ (if (if #{tmp\ 3089}#
+ (apply (lambda (#{aok\ 3092}#
+ #{r\ 3093}#)
(if (eq? (syntax->datum
- #{aok\ 13655}#)
+ #{aok\ 3092}#)
#:allow-other-keys)
- (#{id?\ 12916}#
- #{r\ 13656}#)
+ (#{id?\ 2353}#
+ #{r\ 3093}#)
#f))
- #{tmp\ 13652}#)
+ #{tmp\ 3089}#)
#f)
- (apply (lambda (#{aok\ 13661}#
- #{r\ 13662}#)
- (#{rest\ 13543}#
- #{r\ 13662}#
- #{req\ 13574}#
- #{opt\ 13575}#
+ (apply (lambda (#{aok\ 3098}#
+ #{r\ 3099}#)
+ (#{rest\ 2980}#
+ #{r\ 3099}#
+ #{req\ 3011}#
+ #{opt\ 3012}#
(cons #t
(reverse
- #{rkey\ 13576}#))))
- #{tmp\ 13652}#)
- ((lambda (#{tmp\ 13663}#)
- (if (if #{tmp\ 13663}#
- (apply (lambda (#{a\ 13666}#
- #{b\ 13667}#)
+ #{rkey\ 3013}#))))
+ #{tmp\ 3089}#)
+ ((lambda (#{tmp\ 3100}#)
+ (if (if #{tmp\ 3100}#
+ (apply (lambda (#{a\ 3103}#
+ #{b\ 3104}#)
(eq? (syntax->datum
- #{a\ 13666}#)
+ #{a\ 3103}#)
#:rest))
- #{tmp\ 13663}#)
+ #{tmp\ 3100}#)
#f)
- (apply (lambda (#{a\ 13670}#
- #{b\ 13671}#)
- (#{rest\ 13543}#
- #{b\ 13671}#
- #{req\ 13574}#
- #{opt\ 13575}#
+ (apply (lambda (#{a\ 3107}#
+ #{b\ 3108}#)
+ (#{rest\ 2980}#
+ #{b\ 3108}#
+ #{req\ 3011}#
+ #{opt\ 3012}#
(cons #f
(reverse
- #{rkey\ 13576}#))))
- #{tmp\ 13663}#)
- ((lambda (#{tmp\ 13672}#)
- (if (if #{tmp\ 13672}#
- (apply (lambda (#{r\ 13674}#)
- (#{id?\ 12916}#
- #{r\ 13674}#))
- #{tmp\ 13672}#)
+ #{rkey\ 3013}#))))
+ #{tmp\ 3100}#)
+ ((lambda (#{tmp\ 3109}#)
+ (if (if #{tmp\ 3109}#
+ (apply (lambda (#{r\ 3111}#)
+ (#{id?\ 2353}#
+ #{r\ 3111}#))
+ #{tmp\ 3109}#)
#f)
- (apply (lambda (#{r\ 13676}#)
- (#{rest\ 13543}#
- #{r\ 13676}#
- #{req\ 13574}#
- #{opt\ 13575}#
+ (apply (lambda (#{r\ 3113}#)
+ (#{rest\ 2980}#
+ #{r\ 3113}#
+ #{req\ 3011}#
+ #{opt\ 3012}#
(cons #f
(reverse
- #{rkey\ 13576}#))))
- #{tmp\ 13672}#)
- ((lambda (#{else\ 13678}#)
+ #{rkey\ 3013}#))))
+ #{tmp\ 3109}#)
+ ((lambda (#{else\ 3115}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args\ 13534}#
- #{args\ 13573}#))
- #{tmp\ 13581}#)))
- (list #{tmp\ 13581}#))))
+ #{orig-args\ 2971}#
+ #{args\ 3010}#))
+ #{tmp\ 3018}#)))
+ (list #{tmp\ 3018}#))))
($sc-dispatch
- #{tmp\ 13581}#
+ #{tmp\ 3018}#
'(any any)))))
($sc-dispatch
- #{tmp\ 13581}#
+ #{tmp\ 3018}#
'(any .
any)))))
($sc-dispatch
- #{tmp\ 13581}#
+ #{tmp\ 3018}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 13581}#
+ #{tmp\ 3018}#
'(any)))))
($sc-dispatch
- #{tmp\ 13581}#
+ #{tmp\ 3018}#
'((any any any) . any)))))
($sc-dispatch
- #{tmp\ 13581}#
+ #{tmp\ 3018}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 13581}#
+ #{tmp\ 3018}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 13581}# (quote ()))))
- #{args\ 13573}#)))
- (#{opt\ 13539}#
- (lambda (#{args\ 13679}#
- #{req\ 13680}#
- #{ropt\ 13681}#)
- ((lambda (#{tmp\ 13685}#)
- ((lambda (#{tmp\ 13686}#)
- (if #{tmp\ 13686}#
+ ($sc-dispatch #{tmp\ 3018}# (quote ()))))
+ #{args\ 3010}#)))
+ (#{opt\ 2976}#
+ (lambda (#{args\ 3116}# #{req\ 3117}# #{ropt\ 3118}#)
+ ((lambda (#{tmp\ 3122}#)
+ ((lambda (#{tmp\ 3123}#)
+ (if #{tmp\ 3123}#
(apply (lambda ()
- (#{check\ 13545}#
- #{req\ 13680}#
- (reverse #{ropt\ 13681}#)
+ (#{check\ 2982}#
+ #{req\ 3117}#
+ (reverse #{ropt\ 3118}#)
#f
'()))
- #{tmp\ 13686}#)
- ((lambda (#{tmp\ 13687}#)
- (if (if #{tmp\ 13687}#
- (apply (lambda (#{a\ 13690}#
- #{b\ 13691}#)
- (#{id?\ 12916}#
- #{a\ 13690}#))
- #{tmp\ 13687}#)
+ #{tmp\ 3123}#)
+ ((lambda (#{tmp\ 3124}#)
+ (if (if #{tmp\ 3124}#
+ (apply (lambda (#{a\ 3127}#
+ #{b\ 3128}#)
+ (#{id?\ 2353}#
+ #{a\ 3127}#))
+ #{tmp\ 3124}#)
#f)
- (apply (lambda (#{a\ 13694}#
- #{b\ 13695}#)
- (#{opt\ 13539}#
- #{b\ 13695}#
- #{req\ 13680}#
- (cons (cons #{a\ 13694}#
+ (apply (lambda (#{a\ 3131}#
+ #{b\ 3132}#)
+ (#{opt\ 2976}#
+ #{b\ 3132}#
+ #{req\ 3117}#
+ (cons (cons #{a\ 3131}#
'(#(syntax-object
#f
((top)
@@ -1332,8 +1317,8 @@
#(a b)
#((top)
(top))
- #("i13692"
- "i13693"))
+ #("i3129"
+ "i3130"))
#(ribcage
()
()
@@ -1345,9 +1330,9 @@
#((top)
(top)
(top))
- #("i13682"
- "i13683"
- "i13684"))
+ #("i3119"
+ "i3120"
+ "i3121"))
#(ribcage
(check rest
key
@@ -1358,15 +1343,15 @@
(top)
(top)
(top))
- ("i13544"
- "i13542"
- "i13540"
- "i13538"
- "i13536"))
+ ("i2981"
+ "i2979"
+ "i2977"
+ "i2975"
+ "i2973"))
#(ribcage
#(orig-args)
#((top))
- #("i13535"))
+ #("i2972"))
#(ribcage
(lambda-var-list
gen-var
@@ -1638,141 +1623,141 @@
(top)
(top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2407"
+ "i2405"
+ "i2403"
+ "i2401"
+ "i2399"
+ "i2397"
+ "i2396"
+ "i2395"
+ "i2393"
+ "i2392"
+ "i2391"
+ "i2390"
+ "i2389"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2370"
+ "i2368"
+ "i2367"
+ "i2366"
+ "i2365"
+ "i2364"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2354"
+ "i2352"
+ "i2350"
+ "i2348"
+ "i2346"
+ "i2344"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2337"
+ "i2335"
+ "i2334"
+ "i2333"
+ "i2331"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"
+ "i2308"
+ "i2306"
+ "i2304"
+ "i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2265"
+ "i2263"
+ "i2261"
+ "i2259"
+ "i2257"
+ "i2255"
+ "i2253"
+ "i2251"
+ "i2249"
+ "i2247"
+ "i2245"
+ "i2243"
+ "i2241"
+ "i2239"
+ "i2237"
+ "i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2214"))
#(ribcage
(define-structure
define-expansion-constructors
@@ -1780,341 +1765,341 @@
((top)
(top)
(top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i2066"
+ "i2065"
+ "i2063")))
(hygiene
guile))))
- #{ropt\ 13681}#)))
- #{tmp\ 13687}#)
- ((lambda (#{tmp\ 13696}#)
- (if (if #{tmp\ 13696}#
- (apply (lambda (#{a\ 13700}#
- #{init\ 13701}#
- #{b\ 13702}#)
- (#{id?\ 12916}#
- #{a\ 13700}#))
- #{tmp\ 13696}#)
+ #{ropt\ 3118}#)))
+ #{tmp\ 3124}#)
+ ((lambda (#{tmp\ 3133}#)
+ (if (if #{tmp\ 3133}#
+ (apply (lambda (#{a\ 3137}#
+ #{init\ 3138}#
+ #{b\ 3139}#)
+ (#{id?\ 2353}#
+ #{a\ 3137}#))
+ #{tmp\ 3133}#)
#f)
- (apply (lambda (#{a\ 13706}#
- #{init\ 13707}#
- #{b\ 13708}#)
- (#{opt\ 13539}#
- #{b\ 13708}#
- #{req\ 13680}#
- (cons (list #{a\ 13706}#
- #{init\ 13707}#)
- #{ropt\ 13681}#)))
- #{tmp\ 13696}#)
- ((lambda (#{tmp\ 13709}#)
- (if (if #{tmp\ 13709}#
- (apply (lambda (#{a\ 13712}#
- #{b\ 13713}#)
+ (apply (lambda (#{a\ 3143}#
+ #{init\ 3144}#
+ #{b\ 3145}#)
+ (#{opt\ 2976}#
+ #{b\ 3145}#
+ #{req\ 3117}#
+ (cons (list #{a\ 3143}#
+ #{init\ 3144}#)
+ #{ropt\ 3118}#)))
+ #{tmp\ 3133}#)
+ ((lambda (#{tmp\ 3146}#)
+ (if (if #{tmp\ 3146}#
+ (apply (lambda (#{a\ 3149}#
+ #{b\ 3150}#)
(eq? (syntax->datum
- #{a\ 13712}#)
+ #{a\ 3149}#)
#:key))
- #{tmp\ 13709}#)
+ #{tmp\ 3146}#)
#f)
- (apply (lambda (#{a\ 13716}#
- #{b\ 13717}#)
- (#{key\ 13541}#
- #{b\ 13717}#
- #{req\ 13680}#
+ (apply (lambda (#{a\ 3153}#
+ #{b\ 3154}#)
+ (#{key\ 2978}#
+ #{b\ 3154}#
+ #{req\ 3117}#
(reverse
- #{ropt\ 13681}#)
+ #{ropt\ 3118}#)
'()))
- #{tmp\ 13709}#)
- ((lambda (#{tmp\ 13718}#)
- (if (if #{tmp\ 13718}#
- (apply (lambda (#{a\ 13721}#
- #{b\ 13722}#)
+ #{tmp\ 3146}#)
+ ((lambda (#{tmp\ 3155}#)
+ (if (if #{tmp\ 3155}#
+ (apply (lambda (#{a\ 3158}#
+ #{b\ 3159}#)
(eq? (syntax->datum
- #{a\ 13721}#)
+ #{a\ 3158}#)
#:rest))
- #{tmp\ 13718}#)
+ #{tmp\ 3155}#)
#f)
- (apply (lambda (#{a\ 13725}#
- #{b\ 13726}#)
- (#{rest\ 13543}#
- #{b\ 13726}#
- #{req\ 13680}#
+ (apply (lambda (#{a\ 3162}#
+ #{b\ 3163}#)
+ (#{rest\ 2980}#
+ #{b\ 3163}#
+ #{req\ 3117}#
(reverse
- #{ropt\ 13681}#)
+ #{ropt\ 3118}#)
'()))
- #{tmp\ 13718}#)
- ((lambda (#{tmp\ 13727}#)
- (if (if #{tmp\ 13727}#
- (apply (lambda (#{r\ 13729}#)
- (#{id?\ 12916}#
- #{r\ 13729}#))
- #{tmp\ 13727}#)
+ #{tmp\ 3155}#)
+ ((lambda (#{tmp\ 3164}#)
+ (if (if #{tmp\ 3164}#
+ (apply (lambda (#{r\ 3166}#)
+ (#{id?\ 2353}#
+ #{r\ 3166}#))
+ #{tmp\ 3164}#)
#f)
- (apply (lambda (#{r\ 13731}#)
- (#{rest\ 13543}#
- #{r\ 13731}#
- #{req\ 13680}#
+ (apply (lambda (#{r\ 3168}#)
+ (#{rest\ 2980}#
+ #{r\ 3168}#
+ #{req\ 3117}#
(reverse
- #{ropt\ 13681}#)
+ #{ropt\ 3118}#)
'()))
- #{tmp\ 13727}#)
- ((lambda (#{else\ 13733}#)
+ #{tmp\ 3164}#)
+ ((lambda (#{else\ 3170}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args\ 13534}#
- #{args\ 13679}#))
- #{tmp\ 13685}#)))
- (list #{tmp\ 13685}#))))
+ #{orig-args\ 2971}#
+ #{args\ 3116}#))
+ #{tmp\ 3122}#)))
+ (list #{tmp\ 3122}#))))
($sc-dispatch
- #{tmp\ 13685}#
+ #{tmp\ 3122}#
'(any any)))))
($sc-dispatch
- #{tmp\ 13685}#
+ #{tmp\ 3122}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 13685}#
+ #{tmp\ 3122}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 13685}#
+ #{tmp\ 3122}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 13685}# (quote ()))))
- #{args\ 13679}#)))
- (#{req\ 13537}#
- (lambda (#{args\ 13734}# #{rreq\ 13735}#)
- ((lambda (#{tmp\ 13738}#)
- ((lambda (#{tmp\ 13739}#)
- (if #{tmp\ 13739}#
+ ($sc-dispatch #{tmp\ 3122}# (quote ()))))
+ #{args\ 3116}#)))
+ (#{req\ 2974}#
+ (lambda (#{args\ 3171}# #{rreq\ 3172}#)
+ ((lambda (#{tmp\ 3175}#)
+ ((lambda (#{tmp\ 3176}#)
+ (if #{tmp\ 3176}#
(apply (lambda ()
- (#{check\ 13545}#
- (reverse #{rreq\ 13735}#)
+ (#{check\ 2982}#
+ (reverse #{rreq\ 3172}#)
'()
#f
'()))
- #{tmp\ 13739}#)
- ((lambda (#{tmp\ 13740}#)
- (if (if #{tmp\ 13740}#
- (apply (lambda (#{a\ 13743}#
- #{b\ 13744}#)
- (#{id?\ 12916}#
- #{a\ 13743}#))
- #{tmp\ 13740}#)
+ #{tmp\ 3176}#)
+ ((lambda (#{tmp\ 3177}#)
+ (if (if #{tmp\ 3177}#
+ (apply (lambda (#{a\ 3180}#
+ #{b\ 3181}#)
+ (#{id?\ 2353}#
+ #{a\ 3180}#))
+ #{tmp\ 3177}#)
#f)
- (apply (lambda (#{a\ 13747}#
- #{b\ 13748}#)
- (#{req\ 13537}#
- #{b\ 13748}#
- (cons #{a\ 13747}#
- #{rreq\ 13735}#)))
- #{tmp\ 13740}#)
- ((lambda (#{tmp\ 13749}#)
- (if (if #{tmp\ 13749}#
- (apply (lambda (#{a\ 13752}#
- #{b\ 13753}#)
+ (apply (lambda (#{a\ 3184}#
+ #{b\ 3185}#)
+ (#{req\ 2974}#
+ #{b\ 3185}#
+ (cons #{a\ 3184}#
+ #{rreq\ 3172}#)))
+ #{tmp\ 3177}#)
+ ((lambda (#{tmp\ 3186}#)
+ (if (if #{tmp\ 3186}#
+ (apply (lambda (#{a\ 3189}#
+ #{b\ 3190}#)
(eq? (syntax->datum
- #{a\ 13752}#)
+ #{a\ 3189}#)
#:optional))
- #{tmp\ 13749}#)
+ #{tmp\ 3186}#)
#f)
- (apply (lambda (#{a\ 13756}#
- #{b\ 13757}#)
- (#{opt\ 13539}#
- #{b\ 13757}#
+ (apply (lambda (#{a\ 3193}#
+ #{b\ 3194}#)
+ (#{opt\ 2976}#
+ #{b\ 3194}#
(reverse
- #{rreq\ 13735}#)
+ #{rreq\ 3172}#)
'()))
- #{tmp\ 13749}#)
- ((lambda (#{tmp\ 13758}#)
- (if (if #{tmp\ 13758}#
- (apply (lambda (#{a\ 13761}#
- #{b\ 13762}#)
+ #{tmp\ 3186}#)
+ ((lambda (#{tmp\ 3195}#)
+ (if (if #{tmp\ 3195}#
+ (apply (lambda (#{a\ 3198}#
+ #{b\ 3199}#)
(eq? (syntax->datum
- #{a\ 13761}#)
+ #{a\ 3198}#)
#:key))
- #{tmp\ 13758}#)
+ #{tmp\ 3195}#)
#f)
- (apply (lambda (#{a\ 13765}#
- #{b\ 13766}#)
- (#{key\ 13541}#
- #{b\ 13766}#
+ (apply (lambda (#{a\ 3202}#
+ #{b\ 3203}#)
+ (#{key\ 2978}#
+ #{b\ 3203}#
(reverse
- #{rreq\ 13735}#)
+ #{rreq\ 3172}#)
'()
'()))
- #{tmp\ 13758}#)
- ((lambda (#{tmp\ 13767}#)
- (if (if #{tmp\ 13767}#
- (apply (lambda (#{a\ 13770}#
- #{b\ 13771}#)
+ #{tmp\ 3195}#)
+ ((lambda (#{tmp\ 3204}#)
+ (if (if #{tmp\ 3204}#
+ (apply (lambda (#{a\ 3207}#
+ #{b\ 3208}#)
(eq? (syntax->datum
- #{a\ 13770}#)
+ #{a\ 3207}#)
#:rest))
- #{tmp\ 13767}#)
+ #{tmp\ 3204}#)
#f)
- (apply (lambda (#{a\ 13774}#
- #{b\ 13775}#)
- (#{rest\ 13543}#
- #{b\ 13775}#
+ (apply (lambda (#{a\ 3211}#
+ #{b\ 3212}#)
+ (#{rest\ 2980}#
+ #{b\ 3212}#
(reverse
- #{rreq\ 13735}#)
+ #{rreq\ 3172}#)
'()
'()))
- #{tmp\ 13767}#)
- ((lambda (#{tmp\ 13776}#)
- (if (if #{tmp\ 13776}#
- (apply (lambda (#{r\ 13778}#)
- (#{id?\ 12916}#
- #{r\ 13778}#))
- #{tmp\ 13776}#)
+ #{tmp\ 3204}#)
+ ((lambda (#{tmp\ 3213}#)
+ (if (if #{tmp\ 3213}#
+ (apply (lambda (#{r\ 3215}#)
+ (#{id?\ 2353}#
+ #{r\ 3215}#))
+ #{tmp\ 3213}#)
#f)
- (apply (lambda (#{r\ 13780}#)
- (#{rest\ 13543}#
- #{r\ 13780}#
+ (apply (lambda (#{r\ 3217}#)
+ (#{rest\ 2980}#
+ #{r\ 3217}#
(reverse
- #{rreq\ 13735}#)
+ #{rreq\ 3172}#)
'()
'()))
- #{tmp\ 13776}#)
- ((lambda (#{else\ 13782}#)
+ #{tmp\ 3213}#)
+ ((lambda (#{else\ 3219}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 13534}#
- #{args\ 13734}#))
- #{tmp\ 13738}#)))
- (list #{tmp\ 13738}#))))
+ #{orig-args\ 2971}#
+ #{args\ 3171}#))
+ #{tmp\ 3175}#)))
+ (list #{tmp\ 3175}#))))
($sc-dispatch
- #{tmp\ 13738}#
+ #{tmp\ 3175}#
'(any any)))))
($sc-dispatch
- #{tmp\ 13738}#
+ #{tmp\ 3175}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 13738}#
+ #{tmp\ 3175}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 13738}#
+ #{tmp\ 3175}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 13738}# (quote ()))))
- #{args\ 13734}#))))
- (#{req\ 13537}# #{orig-args\ 13534}# (quote ())))))
- (#{chi-simple-lambda\ 13021}#
- (lambda (#{e\ 13783}#
- #{r\ 13784}#
- #{w\ 13785}#
- #{s\ 13786}#
- #{mod\ 13787}#
- #{req\ 13788}#
- #{rest\ 13789}#
- #{meta\ 13790}#
- #{body\ 13791}#)
- (let ((#{ids\ 13803}#
- (if #{rest\ 13789}#
- (append #{req\ 13788}# (list #{rest\ 13789}#))
- #{req\ 13788}#)))
- (let ((#{vars\ 13805}#
- (map #{gen-var\ 13029}# #{ids\ 13803}#)))
- (let ((#{labels\ 13807}#
- (#{gen-labels\ 12934}# #{ids\ 13803}#)))
- (#{build-simple-lambda\ 12858}#
- #{s\ 13786}#
- (map syntax->datum #{req\ 13788}#)
- (if #{rest\ 13789}#
- (syntax->datum #{rest\ 13789}#)
+ ($sc-dispatch #{tmp\ 3175}# (quote ()))))
+ #{args\ 3171}#))))
+ (#{req\ 2974}# #{orig-args\ 2971}# (quote ())))))
+ (#{chi-simple-lambda\ 2458}#
+ (lambda (#{e\ 3220}#
+ #{r\ 3221}#
+ #{w\ 3222}#
+ #{s\ 3223}#
+ #{mod\ 3224}#
+ #{req\ 3225}#
+ #{rest\ 3226}#
+ #{meta\ 3227}#
+ #{body\ 3228}#)
+ (let ((#{ids\ 3240}#
+ (if #{rest\ 3226}#
+ (append #{req\ 3225}# (list #{rest\ 3226}#))
+ #{req\ 3225}#)))
+ (let ((#{vars\ 3242}#
+ (map #{gen-var\ 2466}# #{ids\ 3240}#)))
+ (let ((#{labels\ 3244}#
+ (#{gen-labels\ 2371}# #{ids\ 3240}#)))
+ (#{build-simple-lambda\ 2295}#
+ #{s\ 3223}#
+ (map syntax->datum #{req\ 3225}#)
+ (if #{rest\ 3226}#
+ (syntax->datum #{rest\ 3226}#)
#f)
- #{vars\ 13805}#
- #{meta\ 13790}#
- (#{chi-body\ 13009}#
- #{body\ 13791}#
- (#{source-wrap\ 12987}#
- #{e\ 13783}#
- #{w\ 13785}#
- #{s\ 13786}#
- #{mod\ 13787}#)
- (#{extend-var-env\ 12906}#
- #{labels\ 13807}#
- #{vars\ 13805}#
- #{r\ 13784}#)
- (#{make-binding-wrap\ 12963}#
- #{ids\ 13803}#
- #{labels\ 13807}#
- #{w\ 13785}#)
- #{mod\ 13787}#)))))))
- (#{lambda-formals\ 13019}#
- (lambda (#{orig-args\ 13810}#)
- (letrec ((#{check\ 13815}#
- (lambda (#{req\ 13816}# #{rest\ 13817}#)
- (if (#{distinct-bound-ids?\ 12981}#
- (if #{rest\ 13817}#
- (cons #{rest\ 13817}# #{req\ 13816}#)
- #{req\ 13816}#))
- (values #{req\ 13816}# #f #{rest\ 13817}# #f)
+ #{vars\ 3242}#
+ #{meta\ 3227}#
+ (#{chi-body\ 2446}#
+ #{body\ 3228}#
+ (#{source-wrap\ 2424}#
+ #{e\ 3220}#
+ #{w\ 3222}#
+ #{s\ 3223}#
+ #{mod\ 3224}#)
+ (#{extend-var-env\ 2343}#
+ #{labels\ 3244}#
+ #{vars\ 3242}#
+ #{r\ 3221}#)
+ (#{make-binding-wrap\ 2400}#
+ #{ids\ 3240}#
+ #{labels\ 3244}#
+ #{w\ 3222}#)
+ #{mod\ 3224}#)))))))
+ (#{lambda-formals\ 2456}#
+ (lambda (#{orig-args\ 3247}#)
+ (letrec ((#{check\ 3252}#
+ (lambda (#{req\ 3253}# #{rest\ 3254}#)
+ (if (#{distinct-bound-ids?\ 2418}#
+ (if #{rest\ 3254}#
+ (cons #{rest\ 3254}# #{req\ 3253}#)
+ #{req\ 3253}#))
+ (values #{req\ 3253}# #f #{rest\ 3254}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 13810}#))))
- (#{req\ 13813}#
- (lambda (#{args\ 13823}# #{rreq\ 13824}#)
- ((lambda (#{tmp\ 13827}#)
- ((lambda (#{tmp\ 13828}#)
- (if #{tmp\ 13828}#
+ #{orig-args\ 3247}#))))
+ (#{req\ 3250}#
+ (lambda (#{args\ 3260}# #{rreq\ 3261}#)
+ ((lambda (#{tmp\ 3264}#)
+ ((lambda (#{tmp\ 3265}#)
+ (if #{tmp\ 3265}#
(apply (lambda ()
- (#{check\ 13815}#
- (reverse #{rreq\ 13824}#)
+ (#{check\ 3252}#
+ (reverse #{rreq\ 3261}#)
#f))
- #{tmp\ 13828}#)
- ((lambda (#{tmp\ 13829}#)
- (if (if #{tmp\ 13829}#
- (apply (lambda (#{a\ 13832}#
- #{b\ 13833}#)
- (#{id?\ 12916}#
- #{a\ 13832}#))
- #{tmp\ 13829}#)
+ #{tmp\ 3265}#)
+ ((lambda (#{tmp\ 3266}#)
+ (if (if #{tmp\ 3266}#
+ (apply (lambda (#{a\ 3269}#
+ #{b\ 3270}#)
+ (#{id?\ 2353}#
+ #{a\ 3269}#))
+ #{tmp\ 3266}#)
#f)
- (apply (lambda (#{a\ 13836}#
- #{b\ 13837}#)
- (#{req\ 13813}#
- #{b\ 13837}#
- (cons #{a\ 13836}#
- #{rreq\ 13824}#)))
- #{tmp\ 13829}#)
- ((lambda (#{tmp\ 13838}#)
- (if (if #{tmp\ 13838}#
- (apply (lambda (#{r\ 13840}#)
- (#{id?\ 12916}#
- #{r\ 13840}#))
- #{tmp\ 13838}#)
+ (apply (lambda (#{a\ 3273}#
+ #{b\ 3274}#)
+ (#{req\ 3250}#
+ #{b\ 3274}#
+ (cons #{a\ 3273}#
+ #{rreq\ 3261}#)))
+ #{tmp\ 3266}#)
+ ((lambda (#{tmp\ 3275}#)
+ (if (if #{tmp\ 3275}#
+ (apply (lambda (#{r\ 3277}#)
+ (#{id?\ 2353}#
+ #{r\ 3277}#))
+ #{tmp\ 3275}#)
#f)
- (apply (lambda (#{r\ 13842}#)
- (#{check\ 13815}#
+ (apply (lambda (#{r\ 3279}#)
+ (#{check\ 3252}#
(reverse
- #{rreq\ 13824}#)
- #{r\ 13842}#))
- #{tmp\ 13838}#)
- ((lambda (#{else\ 13844}#)
+ #{rreq\ 3261}#)
+ #{r\ 3279}#))
+ #{tmp\ 3275}#)
+ ((lambda (#{else\ 3281}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 13810}#
- #{args\ 13823}#))
- #{tmp\ 13827}#)))
- (list #{tmp\ 13827}#))))
+ #{orig-args\ 3247}#
+ #{args\ 3260}#))
+ #{tmp\ 3264}#)))
+ (list #{tmp\ 3264}#))))
($sc-dispatch
- #{tmp\ 13827}#
+ #{tmp\ 3264}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 13827}# (quote ()))))
- #{args\ 13823}#))))
- (#{req\ 13813}# #{orig-args\ 13810}# (quote ())))))
- (#{ellipsis?\ 13017}#
- (lambda (#{x\ 13845}#)
- (if (#{nonsymbol-id?\ 12914}# #{x\ 13845}#)
- (#{free-id=?\ 12975}#
- #{x\ 13845}#
+ ($sc-dispatch #{tmp\ 3264}# (quote ()))))
+ #{args\ 3260}#))))
+ (#{req\ 3250}# #{orig-args\ 3247}# (quote ())))))
+ (#{ellipsis?\ 2454}#
+ (lambda (#{x\ 3282}#)
+ (if (#{nonsymbol-id?\ 2351}# #{x\ 3282}#)
+ (#{free-id=?\ 2412}#
+ #{x\ 3282}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i13846"))
+ #(ribcage #(x) #((top)) #("i3283"))
#(ribcage
(lambda-var-list
gen-var
@@ -2386,1441 +2371,1431 @@
(top)
(top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2407"
+ "i2405"
+ "i2403"
+ "i2401"
+ "i2399"
+ "i2397"
+ "i2396"
+ "i2395"
+ "i2393"
+ "i2392"
+ "i2391"
+ "i2390"
+ "i2389"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2370"
+ "i2368"
+ "i2367"
+ "i2366"
+ "i2365"
+ "i2364"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2354"
+ "i2352"
+ "i2350"
+ "i2348"
+ "i2346"
+ "i2344"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2337"
+ "i2335"
+ "i2334"
+ "i2333"
+ "i2331"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"
+ "i2308"
+ "i2306"
+ "i2304"
+ "i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2265"
+ "i2263"
+ "i2261"
+ "i2259"
+ "i2257"
+ "i2255"
+ "i2253"
+ "i2251"
+ "i2249"
+ "i2247"
+ "i2245"
+ "i2243"
+ "i2241"
+ "i2239"
+ "i2237"
+ "i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2214"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629" "i12628" "i12626")))
+ ("i2066" "i2065" "i2063")))
(hygiene guile)))
#f)))
- (#{chi-void\ 13015}#
- (lambda () (#{build-void\ 12836}# #f)))
- (#{eval-local-transformer\ 13013}#
- (lambda (#{expanded\ 13850}# #{mod\ 13851}#)
- (let ((#{p\ 13855}#
- (#{local-eval-hook\ 12827}#
- #{expanded\ 13850}#
- #{mod\ 13851}#)))
- (if (procedure? #{p\ 13855}#)
- (cons #{p\ 13855}#
- (module-name (current-module)))
+ (#{chi-void\ 2452}#
+ (lambda () (#{build-void\ 2273}# #f)))
+ (#{eval-local-transformer\ 2450}#
+ (lambda (#{expanded\ 3287}# #{mod\ 3288}#)
+ (let ((#{p\ 3292}#
+ (#{local-eval-hook\ 2264}#
+ #{expanded\ 3287}#
+ #{mod\ 3288}#)))
+ (if (procedure? #{p\ 3292}#)
+ (cons #{p\ 3292}# (module-name (current-module)))
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 13855}#)))))
- (#{chi-local-syntax\ 13011}#
- (lambda (#{rec?\ 13856}#
- #{e\ 13857}#
- #{r\ 13858}#
- #{w\ 13859}#
- #{s\ 13860}#
- #{mod\ 13861}#
- #{k\ 13862}#)
- ((lambda (#{tmp\ 13870}#)
- ((lambda (#{tmp\ 13871}#)
- (if #{tmp\ 13871}#
- (apply (lambda (#{_\ 13877}#
- #{id\ 13878}#
- #{val\ 13879}#
- #{e1\ 13880}#
- #{e2\ 13881}#)
- (let ((#{ids\ 13883}# #{id\ 13878}#))
- (if (not (#{valid-bound-ids?\ 12979}#
- #{ids\ 13883}#))
+ #{p\ 3292}#)))))
+ (#{chi-local-syntax\ 2448}#
+ (lambda (#{rec?\ 3293}#
+ #{e\ 3294}#
+ #{r\ 3295}#
+ #{w\ 3296}#
+ #{s\ 3297}#
+ #{mod\ 3298}#
+ #{k\ 3299}#)
+ ((lambda (#{tmp\ 3307}#)
+ ((lambda (#{tmp\ 3308}#)
+ (if #{tmp\ 3308}#
+ (apply (lambda (#{_\ 3314}#
+ #{id\ 3315}#
+ #{val\ 3316}#
+ #{e1\ 3317}#
+ #{e2\ 3318}#)
+ (let ((#{ids\ 3320}# #{id\ 3315}#))
+ (if (not (#{valid-bound-ids?\ 2416}#
+ #{ids\ 3320}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 13857}#)
- (let ((#{labels\ 13886}#
- (#{gen-labels\ 12934}#
- #{ids\ 13883}#)))
- (let ((#{new-w\ 13888}#
- (#{make-binding-wrap\ 12963}#
- #{ids\ 13883}#
- #{labels\ 13886}#
- #{w\ 13859}#)))
- (#{k\ 13862}#
- (cons #{e1\ 13880}# #{e2\ 13881}#)
- (#{extend-env\ 12904}#
- #{labels\ 13886}#
- (let ((#{w\ 13892}#
- (if #{rec?\ 13856}#
- #{new-w\ 13888}#
- #{w\ 13859}#))
- (#{trans-r\ 13893}#
- (#{macros-only-env\ 12908}#
- #{r\ 13858}#)))
- (map (lambda (#{x\ 13894}#)
+ #{e\ 3294}#)
+ (let ((#{labels\ 3323}#
+ (#{gen-labels\ 2371}#
+ #{ids\ 3320}#)))
+ (let ((#{new-w\ 3325}#
+ (#{make-binding-wrap\ 2400}#
+ #{ids\ 3320}#
+ #{labels\ 3323}#
+ #{w\ 3296}#)))
+ (#{k\ 3299}#
+ (cons #{e1\ 3317}# #{e2\ 3318}#)
+ (#{extend-env\ 2341}#
+ #{labels\ 3323}#
+ (let ((#{w\ 3329}#
+ (if #{rec?\ 3293}#
+ #{new-w\ 3325}#
+ #{w\ 3296}#))
+ (#{trans-r\ 3330}#
+ (#{macros-only-env\ 2345}#
+ #{r\ 3295}#)))
+ (map (lambda (#{x\ 3331}#)
(cons 'macro
- (#{eval-local-transformer\ 13013}#
- (#{chi\ 13001}#
- #{x\ 13894}#
- #{trans-r\ 13893}#
- #{w\ 13892}#
- #{mod\ 13861}#)
- #{mod\ 13861}#)))
- #{val\ 13879}#))
- #{r\ 13858}#)
- #{new-w\ 13888}#
- #{s\ 13860}#
- #{mod\ 13861}#))))))
- #{tmp\ 13871}#)
- ((lambda (#{_\ 13899}#)
+ (#{eval-local-transformer\ 2450}#
+ (#{chi\ 2438}#
+ #{x\ 3331}#
+ #{trans-r\ 3330}#
+ #{w\ 3329}#
+ #{mod\ 3298}#)
+ #{mod\ 3298}#)))
+ #{val\ 3316}#))
+ #{r\ 3295}#)
+ #{new-w\ 3325}#
+ #{s\ 3297}#
+ #{mod\ 3298}#))))))
+ #{tmp\ 3308}#)
+ ((lambda (#{_\ 3336}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 12987}#
- #{e\ 13857}#
- #{w\ 13859}#
- #{s\ 13860}#
- #{mod\ 13861}#)))
- #{tmp\ 13870}#)))
+ (#{source-wrap\ 2424}#
+ #{e\ 3294}#
+ #{w\ 3296}#
+ #{s\ 3297}#
+ #{mod\ 3298}#)))
+ #{tmp\ 3307}#)))
($sc-dispatch
- #{tmp\ 13870}#
+ #{tmp\ 3307}#
'(any #(each (any any)) any . each-any))))
- #{e\ 13857}#)))
- (#{chi-body\ 13009}#
- (lambda (#{body\ 13900}#
- #{outer-form\ 13901}#
- #{r\ 13902}#
- #{w\ 13903}#
- #{mod\ 13904}#)
- (let ((#{r\ 13912}#
+ #{e\ 3294}#)))
+ (#{chi-body\ 2446}#
+ (lambda (#{body\ 3337}#
+ #{outer-form\ 3338}#
+ #{r\ 3339}#
+ #{w\ 3340}#
+ #{mod\ 3341}#)
+ (let ((#{r\ 3349}#
(cons '("placeholder" placeholder)
- #{r\ 13902}#)))
- (let ((#{ribcage\ 13914}#
- (#{make-ribcage\ 12937}#
+ #{r\ 3339}#)))
+ (let ((#{ribcage\ 3351}#
+ (#{make-ribcage\ 2374}#
'()
'()
'())))
- (let ((#{w\ 13917}#
- (#{make-wrap\ 12921}#
- (#{wrap-marks\ 12923}# #{w\ 13903}#)
- (cons #{ribcage\ 13914}#
- (#{wrap-subst\ 12925}# #{w\ 13903}#)))))
- (letrec ((#{parse\ 13926}#
- (lambda (#{body\ 13927}#
- #{ids\ 13928}#
- #{labels\ 13929}#
- #{var-ids\ 13930}#
- #{vars\ 13931}#
- #{vals\ 13932}#
- #{bindings\ 13933}#)
- (if (null? #{body\ 13927}#)
+ (let ((#{w\ 3354}#
+ (#{make-wrap\ 2358}#
+ (#{wrap-marks\ 2360}# #{w\ 3340}#)
+ (cons #{ribcage\ 3351}#
+ (#{wrap-subst\ 2362}# #{w\ 3340}#)))))
+ (letrec ((#{parse\ 3363}#
+ (lambda (#{body\ 3364}#
+ #{ids\ 3365}#
+ #{labels\ 3366}#
+ #{var-ids\ 3367}#
+ #{vars\ 3368}#
+ #{vals\ 3369}#
+ #{bindings\ 3370}#)
+ (if (null? #{body\ 3364}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 13901}#)
- (let ((#{e\ 13938}# (cdar #{body\ 13927}#))
- (#{er\ 13939}#
- (caar #{body\ 13927}#)))
+ #{outer-form\ 3338}#)
+ (let ((#{e\ 3375}# (cdar #{body\ 3364}#))
+ (#{er\ 3376}# (caar #{body\ 3364}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 12997}#
- #{e\ 13938}#
- #{er\ 13939}#
+ (#{syntax-type\ 2434}#
+ #{e\ 3375}#
+ #{er\ 3376}#
'(())
- (#{source-annotation\ 12895}#
- #{er\ 13939}#)
- #{ribcage\ 13914}#
- #{mod\ 13904}#
+ (#{source-annotation\ 2332}#
+ #{er\ 3376}#)
+ #{ribcage\ 3351}#
+ #{mod\ 3341}#
#f))
- (lambda (#{type\ 13941}#
- #{value\ 13942}#
- #{e\ 13943}#
- #{w\ 13944}#
- #{s\ 13945}#
- #{mod\ 13946}#)
- (if (memv #{type\ 13941}#
+ (lambda (#{type\ 3378}#
+ #{value\ 3379}#
+ #{e\ 3380}#
+ #{w\ 3381}#
+ #{s\ 3382}#
+ #{mod\ 3383}#)
+ (if (memv #{type\ 3378}#
'(define-form))
- (let ((#{id\ 13956}#
- (#{wrap\ 12985}#
- #{value\ 13942}#
- #{w\ 13944}#
- #{mod\ 13946}#))
- (#{label\ 13957}#
- (#{gen-label\ 12932}#)))
- (let ((#{var\ 13959}#
- (#{gen-var\ 13029}#
- #{id\ 13956}#)))
+ (let ((#{id\ 3393}#
+ (#{wrap\ 2422}#
+ #{value\ 3379}#
+ #{w\ 3381}#
+ #{mod\ 3383}#))
+ (#{label\ 3394}#
+ (#{gen-label\ 2369}#)))
+ (let ((#{var\ 3396}#
+ (#{gen-var\ 2466}#
+ #{id\ 3393}#)))
(begin
- (#{extend-ribcage!\ 12961}#
- #{ribcage\ 13914}#
- #{id\ 13956}#
- #{label\ 13957}#)
- (#{parse\ 13926}#
- (cdr #{body\ 13927}#)
- (cons #{id\ 13956}#
- #{ids\ 13928}#)
- (cons #{label\ 13957}#
- #{labels\ 13929}#)
- (cons #{id\ 13956}#
- #{var-ids\ 13930}#)
- (cons #{var\ 13959}#
- #{vars\ 13931}#)
- (cons (cons #{er\ 13939}#
- (#{wrap\ 12985}#
- #{e\ 13943}#
- #{w\ 13944}#
- #{mod\ 13946}#))
- #{vals\ 13932}#)
+ (#{extend-ribcage!\ 2398}#
+ #{ribcage\ 3351}#
+ #{id\ 3393}#
+ #{label\ 3394}#)
+ (#{parse\ 3363}#
+ (cdr #{body\ 3364}#)
+ (cons #{id\ 3393}#
+ #{ids\ 3365}#)
+ (cons #{label\ 3394}#
+ #{labels\ 3366}#)
+ (cons #{id\ 3393}#
+ #{var-ids\ 3367}#)
+ (cons #{var\ 3396}#
+ #{vars\ 3368}#)
+ (cons (cons #{er\ 3376}#
+ (#{wrap\ 2422}#
+ #{e\ 3380}#
+ #{w\ 3381}#
+ #{mod\ 3383}#))
+ #{vals\ 3369}#)
(cons (cons 'lexical
- #{var\ 13959}#)
- #{bindings\ 13933}#)))))
- (if (memv #{type\ 13941}#
+ #{var\ 3396}#)
+ #{bindings\ 3370}#)))))
+ (if (memv #{type\ 3378}#
'(define-syntax-form))
- (let ((#{id\ 13964}#
- (#{wrap\ 12985}#
- #{value\ 13942}#
- #{w\ 13944}#
- #{mod\ 13946}#))
- (#{label\ 13965}#
- (#{gen-label\ 12932}#)))
+ (let ((#{id\ 3401}#
+ (#{wrap\ 2422}#
+ #{value\ 3379}#
+ #{w\ 3381}#
+ #{mod\ 3383}#))
+ (#{label\ 3402}#
+ (#{gen-label\ 2369}#)))
(begin
- (#{extend-ribcage!\ 12961}#
- #{ribcage\ 13914}#
- #{id\ 13964}#
- #{label\ 13965}#)
- (#{parse\ 13926}#
- (cdr #{body\ 13927}#)
- (cons #{id\ 13964}#
- #{ids\ 13928}#)
- (cons #{label\ 13965}#
- #{labels\ 13929}#)
- #{var-ids\ 13930}#
- #{vars\ 13931}#
- #{vals\ 13932}#
+ (#{extend-ribcage!\ 2398}#
+ #{ribcage\ 3351}#
+ #{id\ 3401}#
+ #{label\ 3402}#)
+ (#{parse\ 3363}#
+ (cdr #{body\ 3364}#)
+ (cons #{id\ 3401}#
+ #{ids\ 3365}#)
+ (cons #{label\ 3402}#
+ #{labels\ 3366}#)
+ #{var-ids\ 3367}#
+ #{vars\ 3368}#
+ #{vals\ 3369}#
(cons (cons 'macro
- (cons #{er\ 13939}#
- (#{wrap\ 12985}#
- #{e\ 13943}#
- #{w\ 13944}#
- #{mod\ 13946}#)))
- #{bindings\ 13933}#))))
- (if (memv #{type\ 13941}#
+ (cons #{er\ 3376}#
+ (#{wrap\ 2422}#
+ #{e\ 3380}#
+ #{w\ 3381}#
+ #{mod\ 3383}#)))
+ #{bindings\ 3370}#))))
+ (if (memv #{type\ 3378}#
'(begin-form))
- ((lambda (#{tmp\ 13968}#)
- ((lambda (#{tmp\ 13969}#)
- (if #{tmp\ 13969}#
- (apply (lambda (#{_\ 13972}#
- #{e1\ 13973}#)
- (#{parse\ 13926}#
- (letrec ((#{f\ 13976}#
- (lambda (#{forms\ 13977}#)
- (if (null? #{forms\ 13977}#)
- (cdr #{body\ 13927}#)
- (cons (cons #{er\ 13939}#
- (#{wrap\ 12985}#
- (car #{forms\ 13977}#)
- #{w\ 13944}#
- #{mod\ 13946}#))
- (#{f\ 13976}#
- (cdr #{forms\ 13977}#)))))))
- (#{f\ 13976}#
- #{e1\ 13973}#))
- #{ids\ 13928}#
- #{labels\ 13929}#
- #{var-ids\ 13930}#
- #{vars\ 13931}#
- #{vals\ 13932}#
- #{bindings\ 13933}#))
- #{tmp\ 13969}#)
+ ((lambda (#{tmp\ 3405}#)
+ ((lambda (#{tmp\ 3406}#)
+ (if #{tmp\ 3406}#
+ (apply (lambda (#{_\ 3409}#
+ #{e1\ 3410}#)
+ (#{parse\ 3363}#
+ (letrec ((#{f\ 3413}#
+ (lambda (#{forms\ 3414}#)
+ (if (null? #{forms\ 3414}#)
+ (cdr #{body\ 3364}#)
+ (cons (cons #{er\ 3376}#
+ (#{wrap\ 2422}#
+ (car #{forms\ 3414}#)
+ #{w\ 3381}#
+ #{mod\ 3383}#))
+ (#{f\ 3413}#
+ (cdr #{forms\ 3414}#)))))))
+ (#{f\ 3413}#
+ #{e1\ 3410}#))
+ #{ids\ 3365}#
+ #{labels\ 3366}#
+ #{var-ids\ 3367}#
+ #{vars\ 3368}#
+ #{vals\ 3369}#
+ #{bindings\ 3370}#))
+ #{tmp\ 3406}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 13968}#)))
+ #{tmp\ 3405}#)))
($sc-dispatch
- #{tmp\ 13968}#
+ #{tmp\ 3405}#
'(any . each-any))))
- #{e\ 13943}#)
- (if (memv #{type\ 13941}#
+ #{e\ 3380}#)
+ (if (memv #{type\ 3378}#
'(local-syntax-form))
- (#{chi-local-syntax\ 13011}#
- #{value\ 13942}#
- #{e\ 13943}#
- #{er\ 13939}#
- #{w\ 13944}#
- #{s\ 13945}#
- #{mod\ 13946}#
- (lambda (#{forms\ 13980}#
- #{er\ 13981}#
- #{w\ 13982}#
- #{s\ 13983}#
- #{mod\ 13984}#)
- (#{parse\ 13926}#
- (letrec ((#{f\ 13992}#
- (lambda (#{forms\ 13993}#)
- (if (null? #{forms\ 13993}#)
- (cdr #{body\ 13927}#)
- (cons (cons #{er\ 13981}#
- (#{wrap\ 12985}#
- (car #{forms\ 13993}#)
- #{w\ 13982}#
- #{mod\ 13984}#))
- (#{f\ 13992}#
- (cdr #{forms\ 13993}#)))))))
- (#{f\ 13992}#
- #{forms\ 13980}#))
- #{ids\ 13928}#
- #{labels\ 13929}#
- #{var-ids\ 13930}#
- #{vars\ 13931}#
- #{vals\ 13932}#
- #{bindings\ 13933}#)))
- (if (null? #{ids\ 13928}#)
- (#{build-sequence\ 12868}#
+ (#{chi-local-syntax\ 2448}#
+ #{value\ 3379}#
+ #{e\ 3380}#
+ #{er\ 3376}#
+ #{w\ 3381}#
+ #{s\ 3382}#
+ #{mod\ 3383}#
+ (lambda (#{forms\ 3417}#
+ #{er\ 3418}#
+ #{w\ 3419}#
+ #{s\ 3420}#
+ #{mod\ 3421}#)
+ (#{parse\ 3363}#
+ (letrec ((#{f\ 3429}#
+ (lambda (#{forms\ 3430}#)
+ (if (null? #{forms\ 3430}#)
+ (cdr #{body\ 3364}#)
+ (cons (cons #{er\ 3418}#
+ (#{wrap\ 2422}#
+ (car #{forms\ 3430}#)
+ #{w\ 3419}#
+ #{mod\ 3421}#))
+ (#{f\ 3429}#
+ (cdr #{forms\ 3430}#)))))))
+ (#{f\ 3429}#
+ #{forms\ 3417}#))
+ #{ids\ 3365}#
+ #{labels\ 3366}#
+ #{var-ids\ 3367}#
+ #{vars\ 3368}#
+ #{vals\ 3369}#
+ #{bindings\ 3370}#)))
+ (if (null? #{ids\ 3365}#)
+ (#{build-sequence\ 2305}#
#f
- (map (lambda (#{x\ 13996}#)
- (#{chi\ 13001}#
- (cdr #{x\ 13996}#)
- (car #{x\ 13996}#)
+ (map (lambda (#{x\ 3433}#)
+ (#{chi\ 2438}#
+ (cdr #{x\ 3433}#)
+ (car #{x\ 3433}#)
'(())
- #{mod\ 13946}#))
- (cons (cons #{er\ 13939}#
- (#{source-wrap\ 12987}#
- #{e\ 13943}#
- #{w\ 13944}#
- #{s\ 13945}#
- #{mod\ 13946}#))
- (cdr #{body\ 13927}#))))
+ #{mod\ 3383}#))
+ (cons (cons #{er\ 3376}#
+ (#{source-wrap\ 2424}#
+ #{e\ 3380}#
+ #{w\ 3381}#
+ #{s\ 3382}#
+ #{mod\ 3383}#))
+ (cdr #{body\ 3364}#))))
(begin
- (if (not (#{valid-bound-ids?\ 12979}#
- #{ids\ 13928}#))
+ (if (not (#{valid-bound-ids?\ 2416}#
+ #{ids\ 3365}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form\ 13901}#))
- (letrec ((#{loop\ 14003}#
- (lambda (#{bs\ 14004}#
- #{er-cache\ 14005}#
- #{r-cache\ 14006}#)
- (if (not (null? #{bs\ 14004}#))
- (let ((#{b\ 14009}#
- (car #{bs\ 14004}#)))
- (if (eq? (car #{b\ 14009}#)
+ #{outer-form\ 3338}#))
+ (letrec ((#{loop\ 3440}#
+ (lambda (#{bs\ 3441}#
+ #{er-cache\ 3442}#
+ #{r-cache\ 3443}#)
+ (if (not (null? #{bs\ 3441}#))
+ (let ((#{b\ 3446}#
+ (car #{bs\ 3441}#)))
+ (if (eq? (car #{b\ 3446}#)
'macro)
- (let ((#{er\ 14012}#
- (cadr #{b\ 14009}#)))
- (let ((#{r-cache\ 14014}#
- (if (eq? #{er\ 14012}#
- #{er-cache\ 14005}#)
- #{r-cache\ 14006}#
- (#{macros-only-env\ 12908}#
- #{er\ 14012}#))))
+ (let ((#{er\ 3449}#
+ (cadr #{b\ 3446}#)))
+ (let ((#{r-cache\ 3451}#
+ (if (eq? #{er\ 3449}#
+ #{er-cache\ 3442}#)
+ #{r-cache\ 3443}#
+ (#{macros-only-env\ 2345}#
+ #{er\ 3449}#))))
(begin
(set-cdr!
- #{b\ 14009}#
- (#{eval-local-transformer\ 13013}#
- (#{chi\ 13001}#
- (cddr #{b\ 14009}#)
- #{r-cache\ 14014}#
+ #{b\ 3446}#
+ (#{eval-local-transformer\ 2450}#
+ (#{chi\ 2438}#
+ (cddr #{b\ 3446}#)
+ #{r-cache\ 3451}#
'(())
- #{mod\ 13946}#)
- #{mod\ 13946}#))
- (#{loop\ 14003}#
- (cdr #{bs\ 14004}#)
- #{er\ 14012}#
- #{r-cache\ 14014}#))))
- (#{loop\ 14003}#
- (cdr #{bs\ 14004}#)
- #{er-cache\ 14005}#
- #{r-cache\ 14006}#)))))))
- (#{loop\ 14003}#
- #{bindings\ 13933}#
+ #{mod\ 3383}#)
+ #{mod\ 3383}#))
+ (#{loop\ 3440}#
+ (cdr #{bs\ 3441}#)
+ #{er\ 3449}#
+ #{r-cache\ 3451}#))))
+ (#{loop\ 3440}#
+ (cdr #{bs\ 3441}#)
+ #{er-cache\ 3442}#
+ #{r-cache\ 3443}#)))))))
+ (#{loop\ 3440}#
+ #{bindings\ 3370}#
#f
#f))
(set-cdr!
- #{r\ 13912}#
- (#{extend-env\ 12904}#
- #{labels\ 13929}#
- #{bindings\ 13933}#
- (cdr #{r\ 13912}#)))
- (#{build-letrec\ 12874}#
+ #{r\ 3349}#
+ (#{extend-env\ 2341}#
+ #{labels\ 3366}#
+ #{bindings\ 3370}#
+ (cdr #{r\ 3349}#)))
+ (#{build-letrec\ 2311}#
#f
(map syntax->datum
- #{var-ids\ 13930}#)
- #{vars\ 13931}#
- (map (lambda (#{x\ 14017}#)
- (#{chi\ 13001}#
- (cdr #{x\ 14017}#)
- (car #{x\ 14017}#)
+ #{var-ids\ 3367}#)
+ #{vars\ 3368}#
+ (map (lambda (#{x\ 3454}#)
+ (#{chi\ 2438}#
+ (cdr #{x\ 3454}#)
+ (car #{x\ 3454}#)
'(())
- #{mod\ 13946}#))
- #{vals\ 13932}#)
- (#{build-sequence\ 12868}#
+ #{mod\ 3383}#))
+ #{vals\ 3369}#)
+ (#{build-sequence\ 2305}#
#f
- (map (lambda (#{x\ 14021}#)
- (#{chi\ 13001}#
- (cdr #{x\ 14021}#)
- (car #{x\ 14021}#)
+ (map (lambda (#{x\ 3458}#)
+ (#{chi\ 2438}#
+ (cdr #{x\ 3458}#)
+ (car #{x\ 3458}#)
'(())
- #{mod\ 13946}#))
- (cons (cons #{er\ 13939}#
- (#{source-wrap\ 12987}#
- #{e\ 13943}#
- #{w\ 13944}#
- #{s\ 13945}#
- #{mod\ 13946}#))
- (cdr #{body\ 13927}#))))))))))))))))))
- (#{parse\ 13926}#
- (map (lambda (#{x\ 13934}#)
- (cons #{r\ 13912}#
- (#{wrap\ 12985}#
- #{x\ 13934}#
- #{w\ 13917}#
- #{mod\ 13904}#)))
- #{body\ 13900}#)
+ #{mod\ 3383}#))
+ (cons (cons #{er\ 3376}#
+ (#{source-wrap\ 2424}#
+ #{e\ 3380}#
+ #{w\ 3381}#
+ #{s\ 3382}#
+ #{mod\ 3383}#))
+ (cdr #{body\ 3364}#))))))))))))))))))
+ (#{parse\ 3363}#
+ (map (lambda (#{x\ 3371}#)
+ (cons #{r\ 3349}#
+ (#{wrap\ 2422}#
+ #{x\ 3371}#
+ #{w\ 3354}#
+ #{mod\ 3341}#)))
+ #{body\ 3337}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 13007}#
- (lambda (#{p\ 14024}#
- #{e\ 14025}#
- #{r\ 14026}#
- #{w\ 14027}#
- #{rib\ 14028}#
- #{mod\ 14029}#)
- (letrec ((#{rebuild-macro-output\ 14037}#
- (lambda (#{x\ 14038}# #{m\ 14039}#)
- (if (pair? #{x\ 14038}#)
- (cons (#{rebuild-macro-output\ 14037}#
- (car #{x\ 14038}#)
- #{m\ 14039}#)
- (#{rebuild-macro-output\ 14037}#
- (cdr #{x\ 14038}#)
- #{m\ 14039}#))
- (if (#{syntax-object?\ 12880}# #{x\ 14038}#)
- (let ((#{w\ 14047}#
- (#{syntax-object-wrap\ 12884}#
- #{x\ 14038}#)))
- (let ((#{ms\ 14050}#
- (#{wrap-marks\ 12923}# #{w\ 14047}#))
- (#{s\ 14051}#
- (#{wrap-subst\ 12925}#
- #{w\ 14047}#)))
- (if (if (pair? #{ms\ 14050}#)
- (eq? (car #{ms\ 14050}#) #f)
+ (#{chi-macro\ 2444}#
+ (lambda (#{p\ 3461}#
+ #{e\ 3462}#
+ #{r\ 3463}#
+ #{w\ 3464}#
+ #{rib\ 3465}#
+ #{mod\ 3466}#)
+ (letrec ((#{rebuild-macro-output\ 3474}#
+ (lambda (#{x\ 3475}# #{m\ 3476}#)
+ (if (pair? #{x\ 3475}#)
+ (cons (#{rebuild-macro-output\ 3474}#
+ (car #{x\ 3475}#)
+ #{m\ 3476}#)
+ (#{rebuild-macro-output\ 3474}#
+ (cdr #{x\ 3475}#)
+ #{m\ 3476}#))
+ (if (#{syntax-object?\ 2317}# #{x\ 3475}#)
+ (let ((#{w\ 3484}#
+ (#{syntax-object-wrap\ 2321}#
+ #{x\ 3475}#)))
+ (let ((#{ms\ 3487}#
+ (#{wrap-marks\ 2360}# #{w\ 3484}#))
+ (#{s\ 3488}#
+ (#{wrap-subst\ 2362}# #{w\ 3484}#)))
+ (if (if (pair? #{ms\ 3487}#)
+ (eq? (car #{ms\ 3487}#) #f)
#f)
- (#{make-syntax-object\ 12878}#
- (#{syntax-object-expression\ 12882}#
- #{x\ 14038}#)
- (#{make-wrap\ 12921}#
- (cdr #{ms\ 14050}#)
- (if #{rib\ 14028}#
- (cons #{rib\ 14028}#
- (cdr #{s\ 14051}#))
- (cdr #{s\ 14051}#)))
- (#{syntax-object-module\ 12886}#
- #{x\ 14038}#))
- (#{make-syntax-object\ 12878}#
- (#{syntax-object-expression\ 12882}#
- #{x\ 14038}#)
- (#{make-wrap\ 12921}#
- (cons #{m\ 14039}# #{ms\ 14050}#)
- (if #{rib\ 14028}#
- (cons #{rib\ 14028}#
+ (#{make-syntax-object\ 2315}#
+ (#{syntax-object-expression\ 2319}#
+ #{x\ 3475}#)
+ (#{make-wrap\ 2358}#
+ (cdr #{ms\ 3487}#)
+ (if #{rib\ 3465}#
+ (cons #{rib\ 3465}#
+ (cdr #{s\ 3488}#))
+ (cdr #{s\ 3488}#)))
+ (#{syntax-object-module\ 2323}#
+ #{x\ 3475}#))
+ (#{make-syntax-object\ 2315}#
+ (#{syntax-object-expression\ 2319}#
+ #{x\ 3475}#)
+ (#{make-wrap\ 2358}#
+ (cons #{m\ 3476}# #{ms\ 3487}#)
+ (if #{rib\ 3465}#
+ (cons #{rib\ 3465}#
(cons 'shift
- #{s\ 14051}#))
- (cons (quote shift) #{s\ 14051}#)))
+ #{s\ 3488}#))
+ (cons (quote shift) #{s\ 3488}#)))
(cons 'hygiene
- (cdr #{p\ 14024}#))))))
- (if (vector? #{x\ 14038}#)
- (let ((#{n\ 14059}#
- (vector-length #{x\ 14038}#)))
- (let ((#{v\ 14061}#
- (make-vector #{n\ 14059}#)))
- (letrec ((#{loop\ 14064}#
- (lambda (#{i\ 14065}#)
- (if (#{fx=\ 12821}#
- #{i\ 14065}#
- #{n\ 14059}#)
+ (cdr #{p\ 3461}#))))))
+ (if (vector? #{x\ 3475}#)
+ (let ((#{n\ 3496}#
+ (vector-length #{x\ 3475}#)))
+ (let ((#{v\ 3498}#
+ (make-vector #{n\ 3496}#)))
+ (letrec ((#{loop\ 3501}#
+ (lambda (#{i\ 3502}#)
+ (if (#{fx=\ 2258}#
+ #{i\ 3502}#
+ #{n\ 3496}#)
(begin
(if #f #f)
- #{v\ 14061}#)
+ #{v\ 3498}#)
(begin
(vector-set!
- #{v\ 14061}#
- #{i\ 14065}#
- (#{rebuild-macro-output\ 14037}#
+ #{v\ 3498}#
+ #{i\ 3502}#
+ (#{rebuild-macro-output\ 3474}#
(vector-ref
- #{x\ 14038}#
- #{i\ 14065}#)
- #{m\ 14039}#))
- (#{loop\ 14064}#
- (#{fx+\ 12817}#
- #{i\ 14065}#
+ #{x\ 3475}#
+ #{i\ 3502}#)
+ #{m\ 3476}#))
+ (#{loop\ 3501}#
+ (#{fx+\ 2254}#
+ #{i\ 3502}#
1)))))))
- (#{loop\ 14064}# 0))))
- (if (symbol? #{x\ 14038}#)
+ (#{loop\ 3501}# 0))))
+ (if (symbol? #{x\ 3475}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 12987}#
- #{e\ 14025}#
- #{w\ 14027}#
- (#{wrap-subst\ 12925}# #{w\ 14027}#)
- #{mod\ 14029}#)
- #{x\ 14038}#)
- #{x\ 14038}#)))))))
- (#{rebuild-macro-output\ 14037}#
- ((car #{p\ 14024}#)
- (#{wrap\ 12985}#
- #{e\ 14025}#
- (#{anti-mark\ 12957}# #{w\ 14027}#)
- #{mod\ 14029}#))
+ (#{source-wrap\ 2424}#
+ #{e\ 3462}#
+ #{w\ 3464}#
+ (#{wrap-subst\ 2362}# #{w\ 3464}#)
+ #{mod\ 3466}#)
+ #{x\ 3475}#)
+ #{x\ 3475}#)))))))
+ (#{rebuild-macro-output\ 3474}#
+ ((car #{p\ 3461}#)
+ (#{wrap\ 2422}#
+ #{e\ 3462}#
+ (#{anti-mark\ 2394}# #{w\ 3464}#)
+ #{mod\ 3466}#))
(gensym "m")))))
- (#{chi-application\ 13005}#
- (lambda (#{x\ 14072}#
- #{e\ 14073}#
- #{r\ 14074}#
- #{w\ 14075}#
- #{s\ 14076}#
- #{mod\ 14077}#)
- ((lambda (#{tmp\ 14084}#)
- ((lambda (#{tmp\ 14085}#)
- (if #{tmp\ 14085}#
- (apply (lambda (#{e0\ 14088}# #{e1\ 14089}#)
- (#{build-application\ 12838}#
- #{s\ 14076}#
- #{x\ 14072}#
- (map (lambda (#{e\ 14090}#)
- (#{chi\ 13001}#
- #{e\ 14090}#
- #{r\ 14074}#
- #{w\ 14075}#
- #{mod\ 14077}#))
- #{e1\ 14089}#)))
- #{tmp\ 14085}#)
+ (#{chi-application\ 2442}#
+ (lambda (#{x\ 3509}#
+ #{e\ 3510}#
+ #{r\ 3511}#
+ #{w\ 3512}#
+ #{s\ 3513}#
+ #{mod\ 3514}#)
+ ((lambda (#{tmp\ 3521}#)
+ ((lambda (#{tmp\ 3522}#)
+ (if #{tmp\ 3522}#
+ (apply (lambda (#{e0\ 3525}# #{e1\ 3526}#)
+ (#{build-application\ 2275}#
+ #{s\ 3513}#
+ #{x\ 3509}#
+ (map (lambda (#{e\ 3527}#)
+ (#{chi\ 2438}#
+ #{e\ 3527}#
+ #{r\ 3511}#
+ #{w\ 3512}#
+ #{mod\ 3514}#))
+ #{e1\ 3526}#)))
+ #{tmp\ 3522}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14084}#)))
+ #{tmp\ 3521}#)))
($sc-dispatch
- #{tmp\ 14084}#
+ #{tmp\ 3521}#
'(any . each-any))))
- #{e\ 14073}#)))
- (#{chi-expr\ 13003}#
- (lambda (#{type\ 14093}#
- #{value\ 14094}#
- #{e\ 14095}#
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#)
- (if (memv #{type\ 14093}# (quote (lexical)))
- (#{build-lexical-reference\ 12844}#
+ #{e\ 3510}#)))
+ (#{chi-expr\ 2440}#
+ (lambda (#{type\ 3530}#
+ #{value\ 3531}#
+ #{e\ 3532}#
+ #{r\ 3533}#
+ #{w\ 3534}#
+ #{s\ 3535}#
+ #{mod\ 3536}#)
+ (if (memv #{type\ 3530}# (quote (lexical)))
+ (#{build-lexical-reference\ 2281}#
'value
- #{s\ 14098}#
- #{e\ 14095}#
- #{value\ 14094}#)
- (if (memv #{type\ 14093}# (quote (core core-form)))
- (#{value\ 14094}#
- #{e\ 14095}#
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#)
- (if (memv #{type\ 14093}# (quote (module-ref)))
+ #{s\ 3535}#
+ #{e\ 3532}#
+ #{value\ 3531}#)
+ (if (memv #{type\ 3530}# (quote (core core-form)))
+ (#{value\ 3531}#
+ #{e\ 3532}#
+ #{r\ 3533}#
+ #{w\ 3534}#
+ #{s\ 3535}#
+ #{mod\ 3536}#)
+ (if (memv #{type\ 3530}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{value\ 14094}#
- #{e\ 14095}#
- #{r\ 14096}#
- #{w\ 14097}#))
- (lambda (#{e\ 14110}#
- #{r\ 14111}#
- #{w\ 14112}#
- #{s\ 14113}#
- #{mod\ 14114}#)
- (#{chi\ 13001}#
- #{e\ 14110}#
- #{r\ 14111}#
- #{w\ 14112}#
- #{mod\ 14114}#)))
- (if (memv #{type\ 14093}# (quote (lexical-call)))
- (#{chi-application\ 13005}#
- (#{build-lexical-reference\ 12844}#
+ (#{value\ 3531}#
+ #{e\ 3532}#
+ #{r\ 3533}#
+ #{w\ 3534}#))
+ (lambda (#{e\ 3547}#
+ #{r\ 3548}#
+ #{w\ 3549}#
+ #{s\ 3550}#
+ #{mod\ 3551}#)
+ (#{chi\ 2438}#
+ #{e\ 3547}#
+ #{r\ 3548}#
+ #{w\ 3549}#
+ #{mod\ 3551}#)))
+ (if (memv #{type\ 3530}# (quote (lexical-call)))
+ (#{chi-application\ 2442}#
+ (#{build-lexical-reference\ 2281}#
'fun
- (#{source-annotation\ 12895}# (car #{e\ 14095}#))
- (car #{e\ 14095}#)
- #{value\ 14094}#)
- #{e\ 14095}#
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#)
- (if (memv #{type\ 14093}# (quote (global-call)))
- (#{chi-application\ 13005}#
- (#{build-global-reference\ 12850}#
- (#{source-annotation\ 12895}# (car #{e\ 14095}#))
- (if (#{syntax-object?\ 12880}# #{value\ 14094}#)
- (#{syntax-object-expression\ 12882}#
- #{value\ 14094}#)
- #{value\ 14094}#)
- (if (#{syntax-object?\ 12880}# #{value\ 14094}#)
- (#{syntax-object-module\ 12886}#
- #{value\ 14094}#)
- #{mod\ 14099}#))
- #{e\ 14095}#
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#)
- (if (memv #{type\ 14093}# (quote (constant)))
- (#{build-data\ 12866}#
- #{s\ 14098}#
- (#{strip\ 13027}#
- (#{source-wrap\ 12987}#
- #{e\ 14095}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#)
+ (#{source-annotation\ 2332}# (car #{e\ 3532}#))
+ (car #{e\ 3532}#)
+ #{value\ 3531}#)
+ #{e\ 3532}#
+ #{r\ 3533}#
+ #{w\ 3534}#
+ #{s\ 3535}#
+ #{mod\ 3536}#)
+ (if (memv #{type\ 3530}# (quote (global-call)))
+ (#{chi-application\ 2442}#
+ (#{build-global-reference\ 2287}#
+ (#{source-annotation\ 2332}# (car #{e\ 3532}#))
+ (if (#{syntax-object?\ 2317}# #{value\ 3531}#)
+ (#{syntax-object-expression\ 2319}#
+ #{value\ 3531}#)
+ #{value\ 3531}#)
+ (if (#{syntax-object?\ 2317}# #{value\ 3531}#)
+ (#{syntax-object-module\ 2323}# #{value\ 3531}#)
+ #{mod\ 3536}#))
+ #{e\ 3532}#
+ #{r\ 3533}#
+ #{w\ 3534}#
+ #{s\ 3535}#
+ #{mod\ 3536}#)
+ (if (memv #{type\ 3530}# (quote (constant)))
+ (#{build-data\ 2303}#
+ #{s\ 3535}#
+ (#{strip\ 2464}#
+ (#{source-wrap\ 2424}#
+ #{e\ 3532}#
+ #{w\ 3534}#
+ #{s\ 3535}#
+ #{mod\ 3536}#)
'(())))
- (if (memv #{type\ 14093}# (quote (global)))
- (#{build-global-reference\ 12850}#
- #{s\ 14098}#
- #{value\ 14094}#
- #{mod\ 14099}#)
- (if (memv #{type\ 14093}# (quote (call)))
- (#{chi-application\ 13005}#
- (#{chi\ 13001}#
- (car #{e\ 14095}#)
- #{r\ 14096}#
- #{w\ 14097}#
- #{mod\ 14099}#)
- #{e\ 14095}#
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#)
- (if (memv #{type\ 14093}# (quote (begin-form)))
- ((lambda (#{tmp\ 14127}#)
- ((lambda (#{tmp\ 14128}#)
- (if #{tmp\ 14128}#
- (apply (lambda (#{_\ 14132}#
- #{e1\ 14133}#
- #{e2\ 14134}#)
- (#{chi-sequence\ 12989}#
- (cons #{e1\ 14133}#
- #{e2\ 14134}#)
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#))
- #{tmp\ 14128}#)
+ (if (memv #{type\ 3530}# (quote (global)))
+ (#{build-global-reference\ 2287}#
+ #{s\ 3535}#
+ #{value\ 3531}#
+ #{mod\ 3536}#)
+ (if (memv #{type\ 3530}# (quote (call)))
+ (#{chi-application\ 2442}#
+ (#{chi\ 2438}#
+ (car #{e\ 3532}#)
+ #{r\ 3533}#
+ #{w\ 3534}#
+ #{mod\ 3536}#)
+ #{e\ 3532}#
+ #{r\ 3533}#
+ #{w\ 3534}#
+ #{s\ 3535}#
+ #{mod\ 3536}#)
+ (if (memv #{type\ 3530}# (quote (begin-form)))
+ ((lambda (#{tmp\ 3564}#)
+ ((lambda (#{tmp\ 3565}#)
+ (if #{tmp\ 3565}#
+ (apply (lambda (#{_\ 3569}#
+ #{e1\ 3570}#
+ #{e2\ 3571}#)
+ (#{chi-sequence\ 2426}#
+ (cons #{e1\ 3570}#
+ #{e2\ 3571}#)
+ #{r\ 3533}#
+ #{w\ 3534}#
+ #{s\ 3535}#
+ #{mod\ 3536}#))
+ #{tmp\ 3565}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14127}#)))
+ #{tmp\ 3564}#)))
($sc-dispatch
- #{tmp\ 14127}#
+ #{tmp\ 3564}#
'(any any . each-any))))
- #{e\ 14095}#)
- (if (memv #{type\ 14093}#
+ #{e\ 3532}#)
+ (if (memv #{type\ 3530}#
'(local-syntax-form))
- (#{chi-local-syntax\ 13011}#
- #{value\ 14094}#
- #{e\ 14095}#
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#
- #{chi-sequence\ 12989}#)
- (if (memv #{type\ 14093}#
+ (#{chi-local-syntax\ 2448}#
+ #{value\ 3531}#
+ #{e\ 3532}#
+ #{r\ 3533}#
+ #{w\ 3534}#
+ #{s\ 3535}#
+ #{mod\ 3536}#
+ #{chi-sequence\ 2426}#)
+ (if (memv #{type\ 3530}#
'(eval-when-form))
- ((lambda (#{tmp\ 14138}#)
- ((lambda (#{tmp\ 14139}#)
- (if #{tmp\ 14139}#
- (apply (lambda (#{_\ 14144}#
- #{x\ 14145}#
- #{e1\ 14146}#
- #{e2\ 14147}#)
- (let ((#{when-list\ 14149}#
- (#{chi-when-list\ 12995}#
- #{e\ 14095}#
- #{x\ 14145}#
- #{w\ 14097}#)))
+ ((lambda (#{tmp\ 3575}#)
+ ((lambda (#{tmp\ 3576}#)
+ (if #{tmp\ 3576}#
+ (apply (lambda (#{_\ 3581}#
+ #{x\ 3582}#
+ #{e1\ 3583}#
+ #{e2\ 3584}#)
+ (let ((#{when-list\ 3586}#
+ (#{chi-when-list\ 2432}#
+ #{e\ 3532}#
+ #{x\ 3582}#
+ #{w\ 3534}#)))
(if (memq 'eval
- #{when-list\ 14149}#)
- (#{chi-sequence\ 12989}#
- (cons #{e1\ 14146}#
- #{e2\ 14147}#)
- #{r\ 14096}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#)
- (#{chi-void\ 13015}#))))
- #{tmp\ 14139}#)
+ #{when-list\ 3586}#)
+ (#{chi-sequence\ 2426}#
+ (cons #{e1\ 3583}#
+ #{e2\ 3584}#)
+ #{r\ 3533}#
+ #{w\ 3534}#
+ #{s\ 3535}#
+ #{mod\ 3536}#)
+ (#{chi-void\ 2452}#))))
+ #{tmp\ 3576}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14138}#)))
+ #{tmp\ 3575}#)))
($sc-dispatch
- #{tmp\ 14138}#
+ #{tmp\ 3575}#
'(any each-any any . each-any))))
- #{e\ 14095}#)
- (if (memv #{type\ 14093}#
+ #{e\ 3532}#)
+ (if (memv #{type\ 3530}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 14095}#
- (#{wrap\ 12985}#
- #{value\ 14094}#
- #{w\ 14097}#
- #{mod\ 14099}#))
- (if (memv #{type\ 14093}#
+ #{e\ 3532}#
+ (#{wrap\ 2422}#
+ #{value\ 3531}#
+ #{w\ 3534}#
+ #{mod\ 3536}#))
+ (if (memv #{type\ 3530}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{source-wrap\ 12987}#
- #{e\ 14095}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#))
- (if (memv #{type\ 14093}#
+ (#{source-wrap\ 2424}#
+ #{e\ 3532}#
+ #{w\ 3534}#
+ #{s\ 3535}#
+ #{mod\ 3536}#))
+ (if (memv #{type\ 3530}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{source-wrap\ 12987}#
- #{e\ 14095}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#))
+ (#{source-wrap\ 2424}#
+ #{e\ 3532}#
+ #{w\ 3534}#
+ #{s\ 3535}#
+ #{mod\ 3536}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 12987}#
- #{e\ 14095}#
- #{w\ 14097}#
- #{s\ 14098}#
- #{mod\ 14099}#))))))))))))))))))
- (#{chi\ 13001}#
- (lambda (#{e\ 14156}#
- #{r\ 14157}#
- #{w\ 14158}#
- #{mod\ 14159}#)
+ (#{source-wrap\ 2424}#
+ #{e\ 3532}#
+ #{w\ 3534}#
+ #{s\ 3535}#
+ #{mod\ 3536}#))))))))))))))))))
+ (#{chi\ 2438}#
+ (lambda (#{e\ 3593}#
+ #{r\ 3594}#
+ #{w\ 3595}#
+ #{mod\ 3596}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 12997}#
- #{e\ 14156}#
- #{r\ 14157}#
- #{w\ 14158}#
- (#{source-annotation\ 12895}# #{e\ 14156}#)
+ (#{syntax-type\ 2434}#
+ #{e\ 3593}#
+ #{r\ 3594}#
+ #{w\ 3595}#
+ (#{source-annotation\ 2332}# #{e\ 3593}#)
#f
- #{mod\ 14159}#
+ #{mod\ 3596}#
#f))
- (lambda (#{type\ 14164}#
- #{value\ 14165}#
- #{e\ 14166}#
- #{w\ 14167}#
- #{s\ 14168}#
- #{mod\ 14169}#)
- (#{chi-expr\ 13003}#
- #{type\ 14164}#
- #{value\ 14165}#
- #{e\ 14166}#
- #{r\ 14157}#
- #{w\ 14167}#
- #{s\ 14168}#
- #{mod\ 14169}#)))))
- (#{chi-top\ 12999}#
- (lambda (#{e\ 14176}#
- #{r\ 14177}#
- #{w\ 14178}#
- #{m\ 14179}#
- #{esew\ 14180}#
- #{mod\ 14181}#)
+ (lambda (#{type\ 3601}#
+ #{value\ 3602}#
+ #{e\ 3603}#
+ #{w\ 3604}#
+ #{s\ 3605}#
+ #{mod\ 3606}#)
+ (#{chi-expr\ 2440}#
+ #{type\ 3601}#
+ #{value\ 3602}#
+ #{e\ 3603}#
+ #{r\ 3594}#
+ #{w\ 3604}#
+ #{s\ 3605}#
+ #{mod\ 3606}#)))))
+ (#{chi-top\ 2436}#
+ (lambda (#{e\ 3613}#
+ #{r\ 3614}#
+ #{w\ 3615}#
+ #{m\ 3616}#
+ #{esew\ 3617}#
+ #{mod\ 3618}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 12997}#
- #{e\ 14176}#
- #{r\ 14177}#
- #{w\ 14178}#
- (#{source-annotation\ 12895}# #{e\ 14176}#)
+ (#{syntax-type\ 2434}#
+ #{e\ 3613}#
+ #{r\ 3614}#
+ #{w\ 3615}#
+ (#{source-annotation\ 2332}# #{e\ 3613}#)
#f
- #{mod\ 14181}#
+ #{mod\ 3618}#
#f))
- (lambda (#{type\ 14202}#
- #{value\ 14203}#
- #{e\ 14204}#
- #{w\ 14205}#
- #{s\ 14206}#
- #{mod\ 14207}#)
- (if (memv #{type\ 14202}# (quote (begin-form)))
- ((lambda (#{tmp\ 14215}#)
- ((lambda (#{tmp\ 14216}#)
- (if #{tmp\ 14216}#
- (apply (lambda (#{_\ 14218}#)
- (#{chi-void\ 13015}#))
- #{tmp\ 14216}#)
- ((lambda (#{tmp\ 14219}#)
- (if #{tmp\ 14219}#
- (apply (lambda (#{_\ 14223}#
- #{e1\ 14224}#
- #{e2\ 14225}#)
- (#{chi-top-sequence\ 12991}#
- (cons #{e1\ 14224}# #{e2\ 14225}#)
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
- #{m\ 14179}#
- #{esew\ 14180}#
- #{mod\ 14207}#))
- #{tmp\ 14219}#)
+ (lambda (#{type\ 3639}#
+ #{value\ 3640}#
+ #{e\ 3641}#
+ #{w\ 3642}#
+ #{s\ 3643}#
+ #{mod\ 3644}#)
+ (if (memv #{type\ 3639}# (quote (begin-form)))
+ ((lambda (#{tmp\ 3652}#)
+ ((lambda (#{tmp\ 3653}#)
+ (if #{tmp\ 3653}#
+ (apply (lambda (#{_\ 3655}#) (#{chi-void\ 2452}#))
+ #{tmp\ 3653}#)
+ ((lambda (#{tmp\ 3656}#)
+ (if #{tmp\ 3656}#
+ (apply (lambda (#{_\ 3660}#
+ #{e1\ 3661}#
+ #{e2\ 3662}#)
+ (#{chi-top-sequence\ 2428}#
+ (cons #{e1\ 3661}# #{e2\ 3662}#)
+ #{r\ 3614}#
+ #{w\ 3642}#
+ #{s\ 3643}#
+ #{m\ 3616}#
+ #{esew\ 3617}#
+ #{mod\ 3644}#))
+ #{tmp\ 3656}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14215}#)))
+ #{tmp\ 3652}#)))
($sc-dispatch
- #{tmp\ 14215}#
+ #{tmp\ 3652}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 14215}# (quote (any)))))
- #{e\ 14204}#)
- (if (memv #{type\ 14202}#
- '(local-syntax-form))
- (#{chi-local-syntax\ 13011}#
- #{value\ 14203}#
- #{e\ 14204}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
- #{mod\ 14207}#
- (lambda (#{body\ 14228}#
- #{r\ 14229}#
- #{w\ 14230}#
- #{s\ 14231}#
- #{mod\ 14232}#)
- (#{chi-top-sequence\ 12991}#
- #{body\ 14228}#
- #{r\ 14229}#
- #{w\ 14230}#
- #{s\ 14231}#
- #{m\ 14179}#
- #{esew\ 14180}#
- #{mod\ 14232}#)))
- (if (memv #{type\ 14202}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 14239}#)
- ((lambda (#{tmp\ 14240}#)
- (if #{tmp\ 14240}#
- (apply (lambda (#{_\ 14245}#
- #{x\ 14246}#
- #{e1\ 14247}#
- #{e2\ 14248}#)
- (let ((#{when-list\ 14251}#
- (#{chi-when-list\ 12995}#
- #{e\ 14204}#
- #{x\ 14246}#
- #{w\ 14205}#))
- (#{body\ 14252}#
- (cons #{e1\ 14247}#
- #{e2\ 14248}#)))
- (if (eq? #{m\ 14179}# (quote e))
+ ($sc-dispatch #{tmp\ 3652}# (quote (any)))))
+ #{e\ 3641}#)
+ (if (memv #{type\ 3639}# (quote (local-syntax-form)))
+ (#{chi-local-syntax\ 2448}#
+ #{value\ 3640}#
+ #{e\ 3641}#
+ #{r\ 3614}#
+ #{w\ 3642}#
+ #{s\ 3643}#
+ #{mod\ 3644}#
+ (lambda (#{body\ 3665}#
+ #{r\ 3666}#
+ #{w\ 3667}#
+ #{s\ 3668}#
+ #{mod\ 3669}#)
+ (#{chi-top-sequence\ 2428}#
+ #{body\ 3665}#
+ #{r\ 3666}#
+ #{w\ 3667}#
+ #{s\ 3668}#
+ #{m\ 3616}#
+ #{esew\ 3617}#
+ #{mod\ 3669}#)))
+ (if (memv #{type\ 3639}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 3676}#)
+ ((lambda (#{tmp\ 3677}#)
+ (if #{tmp\ 3677}#
+ (apply (lambda (#{_\ 3682}#
+ #{x\ 3683}#
+ #{e1\ 3684}#
+ #{e2\ 3685}#)
+ (let ((#{when-list\ 3688}#
+ (#{chi-when-list\ 2432}#
+ #{e\ 3641}#
+ #{x\ 3683}#
+ #{w\ 3642}#))
+ (#{body\ 3689}#
+ (cons #{e1\ 3684}#
+ #{e2\ 3685}#)))
+ (if (eq? #{m\ 3616}# (quote e))
(if (memq 'eval
- #{when-list\ 14251}#)
- (#{chi-top-sequence\ 12991}#
- #{body\ 14252}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
+ #{when-list\ 3688}#)
+ (#{chi-top-sequence\ 2428}#
+ #{body\ 3689}#
+ #{r\ 3614}#
+ #{w\ 3642}#
+ #{s\ 3643}#
(if (memq 'expand
- #{when-list\ 14251}#)
+ #{when-list\ 3688}#)
'c&e
'e)
'(eval)
- #{mod\ 14207}#)
+ #{mod\ 3644}#)
(begin
(if (memq 'expand
- #{when-list\ 14251}#)
- (#{top-level-eval-hook\ 12825}#
- (#{chi-top-sequence\ 12991}#
- #{body\ 14252}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
+ #{when-list\ 3688}#)
+ (#{top-level-eval-hook\ 2262}#
+ (#{chi-top-sequence\ 2428}#
+ #{body\ 3689}#
+ #{r\ 3614}#
+ #{w\ 3642}#
+ #{s\ 3643}#
'e
'(eval)
- #{mod\ 14207}#)
- #{mod\ 14207}#))
- (#{chi-void\ 13015}#)))
+ #{mod\ 3644}#)
+ #{mod\ 3644}#))
+ (#{chi-void\ 2452}#)))
(if (memq 'load
- #{when-list\ 14251}#)
- (if (let ((#{t\ 14261}#
+ #{when-list\ 3688}#)
+ (if (let ((#{t\ 3698}#
(memq 'compile
- #{when-list\ 14251}#)))
- (if #{t\ 14261}#
- #{t\ 14261}#
- (let ((#{t\ 14264}#
+ #{when-list\ 3688}#)))
+ (if #{t\ 3698}#
+ #{t\ 3698}#
+ (let ((#{t\ 3701}#
(memq 'expand
- #{when-list\ 14251}#)))
- (if #{t\ 14264}#
- #{t\ 14264}#
- (if (eq? #{m\ 14179}#
+ #{when-list\ 3688}#)))
+ (if #{t\ 3701}#
+ #{t\ 3701}#
+ (if (eq? #{m\ 3616}#
'c&e)
(memq 'eval
- #{when-list\ 14251}#)
+ #{when-list\ 3688}#)
#f)))))
- (#{chi-top-sequence\ 12991}#
- #{body\ 14252}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
+ (#{chi-top-sequence\ 2428}#
+ #{body\ 3689}#
+ #{r\ 3614}#
+ #{w\ 3642}#
+ #{s\ 3643}#
'c&e
'(compile load)
- #{mod\ 14207}#)
- (if (memq #{m\ 14179}#
+ #{mod\ 3644}#)
+ (if (memq #{m\ 3616}#
'(c c&e))
- (#{chi-top-sequence\ 12991}#
- #{body\ 14252}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
+ (#{chi-top-sequence\ 2428}#
+ #{body\ 3689}#
+ #{r\ 3614}#
+ #{w\ 3642}#
+ #{s\ 3643}#
'c
'(load)
- #{mod\ 14207}#)
- (#{chi-void\ 13015}#)))
- (if (let ((#{t\ 14272}#
+ #{mod\ 3644}#)
+ (#{chi-void\ 2452}#)))
+ (if (let ((#{t\ 3709}#
(memq 'compile
- #{when-list\ 14251}#)))
- (if #{t\ 14272}#
- #{t\ 14272}#
- (let ((#{t\ 14275}#
+ #{when-list\ 3688}#)))
+ (if #{t\ 3709}#
+ #{t\ 3709}#
+ (let ((#{t\ 3712}#
(memq 'expand
- #{when-list\ 14251}#)))
- (if #{t\ 14275}#
- #{t\ 14275}#
- (if (eq? #{m\ 14179}#
+ #{when-list\ 3688}#)))
+ (if #{t\ 3712}#
+ #{t\ 3712}#
+ (if (eq? #{m\ 3616}#
'c&e)
(memq 'eval
- #{when-list\ 14251}#)
+ #{when-list\ 3688}#)
#f)))))
(begin
- (#{top-level-eval-hook\ 12825}#
- (#{chi-top-sequence\ 12991}#
- #{body\ 14252}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
+ (#{top-level-eval-hook\ 2262}#
+ (#{chi-top-sequence\ 2428}#
+ #{body\ 3689}#
+ #{r\ 3614}#
+ #{w\ 3642}#
+ #{s\ 3643}#
'e
'(eval)
- #{mod\ 14207}#)
- #{mod\ 14207}#)
- (#{chi-void\ 13015}#))
- (#{chi-void\ 13015}#))))))
- #{tmp\ 14240}#)
+ #{mod\ 3644}#)
+ #{mod\ 3644}#)
+ (#{chi-void\ 2452}#))
+ (#{chi-void\ 2452}#))))))
+ #{tmp\ 3677}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14239}#)))
+ #{tmp\ 3676}#)))
($sc-dispatch
- #{tmp\ 14239}#
+ #{tmp\ 3676}#
'(any each-any any . each-any))))
- #{e\ 14204}#)
- (if (memv #{type\ 14202}#
+ #{e\ 3641}#)
+ (if (memv #{type\ 3639}#
'(define-syntax-form))
- (let ((#{n\ 14283}#
- (#{id-var-name\ 12973}#
- #{value\ 14203}#
- #{w\ 14205}#))
- (#{r\ 14284}#
- (#{macros-only-env\ 12908}# #{r\ 14177}#)))
- (if (memv #{m\ 14179}# (quote (c)))
- (if (memq (quote compile) #{esew\ 14180}#)
- (let ((#{e\ 14287}#
- (#{chi-install-global\ 12993}#
- #{n\ 14283}#
- (#{chi\ 13001}#
- #{e\ 14204}#
- #{r\ 14284}#
- #{w\ 14205}#
- #{mod\ 14207}#))))
+ (let ((#{n\ 3720}#
+ (#{id-var-name\ 2410}#
+ #{value\ 3640}#
+ #{w\ 3642}#))
+ (#{r\ 3721}#
+ (#{macros-only-env\ 2345}# #{r\ 3614}#)))
+ (if (memv #{m\ 3616}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 3617}#)
+ (let ((#{e\ 3724}#
+ (#{chi-install-global\ 2430}#
+ #{n\ 3720}#
+ (#{chi\ 2438}#
+ #{e\ 3641}#
+ #{r\ 3721}#
+ #{w\ 3642}#
+ #{mod\ 3644}#))))
(begin
- (#{top-level-eval-hook\ 12825}#
- #{e\ 14287}#
- #{mod\ 14207}#)
- (if (memq (quote load) #{esew\ 14180}#)
- #{e\ 14287}#
- (#{chi-void\ 13015}#))))
- (if (memq (quote load) #{esew\ 14180}#)
- (#{chi-install-global\ 12993}#
- #{n\ 14283}#
- (#{chi\ 13001}#
- #{e\ 14204}#
- #{r\ 14284}#
- #{w\ 14205}#
- #{mod\ 14207}#))
- (#{chi-void\ 13015}#)))
- (if (memv #{m\ 14179}# (quote (c&e)))
- (let ((#{e\ 14290}#
- (#{chi-install-global\ 12993}#
- #{n\ 14283}#
- (#{chi\ 13001}#
- #{e\ 14204}#
- #{r\ 14284}#
- #{w\ 14205}#
- #{mod\ 14207}#))))
+ (#{top-level-eval-hook\ 2262}#
+ #{e\ 3724}#
+ #{mod\ 3644}#)
+ (if (memq (quote load) #{esew\ 3617}#)
+ #{e\ 3724}#
+ (#{chi-void\ 2452}#))))
+ (if (memq (quote load) #{esew\ 3617}#)
+ (#{chi-install-global\ 2430}#
+ #{n\ 3720}#
+ (#{chi\ 2438}#
+ #{e\ 3641}#
+ #{r\ 3721}#
+ #{w\ 3642}#
+ #{mod\ 3644}#))
+ (#{chi-void\ 2452}#)))
+ (if (memv #{m\ 3616}# (quote (c&e)))
+ (let ((#{e\ 3727}#
+ (#{chi-install-global\ 2430}#
+ #{n\ 3720}#
+ (#{chi\ 2438}#
+ #{e\ 3641}#
+ #{r\ 3721}#
+ #{w\ 3642}#
+ #{mod\ 3644}#))))
(begin
- (#{top-level-eval-hook\ 12825}#
- #{e\ 14290}#
- #{mod\ 14207}#)
- #{e\ 14290}#))
+ (#{top-level-eval-hook\ 2262}#
+ #{e\ 3727}#
+ #{mod\ 3644}#)
+ #{e\ 3727}#))
(begin
- (if (memq (quote eval) #{esew\ 14180}#)
- (#{top-level-eval-hook\ 12825}#
- (#{chi-install-global\ 12993}#
- #{n\ 14283}#
- (#{chi\ 13001}#
- #{e\ 14204}#
- #{r\ 14284}#
- #{w\ 14205}#
- #{mod\ 14207}#))
- #{mod\ 14207}#))
- (#{chi-void\ 13015}#)))))
- (if (memv #{type\ 14202}# (quote (define-form)))
- (let ((#{n\ 14295}#
- (#{id-var-name\ 12973}#
- #{value\ 14203}#
- #{w\ 14205}#)))
- (let ((#{type\ 14297}#
- (#{binding-type\ 12899}#
- (#{lookup\ 12910}#
- #{n\ 14295}#
- #{r\ 14177}#
- #{mod\ 14207}#))))
- (if (memv #{type\ 14297}#
+ (if (memq (quote eval) #{esew\ 3617}#)
+ (#{top-level-eval-hook\ 2262}#
+ (#{chi-install-global\ 2430}#
+ #{n\ 3720}#
+ (#{chi\ 2438}#
+ #{e\ 3641}#
+ #{r\ 3721}#
+ #{w\ 3642}#
+ #{mod\ 3644}#))
+ #{mod\ 3644}#))
+ (#{chi-void\ 2452}#)))))
+ (if (memv #{type\ 3639}# (quote (define-form)))
+ (let ((#{n\ 3732}#
+ (#{id-var-name\ 2410}#
+ #{value\ 3640}#
+ #{w\ 3642}#)))
+ (let ((#{type\ 3734}#
+ (#{binding-type\ 2336}#
+ (#{lookup\ 2347}#
+ #{n\ 3732}#
+ #{r\ 3614}#
+ #{mod\ 3644}#))))
+ (if (memv #{type\ 3734}#
'(global core macro module-ref))
(begin
- (if (if (memq #{m\ 14179}#
- '(c c&e))
+ (if (if (memq #{m\ 3616}# (quote (c c&e)))
(if (not (module-local-variable
(current-module)
- #{n\ 14295}#))
+ #{n\ 3732}#))
(current-module)
#f)
#f)
- (let ((#{old\ 14303}#
+ (let ((#{old\ 3740}#
(module-variable
(current-module)
- #{n\ 14295}#)))
+ #{n\ 3732}#)))
(module-define!
(current-module)
- #{n\ 14295}#
- (if (variable? #{old\ 14303}#)
- (variable-ref #{old\ 14303}#)
+ #{n\ 3732}#
+ (if (variable? #{old\ 3740}#)
+ (variable-ref #{old\ 3740}#)
#f))))
- (let ((#{x\ 14306}#
- (#{build-global-definition\ 12856}#
- #{s\ 14206}#
- #{n\ 14295}#
- (#{chi\ 13001}#
- #{e\ 14204}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{mod\ 14207}#))))
+ (let ((#{x\ 3743}#
+ (#{build-global-definition\ 2293}#
+ #{s\ 3643}#
+ #{n\ 3732}#
+ (#{chi\ 2438}#
+ #{e\ 3641}#
+ #{r\ 3614}#
+ #{w\ 3642}#
+ #{mod\ 3644}#))))
(begin
- (if (eq? #{m\ 14179}# (quote c&e))
- (#{top-level-eval-hook\ 12825}#
- #{x\ 14306}#
- #{mod\ 14207}#))
- #{x\ 14306}#)))
- (if (memv #{type\ 14297}#
+ (if (eq? #{m\ 3616}# (quote c&e))
+ (#{top-level-eval-hook\ 2262}#
+ #{x\ 3743}#
+ #{mod\ 3644}#))
+ #{x\ 3743}#)))
+ (if (memv #{type\ 3734}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 14204}#
- (#{wrap\ 12985}#
- #{value\ 14203}#
- #{w\ 14205}#
- #{mod\ 14207}#))
+ #{e\ 3641}#
+ (#{wrap\ 2422}#
+ #{value\ 3640}#
+ #{w\ 3642}#
+ #{mod\ 3644}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 14204}#
- (#{wrap\ 12985}#
- #{value\ 14203}#
- #{w\ 14205}#
- #{mod\ 14207}#))))))
- (let ((#{x\ 14312}#
- (#{chi-expr\ 13003}#
- #{type\ 14202}#
- #{value\ 14203}#
- #{e\ 14204}#
- #{r\ 14177}#
- #{w\ 14205}#
- #{s\ 14206}#
- #{mod\ 14207}#)))
+ #{e\ 3641}#
+ (#{wrap\ 2422}#
+ #{value\ 3640}#
+ #{w\ 3642}#
+ #{mod\ 3644}#))))))
+ (let ((#{x\ 3749}#
+ (#{chi-expr\ 2440}#
+ #{type\ 3639}#
+ #{value\ 3640}#
+ #{e\ 3641}#
+ #{r\ 3614}#
+ #{w\ 3642}#
+ #{s\ 3643}#
+ #{mod\ 3644}#)))
(begin
- (if (eq? #{m\ 14179}# (quote c&e))
- (#{top-level-eval-hook\ 12825}#
- #{x\ 14312}#
- #{mod\ 14207}#))
- #{x\ 14312}#)))))))))))
- (#{syntax-type\ 12997}#
- (lambda (#{e\ 14313}#
- #{r\ 14314}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{rib\ 14317}#
- #{mod\ 14318}#
- #{for-car?\ 14319}#)
- (if (symbol? #{e\ 14313}#)
- (let ((#{n\ 14331}#
- (#{id-var-name\ 12973}#
- #{e\ 14313}#
- #{w\ 14315}#)))
- (let ((#{b\ 14333}#
- (#{lookup\ 12910}#
- #{n\ 14331}#
- #{r\ 14314}#
- #{mod\ 14318}#)))
- (let ((#{type\ 14335}#
- (#{binding-type\ 12899}# #{b\ 14333}#)))
- (if (memv #{type\ 14335}# (quote (lexical)))
+ (if (eq? #{m\ 3616}# (quote c&e))
+ (#{top-level-eval-hook\ 2262}#
+ #{x\ 3749}#
+ #{mod\ 3644}#))
+ #{x\ 3749}#)))))))))))
+ (#{syntax-type\ 2434}#
+ (lambda (#{e\ 3750}#
+ #{r\ 3751}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{rib\ 3754}#
+ #{mod\ 3755}#
+ #{for-car?\ 3756}#)
+ (if (symbol? #{e\ 3750}#)
+ (let ((#{n\ 3768}#
+ (#{id-var-name\ 2410}# #{e\ 3750}# #{w\ 3752}#)))
+ (let ((#{b\ 3770}#
+ (#{lookup\ 2347}#
+ #{n\ 3768}#
+ #{r\ 3751}#
+ #{mod\ 3755}#)))
+ (let ((#{type\ 3772}#
+ (#{binding-type\ 2336}# #{b\ 3770}#)))
+ (if (memv #{type\ 3772}# (quote (lexical)))
(values
- #{type\ 14335}#
- (#{binding-value\ 12901}# #{b\ 14333}#)
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{type\ 14335}# (quote (global)))
+ #{type\ 3772}#
+ (#{binding-value\ 2338}# #{b\ 3770}#)
+ #{e\ 3750}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{mod\ 3755}#)
+ (if (memv #{type\ 3772}# (quote (global)))
(values
- #{type\ 14335}#
- #{n\ 14331}#
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{type\ 14335}# (quote (macro)))
- (if #{for-car?\ 14319}#
+ #{type\ 3772}#
+ #{n\ 3768}#
+ #{e\ 3750}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{mod\ 3755}#)
+ (if (memv #{type\ 3772}# (quote (macro)))
+ (if #{for-car?\ 3756}#
(values
- #{type\ 14335}#
- (#{binding-value\ 12901}# #{b\ 14333}#)
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (#{syntax-type\ 12997}#
- (#{chi-macro\ 13007}#
- (#{binding-value\ 12901}# #{b\ 14333}#)
- #{e\ 14313}#
- #{r\ 14314}#
- #{w\ 14315}#
- #{rib\ 14317}#
- #{mod\ 14318}#)
- #{r\ 14314}#
+ #{type\ 3772}#
+ (#{binding-value\ 2338}# #{b\ 3770}#)
+ #{e\ 3750}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{mod\ 3755}#)
+ (#{syntax-type\ 2434}#
+ (#{chi-macro\ 2444}#
+ (#{binding-value\ 2338}# #{b\ 3770}#)
+ #{e\ 3750}#
+ #{r\ 3751}#
+ #{w\ 3752}#
+ #{rib\ 3754}#
+ #{mod\ 3755}#)
+ #{r\ 3751}#
'(())
- #{s\ 14316}#
- #{rib\ 14317}#
- #{mod\ 14318}#
+ #{s\ 3753}#
+ #{rib\ 3754}#
+ #{mod\ 3755}#
#f))
(values
- #{type\ 14335}#
- (#{binding-value\ 12901}# #{b\ 14333}#)
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)))))))
- (if (pair? #{e\ 14313}#)
- (let ((#{first\ 14344}# (car #{e\ 14313}#)))
+ #{type\ 3772}#
+ (#{binding-value\ 2338}# #{b\ 3770}#)
+ #{e\ 3750}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{mod\ 3755}#)))))))
+ (if (pair? #{e\ 3750}#)
+ (let ((#{first\ 3781}# (car #{e\ 3750}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 12997}#
- #{first\ 14344}#
- #{r\ 14314}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{rib\ 14317}#
- #{mod\ 14318}#
+ (#{syntax-type\ 2434}#
+ #{first\ 3781}#
+ #{r\ 3751}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{rib\ 3754}#
+ #{mod\ 3755}#
#t))
- (lambda (#{ftype\ 14345}#
- #{fval\ 14346}#
- #{fe\ 14347}#
- #{fw\ 14348}#
- #{fs\ 14349}#
- #{fmod\ 14350}#)
- (if (memv #{ftype\ 14345}# (quote (lexical)))
+ (lambda (#{ftype\ 3782}#
+ #{fval\ 3783}#
+ #{fe\ 3784}#
+ #{fw\ 3785}#
+ #{fs\ 3786}#
+ #{fmod\ 3787}#)
+ (if (memv #{ftype\ 3782}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 14346}#
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{ftype\ 14345}# (quote (global)))
+ #{fval\ 3783}#
+ #{e\ 3750}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{mod\ 3755}#)
+ (if (memv #{ftype\ 3782}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 12878}#
- #{fval\ 14346}#
- #{w\ 14315}#
- #{fmod\ 14350}#)
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{ftype\ 14345}# (quote (macro)))
- (#{syntax-type\ 12997}#
- (#{chi-macro\ 13007}#
- #{fval\ 14346}#
- #{e\ 14313}#
- #{r\ 14314}#
- #{w\ 14315}#
- #{rib\ 14317}#
- #{mod\ 14318}#)
- #{r\ 14314}#
+ (#{make-syntax-object\ 2315}#
+ #{fval\ 3783}#
+ #{w\ 3752}#
+ #{fmod\ 3787}#)
+ #{e\ 3750}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{mod\ 3755}#)
+ (if (memv #{ftype\ 3782}# (quote (macro)))
+ (#{syntax-type\ 2434}#
+ (#{chi-macro\ 2444}#
+ #{fval\ 3783}#
+ #{e\ 3750}#
+ #{r\ 3751}#
+ #{w\ 3752}#
+ #{rib\ 3754}#
+ #{mod\ 3755}#)
+ #{r\ 3751}#
'(())
- #{s\ 14316}#
- #{rib\ 14317}#
- #{mod\ 14318}#
- #{for-car?\ 14319}#)
- (if (memv #{ftype\ 14345}# (quote (module-ref)))
+ #{s\ 3753}#
+ #{rib\ 3754}#
+ #{mod\ 3755}#
+ #{for-car?\ 3756}#)
+ (if (memv #{ftype\ 3782}# (quote (module-ref)))
(call-with-values
(lambda ()
- (#{fval\ 14346}#
- #{e\ 14313}#
- #{r\ 14314}#
- #{w\ 14315}#))
- (lambda (#{e\ 14362}#
- #{r\ 14363}#
- #{w\ 14364}#
- #{s\ 14365}#
- #{mod\ 14366}#)
- (#{syntax-type\ 12997}#
- #{e\ 14362}#
- #{r\ 14363}#
- #{w\ 14364}#
- #{s\ 14365}#
- #{rib\ 14317}#
- #{mod\ 14366}#
- #{for-car?\ 14319}#)))
- (if (memv #{ftype\ 14345}# (quote (core)))
+ (#{fval\ 3783}#
+ #{e\ 3750}#
+ #{r\ 3751}#
+ #{w\ 3752}#))
+ (lambda (#{e\ 3799}#
+ #{r\ 3800}#
+ #{w\ 3801}#
+ #{s\ 3802}#
+ #{mod\ 3803}#)
+ (#{syntax-type\ 2434}#
+ #{e\ 3799}#
+ #{r\ 3800}#
+ #{w\ 3801}#
+ #{s\ 3802}#
+ #{rib\ 3754}#
+ #{mod\ 3803}#
+ #{for-car?\ 3756}#)))
+ (if (memv #{ftype\ 3782}# (quote (core)))
(values
'core-form
- #{fval\ 14346}#
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{ftype\ 14345}#
+ #{fval\ 3783}#
+ #{e\ 3750}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{mod\ 3755}#)
+ (if (memv #{ftype\ 3782}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 14346}#
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{ftype\ 14345}#
- '(begin))
+ #{fval\ 3783}#
+ #{e\ 3750}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{mod\ 3755}#)
+ (if (memv #{ftype\ 3782}# (quote (begin)))
(values
'begin-form
#f
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{ftype\ 14345}#
+ #{e\ 3750}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{mod\ 3755}#)
+ (if (memv #{ftype\ 3782}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
- (if (memv #{ftype\ 14345}#
+ #{e\ 3750}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{mod\ 3755}#)
+ (if (memv #{ftype\ 3782}#
'(define))
- ((lambda (#{tmp\ 14377}#)
- ((lambda (#{tmp\ 14378}#)
- (if (if #{tmp\ 14378}#
- (apply (lambda (#{_\ 14382}#
- #{name\ 14383}#
- #{val\ 14384}#)
- (#{id?\ 12916}#
- #{name\ 14383}#))
- #{tmp\ 14378}#)
+ ((lambda (#{tmp\ 3814}#)
+ ((lambda (#{tmp\ 3815}#)
+ (if (if #{tmp\ 3815}#
+ (apply (lambda (#{_\ 3819}#
+ #{name\ 3820}#
+ #{val\ 3821}#)
+ (#{id?\ 2353}#
+ #{name\ 3820}#))
+ #{tmp\ 3815}#)
#f)
- (apply (lambda (#{_\ 14388}#
- #{name\ 14389}#
- #{val\ 14390}#)
+ (apply (lambda (#{_\ 3825}#
+ #{name\ 3826}#
+ #{val\ 3827}#)
(values
'define-form
- #{name\ 14389}#
- #{val\ 14390}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#))
- #{tmp\ 14378}#)
- ((lambda (#{tmp\ 14391}#)
- (if (if #{tmp\ 14391}#
- (apply (lambda (#{_\ 14397}#
- #{name\ 14398}#
- #{args\ 14399}#
- #{e1\ 14400}#
- #{e2\ 14401}#)
- (if (#{id?\ 12916}#
- #{name\ 14398}#)
- (#{valid-bound-ids?\ 12979}#
- (#{lambda-var-list\ 13031}#
- #{args\ 14399}#))
+ #{name\ 3826}#
+ #{val\ 3827}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{mod\ 3755}#))
+ #{tmp\ 3815}#)
+ ((lambda (#{tmp\ 3828}#)
+ (if (if #{tmp\ 3828}#
+ (apply (lambda (#{_\ 3834}#
+ #{name\ 3835}#
+ #{args\ 3836}#
+ #{e1\ 3837}#
+ #{e2\ 3838}#)
+ (if (#{id?\ 2353}#
+ #{name\ 3835}#)
+ (#{valid-bound-ids?\ 2416}#
+ (#{lambda-var-list\ 2468}#
+ #{args\ 3836}#))
#f))
- #{tmp\ 14391}#)
+ #{tmp\ 3828}#)
#f)
- (apply (lambda (#{_\ 14409}#
- #{name\ 14410}#
- #{args\ 14411}#
- #{e1\ 14412}#
- #{e2\ 14413}#)
+ (apply (lambda (#{_\ 3846}#
+ #{name\ 3847}#
+ #{args\ 3848}#
+ #{e1\ 3849}#
+ #{e2\ 3850}#)
(values
'define-form
- (#{wrap\ 12985}#
- #{name\ 14410}#
- #{w\ 14315}#
- #{mod\ 14318}#)
- (#{decorate-source\ 12834}#
+ (#{wrap\ 2422}#
+ #{name\ 3847}#
+ #{w\ 3752}#
+ #{mod\ 3755}#)
+ (#{decorate-source\ 2271}#
(cons '#(syntax-object
lambda
((top)
@@ -3835,11 +3810,11 @@
(top)
(top)
(top))
- #("i14404"
- "i14405"
- "i14406"
- "i14407"
- "i14408"))
+ #("i3841"
+ "i3842"
+ "i3843"
+ "i3844"
+ "i3845"))
#(ribcage
()
()
@@ -3861,12 +3836,12 @@
(top)
(top)
(top))
- #("i14351"
- "i14352"
- "i14353"
- "i14354"
- "i14355"
- "i14356"))
+ #("i3788"
+ "i3789"
+ "i3790"
+ "i3791"
+ "i3792"
+ "i3793"))
#(ribcage
()
()
@@ -3874,7 +3849,7 @@
#(ribcage
#(first)
#((top))
- #("i14343"))
+ #("i3780"))
#(ribcage
()
()
@@ -3902,13 +3877,13 @@
(top)
(top)
(top))
- #("i14320"
- "i14321"
- "i14322"
- "i14323"
- "i14324"
- "i14325"
- "i14326"))
+ #("i3757"
+ "i3758"
+ "i3759"
+ "i3760"
+ "i3761"
+ "i3762"
+ "i3763"))
#(ribcage
(lambda-var-list
gen-var
@@ -4180,141 +4155,141 @@
(top)
(top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2407"
+ "i2405"
+ "i2403"
+ "i2401"
+ "i2399"
+ "i2397"
+ "i2396"
+ "i2395"
+ "i2393"
+ "i2392"
+ "i2391"
+ "i2390"
+ "i2389"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2370"
+ "i2368"
+ "i2367"
+ "i2366"
+ "i2365"
+ "i2364"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2354"
+ "i2352"
+ "i2350"
+ "i2348"
+ "i2346"
+ "i2344"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2337"
+ "i2335"
+ "i2334"
+ "i2333"
+ "i2331"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"
+ "i2308"
+ "i2306"
+ "i2304"
+ "i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2265"
+ "i2263"
+ "i2261"
+ "i2259"
+ "i2257"
+ "i2255"
+ "i2253"
+ "i2251"
+ "i2249"
+ "i2247"
+ "i2245"
+ "i2243"
+ "i2241"
+ "i2239"
+ "i2237"
+ "i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2214"))
#(ribcage
(define-structure
define-expansion-constructors
@@ -4322,38 +4297,38 @@
((top)
(top)
(top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i2066"
+ "i2065"
+ "i2063")))
(hygiene
guile))
- (#{wrap\ 12985}#
- (cons #{args\ 14411}#
- (cons #{e1\ 14412}#
- #{e2\ 14413}#))
- #{w\ 14315}#
- #{mod\ 14318}#))
- #{s\ 14316}#)
+ (#{wrap\ 2422}#
+ (cons #{args\ 3848}#
+ (cons #{e1\ 3849}#
+ #{e2\ 3850}#))
+ #{w\ 3752}#
+ #{mod\ 3755}#))
+ #{s\ 3753}#)
'(())
- #{s\ 14316}#
- #{mod\ 14318}#))
- #{tmp\ 14391}#)
- ((lambda (#{tmp\ 14416}#)
- (if (if #{tmp\ 14416}#
- (apply (lambda (#{_\ 14419}#
- #{name\ 14420}#)
- (#{id?\ 12916}#
- #{name\ 14420}#))
- #{tmp\ 14416}#)
+ #{s\ 3753}#
+ #{mod\ 3755}#))
+ #{tmp\ 3828}#)
+ ((lambda (#{tmp\ 3853}#)
+ (if (if #{tmp\ 3853}#
+ (apply (lambda (#{_\ 3856}#
+ #{name\ 3857}#)
+ (#{id?\ 2353}#
+ #{name\ 3857}#))
+ #{tmp\ 3853}#)
#f)
- (apply (lambda (#{_\ 14423}#
- #{name\ 14424}#)
+ (apply (lambda (#{_\ 3860}#
+ #{name\ 3861}#)
(values
'define-form
- (#{wrap\ 12985}#
- #{name\ 14424}#
- #{w\ 14315}#
- #{mod\ 14318}#)
+ (#{wrap\ 2422}#
+ #{name\ 3861}#
+ #{w\ 3752}#
+ #{mod\ 3755}#)
'(#(syntax-object
if
((top)
@@ -4362,8 +4337,8 @@
name)
#((top)
(top))
- #("i14421"
- "i14422"))
+ #("i3858"
+ "i3859"))
#(ribcage
()
()
@@ -4385,12 +4360,12 @@
(top)
(top)
(top))
- #("i14351"
- "i14352"
- "i14353"
- "i14354"
- "i14355"
- "i14356"))
+ #("i3788"
+ "i3789"
+ "i3790"
+ "i3791"
+ "i3792"
+ "i3793"))
#(ribcage
()
()
@@ -4398,7 +4373,7 @@
#(ribcage
#(first)
#((top))
- #("i14343"))
+ #("i3780"))
#(ribcage
()
()
@@ -4426,13 +4401,13 @@
(top)
(top)
(top))
- #("i14320"
- "i14321"
- "i14322"
- "i14323"
- "i14324"
- "i14325"
- "i14326"))
+ #("i3757"
+ "i3758"
+ "i3759"
+ "i3760"
+ "i3761"
+ "i3762"
+ "i3763"))
#(ribcage
(lambda-var-list
gen-var
@@ -4704,141 +4679,141 @@
(top)
(top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2407"
+ "i2405"
+ "i2403"
+ "i2401"
+ "i2399"
+ "i2397"
+ "i2396"
+ "i2395"
+ "i2393"
+ "i2392"
+ "i2391"
+ "i2390"
+ "i2389"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2370"
+ "i2368"
+ "i2367"
+ "i2366"
+ "i2365"
+ "i2364"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2354"
+ "i2352"
+ "i2350"
+ "i2348"
+ "i2346"
+ "i2344"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2337"
+ "i2335"
+ "i2334"
+ "i2333"
+ "i2331"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"
+ "i2308"
+ "i2306"
+ "i2304"
+ "i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2265"
+ "i2263"
+ "i2261"
+ "i2259"
+ "i2257"
+ "i2255"
+ "i2253"
+ "i2251"
+ "i2249"
+ "i2247"
+ "i2245"
+ "i2243"
+ "i2241"
+ "i2239"
+ "i2237"
+ "i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2214"))
#(ribcage
(define-structure
define-expansion-constructors
@@ -4846,9 +4821,9 @@
((top)
(top)
(top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i2066"
+ "i2065"
+ "i2063")))
(hygiene
guile))
#(syntax-object
@@ -4859,8 +4834,8 @@
name)
#((top)
(top))
- #("i14421"
- "i14422"))
+ #("i3858"
+ "i3859"))
#(ribcage
()
()
@@ -4882,12 +4857,12 @@
(top)
(top)
(top))
- #("i14351"
- "i14352"
- "i14353"
- "i14354"
- "i14355"
- "i14356"))
+ #("i3788"
+ "i3789"
+ "i3790"
+ "i3791"
+ "i3792"
+ "i3793"))
#(ribcage
()
()
@@ -4895,7 +4870,7 @@
#(ribcage
#(first)
#((top))
- #("i14343"))
+ #("i3780"))
#(ribcage
()
()
@@ -4923,13 +4898,13 @@
(top)
(top)
(top))
- #("i14320"
- "i14321"
- "i14322"
- "i14323"
- "i14324"
- "i14325"
- "i14326"))
+ #("i3757"
+ "i3758"
+ "i3759"
+ "i3760"
+ "i3761"
+ "i3762"
+ "i3763"))
#(ribcage
(lambda-var-list
gen-var
@@ -5201,141 +5176,141 @@
(top)
(top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2407"
+ "i2405"
+ "i2403"
+ "i2401"
+ "i2399"
+ "i2397"
+ "i2396"
+ "i2395"
+ "i2393"
+ "i2392"
+ "i2391"
+ "i2390"
+ "i2389"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2370"
+ "i2368"
+ "i2367"
+ "i2366"
+ "i2365"
+ "i2364"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2354"
+ "i2352"
+ "i2350"
+ "i2348"
+ "i2346"
+ "i2344"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2337"
+ "i2335"
+ "i2334"
+ "i2333"
+ "i2331"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"
+ "i2308"
+ "i2306"
+ "i2304"
+ "i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2265"
+ "i2263"
+ "i2261"
+ "i2259"
+ "i2257"
+ "i2255"
+ "i2253"
+ "i2251"
+ "i2249"
+ "i2247"
+ "i2245"
+ "i2243"
+ "i2241"
+ "i2239"
+ "i2237"
+ "i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2214"))
#(ribcage
(define-structure
define-expansion-constructors
@@ -5343,9 +5318,9 @@
((top)
(top)
(top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i2066"
+ "i2065"
+ "i2063")))
(hygiene
guile))
#(syntax-object
@@ -5356,8 +5331,8 @@
name)
#((top)
(top))
- #("i14421"
- "i14422"))
+ #("i3858"
+ "i3859"))
#(ribcage
()
()
@@ -5379,12 +5354,12 @@
(top)
(top)
(top))
- #("i14351"
- "i14352"
- "i14353"
- "i14354"
- "i14355"
- "i14356"))
+ #("i3788"
+ "i3789"
+ "i3790"
+ "i3791"
+ "i3792"
+ "i3793"))
#(ribcage
()
()
@@ -5392,7 +5367,7 @@
#(ribcage
#(first)
#((top))
- #("i14343"))
+ #("i3780"))
#(ribcage
()
()
@@ -5420,13 +5395,13 @@
(top)
(top)
(top))
- #("i14320"
- "i14321"
- "i14322"
- "i14323"
- "i14324"
- "i14325"
- "i14326"))
+ #("i3757"
+ "i3758"
+ "i3759"
+ "i3760"
+ "i3761"
+ "i3762"
+ "i3763"))
#(ribcage
(lambda-var-list
gen-var
@@ -5698,141 +5673,141 @@
(top)
(top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2407"
+ "i2405"
+ "i2403"
+ "i2401"
+ "i2399"
+ "i2397"
+ "i2396"
+ "i2395"
+ "i2393"
+ "i2392"
+ "i2391"
+ "i2390"
+ "i2389"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2370"
+ "i2368"
+ "i2367"
+ "i2366"
+ "i2365"
+ "i2364"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2354"
+ "i2352"
+ "i2350"
+ "i2348"
+ "i2346"
+ "i2344"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2337"
+ "i2335"
+ "i2334"
+ "i2333"
+ "i2331"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"
+ "i2308"
+ "i2306"
+ "i2304"
+ "i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2265"
+ "i2263"
+ "i2261"
+ "i2259"
+ "i2257"
+ "i2255"
+ "i2253"
+ "i2251"
+ "i2249"
+ "i2247"
+ "i2245"
+ "i2243"
+ "i2241"
+ "i2239"
+ "i2237"
+ "i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2214"))
#(ribcage
(define-structure
define-expansion-constructors
@@ -5840,111 +5815,110 @@
((top)
(top)
(top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i2066"
+ "i2065"
+ "i2063")))
(hygiene
guile)))
'(())
- #{s\ 14316}#
- #{mod\ 14318}#))
- #{tmp\ 14416}#)
+ #{s\ 3753}#
+ #{mod\ 3755}#))
+ #{tmp\ 3853}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14377}#)))
+ #{tmp\ 3814}#)))
($sc-dispatch
- #{tmp\ 14377}#
+ #{tmp\ 3814}#
'(any any)))))
($sc-dispatch
- #{tmp\ 14377}#
+ #{tmp\ 3814}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 14377}#
+ #{tmp\ 3814}#
'(any any any))))
- #{e\ 14313}#)
- (if (memv #{ftype\ 14345}#
+ #{e\ 3750}#)
+ (if (memv #{ftype\ 3782}#
'(define-syntax))
- ((lambda (#{tmp\ 14427}#)
- ((lambda (#{tmp\ 14428}#)
- (if (if #{tmp\ 14428}#
- (apply (lambda (#{_\ 14432}#
- #{name\ 14433}#
- #{val\ 14434}#)
- (#{id?\ 12916}#
- #{name\ 14433}#))
- #{tmp\ 14428}#)
+ ((lambda (#{tmp\ 3864}#)
+ ((lambda (#{tmp\ 3865}#)
+ (if (if #{tmp\ 3865}#
+ (apply (lambda (#{_\ 3869}#
+ #{name\ 3870}#
+ #{val\ 3871}#)
+ (#{id?\ 2353}#
+ #{name\ 3870}#))
+ #{tmp\ 3865}#)
#f)
- (apply (lambda (#{_\ 14438}#
- #{name\ 14439}#
- #{val\ 14440}#)
+ (apply (lambda (#{_\ 3875}#
+ #{name\ 3876}#
+ #{val\ 3877}#)
(values
'define-syntax-form
- #{name\ 14439}#
- #{val\ 14440}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#))
- #{tmp\ 14428}#)
+ #{name\ 3876}#
+ #{val\ 3877}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{mod\ 3755}#))
+ #{tmp\ 3865}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 14427}#)))
+ #{tmp\ 3864}#)))
($sc-dispatch
- #{tmp\ 14427}#
+ #{tmp\ 3864}#
'(any any any))))
- #{e\ 14313}#)
+ #{e\ 3750}#)
(values
'call
#f
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#))))))))))))))
- (if (#{syntax-object?\ 12880}# #{e\ 14313}#)
- (#{syntax-type\ 12997}#
- (#{syntax-object-expression\ 12882}#
- #{e\ 14313}#)
- #{r\ 14314}#
- (#{join-wraps\ 12967}#
- #{w\ 14315}#
- (#{syntax-object-wrap\ 12884}# #{e\ 14313}#))
- #{s\ 14316}#
- #{rib\ 14317}#
- (let ((#{t\ 14446}#
- (#{syntax-object-module\ 12886}# #{e\ 14313}#)))
- (if #{t\ 14446}# #{t\ 14446}# #{mod\ 14318}#))
- #{for-car?\ 14319}#)
- (if (self-evaluating? #{e\ 14313}#)
+ #{e\ 3750}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{mod\ 3755}#))))))))))))))
+ (if (#{syntax-object?\ 2317}# #{e\ 3750}#)
+ (#{syntax-type\ 2434}#
+ (#{syntax-object-expression\ 2319}# #{e\ 3750}#)
+ #{r\ 3751}#
+ (#{join-wraps\ 2404}#
+ #{w\ 3752}#
+ (#{syntax-object-wrap\ 2321}# #{e\ 3750}#))
+ #{s\ 3753}#
+ #{rib\ 3754}#
+ (let ((#{t\ 3883}#
+ (#{syntax-object-module\ 2323}# #{e\ 3750}#)))
+ (if #{t\ 3883}# #{t\ 3883}# #{mod\ 3755}#))
+ #{for-car?\ 3756}#)
+ (if (self-evaluating? #{e\ 3750}#)
(values
'constant
#f
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)
+ #{e\ 3750}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{mod\ 3755}#)
(values
'other
#f
- #{e\ 14313}#
- #{w\ 14315}#
- #{s\ 14316}#
- #{mod\ 14318}#)))))))
- (#{chi-when-list\ 12995}#
- (lambda (#{e\ 14451}# #{when-list\ 14452}# #{w\ 14453}#)
- (letrec ((#{f\ 14460}#
- (lambda (#{when-list\ 14461}# #{situations\ 14462}#)
- (if (null? #{when-list\ 14461}#)
- #{situations\ 14462}#
- (#{f\ 14460}#
- (cdr #{when-list\ 14461}#)
- (cons (let ((#{x\ 14464}#
- (car #{when-list\ 14461}#)))
- (if (#{free-id=?\ 12975}#
- #{x\ 14464}#
+ #{e\ 3750}#
+ #{w\ 3752}#
+ #{s\ 3753}#
+ #{mod\ 3755}#)))))))
+ (#{chi-when-list\ 2432}#
+ (lambda (#{e\ 3888}# #{when-list\ 3889}# #{w\ 3890}#)
+ (letrec ((#{f\ 3897}#
+ (lambda (#{when-list\ 3898}# #{situations\ 3899}#)
+ (if (null? #{when-list\ 3898}#)
+ #{situations\ 3899}#
+ (#{f\ 3897}#
+ (cdr #{when-list\ 3898}#)
+ (cons (let ((#{x\ 3901}#
+ (car #{when-list\ 3898}#)))
+ (if (#{free-id=?\ 2412}#
+ #{x\ 3901}#
'#(syntax-object
compile
((top)
@@ -5954,21 +5928,17 @@
#(ribcage
#(x)
#((top))
- #("i14463"))
+ #("i3900"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i14457"
- "i14458"
- "i14459"))
+ #("i3894" "i3895" "i3896"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i14454"
- "i14455"
- "i14456"))
+ #("i3891" "i3892" "i3893"))
#(ribcage
(lambda-var-list
gen-var
@@ -6240,153 +6210,151 @@
(top)
(top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2407"
+ "i2405"
+ "i2403"
+ "i2401"
+ "i2399"
+ "i2397"
+ "i2396"
+ "i2395"
+ "i2393"
+ "i2392"
+ "i2391"
+ "i2390"
+ "i2389"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2370"
+ "i2368"
+ "i2367"
+ "i2366"
+ "i2365"
+ "i2364"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2354"
+ "i2352"
+ "i2350"
+ "i2348"
+ "i2346"
+ "i2344"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2337"
+ "i2335"
+ "i2334"
+ "i2333"
+ "i2331"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"
+ "i2308"
+ "i2306"
+ "i2304"
+ "i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2265"
+ "i2263"
+ "i2261"
+ "i2259"
+ "i2257"
+ "i2255"
+ "i2253"
+ "i2251"
+ "i2249"
+ "i2247"
+ "i2245"
+ "i2243"
+ "i2241"
+ "i2239"
+ "i2237"
+ "i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2214"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i2066" "i2065" "i2063")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 12975}#
- #{x\ 14464}#
+ (if (#{free-id=?\ 2412}#
+ #{x\ 3901}#
'#(syntax-object
load
((top)
@@ -6396,21 +6364,21 @@
#(ribcage
#(x)
#((top))
- #("i14463"))
+ #("i3900"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i14457"
- "i14458"
- "i14459"))
+ #("i3894"
+ "i3895"
+ "i3896"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i14454"
- "i14455"
- "i14456"))
+ #("i3891"
+ "i3892"
+ "i3893"))
#(ribcage
(lambda-var-list
gen-var
@@ -6682,153 +6650,153 @@
(top)
(top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2407"
+ "i2405"
+ "i2403"
+ "i2401"
+ "i2399"
+ "i2397"
+ "i2396"
+ "i2395"
+ "i2393"
+ "i2392"
+ "i2391"
+ "i2390"
+ "i2389"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2370"
+ "i2368"
+ "i2367"
+ "i2366"
+ "i2365"
+ "i2364"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2354"
+ "i2352"
+ "i2350"
+ "i2348"
+ "i2346"
+ "i2344"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2337"
+ "i2335"
+ "i2334"
+ "i2333"
+ "i2331"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"
+ "i2308"
+ "i2306"
+ "i2304"
+ "i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2265"
+ "i2263"
+ "i2261"
+ "i2259"
+ "i2257"
+ "i2255"
+ "i2253"
+ "i2251"
+ "i2249"
+ "i2247"
+ "i2245"
+ "i2243"
+ "i2241"
+ "i2239"
+ "i2237"
+ "i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2214"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i2066"
+ "i2065"
+ "i2063")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 12975}#
- #{x\ 14464}#
+ (if (#{free-id=?\ 2412}#
+ #{x\ 3901}#
'#(syntax-object
eval
((top)
@@ -6838,23 +6806,23 @@
#(ribcage
#(x)
#((top))
- #("i14463"))
+ #("i3900"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i14457"
- "i14458"
- "i14459"))
+ #("i3894"
+ "i3895"
+ "i3896"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i14454"
- "i14455"
- "i14456"))
+ #("i3891"
+ "i3892"
+ "i3893"))
#(ribcage
(lambda-var-list
gen-var
@@ -7126,153 +7094,153 @@
(top)
(top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2407"
+ "i2405"
+ "i2403"
+ "i2401"
+ "i2399"
+ "i2397"
+ "i2396"
+ "i2395"
+ "i2393"
+ "i2392"
+ "i2391"
+ "i2390"
+ "i2389"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2370"
+ "i2368"
+ "i2367"
+ "i2366"
+ "i2365"
+ "i2364"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2354"
+ "i2352"
+ "i2350"
+ "i2348"
+ "i2346"
+ "i2344"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2337"
+ "i2335"
+ "i2334"
+ "i2333"
+ "i2331"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"
+ "i2308"
+ "i2306"
+ "i2304"
+ "i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2265"
+ "i2263"
+ "i2261"
+ "i2259"
+ "i2257"
+ "i2255"
+ "i2253"
+ "i2251"
+ "i2249"
+ "i2247"
+ "i2245"
+ "i2243"
+ "i2241"
+ "i2239"
+ "i2237"
+ "i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2214"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i2066"
+ "i2065"
+ "i2063")))
(hygiene guile)))
'eval
- (if (#{free-id=?\ 12975}#
- #{x\ 14464}#
+ (if (#{free-id=?\ 2412}#
+ #{x\ 3901}#
'#(syntax-object
expand
((top)
@@ -7282,23 +7250,23 @@
#(ribcage
#(x)
#((top))
- #("i14463"))
+ #("i3900"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i14457"
- "i14458"
- "i14459"))
+ #("i3894"
+ "i3895"
+ "i3896"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i14454"
- "i14455"
- "i14456"))
+ #("i3891"
+ "i3892"
+ "i3893"))
#(ribcage
(lambda-var-list
gen-var
@@ -7570,2526 +7538,2413 @@
(top)
(top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2407"
+ "i2405"
+ "i2403"
+ "i2401"
+ "i2399"
+ "i2397"
+ "i2396"
+ "i2395"
+ "i2393"
+ "i2392"
+ "i2391"
+ "i2390"
+ "i2389"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2370"
+ "i2368"
+ "i2367"
+ "i2366"
+ "i2365"
+ "i2364"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2354"
+ "i2352"
+ "i2350"
+ "i2348"
+ "i2346"
+ "i2344"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2337"
+ "i2335"
+ "i2334"
+ "i2333"
+ "i2331"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"
+ "i2308"
+ "i2306"
+ "i2304"
+ "i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2265"
+ "i2263"
+ "i2261"
+ "i2259"
+ "i2257"
+ "i2255"
+ "i2253"
+ "i2251"
+ "i2249"
+ "i2247"
+ "i2245"
+ "i2243"
+ "i2241"
+ "i2239"
+ "i2237"
+ "i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2214"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i2066"
+ "i2065"
+ "i2063")))
(hygiene guile)))
'expand
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 14451}#
- (#{wrap\ 12985}#
- #{x\ 14464}#
- #{w\ 14453}#
+ #{e\ 3888}#
+ (#{wrap\ 2422}#
+ #{x\ 3901}#
+ #{w\ 3890}#
#f)))))))
- #{situations\ 14462}#))))))
- (#{f\ 14460}# #{when-list\ 14452}# (quote ())))))
- (#{chi-install-global\ 12993}#
- (lambda (#{name\ 14474}# #{e\ 14475}#)
- (#{build-global-definition\ 12856}#
+ #{situations\ 3899}#))))))
+ (#{f\ 3897}# #{when-list\ 3889}# (quote ())))))
+ (#{chi-install-global\ 2430}#
+ (lambda (#{name\ 3911}# #{e\ 3912}#)
+ (#{build-global-definition\ 2293}#
#f
- #{name\ 14474}#
- (#{build-application\ 12838}#
+ #{name\ 3911}#
+ (#{build-application\ 2275}#
#f
- (#{build-primref\ 12864}#
+ (#{build-primref\ 2301}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 12866}# #f #{name\ 14474}#)
- (#{build-data\ 12866}# #f (quote macro))
- (#{build-application\ 12838}#
+ (list (#{build-data\ 2303}# #f #{name\ 3911}#)
+ (#{build-data\ 2303}# #f (quote macro))
+ (#{build-application\ 2275}#
#f
- (#{build-primref\ 12864}# #f (quote cons))
- (list #{e\ 14475}#
- (#{build-application\ 12838}#
+ (#{build-primref\ 2301}# #f (quote cons))
+ (list #{e\ 3912}#
+ (#{build-application\ 2275}#
#f
- (#{build-primref\ 12864}#
+ (#{build-primref\ 2301}#
#f
'module-name)
- (list (#{build-application\ 12838}#
+ (list (#{build-application\ 2275}#
#f
- (#{build-primref\ 12864}#
+ (#{build-primref\ 2301}#
#f
'current-module)
'()))))))))))
- (#{chi-top-sequence\ 12991}#
- (lambda (#{body\ 14489}#
- #{r\ 14490}#
- #{w\ 14491}#
- #{s\ 14492}#
- #{m\ 14493}#
- #{esew\ 14494}#
- #{mod\ 14495}#)
- (#{build-sequence\ 12868}#
- #{s\ 14492}#
- (letrec ((#{dobody\ 14511}#
- (lambda (#{body\ 14512}#
- #{r\ 14513}#
- #{w\ 14514}#
- #{m\ 14515}#
- #{esew\ 14516}#
- #{mod\ 14517}#
- #{out\ 14518}#)
- (if (null? #{body\ 14512}#)
- (reverse #{out\ 14518}#)
- (#{dobody\ 14511}#
- (cdr #{body\ 14512}#)
- #{r\ 14513}#
- #{w\ 14514}#
- #{m\ 14515}#
- #{esew\ 14516}#
- #{mod\ 14517}#
- (cons (#{chi-top\ 12999}#
- (car #{body\ 14512}#)
- #{r\ 14513}#
- #{w\ 14514}#
- #{m\ 14515}#
- #{esew\ 14516}#
- #{mod\ 14517}#)
- #{out\ 14518}#))))))
- (#{dobody\ 14511}#
- #{body\ 14489}#
- #{r\ 14490}#
- #{w\ 14491}#
- #{m\ 14493}#
- #{esew\ 14494}#
- #{mod\ 14495}#
+ (#{chi-top-sequence\ 2428}#
+ (lambda (#{body\ 3926}#
+ #{r\ 3927}#
+ #{w\ 3928}#
+ #{s\ 3929}#
+ #{m\ 3930}#
+ #{esew\ 3931}#
+ #{mod\ 3932}#)
+ (#{build-sequence\ 2305}#
+ #{s\ 3929}#
+ (letrec ((#{dobody\ 3948}#
+ (lambda (#{body\ 3949}#
+ #{r\ 3950}#
+ #{w\ 3951}#
+ #{m\ 3952}#
+ #{esew\ 3953}#
+ #{mod\ 3954}#
+ #{out\ 3955}#)
+ (if (null? #{body\ 3949}#)
+ (reverse #{out\ 3955}#)
+ (#{dobody\ 3948}#
+ (cdr #{body\ 3949}#)
+ #{r\ 3950}#
+ #{w\ 3951}#
+ #{m\ 3952}#
+ #{esew\ 3953}#
+ #{mod\ 3954}#
+ (cons (#{chi-top\ 2436}#
+ (car #{body\ 3949}#)
+ #{r\ 3950}#
+ #{w\ 3951}#
+ #{m\ 3952}#
+ #{esew\ 3953}#
+ #{mod\ 3954}#)
+ #{out\ 3955}#))))))
+ (#{dobody\ 3948}#
+ #{body\ 3926}#
+ #{r\ 3927}#
+ #{w\ 3928}#
+ #{m\ 3930}#
+ #{esew\ 3931}#
+ #{mod\ 3932}#
'())))))
- (#{chi-sequence\ 12989}#
- (lambda (#{body\ 14519}#
- #{r\ 14520}#
- #{w\ 14521}#
- #{s\ 14522}#
- #{mod\ 14523}#)
- (#{build-sequence\ 12868}#
- #{s\ 14522}#
- (letrec ((#{dobody\ 14534}#
- (lambda (#{body\ 14535}#
- #{r\ 14536}#
- #{w\ 14537}#
- #{mod\ 14538}#)
- (if (null? #{body\ 14535}#)
+ (#{chi-sequence\ 2426}#
+ (lambda (#{body\ 3956}#
+ #{r\ 3957}#
+ #{w\ 3958}#
+ #{s\ 3959}#
+ #{mod\ 3960}#)
+ (#{build-sequence\ 2305}#
+ #{s\ 3959}#
+ (letrec ((#{dobody\ 3971}#
+ (lambda (#{body\ 3972}#
+ #{r\ 3973}#
+ #{w\ 3974}#
+ #{mod\ 3975}#)
+ (if (null? #{body\ 3972}#)
'()
- (let ((#{first\ 14540}#
- (#{chi\ 13001}#
- (car #{body\ 14535}#)
- #{r\ 14536}#
- #{w\ 14537}#
- #{mod\ 14538}#)))
- (cons #{first\ 14540}#
- (#{dobody\ 14534}#
- (cdr #{body\ 14535}#)
- #{r\ 14536}#
- #{w\ 14537}#
- #{mod\ 14538}#)))))))
- (#{dobody\ 14534}#
- #{body\ 14519}#
- #{r\ 14520}#
- #{w\ 14521}#
- #{mod\ 14523}#)))))
- (#{source-wrap\ 12987}#
- (lambda (#{x\ 14541}#
- #{w\ 14542}#
- #{s\ 14543}#
- #{defmod\ 14544}#)
- (#{wrap\ 12985}#
- (#{decorate-source\ 12834}#
- #{x\ 14541}#
- #{s\ 14543}#)
- #{w\ 14542}#
- #{defmod\ 14544}#)))
- (#{wrap\ 12985}#
- (lambda (#{x\ 14549}# #{w\ 14550}# #{defmod\ 14551}#)
- (if (if (null? (#{wrap-marks\ 12923}# #{w\ 14550}#))
- (null? (#{wrap-subst\ 12925}# #{w\ 14550}#))
+ (let ((#{first\ 3977}#
+ (#{chi\ 2438}#
+ (car #{body\ 3972}#)
+ #{r\ 3973}#
+ #{w\ 3974}#
+ #{mod\ 3975}#)))
+ (cons #{first\ 3977}#
+ (#{dobody\ 3971}#
+ (cdr #{body\ 3972}#)
+ #{r\ 3973}#
+ #{w\ 3974}#
+ #{mod\ 3975}#)))))))
+ (#{dobody\ 3971}#
+ #{body\ 3956}#
+ #{r\ 3957}#
+ #{w\ 3958}#
+ #{mod\ 3960}#)))))
+ (#{source-wrap\ 2424}#
+ (lambda (#{x\ 3978}#
+ #{w\ 3979}#
+ #{s\ 3980}#
+ #{defmod\ 3981}#)
+ (#{wrap\ 2422}#
+ (#{decorate-source\ 2271}#
+ #{x\ 3978}#
+ #{s\ 3980}#)
+ #{w\ 3979}#
+ #{defmod\ 3981}#)))
+ (#{wrap\ 2422}#
+ (lambda (#{x\ 3986}# #{w\ 3987}# #{defmod\ 3988}#)
+ (if (if (null? (#{wrap-marks\ 2360}# #{w\ 3987}#))
+ (null? (#{wrap-subst\ 2362}# #{w\ 3987}#))
#f)
- #{x\ 14549}#
- (if (#{syntax-object?\ 12880}# #{x\ 14549}#)
- (#{make-syntax-object\ 12878}#
- (#{syntax-object-expression\ 12882}#
- #{x\ 14549}#)
- (#{join-wraps\ 12967}#
- #{w\ 14550}#
- (#{syntax-object-wrap\ 12884}# #{x\ 14549}#))
- (#{syntax-object-module\ 12886}# #{x\ 14549}#))
- (if (null? #{x\ 14549}#)
- #{x\ 14549}#
- (#{make-syntax-object\ 12878}#
- #{x\ 14549}#
- #{w\ 14550}#
- #{defmod\ 14551}#))))))
- (#{bound-id-member?\ 12983}#
- (lambda (#{x\ 14564}# #{list\ 14565}#)
- (if (not (null? #{list\ 14565}#))
- (let ((#{t\ 14572}#
- (#{bound-id=?\ 12977}#
- #{x\ 14564}#
- (car #{list\ 14565}#))))
- (if #{t\ 14572}#
- #{t\ 14572}#
- (#{bound-id-member?\ 12983}#
- #{x\ 14564}#
- (cdr #{list\ 14565}#))))
+ #{x\ 3986}#
+ (if (#{syntax-object?\ 2317}# #{x\ 3986}#)
+ (#{make-syntax-object\ 2315}#
+ (#{syntax-object-expression\ 2319}# #{x\ 3986}#)
+ (#{join-wraps\ 2404}#
+ #{w\ 3987}#
+ (#{syntax-object-wrap\ 2321}# #{x\ 3986}#))
+ (#{syntax-object-module\ 2323}# #{x\ 3986}#))
+ (if (null? #{x\ 3986}#)
+ #{x\ 3986}#
+ (#{make-syntax-object\ 2315}#
+ #{x\ 3986}#
+ #{w\ 3987}#
+ #{defmod\ 3988}#))))))
+ (#{bound-id-member?\ 2420}#
+ (lambda (#{x\ 4001}# #{list\ 4002}#)
+ (if (not (null? #{list\ 4002}#))
+ (let ((#{t\ 4009}#
+ (#{bound-id=?\ 2414}#
+ #{x\ 4001}#
+ (car #{list\ 4002}#))))
+ (if #{t\ 4009}#
+ #{t\ 4009}#
+ (#{bound-id-member?\ 2420}#
+ #{x\ 4001}#
+ (cdr #{list\ 4002}#))))
#f)))
- (#{distinct-bound-ids?\ 12981}#
- (lambda (#{ids\ 14574}#)
- (letrec ((#{distinct?\ 14578}#
- (lambda (#{ids\ 14579}#)
- (let ((#{t\ 14582}# (null? #{ids\ 14579}#)))
- (if #{t\ 14582}#
- #{t\ 14582}#
- (if (not (#{bound-id-member?\ 12983}#
- (car #{ids\ 14579}#)
- (cdr #{ids\ 14579}#)))
- (#{distinct?\ 14578}# (cdr #{ids\ 14579}#))
+ (#{distinct-bound-ids?\ 2418}#
+ (lambda (#{ids\ 4011}#)
+ (letrec ((#{distinct?\ 4015}#
+ (lambda (#{ids\ 4016}#)
+ (let ((#{t\ 4019}# (null? #{ids\ 4016}#)))
+ (if #{t\ 4019}#
+ #{t\ 4019}#
+ (if (not (#{bound-id-member?\ 2420}#
+ (car #{ids\ 4016}#)
+ (cdr #{ids\ 4016}#)))
+ (#{distinct?\ 4015}# (cdr #{ids\ 4016}#))
#f))))))
- (#{distinct?\ 14578}# #{ids\ 14574}#))))
- (#{valid-bound-ids?\ 12979}#
- (lambda (#{ids\ 14586}#)
- (if (letrec ((#{all-ids?\ 14591}#
- (lambda (#{ids\ 14592}#)
- (let ((#{t\ 14595}# (null? #{ids\ 14592}#)))
- (if #{t\ 14595}#
- #{t\ 14595}#
- (if (#{id?\ 12916}# (car #{ids\ 14592}#))
- (#{all-ids?\ 14591}#
- (cdr #{ids\ 14592}#))
+ (#{distinct?\ 4015}# #{ids\ 4011}#))))
+ (#{valid-bound-ids?\ 2416}#
+ (lambda (#{ids\ 4023}#)
+ (if (letrec ((#{all-ids?\ 4028}#
+ (lambda (#{ids\ 4029}#)
+ (let ((#{t\ 4032}# (null? #{ids\ 4029}#)))
+ (if #{t\ 4032}#
+ #{t\ 4032}#
+ (if (#{id?\ 2353}# (car #{ids\ 4029}#))
+ (#{all-ids?\ 4028}# (cdr #{ids\ 4029}#))
#f))))))
- (#{all-ids?\ 14591}# #{ids\ 14586}#))
- (#{distinct-bound-ids?\ 12981}# #{ids\ 14586}#)
+ (#{all-ids?\ 4028}# #{ids\ 4023}#))
+ (#{distinct-bound-ids?\ 2418}# #{ids\ 4023}#)
#f)))
- (#{bound-id=?\ 12977}#
- (lambda (#{i\ 14600}# #{j\ 14601}#)
- (if (if (#{syntax-object?\ 12880}# #{i\ 14600}#)
- (#{syntax-object?\ 12880}# #{j\ 14601}#)
+ (#{bound-id=?\ 2414}#
+ (lambda (#{i\ 4037}# #{j\ 4038}#)
+ (if (if (#{syntax-object?\ 2317}# #{i\ 4037}#)
+ (#{syntax-object?\ 2317}# #{j\ 4038}#)
#f)
- (if (eq? (#{syntax-object-expression\ 12882}#
- #{i\ 14600}#)
- (#{syntax-object-expression\ 12882}#
- #{j\ 14601}#))
- (#{same-marks?\ 12971}#
- (#{wrap-marks\ 12923}#
- (#{syntax-object-wrap\ 12884}# #{i\ 14600}#))
- (#{wrap-marks\ 12923}#
- (#{syntax-object-wrap\ 12884}# #{j\ 14601}#)))
+ (if (eq? (#{syntax-object-expression\ 2319}# #{i\ 4037}#)
+ (#{syntax-object-expression\ 2319}# #{j\ 4038}#))
+ (#{same-marks?\ 2408}#
+ (#{wrap-marks\ 2360}#
+ (#{syntax-object-wrap\ 2321}# #{i\ 4037}#))
+ (#{wrap-marks\ 2360}#
+ (#{syntax-object-wrap\ 2321}# #{j\ 4038}#)))
#f)
- (eq? #{i\ 14600}# #{j\ 14601}#))))
- (#{free-id=?\ 12975}#
- (lambda (#{i\ 14608}# #{j\ 14609}#)
- (if (eq? (let ((#{x\ 14615}# #{i\ 14608}#))
- (if (#{syntax-object?\ 12880}# #{x\ 14615}#)
- (#{syntax-object-expression\ 12882}#
- #{x\ 14615}#)
- #{x\ 14615}#))
- (let ((#{x\ 14618}# #{j\ 14609}#))
- (if (#{syntax-object?\ 12880}# #{x\ 14618}#)
- (#{syntax-object-expression\ 12882}#
- #{x\ 14618}#)
- #{x\ 14618}#)))
- (eq? (#{id-var-name\ 12973}#
- #{i\ 14608}#
- '(()))
- (#{id-var-name\ 12973}#
- #{j\ 14609}#
- '(())))
+ (eq? #{i\ 4037}# #{j\ 4038}#))))
+ (#{free-id=?\ 2412}#
+ (lambda (#{i\ 4045}# #{j\ 4046}#)
+ (if (eq? (let ((#{x\ 4052}# #{i\ 4045}#))
+ (if (#{syntax-object?\ 2317}# #{x\ 4052}#)
+ (#{syntax-object-expression\ 2319}# #{x\ 4052}#)
+ #{x\ 4052}#))
+ (let ((#{x\ 4055}# #{j\ 4046}#))
+ (if (#{syntax-object?\ 2317}# #{x\ 4055}#)
+ (#{syntax-object-expression\ 2319}# #{x\ 4055}#)
+ #{x\ 4055}#)))
+ (eq? (#{id-var-name\ 2410}# #{i\ 4045}# (quote (())))
+ (#{id-var-name\ 2410}# #{j\ 4046}# (quote (()))))
#f)))
- (#{id-var-name\ 12973}#
- (lambda (#{id\ 14622}# #{w\ 14623}#)
- (letrec ((#{search-vector-rib\ 14632}#
- (lambda (#{sym\ 14644}#
- #{subst\ 14645}#
- #{marks\ 14646}#
- #{symnames\ 14647}#
- #{ribcage\ 14648}#)
- (let ((#{n\ 14655}#
- (vector-length #{symnames\ 14647}#)))
- (letrec ((#{f\ 14658}#
- (lambda (#{i\ 14659}#)
- (if (#{fx=\ 12821}#
- #{i\ 14659}#
- #{n\ 14655}#)
- (#{search\ 14628}#
- #{sym\ 14644}#
- (cdr #{subst\ 14645}#)
- #{marks\ 14646}#)
+ (#{id-var-name\ 2410}#
+ (lambda (#{id\ 4059}# #{w\ 4060}#)
+ (letrec ((#{search-vector-rib\ 4069}#
+ (lambda (#{sym\ 4081}#
+ #{subst\ 4082}#
+ #{marks\ 4083}#
+ #{symnames\ 4084}#
+ #{ribcage\ 4085}#)
+ (let ((#{n\ 4092}#
+ (vector-length #{symnames\ 4084}#)))
+ (letrec ((#{f\ 4095}#
+ (lambda (#{i\ 4096}#)
+ (if (#{fx=\ 2258}#
+ #{i\ 4096}#
+ #{n\ 4092}#)
+ (#{search\ 4065}#
+ #{sym\ 4081}#
+ (cdr #{subst\ 4082}#)
+ #{marks\ 4083}#)
(if (if (eq? (vector-ref
- #{symnames\ 14647}#
- #{i\ 14659}#)
- #{sym\ 14644}#)
- (#{same-marks?\ 12971}#
- #{marks\ 14646}#
+ #{symnames\ 4084}#
+ #{i\ 4096}#)
+ #{sym\ 4081}#)
+ (#{same-marks?\ 2408}#
+ #{marks\ 4083}#
(vector-ref
- (#{ribcage-marks\ 12943}#
- #{ribcage\ 14648}#)
- #{i\ 14659}#))
+ (#{ribcage-marks\ 2380}#
+ #{ribcage\ 4085}#)
+ #{i\ 4096}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 12945}#
- #{ribcage\ 14648}#)
- #{i\ 14659}#)
- #{marks\ 14646}#)
- (#{f\ 14658}#
- (#{fx+\ 12817}#
- #{i\ 14659}#
+ (#{ribcage-labels\ 2382}#
+ #{ribcage\ 4085}#)
+ #{i\ 4096}#)
+ #{marks\ 4083}#)
+ (#{f\ 4095}#
+ (#{fx+\ 2254}#
+ #{i\ 4096}#
1)))))))
- (#{f\ 14658}# 0)))))
- (#{search-list-rib\ 14630}#
- (lambda (#{sym\ 14667}#
- #{subst\ 14668}#
- #{marks\ 14669}#
- #{symnames\ 14670}#
- #{ribcage\ 14671}#)
- (letrec ((#{f\ 14680}#
- (lambda (#{symnames\ 14681}#
- #{i\ 14682}#)
- (if (null? #{symnames\ 14681}#)
- (#{search\ 14628}#
- #{sym\ 14667}#
- (cdr #{subst\ 14668}#)
- #{marks\ 14669}#)
- (if (if (eq? (car #{symnames\ 14681}#)
- #{sym\ 14667}#)
- (#{same-marks?\ 12971}#
- #{marks\ 14669}#
+ (#{f\ 4095}# 0)))))
+ (#{search-list-rib\ 4067}#
+ (lambda (#{sym\ 4104}#
+ #{subst\ 4105}#
+ #{marks\ 4106}#
+ #{symnames\ 4107}#
+ #{ribcage\ 4108}#)
+ (letrec ((#{f\ 4117}#
+ (lambda (#{symnames\ 4118}# #{i\ 4119}#)
+ (if (null? #{symnames\ 4118}#)
+ (#{search\ 4065}#
+ #{sym\ 4104}#
+ (cdr #{subst\ 4105}#)
+ #{marks\ 4106}#)
+ (if (if (eq? (car #{symnames\ 4118}#)
+ #{sym\ 4104}#)
+ (#{same-marks?\ 2408}#
+ #{marks\ 4106}#
(list-ref
- (#{ribcage-marks\ 12943}#
- #{ribcage\ 14671}#)
- #{i\ 14682}#))
+ (#{ribcage-marks\ 2380}#
+ #{ribcage\ 4108}#)
+ #{i\ 4119}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 12945}#
- #{ribcage\ 14671}#)
- #{i\ 14682}#)
- #{marks\ 14669}#)
- (#{f\ 14680}#
- (cdr #{symnames\ 14681}#)
- (#{fx+\ 12817}#
- #{i\ 14682}#
+ (#{ribcage-labels\ 2382}#
+ #{ribcage\ 4108}#)
+ #{i\ 4119}#)
+ #{marks\ 4106}#)
+ (#{f\ 4117}#
+ (cdr #{symnames\ 4118}#)
+ (#{fx+\ 2254}#
+ #{i\ 4119}#
1)))))))
- (#{f\ 14680}# #{symnames\ 14670}# 0))))
- (#{search\ 14628}#
- (lambda (#{sym\ 14690}#
- #{subst\ 14691}#
- #{marks\ 14692}#)
- (if (null? #{subst\ 14691}#)
- (values #f #{marks\ 14692}#)
- (let ((#{fst\ 14697}# (car #{subst\ 14691}#)))
- (if (eq? #{fst\ 14697}# (quote shift))
- (#{search\ 14628}#
- #{sym\ 14690}#
- (cdr #{subst\ 14691}#)
- (cdr #{marks\ 14692}#))
- (let ((#{symnames\ 14699}#
- (#{ribcage-symnames\ 12941}#
- #{fst\ 14697}#)))
- (if (vector? #{symnames\ 14699}#)
- (#{search-vector-rib\ 14632}#
- #{sym\ 14690}#
- #{subst\ 14691}#
- #{marks\ 14692}#
- #{symnames\ 14699}#
- #{fst\ 14697}#)
- (#{search-list-rib\ 14630}#
- #{sym\ 14690}#
- #{subst\ 14691}#
- #{marks\ 14692}#
- #{symnames\ 14699}#
- #{fst\ 14697}#)))))))))
- (if (symbol? #{id\ 14622}#)
- (let ((#{t\ 14702}#
+ (#{f\ 4117}# #{symnames\ 4107}# 0))))
+ (#{search\ 4065}#
+ (lambda (#{sym\ 4127}#
+ #{subst\ 4128}#
+ #{marks\ 4129}#)
+ (if (null? #{subst\ 4128}#)
+ (values #f #{marks\ 4129}#)
+ (let ((#{fst\ 4134}# (car #{subst\ 4128}#)))
+ (if (eq? #{fst\ 4134}# (quote shift))
+ (#{search\ 4065}#
+ #{sym\ 4127}#
+ (cdr #{subst\ 4128}#)
+ (cdr #{marks\ 4129}#))
+ (let ((#{symnames\ 4136}#
+ (#{ribcage-symnames\ 2378}#
+ #{fst\ 4134}#)))
+ (if (vector? #{symnames\ 4136}#)
+ (#{search-vector-rib\ 4069}#
+ #{sym\ 4127}#
+ #{subst\ 4128}#
+ #{marks\ 4129}#
+ #{symnames\ 4136}#
+ #{fst\ 4134}#)
+ (#{search-list-rib\ 4067}#
+ #{sym\ 4127}#
+ #{subst\ 4128}#
+ #{marks\ 4129}#
+ #{symnames\ 4136}#
+ #{fst\ 4134}#)))))))))
+ (if (symbol? #{id\ 4059}#)
+ (let ((#{t\ 4139}#
(call-with-values
(lambda ()
- (#{search\ 14628}#
- #{id\ 14622}#
- (#{wrap-subst\ 12925}# #{w\ 14623}#)
- (#{wrap-marks\ 12923}# #{w\ 14623}#)))
- (lambda (#{x\ 14704}# . #{ignore\ 14705}#)
- #{x\ 14704}#))))
- (if #{t\ 14702}# #{t\ 14702}# #{id\ 14622}#))
- (if (#{syntax-object?\ 12880}# #{id\ 14622}#)
- (let ((#{id\ 14713}#
- (#{syntax-object-expression\ 12882}#
- #{id\ 14622}#))
- (#{w1\ 14714}#
- (#{syntax-object-wrap\ 12884}# #{id\ 14622}#)))
- (let ((#{marks\ 14716}#
- (#{join-marks\ 12969}#
- (#{wrap-marks\ 12923}# #{w\ 14623}#)
- (#{wrap-marks\ 12923}# #{w1\ 14714}#))))
+ (#{search\ 4065}#
+ #{id\ 4059}#
+ (#{wrap-subst\ 2362}# #{w\ 4060}#)
+ (#{wrap-marks\ 2360}# #{w\ 4060}#)))
+ (lambda (#{x\ 4141}# . #{ignore\ 4142}#)
+ #{x\ 4141}#))))
+ (if #{t\ 4139}# #{t\ 4139}# #{id\ 4059}#))
+ (if (#{syntax-object?\ 2317}# #{id\ 4059}#)
+ (let ((#{id\ 4150}#
+ (#{syntax-object-expression\ 2319}# #{id\ 4059}#))
+ (#{w1\ 4151}#
+ (#{syntax-object-wrap\ 2321}# #{id\ 4059}#)))
+ (let ((#{marks\ 4153}#
+ (#{join-marks\ 2406}#
+ (#{wrap-marks\ 2360}# #{w\ 4060}#)
+ (#{wrap-marks\ 2360}# #{w1\ 4151}#))))
(call-with-values
(lambda ()
- (#{search\ 14628}#
- #{id\ 14713}#
- (#{wrap-subst\ 12925}# #{w\ 14623}#)
- #{marks\ 14716}#))
- (lambda (#{new-id\ 14717}# #{marks\ 14718}#)
- (let ((#{t\ 14723}# #{new-id\ 14717}#))
- (if #{t\ 14723}#
- #{t\ 14723}#
- (let ((#{t\ 14726}#
+ (#{search\ 4065}#
+ #{id\ 4150}#
+ (#{wrap-subst\ 2362}# #{w\ 4060}#)
+ #{marks\ 4153}#))
+ (lambda (#{new-id\ 4154}# #{marks\ 4155}#)
+ (let ((#{t\ 4160}# #{new-id\ 4154}#))
+ (if #{t\ 4160}#
+ #{t\ 4160}#
+ (let ((#{t\ 4163}#
(call-with-values
(lambda ()
- (#{search\ 14628}#
- #{id\ 14713}#
- (#{wrap-subst\ 12925}#
- #{w1\ 14714}#)
- #{marks\ 14718}#))
- (lambda (#{x\ 14728}#
+ (#{search\ 4065}#
+ #{id\ 4150}#
+ (#{wrap-subst\ 2362}#
+ #{w1\ 4151}#)
+ #{marks\ 4155}#))
+ (lambda (#{x\ 4165}#
.
- #{ignore\ 14729}#)
- #{x\ 14728}#))))
- (if #{t\ 14726}#
- #{t\ 14726}#
- #{id\ 14713}#))))))))
+ #{ignore\ 4166}#)
+ #{x\ 4165}#))))
+ (if #{t\ 4163}#
+ #{t\ 4163}#
+ #{id\ 4150}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 14622}#))))))
- (#{same-marks?\ 12971}#
- (lambda (#{x\ 14734}# #{y\ 14735}#)
- (let ((#{t\ 14740}# (eq? #{x\ 14734}# #{y\ 14735}#)))
- (if #{t\ 14740}#
- #{t\ 14740}#
- (if (not (null? #{x\ 14734}#))
- (if (not (null? #{y\ 14735}#))
- (if (eq? (car #{x\ 14734}#) (car #{y\ 14735}#))
- (#{same-marks?\ 12971}#
- (cdr #{x\ 14734}#)
- (cdr #{y\ 14735}#))
+ #{id\ 4059}#))))))
+ (#{same-marks?\ 2408}#
+ (lambda (#{x\ 4171}# #{y\ 4172}#)
+ (let ((#{t\ 4177}# (eq? #{x\ 4171}# #{y\ 4172}#)))
+ (if #{t\ 4177}#
+ #{t\ 4177}#
+ (if (not (null? #{x\ 4171}#))
+ (if (not (null? #{y\ 4172}#))
+ (if (eq? (car #{x\ 4171}#) (car #{y\ 4172}#))
+ (#{same-marks?\ 2408}#
+ (cdr #{x\ 4171}#)
+ (cdr #{y\ 4172}#))
#f)
#f)
#f)))))
- (#{join-marks\ 12969}#
- (lambda (#{m1\ 14746}# #{m2\ 14747}#)
- (#{smart-append\ 12965}#
- #{m1\ 14746}#
- #{m2\ 14747}#)))
- (#{join-wraps\ 12967}#
- (lambda (#{w1\ 14750}# #{w2\ 14751}#)
- (let ((#{m1\ 14756}#
- (#{wrap-marks\ 12923}# #{w1\ 14750}#))
- (#{s1\ 14757}#
- (#{wrap-subst\ 12925}# #{w1\ 14750}#)))
- (if (null? #{m1\ 14756}#)
- (if (null? #{s1\ 14757}#)
- #{w2\ 14751}#
- (#{make-wrap\ 12921}#
- (#{wrap-marks\ 12923}# #{w2\ 14751}#)
- (#{smart-append\ 12965}#
- #{s1\ 14757}#
- (#{wrap-subst\ 12925}# #{w2\ 14751}#))))
- (#{make-wrap\ 12921}#
- (#{smart-append\ 12965}#
- #{m1\ 14756}#
- (#{wrap-marks\ 12923}# #{w2\ 14751}#))
- (#{smart-append\ 12965}#
- #{s1\ 14757}#
- (#{wrap-subst\ 12925}# #{w2\ 14751}#)))))))
- (#{smart-append\ 12965}#
- (lambda (#{m1\ 14758}# #{m2\ 14759}#)
- (if (null? #{m2\ 14759}#)
- #{m1\ 14758}#
- (append #{m1\ 14758}# #{m2\ 14759}#))))
- (#{make-binding-wrap\ 12963}#
- (lambda (#{ids\ 14762}# #{labels\ 14763}# #{w\ 14764}#)
- (if (null? #{ids\ 14762}#)
- #{w\ 14764}#
- (#{make-wrap\ 12921}#
- (#{wrap-marks\ 12923}# #{w\ 14764}#)
- (cons (let ((#{labelvec\ 14769}#
- (list->vector #{labels\ 14763}#)))
- (let ((#{n\ 14771}#
- (vector-length #{labelvec\ 14769}#)))
- (let ((#{symnamevec\ 14774}#
- (make-vector #{n\ 14771}#))
- (#{marksvec\ 14775}#
- (make-vector #{n\ 14771}#)))
+ (#{join-marks\ 2406}#
+ (lambda (#{m1\ 4183}# #{m2\ 4184}#)
+ (#{smart-append\ 2402}#
+ #{m1\ 4183}#
+ #{m2\ 4184}#)))
+ (#{join-wraps\ 2404}#
+ (lambda (#{w1\ 4187}# #{w2\ 4188}#)
+ (let ((#{m1\ 4193}#
+ (#{wrap-marks\ 2360}# #{w1\ 4187}#))
+ (#{s1\ 4194}#
+ (#{wrap-subst\ 2362}# #{w1\ 4187}#)))
+ (if (null? #{m1\ 4193}#)
+ (if (null? #{s1\ 4194}#)
+ #{w2\ 4188}#
+ (#{make-wrap\ 2358}#
+ (#{wrap-marks\ 2360}# #{w2\ 4188}#)
+ (#{smart-append\ 2402}#
+ #{s1\ 4194}#
+ (#{wrap-subst\ 2362}# #{w2\ 4188}#))))
+ (#{make-wrap\ 2358}#
+ (#{smart-append\ 2402}#
+ #{m1\ 4193}#
+ (#{wrap-marks\ 2360}# #{w2\ 4188}#))
+ (#{smart-append\ 2402}#
+ #{s1\ 4194}#
+ (#{wrap-subst\ 2362}# #{w2\ 4188}#)))))))
+ (#{smart-append\ 2402}#
+ (lambda (#{m1\ 4195}# #{m2\ 4196}#)
+ (if (null? #{m2\ 4196}#)
+ #{m1\ 4195}#
+ (append #{m1\ 4195}# #{m2\ 4196}#))))
+ (#{make-binding-wrap\ 2400}#
+ (lambda (#{ids\ 4199}# #{labels\ 4200}# #{w\ 4201}#)
+ (if (null? #{ids\ 4199}#)
+ #{w\ 4201}#
+ (#{make-wrap\ 2358}#
+ (#{wrap-marks\ 2360}# #{w\ 4201}#)
+ (cons (let ((#{labelvec\ 4206}#
+ (list->vector #{labels\ 4200}#)))
+ (let ((#{n\ 4208}#
+ (vector-length #{labelvec\ 4206}#)))
+ (let ((#{symnamevec\ 4211}#
+ (make-vector #{n\ 4208}#))
+ (#{marksvec\ 4212}#
+ (make-vector #{n\ 4208}#)))
(begin
- (letrec ((#{f\ 14779}#
- (lambda (#{ids\ 14780}#
- #{i\ 14781}#)
- (if (not (null? #{ids\ 14780}#))
+ (letrec ((#{f\ 4216}#
+ (lambda (#{ids\ 4217}# #{i\ 4218}#)
+ (if (not (null? #{ids\ 4217}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 12919}#
- (car #{ids\ 14780}#)
- #{w\ 14764}#))
- (lambda (#{symname\ 14782}#
- #{marks\ 14783}#)
+ (#{id-sym-name&marks\ 2356}#
+ (car #{ids\ 4217}#)
+ #{w\ 4201}#))
+ (lambda (#{symname\ 4219}#
+ #{marks\ 4220}#)
(begin
(vector-set!
- #{symnamevec\ 14774}#
- #{i\ 14781}#
- #{symname\ 14782}#)
+ #{symnamevec\ 4211}#
+ #{i\ 4218}#
+ #{symname\ 4219}#)
(vector-set!
- #{marksvec\ 14775}#
- #{i\ 14781}#
- #{marks\ 14783}#)
- (#{f\ 14779}#
- (cdr #{ids\ 14780}#)
- (#{fx+\ 12817}#
- #{i\ 14781}#
+ #{marksvec\ 4212}#
+ #{i\ 4218}#
+ #{marks\ 4220}#)
+ (#{f\ 4216}#
+ (cdr #{ids\ 4217}#)
+ (#{fx+\ 2254}#
+ #{i\ 4218}#
1)))))))))
- (#{f\ 14779}# #{ids\ 14762}# 0))
- (#{make-ribcage\ 12937}#
- #{symnamevec\ 14774}#
- #{marksvec\ 14775}#
- #{labelvec\ 14769}#)))))
- (#{wrap-subst\ 12925}# #{w\ 14764}#))))))
- (#{extend-ribcage!\ 12961}#
- (lambda (#{ribcage\ 14786}#
- #{id\ 14787}#
- #{label\ 14788}#)
+ (#{f\ 4216}# #{ids\ 4199}# 0))
+ (#{make-ribcage\ 2374}#
+ #{symnamevec\ 4211}#
+ #{marksvec\ 4212}#
+ #{labelvec\ 4206}#)))))
+ (#{wrap-subst\ 2362}# #{w\ 4201}#))))))
+ (#{extend-ribcage!\ 2398}#
+ (lambda (#{ribcage\ 4223}# #{id\ 4224}# #{label\ 4225}#)
(begin
- (#{set-ribcage-symnames!\ 12947}#
- #{ribcage\ 14786}#
- (cons (#{syntax-object-expression\ 12882}#
- #{id\ 14787}#)
- (#{ribcage-symnames\ 12941}# #{ribcage\ 14786}#)))
- (#{set-ribcage-marks!\ 12949}#
- #{ribcage\ 14786}#
- (cons (#{wrap-marks\ 12923}#
- (#{syntax-object-wrap\ 12884}# #{id\ 14787}#))
- (#{ribcage-marks\ 12943}# #{ribcage\ 14786}#)))
- (#{set-ribcage-labels!\ 12951}#
- #{ribcage\ 14786}#
- (cons #{label\ 14788}#
- (#{ribcage-labels\ 12945}# #{ribcage\ 14786}#))))))
- (#{anti-mark\ 12957}#
- (lambda (#{w\ 14792}#)
- (#{make-wrap\ 12921}#
- (cons #f (#{wrap-marks\ 12923}# #{w\ 14792}#))
+ (#{set-ribcage-symnames!\ 2384}#
+ #{ribcage\ 4223}#
+ (cons (#{syntax-object-expression\ 2319}# #{id\ 4224}#)
+ (#{ribcage-symnames\ 2378}# #{ribcage\ 4223}#)))
+ (#{set-ribcage-marks!\ 2386}#
+ #{ribcage\ 4223}#
+ (cons (#{wrap-marks\ 2360}#
+ (#{syntax-object-wrap\ 2321}# #{id\ 4224}#))
+ (#{ribcage-marks\ 2380}# #{ribcage\ 4223}#)))
+ (#{set-ribcage-labels!\ 2388}#
+ #{ribcage\ 4223}#
+ (cons #{label\ 4225}#
+ (#{ribcage-labels\ 2382}# #{ribcage\ 4223}#))))))
+ (#{anti-mark\ 2394}#
+ (lambda (#{w\ 4229}#)
+ (#{make-wrap\ 2358}#
+ (cons #f (#{wrap-marks\ 2360}# #{w\ 4229}#))
(cons 'shift
- (#{wrap-subst\ 12925}# #{w\ 14792}#)))))
- (#{set-ribcage-labels!\ 12951}#
- (lambda (#{x\ 14795}# #{update\ 14796}#)
- (vector-set! #{x\ 14795}# 3 #{update\ 14796}#)))
- (#{set-ribcage-marks!\ 12949}#
- (lambda (#{x\ 14799}# #{update\ 14800}#)
- (vector-set! #{x\ 14799}# 2 #{update\ 14800}#)))
- (#{set-ribcage-symnames!\ 12947}#
- (lambda (#{x\ 14803}# #{update\ 14804}#)
- (vector-set! #{x\ 14803}# 1 #{update\ 14804}#)))
- (#{ribcage-labels\ 12945}#
- (lambda (#{x\ 14807}#)
- (vector-ref #{x\ 14807}# 3)))
- (#{ribcage-marks\ 12943}#
- (lambda (#{x\ 14809}#)
- (vector-ref #{x\ 14809}# 2)))
- (#{ribcage-symnames\ 12941}#
- (lambda (#{x\ 14811}#)
- (vector-ref #{x\ 14811}# 1)))
- (#{ribcage?\ 12939}#
- (lambda (#{x\ 14813}#)
- (if (vector? #{x\ 14813}#)
- (if (= (vector-length #{x\ 14813}#) 4)
- (eq? (vector-ref #{x\ 14813}# 0) (quote ribcage))
+ (#{wrap-subst\ 2362}# #{w\ 4229}#)))))
+ (#{set-ribcage-labels!\ 2388}#
+ (lambda (#{x\ 4232}# #{update\ 4233}#)
+ (vector-set! #{x\ 4232}# 3 #{update\ 4233}#)))
+ (#{set-ribcage-marks!\ 2386}#
+ (lambda (#{x\ 4236}# #{update\ 4237}#)
+ (vector-set! #{x\ 4236}# 2 #{update\ 4237}#)))
+ (#{set-ribcage-symnames!\ 2384}#
+ (lambda (#{x\ 4240}# #{update\ 4241}#)
+ (vector-set! #{x\ 4240}# 1 #{update\ 4241}#)))
+ (#{ribcage-labels\ 2382}#
+ (lambda (#{x\ 4244}#) (vector-ref #{x\ 4244}# 3)))
+ (#{ribcage-marks\ 2380}#
+ (lambda (#{x\ 4246}#) (vector-ref #{x\ 4246}# 2)))
+ (#{ribcage-symnames\ 2378}#
+ (lambda (#{x\ 4248}#) (vector-ref #{x\ 4248}# 1)))
+ (#{ribcage?\ 2376}#
+ (lambda (#{x\ 4250}#)
+ (if (vector? #{x\ 4250}#)
+ (if (= (vector-length #{x\ 4250}#) 4)
+ (eq? (vector-ref #{x\ 4250}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 12937}#
- (lambda (#{symnames\ 14818}#
- #{marks\ 14819}#
- #{labels\ 14820}#)
+ (#{make-ribcage\ 2374}#
+ (lambda (#{symnames\ 4255}#
+ #{marks\ 4256}#
+ #{labels\ 4257}#)
(vector
'ribcage
- #{symnames\ 14818}#
- #{marks\ 14819}#
- #{labels\ 14820}#)))
- (#{gen-labels\ 12934}#
- (lambda (#{ls\ 14824}#)
- (if (null? #{ls\ 14824}#)
+ #{symnames\ 4255}#
+ #{marks\ 4256}#
+ #{labels\ 4257}#)))
+ (#{gen-labels\ 2371}#
+ (lambda (#{ls\ 4261}#)
+ (if (null? #{ls\ 4261}#)
'()
- (cons (#{gen-label\ 12932}#)
- (#{gen-labels\ 12934}# (cdr #{ls\ 14824}#))))))
- (#{gen-label\ 12932}#
+ (cons (#{gen-label\ 2369}#)
+ (#{gen-labels\ 2371}# (cdr #{ls\ 4261}#))))))
+ (#{gen-label\ 2369}#
(lambda () (symbol->string (gensym "i"))))
- (#{wrap-subst\ 12925}# cdr)
- (#{wrap-marks\ 12923}# car)
- (#{make-wrap\ 12921}# cons)
- (#{id-sym-name&marks\ 12919}#
- (lambda (#{x\ 14826}# #{w\ 14827}#)
- (if (#{syntax-object?\ 12880}# #{x\ 14826}#)
+ (#{wrap-subst\ 2362}# cdr)
+ (#{wrap-marks\ 2360}# car)
+ (#{make-wrap\ 2358}# cons)
+ (#{id-sym-name&marks\ 2356}#
+ (lambda (#{x\ 4263}# #{w\ 4264}#)
+ (if (#{syntax-object?\ 2317}# #{x\ 4263}#)
(values
- (#{syntax-object-expression\ 12882}#
- #{x\ 14826}#)
- (#{join-marks\ 12969}#
- (#{wrap-marks\ 12923}# #{w\ 14827}#)
- (#{wrap-marks\ 12923}#
- (#{syntax-object-wrap\ 12884}# #{x\ 14826}#))))
+ (#{syntax-object-expression\ 2319}# #{x\ 4263}#)
+ (#{join-marks\ 2406}#
+ (#{wrap-marks\ 2360}# #{w\ 4264}#)
+ (#{wrap-marks\ 2360}#
+ (#{syntax-object-wrap\ 2321}# #{x\ 4263}#))))
(values
- #{x\ 14826}#
- (#{wrap-marks\ 12923}# #{w\ 14827}#)))))
- (#{id?\ 12916}#
- (lambda (#{x\ 14830}#)
- (if (symbol? #{x\ 14830}#)
+ #{x\ 4263}#
+ (#{wrap-marks\ 2360}# #{w\ 4264}#)))))
+ (#{id?\ 2353}#
+ (lambda (#{x\ 4267}#)
+ (if (symbol? #{x\ 4267}#)
#t
- (if (#{syntax-object?\ 12880}# #{x\ 14830}#)
+ (if (#{syntax-object?\ 2317}# #{x\ 4267}#)
(symbol?
- (#{syntax-object-expression\ 12882}#
- #{x\ 14830}#))
+ (#{syntax-object-expression\ 2319}# #{x\ 4267}#))
#f))))
- (#{nonsymbol-id?\ 12914}#
- (lambda (#{x\ 14837}#)
- (if (#{syntax-object?\ 12880}# #{x\ 14837}#)
+ (#{nonsymbol-id?\ 2351}#
+ (lambda (#{x\ 4274}#)
+ (if (#{syntax-object?\ 2317}# #{x\ 4274}#)
(symbol?
- (#{syntax-object-expression\ 12882}#
- #{x\ 14837}#))
+ (#{syntax-object-expression\ 2319}# #{x\ 4274}#))
#f)))
- (#{global-extend\ 12912}#
- (lambda (#{type\ 14841}# #{sym\ 14842}# #{val\ 14843}#)
- (#{put-global-definition-hook\ 12830}#
- #{sym\ 14842}#
- #{type\ 14841}#
- #{val\ 14843}#)))
- (#{lookup\ 12910}#
- (lambda (#{x\ 14847}# #{r\ 14848}# #{mod\ 14849}#)
- (let ((#{t\ 14855}# (assq #{x\ 14847}# #{r\ 14848}#)))
- (if #{t\ 14855}#
- (cdr #{t\ 14855}#)
- (if (symbol? #{x\ 14847}#)
- (let ((#{t\ 14861}#
- (#{get-global-definition-hook\ 12832}#
- #{x\ 14847}#
- #{mod\ 14849}#)))
- (if #{t\ 14861}# #{t\ 14861}# (quote (global))))
+ (#{global-extend\ 2349}#
+ (lambda (#{type\ 4278}# #{sym\ 4279}# #{val\ 4280}#)
+ (#{put-global-definition-hook\ 2267}#
+ #{sym\ 4279}#
+ #{type\ 4278}#
+ #{val\ 4280}#)))
+ (#{lookup\ 2347}#
+ (lambda (#{x\ 4284}# #{r\ 4285}# #{mod\ 4286}#)
+ (let ((#{t\ 4292}# (assq #{x\ 4284}# #{r\ 4285}#)))
+ (if #{t\ 4292}#
+ (cdr #{t\ 4292}#)
+ (if (symbol? #{x\ 4284}#)
+ (let ((#{t\ 4298}#
+ (#{get-global-definition-hook\ 2269}#
+ #{x\ 4284}#
+ #{mod\ 4286}#)))
+ (if #{t\ 4298}# #{t\ 4298}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 12908}#
- (lambda (#{r\ 14866}#)
- (if (null? #{r\ 14866}#)
+ (#{macros-only-env\ 2345}#
+ (lambda (#{r\ 4303}#)
+ (if (null? #{r\ 4303}#)
'()
- (let ((#{a\ 14869}# (car #{r\ 14866}#)))
- (if (eq? (cadr #{a\ 14869}#) (quote macro))
- (cons #{a\ 14869}#
- (#{macros-only-env\ 12908}# (cdr #{r\ 14866}#)))
- (#{macros-only-env\ 12908}# (cdr #{r\ 14866}#)))))))
- (#{extend-var-env\ 12906}#
- (lambda (#{labels\ 14870}# #{vars\ 14871}# #{r\ 14872}#)
- (if (null? #{labels\ 14870}#)
- #{r\ 14872}#
- (#{extend-var-env\ 12906}#
- (cdr #{labels\ 14870}#)
- (cdr #{vars\ 14871}#)
- (cons (cons (car #{labels\ 14870}#)
- (cons (quote lexical) (car #{vars\ 14871}#)))
- #{r\ 14872}#)))))
- (#{extend-env\ 12904}#
- (lambda (#{labels\ 14877}#
- #{bindings\ 14878}#
- #{r\ 14879}#)
- (if (null? #{labels\ 14877}#)
- #{r\ 14879}#
- (#{extend-env\ 12904}#
- (cdr #{labels\ 14877}#)
- (cdr #{bindings\ 14878}#)
- (cons (cons (car #{labels\ 14877}#)
- (car #{bindings\ 14878}#))
- #{r\ 14879}#)))))
- (#{binding-value\ 12901}# cdr)
- (#{binding-type\ 12899}# car)
- (#{source-annotation\ 12895}#
- (lambda (#{x\ 14883}#)
- (if (#{syntax-object?\ 12880}# #{x\ 14883}#)
- (#{source-annotation\ 12895}#
- (#{syntax-object-expression\ 12882}#
- #{x\ 14883}#))
- (if (pair? #{x\ 14883}#)
- (let ((#{props\ 14890}#
- (source-properties #{x\ 14883}#)))
- (if (pair? #{props\ 14890}#) #{props\ 14890}# #f))
+ (let ((#{a\ 4306}# (car #{r\ 4303}#)))
+ (if (eq? (cadr #{a\ 4306}#) (quote macro))
+ (cons #{a\ 4306}#
+ (#{macros-only-env\ 2345}# (cdr #{r\ 4303}#)))
+ (#{macros-only-env\ 2345}# (cdr #{r\ 4303}#)))))))
+ (#{extend-var-env\ 2343}#
+ (lambda (#{labels\ 4307}# #{vars\ 4308}# #{r\ 4309}#)
+ (if (null? #{labels\ 4307}#)
+ #{r\ 4309}#
+ (#{extend-var-env\ 2343}#
+ (cdr #{labels\ 4307}#)
+ (cdr #{vars\ 4308}#)
+ (cons (cons (car #{labels\ 4307}#)
+ (cons (quote lexical) (car #{vars\ 4308}#)))
+ #{r\ 4309}#)))))
+ (#{extend-env\ 2341}#
+ (lambda (#{labels\ 4314}# #{bindings\ 4315}# #{r\ 4316}#)
+ (if (null? #{labels\ 4314}#)
+ #{r\ 4316}#
+ (#{extend-env\ 2341}#
+ (cdr #{labels\ 4314}#)
+ (cdr #{bindings\ 4315}#)
+ (cons (cons (car #{labels\ 4314}#)
+ (car #{bindings\ 4315}#))
+ #{r\ 4316}#)))))
+ (#{binding-value\ 2338}# cdr)
+ (#{binding-type\ 2336}# car)
+ (#{source-annotation\ 2332}#
+ (lambda (#{x\ 4320}#)
+ (if (#{syntax-object?\ 2317}# #{x\ 4320}#)
+ (#{source-annotation\ 2332}#
+ (#{syntax-object-expression\ 2319}# #{x\ 4320}#))
+ (if (pair? #{x\ 4320}#)
+ (let ((#{props\ 4327}# (source-properties #{x\ 4320}#)))
+ (if (pair? #{props\ 4327}#) #{props\ 4327}# #f))
#f))))
- (#{set-syntax-object-module!\ 12892}#
- (lambda (#{x\ 14892}# #{update\ 14893}#)
- (vector-set! #{x\ 14892}# 3 #{update\ 14893}#)))
- (#{set-syntax-object-wrap!\ 12890}#
- (lambda (#{x\ 14896}# #{update\ 14897}#)
- (vector-set! #{x\ 14896}# 2 #{update\ 14897}#)))
- (#{set-syntax-object-expression!\ 12888}#
- (lambda (#{x\ 14900}# #{update\ 14901}#)
- (vector-set! #{x\ 14900}# 1 #{update\ 14901}#)))
- (#{syntax-object-module\ 12886}#
- (lambda (#{x\ 14904}#)
- (vector-ref #{x\ 14904}# 3)))
- (#{syntax-object-wrap\ 12884}#
- (lambda (#{x\ 14906}#)
- (vector-ref #{x\ 14906}# 2)))
- (#{syntax-object-expression\ 12882}#
- (lambda (#{x\ 14908}#)
- (vector-ref #{x\ 14908}# 1)))
- (#{syntax-object?\ 12880}#
- (lambda (#{x\ 14910}#)
- (if (vector? #{x\ 14910}#)
- (if (= (vector-length #{x\ 14910}#) 4)
- (eq? (vector-ref #{x\ 14910}# 0)
+ (#{set-syntax-object-module!\ 2329}#
+ (lambda (#{x\ 4329}# #{update\ 4330}#)
+ (vector-set! #{x\ 4329}# 3 #{update\ 4330}#)))
+ (#{set-syntax-object-wrap!\ 2327}#
+ (lambda (#{x\ 4333}# #{update\ 4334}#)
+ (vector-set! #{x\ 4333}# 2 #{update\ 4334}#)))
+ (#{set-syntax-object-expression!\ 2325}#
+ (lambda (#{x\ 4337}# #{update\ 4338}#)
+ (vector-set! #{x\ 4337}# 1 #{update\ 4338}#)))
+ (#{syntax-object-module\ 2323}#
+ (lambda (#{x\ 4341}#) (vector-ref #{x\ 4341}# 3)))
+ (#{syntax-object-wrap\ 2321}#
+ (lambda (#{x\ 4343}#) (vector-ref #{x\ 4343}# 2)))
+ (#{syntax-object-expression\ 2319}#
+ (lambda (#{x\ 4345}#) (vector-ref #{x\ 4345}# 1)))
+ (#{syntax-object?\ 2317}#
+ (lambda (#{x\ 4347}#)
+ (if (vector? #{x\ 4347}#)
+ (if (= (vector-length #{x\ 4347}#) 4)
+ (eq? (vector-ref #{x\ 4347}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 12878}#
- (lambda (#{expression\ 14915}#
- #{wrap\ 14916}#
- #{module\ 14917}#)
+ (#{make-syntax-object\ 2315}#
+ (lambda (#{expression\ 4352}#
+ #{wrap\ 4353}#
+ #{module\ 4354}#)
(vector
'syntax-object
- #{expression\ 14915}#
- #{wrap\ 14916}#
- #{module\ 14917}#)))
- (#{build-letrec\ 12874}#
- (lambda (#{src\ 14921}#
- #{ids\ 14922}#
- #{vars\ 14923}#
- #{val-exps\ 14924}#
- #{body-exp\ 14925}#)
- (if (null? #{vars\ 14923}#)
- #{body-exp\ 14925}#
- (#{make-letrec\ 12813}#
- #{src\ 14921}#
- #{ids\ 14922}#
- #{vars\ 14923}#
- #{val-exps\ 14924}#
- #{body-exp\ 14925}#))))
- (#{build-named-let\ 12872}#
- (lambda (#{src\ 14931}#
- #{ids\ 14932}#
- #{vars\ 14933}#
- #{val-exps\ 14934}#
- #{body-exp\ 14935}#)
- (let ((#{f\ 14945}# (car #{vars\ 14933}#))
- (#{f-name\ 14946}# (car #{ids\ 14932}#))
- (#{vars\ 14947}# (cdr #{vars\ 14933}#))
- (#{ids\ 14948}# (cdr #{ids\ 14932}#)))
- (let ((#{proc\ 14950}#
- (#{build-simple-lambda\ 12858}#
- #{src\ 14931}#
- #{ids\ 14948}#
+ #{expression\ 4352}#
+ #{wrap\ 4353}#
+ #{module\ 4354}#)))
+ (#{build-letrec\ 2311}#
+ (lambda (#{src\ 4358}#
+ #{ids\ 4359}#
+ #{vars\ 4360}#
+ #{val-exps\ 4361}#
+ #{body-exp\ 4362}#)
+ (if (null? #{vars\ 4360}#)
+ #{body-exp\ 4362}#
+ (#{make-letrec\ 2250}#
+ #{src\ 4358}#
+ #{ids\ 4359}#
+ #{vars\ 4360}#
+ #{val-exps\ 4361}#
+ #{body-exp\ 4362}#))))
+ (#{build-named-let\ 2309}#
+ (lambda (#{src\ 4368}#
+ #{ids\ 4369}#
+ #{vars\ 4370}#
+ #{val-exps\ 4371}#
+ #{body-exp\ 4372}#)
+ (let ((#{f\ 4382}# (car #{vars\ 4370}#))
+ (#{f-name\ 4383}# (car #{ids\ 4369}#))
+ (#{vars\ 4384}# (cdr #{vars\ 4370}#))
+ (#{ids\ 4385}# (cdr #{ids\ 4369}#)))
+ (let ((#{proc\ 4387}#
+ (#{build-simple-lambda\ 2295}#
+ #{src\ 4368}#
+ #{ids\ 4385}#
#f
- #{vars\ 14947}#
+ #{vars\ 4384}#
'()
- #{body-exp\ 14935}#)))
- (#{make-letrec\ 12813}#
- #{src\ 14931}#
- (list #{f-name\ 14946}#)
- (list #{f\ 14945}#)
- (list #{proc\ 14950}#)
- (#{build-application\ 12838}#
- #{src\ 14931}#
- (#{build-lexical-reference\ 12844}#
+ #{body-exp\ 4372}#)))
+ (#{make-letrec\ 2250}#
+ #{src\ 4368}#
+ (list #{f-name\ 4383}#)
+ (list #{f\ 4382}#)
+ (list #{proc\ 4387}#)
+ (#{build-application\ 2275}#
+ #{src\ 4368}#
+ (#{build-lexical-reference\ 2281}#
'fun
- #{src\ 14931}#
- #{f-name\ 14946}#
- #{f\ 14945}#)
- #{val-exps\ 14934}#))))))
- (#{build-let\ 12870}#
- (lambda (#{src\ 14951}#
- #{ids\ 14952}#
- #{vars\ 14953}#
- #{val-exps\ 14954}#
- #{body-exp\ 14955}#)
- (if (null? #{vars\ 14953}#)
- #{body-exp\ 14955}#
- (#{make-let\ 12811}#
- #{src\ 14951}#
- #{ids\ 14952}#
- #{vars\ 14953}#
- #{val-exps\ 14954}#
- #{body-exp\ 14955}#))))
- (#{build-sequence\ 12868}#
- (lambda (#{src\ 14961}# #{exps\ 14962}#)
- (if (null? (cdr #{exps\ 14962}#))
- (car #{exps\ 14962}#)
- (#{make-sequence\ 12805}#
- #{src\ 14961}#
- #{exps\ 14962}#))))
- (#{build-data\ 12866}#
- (lambda (#{src\ 14965}# #{exp\ 14966}#)
- (#{make-const\ 12783}#
- #{src\ 14965}#
- #{exp\ 14966}#)))
- (#{build-primref\ 12864}#
- (lambda (#{src\ 14969}# #{name\ 14970}#)
+ #{src\ 4368}#
+ #{f-name\ 4383}#
+ #{f\ 4382}#)
+ #{val-exps\ 4371}#))))))
+ (#{build-let\ 2307}#
+ (lambda (#{src\ 4388}#
+ #{ids\ 4389}#
+ #{vars\ 4390}#
+ #{val-exps\ 4391}#
+ #{body-exp\ 4392}#)
+ (if (null? #{vars\ 4390}#)
+ #{body-exp\ 4392}#
+ (#{make-let\ 2248}#
+ #{src\ 4388}#
+ #{ids\ 4389}#
+ #{vars\ 4390}#
+ #{val-exps\ 4391}#
+ #{body-exp\ 4392}#))))
+ (#{build-sequence\ 2305}#
+ (lambda (#{src\ 4398}# #{exps\ 4399}#)
+ (if (null? (cdr #{exps\ 4399}#))
+ (car #{exps\ 4399}#)
+ (#{make-sequence\ 2242}#
+ #{src\ 4398}#
+ #{exps\ 4399}#))))
+ (#{build-data\ 2303}#
+ (lambda (#{src\ 4402}# #{exp\ 4403}#)
+ (#{make-const\ 2220}#
+ #{src\ 4402}#
+ #{exp\ 4403}#)))
+ (#{build-primref\ 2301}#
+ (lambda (#{src\ 4406}# #{name\ 4407}#)
(if (equal?
(module-name (current-module))
'(guile))
- (#{make-toplevel-ref\ 12795}#
- #{src\ 14969}#
- #{name\ 14970}#)
- (#{make-module-ref\ 12791}#
- #{src\ 14969}#
+ (#{make-toplevel-ref\ 2232}#
+ #{src\ 4406}#
+ #{name\ 4407}#)
+ (#{make-module-ref\ 2228}#
+ #{src\ 4406}#
'(guile)
- #{name\ 14970}#
+ #{name\ 4407}#
#f))))
- (#{build-lambda-case\ 12862}#
- (lambda (#{src\ 14973}#
- #{req\ 14974}#
- #{opt\ 14975}#
- #{rest\ 14976}#
- #{kw\ 14977}#
- #{inits\ 14978}#
- #{vars\ 14979}#
- #{body\ 14980}#
- #{else-case\ 14981}#)
- (let ((#{atom-key\ 14993}#
- (fluid-ref #{*mode*\ 12778}#)))
- (if (memv #{atom-key\ 14993}# (quote (c)))
- (#{make-lambda-case\ 12809}#
- #{src\ 14973}#
- #{req\ 14974}#
- #{opt\ 14975}#
- #{rest\ 14976}#
- #{kw\ 14977}#
- #{inits\ 14978}#
- #{vars\ 14979}#
- #{body\ 14980}#
- #{else-case\ 14981}#)
- (let ((#{nreq\ 14998}# (length #{req\ 14974}#)))
- (let ((#{nopt\ 15000}#
- (if #{opt\ 14975}# (length #{opt\ 14975}#) 0)))
- (let ((#{rest-idx\ 15002}#
- (if #{rest\ 14976}#
- (+ #{nreq\ 14998}# #{nopt\ 15000}#)
- #f)))
- (let ((#{allow-other-keys?\ 15006}#
- (if #{kw\ 14977}# (car #{kw\ 14977}#) #f)))
- (let ((#{kw-indices\ 15008}#
- (map (lambda (#{x\ 15009}#)
- (cons (car #{x\ 15009}#)
- (list-index
- #{vars\ 14979}#
- (caddr #{x\ 15009}#))))
- (if #{kw\ 14977}#
- (cdr #{kw\ 14977}#)
- '()))))
- (let ((#{nargs\ 15012}#
- (apply max
- (+ #{nreq\ 14998}#
- #{nopt\ 15000}#
- (if #{rest\ 14976}# 1 0))
- (map 1+
- (map cdr
- #{kw-indices\ 15008}#)))))
- (begin
- (let ((#{t\ 15015}#
- (= #{nargs\ 15012}#
- (length #{vars\ 14979}#)
- (+ #{nreq\ 14998}#
- (length #{inits\ 14978}#)
- (if #{rest\ 14976}# 1 0)))))
- (if #{t\ 15015}#
- #{t\ 15015}#
- (error "something went wrong"
- #{req\ 14974}#
- #{opt\ 14975}#
- #{rest\ 14976}#
- #{kw\ 14977}#
- #{inits\ 14978}#
- #{vars\ 14979}#
- #{nreq\ 14998}#
- #{nopt\ 15000}#
- #{kw-indices\ 15008}#
- #{nargs\ 15012}#)))
- (#{make-lambda-case\ 12809}#
- #{src\ 14973}#
- #{req\ 14974}#
- #{opt\ 14975}#
- #{rest\ 14976}#
- (if #{kw\ 14977}#
- (cons #{allow-other-keys?\ 15006}#
- #{kw-indices\ 15008}#)
- #f)
- #{inits\ 14978}#
- #{vars\ 14979}#
- #{body\ 14980}#
- #{else-case\ 14981}#))))))))))))
- (#{build-case-lambda\ 12860}#
- (lambda (#{src\ 15019}# #{meta\ 15020}# #{body\ 15021}#)
- (#{make-lambda\ 12807}#
- #{src\ 15019}#
- #{meta\ 15020}#
- #{body\ 15021}#)))
- (#{build-simple-lambda\ 12858}#
- (lambda (#{src\ 15025}#
- #{req\ 15026}#
- #{rest\ 15027}#
- #{vars\ 15028}#
- #{meta\ 15029}#
- #{exp\ 15030}#)
- (#{make-lambda\ 12807}#
- #{src\ 15025}#
- #{meta\ 15029}#
- (#{make-lambda-case\ 12809}#
- #{src\ 15025}#
- #{req\ 15026}#
+ (#{build-lambda-case\ 2299}#
+ (lambda (#{src\ 4410}#
+ #{req\ 4411}#
+ #{opt\ 4412}#
+ #{rest\ 4413}#
+ #{kw\ 4414}#
+ #{inits\ 4415}#
+ #{vars\ 4416}#
+ #{body\ 4417}#
+ #{else-case\ 4418}#)
+ (#{make-lambda-case\ 2246}#
+ #{src\ 4410}#
+ #{req\ 4411}#
+ #{opt\ 4412}#
+ #{rest\ 4413}#
+ #{kw\ 4414}#
+ #{inits\ 4415}#
+ #{vars\ 4416}#
+ #{body\ 4417}#
+ #{else-case\ 4418}#)))
+ (#{build-case-lambda\ 2297}#
+ (lambda (#{src\ 4428}# #{meta\ 4429}# #{body\ 4430}#)
+ (#{make-lambda\ 2244}#
+ #{src\ 4428}#
+ #{meta\ 4429}#
+ #{body\ 4430}#)))
+ (#{build-simple-lambda\ 2295}#
+ (lambda (#{src\ 4434}#
+ #{req\ 4435}#
+ #{rest\ 4436}#
+ #{vars\ 4437}#
+ #{meta\ 4438}#
+ #{exp\ 4439}#)
+ (#{make-lambda\ 2244}#
+ #{src\ 4434}#
+ #{meta\ 4438}#
+ (#{make-lambda-case\ 2246}#
+ #{src\ 4434}#
+ #{req\ 4435}#
#f
- #{rest\ 15027}#
+ #{rest\ 4436}#
#f
'()
- #{vars\ 15028}#
- #{exp\ 15030}#
+ #{vars\ 4437}#
+ #{exp\ 4439}#
#f))))
- (#{build-global-definition\ 12856}#
- (lambda (#{source\ 15037}# #{var\ 15038}# #{exp\ 15039}#)
- (#{make-toplevel-define\ 12799}#
- #{source\ 15037}#
- #{var\ 15038}#
- #{exp\ 15039}#)))
- (#{maybe-name-value!\ 12854}#
- (lambda (#{name\ 15043}# #{val\ 15044}#)
- (if ((@ (language tree-il) lambda?) #{val\ 15044}#)
- (let ((#{meta\ 15050}#
+ (#{build-global-definition\ 2293}#
+ (lambda (#{source\ 4446}# #{var\ 4447}# #{exp\ 4448}#)
+ (#{make-toplevel-define\ 2236}#
+ #{source\ 4446}#
+ #{var\ 4447}#
+ #{exp\ 4448}#)))
+ (#{maybe-name-value!\ 2291}#
+ (lambda (#{name\ 4452}# #{val\ 4453}#)
+ (if ((@ (language tree-il) lambda?) #{val\ 4453}#)
+ (let ((#{meta\ 4459}#
((@ (language tree-il) lambda-meta)
- #{val\ 15044}#)))
- (if (not (assq (quote name) #{meta\ 15050}#))
+ #{val\ 4453}#)))
+ (if (not (assq (quote name) #{meta\ 4459}#))
((setter (@ (language tree-il) lambda-meta))
- #{val\ 15044}#
+ #{val\ 4453}#
(acons 'name
- #{name\ 15043}#
- #{meta\ 15050}#)))))))
- (#{build-global-assignment\ 12852}#
- (lambda (#{source\ 15051}#
- #{var\ 15052}#
- #{exp\ 15053}#
- #{mod\ 15054}#)
- (#{analyze-variable\ 12848}#
- #{mod\ 15054}#
- #{var\ 15052}#
- (lambda (#{mod\ 15059}#
- #{var\ 15060}#
- #{public?\ 15061}#)
- (#{make-module-set\ 12793}#
- #{source\ 15051}#
- #{mod\ 15059}#
- #{var\ 15060}#
- #{public?\ 15061}#
- #{exp\ 15053}#))
- (lambda (#{var\ 15065}#)
- (#{make-toplevel-set\ 12797}#
- #{source\ 15051}#
- #{var\ 15065}#
- #{exp\ 15053}#)))))
- (#{build-global-reference\ 12850}#
- (lambda (#{source\ 15067}# #{var\ 15068}# #{mod\ 15069}#)
- (#{analyze-variable\ 12848}#
- #{mod\ 15069}#
- #{var\ 15068}#
- (lambda (#{mod\ 15073}#
- #{var\ 15074}#
- #{public?\ 15075}#)
- (#{make-module-ref\ 12791}#
- #{source\ 15067}#
- #{mod\ 15073}#
- #{var\ 15074}#
- #{public?\ 15075}#))
- (lambda (#{var\ 15079}#)
- (#{make-toplevel-ref\ 12795}#
- #{source\ 15067}#
- #{var\ 15079}#)))))
- (#{analyze-variable\ 12848}#
- (lambda (#{mod\ 15081}#
- #{var\ 15082}#
- #{modref-cont\ 15083}#
- #{bare-cont\ 15084}#)
- (if (not #{mod\ 15081}#)
- (#{bare-cont\ 15084}# #{var\ 15082}#)
- (let ((#{kind\ 15091}# (car #{mod\ 15081}#))
- (#{mod\ 15092}# (cdr #{mod\ 15081}#)))
- (if (memv #{kind\ 15091}# (quote (public)))
- (#{modref-cont\ 15083}#
- #{mod\ 15092}#
- #{var\ 15082}#
+ #{name\ 4452}#
+ #{meta\ 4459}#)))))))
+ (#{build-global-assignment\ 2289}#
+ (lambda (#{source\ 4460}#
+ #{var\ 4461}#
+ #{exp\ 4462}#
+ #{mod\ 4463}#)
+ (#{analyze-variable\ 2285}#
+ #{mod\ 4463}#
+ #{var\ 4461}#
+ (lambda (#{mod\ 4468}# #{var\ 4469}# #{public?\ 4470}#)
+ (#{make-module-set\ 2230}#
+ #{source\ 4460}#
+ #{mod\ 4468}#
+ #{var\ 4469}#
+ #{public?\ 4470}#
+ #{exp\ 4462}#))
+ (lambda (#{var\ 4474}#)
+ (#{make-toplevel-set\ 2234}#
+ #{source\ 4460}#
+ #{var\ 4474}#
+ #{exp\ 4462}#)))))
+ (#{build-global-reference\ 2287}#
+ (lambda (#{source\ 4476}# #{var\ 4477}# #{mod\ 4478}#)
+ (#{analyze-variable\ 2285}#
+ #{mod\ 4478}#
+ #{var\ 4477}#
+ (lambda (#{mod\ 4482}# #{var\ 4483}# #{public?\ 4484}#)
+ (#{make-module-ref\ 2228}#
+ #{source\ 4476}#
+ #{mod\ 4482}#
+ #{var\ 4483}#
+ #{public?\ 4484}#))
+ (lambda (#{var\ 4488}#)
+ (#{make-toplevel-ref\ 2232}#
+ #{source\ 4476}#
+ #{var\ 4488}#)))))
+ (#{analyze-variable\ 2285}#
+ (lambda (#{mod\ 4490}#
+ #{var\ 4491}#
+ #{modref-cont\ 4492}#
+ #{bare-cont\ 4493}#)
+ (if (not #{mod\ 4490}#)
+ (#{bare-cont\ 4493}# #{var\ 4491}#)
+ (let ((#{kind\ 4500}# (car #{mod\ 4490}#))
+ (#{mod\ 4501}# (cdr #{mod\ 4490}#)))
+ (if (memv #{kind\ 4500}# (quote (public)))
+ (#{modref-cont\ 4492}#
+ #{mod\ 4501}#
+ #{var\ 4491}#
#t)
- (if (memv #{kind\ 15091}# (quote (private)))
+ (if (memv #{kind\ 4500}# (quote (private)))
(if (not (equal?
- #{mod\ 15092}#
+ #{mod\ 4501}#
(module-name (current-module))))
- (#{modref-cont\ 15083}#
- #{mod\ 15092}#
- #{var\ 15082}#
+ (#{modref-cont\ 4492}#
+ #{mod\ 4501}#
+ #{var\ 4491}#
#f)
- (#{bare-cont\ 15084}# #{var\ 15082}#))
- (if (memv #{kind\ 15091}# (quote (bare)))
- (#{bare-cont\ 15084}# #{var\ 15082}#)
- (if (memv #{kind\ 15091}# (quote (hygiene)))
+ (#{bare-cont\ 4493}# #{var\ 4491}#))
+ (if (memv #{kind\ 4500}# (quote (bare)))
+ (#{bare-cont\ 4493}# #{var\ 4491}#)
+ (if (memv #{kind\ 4500}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 15092}#
+ #{mod\ 4501}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 15092}#)
- #{var\ 15082}#)
+ (resolve-module #{mod\ 4501}#)
+ #{var\ 4491}#)
#f)
- (#{modref-cont\ 15083}#
- #{mod\ 15092}#
- #{var\ 15082}#
+ (#{modref-cont\ 4492}#
+ #{mod\ 4501}#
+ #{var\ 4491}#
#f)
- (#{bare-cont\ 15084}# #{var\ 15082}#))
+ (#{bare-cont\ 4493}# #{var\ 4491}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 15082}#
- #{mod\ 15092}#)))))))))
- (#{build-lexical-assignment\ 12846}#
- (lambda (#{source\ 15100}#
- #{name\ 15101}#
- #{var\ 15102}#
- #{exp\ 15103}#)
- (#{make-lexical-set\ 12789}#
- #{source\ 15100}#
- #{name\ 15101}#
- #{var\ 15102}#
- #{exp\ 15103}#)))
- (#{build-lexical-reference\ 12844}#
- (lambda (#{type\ 15108}#
- #{source\ 15109}#
- #{name\ 15110}#
- #{var\ 15111}#)
- (#{make-lexical-ref\ 12787}#
- #{source\ 15109}#
- #{name\ 15110}#
- #{var\ 15111}#)))
- (#{build-dynlet\ 12842}#
- (lambda (#{source\ 15116}#
- #{fluids\ 15117}#
- #{vals\ 15118}#
- #{body\ 15119}#)
- (#{make-dynlet\ 12815}#
- #{source\ 15116}#
- #{fluids\ 15117}#
- #{vals\ 15118}#
- #{body\ 15119}#)))
- (#{build-conditional\ 12840}#
- (lambda (#{source\ 15124}#
- #{test-exp\ 15125}#
- #{then-exp\ 15126}#
- #{else-exp\ 15127}#)
- (#{make-conditional\ 12801}#
- #{source\ 15124}#
- #{test-exp\ 15125}#
- #{then-exp\ 15126}#
- #{else-exp\ 15127}#)))
- (#{build-application\ 12838}#
- (lambda (#{source\ 15132}#
- #{fun-exp\ 15133}#
- #{arg-exps\ 15134}#)
- (#{make-application\ 12803}#
- #{source\ 15132}#
- #{fun-exp\ 15133}#
- #{arg-exps\ 15134}#)))
- (#{build-void\ 12836}#
- (lambda (#{source\ 15138}#)
- (#{make-void\ 12781}# #{source\ 15138}#)))
- (#{decorate-source\ 12834}#
- (lambda (#{e\ 15140}# #{s\ 15141}#)
+ #{var\ 4491}#
+ #{mod\ 4501}#)))))))))
+ (#{build-lexical-assignment\ 2283}#
+ (lambda (#{source\ 4509}#
+ #{name\ 4510}#
+ #{var\ 4511}#
+ #{exp\ 4512}#)
+ (#{make-lexical-set\ 2226}#
+ #{source\ 4509}#
+ #{name\ 4510}#
+ #{var\ 4511}#
+ #{exp\ 4512}#)))
+ (#{build-lexical-reference\ 2281}#
+ (lambda (#{type\ 4517}#
+ #{source\ 4518}#
+ #{name\ 4519}#
+ #{var\ 4520}#)
+ (#{make-lexical-ref\ 2224}#
+ #{source\ 4518}#
+ #{name\ 4519}#
+ #{var\ 4520}#)))
+ (#{build-dynlet\ 2279}#
+ (lambda (#{source\ 4525}#
+ #{fluids\ 4526}#
+ #{vals\ 4527}#
+ #{body\ 4528}#)
+ (#{make-dynlet\ 2252}#
+ #{source\ 4525}#
+ #{fluids\ 4526}#
+ #{vals\ 4527}#
+ #{body\ 4528}#)))
+ (#{build-conditional\ 2277}#
+ (lambda (#{source\ 4533}#
+ #{test-exp\ 4534}#
+ #{then-exp\ 4535}#
+ #{else-exp\ 4536}#)
+ (#{make-conditional\ 2238}#
+ #{source\ 4533}#
+ #{test-exp\ 4534}#
+ #{then-exp\ 4535}#
+ #{else-exp\ 4536}#)))
+ (#{build-application\ 2275}#
+ (lambda (#{source\ 4541}#
+ #{fun-exp\ 4542}#
+ #{arg-exps\ 4543}#)
+ (#{make-application\ 2240}#
+ #{source\ 4541}#
+ #{fun-exp\ 4542}#
+ #{arg-exps\ 4543}#)))
+ (#{build-void\ 2273}#
+ (lambda (#{source\ 4547}#)
+ (#{make-void\ 2218}# #{source\ 4547}#)))
+ (#{decorate-source\ 2271}#
+ (lambda (#{e\ 4549}# #{s\ 4550}#)
(begin
- (if (if (pair? #{e\ 15140}#) #{s\ 15141}# #f)
- (set-source-properties!
- #{e\ 15140}#
- #{s\ 15141}#))
- #{e\ 15140}#)))
- (#{get-global-definition-hook\ 12832}#
- (lambda (#{symbol\ 15146}# #{module\ 15147}#)
+ (if (if (pair? #{e\ 4549}#) #{s\ 4550}# #f)
+ (set-source-properties! #{e\ 4549}# #{s\ 4550}#))
+ #{e\ 4549}#)))
+ (#{get-global-definition-hook\ 2269}#
+ (lambda (#{symbol\ 4555}# #{module\ 4556}#)
(begin
- (if (if (not #{module\ 15147}#) (current-module) #f)
+ (if (if (not #{module\ 4556}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 15146}#))
- (let ((#{v\ 15153}#
+ #{symbol\ 4555}#))
+ (let ((#{v\ 4562}#
(module-variable
- (if #{module\ 15147}#
- (resolve-module (cdr #{module\ 15147}#))
+ (if #{module\ 4556}#
+ (resolve-module (cdr #{module\ 4556}#))
(current-module))
- #{symbol\ 15146}#)))
- (if #{v\ 15153}#
- (if (variable-bound? #{v\ 15153}#)
- (let ((#{val\ 15158}# (variable-ref #{v\ 15153}#)))
- (if (macro? #{val\ 15158}#)
- (if (macro-type #{val\ 15158}#)
- (cons (macro-type #{val\ 15158}#)
- (macro-binding #{val\ 15158}#))
+ #{symbol\ 4555}#)))
+ (if #{v\ 4562}#
+ (if (variable-bound? #{v\ 4562}#)
+ (let ((#{val\ 4567}# (variable-ref #{v\ 4562}#)))
+ (if (macro? #{val\ 4567}#)
+ (if (macro-type #{val\ 4567}#)
+ (cons (macro-type #{val\ 4567}#)
+ (macro-binding #{val\ 4567}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 12830}#
- (lambda (#{symbol\ 15162}#
- #{type\ 15163}#
- #{val\ 15164}#)
+ (#{put-global-definition-hook\ 2267}#
+ (lambda (#{symbol\ 4571}# #{type\ 4572}# #{val\ 4573}#)
(module-define!
(current-module)
- #{symbol\ 15162}#
+ #{symbol\ 4571}#
(make-syntax-transformer
- #{symbol\ 15162}#
- #{type\ 15163}#
- #{val\ 15164}#))))
- (#{local-eval-hook\ 12827}#
- (lambda (#{x\ 15168}# #{mod\ 15169}#)
- (primitive-eval #{x\ 15168}#)))
- (#{top-level-eval-hook\ 12825}#
- (lambda (#{x\ 15172}# #{mod\ 15173}#)
- (primitive-eval #{x\ 15172}#)))
- (#{fx<\ 12823}# <)
- (#{fx=\ 12821}# =)
- (#{fx-\ 12819}# -)
- (#{fx+\ 12817}# +)
- (#{make-dynlet\ 12815}#
- (lambda (#{src\ 15176}#
- #{fluids\ 15177}#
- #{vals\ 15178}#
- #{body\ 15179}#)
+ #{symbol\ 4571}#
+ #{type\ 4572}#
+ #{val\ 4573}#))))
+ (#{local-eval-hook\ 2264}#
+ (lambda (#{x\ 4577}# #{mod\ 4578}#)
+ (primitive-eval #{x\ 4577}#)))
+ (#{top-level-eval-hook\ 2262}#
+ (lambda (#{x\ 4581}# #{mod\ 4582}#)
+ (primitive-eval #{x\ 4581}#)))
+ (#{fx<\ 2260}# <)
+ (#{fx=\ 2258}# =)
+ (#{fx-\ 2256}# -)
+ (#{fx+\ 2254}# +)
+ (#{make-dynlet\ 2252}#
+ (lambda (#{src\ 4585}#
+ #{fluids\ 4586}#
+ #{vals\ 4587}#
+ #{body\ 4588}#)
(make-struct
(vector-ref %expanded-vtables 17)
0
- #{src\ 15176}#
- #{fluids\ 15177}#
- #{vals\ 15178}#
- #{body\ 15179}#)))
- (#{make-letrec\ 12813}#
- (lambda (#{src\ 15184}#
- #{names\ 15185}#
- #{gensyms\ 15186}#
- #{vals\ 15187}#
- #{body\ 15188}#)
+ #{src\ 4585}#
+ #{fluids\ 4586}#
+ #{vals\ 4587}#
+ #{body\ 4588}#)))
+ (#{make-letrec\ 2250}#
+ (lambda (#{src\ 4593}#
+ #{names\ 4594}#
+ #{gensyms\ 4595}#
+ #{vals\ 4596}#
+ #{body\ 4597}#)
(make-struct
(vector-ref %expanded-vtables 16)
0
- #{src\ 15184}#
- #{names\ 15185}#
- #{gensyms\ 15186}#
- #{vals\ 15187}#
- #{body\ 15188}#)))
- (#{make-let\ 12811}#
- (lambda (#{src\ 15194}#
- #{names\ 15195}#
- #{gensyms\ 15196}#
- #{vals\ 15197}#
- #{body\ 15198}#)
+ #{src\ 4593}#
+ #{names\ 4594}#
+ #{gensyms\ 4595}#
+ #{vals\ 4596}#
+ #{body\ 4597}#)))
+ (#{make-let\ 2248}#
+ (lambda (#{src\ 4603}#
+ #{names\ 4604}#
+ #{gensyms\ 4605}#
+ #{vals\ 4606}#
+ #{body\ 4607}#)
(make-struct
(vector-ref %expanded-vtables 15)
0
- #{src\ 15194}#
- #{names\ 15195}#
- #{gensyms\ 15196}#
- #{vals\ 15197}#
- #{body\ 15198}#)))
- (#{make-lambda-case\ 12809}#
- (lambda (#{src\ 15204}#
- #{req\ 15205}#
- #{opt\ 15206}#
- #{rest\ 15207}#
- #{kw\ 15208}#
- #{inits\ 15209}#
- #{gensyms\ 15210}#
- #{body\ 15211}#
- #{alternate\ 15212}#)
+ #{src\ 4603}#
+ #{names\ 4604}#
+ #{gensyms\ 4605}#
+ #{vals\ 4606}#
+ #{body\ 4607}#)))
+ (#{make-lambda-case\ 2246}#
+ (lambda (#{src\ 4613}#
+ #{req\ 4614}#
+ #{opt\ 4615}#
+ #{rest\ 4616}#
+ #{kw\ 4617}#
+ #{inits\ 4618}#
+ #{gensyms\ 4619}#
+ #{body\ 4620}#
+ #{alternate\ 4621}#)
(make-struct
(vector-ref %expanded-vtables 14)
0
- #{src\ 15204}#
- #{req\ 15205}#
- #{opt\ 15206}#
- #{rest\ 15207}#
- #{kw\ 15208}#
- #{inits\ 15209}#
- #{gensyms\ 15210}#
- #{body\ 15211}#
- #{alternate\ 15212}#)))
- (#{make-lambda\ 12807}#
- (lambda (#{src\ 15222}# #{meta\ 15223}# #{body\ 15224}#)
+ #{src\ 4613}#
+ #{req\ 4614}#
+ #{opt\ 4615}#
+ #{rest\ 4616}#
+ #{kw\ 4617}#
+ #{inits\ 4618}#
+ #{gensyms\ 4619}#
+ #{body\ 4620}#
+ #{alternate\ 4621}#)))
+ (#{make-lambda\ 2244}#
+ (lambda (#{src\ 4631}# #{meta\ 4632}# #{body\ 4633}#)
(make-struct
(vector-ref %expanded-vtables 13)
0
- #{src\ 15222}#
- #{meta\ 15223}#
- #{body\ 15224}#)))
- (#{make-sequence\ 12805}#
- (lambda (#{src\ 15228}# #{exps\ 15229}#)
+ #{src\ 4631}#
+ #{meta\ 4632}#
+ #{body\ 4633}#)))
+ (#{make-sequence\ 2242}#
+ (lambda (#{src\ 4637}# #{exps\ 4638}#)
(make-struct
(vector-ref %expanded-vtables 12)
0
- #{src\ 15228}#
- #{exps\ 15229}#)))
- (#{make-application\ 12803}#
- (lambda (#{src\ 15232}# #{proc\ 15233}# #{args\ 15234}#)
+ #{src\ 4637}#
+ #{exps\ 4638}#)))
+ (#{make-application\ 2240}#
+ (lambda (#{src\ 4641}# #{proc\ 4642}# #{args\ 4643}#)
(make-struct
(vector-ref %expanded-vtables 11)
0
- #{src\ 15232}#
- #{proc\ 15233}#
- #{args\ 15234}#)))
- (#{make-conditional\ 12801}#
- (lambda (#{src\ 15238}#
- #{test\ 15239}#
- #{consequent\ 15240}#
- #{alternate\ 15241}#)
+ #{src\ 4641}#
+ #{proc\ 4642}#
+ #{args\ 4643}#)))
+ (#{make-conditional\ 2238}#
+ (lambda (#{src\ 4647}#
+ #{test\ 4648}#
+ #{consequent\ 4649}#
+ #{alternate\ 4650}#)
(make-struct
(vector-ref %expanded-vtables 10)
0
- #{src\ 15238}#
- #{test\ 15239}#
- #{consequent\ 15240}#
- #{alternate\ 15241}#)))
- (#{make-toplevel-define\ 12799}#
- (lambda (#{src\ 15246}# #{name\ 15247}# #{exp\ 15248}#)
+ #{src\ 4647}#
+ #{test\ 4648}#
+ #{consequent\ 4649}#
+ #{alternate\ 4650}#)))
+ (#{make-toplevel-define\ 2236}#
+ (lambda (#{src\ 4655}# #{name\ 4656}# #{exp\ 4657}#)
(make-struct
(vector-ref %expanded-vtables 9)
0
- #{src\ 15246}#
- #{name\ 15247}#
- #{exp\ 15248}#)))
- (#{make-toplevel-set\ 12797}#
- (lambda (#{src\ 15252}# #{name\ 15253}# #{exp\ 15254}#)
+ #{src\ 4655}#
+ #{name\ 4656}#
+ #{exp\ 4657}#)))
+ (#{make-toplevel-set\ 2234}#
+ (lambda (#{src\ 4661}# #{name\ 4662}# #{exp\ 4663}#)
(make-struct
(vector-ref %expanded-vtables 8)
0
- #{src\ 15252}#
- #{name\ 15253}#
- #{exp\ 15254}#)))
- (#{make-toplevel-ref\ 12795}#
- (lambda (#{src\ 15258}# #{name\ 15259}#)
+ #{src\ 4661}#
+ #{name\ 4662}#
+ #{exp\ 4663}#)))
+ (#{make-toplevel-ref\ 2232}#
+ (lambda (#{src\ 4667}# #{name\ 4668}#)
(make-struct
(vector-ref %expanded-vtables 7)
0
- #{src\ 15258}#
- #{name\ 15259}#)))
- (#{make-module-set\ 12793}#
- (lambda (#{src\ 15262}#
- #{mod\ 15263}#
- #{name\ 15264}#
- #{public?\ 15265}#
- #{exp\ 15266}#)
+ #{src\ 4667}#
+ #{name\ 4668}#)))
+ (#{make-module-set\ 2230}#
+ (lambda (#{src\ 4671}#
+ #{mod\ 4672}#
+ #{name\ 4673}#
+ #{public?\ 4674}#
+ #{exp\ 4675}#)
(make-struct
(vector-ref %expanded-vtables 6)
0
- #{src\ 15262}#
- #{mod\ 15263}#
- #{name\ 15264}#
- #{public?\ 15265}#
- #{exp\ 15266}#)))
- (#{make-module-ref\ 12791}#
- (lambda (#{src\ 15272}#
- #{mod\ 15273}#
- #{name\ 15274}#
- #{public?\ 15275}#)
+ #{src\ 4671}#
+ #{mod\ 4672}#
+ #{name\ 4673}#
+ #{public?\ 4674}#
+ #{exp\ 4675}#)))
+ (#{make-module-ref\ 2228}#
+ (lambda (#{src\ 4681}#
+ #{mod\ 4682}#
+ #{name\ 4683}#
+ #{public?\ 4684}#)
(make-struct
(vector-ref %expanded-vtables 5)
0
- #{src\ 15272}#
- #{mod\ 15273}#
- #{name\ 15274}#
- #{public?\ 15275}#)))
- (#{make-lexical-set\ 12789}#
- (lambda (#{src\ 15280}#
- #{name\ 15281}#
- #{gensym\ 15282}#
- #{exp\ 15283}#)
+ #{src\ 4681}#
+ #{mod\ 4682}#
+ #{name\ 4683}#
+ #{public?\ 4684}#)))
+ (#{make-lexical-set\ 2226}#
+ (lambda (#{src\ 4689}#
+ #{name\ 4690}#
+ #{gensym\ 4691}#
+ #{exp\ 4692}#)
(make-struct
(vector-ref %expanded-vtables 4)
0
- #{src\ 15280}#
- #{name\ 15281}#
- #{gensym\ 15282}#
- #{exp\ 15283}#)))
- (#{make-lexical-ref\ 12787}#
- (lambda (#{src\ 15288}#
- #{name\ 15289}#
- #{gensym\ 15290}#)
+ #{src\ 4689}#
+ #{name\ 4690}#
+ #{gensym\ 4691}#
+ #{exp\ 4692}#)))
+ (#{make-lexical-ref\ 2224}#
+ (lambda (#{src\ 4697}# #{name\ 4698}# #{gensym\ 4699}#)
(make-struct
(vector-ref %expanded-vtables 3)
0
- #{src\ 15288}#
- #{name\ 15289}#
- #{gensym\ 15290}#)))
- (#{make-primitive-ref\ 12785}#
- (lambda (#{src\ 15294}# #{name\ 15295}#)
+ #{src\ 4697}#
+ #{name\ 4698}#
+ #{gensym\ 4699}#)))
+ (#{make-primitive-ref\ 2222}#
+ (lambda (#{src\ 4703}# #{name\ 4704}#)
(make-struct
(vector-ref %expanded-vtables 2)
0
- #{src\ 15294}#
- #{name\ 15295}#)))
- (#{make-const\ 12783}#
- (lambda (#{src\ 15298}# #{exp\ 15299}#)
+ #{src\ 4703}#
+ #{name\ 4704}#)))
+ (#{make-const\ 2220}#
+ (lambda (#{src\ 4707}# #{exp\ 4708}#)
(make-struct
(vector-ref %expanded-vtables 1)
0
- #{src\ 15298}#
- #{exp\ 15299}#)))
- (#{make-void\ 12781}#
- (lambda (#{src\ 15302}#)
+ #{src\ 4707}#
+ #{exp\ 4708}#)))
+ (#{make-void\ 2218}#
+ (lambda (#{src\ 4711}#)
(make-struct
(vector-ref %expanded-vtables 0)
0
- #{src\ 15302}#)))
- (#{*mode*\ 12778}# (make-fluid)))
+ #{src\ 4711}#)))
+ (#{*mode*\ 2215}# (make-fluid)))
(begin
- (#{global-extend\ 12912}#
+ (#{global-extend\ 2349}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 12912}#
+ (#{global-extend\ 2349}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 12912}#
+ (#{global-extend\ 2349}#
'core
'fluid-let-syntax
- (lambda (#{e\ 15304}#
- #{r\ 15305}#
- #{w\ 15306}#
- #{s\ 15307}#
- #{mod\ 15308}#)
- ((lambda (#{tmp\ 15314}#)
- ((lambda (#{tmp\ 15315}#)
- (if (if #{tmp\ 15315}#
- (apply (lambda (#{_\ 15321}#
- #{var\ 15322}#
- #{val\ 15323}#
- #{e1\ 15324}#
- #{e2\ 15325}#)
- (#{valid-bound-ids?\ 12979}# #{var\ 15322}#))
- #{tmp\ 15315}#)
+ (lambda (#{e\ 4713}#
+ #{r\ 4714}#
+ #{w\ 4715}#
+ #{s\ 4716}#
+ #{mod\ 4717}#)
+ ((lambda (#{tmp\ 4723}#)
+ ((lambda (#{tmp\ 4724}#)
+ (if (if #{tmp\ 4724}#
+ (apply (lambda (#{_\ 4730}#
+ #{var\ 4731}#
+ #{val\ 4732}#
+ #{e1\ 4733}#
+ #{e2\ 4734}#)
+ (#{valid-bound-ids?\ 2416}# #{var\ 4731}#))
+ #{tmp\ 4724}#)
#f)
- (apply (lambda (#{_\ 15332}#
- #{var\ 15333}#
- #{val\ 15334}#
- #{e1\ 15335}#
- #{e2\ 15336}#)
- (let ((#{names\ 15338}#
- (map (lambda (#{x\ 15339}#)
- (#{id-var-name\ 12973}#
- #{x\ 15339}#
- #{w\ 15306}#))
- #{var\ 15333}#)))
+ (apply (lambda (#{_\ 4741}#
+ #{var\ 4742}#
+ #{val\ 4743}#
+ #{e1\ 4744}#
+ #{e2\ 4745}#)
+ (let ((#{names\ 4747}#
+ (map (lambda (#{x\ 4748}#)
+ (#{id-var-name\ 2410}#
+ #{x\ 4748}#
+ #{w\ 4715}#))
+ #{var\ 4742}#)))
(begin
(for-each
- (lambda (#{id\ 15342}# #{n\ 15343}#)
- (let ((#{atom-key\ 15348}#
- (#{binding-type\ 12899}#
- (#{lookup\ 12910}#
- #{n\ 15343}#
- #{r\ 15305}#
- #{mod\ 15308}#))))
- (if (memv #{atom-key\ 15348}#
+ (lambda (#{id\ 4751}# #{n\ 4752}#)
+ (let ((#{atom-key\ 4757}#
+ (#{binding-type\ 2336}#
+ (#{lookup\ 2347}#
+ #{n\ 4752}#
+ #{r\ 4714}#
+ #{mod\ 4717}#))))
+ (if (memv #{atom-key\ 4757}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 15304}#
- (#{source-wrap\ 12987}#
- #{id\ 15342}#
- #{w\ 15306}#
- #{s\ 15307}#
- #{mod\ 15308}#)))))
- #{var\ 15333}#
- #{names\ 15338}#)
- (#{chi-body\ 13009}#
- (cons #{e1\ 15335}# #{e2\ 15336}#)
- (#{source-wrap\ 12987}#
- #{e\ 15304}#
- #{w\ 15306}#
- #{s\ 15307}#
- #{mod\ 15308}#)
- (#{extend-env\ 12904}#
- #{names\ 15338}#
- (let ((#{trans-r\ 15353}#
- (#{macros-only-env\ 12908}#
- #{r\ 15305}#)))
- (map (lambda (#{x\ 15354}#)
+ #{e\ 4713}#
+ (#{source-wrap\ 2424}#
+ #{id\ 4751}#
+ #{w\ 4715}#
+ #{s\ 4716}#
+ #{mod\ 4717}#)))))
+ #{var\ 4742}#
+ #{names\ 4747}#)
+ (#{chi-body\ 2446}#
+ (cons #{e1\ 4744}# #{e2\ 4745}#)
+ (#{source-wrap\ 2424}#
+ #{e\ 4713}#
+ #{w\ 4715}#
+ #{s\ 4716}#
+ #{mod\ 4717}#)
+ (#{extend-env\ 2341}#
+ #{names\ 4747}#
+ (let ((#{trans-r\ 4762}#
+ (#{macros-only-env\ 2345}#
+ #{r\ 4714}#)))
+ (map (lambda (#{x\ 4763}#)
(cons 'macro
- (#{eval-local-transformer\ 13013}#
- (#{chi\ 13001}#
- #{x\ 15354}#
- #{trans-r\ 15353}#
- #{w\ 15306}#
- #{mod\ 15308}#)
- #{mod\ 15308}#)))
- #{val\ 15334}#))
- #{r\ 15305}#)
- #{w\ 15306}#
- #{mod\ 15308}#))))
- #{tmp\ 15315}#)
- ((lambda (#{_\ 15359}#)
+ (#{eval-local-transformer\ 2450}#
+ (#{chi\ 2438}#
+ #{x\ 4763}#
+ #{trans-r\ 4762}#
+ #{w\ 4715}#
+ #{mod\ 4717}#)
+ #{mod\ 4717}#)))
+ #{val\ 4743}#))
+ #{r\ 4714}#)
+ #{w\ 4715}#
+ #{mod\ 4717}#))))
+ #{tmp\ 4724}#)
+ ((lambda (#{_\ 4768}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 12987}#
- #{e\ 15304}#
- #{w\ 15306}#
- #{s\ 15307}#
- #{mod\ 15308}#)))
- #{tmp\ 15314}#)))
+ (#{source-wrap\ 2424}#
+ #{e\ 4713}#
+ #{w\ 4715}#
+ #{s\ 4716}#
+ #{mod\ 4717}#)))
+ #{tmp\ 4723}#)))
($sc-dispatch
- #{tmp\ 15314}#
+ #{tmp\ 4723}#
'(any #(each (any any)) any . each-any))))
- #{e\ 15304}#)))
- (#{global-extend\ 12912}#
+ #{e\ 4713}#)))
+ (#{global-extend\ 2349}#
'core
'quote
- (lambda (#{e\ 15360}#
- #{r\ 15361}#
- #{w\ 15362}#
- #{s\ 15363}#
- #{mod\ 15364}#)
- ((lambda (#{tmp\ 15370}#)
- ((lambda (#{tmp\ 15371}#)
- (if #{tmp\ 15371}#
- (apply (lambda (#{_\ 15374}# #{e\ 15375}#)
- (#{build-data\ 12866}#
- #{s\ 15363}#
- (#{strip\ 13027}# #{e\ 15375}# #{w\ 15362}#)))
- #{tmp\ 15371}#)
- ((lambda (#{_\ 15377}#)
+ (lambda (#{e\ 4769}#
+ #{r\ 4770}#
+ #{w\ 4771}#
+ #{s\ 4772}#
+ #{mod\ 4773}#)
+ ((lambda (#{tmp\ 4779}#)
+ ((lambda (#{tmp\ 4780}#)
+ (if #{tmp\ 4780}#
+ (apply (lambda (#{_\ 4783}# #{e\ 4784}#)
+ (#{build-data\ 2303}#
+ #{s\ 4772}#
+ (#{strip\ 2464}# #{e\ 4784}# #{w\ 4771}#)))
+ #{tmp\ 4780}#)
+ ((lambda (#{_\ 4786}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 12987}#
- #{e\ 15360}#
- #{w\ 15362}#
- #{s\ 15363}#
- #{mod\ 15364}#)))
- #{tmp\ 15370}#)))
- ($sc-dispatch #{tmp\ 15370}# (quote (any any)))))
- #{e\ 15360}#)))
- (#{global-extend\ 12912}#
+ (#{source-wrap\ 2424}#
+ #{e\ 4769}#
+ #{w\ 4771}#
+ #{s\ 4772}#
+ #{mod\ 4773}#)))
+ #{tmp\ 4779}#)))
+ ($sc-dispatch #{tmp\ 4779}# (quote (any any)))))
+ #{e\ 4769}#)))
+ (#{global-extend\ 2349}#
'core
'syntax
- (letrec ((#{regen\ 15393}#
- (lambda (#{x\ 15394}#)
- (let ((#{atom-key\ 15398}# (car #{x\ 15394}#)))
- (if (memv #{atom-key\ 15398}# (quote (ref)))
- (#{build-lexical-reference\ 12844}#
+ (letrec ((#{regen\ 4802}#
+ (lambda (#{x\ 4803}#)
+ (let ((#{atom-key\ 4807}# (car #{x\ 4803}#)))
+ (if (memv #{atom-key\ 4807}# (quote (ref)))
+ (#{build-lexical-reference\ 2281}#
'value
#f
- (cadr #{x\ 15394}#)
- (cadr #{x\ 15394}#))
- (if (memv #{atom-key\ 15398}# (quote (primitive)))
- (#{build-primref\ 12864}# #f (cadr #{x\ 15394}#))
- (if (memv #{atom-key\ 15398}# (quote (quote)))
- (#{build-data\ 12866}# #f (cadr #{x\ 15394}#))
- (if (memv #{atom-key\ 15398}# (quote (lambda)))
- (if (list? (cadr #{x\ 15394}#))
- (#{build-simple-lambda\ 12858}#
+ (cadr #{x\ 4803}#)
+ (cadr #{x\ 4803}#))
+ (if (memv #{atom-key\ 4807}# (quote (primitive)))
+ (#{build-primref\ 2301}# #f (cadr #{x\ 4803}#))
+ (if (memv #{atom-key\ 4807}# (quote (quote)))
+ (#{build-data\ 2303}# #f (cadr #{x\ 4803}#))
+ (if (memv #{atom-key\ 4807}# (quote (lambda)))
+ (if (list? (cadr #{x\ 4803}#))
+ (#{build-simple-lambda\ 2295}#
#f
- (cadr #{x\ 15394}#)
+ (cadr #{x\ 4803}#)
#f
- (cadr #{x\ 15394}#)
+ (cadr #{x\ 4803}#)
'()
- (#{regen\ 15393}# (caddr #{x\ 15394}#)))
- (error "how did we get here" #{x\ 15394}#))
- (#{build-application\ 12838}#
+ (#{regen\ 4802}# (caddr #{x\ 4803}#)))
+ (error "how did we get here" #{x\ 4803}#))
+ (#{build-application\ 2275}#
#f
- (#{build-primref\ 12864}#
- #f
- (car #{x\ 15394}#))
- (map #{regen\ 15393}#
- (cdr #{x\ 15394}#))))))))))
- (#{gen-vector\ 15391}#
- (lambda (#{x\ 15410}#)
- (if (eq? (car #{x\ 15410}#) (quote list))
- (cons (quote vector) (cdr #{x\ 15410}#))
- (if (eq? (car #{x\ 15410}#) (quote quote))
+ (#{build-primref\ 2301}# #f (car #{x\ 4803}#))
+ (map #{regen\ 4802}#
+ (cdr #{x\ 4803}#))))))))))
+ (#{gen-vector\ 4800}#
+ (lambda (#{x\ 4819}#)
+ (if (eq? (car #{x\ 4819}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 4819}#))
+ (if (eq? (car #{x\ 4819}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 15410}#)))
- (list (quote list->vector) #{x\ 15410}#)))))
- (#{gen-append\ 15389}#
- (lambda (#{x\ 15420}# #{y\ 15421}#)
- (if (equal? #{y\ 15421}# (quote (quote ())))
- #{x\ 15420}#
- (list (quote append) #{x\ 15420}# #{y\ 15421}#))))
- (#{gen-cons\ 15387}#
- (lambda (#{x\ 15425}# #{y\ 15426}#)
- (let ((#{atom-key\ 15431}# (car #{y\ 15426}#)))
- (if (memv #{atom-key\ 15431}# (quote (quote)))
- (if (eq? (car #{x\ 15425}#) (quote quote))
+ (list->vector (cadr #{x\ 4819}#)))
+ (list (quote list->vector) #{x\ 4819}#)))))
+ (#{gen-append\ 4798}#
+ (lambda (#{x\ 4829}# #{y\ 4830}#)
+ (if (equal? #{y\ 4830}# (quote (quote ())))
+ #{x\ 4829}#
+ (list (quote append) #{x\ 4829}# #{y\ 4830}#))))
+ (#{gen-cons\ 4796}#
+ (lambda (#{x\ 4834}# #{y\ 4835}#)
+ (let ((#{atom-key\ 4840}# (car #{y\ 4835}#)))
+ (if (memv #{atom-key\ 4840}# (quote (quote)))
+ (if (eq? (car #{x\ 4834}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 15425}#)
- (cadr #{y\ 15426}#)))
- (if (eq? (cadr #{y\ 15426}#) (quote ()))
- (list (quote list) #{x\ 15425}#)
- (list (quote cons) #{x\ 15425}# #{y\ 15426}#)))
- (if (memv #{atom-key\ 15431}# (quote (list)))
+ (cons (cadr #{x\ 4834}#) (cadr #{y\ 4835}#)))
+ (if (eq? (cadr #{y\ 4835}#) (quote ()))
+ (list (quote list) #{x\ 4834}#)
+ (list (quote cons) #{x\ 4834}# #{y\ 4835}#)))
+ (if (memv #{atom-key\ 4840}# (quote (list)))
(cons 'list
- (cons #{x\ 15425}# (cdr #{y\ 15426}#)))
- (list (quote cons) #{x\ 15425}# #{y\ 15426}#))))))
- (#{gen-map\ 15385}#
- (lambda (#{e\ 15440}# #{map-env\ 15441}#)
- (let ((#{formals\ 15446}# (map cdr #{map-env\ 15441}#))
- (#{actuals\ 15447}#
- (map (lambda (#{x\ 15448}#)
- (list (quote ref) (car #{x\ 15448}#)))
- #{map-env\ 15441}#)))
- (if (eq? (car #{e\ 15440}#) (quote ref))
- (car #{actuals\ 15447}#)
+ (cons #{x\ 4834}# (cdr #{y\ 4835}#)))
+ (list (quote cons) #{x\ 4834}# #{y\ 4835}#))))))
+ (#{gen-map\ 4794}#
+ (lambda (#{e\ 4849}# #{map-env\ 4850}#)
+ (let ((#{formals\ 4855}# (map cdr #{map-env\ 4850}#))
+ (#{actuals\ 4856}#
+ (map (lambda (#{x\ 4857}#)
+ (list (quote ref) (car #{x\ 4857}#)))
+ #{map-env\ 4850}#)))
+ (if (eq? (car #{e\ 4849}#) (quote ref))
+ (car #{actuals\ 4856}#)
(if (and-map
- (lambda (#{x\ 15455}#)
- (if (eq? (car #{x\ 15455}#) (quote ref))
- (memq (cadr #{x\ 15455}#)
- #{formals\ 15446}#)
+ (lambda (#{x\ 4864}#)
+ (if (eq? (car #{x\ 4864}#) (quote ref))
+ (memq (cadr #{x\ 4864}#) #{formals\ 4855}#)
#f))
- (cdr #{e\ 15440}#))
+ (cdr #{e\ 4849}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 15440}#))
- (map (let ((#{r\ 15461}#
+ (car #{e\ 4849}#))
+ (map (let ((#{r\ 4870}#
(map cons
- #{formals\ 15446}#
- #{actuals\ 15447}#)))
- (lambda (#{x\ 15462}#)
- (cdr (assq (cadr #{x\ 15462}#)
- #{r\ 15461}#))))
- (cdr #{e\ 15440}#))))
+ #{formals\ 4855}#
+ #{actuals\ 4856}#)))
+ (lambda (#{x\ 4871}#)
+ (cdr (assq (cadr #{x\ 4871}#)
+ #{r\ 4870}#))))
+ (cdr #{e\ 4849}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 15446}#
- #{e\ 15440}#)
- #{actuals\ 15447}#)))))))
- (#{gen-mappend\ 15383}#
- (lambda (#{e\ 15466}# #{map-env\ 15467}#)
+ #{formals\ 4855}#
+ #{e\ 4849}#)
+ #{actuals\ 4856}#)))))))
+ (#{gen-mappend\ 4792}#
+ (lambda (#{e\ 4875}# #{map-env\ 4876}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 15385}#
- #{e\ 15466}#
- #{map-env\ 15467}#))))
- (#{gen-ref\ 15381}#
- (lambda (#{src\ 15471}#
- #{var\ 15472}#
- #{level\ 15473}#
- #{maps\ 15474}#)
- (if (#{fx=\ 12821}# #{level\ 15473}# 0)
- (values #{var\ 15472}# #{maps\ 15474}#)
- (if (null? #{maps\ 15474}#)
+ (#{gen-map\ 4794}# #{e\ 4875}# #{map-env\ 4876}#))))
+ (#{gen-ref\ 4790}#
+ (lambda (#{src\ 4880}#
+ #{var\ 4881}#
+ #{level\ 4882}#
+ #{maps\ 4883}#)
+ (if (#{fx=\ 2258}# #{level\ 4882}# 0)
+ (values #{var\ 4881}# #{maps\ 4883}#)
+ (if (null? #{maps\ 4883}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 15471}#)
+ #{src\ 4880}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 15381}#
- #{src\ 15471}#
- #{var\ 15472}#
- (#{fx-\ 12819}# #{level\ 15473}# 1)
- (cdr #{maps\ 15474}#)))
- (lambda (#{outer-var\ 15479}# #{outer-maps\ 15480}#)
- (let ((#{b\ 15484}#
- (assq #{outer-var\ 15479}#
- (car #{maps\ 15474}#))))
- (if #{b\ 15484}#
- (values (cdr #{b\ 15484}#) #{maps\ 15474}#)
- (let ((#{inner-var\ 15486}#
- (#{gen-var\ 13029}# (quote tmp))))
+ (#{gen-ref\ 4790}#
+ #{src\ 4880}#
+ #{var\ 4881}#
+ (#{fx-\ 2256}# #{level\ 4882}# 1)
+ (cdr #{maps\ 4883}#)))
+ (lambda (#{outer-var\ 4888}# #{outer-maps\ 4889}#)
+ (let ((#{b\ 4893}#
+ (assq #{outer-var\ 4888}#
+ (car #{maps\ 4883}#))))
+ (if #{b\ 4893}#
+ (values (cdr #{b\ 4893}#) #{maps\ 4883}#)
+ (let ((#{inner-var\ 4895}#
+ (#{gen-var\ 2466}# (quote tmp))))
(values
- #{inner-var\ 15486}#
- (cons (cons (cons #{outer-var\ 15479}#
- #{inner-var\ 15486}#)
- (car #{maps\ 15474}#))
- #{outer-maps\ 15480}#)))))))))))
- (#{gen-syntax\ 15379}#
- (lambda (#{src\ 15487}#
- #{e\ 15488}#
- #{r\ 15489}#
- #{maps\ 15490}#
- #{ellipsis?\ 15491}#
- #{mod\ 15492}#)
- (if (#{id?\ 12916}# #{e\ 15488}#)
- (let ((#{label\ 15500}#
- (#{id-var-name\ 12973}#
- #{e\ 15488}#
+ #{inner-var\ 4895}#
+ (cons (cons (cons #{outer-var\ 4888}#
+ #{inner-var\ 4895}#)
+ (car #{maps\ 4883}#))
+ #{outer-maps\ 4889}#)))))))))))
+ (#{gen-syntax\ 4788}#
+ (lambda (#{src\ 4896}#
+ #{e\ 4897}#
+ #{r\ 4898}#
+ #{maps\ 4899}#
+ #{ellipsis?\ 4900}#
+ #{mod\ 4901}#)
+ (if (#{id?\ 2353}# #{e\ 4897}#)
+ (let ((#{label\ 4909}#
+ (#{id-var-name\ 2410}#
+ #{e\ 4897}#
'(()))))
- (let ((#{b\ 15503}#
- (#{lookup\ 12910}#
- #{label\ 15500}#
- #{r\ 15489}#
- #{mod\ 15492}#)))
- (if (eq? (#{binding-type\ 12899}# #{b\ 15503}#)
+ (let ((#{b\ 4912}#
+ (#{lookup\ 2347}#
+ #{label\ 4909}#
+ #{r\ 4898}#
+ #{mod\ 4901}#)))
+ (if (eq? (#{binding-type\ 2336}# #{b\ 4912}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 15505}#
- (#{binding-value\ 12901}#
- #{b\ 15503}#)))
- (#{gen-ref\ 15381}#
- #{src\ 15487}#
- (car #{var.lev\ 15505}#)
- (cdr #{var.lev\ 15505}#)
- #{maps\ 15490}#)))
- (lambda (#{var\ 15506}# #{maps\ 15507}#)
+ (let ((#{var.lev\ 4914}#
+ (#{binding-value\ 2338}#
+ #{b\ 4912}#)))
+ (#{gen-ref\ 4790}#
+ #{src\ 4896}#
+ (car #{var.lev\ 4914}#)
+ (cdr #{var.lev\ 4914}#)
+ #{maps\ 4899}#)))
+ (lambda (#{var\ 4915}# #{maps\ 4916}#)
(values
- (list (quote ref) #{var\ 15506}#)
- #{maps\ 15507}#)))
- (if (#{ellipsis?\ 15491}# #{e\ 15488}#)
+ (list (quote ref) #{var\ 4915}#)
+ #{maps\ 4916}#)))
+ (if (#{ellipsis?\ 4900}# #{e\ 4897}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 15487}#)
+ #{src\ 4896}#)
(values
- (list (quote quote) #{e\ 15488}#)
- #{maps\ 15490}#)))))
- ((lambda (#{tmp\ 15512}#)
- ((lambda (#{tmp\ 15513}#)
- (if (if #{tmp\ 15513}#
- (apply (lambda (#{dots\ 15516}#
- #{e\ 15517}#)
- (#{ellipsis?\ 15491}#
- #{dots\ 15516}#))
- #{tmp\ 15513}#)
+ (list (quote quote) #{e\ 4897}#)
+ #{maps\ 4899}#)))))
+ ((lambda (#{tmp\ 4921}#)
+ ((lambda (#{tmp\ 4922}#)
+ (if (if #{tmp\ 4922}#
+ (apply (lambda (#{dots\ 4925}# #{e\ 4926}#)
+ (#{ellipsis?\ 4900}#
+ #{dots\ 4925}#))
+ #{tmp\ 4922}#)
#f)
- (apply (lambda (#{dots\ 15520}# #{e\ 15521}#)
- (#{gen-syntax\ 15379}#
- #{src\ 15487}#
- #{e\ 15521}#
- #{r\ 15489}#
- #{maps\ 15490}#
- (lambda (#{x\ 15522}#) #f)
- #{mod\ 15492}#))
- #{tmp\ 15513}#)
- ((lambda (#{tmp\ 15524}#)
- (if (if #{tmp\ 15524}#
- (apply (lambda (#{x\ 15528}#
- #{dots\ 15529}#
- #{y\ 15530}#)
- (#{ellipsis?\ 15491}#
- #{dots\ 15529}#))
- #{tmp\ 15524}#)
+ (apply (lambda (#{dots\ 4929}# #{e\ 4930}#)
+ (#{gen-syntax\ 4788}#
+ #{src\ 4896}#
+ #{e\ 4930}#
+ #{r\ 4898}#
+ #{maps\ 4899}#
+ (lambda (#{x\ 4931}#) #f)
+ #{mod\ 4901}#))
+ #{tmp\ 4922}#)
+ ((lambda (#{tmp\ 4933}#)
+ (if (if #{tmp\ 4933}#
+ (apply (lambda (#{x\ 4937}#
+ #{dots\ 4938}#
+ #{y\ 4939}#)
+ (#{ellipsis?\ 4900}#
+ #{dots\ 4938}#))
+ #{tmp\ 4933}#)
#f)
- (apply (lambda (#{x\ 15534}#
- #{dots\ 15535}#
- #{y\ 15536}#)
- (letrec ((#{f\ 15540}#
- (lambda (#{y\ 15541}#
- #{k\ 15542}#)
- ((lambda (#{tmp\ 15549}#)
- ((lambda (#{tmp\ 15550}#)
- (if (if #{tmp\ 15550}#
- (apply (lambda (#{dots\ 15553}#
- #{y\ 15554}#)
- (#{ellipsis?\ 15491}#
- #{dots\ 15553}#))
- #{tmp\ 15550}#)
+ (apply (lambda (#{x\ 4943}#
+ #{dots\ 4944}#
+ #{y\ 4945}#)
+ (letrec ((#{f\ 4949}#
+ (lambda (#{y\ 4950}#
+ #{k\ 4951}#)
+ ((lambda (#{tmp\ 4958}#)
+ ((lambda (#{tmp\ 4959}#)
+ (if (if #{tmp\ 4959}#
+ (apply (lambda (#{dots\ 4962}#
+ #{y\ 4963}#)
+ (#{ellipsis?\ 4900}#
+ #{dots\ 4962}#))
+ #{tmp\ 4959}#)
#f)
- (apply (lambda (#{dots\ 15557}#
- #{y\ 15558}#)
- (#{f\ 15540}#
- #{y\ 15558}#
- (lambda (#{maps\ 15559}#)
+ (apply (lambda (#{dots\ 4966}#
+ #{y\ 4967}#)
+ (#{f\ 4949}#
+ #{y\ 4967}#
+ (lambda (#{maps\ 4968}#)
(call-with-values
(lambda ()
- (#{k\ 15542}#
+ (#{k\ 4951}#
(cons '()
- #{maps\ 15559}#)))
- (lambda (#{x\ 15561}#
- #{maps\ 15562}#)
- (if (null? (car #{maps\ 15562}#))
+ #{maps\ 4968}#)))
+ (lambda (#{x\ 4970}#
+ #{maps\ 4971}#)
+ (if (null? (car #{maps\ 4971}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 15487}#)
+ #{src\ 4896}#)
(values
- (#{gen-mappend\ 15383}#
- #{x\ 15561}#
- (car #{maps\ 15562}#))
- (cdr #{maps\ 15562}#))))))))
- #{tmp\ 15550}#)
- ((lambda (#{_\ 15566}#)
+ (#{gen-mappend\ 4792}#
+ #{x\ 4970}#
+ (car #{maps\ 4971}#))
+ (cdr #{maps\ 4971}#))))))))
+ #{tmp\ 4959}#)
+ ((lambda (#{_\ 4975}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 15379}#
- #{src\ 15487}#
- #{y\ 15541}#
- #{r\ 15489}#
- #{maps\ 15490}#
- #{ellipsis?\ 15491}#
- #{mod\ 15492}#))
- (lambda (#{y\ 15567}#
- #{maps\ 15568}#)
+ (#{gen-syntax\ 4788}#
+ #{src\ 4896}#
+ #{y\ 4950}#
+ #{r\ 4898}#
+ #{maps\ 4899}#
+ #{ellipsis?\ 4900}#
+ #{mod\ 4901}#))
+ (lambda (#{y\ 4976}#
+ #{maps\ 4977}#)
(call-with-values
(lambda ()
- (#{k\ 15542}#
- #{maps\ 15568}#))
- (lambda (#{x\ 15571}#
- #{maps\ 15572}#)
+ (#{k\ 4951}#
+ #{maps\ 4977}#))
+ (lambda (#{x\ 4980}#
+ #{maps\ 4981}#)
(values
- (#{gen-append\ 15389}#
- #{x\ 15571}#
- #{y\ 15567}#)
- #{maps\ 15572}#))))))
- #{tmp\ 15549}#)))
+ (#{gen-append\ 4798}#
+ #{x\ 4980}#
+ #{y\ 4976}#)
+ #{maps\ 4981}#))))))
+ #{tmp\ 4958}#)))
($sc-dispatch
- #{tmp\ 15549}#
+ #{tmp\ 4958}#
'(any . any))))
- #{y\ 15541}#))))
- (#{f\ 15540}#
- #{y\ 15536}#
- (lambda (#{maps\ 15543}#)
+ #{y\ 4950}#))))
+ (#{f\ 4949}#
+ #{y\ 4945}#
+ (lambda (#{maps\ 4952}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 15379}#
- #{src\ 15487}#
- #{x\ 15534}#
- #{r\ 15489}#
+ (#{gen-syntax\ 4788}#
+ #{src\ 4896}#
+ #{x\ 4943}#
+ #{r\ 4898}#
(cons '()
- #{maps\ 15543}#)
- #{ellipsis?\ 15491}#
- #{mod\ 15492}#))
- (lambda (#{x\ 15545}#
- #{maps\ 15546}#)
- (if (null? (car #{maps\ 15546}#))
+ #{maps\ 4952}#)
+ #{ellipsis?\ 4900}#
+ #{mod\ 4901}#))
+ (lambda (#{x\ 4954}#
+ #{maps\ 4955}#)
+ (if (null? (car #{maps\ 4955}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 15487}#)
+ #{src\ 4896}#)
(values
- (#{gen-map\ 15385}#
- #{x\ 15545}#
- (car #{maps\ 15546}#))
- (cdr #{maps\ 15546}#)))))))))
- #{tmp\ 15524}#)
- ((lambda (#{tmp\ 15575}#)
- (if #{tmp\ 15575}#
- (apply (lambda (#{x\ 15578}#
- #{y\ 15579}#)
+ (#{gen-map\ 4794}#
+ #{x\ 4954}#
+ (car #{maps\ 4955}#))
+ (cdr #{maps\ 4955}#)))))))))
+ #{tmp\ 4933}#)
+ ((lambda (#{tmp\ 4984}#)
+ (if #{tmp\ 4984}#
+ (apply (lambda (#{x\ 4987}#
+ #{y\ 4988}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 15379}#
- #{src\ 15487}#
- #{x\ 15578}#
- #{r\ 15489}#
- #{maps\ 15490}#
- #{ellipsis?\ 15491}#
- #{mod\ 15492}#))
- (lambda (#{x\ 15580}#
- #{maps\ 15581}#)
+ (#{gen-syntax\ 4788}#
+ #{src\ 4896}#
+ #{x\ 4987}#
+ #{r\ 4898}#
+ #{maps\ 4899}#
+ #{ellipsis?\ 4900}#
+ #{mod\ 4901}#))
+ (lambda (#{x\ 4989}#
+ #{maps\ 4990}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 15379}#
- #{src\ 15487}#
- #{y\ 15579}#
- #{r\ 15489}#
- #{maps\ 15581}#
- #{ellipsis?\ 15491}#
- #{mod\ 15492}#))
- (lambda (#{y\ 15584}#
- #{maps\ 15585}#)
+ (#{gen-syntax\ 4788}#
+ #{src\ 4896}#
+ #{y\ 4988}#
+ #{r\ 4898}#
+ #{maps\ 4990}#
+ #{ellipsis?\ 4900}#
+ #{mod\ 4901}#))
+ (lambda (#{y\ 4993}#
+ #{maps\ 4994}#)
(values
- (#{gen-cons\ 15387}#
- #{x\ 15580}#
- #{y\ 15584}#)
- #{maps\ 15585}#))))))
- #{tmp\ 15575}#)
- ((lambda (#{tmp\ 15588}#)
- (if #{tmp\ 15588}#
- (apply (lambda (#{e1\ 15591}#
- #{e2\ 15592}#)
+ (#{gen-cons\ 4796}#
+ #{x\ 4989}#
+ #{y\ 4993}#)
+ #{maps\ 4994}#))))))
+ #{tmp\ 4984}#)
+ ((lambda (#{tmp\ 4997}#)
+ (if #{tmp\ 4997}#
+ (apply (lambda (#{e1\ 5000}#
+ #{e2\ 5001}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 15379}#
- #{src\ 15487}#
- (cons #{e1\ 15591}#
- #{e2\ 15592}#)
- #{r\ 15489}#
- #{maps\ 15490}#
- #{ellipsis?\ 15491}#
- #{mod\ 15492}#))
- (lambda (#{e\ 15594}#
- #{maps\ 15595}#)
+ (#{gen-syntax\ 4788}#
+ #{src\ 4896}#
+ (cons #{e1\ 5000}#
+ #{e2\ 5001}#)
+ #{r\ 4898}#
+ #{maps\ 4899}#
+ #{ellipsis?\ 4900}#
+ #{mod\ 4901}#))
+ (lambda (#{e\ 5003}#
+ #{maps\ 5004}#)
(values
- (#{gen-vector\ 15391}#
- #{e\ 15594}#)
- #{maps\ 15595}#))))
- #{tmp\ 15588}#)
- ((lambda (#{_\ 15599}#)
+ (#{gen-vector\ 4800}#
+ #{e\ 5003}#)
+ #{maps\ 5004}#))))
+ #{tmp\ 4997}#)
+ ((lambda (#{_\ 5008}#)
(values
(list 'quote
- #{e\ 15488}#)
- #{maps\ 15490}#))
- #{tmp\ 15512}#)))
+ #{e\ 4897}#)
+ #{maps\ 4899}#))
+ #{tmp\ 4921}#)))
($sc-dispatch
- #{tmp\ 15512}#
+ #{tmp\ 4921}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 15512}#
+ #{tmp\ 4921}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 15512}#
+ #{tmp\ 4921}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 15512}# (quote (any any)))))
- #{e\ 15488}#)))))
- (lambda (#{e\ 15601}#
- #{r\ 15602}#
- #{w\ 15603}#
- #{s\ 15604}#
- #{mod\ 15605}#)
- (let ((#{e\ 15612}#
- (#{source-wrap\ 12987}#
- #{e\ 15601}#
- #{w\ 15603}#
- #{s\ 15604}#
- #{mod\ 15605}#)))
- ((lambda (#{tmp\ 15613}#)
- ((lambda (#{tmp\ 15614}#)
- (if #{tmp\ 15614}#
- (apply (lambda (#{_\ 15617}# #{x\ 15618}#)
+ ($sc-dispatch #{tmp\ 4921}# (quote (any any)))))
+ #{e\ 4897}#)))))
+ (lambda (#{e\ 5010}#
+ #{r\ 5011}#
+ #{w\ 5012}#
+ #{s\ 5013}#
+ #{mod\ 5014}#)
+ (let ((#{e\ 5021}#
+ (#{source-wrap\ 2424}#
+ #{e\ 5010}#
+ #{w\ 5012}#
+ #{s\ 5013}#
+ #{mod\ 5014}#)))
+ ((lambda (#{tmp\ 5022}#)
+ ((lambda (#{tmp\ 5023}#)
+ (if #{tmp\ 5023}#
+ (apply (lambda (#{_\ 5026}# #{x\ 5027}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 15379}#
- #{e\ 15612}#
- #{x\ 15618}#
- #{r\ 15602}#
+ (#{gen-syntax\ 4788}#
+ #{e\ 5021}#
+ #{x\ 5027}#
+ #{r\ 5011}#
'()
- #{ellipsis?\ 13017}#
- #{mod\ 15605}#))
- (lambda (#{e\ 15619}# #{maps\ 15620}#)
- (#{regen\ 15393}# #{e\ 15619}#))))
- #{tmp\ 15614}#)
- ((lambda (#{_\ 15624}#)
+ #{ellipsis?\ 2454}#
+ #{mod\ 5014}#))
+ (lambda (#{e\ 5028}# #{maps\ 5029}#)
+ (#{regen\ 4802}# #{e\ 5028}#))))
+ #{tmp\ 5023}#)
+ ((lambda (#{_\ 5033}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 15612}#))
- #{tmp\ 15613}#)))
- ($sc-dispatch #{tmp\ 15613}# (quote (any any)))))
- #{e\ 15612}#)))))
- (#{global-extend\ 12912}#
+ #{e\ 5021}#))
+ #{tmp\ 5022}#)))
+ ($sc-dispatch #{tmp\ 5022}# (quote (any any)))))
+ #{e\ 5021}#)))))
+ (#{global-extend\ 2349}#
'core
'lambda
- (lambda (#{e\ 15625}#
- #{r\ 15626}#
- #{w\ 15627}#
- #{s\ 15628}#
- #{mod\ 15629}#)
- ((lambda (#{tmp\ 15635}#)
- ((lambda (#{tmp\ 15636}#)
- (if #{tmp\ 15636}#
- (apply (lambda (#{_\ 15641}#
- #{args\ 15642}#
- #{e1\ 15643}#
- #{e2\ 15644}#)
+ (lambda (#{e\ 5034}#
+ #{r\ 5035}#
+ #{w\ 5036}#
+ #{s\ 5037}#
+ #{mod\ 5038}#)
+ ((lambda (#{tmp\ 5044}#)
+ ((lambda (#{tmp\ 5045}#)
+ (if #{tmp\ 5045}#
+ (apply (lambda (#{_\ 5050}#
+ #{args\ 5051}#
+ #{e1\ 5052}#
+ #{e2\ 5053}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 13019}# #{args\ 15642}#))
- (lambda (#{req\ 15645}#
- #{opt\ 15646}#
- #{rest\ 15647}#
- #{kw\ 15648}#)
- (letrec ((#{lp\ 15656}#
- (lambda (#{body\ 15657}#
- #{meta\ 15658}#)
- ((lambda (#{tmp\ 15660}#)
- ((lambda (#{tmp\ 15661}#)
- (if (if #{tmp\ 15661}#
- (apply (lambda (#{docstring\ 15665}#
- #{e1\ 15666}#
- #{e2\ 15667}#)
+ (#{lambda-formals\ 2456}# #{args\ 5051}#))
+ (lambda (#{req\ 5054}#
+ #{opt\ 5055}#
+ #{rest\ 5056}#
+ #{kw\ 5057}#)
+ (letrec ((#{lp\ 5065}#
+ (lambda (#{body\ 5066}#
+ #{meta\ 5067}#)
+ ((lambda (#{tmp\ 5069}#)
+ ((lambda (#{tmp\ 5070}#)
+ (if (if #{tmp\ 5070}#
+ (apply (lambda (#{docstring\ 5074}#
+ #{e1\ 5075}#
+ #{e2\ 5076}#)
(string?
(syntax->datum
- #{docstring\ 15665}#)))
- #{tmp\ 15661}#)
+ #{docstring\ 5074}#)))
+ #{tmp\ 5070}#)
#f)
- (apply (lambda (#{docstring\ 15671}#
- #{e1\ 15672}#
- #{e2\ 15673}#)
- (#{lp\ 15656}#
- (cons #{e1\ 15672}#
- #{e2\ 15673}#)
+ (apply (lambda (#{docstring\ 5080}#
+ #{e1\ 5081}#
+ #{e2\ 5082}#)
+ (#{lp\ 5065}#
+ (cons #{e1\ 5081}#
+ #{e2\ 5082}#)
(append
- #{meta\ 15658}#
+ #{meta\ 5067}#
(list (cons 'documentation
(syntax->datum
- #{docstring\ 15671}#))))))
- #{tmp\ 15661}#)
- ((lambda (#{tmp\ 15676}#)
- (if #{tmp\ 15676}#
- (apply (lambda (#{k\ 15681}#
- #{v\ 15682}#
- #{e1\ 15683}#
- #{e2\ 15684}#)
- (#{lp\ 15656}#
- (cons #{e1\ 15683}#
- #{e2\ 15684}#)
+ #{docstring\ 5080}#))))))
+ #{tmp\ 5070}#)
+ ((lambda (#{tmp\ 5085}#)
+ (if #{tmp\ 5085}#
+ (apply (lambda (#{k\ 5090}#
+ #{v\ 5091}#
+ #{e1\ 5092}#
+ #{e2\ 5093}#)
+ (#{lp\ 5065}#
+ (cons #{e1\ 5092}#
+ #{e2\ 5093}#)
(append
- #{meta\ 15658}#
+ #{meta\ 5067}#
(syntax->datum
(map cons
- #{k\ 15681}#
- #{v\ 15682}#)))))
- #{tmp\ 15676}#)
- ((lambda (#{_\ 15689}#)
- (#{chi-simple-lambda\ 13021}#
- #{e\ 15625}#
- #{r\ 15626}#
- #{w\ 15627}#
- #{s\ 15628}#
- #{mod\ 15629}#
- #{req\ 15645}#
- #{rest\ 15647}#
- #{meta\ 15658}#
- #{body\ 15657}#))
- #{tmp\ 15660}#)))
+ #{k\ 5090}#
+ #{v\ 5091}#)))))
+ #{tmp\ 5085}#)
+ ((lambda (#{_\ 5098}#)
+ (#{chi-simple-lambda\ 2458}#
+ #{e\ 5034}#
+ #{r\ 5035}#
+ #{w\ 5036}#
+ #{s\ 5037}#
+ #{mod\ 5038}#
+ #{req\ 5054}#
+ #{rest\ 5056}#
+ #{meta\ 5067}#
+ #{body\ 5066}#))
+ #{tmp\ 5069}#)))
($sc-dispatch
- #{tmp\ 15660}#
+ #{tmp\ 5069}#
'(#(vector
#(each (any . any)))
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 15660}#
+ #{tmp\ 5069}#
'(any any . each-any))))
- #{body\ 15657}#))))
- (#{lp\ 15656}#
- (cons #{e1\ 15643}# #{e2\ 15644}#)
+ #{body\ 5066}#))))
+ (#{lp\ 5065}#
+ (cons #{e1\ 5052}# #{e2\ 5053}#)
'())))))
- #{tmp\ 15636}#)
- ((lambda (#{_\ 15691}#)
+ #{tmp\ 5045}#)
+ ((lambda (#{_\ 5100}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 15625}#))
- #{tmp\ 15635}#)))
+ #{e\ 5034}#))
+ #{tmp\ 5044}#)))
($sc-dispatch
- #{tmp\ 15635}#
+ #{tmp\ 5044}#
'(any any any . each-any))))
- #{e\ 15625}#)))
- (#{global-extend\ 12912}#
+ #{e\ 5034}#)))
+ (#{global-extend\ 2349}#
'core
'lambda*
- (lambda (#{e\ 15692}#
- #{r\ 15693}#
- #{w\ 15694}#
- #{s\ 15695}#
- #{mod\ 15696}#)
- ((lambda (#{tmp\ 15702}#)
- ((lambda (#{tmp\ 15703}#)
- (if #{tmp\ 15703}#
- (apply (lambda (#{_\ 15708}#
- #{args\ 15709}#
- #{e1\ 15710}#
- #{e2\ 15711}#)
+ (lambda (#{e\ 5101}#
+ #{r\ 5102}#
+ #{w\ 5103}#
+ #{s\ 5104}#
+ #{mod\ 5105}#)
+ ((lambda (#{tmp\ 5111}#)
+ ((lambda (#{tmp\ 5112}#)
+ (if #{tmp\ 5112}#
+ (apply (lambda (#{_\ 5117}#
+ #{args\ 5118}#
+ #{e1\ 5119}#
+ #{e2\ 5120}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 13025}#
- #{e\ 15692}#
- #{r\ 15693}#
- #{w\ 15694}#
- #{s\ 15695}#
- #{mod\ 15696}#
- #{lambda*-formals\ 13023}#
- (list (cons #{args\ 15709}#
- (cons #{e1\ 15710}#
- #{e2\ 15711}#)))))
- (lambda (#{meta\ 15713}# #{lcase\ 15714}#)
- (#{build-case-lambda\ 12860}#
- #{s\ 15695}#
- #{meta\ 15713}#
- #{lcase\ 15714}#))))
- #{tmp\ 15703}#)
- ((lambda (#{_\ 15718}#)
+ (#{chi-lambda-case\ 2462}#
+ #{e\ 5101}#
+ #{r\ 5102}#
+ #{w\ 5103}#
+ #{s\ 5104}#
+ #{mod\ 5105}#
+ #{lambda*-formals\ 2460}#
+ (list (cons #{args\ 5118}#
+ (cons #{e1\ 5119}#
+ #{e2\ 5120}#)))))
+ (lambda (#{meta\ 5122}# #{lcase\ 5123}#)
+ (#{build-case-lambda\ 2297}#
+ #{s\ 5104}#
+ #{meta\ 5122}#
+ #{lcase\ 5123}#))))
+ #{tmp\ 5112}#)
+ ((lambda (#{_\ 5127}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 15692}#))
- #{tmp\ 15702}#)))
+ #{e\ 5101}#))
+ #{tmp\ 5111}#)))
($sc-dispatch
- #{tmp\ 15702}#
+ #{tmp\ 5111}#
'(any any any . each-any))))
- #{e\ 15692}#)))
- (#{global-extend\ 12912}#
+ #{e\ 5101}#)))
+ (#{global-extend\ 2349}#
'core
'case-lambda
- (lambda (#{e\ 15719}#
- #{r\ 15720}#
- #{w\ 15721}#
- #{s\ 15722}#
- #{mod\ 15723}#)
- ((lambda (#{tmp\ 15729}#)
- ((lambda (#{tmp\ 15730}#)
- (if #{tmp\ 15730}#
- (apply (lambda (#{_\ 15738}#
- #{args\ 15739}#
- #{e1\ 15740}#
- #{e2\ 15741}#
- #{args*\ 15742}#
- #{e1*\ 15743}#
- #{e2*\ 15744}#)
+ (lambda (#{e\ 5128}#
+ #{r\ 5129}#
+ #{w\ 5130}#
+ #{s\ 5131}#
+ #{mod\ 5132}#)
+ ((lambda (#{tmp\ 5138}#)
+ ((lambda (#{tmp\ 5139}#)
+ (if #{tmp\ 5139}#
+ (apply (lambda (#{_\ 5147}#
+ #{args\ 5148}#
+ #{e1\ 5149}#
+ #{e2\ 5150}#
+ #{args*\ 5151}#
+ #{e1*\ 5152}#
+ #{e2*\ 5153}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 13025}#
- #{e\ 15719}#
- #{r\ 15720}#
- #{w\ 15721}#
- #{s\ 15722}#
- #{mod\ 15723}#
- #{lambda-formals\ 13019}#
- (cons (cons #{args\ 15739}#
- (cons #{e1\ 15740}#
- #{e2\ 15741}#))
- (map (lambda (#{tmp\ 15748}#
- #{tmp\ 15747}#
- #{tmp\ 15746}#)
- (cons #{tmp\ 15746}#
- (cons #{tmp\ 15747}#
- #{tmp\ 15748}#)))
- #{e2*\ 15744}#
- #{e1*\ 15743}#
- #{args*\ 15742}#))))
- (lambda (#{meta\ 15750}# #{lcase\ 15751}#)
- (#{build-case-lambda\ 12860}#
- #{s\ 15722}#
- #{meta\ 15750}#
- #{lcase\ 15751}#))))
- #{tmp\ 15730}#)
- ((lambda (#{_\ 15755}#)
+ (#{chi-lambda-case\ 2462}#
+ #{e\ 5128}#
+ #{r\ 5129}#
+ #{w\ 5130}#
+ #{s\ 5131}#
+ #{mod\ 5132}#
+ #{lambda-formals\ 2456}#
+ (cons (cons #{args\ 5148}#
+ (cons #{e1\ 5149}# #{e2\ 5150}#))
+ (map (lambda (#{tmp\ 5157}#
+ #{tmp\ 5156}#
+ #{tmp\ 5155}#)
+ (cons #{tmp\ 5155}#
+ (cons #{tmp\ 5156}#
+ #{tmp\ 5157}#)))
+ #{e2*\ 5153}#
+ #{e1*\ 5152}#
+ #{args*\ 5151}#))))
+ (lambda (#{meta\ 5159}# #{lcase\ 5160}#)
+ (#{build-case-lambda\ 2297}#
+ #{s\ 5131}#
+ #{meta\ 5159}#
+ #{lcase\ 5160}#))))
+ #{tmp\ 5139}#)
+ ((lambda (#{_\ 5164}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 15719}#))
- #{tmp\ 15729}#)))
+ #{e\ 5128}#))
+ #{tmp\ 5138}#)))
($sc-dispatch
- #{tmp\ 15729}#
+ #{tmp\ 5138}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 15719}#)))
- (#{global-extend\ 12912}#
+ #{e\ 5128}#)))
+ (#{global-extend\ 2349}#
'core
'case-lambda*
- (lambda (#{e\ 15756}#
- #{r\ 15757}#
- #{w\ 15758}#
- #{s\ 15759}#
- #{mod\ 15760}#)
- ((lambda (#{tmp\ 15766}#)
- ((lambda (#{tmp\ 15767}#)
- (if #{tmp\ 15767}#
- (apply (lambda (#{_\ 15775}#
- #{args\ 15776}#
- #{e1\ 15777}#
- #{e2\ 15778}#
- #{args*\ 15779}#
- #{e1*\ 15780}#
- #{e2*\ 15781}#)
+ (lambda (#{e\ 5165}#
+ #{r\ 5166}#
+ #{w\ 5167}#
+ #{s\ 5168}#
+ #{mod\ 5169}#)
+ ((lambda (#{tmp\ 5175}#)
+ ((lambda (#{tmp\ 5176}#)
+ (if #{tmp\ 5176}#
+ (apply (lambda (#{_\ 5184}#
+ #{args\ 5185}#
+ #{e1\ 5186}#
+ #{e2\ 5187}#
+ #{args*\ 5188}#
+ #{e1*\ 5189}#
+ #{e2*\ 5190}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 13025}#
- #{e\ 15756}#
- #{r\ 15757}#
- #{w\ 15758}#
- #{s\ 15759}#
- #{mod\ 15760}#
- #{lambda*-formals\ 13023}#
- (cons (cons #{args\ 15776}#
- (cons #{e1\ 15777}#
- #{e2\ 15778}#))
- (map (lambda (#{tmp\ 15785}#
- #{tmp\ 15784}#
- #{tmp\ 15783}#)
- (cons #{tmp\ 15783}#
- (cons #{tmp\ 15784}#
- #{tmp\ 15785}#)))
- #{e2*\ 15781}#
- #{e1*\ 15780}#
- #{args*\ 15779}#))))
- (lambda (#{meta\ 15787}# #{lcase\ 15788}#)
- (#{build-case-lambda\ 12860}#
- #{s\ 15759}#
- #{meta\ 15787}#
- #{lcase\ 15788}#))))
- #{tmp\ 15767}#)
- ((lambda (#{_\ 15792}#)
+ (#{chi-lambda-case\ 2462}#
+ #{e\ 5165}#
+ #{r\ 5166}#
+ #{w\ 5167}#
+ #{s\ 5168}#
+ #{mod\ 5169}#
+ #{lambda*-formals\ 2460}#
+ (cons (cons #{args\ 5185}#
+ (cons #{e1\ 5186}# #{e2\ 5187}#))
+ (map (lambda (#{tmp\ 5194}#
+ #{tmp\ 5193}#
+ #{tmp\ 5192}#)
+ (cons #{tmp\ 5192}#
+ (cons #{tmp\ 5193}#
+ #{tmp\ 5194}#)))
+ #{e2*\ 5190}#
+ #{e1*\ 5189}#
+ #{args*\ 5188}#))))
+ (lambda (#{meta\ 5196}# #{lcase\ 5197}#)
+ (#{build-case-lambda\ 2297}#
+ #{s\ 5168}#
+ #{meta\ 5196}#
+ #{lcase\ 5197}#))))
+ #{tmp\ 5176}#)
+ ((lambda (#{_\ 5201}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 15756}#))
- #{tmp\ 15766}#)))
+ #{e\ 5165}#))
+ #{tmp\ 5175}#)))
($sc-dispatch
- #{tmp\ 15766}#
+ #{tmp\ 5175}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 15756}#)))
- (#{global-extend\ 12912}#
+ #{e\ 5165}#)))
+ (#{global-extend\ 2349}#
'core
'let
- (letrec ((#{chi-let\ 15794}#
- (lambda (#{e\ 15795}#
- #{r\ 15796}#
- #{w\ 15797}#
- #{s\ 15798}#
- #{mod\ 15799}#
- #{constructor\ 15800}#
- #{ids\ 15801}#
- #{vals\ 15802}#
- #{exps\ 15803}#)
- (if (not (#{valid-bound-ids?\ 12979}# #{ids\ 15801}#))
+ (letrec ((#{chi-let\ 5203}#
+ (lambda (#{e\ 5204}#
+ #{r\ 5205}#
+ #{w\ 5206}#
+ #{s\ 5207}#
+ #{mod\ 5208}#
+ #{constructor\ 5209}#
+ #{ids\ 5210}#
+ #{vals\ 5211}#
+ #{exps\ 5212}#)
+ (if (not (#{valid-bound-ids?\ 2416}# #{ids\ 5210}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 15795}#)
- (let ((#{labels\ 15815}#
- (#{gen-labels\ 12934}# #{ids\ 15801}#))
- (#{new-vars\ 15816}#
- (map #{gen-var\ 13029}# #{ids\ 15801}#)))
- (let ((#{nw\ 15819}#
- (#{make-binding-wrap\ 12963}#
- #{ids\ 15801}#
- #{labels\ 15815}#
- #{w\ 15797}#))
- (#{nr\ 15820}#
- (#{extend-var-env\ 12906}#
- #{labels\ 15815}#
- #{new-vars\ 15816}#
- #{r\ 15796}#)))
- (#{constructor\ 15800}#
- #{s\ 15798}#
- (map syntax->datum #{ids\ 15801}#)
- #{new-vars\ 15816}#
- (map (lambda (#{x\ 15821}#)
- (#{chi\ 13001}#
- #{x\ 15821}#
- #{r\ 15796}#
- #{w\ 15797}#
- #{mod\ 15799}#))
- #{vals\ 15802}#)
- (#{chi-body\ 13009}#
- #{exps\ 15803}#
- (#{source-wrap\ 12987}#
- #{e\ 15795}#
- #{nw\ 15819}#
- #{s\ 15798}#
- #{mod\ 15799}#)
- #{nr\ 15820}#
- #{nw\ 15819}#
- #{mod\ 15799}#))))))))
- (lambda (#{e\ 15823}#
- #{r\ 15824}#
- #{w\ 15825}#
- #{s\ 15826}#
- #{mod\ 15827}#)
- ((lambda (#{tmp\ 15833}#)
- ((lambda (#{tmp\ 15834}#)
- (if (if #{tmp\ 15834}#
- (apply (lambda (#{_\ 15840}#
- #{id\ 15841}#
- #{val\ 15842}#
- #{e1\ 15843}#
- #{e2\ 15844}#)
- (and-map #{id?\ 12916}# #{id\ 15841}#))
- #{tmp\ 15834}#)
+ #{e\ 5204}#)
+ (let ((#{labels\ 5224}#
+ (#{gen-labels\ 2371}# #{ids\ 5210}#))
+ (#{new-vars\ 5225}#
+ (map #{gen-var\ 2466}# #{ids\ 5210}#)))
+ (let ((#{nw\ 5228}#
+ (#{make-binding-wrap\ 2400}#
+ #{ids\ 5210}#
+ #{labels\ 5224}#
+ #{w\ 5206}#))
+ (#{nr\ 5229}#
+ (#{extend-var-env\ 2343}#
+ #{labels\ 5224}#
+ #{new-vars\ 5225}#
+ #{r\ 5205}#)))
+ (#{constructor\ 5209}#
+ #{s\ 5207}#
+ (map syntax->datum #{ids\ 5210}#)
+ #{new-vars\ 5225}#
+ (map (lambda (#{x\ 5230}#)
+ (#{chi\ 2438}#
+ #{x\ 5230}#
+ #{r\ 5205}#
+ #{w\ 5206}#
+ #{mod\ 5208}#))
+ #{vals\ 5211}#)
+ (#{chi-body\ 2446}#
+ #{exps\ 5212}#
+ (#{source-wrap\ 2424}#
+ #{e\ 5204}#
+ #{nw\ 5228}#
+ #{s\ 5207}#
+ #{mod\ 5208}#)
+ #{nr\ 5229}#
+ #{nw\ 5228}#
+ #{mod\ 5208}#))))))))
+ (lambda (#{e\ 5232}#
+ #{r\ 5233}#
+ #{w\ 5234}#
+ #{s\ 5235}#
+ #{mod\ 5236}#)
+ ((lambda (#{tmp\ 5242}#)
+ ((lambda (#{tmp\ 5243}#)
+ (if (if #{tmp\ 5243}#
+ (apply (lambda (#{_\ 5249}#
+ #{id\ 5250}#
+ #{val\ 5251}#
+ #{e1\ 5252}#
+ #{e2\ 5253}#)
+ (and-map #{id?\ 2353}# #{id\ 5250}#))
+ #{tmp\ 5243}#)
#f)
- (apply (lambda (#{_\ 15851}#
- #{id\ 15852}#
- #{val\ 15853}#
- #{e1\ 15854}#
- #{e2\ 15855}#)
- (#{chi-let\ 15794}#
- #{e\ 15823}#
- #{r\ 15824}#
- #{w\ 15825}#
- #{s\ 15826}#
- #{mod\ 15827}#
- #{build-let\ 12870}#
- #{id\ 15852}#
- #{val\ 15853}#
- (cons #{e1\ 15854}# #{e2\ 15855}#)))
- #{tmp\ 15834}#)
- ((lambda (#{tmp\ 15859}#)
- (if (if #{tmp\ 15859}#
- (apply (lambda (#{_\ 15866}#
- #{f\ 15867}#
- #{id\ 15868}#
- #{val\ 15869}#
- #{e1\ 15870}#
- #{e2\ 15871}#)
- (if (#{id?\ 12916}# #{f\ 15867}#)
- (and-map #{id?\ 12916}# #{id\ 15868}#)
+ (apply (lambda (#{_\ 5260}#
+ #{id\ 5261}#
+ #{val\ 5262}#
+ #{e1\ 5263}#
+ #{e2\ 5264}#)
+ (#{chi-let\ 5203}#
+ #{e\ 5232}#
+ #{r\ 5233}#
+ #{w\ 5234}#
+ #{s\ 5235}#
+ #{mod\ 5236}#
+ #{build-let\ 2307}#
+ #{id\ 5261}#
+ #{val\ 5262}#
+ (cons #{e1\ 5263}# #{e2\ 5264}#)))
+ #{tmp\ 5243}#)
+ ((lambda (#{tmp\ 5268}#)
+ (if (if #{tmp\ 5268}#
+ (apply (lambda (#{_\ 5275}#
+ #{f\ 5276}#
+ #{id\ 5277}#
+ #{val\ 5278}#
+ #{e1\ 5279}#
+ #{e2\ 5280}#)
+ (if (#{id?\ 2353}# #{f\ 5276}#)
+ (and-map #{id?\ 2353}# #{id\ 5277}#)
#f))
- #{tmp\ 15859}#)
+ #{tmp\ 5268}#)
#f)
- (apply (lambda (#{_\ 15881}#
- #{f\ 15882}#
- #{id\ 15883}#
- #{val\ 15884}#
- #{e1\ 15885}#
- #{e2\ 15886}#)
- (#{chi-let\ 15794}#
- #{e\ 15823}#
- #{r\ 15824}#
- #{w\ 15825}#
- #{s\ 15826}#
- #{mod\ 15827}#
- #{build-named-let\ 12872}#
- (cons #{f\ 15882}# #{id\ 15883}#)
- #{val\ 15884}#
- (cons #{e1\ 15885}# #{e2\ 15886}#)))
- #{tmp\ 15859}#)
- ((lambda (#{_\ 15891}#)
+ (apply (lambda (#{_\ 5290}#
+ #{f\ 5291}#
+ #{id\ 5292}#
+ #{val\ 5293}#
+ #{e1\ 5294}#
+ #{e2\ 5295}#)
+ (#{chi-let\ 5203}#
+ #{e\ 5232}#
+ #{r\ 5233}#
+ #{w\ 5234}#
+ #{s\ 5235}#
+ #{mod\ 5236}#
+ #{build-named-let\ 2309}#
+ (cons #{f\ 5291}# #{id\ 5292}#)
+ #{val\ 5293}#
+ (cons #{e1\ 5294}# #{e2\ 5295}#)))
+ #{tmp\ 5268}#)
+ ((lambda (#{_\ 5300}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 12987}#
- #{e\ 15823}#
- #{w\ 15825}#
- #{s\ 15826}#
- #{mod\ 15827}#)))
- #{tmp\ 15833}#)))
+ (#{source-wrap\ 2424}#
+ #{e\ 5232}#
+ #{w\ 5234}#
+ #{s\ 5235}#
+ #{mod\ 5236}#)))
+ #{tmp\ 5242}#)))
($sc-dispatch
- #{tmp\ 15833}#
+ #{tmp\ 5242}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 15833}#
+ #{tmp\ 5242}#
'(any #(each (any any)) any . each-any))))
- #{e\ 15823}#))))
- (#{global-extend\ 12912}#
+ #{e\ 5232}#))))
+ (#{global-extend\ 2349}#
'core
'letrec
- (lambda (#{e\ 15892}#
- #{r\ 15893}#
- #{w\ 15894}#
- #{s\ 15895}#
- #{mod\ 15896}#)
- ((lambda (#{tmp\ 15902}#)
- ((lambda (#{tmp\ 15903}#)
- (if (if #{tmp\ 15903}#
- (apply (lambda (#{_\ 15909}#
- #{id\ 15910}#
- #{val\ 15911}#
- #{e1\ 15912}#
- #{e2\ 15913}#)
- (and-map #{id?\ 12916}# #{id\ 15910}#))
- #{tmp\ 15903}#)
+ (lambda (#{e\ 5301}#
+ #{r\ 5302}#
+ #{w\ 5303}#
+ #{s\ 5304}#
+ #{mod\ 5305}#)
+ ((lambda (#{tmp\ 5311}#)
+ ((lambda (#{tmp\ 5312}#)
+ (if (if #{tmp\ 5312}#
+ (apply (lambda (#{_\ 5318}#
+ #{id\ 5319}#
+ #{val\ 5320}#
+ #{e1\ 5321}#
+ #{e2\ 5322}#)
+ (and-map #{id?\ 2353}# #{id\ 5319}#))
+ #{tmp\ 5312}#)
#f)
- (apply (lambda (#{_\ 15920}#
- #{id\ 15921}#
- #{val\ 15922}#
- #{e1\ 15923}#
- #{e2\ 15924}#)
- (let ((#{ids\ 15926}# #{id\ 15921}#))
- (if (not (#{valid-bound-ids?\ 12979}#
- #{ids\ 15926}#))
+ (apply (lambda (#{_\ 5329}#
+ #{id\ 5330}#
+ #{val\ 5331}#
+ #{e1\ 5332}#
+ #{e2\ 5333}#)
+ (let ((#{ids\ 5335}# #{id\ 5330}#))
+ (if (not (#{valid-bound-ids?\ 2416}#
+ #{ids\ 5335}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 15892}#)
- (let ((#{labels\ 15930}#
- (#{gen-labels\ 12934}# #{ids\ 15926}#))
- (#{new-vars\ 15931}#
- (map #{gen-var\ 13029}#
- #{ids\ 15926}#)))
- (let ((#{w\ 15934}#
- (#{make-binding-wrap\ 12963}#
- #{ids\ 15926}#
- #{labels\ 15930}#
- #{w\ 15894}#))
- (#{r\ 15935}#
- (#{extend-var-env\ 12906}#
- #{labels\ 15930}#
- #{new-vars\ 15931}#
- #{r\ 15893}#)))
- (#{build-letrec\ 12874}#
- #{s\ 15895}#
- (map syntax->datum #{ids\ 15926}#)
- #{new-vars\ 15931}#
- (map (lambda (#{x\ 15936}#)
- (#{chi\ 13001}#
- #{x\ 15936}#
- #{r\ 15935}#
- #{w\ 15934}#
- #{mod\ 15896}#))
- #{val\ 15922}#)
- (#{chi-body\ 13009}#
- (cons #{e1\ 15923}# #{e2\ 15924}#)
- (#{source-wrap\ 12987}#
- #{e\ 15892}#
- #{w\ 15934}#
- #{s\ 15895}#
- #{mod\ 15896}#)
- #{r\ 15935}#
- #{w\ 15934}#
- #{mod\ 15896}#)))))))
- #{tmp\ 15903}#)
- ((lambda (#{_\ 15941}#)
+ #{e\ 5301}#)
+ (let ((#{labels\ 5339}#
+ (#{gen-labels\ 2371}# #{ids\ 5335}#))
+ (#{new-vars\ 5340}#
+ (map #{gen-var\ 2466}# #{ids\ 5335}#)))
+ (let ((#{w\ 5343}#
+ (#{make-binding-wrap\ 2400}#
+ #{ids\ 5335}#
+ #{labels\ 5339}#
+ #{w\ 5303}#))
+ (#{r\ 5344}#
+ (#{extend-var-env\ 2343}#
+ #{labels\ 5339}#
+ #{new-vars\ 5340}#
+ #{r\ 5302}#)))
+ (#{build-letrec\ 2311}#
+ #{s\ 5304}#
+ (map syntax->datum #{ids\ 5335}#)
+ #{new-vars\ 5340}#
+ (map (lambda (#{x\ 5345}#)
+ (#{chi\ 2438}#
+ #{x\ 5345}#
+ #{r\ 5344}#
+ #{w\ 5343}#
+ #{mod\ 5305}#))
+ #{val\ 5331}#)
+ (#{chi-body\ 2446}#
+ (cons #{e1\ 5332}# #{e2\ 5333}#)
+ (#{source-wrap\ 2424}#
+ #{e\ 5301}#
+ #{w\ 5343}#
+ #{s\ 5304}#
+ #{mod\ 5305}#)
+ #{r\ 5344}#
+ #{w\ 5343}#
+ #{mod\ 5305}#)))))))
+ #{tmp\ 5312}#)
+ ((lambda (#{_\ 5350}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 12987}#
- #{e\ 15892}#
- #{w\ 15894}#
- #{s\ 15895}#
- #{mod\ 15896}#)))
- #{tmp\ 15902}#)))
+ (#{source-wrap\ 2424}#
+ #{e\ 5301}#
+ #{w\ 5303}#
+ #{s\ 5304}#
+ #{mod\ 5305}#)))
+ #{tmp\ 5311}#)))
($sc-dispatch
- #{tmp\ 15902}#
+ #{tmp\ 5311}#
'(any #(each (any any)) any . each-any))))
- #{e\ 15892}#)))
- (#{global-extend\ 12912}#
+ #{e\ 5301}#)))
+ (#{global-extend\ 2349}#
'core
'set!
- (lambda (#{e\ 15942}#
- #{r\ 15943}#
- #{w\ 15944}#
- #{s\ 15945}#
- #{mod\ 15946}#)
- ((lambda (#{tmp\ 15952}#)
- ((lambda (#{tmp\ 15953}#)
- (if (if #{tmp\ 15953}#
- (apply (lambda (#{_\ 15957}#
- #{id\ 15958}#
- #{val\ 15959}#)
- (#{id?\ 12916}# #{id\ 15958}#))
- #{tmp\ 15953}#)
+ (lambda (#{e\ 5351}#
+ #{r\ 5352}#
+ #{w\ 5353}#
+ #{s\ 5354}#
+ #{mod\ 5355}#)
+ ((lambda (#{tmp\ 5361}#)
+ ((lambda (#{tmp\ 5362}#)
+ (if (if #{tmp\ 5362}#
+ (apply (lambda (#{_\ 5366}# #{id\ 5367}# #{val\ 5368}#)
+ (#{id?\ 2353}# #{id\ 5367}#))
+ #{tmp\ 5362}#)
#f)
- (apply (lambda (#{_\ 15963}# #{id\ 15964}# #{val\ 15965}#)
- (let ((#{val\ 15968}#
- (#{chi\ 13001}#
- #{val\ 15965}#
- #{r\ 15943}#
- #{w\ 15944}#
- #{mod\ 15946}#))
- (#{n\ 15969}#
- (#{id-var-name\ 12973}#
- #{id\ 15964}#
- #{w\ 15944}#)))
- (let ((#{b\ 15971}#
- (#{lookup\ 12910}#
- #{n\ 15969}#
- #{r\ 15943}#
- #{mod\ 15946}#)))
- (let ((#{atom-key\ 15974}#
- (#{binding-type\ 12899}# #{b\ 15971}#)))
- (if (memv #{atom-key\ 15974}#
+ (apply (lambda (#{_\ 5372}# #{id\ 5373}# #{val\ 5374}#)
+ (let ((#{val\ 5377}#
+ (#{chi\ 2438}#
+ #{val\ 5374}#
+ #{r\ 5352}#
+ #{w\ 5353}#
+ #{mod\ 5355}#))
+ (#{n\ 5378}#
+ (#{id-var-name\ 2410}#
+ #{id\ 5373}#
+ #{w\ 5353}#)))
+ (let ((#{b\ 5380}#
+ (#{lookup\ 2347}#
+ #{n\ 5378}#
+ #{r\ 5352}#
+ #{mod\ 5355}#)))
+ (let ((#{atom-key\ 5383}#
+ (#{binding-type\ 2336}# #{b\ 5380}#)))
+ (if (memv #{atom-key\ 5383}#
'(lexical))
- (#{build-lexical-assignment\ 12846}#
- #{s\ 15945}#
- (syntax->datum #{id\ 15964}#)
- (#{binding-value\ 12901}# #{b\ 15971}#)
- #{val\ 15968}#)
- (if (memv #{atom-key\ 15974}#
+ (#{build-lexical-assignment\ 2283}#
+ #{s\ 5354}#
+ (syntax->datum #{id\ 5373}#)
+ (#{binding-value\ 2338}# #{b\ 5380}#)
+ #{val\ 5377}#)
+ (if (memv #{atom-key\ 5383}#
'(global))
- (#{build-global-assignment\ 12852}#
- #{s\ 15945}#
- #{n\ 15969}#
- #{val\ 15968}#
- #{mod\ 15946}#)
- (if (memv #{atom-key\ 15974}#
+ (#{build-global-assignment\ 2289}#
+ #{s\ 5354}#
+ #{n\ 5378}#
+ #{val\ 5377}#
+ #{mod\ 5355}#)
+ (if (memv #{atom-key\ 5383}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 12985}#
- #{id\ 15964}#
- #{w\ 15944}#
- #{mod\ 15946}#))
+ (#{wrap\ 2422}#
+ #{id\ 5373}#
+ #{w\ 5353}#
+ #{mod\ 5355}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 12987}#
- #{e\ 15942}#
- #{w\ 15944}#
- #{s\ 15945}#
- #{mod\ 15946}#)))))))))
- #{tmp\ 15953}#)
- ((lambda (#{tmp\ 15979}#)
- (if #{tmp\ 15979}#
- (apply (lambda (#{_\ 15984}#
- #{head\ 15985}#
- #{tail\ 15986}#
- #{val\ 15987}#)
+ (#{source-wrap\ 2424}#
+ #{e\ 5351}#
+ #{w\ 5353}#
+ #{s\ 5354}#
+ #{mod\ 5355}#)))))))))
+ #{tmp\ 5362}#)
+ ((lambda (#{tmp\ 5388}#)
+ (if #{tmp\ 5388}#
+ (apply (lambda (#{_\ 5393}#
+ #{head\ 5394}#
+ #{tail\ 5395}#
+ #{val\ 5396}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 12997}#
- #{head\ 15985}#
- #{r\ 15943}#
+ (#{syntax-type\ 2434}#
+ #{head\ 5394}#
+ #{r\ 5352}#
'(())
#f
#f
- #{mod\ 15946}#
+ #{mod\ 5355}#
#t))
- (lambda (#{type\ 15990}#
- #{value\ 15991}#
- #{ee\ 15992}#
- #{ww\ 15993}#
- #{ss\ 15994}#
- #{modmod\ 15995}#)
- (if (memv #{type\ 15990}#
+ (lambda (#{type\ 5399}#
+ #{value\ 5400}#
+ #{ee\ 5401}#
+ #{ww\ 5402}#
+ #{ss\ 5403}#
+ #{modmod\ 5404}#)
+ (if (memv #{type\ 5399}#
'(module-ref))
- (let ((#{val\ 16004}#
- (#{chi\ 13001}#
- #{val\ 15987}#
- #{r\ 15943}#
- #{w\ 15944}#
- #{mod\ 15946}#)))
+ (let ((#{val\ 5413}#
+ (#{chi\ 2438}#
+ #{val\ 5396}#
+ #{r\ 5352}#
+ #{w\ 5353}#
+ #{mod\ 5355}#)))
(call-with-values
(lambda ()
- (#{value\ 15991}#
- (cons #{head\ 15985}#
- #{tail\ 15986}#)
- #{r\ 15943}#
- #{w\ 15944}#))
- (lambda (#{e\ 16006}#
- #{r\ 16007}#
- #{w\ 16008}#
- #{s*\ 16009}#
- #{mod\ 16010}#)
- ((lambda (#{tmp\ 16016}#)
- ((lambda (#{tmp\ 16017}#)
- (if (if #{tmp\ 16017}#
- (apply (lambda (#{e\ 16019}#)
- (#{id?\ 12916}#
- #{e\ 16019}#))
- #{tmp\ 16017}#)
+ (#{value\ 5400}#
+ (cons #{head\ 5394}#
+ #{tail\ 5395}#)
+ #{r\ 5352}#
+ #{w\ 5353}#))
+ (lambda (#{e\ 5415}#
+ #{r\ 5416}#
+ #{w\ 5417}#
+ #{s*\ 5418}#
+ #{mod\ 5419}#)
+ ((lambda (#{tmp\ 5425}#)
+ ((lambda (#{tmp\ 5426}#)
+ (if (if #{tmp\ 5426}#
+ (apply (lambda (#{e\ 5428}#)
+ (#{id?\ 2353}#
+ #{e\ 5428}#))
+ #{tmp\ 5426}#)
#f)
- (apply (lambda (#{e\ 16021}#)
- (#{build-global-assignment\ 12852}#
- #{s\ 15945}#
+ (apply (lambda (#{e\ 5430}#)
+ (#{build-global-assignment\ 2289}#
+ #{s\ 5354}#
(syntax->datum
- #{e\ 16021}#)
- #{val\ 16004}#
- #{mod\ 16010}#))
- #{tmp\ 16017}#)
+ #{e\ 5430}#)
+ #{val\ 5413}#
+ #{mod\ 5419}#))
+ #{tmp\ 5426}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16016}#)))
- (list #{tmp\ 16016}#)))
- #{e\ 16006}#))))
- (#{build-application\ 12838}#
- #{s\ 15945}#
- (#{chi\ 13001}#
+ #{tmp\ 5425}#)))
+ (list #{tmp\ 5425}#)))
+ #{e\ 5415}#))))
+ (#{build-application\ 2275}#
+ #{s\ 5354}#
+ (#{chi\ 2438}#
(list '#(syntax-object
setter
((top)
@@ -10108,22 +9963,22 @@
(top)
(top)
(top))
- #("i15996"
- "i15997"
- "i15998"
- "i15999"
- "i16000"
- "i16001"))
+ #("i5405"
+ "i5406"
+ "i5407"
+ "i5408"
+ "i5409"
+ "i5410"))
#(ribcage
#(_ head tail val)
#((top)
(top)
(top)
(top))
- #("i15980"
- "i15981"
- "i15982"
- "i15983"))
+ #("i5389"
+ "i5390"
+ "i5391"
+ "i5392"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -10132,11 +9987,11 @@
(top)
(top)
(top))
- #("i15947"
- "i15948"
- "i15949"
- "i15950"
- "i15951"))
+ #("i5356"
+ "i5357"
+ "i5358"
+ "i5359"
+ "i5360"))
#(ribcage
(lambda-var-list
gen-var
@@ -10408,201 +10263,199 @@
(top)
(top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2407"
+ "i2405"
+ "i2403"
+ "i2401"
+ "i2399"
+ "i2397"
+ "i2396"
+ "i2395"
+ "i2393"
+ "i2392"
+ "i2391"
+ "i2390"
+ "i2389"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2370"
+ "i2368"
+ "i2367"
+ "i2366"
+ "i2365"
+ "i2364"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2354"
+ "i2352"
+ "i2350"
+ "i2348"
+ "i2346"
+ "i2344"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2337"
+ "i2335"
+ "i2334"
+ "i2333"
+ "i2331"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"
+ "i2308"
+ "i2306"
+ "i2304"
+ "i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2265"
+ "i2263"
+ "i2261"
+ "i2259"
+ "i2257"
+ "i2255"
+ "i2253"
+ "i2251"
+ "i2249"
+ "i2247"
+ "i2245"
+ "i2243"
+ "i2241"
+ "i2239"
+ "i2237"
+ "i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2214"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i2066"
+ "i2065"
+ "i2063")))
(hygiene guile))
- #{head\ 15985}#)
- #{r\ 15943}#
- #{w\ 15944}#
- #{mod\ 15946}#)
- (map (lambda (#{e\ 16023}#)
- (#{chi\ 13001}#
- #{e\ 16023}#
- #{r\ 15943}#
- #{w\ 15944}#
- #{mod\ 15946}#))
+ #{head\ 5394}#)
+ #{r\ 5352}#
+ #{w\ 5353}#
+ #{mod\ 5355}#)
+ (map (lambda (#{e\ 5432}#)
+ (#{chi\ 2438}#
+ #{e\ 5432}#
+ #{r\ 5352}#
+ #{w\ 5353}#
+ #{mod\ 5355}#))
(append
- #{tail\ 15986}#
- (list #{val\ 15987}#))))))))
- #{tmp\ 15979}#)
- ((lambda (#{_\ 16027}#)
+ #{tail\ 5395}#
+ (list #{val\ 5396}#))))))))
+ #{tmp\ 5388}#)
+ ((lambda (#{_\ 5436}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 12987}#
- #{e\ 15942}#
- #{w\ 15944}#
- #{s\ 15945}#
- #{mod\ 15946}#)))
- #{tmp\ 15952}#)))
+ (#{source-wrap\ 2424}#
+ #{e\ 5351}#
+ #{w\ 5353}#
+ #{s\ 5354}#
+ #{mod\ 5355}#)))
+ #{tmp\ 5361}#)))
($sc-dispatch
- #{tmp\ 15952}#
+ #{tmp\ 5361}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 15952}#
+ #{tmp\ 5361}#
'(any any any))))
- #{e\ 15942}#)))
- (#{global-extend\ 12912}#
+ #{e\ 5351}#)))
+ (#{global-extend\ 2349}#
'module-ref
'@
- (lambda (#{e\ 16028}# #{r\ 16029}# #{w\ 16030}#)
- ((lambda (#{tmp\ 16034}#)
- ((lambda (#{tmp\ 16035}#)
- (if (if #{tmp\ 16035}#
- (apply (lambda (#{_\ 16039}#
- #{mod\ 16040}#
- #{id\ 16041}#)
- (if (and-map #{id?\ 12916}# #{mod\ 16040}#)
- (#{id?\ 12916}# #{id\ 16041}#)
+ (lambda (#{e\ 5437}# #{r\ 5438}# #{w\ 5439}#)
+ ((lambda (#{tmp\ 5443}#)
+ ((lambda (#{tmp\ 5444}#)
+ (if (if #{tmp\ 5444}#
+ (apply (lambda (#{_\ 5448}# #{mod\ 5449}# #{id\ 5450}#)
+ (if (and-map #{id?\ 2353}# #{mod\ 5449}#)
+ (#{id?\ 2353}# #{id\ 5450}#)
#f))
- #{tmp\ 16035}#)
+ #{tmp\ 5444}#)
#f)
- (apply (lambda (#{_\ 16048}# #{mod\ 16049}# #{id\ 16050}#)
+ (apply (lambda (#{_\ 5457}# #{mod\ 5458}# #{id\ 5459}#)
(values
- (syntax->datum #{id\ 16050}#)
- #{r\ 16029}#
- #{w\ 16030}#
+ (syntax->datum #{id\ 5459}#)
+ #{r\ 5438}#
+ #{w\ 5439}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -10611,12 +10464,12 @@
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i16045" "i16046" "i16047"))
+ #("i5454" "i5455" "i5456"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i16031" "i16032" "i16033"))
+ #("i5440" "i5441" "i5442"))
#(ribcage
(lambda-var-list
gen-var
@@ -10888,214 +10741,213 @@
(top)
(top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2407"
+ "i2405"
+ "i2403"
+ "i2401"
+ "i2399"
+ "i2397"
+ "i2396"
+ "i2395"
+ "i2393"
+ "i2392"
+ "i2391"
+ "i2390"
+ "i2389"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2370"
+ "i2368"
+ "i2367"
+ "i2366"
+ "i2365"
+ "i2364"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2354"
+ "i2352"
+ "i2350"
+ "i2348"
+ "i2346"
+ "i2344"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2337"
+ "i2335"
+ "i2334"
+ "i2333"
+ "i2331"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"
+ "i2308"
+ "i2306"
+ "i2304"
+ "i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2265"
+ "i2263"
+ "i2261"
+ "i2259"
+ "i2257"
+ "i2255"
+ "i2253"
+ "i2251"
+ "i2249"
+ "i2247"
+ "i2245"
+ "i2243"
+ "i2241"
+ "i2239"
+ "i2237"
+ "i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2214"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629" "i12628" "i12626")))
+ ("i2066" "i2065" "i2063")))
(hygiene guile))
- #{mod\ 16049}#))))
- #{tmp\ 16035}#)
+ #{mod\ 5458}#))))
+ #{tmp\ 5444}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16034}#)))
+ #{tmp\ 5443}#)))
($sc-dispatch
- #{tmp\ 16034}#
+ #{tmp\ 5443}#
'(any each-any any))))
- #{e\ 16028}#)))
- (#{global-extend\ 12912}#
+ #{e\ 5437}#)))
+ (#{global-extend\ 2349}#
'module-ref
'@@
- (lambda (#{e\ 16052}# #{r\ 16053}# #{w\ 16054}#)
- (letrec ((#{remodulate\ 16059}#
- (lambda (#{x\ 16060}# #{mod\ 16061}#)
- (if (pair? #{x\ 16060}#)
- (cons (#{remodulate\ 16059}#
- (car #{x\ 16060}#)
- #{mod\ 16061}#)
- (#{remodulate\ 16059}#
- (cdr #{x\ 16060}#)
- #{mod\ 16061}#))
- (if (#{syntax-object?\ 12880}# #{x\ 16060}#)
- (#{make-syntax-object\ 12878}#
- (#{remodulate\ 16059}#
- (#{syntax-object-expression\ 12882}#
- #{x\ 16060}#)
- #{mod\ 16061}#)
- (#{syntax-object-wrap\ 12884}# #{x\ 16060}#)
- #{mod\ 16061}#)
- (if (vector? #{x\ 16060}#)
- (let ((#{n\ 16072}# (vector-length #{x\ 16060}#)))
- (let ((#{v\ 16074}# (make-vector #{n\ 16072}#)))
- (letrec ((#{loop\ 16077}#
- (lambda (#{i\ 16078}#)
- (if (#{fx=\ 12821}#
- #{i\ 16078}#
- #{n\ 16072}#)
- (begin (if #f #f) #{v\ 16074}#)
+ (lambda (#{e\ 5461}# #{r\ 5462}# #{w\ 5463}#)
+ (letrec ((#{remodulate\ 5468}#
+ (lambda (#{x\ 5469}# #{mod\ 5470}#)
+ (if (pair? #{x\ 5469}#)
+ (cons (#{remodulate\ 5468}#
+ (car #{x\ 5469}#)
+ #{mod\ 5470}#)
+ (#{remodulate\ 5468}#
+ (cdr #{x\ 5469}#)
+ #{mod\ 5470}#))
+ (if (#{syntax-object?\ 2317}# #{x\ 5469}#)
+ (#{make-syntax-object\ 2315}#
+ (#{remodulate\ 5468}#
+ (#{syntax-object-expression\ 2319}# #{x\ 5469}#)
+ #{mod\ 5470}#)
+ (#{syntax-object-wrap\ 2321}# #{x\ 5469}#)
+ #{mod\ 5470}#)
+ (if (vector? #{x\ 5469}#)
+ (let ((#{n\ 5481}# (vector-length #{x\ 5469}#)))
+ (let ((#{v\ 5483}# (make-vector #{n\ 5481}#)))
+ (letrec ((#{loop\ 5486}#
+ (lambda (#{i\ 5487}#)
+ (if (#{fx=\ 2258}#
+ #{i\ 5487}#
+ #{n\ 5481}#)
+ (begin (if #f #f) #{v\ 5483}#)
(begin
(vector-set!
- #{v\ 16074}#
- #{i\ 16078}#
- (#{remodulate\ 16059}#
+ #{v\ 5483}#
+ #{i\ 5487}#
+ (#{remodulate\ 5468}#
(vector-ref
- #{x\ 16060}#
- #{i\ 16078}#)
- #{mod\ 16061}#))
- (#{loop\ 16077}#
- (#{fx+\ 12817}#
- #{i\ 16078}#
+ #{x\ 5469}#
+ #{i\ 5487}#)
+ #{mod\ 5470}#))
+ (#{loop\ 5486}#
+ (#{fx+\ 2254}#
+ #{i\ 5487}#
1)))))))
- (#{loop\ 16077}# 0))))
- #{x\ 16060}#))))))
- ((lambda (#{tmp\ 16082}#)
- ((lambda (#{tmp\ 16083}#)
- (if (if #{tmp\ 16083}#
- (apply (lambda (#{_\ 16087}#
- #{mod\ 16088}#
- #{exp\ 16089}#)
- (and-map #{id?\ 12916}# #{mod\ 16088}#))
- #{tmp\ 16083}#)
+ (#{loop\ 5486}# 0))))
+ #{x\ 5469}#))))))
+ ((lambda (#{tmp\ 5491}#)
+ ((lambda (#{tmp\ 5492}#)
+ (if (if #{tmp\ 5492}#
+ (apply (lambda (#{_\ 5496}#
+ #{mod\ 5497}#
+ #{exp\ 5498}#)
+ (and-map #{id?\ 2353}# #{mod\ 5497}#))
+ #{tmp\ 5492}#)
#f)
- (apply (lambda (#{_\ 16094}# #{mod\ 16095}# #{exp\ 16096}#)
- (let ((#{mod\ 16098}#
+ (apply (lambda (#{_\ 5503}# #{mod\ 5504}# #{exp\ 5505}#)
+ (let ((#{mod\ 5507}#
(syntax->datum
(cons '#(syntax-object
private
@@ -11103,19 +10955,15 @@
#(ribcage
#(_ mod exp)
#((top) (top) (top))
- #("i16091"
- "i16092"
- "i16093"))
+ #("i5500" "i5501" "i5502"))
#(ribcage
(remodulate)
((top))
- ("i16058"))
+ ("i5467"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("i16055"
- "i16056"
- "i16057"))
+ #("i5464" "i5465" "i5466"))
#(ribcage
(lambda-var-list
gen-var
@@ -11387,334 +11235,331 @@
(top)
(top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2407"
+ "i2405"
+ "i2403"
+ "i2401"
+ "i2399"
+ "i2397"
+ "i2396"
+ "i2395"
+ "i2393"
+ "i2392"
+ "i2391"
+ "i2390"
+ "i2389"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2370"
+ "i2368"
+ "i2367"
+ "i2366"
+ "i2365"
+ "i2364"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2354"
+ "i2352"
+ "i2350"
+ "i2348"
+ "i2346"
+ "i2344"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2337"
+ "i2335"
+ "i2334"
+ "i2333"
+ "i2331"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"
+ "i2308"
+ "i2306"
+ "i2304"
+ "i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2265"
+ "i2263"
+ "i2261"
+ "i2259"
+ "i2257"
+ "i2255"
+ "i2253"
+ "i2251"
+ "i2249"
+ "i2247"
+ "i2245"
+ "i2243"
+ "i2241"
+ "i2239"
+ "i2237"
+ "i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2214"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i2066" "i2065" "i2063")))
(hygiene guile))
- #{mod\ 16095}#))))
+ #{mod\ 5504}#))))
(values
- (#{remodulate\ 16059}#
- #{exp\ 16096}#
- #{mod\ 16098}#)
- #{r\ 16053}#
- #{w\ 16054}#
- (#{source-annotation\ 12895}# #{exp\ 16096}#)
- #{mod\ 16098}#)))
- #{tmp\ 16083}#)
+ (#{remodulate\ 5468}#
+ #{exp\ 5505}#
+ #{mod\ 5507}#)
+ #{r\ 5462}#
+ #{w\ 5463}#
+ (#{source-annotation\ 2332}# #{exp\ 5505}#)
+ #{mod\ 5507}#)))
+ #{tmp\ 5492}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16082}#)))
+ #{tmp\ 5491}#)))
($sc-dispatch
- #{tmp\ 16082}#
+ #{tmp\ 5491}#
'(any each-any any))))
- #{e\ 16052}#))))
- (#{global-extend\ 12912}#
+ #{e\ 5461}#))))
+ (#{global-extend\ 2349}#
'core
'if
- (lambda (#{e\ 16100}#
- #{r\ 16101}#
- #{w\ 16102}#
- #{s\ 16103}#
- #{mod\ 16104}#)
- ((lambda (#{tmp\ 16110}#)
- ((lambda (#{tmp\ 16111}#)
- (if #{tmp\ 16111}#
- (apply (lambda (#{_\ 16115}# #{test\ 16116}# #{then\ 16117}#)
- (#{build-conditional\ 12840}#
- #{s\ 16103}#
- (#{chi\ 13001}#
- #{test\ 16116}#
- #{r\ 16101}#
- #{w\ 16102}#
- #{mod\ 16104}#)
- (#{chi\ 13001}#
- #{then\ 16117}#
- #{r\ 16101}#
- #{w\ 16102}#
- #{mod\ 16104}#)
- (#{build-void\ 12836}# #f)))
- #{tmp\ 16111}#)
- ((lambda (#{tmp\ 16119}#)
- (if #{tmp\ 16119}#
- (apply (lambda (#{_\ 16124}#
- #{test\ 16125}#
- #{then\ 16126}#
- #{else\ 16127}#)
- (#{build-conditional\ 12840}#
- #{s\ 16103}#
- (#{chi\ 13001}#
- #{test\ 16125}#
- #{r\ 16101}#
- #{w\ 16102}#
- #{mod\ 16104}#)
- (#{chi\ 13001}#
- #{then\ 16126}#
- #{r\ 16101}#
- #{w\ 16102}#
- #{mod\ 16104}#)
- (#{chi\ 13001}#
- #{else\ 16127}#
- #{r\ 16101}#
- #{w\ 16102}#
- #{mod\ 16104}#)))
- #{tmp\ 16119}#)
+ (lambda (#{e\ 5509}#
+ #{r\ 5510}#
+ #{w\ 5511}#
+ #{s\ 5512}#
+ #{mod\ 5513}#)
+ ((lambda (#{tmp\ 5519}#)
+ ((lambda (#{tmp\ 5520}#)
+ (if #{tmp\ 5520}#
+ (apply (lambda (#{_\ 5524}# #{test\ 5525}# #{then\ 5526}#)
+ (#{build-conditional\ 2277}#
+ #{s\ 5512}#
+ (#{chi\ 2438}#
+ #{test\ 5525}#
+ #{r\ 5510}#
+ #{w\ 5511}#
+ #{mod\ 5513}#)
+ (#{chi\ 2438}#
+ #{then\ 5526}#
+ #{r\ 5510}#
+ #{w\ 5511}#
+ #{mod\ 5513}#)
+ (#{build-void\ 2273}# #f)))
+ #{tmp\ 5520}#)
+ ((lambda (#{tmp\ 5528}#)
+ (if #{tmp\ 5528}#
+ (apply (lambda (#{_\ 5533}#
+ #{test\ 5534}#
+ #{then\ 5535}#
+ #{else\ 5536}#)
+ (#{build-conditional\ 2277}#
+ #{s\ 5512}#
+ (#{chi\ 2438}#
+ #{test\ 5534}#
+ #{r\ 5510}#
+ #{w\ 5511}#
+ #{mod\ 5513}#)
+ (#{chi\ 2438}#
+ #{then\ 5535}#
+ #{r\ 5510}#
+ #{w\ 5511}#
+ #{mod\ 5513}#)
+ (#{chi\ 2438}#
+ #{else\ 5536}#
+ #{r\ 5510}#
+ #{w\ 5511}#
+ #{mod\ 5513}#)))
+ #{tmp\ 5528}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16110}#)))
+ #{tmp\ 5519}#)))
($sc-dispatch
- #{tmp\ 16110}#
+ #{tmp\ 5519}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 16110}#
+ #{tmp\ 5519}#
'(any any any))))
- #{e\ 16100}#)))
- (#{global-extend\ 12912}#
+ #{e\ 5509}#)))
+ (#{global-extend\ 2349}#
'core
'with-fluids
- (lambda (#{e\ 16128}#
- #{r\ 16129}#
- #{w\ 16130}#
- #{s\ 16131}#
- #{mod\ 16132}#)
- ((lambda (#{tmp\ 16138}#)
- ((lambda (#{tmp\ 16139}#)
- (if #{tmp\ 16139}#
- (apply (lambda (#{_\ 16145}#
- #{fluid\ 16146}#
- #{val\ 16147}#
- #{b\ 16148}#
- #{b*\ 16149}#)
- (#{build-dynlet\ 12842}#
- #{s\ 16131}#
- (map (lambda (#{x\ 16150}#)
- (#{chi\ 13001}#
- #{x\ 16150}#
- #{r\ 16129}#
- #{w\ 16130}#
- #{mod\ 16132}#))
- #{fluid\ 16146}#)
- (map (lambda (#{x\ 16153}#)
- (#{chi\ 13001}#
- #{x\ 16153}#
- #{r\ 16129}#
- #{w\ 16130}#
- #{mod\ 16132}#))
- #{val\ 16147}#)
- (#{chi-body\ 13009}#
- (cons #{b\ 16148}# #{b*\ 16149}#)
- (#{source-wrap\ 12987}#
- #{e\ 16128}#
- #{w\ 16130}#
- #{s\ 16131}#
- #{mod\ 16132}#)
- #{r\ 16129}#
- #{w\ 16130}#
- #{mod\ 16132}#)))
- #{tmp\ 16139}#)
+ (lambda (#{e\ 5537}#
+ #{r\ 5538}#
+ #{w\ 5539}#
+ #{s\ 5540}#
+ #{mod\ 5541}#)
+ ((lambda (#{tmp\ 5547}#)
+ ((lambda (#{tmp\ 5548}#)
+ (if #{tmp\ 5548}#
+ (apply (lambda (#{_\ 5554}#
+ #{fluid\ 5555}#
+ #{val\ 5556}#
+ #{b\ 5557}#
+ #{b*\ 5558}#)
+ (#{build-dynlet\ 2279}#
+ #{s\ 5540}#
+ (map (lambda (#{x\ 5559}#)
+ (#{chi\ 2438}#
+ #{x\ 5559}#
+ #{r\ 5538}#
+ #{w\ 5539}#
+ #{mod\ 5541}#))
+ #{fluid\ 5555}#)
+ (map (lambda (#{x\ 5562}#)
+ (#{chi\ 2438}#
+ #{x\ 5562}#
+ #{r\ 5538}#
+ #{w\ 5539}#
+ #{mod\ 5541}#))
+ #{val\ 5556}#)
+ (#{chi-body\ 2446}#
+ (cons #{b\ 5557}# #{b*\ 5558}#)
+ (#{source-wrap\ 2424}#
+ #{e\ 5537}#
+ #{w\ 5539}#
+ #{s\ 5540}#
+ #{mod\ 5541}#)
+ #{r\ 5538}#
+ #{w\ 5539}#
+ #{mod\ 5541}#)))
+ #{tmp\ 5548}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16138}#)))
+ #{tmp\ 5547}#)))
($sc-dispatch
- #{tmp\ 16138}#
+ #{tmp\ 5547}#
'(any #(each (any any)) any . each-any))))
- #{e\ 16128}#)))
- (#{global-extend\ 12912}#
+ #{e\ 5537}#)))
+ (#{global-extend\ 2349}#
'begin
'begin
'())
- (#{global-extend\ 12912}#
+ (#{global-extend\ 2349}#
'define
'define
'())
- (#{global-extend\ 12912}#
+ (#{global-extend\ 2349}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 12912}#
+ (#{global-extend\ 2349}#
'eval-when
'eval-when
'())
- (#{global-extend\ 12912}#
+ (#{global-extend\ 2349}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 16164}#
- (lambda (#{x\ 16165}#
- #{keys\ 16166}#
- #{clauses\ 16167}#
- #{r\ 16168}#
- #{mod\ 16169}#)
- (if (null? #{clauses\ 16167}#)
- (#{build-application\ 12838}#
+ (letrec ((#{gen-syntax-case\ 5573}#
+ (lambda (#{x\ 5574}#
+ #{keys\ 5575}#
+ #{clauses\ 5576}#
+ #{r\ 5577}#
+ #{mod\ 5578}#)
+ (if (null? #{clauses\ 5576}#)
+ (#{build-application\ 2275}#
#f
- (#{build-primref\ 12864}#
+ (#{build-primref\ 2301}#
#f
'syntax-violation)
- (list (#{build-data\ 12866}# #f #f)
- (#{build-data\ 12866}#
+ (list (#{build-data\ 2303}# #f #f)
+ (#{build-data\ 2303}#
#f
"source expression failed to match any pattern")
- #{x\ 16165}#))
- ((lambda (#{tmp\ 16179}#)
- ((lambda (#{tmp\ 16180}#)
- (if #{tmp\ 16180}#
- (apply (lambda (#{pat\ 16183}# #{exp\ 16184}#)
- (if (if (#{id?\ 12916}# #{pat\ 16183}#)
+ #{x\ 5574}#))
+ ((lambda (#{tmp\ 5588}#)
+ ((lambda (#{tmp\ 5589}#)
+ (if #{tmp\ 5589}#
+ (apply (lambda (#{pat\ 5592}# #{exp\ 5593}#)
+ (if (if (#{id?\ 2353}# #{pat\ 5592}#)
(and-map
- (lambda (#{x\ 16187}#)
- (not (#{free-id=?\ 12975}#
- #{pat\ 16183}#
- #{x\ 16187}#)))
+ (lambda (#{x\ 5596}#)
+ (not (#{free-id=?\ 2412}#
+ #{pat\ 5592}#
+ #{x\ 5596}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i16181"
- "i16182"))
+ #("i5590" "i5591"))
#(ribcage () () ())
#(ribcage
#(x
@@ -11727,11 +11572,11 @@
(top)
(top)
(top))
- #("i16170"
- "i16171"
- "i16172"
- "i16173"
- "i16174"))
+ #("i5579"
+ "i5580"
+ "i5581"
+ "i5582"
+ "i5583"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -11741,10 +11586,10 @@
(top)
(top)
(top))
- ("i16163"
- "i16161"
- "i16159"
- "i16157"))
+ ("i5572"
+ "i5570"
+ "i5568"
+ "i5566"))
#(ribcage
(lambda-var-list
gen-var
@@ -12016,1053 +11861,1044 @@
(top)
(top)
(top))
- ("i13030"
- "i13028"
- "i13026"
- "i13024"
- "i13022"
- "i13020"
- "i13018"
- "i13016"
- "i13014"
- "i13012"
- "i13010"
- "i13008"
- "i13006"
- "i13004"
- "i13002"
- "i13000"
- "i12998"
- "i12996"
- "i12994"
- "i12992"
- "i12990"
- "i12988"
- "i12986"
- "i12984"
- "i12982"
- "i12980"
- "i12978"
- "i12976"
- "i12974"
- "i12972"
- "i12970"
- "i12968"
- "i12966"
- "i12964"
- "i12962"
- "i12960"
- "i12959"
- "i12958"
- "i12956"
- "i12955"
- "i12954"
- "i12953"
- "i12952"
- "i12950"
- "i12948"
- "i12946"
- "i12944"
- "i12942"
- "i12940"
- "i12938"
- "i12936"
- "i12933"
- "i12931"
- "i12930"
- "i12929"
- "i12928"
- "i12927"
- "i12926"
- "i12924"
- "i12922"
- "i12920"
- "i12918"
- "i12917"
- "i12915"
- "i12913"
- "i12911"
- "i12909"
- "i12907"
- "i12905"
- "i12903"
- "i12902"
- "i12900"
- "i12898"
- "i12897"
- "i12896"
- "i12894"
- "i12893"
- "i12891"
- "i12889"
- "i12887"
- "i12885"
- "i12883"
- "i12881"
- "i12879"
- "i12877"
- "i12875"
- "i12873"
- "i12871"
- "i12869"
- "i12867"
- "i12865"
- "i12863"
- "i12861"
- "i12859"
- "i12857"
- "i12855"
- "i12853"
- "i12851"
- "i12849"
- "i12847"
- "i12845"
- "i12843"
- "i12841"
- "i12839"
- "i12837"
- "i12835"
- "i12833"
- "i12831"
- "i12829"
- "i12828"
- "i12826"
- "i12824"
- "i12822"
- "i12820"
- "i12818"
- "i12816"
- "i12814"
- "i12812"
- "i12810"
- "i12808"
- "i12806"
- "i12804"
- "i12802"
- "i12800"
- "i12798"
- "i12796"
- "i12794"
- "i12792"
- "i12790"
- "i12788"
- "i12786"
- "i12784"
- "i12782"
- "i12780"
- "i12777"))
+ ("i2467"
+ "i2465"
+ "i2463"
+ "i2461"
+ "i2459"
+ "i2457"
+ "i2455"
+ "i2453"
+ "i2451"
+ "i2449"
+ "i2447"
+ "i2445"
+ "i2443"
+ "i2441"
+ "i2439"
+ "i2437"
+ "i2435"
+ "i2433"
+ "i2431"
+ "i2429"
+ "i2427"
+ "i2425"
+ "i2423"
+ "i2421"
+ "i2419"
+ "i2417"
+ "i2415"
+ "i2413"
+ "i2411"
+ "i2409"
+ "i2407"
+ "i2405"
+ "i2403"
+ "i2401"
+ "i2399"
+ "i2397"
+ "i2396"
+ "i2395"
+ "i2393"
+ "i2392"
+ "i2391"
+ "i2390"
+ "i2389"
+ "i2387"
+ "i2385"
+ "i2383"
+ "i2381"
+ "i2379"
+ "i2377"
+ "i2375"
+ "i2373"
+ "i2370"
+ "i2368"
+ "i2367"
+ "i2366"
+ "i2365"
+ "i2364"
+ "i2363"
+ "i2361"
+ "i2359"
+ "i2357"
+ "i2355"
+ "i2354"
+ "i2352"
+ "i2350"
+ "i2348"
+ "i2346"
+ "i2344"
+ "i2342"
+ "i2340"
+ "i2339"
+ "i2337"
+ "i2335"
+ "i2334"
+ "i2333"
+ "i2331"
+ "i2330"
+ "i2328"
+ "i2326"
+ "i2324"
+ "i2322"
+ "i2320"
+ "i2318"
+ "i2316"
+ "i2314"
+ "i2312"
+ "i2310"
+ "i2308"
+ "i2306"
+ "i2304"
+ "i2302"
+ "i2300"
+ "i2298"
+ "i2296"
+ "i2294"
+ "i2292"
+ "i2290"
+ "i2288"
+ "i2286"
+ "i2284"
+ "i2282"
+ "i2280"
+ "i2278"
+ "i2276"
+ "i2274"
+ "i2272"
+ "i2270"
+ "i2268"
+ "i2266"
+ "i2265"
+ "i2263"
+ "i2261"
+ "i2259"
+ "i2257"
+ "i2255"
+ "i2253"
+ "i2251"
+ "i2249"
+ "i2247"
+ "i2245"
+ "i2243"
+ "i2241"
+ "i2239"
+ "i2237"
+ "i2235"
+ "i2233"
+ "i2231"
+ "i2229"
+ "i2227"
+ "i2225"
+ "i2223"
+ "i2221"
+ "i2219"
+ "i2217"
+ "i2214"))
#(ribcage
(define-structure
define-expansion-constructors
and-map*)
((top) (top) (top))
- ("i12629"
- "i12628"
- "i12626")))
+ ("i2066"
+ "i2065"
+ "i2063")))
(hygiene guile))
- #{keys\ 16166}#))
+ #{keys\ 5575}#))
#f)
- (let ((#{labels\ 16191}#
- (list (#{gen-label\ 12932}#)))
- (#{var\ 16192}#
- (#{gen-var\ 13029}#
- #{pat\ 16183}#)))
- (#{build-application\ 12838}#
+ (let ((#{labels\ 5600}#
+ (list (#{gen-label\ 2369}#)))
+ (#{var\ 5601}#
+ (#{gen-var\ 2466}#
+ #{pat\ 5592}#)))
+ (#{build-application\ 2275}#
#f
- (#{build-simple-lambda\ 12858}#
+ (#{build-simple-lambda\ 2295}#
#f
(list (syntax->datum
- #{pat\ 16183}#))
+ #{pat\ 5592}#))
#f
- (list #{var\ 16192}#)
+ (list #{var\ 5601}#)
'()
- (#{chi\ 13001}#
- #{exp\ 16184}#
- (#{extend-env\ 12904}#
- #{labels\ 16191}#
+ (#{chi\ 2438}#
+ #{exp\ 5593}#
+ (#{extend-env\ 2341}#
+ #{labels\ 5600}#
(list (cons 'syntax
- (cons #{var\ 16192}#
+ (cons #{var\ 5601}#
0)))
- #{r\ 16168}#)
- (#{make-binding-wrap\ 12963}#
- (list #{pat\ 16183}#)
- #{labels\ 16191}#
+ #{r\ 5577}#)
+ (#{make-binding-wrap\ 2400}#
+ (list #{pat\ 5592}#)
+ #{labels\ 5600}#
'(()))
- #{mod\ 16169}#))
- (list #{x\ 16165}#)))
- (#{gen-clause\ 16162}#
- #{x\ 16165}#
- #{keys\ 16166}#
- (cdr #{clauses\ 16167}#)
- #{r\ 16168}#
- #{pat\ 16183}#
+ #{mod\ 5578}#))
+ (list #{x\ 5574}#)))
+ (#{gen-clause\ 5571}#
+ #{x\ 5574}#
+ #{keys\ 5575}#
+ (cdr #{clauses\ 5576}#)
+ #{r\ 5577}#
+ #{pat\ 5592}#
#t
- #{exp\ 16184}#
- #{mod\ 16169}#)))
- #{tmp\ 16180}#)
- ((lambda (#{tmp\ 16198}#)
- (if #{tmp\ 16198}#
- (apply (lambda (#{pat\ 16202}#
- #{fender\ 16203}#
- #{exp\ 16204}#)
- (#{gen-clause\ 16162}#
- #{x\ 16165}#
- #{keys\ 16166}#
- (cdr #{clauses\ 16167}#)
- #{r\ 16168}#
- #{pat\ 16202}#
- #{fender\ 16203}#
- #{exp\ 16204}#
- #{mod\ 16169}#))
- #{tmp\ 16198}#)
- ((lambda (#{_\ 16206}#)
+ #{exp\ 5593}#
+ #{mod\ 5578}#)))
+ #{tmp\ 5589}#)
+ ((lambda (#{tmp\ 5607}#)
+ (if #{tmp\ 5607}#
+ (apply (lambda (#{pat\ 5611}#
+ #{fender\ 5612}#
+ #{exp\ 5613}#)
+ (#{gen-clause\ 5571}#
+ #{x\ 5574}#
+ #{keys\ 5575}#
+ (cdr #{clauses\ 5576}#)
+ #{r\ 5577}#
+ #{pat\ 5611}#
+ #{fender\ 5612}#
+ #{exp\ 5613}#
+ #{mod\ 5578}#))
+ #{tmp\ 5607}#)
+ ((lambda (#{_\ 5615}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 16167}#)))
- #{tmp\ 16179}#)))
+ (car #{clauses\ 5576}#)))
+ #{tmp\ 5588}#)))
($sc-dispatch
- #{tmp\ 16179}#
+ #{tmp\ 5588}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 16179}# (quote (any any)))))
- (car #{clauses\ 16167}#)))))
- (#{gen-clause\ 16162}#
- (lambda (#{x\ 16207}#
- #{keys\ 16208}#
- #{clauses\ 16209}#
- #{r\ 16210}#
- #{pat\ 16211}#
- #{fender\ 16212}#
- #{exp\ 16213}#
- #{mod\ 16214}#)
+ ($sc-dispatch #{tmp\ 5588}# (quote (any any)))))
+ (car #{clauses\ 5576}#)))))
+ (#{gen-clause\ 5571}#
+ (lambda (#{x\ 5616}#
+ #{keys\ 5617}#
+ #{clauses\ 5618}#
+ #{r\ 5619}#
+ #{pat\ 5620}#
+ #{fender\ 5621}#
+ #{exp\ 5622}#
+ #{mod\ 5623}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 16158}#
- #{pat\ 16211}#
- #{keys\ 16208}#))
- (lambda (#{p\ 16223}# #{pvars\ 16224}#)
- (if (not (#{distinct-bound-ids?\ 12981}#
- (map car #{pvars\ 16224}#)))
+ (#{convert-pattern\ 5567}#
+ #{pat\ 5620}#
+ #{keys\ 5617}#))
+ (lambda (#{p\ 5632}# #{pvars\ 5633}#)
+ (if (not (#{distinct-bound-ids?\ 2418}#
+ (map car #{pvars\ 5633}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 16211}#)
+ #{pat\ 5620}#)
(if (not (and-map
- (lambda (#{x\ 16231}#)
- (not (#{ellipsis?\ 13017}#
- (car #{x\ 16231}#))))
- #{pvars\ 16224}#))
+ (lambda (#{x\ 5640}#)
+ (not (#{ellipsis?\ 2454}#
+ (car #{x\ 5640}#))))
+ #{pvars\ 5633}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 16211}#)
- (let ((#{y\ 16235}#
- (#{gen-var\ 13029}# (quote tmp))))
- (#{build-application\ 12838}#
+ #{pat\ 5620}#)
+ (let ((#{y\ 5644}#
+ (#{gen-var\ 2466}# (quote tmp))))
+ (#{build-application\ 2275}#
#f
- (#{build-simple-lambda\ 12858}#
+ (#{build-simple-lambda\ 2295}#
#f
(list (quote tmp))
#f
- (list #{y\ 16235}#)
+ (list #{y\ 5644}#)
'()
- (let ((#{y\ 16239}#
- (#{build-lexical-reference\ 12844}#
+ (let ((#{y\ 5648}#
+ (#{build-lexical-reference\ 2281}#
'value
#f
'tmp
- #{y\ 16235}#)))
- (#{build-conditional\ 12840}#
+ #{y\ 5644}#)))
+ (#{build-conditional\ 2277}#
#f
- ((lambda (#{tmp\ 16242}#)
- ((lambda (#{tmp\ 16243}#)
- (if #{tmp\ 16243}#
- (apply (lambda () #{y\ 16239}#)
- #{tmp\ 16243}#)
- ((lambda (#{_\ 16245}#)
- (#{build-conditional\ 12840}#
+ ((lambda (#{tmp\ 5651}#)
+ ((lambda (#{tmp\ 5652}#)
+ (if #{tmp\ 5652}#
+ (apply (lambda () #{y\ 5648}#)
+ #{tmp\ 5652}#)
+ ((lambda (#{_\ 5654}#)
+ (#{build-conditional\ 2277}#
#f
- #{y\ 16239}#
- (#{build-dispatch-call\ 16160}#
- #{pvars\ 16224}#
- #{fender\ 16212}#
- #{y\ 16239}#
- #{r\ 16210}#
- #{mod\ 16214}#)
- (#{build-data\ 12866}#
+ #{y\ 5648}#
+ (#{build-dispatch-call\ 5569}#
+ #{pvars\ 5633}#
+ #{fender\ 5621}#
+ #{y\ 5648}#
+ #{r\ 5619}#
+ #{mod\ 5623}#)
+ (#{build-data\ 2303}#
#f
#f)))
- #{tmp\ 16242}#)))
+ #{tmp\ 5651}#)))
($sc-dispatch
- #{tmp\ 16242}#
+ #{tmp\ 5651}#
'#(atom #t))))
- #{fender\ 16212}#)
- (#{build-dispatch-call\ 16160}#
- #{pvars\ 16224}#
- #{exp\ 16213}#
- #{y\ 16239}#
- #{r\ 16210}#
- #{mod\ 16214}#)
- (#{gen-syntax-case\ 16164}#
- #{x\ 16207}#
- #{keys\ 16208}#
- #{clauses\ 16209}#
- #{r\ 16210}#
- #{mod\ 16214}#))))
- (list (if (eq? #{p\ 16223}# (quote any))
- (#{build-application\ 12838}#
+ #{fender\ 5621}#)
+ (#{build-dispatch-call\ 5569}#
+ #{pvars\ 5633}#
+ #{exp\ 5622}#
+ #{y\ 5648}#
+ #{r\ 5619}#
+ #{mod\ 5623}#)
+ (#{gen-syntax-case\ 5573}#
+ #{x\ 5616}#
+ #{keys\ 5617}#
+ #{clauses\ 5618}#
+ #{r\ 5619}#
+ #{mod\ 5623}#))))
+ (list (if (eq? #{p\ 5632}# (quote any))
+ (#{build-application\ 2275}#
#f
- (#{build-primref\ 12864}#
+ (#{build-primref\ 2301}#
#f
'list)
- (list #{x\ 16207}#))
- (#{build-application\ 12838}#
+ (list #{x\ 5616}#))
+ (#{build-application\ 2275}#
#f
- (#{build-primref\ 12864}#
+ (#{build-primref\ 2301}#
#f
'$sc-dispatch)
- (list #{x\ 16207}#
- (#{build-data\ 12866}#
+ (list #{x\ 5616}#
+ (#{build-data\ 2303}#
#f
- #{p\ 16223}#)))))))))))))
- (#{build-dispatch-call\ 16160}#
- (lambda (#{pvars\ 16253}#
- #{exp\ 16254}#
- #{y\ 16255}#
- #{r\ 16256}#
- #{mod\ 16257}#)
- (let ((#{ids\ 16265}# (map car #{pvars\ 16253}#))
- (#{levels\ 16266}# (map cdr #{pvars\ 16253}#)))
- (let ((#{labels\ 16269}#
- (#{gen-labels\ 12934}# #{ids\ 16265}#))
- (#{new-vars\ 16270}#
- (map #{gen-var\ 13029}# #{ids\ 16265}#)))
- (#{build-application\ 12838}#
+ #{p\ 5632}#)))))))))))))
+ (#{build-dispatch-call\ 5569}#
+ (lambda (#{pvars\ 5662}#
+ #{exp\ 5663}#
+ #{y\ 5664}#
+ #{r\ 5665}#
+ #{mod\ 5666}#)
+ (let ((#{ids\ 5674}# (map car #{pvars\ 5662}#))
+ (#{levels\ 5675}# (map cdr #{pvars\ 5662}#)))
+ (let ((#{labels\ 5678}#
+ (#{gen-labels\ 2371}# #{ids\ 5674}#))
+ (#{new-vars\ 5679}#
+ (map #{gen-var\ 2466}# #{ids\ 5674}#)))
+ (#{build-application\ 2275}#
#f
- (#{build-primref\ 12864}# #f (quote apply))
- (list (#{build-simple-lambda\ 12858}#
+ (#{build-primref\ 2301}# #f (quote apply))
+ (list (#{build-simple-lambda\ 2295}#
#f
- (map syntax->datum #{ids\ 16265}#)
+ (map syntax->datum #{ids\ 5674}#)
#f
- #{new-vars\ 16270}#
+ #{new-vars\ 5679}#
'()
- (#{chi\ 13001}#
- #{exp\ 16254}#
- (#{extend-env\ 12904}#
- #{labels\ 16269}#
- (map (lambda (#{var\ 16274}#
- #{level\ 16275}#)
+ (#{chi\ 2438}#
+ #{exp\ 5663}#
+ (#{extend-env\ 2341}#
+ #{labels\ 5678}#
+ (map (lambda (#{var\ 5683}#
+ #{level\ 5684}#)
(cons 'syntax
- (cons #{var\ 16274}#
- #{level\ 16275}#)))
- #{new-vars\ 16270}#
- (map cdr #{pvars\ 16253}#))
- #{r\ 16256}#)
- (#{make-binding-wrap\ 12963}#
- #{ids\ 16265}#
- #{labels\ 16269}#
+ (cons #{var\ 5683}#
+ #{level\ 5684}#)))
+ #{new-vars\ 5679}#
+ (map cdr #{pvars\ 5662}#))
+ #{r\ 5665}#)
+ (#{make-binding-wrap\ 2400}#
+ #{ids\ 5674}#
+ #{labels\ 5678}#
'(()))
- #{mod\ 16257}#))
- #{y\ 16255}#))))))
- (#{convert-pattern\ 16158}#
- (lambda (#{pattern\ 16281}# #{keys\ 16282}#)
- (letrec ((#{cvt\ 16288}#
- (lambda (#{p\ 16289}#
- #{n\ 16290}#
- #{ids\ 16291}#)
- (if (#{id?\ 12916}# #{p\ 16289}#)
- (if (#{bound-id-member?\ 12983}#
- #{p\ 16289}#
- #{keys\ 16282}#)
+ #{mod\ 5666}#))
+ #{y\ 5664}#))))))
+ (#{convert-pattern\ 5567}#
+ (lambda (#{pattern\ 5690}# #{keys\ 5691}#)
+ (letrec ((#{cvt\ 5697}#
+ (lambda (#{p\ 5698}# #{n\ 5699}# #{ids\ 5700}#)
+ (if (#{id?\ 2353}# #{p\ 5698}#)
+ (if (#{bound-id-member?\ 2420}#
+ #{p\ 5698}#
+ #{keys\ 5691}#)
(values
- (vector (quote free-id) #{p\ 16289}#)
- #{ids\ 16291}#)
+ (vector (quote free-id) #{p\ 5698}#)
+ #{ids\ 5700}#)
(values
'any
- (cons (cons #{p\ 16289}# #{n\ 16290}#)
- #{ids\ 16291}#)))
- ((lambda (#{tmp\ 16295}#)
- ((lambda (#{tmp\ 16296}#)
- (if (if #{tmp\ 16296}#
- (apply (lambda (#{x\ 16299}#
- #{dots\ 16300}#)
- (#{ellipsis?\ 13017}#
- #{dots\ 16300}#))
- #{tmp\ 16296}#)
+ (cons (cons #{p\ 5698}# #{n\ 5699}#)
+ #{ids\ 5700}#)))
+ ((lambda (#{tmp\ 5704}#)
+ ((lambda (#{tmp\ 5705}#)
+ (if (if #{tmp\ 5705}#
+ (apply (lambda (#{x\ 5708}#
+ #{dots\ 5709}#)
+ (#{ellipsis?\ 2454}#
+ #{dots\ 5709}#))
+ #{tmp\ 5705}#)
#f)
- (apply (lambda (#{x\ 16303}#
- #{dots\ 16304}#)
+ (apply (lambda (#{x\ 5712}#
+ #{dots\ 5713}#)
(call-with-values
(lambda ()
- (#{cvt\ 16288}#
- #{x\ 16303}#
- (#{fx+\ 12817}#
- #{n\ 16290}#
+ (#{cvt\ 5697}#
+ #{x\ 5712}#
+ (#{fx+\ 2254}#
+ #{n\ 5699}#
1)
- #{ids\ 16291}#))
- (lambda (#{p\ 16305}#
- #{ids\ 16306}#)
+ #{ids\ 5700}#))
+ (lambda (#{p\ 5714}#
+ #{ids\ 5715}#)
(values
- (if (eq? #{p\ 16305}#
+ (if (eq? #{p\ 5714}#
'any)
'each-any
(vector
'each
- #{p\ 16305}#))
- #{ids\ 16306}#))))
- #{tmp\ 16296}#)
- ((lambda (#{tmp\ 16309}#)
- (if (if #{tmp\ 16309}#
- (apply (lambda (#{x\ 16313}#
- #{dots\ 16314}#
- #{ys\ 16315}#)
- (#{ellipsis?\ 13017}#
- #{dots\ 16314}#))
- #{tmp\ 16309}#)
+ #{p\ 5714}#))
+ #{ids\ 5715}#))))
+ #{tmp\ 5705}#)
+ ((lambda (#{tmp\ 5718}#)
+ (if (if #{tmp\ 5718}#
+ (apply (lambda (#{x\ 5722}#
+ #{dots\ 5723}#
+ #{ys\ 5724}#)
+ (#{ellipsis?\ 2454}#
+ #{dots\ 5723}#))
+ #{tmp\ 5718}#)
#f)
- (apply (lambda (#{x\ 16319}#
- #{dots\ 16320}#
- #{ys\ 16321}#)
+ (apply (lambda (#{x\ 5728}#
+ #{dots\ 5729}#
+ #{ys\ 5730}#)
(call-with-values
(lambda ()
- (#{cvt*\ 16286}#
- #{ys\ 16321}#
- #{n\ 16290}#
- #{ids\ 16291}#))
- (lambda (#{ys\ 16323}#
- #{ids\ 16324}#)
+ (#{cvt*\ 5695}#
+ #{ys\ 5730}#
+ #{n\ 5699}#
+ #{ids\ 5700}#))
+ (lambda (#{ys\ 5732}#
+ #{ids\ 5733}#)
(call-with-values
(lambda ()
- (#{cvt\ 16288}#
- #{x\ 16319}#
- (+ #{n\ 16290}#
+ (#{cvt\ 5697}#
+ #{x\ 5728}#
+ (+ #{n\ 5699}#
1)
- #{ids\ 16324}#))
- (lambda (#{x\ 16327}#
- #{ids\ 16328}#)
+ #{ids\ 5733}#))
+ (lambda (#{x\ 5736}#
+ #{ids\ 5737}#)
(values
(list->vector
(cons 'each+
- (cons #{x\ 16327}#
+ (cons #{x\ 5736}#
(cons (reverse
- #{ys\ 16323}#)
+ #{ys\ 5732}#)
'(())))))
- #{ids\ 16328}#))))))
- #{tmp\ 16309}#)
- ((lambda (#{tmp\ 16332}#)
- (if #{tmp\ 16332}#
- (apply (lambda (#{x\ 16335}#
- #{y\ 16336}#)
+ #{ids\ 5737}#))))))
+ #{tmp\ 5718}#)
+ ((lambda (#{tmp\ 5741}#)
+ (if #{tmp\ 5741}#
+ (apply (lambda (#{x\ 5744}#
+ #{y\ 5745}#)
(call-with-values
(lambda ()
- (#{cvt\ 16288}#
- #{y\ 16336}#
- #{n\ 16290}#
- #{ids\ 16291}#))
- (lambda (#{y\ 16337}#
- #{ids\ 16338}#)
+ (#{cvt\ 5697}#
+ #{y\ 5745}#
+ #{n\ 5699}#
+ #{ids\ 5700}#))
+ (lambda (#{y\ 5746}#
+ #{ids\ 5747}#)
(call-with-values
(lambda ()
- (#{cvt\ 16288}#
- #{x\ 16335}#
- #{n\ 16290}#
- #{ids\ 16338}#))
- (lambda (#{x\ 16341}#
- #{ids\ 16342}#)
+ (#{cvt\ 5697}#
+ #{x\ 5744}#
+ #{n\ 5699}#
+ #{ids\ 5747}#))
+ (lambda (#{x\ 5750}#
+ #{ids\ 5751}#)
(values
- (cons #{x\ 16341}#
- #{y\ 16337}#)
- #{ids\ 16342}#))))))
- #{tmp\ 16332}#)
- ((lambda (#{tmp\ 16345}#)
- (if #{tmp\ 16345}#
+ (cons #{x\ 5750}#
+ #{y\ 5746}#)
+ #{ids\ 5751}#))))))
+ #{tmp\ 5741}#)
+ ((lambda (#{tmp\ 5754}#)
+ (if #{tmp\ 5754}#
(apply (lambda ()
(values
'()
- #{ids\ 16291}#))
- #{tmp\ 16345}#)
- ((lambda (#{tmp\ 16346}#)
- (if #{tmp\ 16346}#
- (apply (lambda (#{x\ 16348}#)
+ #{ids\ 5700}#))
+ #{tmp\ 5754}#)
+ ((lambda (#{tmp\ 5755}#)
+ (if #{tmp\ 5755}#
+ (apply (lambda (#{x\ 5757}#)
(call-with-values
(lambda ()
- (#{cvt\ 16288}#
- #{x\ 16348}#
- #{n\ 16290}#
- #{ids\ 16291}#))
- (lambda (#{p\ 16350}#
- #{ids\ 16351}#)
+ (#{cvt\ 5697}#
+ #{x\ 5757}#
+ #{n\ 5699}#
+ #{ids\ 5700}#))
+ (lambda (#{p\ 5759}#
+ #{ids\ 5760}#)
(values
(vector
'vector
- #{p\ 16350}#)
- #{ids\ 16351}#))))
- #{tmp\ 16346}#)
- ((lambda (#{x\ 16355}#)
+ #{p\ 5759}#)
+ #{ids\ 5760}#))))
+ #{tmp\ 5755}#)
+ ((lambda (#{x\ 5764}#)
(values
(vector
'atom
- (#{strip\ 13027}#
- #{p\ 16289}#
+ (#{strip\ 2464}#
+ #{p\ 5698}#
'(())))
- #{ids\ 16291}#))
- #{tmp\ 16295}#)))
+ #{ids\ 5700}#))
+ #{tmp\ 5704}#)))
($sc-dispatch
- #{tmp\ 16295}#
+ #{tmp\ 5704}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 16295}#
+ #{tmp\ 5704}#
'()))))
($sc-dispatch
- #{tmp\ 16295}#
+ #{tmp\ 5704}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 16295}#
+ #{tmp\ 5704}#
'(any any . each-any)))))
($sc-dispatch
- #{tmp\ 16295}#
+ #{tmp\ 5704}#
'(any any))))
- #{p\ 16289}#))))
- (#{cvt*\ 16286}#
- (lambda (#{p*\ 16357}#
- #{n\ 16358}#
- #{ids\ 16359}#)
- (if (null? #{p*\ 16357}#)
- (values (quote ()) #{ids\ 16359}#)
+ #{p\ 5698}#))))
+ (#{cvt*\ 5695}#
+ (lambda (#{p*\ 5766}#
+ #{n\ 5767}#
+ #{ids\ 5768}#)
+ (if (null? #{p*\ 5766}#)
+ (values (quote ()) #{ids\ 5768}#)
(call-with-values
(lambda ()
- (#{cvt*\ 16286}#
- (cdr #{p*\ 16357}#)
- #{n\ 16358}#
- #{ids\ 16359}#))
- (lambda (#{y\ 16363}# #{ids\ 16364}#)
+ (#{cvt*\ 5695}#
+ (cdr #{p*\ 5766}#)
+ #{n\ 5767}#
+ #{ids\ 5768}#))
+ (lambda (#{y\ 5772}# #{ids\ 5773}#)
(call-with-values
(lambda ()
- (#{cvt\ 16288}#
- (car #{p*\ 16357}#)
- #{n\ 16358}#
- #{ids\ 16364}#))
- (lambda (#{x\ 16367}# #{ids\ 16368}#)
+ (#{cvt\ 5697}#
+ (car #{p*\ 5766}#)
+ #{n\ 5767}#
+ #{ids\ 5773}#))
+ (lambda (#{x\ 5776}# #{ids\ 5777}#)
(values
- (cons #{x\ 16367}# #{y\ 16363}#)
- #{ids\ 16368}#)))))))))
- (#{cvt\ 16288}# #{pattern\ 16281}# 0 (quote ()))))))
- (lambda (#{e\ 16371}#
- #{r\ 16372}#
- #{w\ 16373}#
- #{s\ 16374}#
- #{mod\ 16375}#)
- (let ((#{e\ 16382}#
- (#{source-wrap\ 12987}#
- #{e\ 16371}#
- #{w\ 16373}#
- #{s\ 16374}#
- #{mod\ 16375}#)))
- ((lambda (#{tmp\ 16383}#)
- ((lambda (#{tmp\ 16384}#)
- (if #{tmp\ 16384}#
- (apply (lambda (#{_\ 16389}#
- #{val\ 16390}#
- #{key\ 16391}#
- #{m\ 16392}#)
+ (cons #{x\ 5776}# #{y\ 5772}#)
+ #{ids\ 5777}#)))))))))
+ (#{cvt\ 5697}# #{pattern\ 5690}# 0 (quote ()))))))
+ (lambda (#{e\ 5780}#
+ #{r\ 5781}#
+ #{w\ 5782}#
+ #{s\ 5783}#
+ #{mod\ 5784}#)
+ (let ((#{e\ 5791}#
+ (#{source-wrap\ 2424}#
+ #{e\ 5780}#
+ #{w\ 5782}#
+ #{s\ 5783}#
+ #{mod\ 5784}#)))
+ ((lambda (#{tmp\ 5792}#)
+ ((lambda (#{tmp\ 5793}#)
+ (if #{tmp\ 5793}#
+ (apply (lambda (#{_\ 5798}#
+ #{val\ 5799}#
+ #{key\ 5800}#
+ #{m\ 5801}#)
(if (and-map
- (lambda (#{x\ 16393}#)
- (if (#{id?\ 12916}# #{x\ 16393}#)
- (not (#{ellipsis?\ 13017}#
- #{x\ 16393}#))
+ (lambda (#{x\ 5802}#)
+ (if (#{id?\ 2353}# #{x\ 5802}#)
+ (not (#{ellipsis?\ 2454}#
+ #{x\ 5802}#))
#f))
- #{key\ 16391}#)
- (let ((#{x\ 16399}#
- (#{gen-var\ 13029}# (quote tmp))))
- (#{build-application\ 12838}#
- #{s\ 16374}#
- (#{build-simple-lambda\ 12858}#
+ #{key\ 5800}#)
+ (let ((#{x\ 5808}#
+ (#{gen-var\ 2466}# (quote tmp))))
+ (#{build-application\ 2275}#
+ #{s\ 5783}#
+ (#{build-simple-lambda\ 2295}#
#f
(list (quote tmp))
#f
- (list #{x\ 16399}#)
+ (list #{x\ 5808}#)
'()
- (#{gen-syntax-case\ 16164}#
- (#{build-lexical-reference\ 12844}#
+ (#{gen-syntax-case\ 5573}#
+ (#{build-lexical-reference\ 2281}#
'value
#f
'tmp
- #{x\ 16399}#)
- #{key\ 16391}#
- #{m\ 16392}#
- #{r\ 16372}#
- #{mod\ 16375}#))
- (list (#{chi\ 13001}#
- #{val\ 16390}#
- #{r\ 16372}#
+ #{x\ 5808}#)
+ #{key\ 5800}#
+ #{m\ 5801}#
+ #{r\ 5781}#
+ #{mod\ 5784}#))
+ (list (#{chi\ 2438}#
+ #{val\ 5799}#
+ #{r\ 5781}#
'(())
- #{mod\ 16375}#))))
+ #{mod\ 5784}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 16382}#)))
- #{tmp\ 16384}#)
+ #{e\ 5791}#)))
+ #{tmp\ 5793}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16383}#)))
+ #{tmp\ 5792}#)))
($sc-dispatch
- #{tmp\ 16383}#
+ #{tmp\ 5792}#
'(any any each-any . each-any))))
- #{e\ 16382}#)))))
+ #{e\ 5791}#)))))
(set! macroexpand
- (lambda (#{x\ 16405}# . #{rest\ 16406}#)
- (let ((#{m\ 16412}#
- (if (null? #{rest\ 16406}#)
+ (lambda (#{x\ 5814}# . #{rest\ 5815}#)
+ (let ((#{m\ 5821}#
+ (if (null? #{rest\ 5815}#)
'e
- (car #{rest\ 16406}#)))
- (#{esew\ 16413}#
- (if (let ((#{t\ 16417}# (null? #{rest\ 16406}#)))
- (if #{t\ 16417}#
- #{t\ 16417}#
- (null? (cdr #{rest\ 16406}#))))
+ (car #{rest\ 5815}#)))
+ (#{esew\ 5822}#
+ (if (let ((#{t\ 5826}# (null? #{rest\ 5815}#)))
+ (if #{t\ 5826}#
+ #{t\ 5826}#
+ (null? (cdr #{rest\ 5815}#))))
'(eval)
- (cadr #{rest\ 16406}#)))
- (#{mod\ 16414}#
+ (cadr #{rest\ 5815}#)))
+ (#{mod\ 5823}#
(cons 'hygiene
(module-name (current-module)))))
(with-fluids
- ((#{*mode*\ 12778}# #{m\ 16412}#))
- (#{chi-top\ 12999}#
- #{x\ 16405}#
+ ((#{*mode*\ 2215}# #{m\ 5821}#))
+ (#{chi-top\ 2436}#
+ #{x\ 5814}#
'()
'((top))
- #{m\ 16412}#
- #{esew\ 16413}#
- #{mod\ 16414}#)))))
+ #{m\ 5821}#
+ #{esew\ 5822}#
+ #{mod\ 5823}#)))))
(set! identifier?
- (lambda (#{x\ 16421}#)
- (#{nonsymbol-id?\ 12914}# #{x\ 16421}#)))
+ (lambda (#{x\ 5830}#)
+ (#{nonsymbol-id?\ 2351}# #{x\ 5830}#)))
(set! datum->syntax
- (lambda (#{id\ 16423}# #{datum\ 16424}#)
- (#{make-syntax-object\ 12878}#
- #{datum\ 16424}#
- (#{syntax-object-wrap\ 12884}# #{id\ 16423}#)
+ (lambda (#{id\ 5832}# #{datum\ 5833}#)
+ (#{make-syntax-object\ 2315}#
+ #{datum\ 5833}#
+ (#{syntax-object-wrap\ 2321}# #{id\ 5832}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 16427}#)
- (#{strip\ 13027}# #{x\ 16427}# (quote (())))))
+ (lambda (#{x\ 5836}#)
+ (#{strip\ 2464}# #{x\ 5836}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 16430}#)
+ (lambda (#{ls\ 5839}#)
(begin
- (let ((#{x\ 16434}# #{ls\ 16430}#))
- (if (not (list? #{x\ 16434}#))
+ (let ((#{x\ 5843}# #{ls\ 5839}#))
+ (if (not (list? #{x\ 5843}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 16434}#)))
- (map (lambda (#{x\ 16435}#)
- (#{wrap\ 12985}# (gensym) (quote ((top))) #f))
- #{ls\ 16430}#))))
+ #{x\ 5843}#)))
+ (map (lambda (#{x\ 5844}#)
+ (#{wrap\ 2422}# (gensym) (quote ((top))) #f))
+ #{ls\ 5839}#))))
(set! free-identifier=?
- (lambda (#{x\ 16439}# #{y\ 16440}#)
+ (lambda (#{x\ 5848}# #{y\ 5849}#)
(begin
- (let ((#{x\ 16445}# #{x\ 16439}#))
- (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16445}#))
+ (let ((#{x\ 5854}# #{x\ 5848}#))
+ (if (not (#{nonsymbol-id?\ 2351}# #{x\ 5854}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 16445}#)))
- (let ((#{x\ 16448}# #{y\ 16440}#))
- (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16448}#))
+ #{x\ 5854}#)))
+ (let ((#{x\ 5857}# #{y\ 5849}#))
+ (if (not (#{nonsymbol-id?\ 2351}# #{x\ 5857}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 16448}#)))
- (#{free-id=?\ 12975}# #{x\ 16439}# #{y\ 16440}#))))
+ #{x\ 5857}#)))
+ (#{free-id=?\ 2412}# #{x\ 5848}# #{y\ 5849}#))))
(set! bound-identifier=?
- (lambda (#{x\ 16449}# #{y\ 16450}#)
+ (lambda (#{x\ 5858}# #{y\ 5859}#)
(begin
- (let ((#{x\ 16455}# #{x\ 16449}#))
- (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16455}#))
+ (let ((#{x\ 5864}# #{x\ 5858}#))
+ (if (not (#{nonsymbol-id?\ 2351}# #{x\ 5864}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 16455}#)))
- (let ((#{x\ 16458}# #{y\ 16450}#))
- (if (not (#{nonsymbol-id?\ 12914}# #{x\ 16458}#))
+ #{x\ 5864}#)))
+ (let ((#{x\ 5867}# #{y\ 5859}#))
+ (if (not (#{nonsymbol-id?\ 2351}# #{x\ 5867}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 16458}#)))
- (#{bound-id=?\ 12977}# #{x\ 16449}# #{y\ 16450}#))))
+ #{x\ 5867}#)))
+ (#{bound-id=?\ 2414}# #{x\ 5858}# #{y\ 5859}#))))
(set! syntax-violation
- (lambda (#{who\ 16459}#
- #{message\ 16460}#
- #{form\ 16461}#
+ (lambda (#{who\ 5868}#
+ #{message\ 5869}#
+ #{form\ 5870}#
.
- #{subform\ 16462}#)
+ #{subform\ 5871}#)
(begin
- (let ((#{x\ 16469}# #{who\ 16459}#))
- (if (not ((lambda (#{x\ 16470}#)
- (let ((#{t\ 16474}# (not #{x\ 16470}#)))
- (if #{t\ 16474}#
- #{t\ 16474}#
- (let ((#{t\ 16477}# (string? #{x\ 16470}#)))
- (if #{t\ 16477}#
- #{t\ 16477}#
- (symbol? #{x\ 16470}#))))))
- #{x\ 16469}#))
+ (let ((#{x\ 5878}# #{who\ 5868}#))
+ (if (not ((lambda (#{x\ 5879}#)
+ (let ((#{t\ 5883}# (not #{x\ 5879}#)))
+ (if #{t\ 5883}#
+ #{t\ 5883}#
+ (let ((#{t\ 5886}# (string? #{x\ 5879}#)))
+ (if #{t\ 5886}#
+ #{t\ 5886}#
+ (symbol? #{x\ 5879}#))))))
+ #{x\ 5878}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 16469}#)))
- (let ((#{x\ 16481}# #{message\ 16460}#))
- (if (not (string? #{x\ 16481}#))
+ #{x\ 5878}#)))
+ (let ((#{x\ 5890}# #{message\ 5869}#))
+ (if (not (string? #{x\ 5890}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 16481}#)))
+ #{x\ 5890}#)))
(scm-error
'syntax-error
'macroexpand
(string-append
- (if #{who\ 16459}# "~a: " "")
+ (if #{who\ 5868}# "~a: " "")
"~a "
- (if (null? #{subform\ 16462}#)
+ (if (null? #{subform\ 5871}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 16483}#
- (cons #{message\ 16460}#
- (map (lambda (#{x\ 16484}#)
- (#{strip\ 13027}#
- #{x\ 16484}#
- '(())))
+ (let ((#{tail\ 5892}#
+ (cons #{message\ 5869}#
+ (map (lambda (#{x\ 5893}#)
+ (#{strip\ 2464}# #{x\ 5893}# (quote (()))))
(append
- #{subform\ 16462}#
- (list #{form\ 16461}#))))))
- (if #{who\ 16459}#
- (cons #{who\ 16459}# #{tail\ 16483}#)
- #{tail\ 16483}#))
+ #{subform\ 5871}#
+ (list #{form\ 5870}#))))))
+ (if #{who\ 5868}#
+ (cons #{who\ 5868}# #{tail\ 5892}#)
+ #{tail\ 5892}#))
#f))))
- (letrec ((#{match\ 16500}#
- (lambda (#{e\ 16501}#
- #{p\ 16502}#
- #{w\ 16503}#
- #{r\ 16504}#
- #{mod\ 16505}#)
- (if (not #{r\ 16504}#)
+ (letrec ((#{match\ 5909}#
+ (lambda (#{e\ 5910}#
+ #{p\ 5911}#
+ #{w\ 5912}#
+ #{r\ 5913}#
+ #{mod\ 5914}#)
+ (if (not #{r\ 5913}#)
#f
- (if (eq? #{p\ 16502}# (quote any))
- (cons (#{wrap\ 12985}#
- #{e\ 16501}#
- #{w\ 16503}#
- #{mod\ 16505}#)
- #{r\ 16504}#)
- (if (#{syntax-object?\ 12880}# #{e\ 16501}#)
- (#{match*\ 16498}#
- (#{syntax-object-expression\ 12882}#
- #{e\ 16501}#)
- #{p\ 16502}#
- (#{join-wraps\ 12967}#
- #{w\ 16503}#
- (#{syntax-object-wrap\ 12884}# #{e\ 16501}#))
- #{r\ 16504}#
- (#{syntax-object-module\ 12886}# #{e\ 16501}#))
- (#{match*\ 16498}#
- #{e\ 16501}#
- #{p\ 16502}#
- #{w\ 16503}#
- #{r\ 16504}#
- #{mod\ 16505}#))))))
- (#{match*\ 16498}#
- (lambda (#{e\ 16518}#
- #{p\ 16519}#
- #{w\ 16520}#
- #{r\ 16521}#
- #{mod\ 16522}#)
- (if (null? #{p\ 16519}#)
- (if (null? #{e\ 16518}#) #{r\ 16521}# #f)
- (if (pair? #{p\ 16519}#)
- (if (pair? #{e\ 16518}#)
- (#{match\ 16500}#
- (car #{e\ 16518}#)
- (car #{p\ 16519}#)
- #{w\ 16520}#
- (#{match\ 16500}#
- (cdr #{e\ 16518}#)
- (cdr #{p\ 16519}#)
- #{w\ 16520}#
- #{r\ 16521}#
- #{mod\ 16522}#)
- #{mod\ 16522}#)
+ (if (eq? #{p\ 5911}# (quote any))
+ (cons (#{wrap\ 2422}#
+ #{e\ 5910}#
+ #{w\ 5912}#
+ #{mod\ 5914}#)
+ #{r\ 5913}#)
+ (if (#{syntax-object?\ 2317}# #{e\ 5910}#)
+ (#{match*\ 5907}#
+ (#{syntax-object-expression\ 2319}# #{e\ 5910}#)
+ #{p\ 5911}#
+ (#{join-wraps\ 2404}#
+ #{w\ 5912}#
+ (#{syntax-object-wrap\ 2321}# #{e\ 5910}#))
+ #{r\ 5913}#
+ (#{syntax-object-module\ 2323}# #{e\ 5910}#))
+ (#{match*\ 5907}#
+ #{e\ 5910}#
+ #{p\ 5911}#
+ #{w\ 5912}#
+ #{r\ 5913}#
+ #{mod\ 5914}#))))))
+ (#{match*\ 5907}#
+ (lambda (#{e\ 5927}#
+ #{p\ 5928}#
+ #{w\ 5929}#
+ #{r\ 5930}#
+ #{mod\ 5931}#)
+ (if (null? #{p\ 5928}#)
+ (if (null? #{e\ 5927}#) #{r\ 5930}# #f)
+ (if (pair? #{p\ 5928}#)
+ (if (pair? #{e\ 5927}#)
+ (#{match\ 5909}#
+ (car #{e\ 5927}#)
+ (car #{p\ 5928}#)
+ #{w\ 5929}#
+ (#{match\ 5909}#
+ (cdr #{e\ 5927}#)
+ (cdr #{p\ 5928}#)
+ #{w\ 5929}#
+ #{r\ 5930}#
+ #{mod\ 5931}#)
+ #{mod\ 5931}#)
#f)
- (if (eq? #{p\ 16519}# (quote each-any))
- (let ((#{l\ 16539}#
- (#{match-each-any\ 16492}#
- #{e\ 16518}#
- #{w\ 16520}#
- #{mod\ 16522}#)))
- (if #{l\ 16539}#
- (cons #{l\ 16539}# #{r\ 16521}#)
+ (if (eq? #{p\ 5928}# (quote each-any))
+ (let ((#{l\ 5948}#
+ (#{match-each-any\ 5901}#
+ #{e\ 5927}#
+ #{w\ 5929}#
+ #{mod\ 5931}#)))
+ (if #{l\ 5948}#
+ (cons #{l\ 5948}# #{r\ 5930}#)
#f))
- (let ((#{atom-key\ 16545}#
- (vector-ref #{p\ 16519}# 0)))
- (if (memv #{atom-key\ 16545}# (quote (each)))
- (if (null? #{e\ 16518}#)
- (#{match-empty\ 16494}#
- (vector-ref #{p\ 16519}# 1)
- #{r\ 16521}#)
- (let ((#{l\ 16548}#
- (#{match-each\ 16488}#
- #{e\ 16518}#
- (vector-ref #{p\ 16519}# 1)
- #{w\ 16520}#
- #{mod\ 16522}#)))
- (if #{l\ 16548}#
- (letrec ((#{collect\ 16553}#
- (lambda (#{l\ 16554}#)
- (if (null? (car #{l\ 16554}#))
- #{r\ 16521}#
- (cons (map car #{l\ 16554}#)
- (#{collect\ 16553}#
+ (let ((#{atom-key\ 5954}# (vector-ref #{p\ 5928}# 0)))
+ (if (memv #{atom-key\ 5954}# (quote (each)))
+ (if (null? #{e\ 5927}#)
+ (#{match-empty\ 5903}#
+ (vector-ref #{p\ 5928}# 1)
+ #{r\ 5930}#)
+ (let ((#{l\ 5957}#
+ (#{match-each\ 5897}#
+ #{e\ 5927}#
+ (vector-ref #{p\ 5928}# 1)
+ #{w\ 5929}#
+ #{mod\ 5931}#)))
+ (if #{l\ 5957}#
+ (letrec ((#{collect\ 5962}#
+ (lambda (#{l\ 5963}#)
+ (if (null? (car #{l\ 5963}#))
+ #{r\ 5930}#
+ (cons (map car #{l\ 5963}#)
+ (#{collect\ 5962}#
(map cdr
- #{l\ 16554}#)))))))
- (#{collect\ 16553}# #{l\ 16548}#))
+ #{l\ 5963}#)))))))
+ (#{collect\ 5962}# #{l\ 5957}#))
#f)))
- (if (memv #{atom-key\ 16545}# (quote (each+)))
+ (if (memv #{atom-key\ 5954}# (quote (each+)))
(call-with-values
(lambda ()
- (#{match-each+\ 16490}#
- #{e\ 16518}#
- (vector-ref #{p\ 16519}# 1)
- (vector-ref #{p\ 16519}# 2)
- (vector-ref #{p\ 16519}# 3)
- #{w\ 16520}#
- #{r\ 16521}#
- #{mod\ 16522}#))
- (lambda (#{xr*\ 16556}#
- #{y-pat\ 16557}#
- #{r\ 16558}#)
- (if #{r\ 16558}#
- (if (null? #{y-pat\ 16557}#)
- (if (null? #{xr*\ 16556}#)
- (#{match-empty\ 16494}#
- (vector-ref #{p\ 16519}# 1)
- #{r\ 16558}#)
- (#{combine\ 16496}#
- #{xr*\ 16556}#
- #{r\ 16558}#))
+ (#{match-each+\ 5899}#
+ #{e\ 5927}#
+ (vector-ref #{p\ 5928}# 1)
+ (vector-ref #{p\ 5928}# 2)
+ (vector-ref #{p\ 5928}# 3)
+ #{w\ 5929}#
+ #{r\ 5930}#
+ #{mod\ 5931}#))
+ (lambda (#{xr*\ 5965}#
+ #{y-pat\ 5966}#
+ #{r\ 5967}#)
+ (if #{r\ 5967}#
+ (if (null? #{y-pat\ 5966}#)
+ (if (null? #{xr*\ 5965}#)
+ (#{match-empty\ 5903}#
+ (vector-ref #{p\ 5928}# 1)
+ #{r\ 5967}#)
+ (#{combine\ 5905}#
+ #{xr*\ 5965}#
+ #{r\ 5967}#))
#f)
#f)))
- (if (memv #{atom-key\ 16545}# (quote (free-id)))
- (if (#{id?\ 12916}# #{e\ 16518}#)
- (if (#{free-id=?\ 12975}#
- (#{wrap\ 12985}#
- #{e\ 16518}#
- #{w\ 16520}#
- #{mod\ 16522}#)
- (vector-ref #{p\ 16519}# 1))
- #{r\ 16521}#
+ (if (memv #{atom-key\ 5954}# (quote (free-id)))
+ (if (#{id?\ 2353}# #{e\ 5927}#)
+ (if (#{free-id=?\ 2412}#
+ (#{wrap\ 2422}#
+ #{e\ 5927}#
+ #{w\ 5929}#
+ #{mod\ 5931}#)
+ (vector-ref #{p\ 5928}# 1))
+ #{r\ 5930}#
#f)
#f)
- (if (memv #{atom-key\ 16545}# (quote (atom)))
+ (if (memv #{atom-key\ 5954}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 16519}# 1)
- (#{strip\ 13027}#
- #{e\ 16518}#
- #{w\ 16520}#))
- #{r\ 16521}#
+ (vector-ref #{p\ 5928}# 1)
+ (#{strip\ 2464}#
+ #{e\ 5927}#
+ #{w\ 5929}#))
+ #{r\ 5930}#
#f)
- (if (memv #{atom-key\ 16545}#
+ (if (memv #{atom-key\ 5954}#
'(vector))
- (if (vector? #{e\ 16518}#)
- (#{match\ 16500}#
- (vector->list #{e\ 16518}#)
- (vector-ref #{p\ 16519}# 1)
- #{w\ 16520}#
- #{r\ 16521}#
- #{mod\ 16522}#)
+ (if (vector? #{e\ 5927}#)
+ (#{match\ 5909}#
+ (vector->list #{e\ 5927}#)
+ (vector-ref #{p\ 5928}# 1)
+ #{w\ 5929}#
+ #{r\ 5930}#
+ #{mod\ 5931}#)
#f))))))))))))
- (#{combine\ 16496}#
- (lambda (#{r*\ 16575}# #{r\ 16576}#)
- (if (null? (car #{r*\ 16575}#))
- #{r\ 16576}#
- (cons (map car #{r*\ 16575}#)
- (#{combine\ 16496}#
- (map cdr #{r*\ 16575}#)
- #{r\ 16576}#)))))
- (#{match-empty\ 16494}#
- (lambda (#{p\ 16579}# #{r\ 16580}#)
- (if (null? #{p\ 16579}#)
- #{r\ 16580}#
- (if (eq? #{p\ 16579}# (quote any))
- (cons (quote ()) #{r\ 16580}#)
- (if (pair? #{p\ 16579}#)
- (#{match-empty\ 16494}#
- (car #{p\ 16579}#)
- (#{match-empty\ 16494}#
- (cdr #{p\ 16579}#)
- #{r\ 16580}#))
- (if (eq? #{p\ 16579}# (quote each-any))
- (cons (quote ()) #{r\ 16580}#)
- (let ((#{atom-key\ 16594}#
- (vector-ref #{p\ 16579}# 0)))
- (if (memv #{atom-key\ 16594}# (quote (each)))
- (#{match-empty\ 16494}#
- (vector-ref #{p\ 16579}# 1)
- #{r\ 16580}#)
- (if (memv #{atom-key\ 16594}# (quote (each+)))
- (#{match-empty\ 16494}#
- (vector-ref #{p\ 16579}# 1)
- (#{match-empty\ 16494}#
- (reverse (vector-ref #{p\ 16579}# 2))
- (#{match-empty\ 16494}#
- (vector-ref #{p\ 16579}# 3)
- #{r\ 16580}#)))
- (if (memv #{atom-key\ 16594}#
+ (#{combine\ 5905}#
+ (lambda (#{r*\ 5984}# #{r\ 5985}#)
+ (if (null? (car #{r*\ 5984}#))
+ #{r\ 5985}#
+ (cons (map car #{r*\ 5984}#)
+ (#{combine\ 5905}#
+ (map cdr #{r*\ 5984}#)
+ #{r\ 5985}#)))))
+ (#{match-empty\ 5903}#
+ (lambda (#{p\ 5988}# #{r\ 5989}#)
+ (if (null? #{p\ 5988}#)
+ #{r\ 5989}#
+ (if (eq? #{p\ 5988}# (quote any))
+ (cons (quote ()) #{r\ 5989}#)
+ (if (pair? #{p\ 5988}#)
+ (#{match-empty\ 5903}#
+ (car #{p\ 5988}#)
+ (#{match-empty\ 5903}#
+ (cdr #{p\ 5988}#)
+ #{r\ 5989}#))
+ (if (eq? #{p\ 5988}# (quote each-any))
+ (cons (quote ()) #{r\ 5989}#)
+ (let ((#{atom-key\ 6003}#
+ (vector-ref #{p\ 5988}# 0)))
+ (if (memv #{atom-key\ 6003}# (quote (each)))
+ (#{match-empty\ 5903}#
+ (vector-ref #{p\ 5988}# 1)
+ #{r\ 5989}#)
+ (if (memv #{atom-key\ 6003}# (quote (each+)))
+ (#{match-empty\ 5903}#
+ (vector-ref #{p\ 5988}# 1)
+ (#{match-empty\ 5903}#
+ (reverse (vector-ref #{p\ 5988}# 2))
+ (#{match-empty\ 5903}#
+ (vector-ref #{p\ 5988}# 3)
+ #{r\ 5989}#)))
+ (if (memv #{atom-key\ 6003}#
'(free-id atom))
- #{r\ 16580}#
- (if (memv #{atom-key\ 16594}#
+ #{r\ 5989}#
+ (if (memv #{atom-key\ 6003}#
'(vector))
- (#{match-empty\ 16494}#
- (vector-ref #{p\ 16579}# 1)
- #{r\ 16580}#))))))))))))
- (#{match-each-any\ 16492}#
- (lambda (#{e\ 16599}# #{w\ 16600}# #{mod\ 16601}#)
- (if (pair? #{e\ 16599}#)
- (let ((#{l\ 16608}#
- (#{match-each-any\ 16492}#
- (cdr #{e\ 16599}#)
- #{w\ 16600}#
- #{mod\ 16601}#)))
- (if #{l\ 16608}#
- (cons (#{wrap\ 12985}#
- (car #{e\ 16599}#)
- #{w\ 16600}#
- #{mod\ 16601}#)
- #{l\ 16608}#)
+ (#{match-empty\ 5903}#
+ (vector-ref #{p\ 5988}# 1)
+ #{r\ 5989}#))))))))))))
+ (#{match-each-any\ 5901}#
+ (lambda (#{e\ 6008}# #{w\ 6009}# #{mod\ 6010}#)
+ (if (pair? #{e\ 6008}#)
+ (let ((#{l\ 6017}#
+ (#{match-each-any\ 5901}#
+ (cdr #{e\ 6008}#)
+ #{w\ 6009}#
+ #{mod\ 6010}#)))
+ (if #{l\ 6017}#
+ (cons (#{wrap\ 2422}#
+ (car #{e\ 6008}#)
+ #{w\ 6009}#
+ #{mod\ 6010}#)
+ #{l\ 6017}#)
#f))
- (if (null? #{e\ 16599}#)
+ (if (null? #{e\ 6008}#)
'()
- (if (#{syntax-object?\ 12880}# #{e\ 16599}#)
- (#{match-each-any\ 16492}#
- (#{syntax-object-expression\ 12882}#
- #{e\ 16599}#)
- (#{join-wraps\ 12967}#
- #{w\ 16600}#
- (#{syntax-object-wrap\ 12884}# #{e\ 16599}#))
- #{mod\ 16601}#)
+ (if (#{syntax-object?\ 2317}# #{e\ 6008}#)
+ (#{match-each-any\ 5901}#
+ (#{syntax-object-expression\ 2319}# #{e\ 6008}#)
+ (#{join-wraps\ 2404}#
+ #{w\ 6009}#
+ (#{syntax-object-wrap\ 2321}# #{e\ 6008}#))
+ #{mod\ 6010}#)
#f)))))
- (#{match-each+\ 16490}#
- (lambda (#{e\ 16616}#
- #{x-pat\ 16617}#
- #{y-pat\ 16618}#
- #{z-pat\ 16619}#
- #{w\ 16620}#
- #{r\ 16621}#
- #{mod\ 16622}#)
- (letrec ((#{f\ 16633}#
- (lambda (#{e\ 16634}# #{w\ 16635}#)
- (if (pair? #{e\ 16634}#)
+ (#{match-each+\ 5899}#
+ (lambda (#{e\ 6025}#
+ #{x-pat\ 6026}#
+ #{y-pat\ 6027}#
+ #{z-pat\ 6028}#
+ #{w\ 6029}#
+ #{r\ 6030}#
+ #{mod\ 6031}#)
+ (letrec ((#{f\ 6042}#
+ (lambda (#{e\ 6043}# #{w\ 6044}#)
+ (if (pair? #{e\ 6043}#)
(call-with-values
(lambda ()
- (#{f\ 16633}#
- (cdr #{e\ 16634}#)
- #{w\ 16635}#))
- (lambda (#{xr*\ 16638}#
- #{y-pat\ 16639}#
- #{r\ 16640}#)
- (if #{r\ 16640}#
- (if (null? #{y-pat\ 16639}#)
- (let ((#{xr\ 16645}#
- (#{match\ 16500}#
- (car #{e\ 16634}#)
- #{x-pat\ 16617}#
- #{w\ 16635}#
+ (#{f\ 6042}#
+ (cdr #{e\ 6043}#)
+ #{w\ 6044}#))
+ (lambda (#{xr*\ 6047}#
+ #{y-pat\ 6048}#
+ #{r\ 6049}#)
+ (if #{r\ 6049}#
+ (if (null? #{y-pat\ 6048}#)
+ (let ((#{xr\ 6054}#
+ (#{match\ 5909}#
+ (car #{e\ 6043}#)
+ #{x-pat\ 6026}#
+ #{w\ 6044}#
'()
- #{mod\ 16622}#)))
- (if #{xr\ 16645}#
+ #{mod\ 6031}#)))
+ (if #{xr\ 6054}#
(values
- (cons #{xr\ 16645}#
- #{xr*\ 16638}#)
- #{y-pat\ 16639}#
- #{r\ 16640}#)
+ (cons #{xr\ 6054}#
+ #{xr*\ 6047}#)
+ #{y-pat\ 6048}#
+ #{r\ 6049}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat\ 16639}#)
- (#{match\ 16500}#
- (car #{e\ 16634}#)
- (car #{y-pat\ 16639}#)
- #{w\ 16635}#
- #{r\ 16640}#
- #{mod\ 16622}#)))
+ (cdr #{y-pat\ 6048}#)
+ (#{match\ 5909}#
+ (car #{e\ 6043}#)
+ (car #{y-pat\ 6048}#)
+ #{w\ 6044}#
+ #{r\ 6049}#
+ #{mod\ 6031}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 12880}# #{e\ 16634}#)
- (#{f\ 16633}#
- (#{syntax-object-expression\ 12882}#
- #{e\ 16634}#)
- (#{join-wraps\ 12967}#
- #{w\ 16635}#
- #{e\ 16634}#))
+ (if (#{syntax-object?\ 2317}# #{e\ 6043}#)
+ (#{f\ 6042}#
+ (#{syntax-object-expression\ 2319}#
+ #{e\ 6043}#)
+ (#{join-wraps\ 2404}#
+ #{w\ 6044}#
+ #{e\ 6043}#))
(values
'()
- #{y-pat\ 16618}#
- (#{match\ 16500}#
- #{e\ 16634}#
- #{z-pat\ 16619}#
- #{w\ 16635}#
- #{r\ 16621}#
- #{mod\ 16622}#)))))))
- (#{f\ 16633}# #{e\ 16616}# #{w\ 16620}#))))
- (#{match-each\ 16488}#
- (lambda (#{e\ 16649}#
- #{p\ 16650}#
- #{w\ 16651}#
- #{mod\ 16652}#)
- (if (pair? #{e\ 16649}#)
- (let ((#{first\ 16660}#
- (#{match\ 16500}#
- (car #{e\ 16649}#)
- #{p\ 16650}#
- #{w\ 16651}#
+ #{y-pat\ 6027}#
+ (#{match\ 5909}#
+ #{e\ 6043}#
+ #{z-pat\ 6028}#
+ #{w\ 6044}#
+ #{r\ 6030}#
+ #{mod\ 6031}#)))))))
+ (#{f\ 6042}# #{e\ 6025}# #{w\ 6029}#))))
+ (#{match-each\ 5897}#
+ (lambda (#{e\ 6058}#
+ #{p\ 6059}#
+ #{w\ 6060}#
+ #{mod\ 6061}#)
+ (if (pair? #{e\ 6058}#)
+ (let ((#{first\ 6069}#
+ (#{match\ 5909}#
+ (car #{e\ 6058}#)
+ #{p\ 6059}#
+ #{w\ 6060}#
'()
- #{mod\ 16652}#)))
- (if #{first\ 16660}#
- (let ((#{rest\ 16664}#
- (#{match-each\ 16488}#
- (cdr #{e\ 16649}#)
- #{p\ 16650}#
- #{w\ 16651}#
- #{mod\ 16652}#)))
- (if #{rest\ 16664}#
- (cons #{first\ 16660}# #{rest\ 16664}#)
+ #{mod\ 6061}#)))
+ (if #{first\ 6069}#
+ (let ((#{rest\ 6073}#
+ (#{match-each\ 5897}#
+ (cdr #{e\ 6058}#)
+ #{p\ 6059}#
+ #{w\ 6060}#
+ #{mod\ 6061}#)))
+ (if #{rest\ 6073}#
+ (cons #{first\ 6069}# #{rest\ 6073}#)
#f))
#f))
- (if (null? #{e\ 16649}#)
+ (if (null? #{e\ 6058}#)
'()
- (if (#{syntax-object?\ 12880}# #{e\ 16649}#)
- (#{match-each\ 16488}#
- (#{syntax-object-expression\ 12882}#
- #{e\ 16649}#)
- #{p\ 16650}#
- (#{join-wraps\ 12967}#
- #{w\ 16651}#
- (#{syntax-object-wrap\ 12884}# #{e\ 16649}#))
- (#{syntax-object-module\ 12886}# #{e\ 16649}#))
+ (if (#{syntax-object?\ 2317}# #{e\ 6058}#)
+ (#{match-each\ 5897}#
+ (#{syntax-object-expression\ 2319}# #{e\ 6058}#)
+ #{p\ 6059}#
+ (#{join-wraps\ 2404}#
+ #{w\ 6060}#
+ (#{syntax-object-wrap\ 2321}# #{e\ 6058}#))
+ (#{syntax-object-module\ 2323}# #{e\ 6058}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 16672}# #{p\ 16673}#)
- (if (eq? #{p\ 16673}# (quote any))
- (list #{e\ 16672}#)
- (if (#{syntax-object?\ 12880}# #{e\ 16672}#)
- (#{match*\ 16498}#
- (#{syntax-object-expression\ 12882}#
- #{e\ 16672}#)
- #{p\ 16673}#
- (#{syntax-object-wrap\ 12884}# #{e\ 16672}#)
+ (lambda (#{e\ 6081}# #{p\ 6082}#)
+ (if (eq? #{p\ 6082}# (quote any))
+ (list #{e\ 6081}#)
+ (if (#{syntax-object?\ 2317}# #{e\ 6081}#)
+ (#{match*\ 5907}#
+ (#{syntax-object-expression\ 2319}# #{e\ 6081}#)
+ #{p\ 6082}#
+ (#{syntax-object-wrap\ 2321}# #{e\ 6081}#)
'()
- (#{syntax-object-module\ 12886}# #{e\ 16672}#))
- (#{match*\ 16498}#
- #{e\ 16672}#
- #{p\ 16673}#
+ (#{syntax-object-module\ 2323}# #{e\ 6081}#))
+ (#{match*\ 5907}#
+ #{e\ 6081}#
+ #{p\ 6082}#
'(())
'()
#f)))))))))
@@ -13071,50 +12907,50 @@
(make-syntax-transformer
'with-syntax
'macro
- (cons (lambda (#{x\ 16682}#)
- ((lambda (#{tmp\ 16684}#)
- ((lambda (#{tmp\ 16685}#)
- (if #{tmp\ 16685}#
- (apply (lambda (#{_\ 16689}# #{e1\ 16690}# #{e2\ 16691}#)
+ (cons (lambda (#{x\ 6091}#)
+ ((lambda (#{tmp\ 6093}#)
+ ((lambda (#{tmp\ 6094}#)
+ (if #{tmp\ 6094}#
+ (apply (lambda (#{_\ 6098}# #{e1\ 6099}# #{e2\ 6100}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i16686" "i16687" "i16688"))
+ #("i6095" "i6096" "i6097"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i16683")))
+ #(ribcage #(x) #((top)) #("i6092")))
(hygiene guile))
- (cons #{e1\ 16690}# #{e2\ 16691}#)))
- #{tmp\ 16685}#)
- ((lambda (#{tmp\ 16693}#)
- (if #{tmp\ 16693}#
- (apply (lambda (#{_\ 16699}#
- #{out\ 16700}#
- #{in\ 16701}#
- #{e1\ 16702}#
- #{e2\ 16703}#)
+ (cons #{e1\ 6099}# #{e2\ 6100}#)))
+ #{tmp\ 6094}#)
+ ((lambda (#{tmp\ 6102}#)
+ (if #{tmp\ 6102}#
+ (apply (lambda (#{_\ 6108}#
+ #{out\ 6109}#
+ #{in\ 6110}#
+ #{e1\ 6111}#
+ #{e2\ 6112}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i16694"
- "i16695"
- "i16696"
- "i16697"
- "i16698"))
+ #("i6103"
+ "i6104"
+ "i6105"
+ "i6106"
+ "i6107"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16683")))
+ #("i6092")))
(hygiene guile))
- #{in\ 16701}#
+ #{in\ 6110}#
'()
- (list #{out\ 16700}#
+ (list #{out\ 6109}#
(cons '#(syntax-object
begin
((top)
@@ -13125,27 +12961,27 @@
(top)
(top)
(top))
- #("i16694"
- "i16695"
- "i16696"
- "i16697"
- "i16698"))
+ #("i6103"
+ "i6104"
+ "i6105"
+ "i6106"
+ "i6107"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16683")))
+ #("i6092")))
(hygiene guile))
- (cons #{e1\ 16702}#
- #{e2\ 16703}#)))))
- #{tmp\ 16693}#)
- ((lambda (#{tmp\ 16705}#)
- (if #{tmp\ 16705}#
- (apply (lambda (#{_\ 16711}#
- #{out\ 16712}#
- #{in\ 16713}#
- #{e1\ 16714}#
- #{e2\ 16715}#)
+ (cons #{e1\ 6111}#
+ #{e2\ 6112}#)))))
+ #{tmp\ 6102}#)
+ ((lambda (#{tmp\ 6114}#)
+ (if #{tmp\ 6114}#
+ (apply (lambda (#{_\ 6120}#
+ #{out\ 6121}#
+ #{in\ 6122}#
+ #{e1\ 6123}#
+ #{e2\ 6124}#)
(list '#(syntax-object
syntax-case
((top)
@@ -13156,16 +12992,16 @@
(top)
(top)
(top))
- #("i16706"
- "i16707"
- "i16708"
- "i16709"
- "i16710"))
+ #("i6115"
+ "i6116"
+ "i6117"
+ "i6118"
+ "i6119"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16683")))
+ #("i6092")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -13177,20 +13013,20 @@
(top)
(top)
(top))
- #("i16706"
- "i16707"
- "i16708"
- "i16709"
- "i16710"))
+ #("i6115"
+ "i6116"
+ "i6117"
+ "i6118"
+ "i6119"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16683")))
+ #("i6092")))
(hygiene guile))
- #{in\ 16713}#)
+ #{in\ 6122}#)
'()
- (list #{out\ 16712}#
+ (list #{out\ 6121}#
(cons '#(syntax-object
begin
((top)
@@ -13205,11 +13041,11 @@
(top)
(top)
(top))
- #("i16706"
- "i16707"
- "i16708"
- "i16709"
- "i16710"))
+ #("i6115"
+ "i6116"
+ "i6117"
+ "i6118"
+ "i6119"))
#(ribcage
()
()
@@ -13217,53 +13053,53 @@
#(ribcage
#(x)
#((top))
- #("i16683")))
+ #("i6092")))
(hygiene guile))
- (cons #{e1\ 16714}#
- #{e2\ 16715}#)))))
- #{tmp\ 16705}#)
+ (cons #{e1\ 6123}#
+ #{e2\ 6124}#)))))
+ #{tmp\ 6114}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16684}#)))
+ #{tmp\ 6093}#)))
($sc-dispatch
- #{tmp\ 16684}#
+ #{tmp\ 6093}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 16684}#
+ #{tmp\ 6093}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 16684}#
+ #{tmp\ 6093}#
'(any () any . each-any))))
- #{x\ 16682}#))
+ #{x\ 6091}#))
(module-name (current-module)))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (cons (lambda (#{x\ 16719}#)
- ((lambda (#{tmp\ 16721}#)
- ((lambda (#{tmp\ 16722}#)
- (if #{tmp\ 16722}#
- (apply (lambda (#{_\ 16728}#
- #{k\ 16729}#
- #{keyword\ 16730}#
- #{pattern\ 16731}#
- #{template\ 16732}#)
+ (cons (lambda (#{x\ 6128}#)
+ ((lambda (#{tmp\ 6130}#)
+ ((lambda (#{tmp\ 6131}#)
+ (if #{tmp\ 6131}#
+ (apply (lambda (#{_\ 6137}#
+ #{k\ 6138}#
+ #{keyword\ 6139}#
+ #{pattern\ 6140}#
+ #{template\ 6141}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i16723"
- "i16724"
- "i16725"
- "i16726"
- "i16727"))
+ #("i6132"
+ "i6133"
+ "i6134"
+ "i6135"
+ "i6136"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i16720")))
+ #(ribcage #(x) #((top)) #("i6129")))
(hygiene guile))
'(#(syntax-object
x
@@ -13271,13 +13107,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i16723"
- "i16724"
- "i16725"
- "i16726"
- "i16727"))
+ #("i6132"
+ "i6133"
+ "i6134"
+ "i6135"
+ "i6136"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i16720")))
+ #(ribcage #(x) #((top)) #("i6129")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -13286,13 +13122,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i16723"
- "i16724"
- "i16725"
- "i16726"
- "i16727"))
+ #("i6132"
+ "i6133"
+ "i6134"
+ "i6135"
+ "i6136"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i16720")))
+ #(ribcage #(x) #((top)) #("i6129")))
(hygiene guile))
.
#(syntax-object
@@ -13301,13 +13137,13 @@
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i16723"
- "i16724"
- "i16725"
- "i16726"
- "i16727"))
+ #("i6132"
+ "i6133"
+ "i6134"
+ "i6135"
+ "i6136"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i16720")))
+ #(ribcage #(x) #((top)) #("i6129")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -13323,34 +13159,34 @@
(top)
(top)
(top))
- #("i16723"
- "i16724"
- "i16725"
- "i16726"
- "i16727"))
+ #("i6132"
+ "i6133"
+ "i6134"
+ "i6135"
+ "i6136"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16720")))
+ #("i6129")))
(hygiene guile))
- #{pattern\ 16731}#))
+ #{pattern\ 6140}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i16723"
- "i16724"
- "i16725"
- "i16726"
- "i16727"))
+ #("i6132"
+ "i6133"
+ "i6134"
+ "i6135"
+ "i6136"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16720")))
+ #("i6129")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -13366,20 +13202,20 @@
(top)
(top)
(top))
- #("i16723"
- "i16724"
- "i16725"
- "i16726"
- "i16727"))
+ #("i6132"
+ "i6133"
+ "i6134"
+ "i6135"
+ "i6136"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16720")))
+ #("i6129")))
(hygiene guile))
- (cons #{k\ 16729}#
- (map (lambda (#{tmp\ 16736}#
- #{tmp\ 16735}#)
+ (cons #{k\ 6138}#
+ (map (lambda (#{tmp\ 6145}#
+ #{tmp\ 6144}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -13394,11 +13230,11 @@
(top)
(top)
(top))
- #("i16723"
- "i16724"
- "i16725"
- "i16726"
- "i16727"))
+ #("i6132"
+ "i6133"
+ "i6134"
+ "i6135"
+ "i6136"))
#(ribcage
()
()
@@ -13406,10 +13242,10 @@
#(ribcage
#(x)
#((top))
- #("i16720")))
+ #("i6129")))
(hygiene
guile))
- #{tmp\ 16735}#)
+ #{tmp\ 6144}#)
(list '#(syntax-object
syntax
((top)
@@ -13424,11 +13260,11 @@
(top)
(top)
(top))
- #("i16723"
- "i16724"
- "i16725"
- "i16726"
- "i16727"))
+ #("i6132"
+ "i6133"
+ "i6134"
+ "i6135"
+ "i6136"))
#(ribcage
()
()
@@ -13436,47 +13272,47 @@
#(ribcage
#(x)
#((top))
- #("i16720")))
+ #("i6129")))
(hygiene
guile))
- #{tmp\ 16736}#)))
- #{template\ 16732}#
- #{pattern\ 16731}#))))))
- #{tmp\ 16722}#)
+ #{tmp\ 6145}#)))
+ #{template\ 6141}#
+ #{pattern\ 6140}#))))))
+ #{tmp\ 6131}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16721}#)))
+ #{tmp\ 6130}#)))
($sc-dispatch
- #{tmp\ 16721}#
+ #{tmp\ 6130}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 16719}#))
+ #{x\ 6128}#))
(module-name (current-module)))))
(define let*
(make-syntax-transformer
'let*
'macro
- (cons (lambda (#{x\ 16737}#)
- ((lambda (#{tmp\ 16739}#)
- ((lambda (#{tmp\ 16740}#)
- (if (if #{tmp\ 16740}#
- (apply (lambda (#{let*\ 16746}#
- #{x\ 16747}#
- #{v\ 16748}#
- #{e1\ 16749}#
- #{e2\ 16750}#)
- (and-map identifier? #{x\ 16747}#))
- #{tmp\ 16740}#)
+ (cons (lambda (#{x\ 6146}#)
+ ((lambda (#{tmp\ 6148}#)
+ ((lambda (#{tmp\ 6149}#)
+ (if (if #{tmp\ 6149}#
+ (apply (lambda (#{let*\ 6155}#
+ #{x\ 6156}#
+ #{v\ 6157}#
+ #{e1\ 6158}#
+ #{e2\ 6159}#)
+ (and-map identifier? #{x\ 6156}#))
+ #{tmp\ 6149}#)
#f)
- (apply (lambda (#{let*\ 16757}#
- #{x\ 16758}#
- #{v\ 16759}#
- #{e1\ 16760}#
- #{e2\ 16761}#)
- (letrec ((#{f\ 16764}#
- (lambda (#{bindings\ 16765}#)
- (if (null? #{bindings\ 16765}#)
+ (apply (lambda (#{let*\ 6166}#
+ #{x\ 6167}#
+ #{v\ 6168}#
+ #{e1\ 6169}#
+ #{e2\ 6170}#)
+ (letrec ((#{f\ 6173}#
+ (lambda (#{bindings\ 6174}#)
+ (if (null? #{bindings\ 6174}#)
(cons '#(syntax-object
let
((top)
@@ -13484,7 +13320,7 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("i16762" "i16763"))
+ #("i6171" "i6172"))
#(ribcage
#(let* x v e1 e2)
#((top)
@@ -13492,25 +13328,25 @@
(top)
(top)
(top))
- #("i16752"
- "i16753"
- "i16754"
- "i16755"
- "i16756"))
+ #("i6161"
+ "i6162"
+ "i6163"
+ "i6164"
+ "i6165"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16738")))
+ #("i6147")))
(hygiene guile))
(cons '()
- (cons #{e1\ 16760}#
- #{e2\ 16761}#)))
- ((lambda (#{tmp\ 16770}#)
- ((lambda (#{tmp\ 16771}#)
- (if #{tmp\ 16771}#
- (apply (lambda (#{body\ 16774}#
- #{binding\ 16775}#)
+ (cons #{e1\ 6169}#
+ #{e2\ 6170}#)))
+ ((lambda (#{tmp\ 6179}#)
+ ((lambda (#{tmp\ 6180}#)
+ (if #{tmp\ 6180}#
+ (apply (lambda (#{body\ 6183}#
+ #{binding\ 6184}#)
(list '#(syntax-object
let
((top)
@@ -13519,8 +13355,8 @@
binding)
#((top)
(top))
- #("i16772"
- "i16773"))
+ #("i6181"
+ "i6182"))
#(ribcage
()
()
@@ -13530,8 +13366,8 @@
bindings)
#((top)
(top))
- #("i16762"
- "i16763"))
+ #("i6171"
+ "i6172"))
#(ribcage
#(let*
x
@@ -13543,11 +13379,11 @@
(top)
(top)
(top))
- #("i16752"
- "i16753"
- "i16754"
- "i16755"
- "i16756"))
+ #("i6161"
+ "i6162"
+ "i6163"
+ "i6164"
+ "i6165"))
#(ribcage
()
()
@@ -13555,57 +13391,57 @@
#(ribcage
#(x)
#((top))
- #("i16738")))
+ #("i6147")))
(hygiene
guile))
- (list #{binding\ 16775}#)
- #{body\ 16774}#))
- #{tmp\ 16771}#)
+ (list #{binding\ 6184}#)
+ #{body\ 6183}#))
+ #{tmp\ 6180}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16770}#)))
+ #{tmp\ 6179}#)))
($sc-dispatch
- #{tmp\ 16770}#
+ #{tmp\ 6179}#
'(any any))))
- (list (#{f\ 16764}#
- (cdr #{bindings\ 16765}#))
- (car #{bindings\ 16765}#)))))))
- (#{f\ 16764}#
- (map list #{x\ 16758}# #{v\ 16759}#))))
- #{tmp\ 16740}#)
+ (list (#{f\ 6173}#
+ (cdr #{bindings\ 6174}#))
+ (car #{bindings\ 6174}#)))))))
+ (#{f\ 6173}#
+ (map list #{x\ 6167}# #{v\ 6168}#))))
+ #{tmp\ 6149}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16739}#)))
+ #{tmp\ 6148}#)))
($sc-dispatch
- #{tmp\ 16739}#
+ #{tmp\ 6148}#
'(any #(each (any any)) any . each-any))))
- #{x\ 16737}#))
+ #{x\ 6146}#))
(module-name (current-module)))))
(define do
(make-syntax-transformer
'do
'macro
- (cons (lambda (#{orig-x\ 16776}#)
- ((lambda (#{tmp\ 16778}#)
- ((lambda (#{tmp\ 16779}#)
- (if #{tmp\ 16779}#
- (apply (lambda (#{_\ 16787}#
- #{var\ 16788}#
- #{init\ 16789}#
- #{step\ 16790}#
- #{e0\ 16791}#
- #{e1\ 16792}#
- #{c\ 16793}#)
- ((lambda (#{tmp\ 16795}#)
- ((lambda (#{tmp\ 16796}#)
- (if #{tmp\ 16796}#
- (apply (lambda (#{step\ 16798}#)
- ((lambda (#{tmp\ 16799}#)
- ((lambda (#{tmp\ 16800}#)
- (if #{tmp\ 16800}#
+ (cons (lambda (#{orig-x\ 6185}#)
+ ((lambda (#{tmp\ 6187}#)
+ ((lambda (#{tmp\ 6188}#)
+ (if #{tmp\ 6188}#
+ (apply (lambda (#{_\ 6196}#
+ #{var\ 6197}#
+ #{init\ 6198}#
+ #{step\ 6199}#
+ #{e0\ 6200}#
+ #{e1\ 6201}#
+ #{c\ 6202}#)
+ ((lambda (#{tmp\ 6204}#)
+ ((lambda (#{tmp\ 6205}#)
+ (if #{tmp\ 6205}#
+ (apply (lambda (#{step\ 6207}#)
+ ((lambda (#{tmp\ 6208}#)
+ ((lambda (#{tmp\ 6209}#)
+ (if #{tmp\ 6209}#
(apply (lambda ()
(list '#(syntax-object
let
@@ -13613,7 +13449,7 @@
#(ribcage
#(step)
#((top))
- #("i16797"))
+ #("i6206"))
#(ribcage
#(_
var
@@ -13629,13 +13465,13 @@
(top)
(top)
(top))
- #("i16780"
- "i16781"
- "i16782"
- "i16783"
- "i16784"
- "i16785"
- "i16786"))
+ #("i6189"
+ "i6190"
+ "i6191"
+ "i6192"
+ "i6193"
+ "i6194"
+ "i6195"))
#(ribcage
()
()
@@ -13643,7 +13479,7 @@
#(ribcage
#(orig-x)
#((top))
- #("i16777")))
+ #("i6186")))
(hygiene
guile))
'#(syntax-object
@@ -13652,7 +13488,7 @@
#(ribcage
#(step)
#((top))
- #("i16797"))
+ #("i6206"))
#(ribcage
#(_
var
@@ -13668,13 +13504,13 @@
(top)
(top)
(top))
- #("i16780"
- "i16781"
- "i16782"
- "i16783"
- "i16784"
- "i16785"
- "i16786"))
+ #("i6189"
+ "i6190"
+ "i6191"
+ "i6192"
+ "i6193"
+ "i6194"
+ "i6195"))
#(ribcage
()
()
@@ -13682,19 +13518,19 @@
#(ribcage
#(orig-x)
#((top))
- #("i16777")))
+ #("i6186")))
(hygiene
guile))
(map list
- #{var\ 16788}#
- #{init\ 16789}#)
+ #{var\ 6197}#
+ #{init\ 6198}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i16797"))
+ #("i6206"))
#(ribcage
#(_
var
@@ -13710,13 +13546,13 @@
(top)
(top)
(top))
- #("i16780"
- "i16781"
- "i16782"
- "i16783"
- "i16784"
- "i16785"
- "i16786"))
+ #("i6189"
+ "i6190"
+ "i6191"
+ "i6192"
+ "i6193"
+ "i6194"
+ "i6195"))
#(ribcage
()
()
@@ -13724,7 +13560,7 @@
#(ribcage
#(orig-x)
#((top))
- #("i16777")))
+ #("i6186")))
(hygiene
guile))
(list '#(syntax-object
@@ -13733,7 +13569,7 @@
#(ribcage
#(step)
#((top))
- #("i16797"))
+ #("i6206"))
#(ribcage
#(_
var
@@ -13749,13 +13585,13 @@
(top)
(top)
(top))
- #("i16780"
- "i16781"
- "i16782"
- "i16783"
- "i16784"
- "i16785"
- "i16786"))
+ #("i6189"
+ "i6190"
+ "i6191"
+ "i6192"
+ "i6193"
+ "i6194"
+ "i6195"))
#(ribcage
()
()
@@ -13763,17 +13599,17 @@
#(ribcage
#(orig-x)
#((top))
- #("i16777")))
+ #("i6186")))
(hygiene
guile))
- #{e0\ 16791}#)
+ #{e0\ 6200}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i16797"))
+ #("i6206"))
#(ribcage
#(_
var
@@ -13789,13 +13625,13 @@
(top)
(top)
(top))
- #("i16780"
- "i16781"
- "i16782"
- "i16783"
- "i16784"
- "i16785"
- "i16786"))
+ #("i6189"
+ "i6190"
+ "i6191"
+ "i6192"
+ "i6193"
+ "i6194"
+ "i6195"))
#(ribcage
()
()
@@ -13803,18 +13639,18 @@
#(ribcage
#(orig-x)
#((top))
- #("i16777")))
+ #("i6186")))
(hygiene
guile))
(append
- #{c\ 16793}#
+ #{c\ 6202}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
- #("i16797"))
+ #("i6206"))
#(ribcage
#(_
var
@@ -13830,13 +13666,13 @@
(top)
(top)
(top))
- #("i16780"
- "i16781"
- "i16782"
- "i16783"
- "i16784"
- "i16785"
- "i16786"))
+ #("i6189"
+ "i6190"
+ "i6191"
+ "i6192"
+ "i6193"
+ "i6194"
+ "i6195"))
#(ribcage
()
()
@@ -13844,15 +13680,15 @@
#(ribcage
#(orig-x)
#((top))
- #("i16777")))
+ #("i6186")))
(hygiene
guile))
- #{step\ 16798}#)))))))
- #{tmp\ 16800}#)
- ((lambda (#{tmp\ 16805}#)
- (if #{tmp\ 16805}#
- (apply (lambda (#{e1\ 16808}#
- #{e2\ 16809}#)
+ #{step\ 6207}#)))))))
+ #{tmp\ 6209}#)
+ ((lambda (#{tmp\ 6214}#)
+ (if #{tmp\ 6214}#
+ (apply (lambda (#{e1\ 6217}#
+ #{e2\ 6218}#)
(list '#(syntax-object
let
((top)
@@ -13861,12 +13697,12 @@
e2)
#((top)
(top))
- #("i16806"
- "i16807"))
+ #("i6215"
+ "i6216"))
#(ribcage
#(step)
#((top))
- #("i16797"))
+ #("i6206"))
#(ribcage
#(_
var
@@ -13882,13 +13718,13 @@
(top)
(top)
(top))
- #("i16780"
- "i16781"
- "i16782"
- "i16783"
- "i16784"
- "i16785"
- "i16786"))
+ #("i6189"
+ "i6190"
+ "i6191"
+ "i6192"
+ "i6193"
+ "i6194"
+ "i6195"))
#(ribcage
()
()
@@ -13896,7 +13732,7 @@
#(ribcage
#(orig-x)
#((top))
- #("i16777")))
+ #("i6186")))
(hygiene
guile))
'#(syntax-object
@@ -13907,12 +13743,12 @@
e2)
#((top)
(top))
- #("i16806"
- "i16807"))
+ #("i6215"
+ "i6216"))
#(ribcage
#(step)
#((top))
- #("i16797"))
+ #("i6206"))
#(ribcage
#(_
var
@@ -13928,13 +13764,13 @@
(top)
(top)
(top))
- #("i16780"
- "i16781"
- "i16782"
- "i16783"
- "i16784"
- "i16785"
- "i16786"))
+ #("i6189"
+ "i6190"
+ "i6191"
+ "i6192"
+ "i6193"
+ "i6194"
+ "i6195"))
#(ribcage
()
()
@@ -13942,12 +13778,12 @@
#(ribcage
#(orig-x)
#((top))
- #("i16777")))
+ #("i6186")))
(hygiene
guile))
(map list
- #{var\ 16788}#
- #{init\ 16789}#)
+ #{var\ 6197}#
+ #{init\ 6198}#)
(list '#(syntax-object
if
((top)
@@ -13956,12 +13792,12 @@
e2)
#((top)
(top))
- #("i16806"
- "i16807"))
+ #("i6215"
+ "i6216"))
#(ribcage
#(step)
#((top))
- #("i16797"))
+ #("i6206"))
#(ribcage
#(_
var
@@ -13977,13 +13813,13 @@
(top)
(top)
(top))
- #("i16780"
- "i16781"
- "i16782"
- "i16783"
- "i16784"
- "i16785"
- "i16786"))
+ #("i6189"
+ "i6190"
+ "i6191"
+ "i6192"
+ "i6193"
+ "i6194"
+ "i6195"))
#(ribcage
()
()
@@ -13991,10 +13827,10 @@
#(ribcage
#(orig-x)
#((top))
- #("i16777")))
+ #("i6186")))
(hygiene
guile))
- #{e0\ 16791}#
+ #{e0\ 6200}#
(cons '#(syntax-object
begin
((top)
@@ -14003,12 +13839,12 @@
e2)
#((top)
(top))
- #("i16806"
- "i16807"))
+ #("i6215"
+ "i6216"))
#(ribcage
#(step)
#((top))
- #("i16797"))
+ #("i6206"))
#(ribcage
#(_
var
@@ -14024,13 +13860,13 @@
(top)
(top)
(top))
- #("i16780"
- "i16781"
- "i16782"
- "i16783"
- "i16784"
- "i16785"
- "i16786"))
+ #("i6189"
+ "i6190"
+ "i6191"
+ "i6192"
+ "i6193"
+ "i6194"
+ "i6195"))
#(ribcage
()
()
@@ -14038,11 +13874,11 @@
#(ribcage
#(orig-x)
#((top))
- #("i16777")))
+ #("i6186")))
(hygiene
guile))
- (cons #{e1\ 16808}#
- #{e2\ 16809}#))
+ (cons #{e1\ 6217}#
+ #{e2\ 6218}#))
(cons '#(syntax-object
begin
((top)
@@ -14051,12 +13887,12 @@
e2)
#((top)
(top))
- #("i16806"
- "i16807"))
+ #("i6215"
+ "i6216"))
#(ribcage
#(step)
#((top))
- #("i16797"))
+ #("i6206"))
#(ribcage
#(_
var
@@ -14072,13 +13908,13 @@
(top)
(top)
(top))
- #("i16780"
- "i16781"
- "i16782"
- "i16783"
- "i16784"
- "i16785"
- "i16786"))
+ #("i6189"
+ "i6190"
+ "i6191"
+ "i6192"
+ "i6193"
+ "i6194"
+ "i6195"))
#(ribcage
()
()
@@ -14086,11 +13922,11 @@
#(ribcage
#(orig-x)
#((top))
- #("i16777")))
+ #("i6186")))
(hygiene
guile))
(append
- #{c\ 16793}#
+ #{c\ 6202}#
(list (cons '#(syntax-object
doloop
((top)
@@ -14099,12 +13935,12 @@
e2)
#((top)
(top))
- #("i16806"
- "i16807"))
+ #("i6215"
+ "i6216"))
#(ribcage
#(step)
#((top))
- #("i16797"))
+ #("i6206"))
#(ribcage
#(_
var
@@ -14120,13 +13956,13 @@
(top)
(top)
(top))
- #("i16780"
- "i16781"
- "i16782"
- "i16783"
- "i16784"
- "i16785"
- "i16786"))
+ #("i6189"
+ "i6190"
+ "i6191"
+ "i6192"
+ "i6193"
+ "i6194"
+ "i6195"))
#(ribcage
()
()
@@ -14134,107 +13970,107 @@
#(ribcage
#(orig-x)
#((top))
- #("i16777")))
+ #("i6186")))
(hygiene
guile))
- #{step\ 16798}#)))))))
- #{tmp\ 16805}#)
+ #{step\ 6207}#)))))))
+ #{tmp\ 6214}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16799}#)))
+ #{tmp\ 6208}#)))
($sc-dispatch
- #{tmp\ 16799}#
+ #{tmp\ 6208}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 16799}#
+ #{tmp\ 6208}#
'())))
- #{e1\ 16792}#))
- #{tmp\ 16796}#)
+ #{e1\ 6201}#))
+ #{tmp\ 6205}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16795}#)))
+ #{tmp\ 6204}#)))
($sc-dispatch
- #{tmp\ 16795}#
+ #{tmp\ 6204}#
'each-any)))
- (map (lambda (#{v\ 16816}# #{s\ 16817}#)
- ((lambda (#{tmp\ 16820}#)
- ((lambda (#{tmp\ 16821}#)
- (if #{tmp\ 16821}#
- (apply (lambda () #{v\ 16816}#)
- #{tmp\ 16821}#)
- ((lambda (#{tmp\ 16822}#)
- (if #{tmp\ 16822}#
- (apply (lambda (#{e\ 16824}#)
- #{e\ 16824}#)
- #{tmp\ 16822}#)
- ((lambda (#{_\ 16826}#)
+ (map (lambda (#{v\ 6225}# #{s\ 6226}#)
+ ((lambda (#{tmp\ 6229}#)
+ ((lambda (#{tmp\ 6230}#)
+ (if #{tmp\ 6230}#
+ (apply (lambda () #{v\ 6225}#)
+ #{tmp\ 6230}#)
+ ((lambda (#{tmp\ 6231}#)
+ (if #{tmp\ 6231}#
+ (apply (lambda (#{e\ 6233}#)
+ #{e\ 6233}#)
+ #{tmp\ 6231}#)
+ ((lambda (#{_\ 6235}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 16776}#
- #{s\ 16817}#))
- #{tmp\ 16820}#)))
+ #{orig-x\ 6185}#
+ #{s\ 6226}#))
+ #{tmp\ 6229}#)))
($sc-dispatch
- #{tmp\ 16820}#
+ #{tmp\ 6229}#
'(any)))))
($sc-dispatch
- #{tmp\ 16820}#
+ #{tmp\ 6229}#
'())))
- #{s\ 16817}#))
- #{var\ 16788}#
- #{step\ 16790}#)))
- #{tmp\ 16779}#)
+ #{s\ 6226}#))
+ #{var\ 6197}#
+ #{step\ 6199}#)))
+ #{tmp\ 6188}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16778}#)))
+ #{tmp\ 6187}#)))
($sc-dispatch
- #{tmp\ 16778}#
+ #{tmp\ 6187}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 16776}#))
+ #{orig-x\ 6185}#))
(module-name (current-module)))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
- (cons (letrec ((#{quasicons\ 16833}#
- (lambda (#{x\ 16837}# #{y\ 16838}#)
- ((lambda (#{tmp\ 16842}#)
- ((lambda (#{tmp\ 16843}#)
- (if #{tmp\ 16843}#
- (apply (lambda (#{x\ 16846}# #{y\ 16847}#)
- ((lambda (#{tmp\ 16848}#)
- ((lambda (#{tmp\ 16849}#)
- (if #{tmp\ 16849}#
- (apply (lambda (#{dy\ 16851}#)
- ((lambda (#{tmp\ 16852}#)
- ((lambda (#{tmp\ 16853}#)
- (if #{tmp\ 16853}#
- (apply (lambda (#{dx\ 16855}#)
+ (cons (letrec ((#{quasicons\ 6242}#
+ (lambda (#{x\ 6246}# #{y\ 6247}#)
+ ((lambda (#{tmp\ 6251}#)
+ ((lambda (#{tmp\ 6252}#)
+ (if #{tmp\ 6252}#
+ (apply (lambda (#{x\ 6255}# #{y\ 6256}#)
+ ((lambda (#{tmp\ 6257}#)
+ ((lambda (#{tmp\ 6258}#)
+ (if #{tmp\ 6258}#
+ (apply (lambda (#{dy\ 6260}#)
+ ((lambda (#{tmp\ 6261}#)
+ ((lambda (#{tmp\ 6262}#)
+ (if #{tmp\ 6262}#
+ (apply (lambda (#{dx\ 6264}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
- #("i16854"))
+ #("i6263"))
#(ribcage
#(dy)
#((top))
- #("i16850"))
+ #("i6259"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i16844"
- "i16845"))
+ #("i6253"
+ "i6254"))
#(ribcage
()
()
@@ -14248,8 +14084,8 @@
y)
#((top)
(top))
- #("i16839"
- "i16840"))
+ #("i6248"
+ "i6249"))
#(ribcage
#(quasicons
quasiappend
@@ -14259,35 +14095,35 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene
guile))
- (cons #{dx\ 16855}#
- #{dy\ 16851}#)))
- #{tmp\ 16853}#)
- ((lambda (#{_\ 16857}#)
- (if (null? #{dy\ 16851}#)
+ (cons #{dx\ 6264}#
+ #{dy\ 6260}#)))
+ #{tmp\ 6262}#)
+ ((lambda (#{_\ 6266}#)
+ (if (null? #{dy\ 6260}#)
(list '#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
- #("i16856"))
+ #("i6265"))
#(ribcage
#(dy)
#((top))
- #("i16850"))
+ #("i6259"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i16844"
- "i16845"))
+ #("i6253"
+ "i6254"))
#(ribcage
()
()
@@ -14301,8 +14137,8 @@
y)
#((top)
(top))
- #("i16839"
- "i16840"))
+ #("i6248"
+ "i6249"))
#(ribcage
#(quasicons
quasiappend
@@ -14312,31 +14148,31 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene
guile))
- #{x\ 16846}#)
+ #{x\ 6255}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
- #("i16856"))
+ #("i6265"))
#(ribcage
#(dy)
#((top))
- #("i16850"))
+ #("i6259"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i16844"
- "i16845"))
+ #("i6253"
+ "i6254"))
#(ribcage
()
()
@@ -14350,8 +14186,8 @@
y)
#((top)
(top))
- #("i16839"
- "i16840"))
+ #("i6248"
+ "i6249"))
#(ribcage
#(quasicons
quasiappend
@@ -14361,17 +14197,17 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene
guile))
- #{x\ 16846}#
- #{y\ 16847}#)))
- #{tmp\ 16852}#)))
+ #{x\ 6255}#
+ #{y\ 6256}#)))
+ #{tmp\ 6261}#)))
($sc-dispatch
- #{tmp\ 16852}#
+ #{tmp\ 6261}#
'(#(free-id
#(syntax-object
quote
@@ -14379,13 +14215,13 @@
#(ribcage
#(dy)
#((top))
- #("i16850"))
+ #("i6259"))
#(ribcage
#(x y)
#((top)
(top))
- #("i16844"
- "i16845"))
+ #("i6253"
+ "i6254"))
#(ribcage
()
()
@@ -14398,8 +14234,8 @@
#(x y)
#((top)
(top))
- #("i16839"
- "i16840"))
+ #("i6248"
+ "i6249"))
#(ribcage
#(quasicons
quasiappend
@@ -14409,32 +14245,32 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene
guile)))
any))))
- #{x\ 16846}#))
- #{tmp\ 16849}#)
- ((lambda (#{tmp\ 16858}#)
- (if #{tmp\ 16858}#
- (apply (lambda (#{stuff\ 16860}#)
+ #{x\ 6255}#))
+ #{tmp\ 6258}#)
+ ((lambda (#{tmp\ 6267}#)
+ (if #{tmp\ 6267}#
+ (apply (lambda (#{stuff\ 6269}#)
(cons '#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
- #("i16859"))
+ #("i6268"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i16844"
- "i16845"))
+ #("i6253"
+ "i6254"))
#(ribcage
()
()
@@ -14448,8 +14284,8 @@
y)
#((top)
(top))
- #("i16839"
- "i16840"))
+ #("i6248"
+ "i6249"))
#(ribcage
#(quasicons
quasiappend
@@ -14459,29 +14295,29 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene
guile))
- (cons #{x\ 16846}#
- #{stuff\ 16860}#)))
- #{tmp\ 16858}#)
- ((lambda (#{else\ 16862}#)
+ (cons #{x\ 6255}#
+ #{stuff\ 6269}#)))
+ #{tmp\ 6267}#)
+ ((lambda (#{else\ 6271}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i16861"))
+ #("i6270"))
#(ribcage
#(x y)
#((top)
(top))
- #("i16844"
- "i16845"))
+ #("i6253"
+ "i6254"))
#(ribcage
()
()
@@ -14494,8 +14330,8 @@
#(x y)
#((top)
(top))
- #("i16839"
- "i16840"))
+ #("i6248"
+ "i6249"))
#(ribcage
#(quasicons
quasiappend
@@ -14505,17 +14341,17 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene
guile))
- #{x\ 16846}#
- #{y\ 16847}#))
- #{tmp\ 16848}#)))
+ #{x\ 6255}#
+ #{y\ 6256}#))
+ #{tmp\ 6257}#)))
($sc-dispatch
- #{tmp\ 16848}#
+ #{tmp\ 6257}#
'(#(free-id
#(syntax-object
list
@@ -14523,15 +14359,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i16844"
- "i16845"))
+ #("i6253" "i6254"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i16839"
- "i16840"))
+ #("i6248" "i6249"))
#(ribcage
#(quasicons
quasiappend
@@ -14541,15 +14375,15 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 16848}#
+ #{tmp\ 6257}#
'(#(free-id
#(syntax-object
quote
@@ -14557,13 +14391,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i16844" "i16845"))
+ #("i6253" "i6254"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i16839" "i16840"))
+ #("i6248" "i6249"))
#(ribcage
#(quasicons
quasiappend
@@ -14573,44 +14407,44 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile)))
any))))
- #{y\ 16847}#))
- #{tmp\ 16843}#)
+ #{y\ 6256}#))
+ #{tmp\ 6252}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16842}#)))
- ($sc-dispatch #{tmp\ 16842}# (quote (any any)))))
- (list #{x\ 16837}# #{y\ 16838}#))))
- (#{quasiappend\ 16834}#
- (lambda (#{x\ 16863}# #{y\ 16864}#)
- ((lambda (#{tmp\ 16868}#)
- ((lambda (#{tmp\ 16869}#)
- (if #{tmp\ 16869}#
- (apply (lambda (#{x\ 16872}# #{y\ 16873}#)
- ((lambda (#{tmp\ 16874}#)
- ((lambda (#{tmp\ 16875}#)
- (if #{tmp\ 16875}#
- (apply (lambda () #{x\ 16872}#)
- #{tmp\ 16875}#)
- ((lambda (#{_\ 16877}#)
+ #{tmp\ 6251}#)))
+ ($sc-dispatch #{tmp\ 6251}# (quote (any any)))))
+ (list #{x\ 6246}# #{y\ 6247}#))))
+ (#{quasiappend\ 6243}#
+ (lambda (#{x\ 6272}# #{y\ 6273}#)
+ ((lambda (#{tmp\ 6277}#)
+ ((lambda (#{tmp\ 6278}#)
+ (if #{tmp\ 6278}#
+ (apply (lambda (#{x\ 6281}# #{y\ 6282}#)
+ ((lambda (#{tmp\ 6283}#)
+ ((lambda (#{tmp\ 6284}#)
+ (if #{tmp\ 6284}#
+ (apply (lambda () #{x\ 6281}#)
+ #{tmp\ 6284}#)
+ ((lambda (#{_\ 6286}#)
(list '#(syntax-object
append
((top)
#(ribcage
#(_)
#((top))
- #("i16876"))
+ #("i6285"))
#(ribcage
#(x y)
#((top) (top))
- #("i16870"
- "i16871"))
+ #("i6279"
+ "i6280"))
#(ribcage
()
()
@@ -14622,8 +14456,8 @@
#(ribcage
#(x y)
#((top) (top))
- #("i16865"
- "i16866"))
+ #("i6274"
+ "i6275"))
#(ribcage
#(quasicons
quasiappend
@@ -14633,16 +14467,16 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile))
- #{x\ 16872}#
- #{y\ 16873}#))
- #{tmp\ 16874}#)))
+ #{x\ 6281}#
+ #{y\ 6282}#))
+ #{tmp\ 6283}#)))
($sc-dispatch
- #{tmp\ 16874}#
+ #{tmp\ 6283}#
'(#(free-id
#(syntax-object
quote
@@ -14650,13 +14484,13 @@
#(ribcage
#(x y)
#((top) (top))
- #("i16870" "i16871"))
+ #("i6279" "i6280"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i16865" "i16866"))
+ #("i6274" "i6275"))
#(ribcage
#(quasicons
quasiappend
@@ -14666,45 +14500,45 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile)))
()))))
- #{y\ 16873}#))
- #{tmp\ 16869}#)
+ #{y\ 6282}#))
+ #{tmp\ 6278}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16868}#)))
- ($sc-dispatch #{tmp\ 16868}# (quote (any any)))))
- (list #{x\ 16863}# #{y\ 16864}#))))
- (#{quasivector\ 16835}#
- (lambda (#{x\ 16878}#)
- ((lambda (#{tmp\ 16881}#)
- ((lambda (#{x\ 16883}#)
- ((lambda (#{tmp\ 16884}#)
- ((lambda (#{tmp\ 16885}#)
- (if #{tmp\ 16885}#
- (apply (lambda (#{x\ 16887}#)
+ #{tmp\ 6277}#)))
+ ($sc-dispatch #{tmp\ 6277}# (quote (any any)))))
+ (list #{x\ 6272}# #{y\ 6273}#))))
+ (#{quasivector\ 6244}#
+ (lambda (#{x\ 6287}#)
+ ((lambda (#{tmp\ 6290}#)
+ ((lambda (#{x\ 6292}#)
+ ((lambda (#{tmp\ 6293}#)
+ ((lambda (#{tmp\ 6294}#)
+ (if #{tmp\ 6294}#
+ (apply (lambda (#{x\ 6296}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(x)
#((top))
- #("i16886"))
+ #("i6295"))
#(ribcage
#(x)
#((top))
- #("i16882"))
+ #("i6291"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16879"))
+ #("i6288"))
#(ribcage
#(quasicons
quasiappend
@@ -14714,28 +14548,28 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile))
(list->vector
- #{x\ 16887}#)))
- #{tmp\ 16885}#)
- ((lambda (#{tmp\ 16889}#)
- (if #{tmp\ 16889}#
- (apply (lambda (#{x\ 16891}#)
+ #{x\ 6296}#)))
+ #{tmp\ 6294}#)
+ ((lambda (#{tmp\ 6298}#)
+ (if #{tmp\ 6298}#
+ (apply (lambda (#{x\ 6300}#)
(cons '#(syntax-object
vector
((top)
#(ribcage
#(x)
#((top))
- #("i16890"))
+ #("i6299"))
#(ribcage
#(x)
#((top))
- #("i16882"))
+ #("i6291"))
#(ribcage
()
()
@@ -14747,7 +14581,7 @@
#(ribcage
#(x)
#((top))
- #("i16879"))
+ #("i6288"))
#(ribcage
#(quasicons
quasiappend
@@ -14757,31 +14591,31 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile))
- #{x\ 16891}#))
- #{tmp\ 16889}#)
- ((lambda (#{_\ 16894}#)
+ #{x\ 6300}#))
+ #{tmp\ 6298}#)
+ ((lambda (#{_\ 6303}#)
(list '#(syntax-object
list->vector
((top)
#(ribcage
#(_)
#((top))
- #("i16893"))
+ #("i6302"))
#(ribcage
#(x)
#((top))
- #("i16882"))
+ #("i6291"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16879"))
+ #("i6288"))
#(ribcage
#(quasicons
quasiappend
@@ -14791,15 +14625,15 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile))
- #{x\ 16883}#))
- #{tmp\ 16884}#)))
+ #{x\ 6292}#))
+ #{tmp\ 6293}#)))
($sc-dispatch
- #{tmp\ 16884}#
+ #{tmp\ 6293}#
'(#(free-id
#(syntax-object
list
@@ -14807,82 +14641,82 @@
#(ribcage
#(x)
#((top))
- #("i16882"))
+ #("i6291"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16879"))
+ #("i6288"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile)))
.
each-any)))))
($sc-dispatch
- #{tmp\ 16884}#
+ #{tmp\ 6293}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i16882"))
+ #(ribcage #(x) #((top)) #("i6291"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i16879"))
+ #(ribcage #(x) #((top)) #("i6288"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile)))
each-any))))
- #{x\ 16883}#))
- #{tmp\ 16881}#))
- #{x\ 16878}#)))
- (#{quasi\ 16836}#
- (lambda (#{p\ 16895}# #{lev\ 16896}#)
- ((lambda (#{tmp\ 16899}#)
- ((lambda (#{tmp\ 16900}#)
- (if #{tmp\ 16900}#
- (apply (lambda (#{p\ 16902}#)
- (if (= #{lev\ 16896}# 0)
- #{p\ 16902}#
- (#{quasicons\ 16833}#
+ #{x\ 6292}#))
+ #{tmp\ 6290}#))
+ #{x\ 6287}#)))
+ (#{quasi\ 6245}#
+ (lambda (#{p\ 6304}# #{lev\ 6305}#)
+ ((lambda (#{tmp\ 6308}#)
+ ((lambda (#{tmp\ 6309}#)
+ (if #{tmp\ 6309}#
+ (apply (lambda (#{p\ 6311}#)
+ (if (= #{lev\ 6305}# 0)
+ #{p\ 6311}#
+ (#{quasicons\ 6242}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i16901"))
+ #("i6310"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i16897" "i16898"))
+ #("i6306" "i6307"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile))
#(syntax-object
unquote
@@ -14890,51 +14724,50 @@
#(ribcage
#(p)
#((top))
- #("i16901"))
+ #("i6310"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i16897" "i16898"))
+ #("i6306" "i6307"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile)))
- (#{quasi\ 16836}#
- (list #{p\ 16902}#)
- (- #{lev\ 16896}# 1)))))
- #{tmp\ 16900}#)
- ((lambda (#{tmp\ 16903}#)
- (if (if #{tmp\ 16903}#
- (apply (lambda (#{args\ 16905}#)
- (= #{lev\ 16896}# 0))
- #{tmp\ 16903}#)
+ (#{quasi\ 6245}#
+ (list #{p\ 6311}#)
+ (- #{lev\ 6305}# 1)))))
+ #{tmp\ 6309}#)
+ ((lambda (#{tmp\ 6312}#)
+ (if (if #{tmp\ 6312}#
+ (apply (lambda (#{args\ 6314}#)
+ (= #{lev\ 6305}# 0))
+ #{tmp\ 6312}#)
#f)
- (apply (lambda (#{args\ 16907}#)
+ (apply (lambda (#{args\ 6316}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 16895}#
+ #{p\ 6304}#
(cons '#(syntax-object
unquote
((top)
#(ribcage
#(args)
#((top))
- #("i16906"))
+ #("i6315"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i16897"
- "i16898"))
+ #("i6306" "i6307"))
#(ribcage
#(quasicons
quasiappend
@@ -14944,33 +14777,33 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile))
- #{args\ 16907}#)))
- #{tmp\ 16903}#)
- ((lambda (#{tmp\ 16908}#)
- (if #{tmp\ 16908}#
- (apply (lambda (#{p\ 16911}#
- #{q\ 16912}#)
- (if (= #{lev\ 16896}# 0)
- (#{quasiappend\ 16834}#
- #{p\ 16911}#
- (#{quasi\ 16836}#
- #{q\ 16912}#
- #{lev\ 16896}#))
- (#{quasicons\ 16833}#
- (#{quasicons\ 16833}#
+ #{args\ 6316}#)))
+ #{tmp\ 6312}#)
+ ((lambda (#{tmp\ 6317}#)
+ (if #{tmp\ 6317}#
+ (apply (lambda (#{p\ 6320}#
+ #{q\ 6321}#)
+ (if (= #{lev\ 6305}# 0)
+ (#{quasiappend\ 6243}#
+ #{p\ 6320}#
+ (#{quasi\ 6245}#
+ #{q\ 6321}#
+ #{lev\ 6305}#))
+ (#{quasicons\ 6242}#
+ (#{quasicons\ 6242}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i16909"
- "i16910"))
+ #("i6318"
+ "i6319"))
#(ribcage
()
()
@@ -14978,8 +14811,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i16897"
- "i16898"))
+ #("i6306"
+ "i6307"))
#(ribcage
#(quasicons
quasiappend
@@ -14989,10 +14822,10 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -15000,8 +14833,8 @@
#(ribcage
#(p q)
#((top) (top))
- #("i16909"
- "i16910"))
+ #("i6318"
+ "i6319"))
#(ribcage
()
()
@@ -15009,8 +14842,8 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i16897"
- "i16898"))
+ #("i6306"
+ "i6307"))
#(ribcage
#(quasicons
quasiappend
@@ -15020,33 +14853,31 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile)))
- (#{quasi\ 16836}#
- (list #{p\ 16911}#)
- (- #{lev\ 16896}#
- 1)))
- (#{quasi\ 16836}#
- #{q\ 16912}#
- #{lev\ 16896}#))))
- #{tmp\ 16908}#)
- ((lambda (#{tmp\ 16913}#)
- (if (if #{tmp\ 16913}#
- (apply (lambda (#{args\ 16916}#
- #{q\ 16917}#)
- (= #{lev\ 16896}#
- 0))
- #{tmp\ 16913}#)
+ (#{quasi\ 6245}#
+ (list #{p\ 6320}#)
+ (- #{lev\ 6305}# 1)))
+ (#{quasi\ 6245}#
+ #{q\ 6321}#
+ #{lev\ 6305}#))))
+ #{tmp\ 6317}#)
+ ((lambda (#{tmp\ 6322}#)
+ (if (if #{tmp\ 6322}#
+ (apply (lambda (#{args\ 6325}#
+ #{q\ 6326}#)
+ (= #{lev\ 6305}# 0))
+ #{tmp\ 6322}#)
#f)
- (apply (lambda (#{args\ 16920}#
- #{q\ 16921}#)
+ (apply (lambda (#{args\ 6329}#
+ #{q\ 6330}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one argument"
- #{p\ 16895}#
+ #{p\ 6304}#
(cons '#(syntax-object
unquote-splicing
((top)
@@ -15054,8 +14885,8 @@
#(args q)
#((top)
(top))
- #("i16918"
- "i16919"))
+ #("i6327"
+ "i6328"))
#(ribcage
()
()
@@ -15064,8 +14895,8 @@
#(p lev)
#((top)
(top))
- #("i16897"
- "i16898"))
+ #("i6306"
+ "i6307"))
#(ribcage
#(quasicons
quasiappend
@@ -15075,25 +14906,25 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene
guile))
- #{args\ 16920}#)))
- #{tmp\ 16913}#)
- ((lambda (#{tmp\ 16922}#)
- (if #{tmp\ 16922}#
- (apply (lambda (#{p\ 16924}#)
- (#{quasicons\ 16833}#
+ #{args\ 6329}#)))
+ #{tmp\ 6322}#)
+ ((lambda (#{tmp\ 6331}#)
+ (if #{tmp\ 6331}#
+ (apply (lambda (#{p\ 6333}#)
+ (#{quasicons\ 6242}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i16923"))
+ #("i6332"))
#(ribcage
()
()
@@ -15102,8 +14933,8 @@
#(p lev)
#((top)
(top))
- #("i16897"
- "i16898"))
+ #("i6306"
+ "i6307"))
#(ribcage
#(quasicons
quasiappend
@@ -15113,10 +14944,10 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene
guile))
#(syntax-object
@@ -15125,7 +14956,7 @@
#(ribcage
#(p)
#((top))
- #("i16923"))
+ #("i6332"))
#(ribcage
()
()
@@ -15134,8 +14965,8 @@
#(p lev)
#((top)
(top))
- #("i16897"
- "i16898"))
+ #("i6306"
+ "i6307"))
#(ribcage
#(quasicons
quasiappend
@@ -15145,45 +14976,45 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene
guile)))
- (#{quasi\ 16836}#
- (list #{p\ 16924}#)
- (+ #{lev\ 16896}#
+ (#{quasi\ 6245}#
+ (list #{p\ 6333}#)
+ (+ #{lev\ 6305}#
1))))
- #{tmp\ 16922}#)
- ((lambda (#{tmp\ 16925}#)
- (if #{tmp\ 16925}#
- (apply (lambda (#{p\ 16928}#
- #{q\ 16929}#)
- (#{quasicons\ 16833}#
- (#{quasi\ 16836}#
- #{p\ 16928}#
- #{lev\ 16896}#)
- (#{quasi\ 16836}#
- #{q\ 16929}#
- #{lev\ 16896}#)))
- #{tmp\ 16925}#)
- ((lambda (#{tmp\ 16930}#)
- (if #{tmp\ 16930}#
- (apply (lambda (#{x\ 16932}#)
- (#{quasivector\ 16835}#
- (#{quasi\ 16836}#
- #{x\ 16932}#
- #{lev\ 16896}#)))
- #{tmp\ 16930}#)
- ((lambda (#{p\ 16935}#)
+ #{tmp\ 6331}#)
+ ((lambda (#{tmp\ 6334}#)
+ (if #{tmp\ 6334}#
+ (apply (lambda (#{p\ 6337}#
+ #{q\ 6338}#)
+ (#{quasicons\ 6242}#
+ (#{quasi\ 6245}#
+ #{p\ 6337}#
+ #{lev\ 6305}#)
+ (#{quasi\ 6245}#
+ #{q\ 6338}#
+ #{lev\ 6305}#)))
+ #{tmp\ 6334}#)
+ ((lambda (#{tmp\ 6339}#)
+ (if #{tmp\ 6339}#
+ (apply (lambda (#{x\ 6341}#)
+ (#{quasivector\ 6244}#
+ (#{quasi\ 6245}#
+ #{x\ 6341}#
+ #{lev\ 6305}#)))
+ #{tmp\ 6339}#)
+ ((lambda (#{p\ 6344}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i16934"))
+ #("i6343"))
#(ribcage
()
()
@@ -15193,8 +15024,8 @@
lev)
#((top)
(top))
- #("i16897"
- "i16898"))
+ #("i6306"
+ "i6307"))
#(ribcage
#(quasicons
quasiappend
@@ -15204,23 +15035,23 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene
guile))
- #{p\ 16935}#))
- #{tmp\ 16899}#)))
+ #{p\ 6344}#))
+ #{tmp\ 6308}#)))
($sc-dispatch
- #{tmp\ 16899}#
+ #{tmp\ 6308}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 16899}#
+ #{tmp\ 6308}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 16899}#
+ #{tmp\ 6308}#
'(#(free-id
#(syntax-object
quasiquote
@@ -15229,7 +15060,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i16897" "i16898"))
+ #("i6306" "i6307"))
#(ribcage
#(quasicons
quasiappend
@@ -15239,14 +15070,14 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 16899}#
+ #{tmp\ 6308}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -15255,7 +15086,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i16897" "i16898"))
+ #("i6306" "i6307"))
#(ribcage
#(quasicons
quasiappend
@@ -15265,17 +15096,17 @@
(top)
(top)
(top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile)))
.
any)
.
any)))))
($sc-dispatch
- #{tmp\ 16899}#
+ #{tmp\ 6308}#
'((#(free-id
#(syntax-object
unquote-splicing
@@ -15284,23 +15115,23 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i16897" "i16898"))
+ #("i6306" "i6307"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238"
+ "i6239"
+ "i6240"
+ "i6241")))
(hygiene guile)))
any)
.
any)))))
($sc-dispatch
- #{tmp\ 16899}#
+ #{tmp\ 6308}#
'(#(free-id
#(syntax-object
unquote
@@ -15309,22 +15140,19 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i16897" "i16898"))
+ #("i6306" "i6307"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i16829"
- "i16830"
- "i16831"
- "i16832")))
+ #("i6238" "i6239" "i6240" "i6241")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 16899}#
+ #{tmp\ 6308}#
'(#(free-id
#(syntax-object
unquote
@@ -15333,244 +15161,244 @@
#(ribcage
#(p lev)
#((top) (top))
- #("i16897" "i16898"))
+ #("i6306" "i6307"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i16829" "i16830" "i16831" "i16832")))
+ #("i6238" "i6239" "i6240" "i6241")))
(hygiene guile)))
any))))
- #{p\ 16895}#))))
- (lambda (#{x\ 16936}#)
- ((lambda (#{tmp\ 16938}#)
- ((lambda (#{tmp\ 16939}#)
- (if #{tmp\ 16939}#
- (apply (lambda (#{_\ 16942}# #{e\ 16943}#)
- (#{quasi\ 16836}# #{e\ 16943}# 0))
- #{tmp\ 16939}#)
+ #{p\ 6304}#))))
+ (lambda (#{x\ 6345}#)
+ ((lambda (#{tmp\ 6347}#)
+ ((lambda (#{tmp\ 6348}#)
+ (if #{tmp\ 6348}#
+ (apply (lambda (#{_\ 6351}# #{e\ 6352}#)
+ (#{quasi\ 6245}# #{e\ 6352}# 0))
+ #{tmp\ 6348}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16938}#)))
- ($sc-dispatch #{tmp\ 16938}# (quote (any any)))))
- #{x\ 16936}#)))
+ #{tmp\ 6347}#)))
+ ($sc-dispatch #{tmp\ 6347}# (quote (any any)))))
+ #{x\ 6345}#)))
(module-name (current-module)))))
(define include
(make-syntax-transformer
'include
'macro
- (cons (lambda (#{x\ 16944}#)
- (letrec ((#{read-file\ 16947}#
- (lambda (#{fn\ 16948}# #{k\ 16949}#)
- (let ((#{p\ 16953}# (open-input-file #{fn\ 16948}#)))
- (letrec ((#{f\ 16957}#
- (lambda (#{x\ 16958}# #{result\ 16959}#)
- (if (eof-object? #{x\ 16958}#)
+ (cons (lambda (#{x\ 6353}#)
+ (letrec ((#{read-file\ 6356}#
+ (lambda (#{fn\ 6357}# #{k\ 6358}#)
+ (let ((#{p\ 6362}# (open-input-file #{fn\ 6357}#)))
+ (letrec ((#{f\ 6366}#
+ (lambda (#{x\ 6367}# #{result\ 6368}#)
+ (if (eof-object? #{x\ 6367}#)
(begin
- (close-input-port #{p\ 16953}#)
- (reverse #{result\ 16959}#))
- (#{f\ 16957}#
- (read #{p\ 16953}#)
+ (close-input-port #{p\ 6362}#)
+ (reverse #{result\ 6368}#))
+ (#{f\ 6366}#
+ (read #{p\ 6362}#)
(cons (datum->syntax
- #{k\ 16949}#
- #{x\ 16958}#)
- #{result\ 16959}#))))))
- (#{f\ 16957}# (read #{p\ 16953}#) (quote ())))))))
- ((lambda (#{tmp\ 16960}#)
- ((lambda (#{tmp\ 16961}#)
- (if #{tmp\ 16961}#
- (apply (lambda (#{k\ 16964}# #{filename\ 16965}#)
- (let ((#{fn\ 16967}#
- (syntax->datum #{filename\ 16965}#)))
- ((lambda (#{tmp\ 16969}#)
- ((lambda (#{tmp\ 16970}#)
- (if #{tmp\ 16970}#
- (apply (lambda (#{exp\ 16972}#)
+ #{k\ 6358}#
+ #{x\ 6367}#)
+ #{result\ 6368}#))))))
+ (#{f\ 6366}# (read #{p\ 6362}#) (quote ())))))))
+ ((lambda (#{tmp\ 6369}#)
+ ((lambda (#{tmp\ 6370}#)
+ (if #{tmp\ 6370}#
+ (apply (lambda (#{k\ 6373}# #{filename\ 6374}#)
+ (let ((#{fn\ 6376}#
+ (syntax->datum #{filename\ 6374}#)))
+ ((lambda (#{tmp\ 6378}#)
+ ((lambda (#{tmp\ 6379}#)
+ (if #{tmp\ 6379}#
+ (apply (lambda (#{exp\ 6381}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i16971"))
+ #("i6380"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i16966"))
+ #("i6375"))
#(ribcage
#(k filename)
#((top) (top))
- #("i16962"
- "i16963"))
+ #("i6371"
+ "i6372"))
#(ribcage
(read-file)
((top))
- ("i16946"))
+ ("i6355"))
#(ribcage
#(x)
#((top))
- #("i16945")))
+ #("i6354")))
(hygiene guile))
- #{exp\ 16972}#))
- #{tmp\ 16970}#)
+ #{exp\ 6381}#))
+ #{tmp\ 6379}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16969}#)))
+ #{tmp\ 6378}#)))
($sc-dispatch
- #{tmp\ 16969}#
+ #{tmp\ 6378}#
'each-any)))
- (#{read-file\ 16947}#
- #{fn\ 16967}#
- #{k\ 16964}#))))
- #{tmp\ 16961}#)
+ (#{read-file\ 6356}#
+ #{fn\ 6376}#
+ #{k\ 6373}#))))
+ #{tmp\ 6370}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16960}#)))
- ($sc-dispatch #{tmp\ 16960}# (quote (any any)))))
- #{x\ 16944}#)))
+ #{tmp\ 6369}#)))
+ ($sc-dispatch #{tmp\ 6369}# (quote (any any)))))
+ #{x\ 6353}#)))
(module-name (current-module)))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (cons (lambda (#{x\ 16974}#)
- ((lambda (#{tmp\ 16976}#)
- ((lambda (#{tmp\ 16977}#)
- (if #{tmp\ 16977}#
- (apply (lambda (#{k\ 16980}# #{filename\ 16981}#)
- (let ((#{fn\ 16983}#
- (syntax->datum #{filename\ 16981}#)))
- ((lambda (#{tmp\ 16985}#)
- ((lambda (#{fn\ 16987}#)
+ (cons (lambda (#{x\ 6383}#)
+ ((lambda (#{tmp\ 6385}#)
+ ((lambda (#{tmp\ 6386}#)
+ (if #{tmp\ 6386}#
+ (apply (lambda (#{k\ 6389}# #{filename\ 6390}#)
+ (let ((#{fn\ 6392}#
+ (syntax->datum #{filename\ 6390}#)))
+ ((lambda (#{tmp\ 6394}#)
+ ((lambda (#{fn\ 6396}#)
(list '#(syntax-object
include
((top)
#(ribcage
#(fn)
#((top))
- #("i16986"))
+ #("i6395"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i16982"))
+ #("i6391"))
#(ribcage
#(k filename)
#((top) (top))
- #("i16978" "i16979"))
+ #("i6387" "i6388"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i16975")))
+ #("i6384")))
(hygiene guile))
- #{fn\ 16987}#))
- #{tmp\ 16985}#))
- (let ((#{t\ 16990}#
- (%search-load-path #{fn\ 16983}#)))
- (if #{t\ 16990}#
- #{t\ 16990}#
+ #{fn\ 6396}#))
+ #{tmp\ 6394}#))
+ (let ((#{t\ 6399}#
+ (%search-load-path #{fn\ 6392}#)))
+ (if #{t\ 6399}#
+ #{t\ 6399}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 16974}#
- #{filename\ 16981}#))))))
- #{tmp\ 16977}#)
+ #{x\ 6383}#
+ #{filename\ 6390}#))))))
+ #{tmp\ 6386}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16976}#)))
- ($sc-dispatch #{tmp\ 16976}# (quote (any any)))))
- #{x\ 16974}#))
+ #{tmp\ 6385}#)))
+ ($sc-dispatch #{tmp\ 6385}# (quote (any any)))))
+ #{x\ 6383}#))
(module-name (current-module)))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (cons (lambda (#{x\ 16992}#)
- ((lambda (#{tmp\ 16994}#)
- ((lambda (#{tmp\ 16995}#)
- (if #{tmp\ 16995}#
- (apply (lambda (#{_\ 16998}# #{e\ 16999}#)
+ (cons (lambda (#{x\ 6401}#)
+ ((lambda (#{tmp\ 6403}#)
+ ((lambda (#{tmp\ 6404}#)
+ (if #{tmp\ 6404}#
+ (apply (lambda (#{_\ 6407}# #{e\ 6408}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 16992}#))
- #{tmp\ 16995}#)
+ #{x\ 6401}#))
+ #{tmp\ 6404}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 16994}#)))
- ($sc-dispatch #{tmp\ 16994}# (quote (any any)))))
- #{x\ 16992}#))
+ #{tmp\ 6403}#)))
+ ($sc-dispatch #{tmp\ 6403}# (quote (any any)))))
+ #{x\ 6401}#))
(module-name (current-module)))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (cons (lambda (#{x\ 17000}#)
- ((lambda (#{tmp\ 17002}#)
- ((lambda (#{tmp\ 17003}#)
- (if #{tmp\ 17003}#
- (apply (lambda (#{_\ 17006}# #{e\ 17007}#)
+ (cons (lambda (#{x\ 6409}#)
+ ((lambda (#{tmp\ 6411}#)
+ ((lambda (#{tmp\ 6412}#)
+ (if #{tmp\ 6412}#
+ (apply (lambda (#{_\ 6415}# #{e\ 6416}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 17000}#))
- #{tmp\ 17003}#)
+ #{x\ 6409}#))
+ #{tmp\ 6412}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 17002}#)))
- ($sc-dispatch #{tmp\ 17002}# (quote (any any)))))
- #{x\ 17000}#))
+ #{tmp\ 6411}#)))
+ ($sc-dispatch #{tmp\ 6411}# (quote (any any)))))
+ #{x\ 6409}#))
(module-name (current-module)))))
(define case
(make-syntax-transformer
'case
'macro
- (cons (lambda (#{x\ 17008}#)
- ((lambda (#{tmp\ 17010}#)
- ((lambda (#{tmp\ 17011}#)
- (if #{tmp\ 17011}#
- (apply (lambda (#{_\ 17016}#
- #{e\ 17017}#
- #{m1\ 17018}#
- #{m2\ 17019}#)
- ((lambda (#{tmp\ 17021}#)
- ((lambda (#{body\ 17023}#)
+ (cons (lambda (#{x\ 6417}#)
+ ((lambda (#{tmp\ 6419}#)
+ ((lambda (#{tmp\ 6420}#)
+ (if #{tmp\ 6420}#
+ (apply (lambda (#{_\ 6425}#
+ #{e\ 6426}#
+ #{m1\ 6427}#
+ #{m2\ 6428}#)
+ ((lambda (#{tmp\ 6430}#)
+ ((lambda (#{body\ 6432}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body)
#((top))
- #("i17022"))
+ #("i6431"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i17012"
- "i17013"
- "i17014"
- "i17015"))
+ #("i6421"
+ "i6422"
+ "i6423"
+ "i6424"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17009")))
+ #("i6418")))
(hygiene guile))
(list (list '#(syntax-object
t
@@ -15578,35 +15406,35 @@
#(ribcage
#(body)
#((top))
- #("i17022"))
+ #("i6431"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i17012"
- "i17013"
- "i17014"
- "i17015"))
+ #("i6421"
+ "i6422"
+ "i6423"
+ "i6424"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17009")))
+ #("i6418")))
(hygiene guile))
- #{e\ 17017}#))
- #{body\ 17023}#))
- #{tmp\ 17021}#))
- (letrec ((#{f\ 17027}#
- (lambda (#{clause\ 17028}#
- #{clauses\ 17029}#)
- (if (null? #{clauses\ 17029}#)
- ((lambda (#{tmp\ 17031}#)
- ((lambda (#{tmp\ 17032}#)
- (if #{tmp\ 17032}#
- (apply (lambda (#{e1\ 17035}#
- #{e2\ 17036}#)
+ #{e\ 6426}#))
+ #{body\ 6432}#))
+ #{tmp\ 6430}#))
+ (letrec ((#{f\ 6436}#
+ (lambda (#{clause\ 6437}#
+ #{clauses\ 6438}#)
+ (if (null? #{clauses\ 6438}#)
+ ((lambda (#{tmp\ 6440}#)
+ ((lambda (#{tmp\ 6441}#)
+ (if #{tmp\ 6441}#
+ (apply (lambda (#{e1\ 6444}#
+ #{e2\ 6445}#)
(cons '#(syntax-object
begin
((top)
@@ -15615,8 +15443,8 @@
e2)
#((top)
(top))
- #("i17033"
- "i17034"))
+ #("i6442"
+ "i6443"))
#(ribcage
()
()
@@ -15628,9 +15456,9 @@
#((top)
(top)
(top))
- #("i17024"
- "i17025"
- "i17026"))
+ #("i6433"
+ "i6434"
+ "i6435"))
#(ribcage
#(_
e
@@ -15640,10 +15468,10 @@
(top)
(top)
(top))
- #("i17012"
- "i17013"
- "i17014"
- "i17015"))
+ #("i6421"
+ "i6422"
+ "i6423"
+ "i6424"))
#(ribcage
()
()
@@ -15651,17 +15479,17 @@
#(ribcage
#(x)
#((top))
- #("i17009")))
+ #("i6418")))
(hygiene
guile))
- (cons #{e1\ 17035}#
- #{e2\ 17036}#)))
- #{tmp\ 17032}#)
- ((lambda (#{tmp\ 17038}#)
- (if #{tmp\ 17038}#
- (apply (lambda (#{k\ 17042}#
- #{e1\ 17043}#
- #{e2\ 17044}#)
+ (cons #{e1\ 6444}#
+ #{e2\ 6445}#)))
+ #{tmp\ 6441}#)
+ ((lambda (#{tmp\ 6447}#)
+ (if #{tmp\ 6447}#
+ (apply (lambda (#{k\ 6451}#
+ #{e1\ 6452}#
+ #{e2\ 6453}#)
(list '#(syntax-object
if
((top)
@@ -15672,9 +15500,9 @@
#((top)
(top)
(top))
- #("i17039"
- "i17040"
- "i17041"))
+ #("i6448"
+ "i6449"
+ "i6450"))
#(ribcage
()
()
@@ -15686,9 +15514,9 @@
#((top)
(top)
(top))
- #("i17024"
- "i17025"
- "i17026"))
+ #("i6433"
+ "i6434"
+ "i6435"))
#(ribcage
#(_
e
@@ -15698,10 +15526,10 @@
(top)
(top)
(top))
- #("i17012"
- "i17013"
- "i17014"
- "i17015"))
+ #("i6421"
+ "i6422"
+ "i6423"
+ "i6424"))
#(ribcage
()
()
@@ -15709,7 +15537,7 @@
#(ribcage
#(x)
#((top))
- #("i17009")))
+ #("i6418")))
(hygiene
guile))
(list '#(syntax-object
@@ -15722,9 +15550,9 @@
#((top)
(top)
(top))
- #("i17039"
- "i17040"
- "i17041"))
+ #("i6448"
+ "i6449"
+ "i6450"))
#(ribcage
()
()
@@ -15736,9 +15564,9 @@
#((top)
(top)
(top))
- #("i17024"
- "i17025"
- "i17026"))
+ #("i6433"
+ "i6434"
+ "i6435"))
#(ribcage
#(_
e
@@ -15748,10 +15576,10 @@
(top)
(top)
(top))
- #("i17012"
- "i17013"
- "i17014"
- "i17015"))
+ #("i6421"
+ "i6422"
+ "i6423"
+ "i6424"))
#(ribcage
()
()
@@ -15759,7 +15587,7 @@
#(ribcage
#(x)
#((top))
- #("i17009")))
+ #("i6418")))
(hygiene
guile))
'#(syntax-object
@@ -15772,9 +15600,9 @@
#((top)
(top)
(top))
- #("i17039"
- "i17040"
- "i17041"))
+ #("i6448"
+ "i6449"
+ "i6450"))
#(ribcage
()
()
@@ -15786,9 +15614,9 @@
#((top)
(top)
(top))
- #("i17024"
- "i17025"
- "i17026"))
+ #("i6433"
+ "i6434"
+ "i6435"))
#(ribcage
#(_
e
@@ -15798,10 +15626,10 @@
(top)
(top)
(top))
- #("i17012"
- "i17013"
- "i17014"
- "i17015"))
+ #("i6421"
+ "i6422"
+ "i6423"
+ "i6424"))
#(ribcage
()
()
@@ -15809,7 +15637,7 @@
#(ribcage
#(x)
#((top))
- #("i17009")))
+ #("i6418")))
(hygiene
guile))
(list '#(syntax-object
@@ -15822,9 +15650,9 @@
#((top)
(top)
(top))
- #("i17039"
- "i17040"
- "i17041"))
+ #("i6448"
+ "i6449"
+ "i6450"))
#(ribcage
()
()
@@ -15836,9 +15664,9 @@
#((top)
(top)
(top))
- #("i17024"
- "i17025"
- "i17026"))
+ #("i6433"
+ "i6434"
+ "i6435"))
#(ribcage
#(_
e
@@ -15848,10 +15676,10 @@
(top)
(top)
(top))
- #("i17012"
- "i17013"
- "i17014"
- "i17015"))
+ #("i6421"
+ "i6422"
+ "i6423"
+ "i6424"))
#(ribcage
()
()
@@ -15859,10 +15687,10 @@
#(ribcage
#(x)
#((top))
- #("i17009")))
+ #("i6418")))
(hygiene
guile))
- #{k\ 17042}#))
+ #{k\ 6451}#))
(cons '#(syntax-object
begin
((top)
@@ -15873,9 +15701,9 @@
#((top)
(top)
(top))
- #("i17039"
- "i17040"
- "i17041"))
+ #("i6448"
+ "i6449"
+ "i6450"))
#(ribcage
()
()
@@ -15887,9 +15715,9 @@
#((top)
(top)
(top))
- #("i17024"
- "i17025"
- "i17026"))
+ #("i6433"
+ "i6434"
+ "i6435"))
#(ribcage
#(_
e
@@ -15899,10 +15727,10 @@
(top)
(top)
(top))
- #("i17012"
- "i17013"
- "i17014"
- "i17015"))
+ #("i6421"
+ "i6422"
+ "i6423"
+ "i6424"))
#(ribcage
()
()
@@ -15910,27 +15738,27 @@
#(ribcage
#(x)
#((top))
- #("i17009")))
+ #("i6418")))
(hygiene
guile))
- (cons #{e1\ 17043}#
- #{e2\ 17044}#))))
- #{tmp\ 17038}#)
- ((lambda (#{_\ 17048}#)
+ (cons #{e1\ 6452}#
+ #{e2\ 6453}#))))
+ #{tmp\ 6447}#)
+ ((lambda (#{_\ 6457}#)
(syntax-violation
'case
"bad clause"
- #{x\ 17008}#
- #{clause\ 17028}#))
- #{tmp\ 17031}#)))
+ #{x\ 6417}#
+ #{clause\ 6437}#))
+ #{tmp\ 6440}#)))
($sc-dispatch
- #{tmp\ 17031}#
+ #{tmp\ 6440}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 17031}#
+ #{tmp\ 6440}#
'(#(free-id
#(syntax-object
else
@@ -15941,37 +15769,37 @@
#((top)
(top)
(top))
- #("i17024"
- "i17025"
- "i17026"))
+ #("i6433"
+ "i6434"
+ "i6435"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i17012"
- "i17013"
- "i17014"
- "i17015"))
+ #("i6421"
+ "i6422"
+ "i6423"
+ "i6424"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17009")))
+ #("i6418")))
(hygiene guile)))
any
.
each-any))))
- #{clause\ 17028}#)
- ((lambda (#{tmp\ 17050}#)
- ((lambda (#{rest\ 17052}#)
- ((lambda (#{tmp\ 17053}#)
- ((lambda (#{tmp\ 17054}#)
- (if #{tmp\ 17054}#
- (apply (lambda (#{k\ 17058}#
- #{e1\ 17059}#
- #{e2\ 17060}#)
+ #{clause\ 6437}#)
+ ((lambda (#{tmp\ 6459}#)
+ ((lambda (#{rest\ 6461}#)
+ ((lambda (#{tmp\ 6462}#)
+ ((lambda (#{tmp\ 6463}#)
+ (if #{tmp\ 6463}#
+ (apply (lambda (#{k\ 6467}#
+ #{e1\ 6468}#
+ #{e2\ 6469}#)
(list '#(syntax-object
if
((top)
@@ -15982,13 +15810,13 @@
#((top)
(top)
(top))
- #("i17055"
- "i17056"
- "i17057"))
+ #("i6464"
+ "i6465"
+ "i6466"))
#(ribcage
#(rest)
#((top))
- #("i17051"))
+ #("i6460"))
#(ribcage
()
()
@@ -16000,9 +15828,9 @@
#((top)
(top)
(top))
- #("i17024"
- "i17025"
- "i17026"))
+ #("i6433"
+ "i6434"
+ "i6435"))
#(ribcage
#(_
e
@@ -16012,10 +15840,10 @@
(top)
(top)
(top))
- #("i17012"
- "i17013"
- "i17014"
- "i17015"))
+ #("i6421"
+ "i6422"
+ "i6423"
+ "i6424"))
#(ribcage
()
()
@@ -16023,7 +15851,7 @@
#(ribcage
#(x)
#((top))
- #("i17009")))
+ #("i6418")))
(hygiene
guile))
(list '#(syntax-object
@@ -16036,13 +15864,13 @@
#((top)
(top)
(top))
- #("i17055"
- "i17056"
- "i17057"))
+ #("i6464"
+ "i6465"
+ "i6466"))
#(ribcage
#(rest)
#((top))
- #("i17051"))
+ #("i6460"))
#(ribcage
()
()
@@ -16054,9 +15882,9 @@
#((top)
(top)
(top))
- #("i17024"
- "i17025"
- "i17026"))
+ #("i6433"
+ "i6434"
+ "i6435"))
#(ribcage
#(_
e
@@ -16066,10 +15894,10 @@
(top)
(top)
(top))
- #("i17012"
- "i17013"
- "i17014"
- "i17015"))
+ #("i6421"
+ "i6422"
+ "i6423"
+ "i6424"))
#(ribcage
()
()
@@ -16077,7 +15905,7 @@
#(ribcage
#(x)
#((top))
- #("i17009")))
+ #("i6418")))
(hygiene
guile))
'#(syntax-object
@@ -16090,13 +15918,13 @@
#((top)
(top)
(top))
- #("i17055"
- "i17056"
- "i17057"))
+ #("i6464"
+ "i6465"
+ "i6466"))
#(ribcage
#(rest)
#((top))
- #("i17051"))
+ #("i6460"))
#(ribcage
()
()
@@ -16108,9 +15936,9 @@
#((top)
(top)
(top))
- #("i17024"
- "i17025"
- "i17026"))
+ #("i6433"
+ "i6434"
+ "i6435"))
#(ribcage
#(_
e
@@ -16120,10 +15948,10 @@
(top)
(top)
(top))
- #("i17012"
- "i17013"
- "i17014"
- "i17015"))
+ #("i6421"
+ "i6422"
+ "i6423"
+ "i6424"))
#(ribcage
()
()
@@ -16131,7 +15959,7 @@
#(ribcage
#(x)
#((top))
- #("i17009")))
+ #("i6418")))
(hygiene
guile))
(list '#(syntax-object
@@ -16144,13 +15972,13 @@
#((top)
(top)
(top))
- #("i17055"
- "i17056"
- "i17057"))
+ #("i6464"
+ "i6465"
+ "i6466"))
#(ribcage
#(rest)
#((top))
- #("i17051"))
+ #("i6460"))
#(ribcage
()
()
@@ -16162,9 +15990,9 @@
#((top)
(top)
(top))
- #("i17024"
- "i17025"
- "i17026"))
+ #("i6433"
+ "i6434"
+ "i6435"))
#(ribcage
#(_
e
@@ -16174,10 +16002,10 @@
(top)
(top)
(top))
- #("i17012"
- "i17013"
- "i17014"
- "i17015"))
+ #("i6421"
+ "i6422"
+ "i6423"
+ "i6424"))
#(ribcage
()
()
@@ -16185,10 +16013,10 @@
#(ribcage
#(x)
#((top))
- #("i17009")))
+ #("i6418")))
(hygiene
guile))
- #{k\ 17058}#))
+ #{k\ 6467}#))
(cons '#(syntax-object
begin
((top)
@@ -16199,13 +16027,13 @@
#((top)
(top)
(top))
- #("i17055"
- "i17056"
- "i17057"))
+ #("i6464"
+ "i6465"
+ "i6466"))
#(ribcage
#(rest)
#((top))
- #("i17051"))
+ #("i6460"))
#(ribcage
()
()
@@ -16217,9 +16045,9 @@
#((top)
(top)
(top))
- #("i17024"
- "i17025"
- "i17026"))
+ #("i6433"
+ "i6434"
+ "i6435"))
#(ribcage
#(_
e
@@ -16229,10 +16057,10 @@
(top)
(top)
(top))
- #("i17012"
- "i17013"
- "i17014"
- "i17015"))
+ #("i6421"
+ "i6422"
+ "i6423"
+ "i6424"))
#(ribcage
()
()
@@ -16240,61 +16068,61 @@
#(ribcage
#(x)
#((top))
- #("i17009")))
+ #("i6418")))
(hygiene
guile))
- (cons #{e1\ 17059}#
- #{e2\ 17060}#))
- #{rest\ 17052}#))
- #{tmp\ 17054}#)
- ((lambda (#{_\ 17064}#)
+ (cons #{e1\ 6468}#
+ #{e2\ 6469}#))
+ #{rest\ 6461}#))
+ #{tmp\ 6463}#)
+ ((lambda (#{_\ 6473}#)
(syntax-violation
'case
"bad clause"
- #{x\ 17008}#
- #{clause\ 17028}#))
- #{tmp\ 17053}#)))
+ #{x\ 6417}#
+ #{clause\ 6437}#))
+ #{tmp\ 6462}#)))
($sc-dispatch
- #{tmp\ 17053}#
+ #{tmp\ 6462}#
'(each-any
any
.
each-any))))
- #{clause\ 17028}#))
- #{tmp\ 17050}#))
- (#{f\ 17027}#
- (car #{clauses\ 17029}#)
- (cdr #{clauses\ 17029}#)))))))
- (#{f\ 17027}# #{m1\ 17018}# #{m2\ 17019}#))))
- #{tmp\ 17011}#)
+ #{clause\ 6437}#))
+ #{tmp\ 6459}#))
+ (#{f\ 6436}#
+ (car #{clauses\ 6438}#)
+ (cdr #{clauses\ 6438}#)))))))
+ (#{f\ 6436}# #{m1\ 6427}# #{m2\ 6428}#))))
+ #{tmp\ 6420}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 17010}#)))
+ #{tmp\ 6419}#)))
($sc-dispatch
- #{tmp\ 17010}#
+ #{tmp\ 6419}#
'(any any any . each-any))))
- #{x\ 17008}#))
+ #{x\ 6417}#))
(module-name (current-module)))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (cons (lambda (#{x\ 17065}#)
- ((lambda (#{tmp\ 17067}#)
- ((lambda (#{tmp\ 17068}#)
- (if #{tmp\ 17068}#
- (apply (lambda (#{_\ 17071}# #{e\ 17072}#)
+ (cons (lambda (#{x\ 6474}#)
+ ((lambda (#{tmp\ 6476}#)
+ ((lambda (#{tmp\ 6477}#)
+ (if #{tmp\ 6477}#
+ (apply (lambda (#{_\ 6480}# #{e\ 6481}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i17069" "i17070"))
+ #("i6478" "i6479"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i17066")))
+ #(ribcage #(x) #((top)) #("i6475")))
(hygiene guile))
'(#(syntax-object
x
@@ -16302,9 +16130,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17069" "i17070"))
+ #("i6478" "i6479"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i17066")))
+ #(ribcage #(x) #((top)) #("i6475")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -16312,9 +16140,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17069" "i17070"))
+ #("i6478" "i6479"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i17066")))
+ #(ribcage #(x) #((top)) #("i6475")))
(hygiene guile))
.
#(syntax-object
@@ -16323,9 +16151,9 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17069" "i17070"))
+ #("i6478" "i6479"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i17066")))
+ #(ribcage #(x) #((top)) #("i6475")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -16333,12 +16161,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17069" "i17070"))
+ #("i6478" "i6479"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17066")))
+ #("i6475")))
(hygiene guile))
'#(syntax-object
x
@@ -16346,12 +16174,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17069" "i17070"))
+ #("i6478" "i6479"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17066")))
+ #("i6475")))
(hygiene guile))
'()
(list '#(syntax-object
@@ -16360,12 +16188,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17069" "i17070"))
+ #("i6478" "i6479"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17066")))
+ #("i6475")))
(hygiene guile))
'(#(syntax-object
identifier?
@@ -16373,12 +16201,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17069" "i17070"))
+ #("i6478" "i6479"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17066")))
+ #("i6475")))
(hygiene guile))
(#(syntax-object
syntax
@@ -16386,12 +16214,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17069" "i17070"))
+ #("i6478" "i6479"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17066")))
+ #("i6475")))
(hygiene guile))
#(syntax-object
id
@@ -16399,12 +16227,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17069" "i17070"))
+ #("i6478" "i6479"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17066")))
+ #("i6475")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -16412,29 +16240,27 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17069"
- "i17070"))
+ #("i6478" "i6479"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17066")))
+ #("i6475")))
(hygiene guile))
- #{e\ 17072}#))
- (list (cons #{_\ 17071}#
+ #{e\ 6481}#))
+ (list (cons #{_\ 6480}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i17069"
- "i17070"))
+ #("i6478" "i6479"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17066")))
+ #("i6475")))
(hygiene guile))
#(syntax-object
...
@@ -16442,13 +16268,12 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17069"
- "i17070"))
+ #("i6478" "i6479"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17066")))
+ #("i6475")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -16456,15 +16281,14 @@
#(ribcage
#(_ e)
#((top) (top))
- #("i17069"
- "i17070"))
+ #("i6478" "i6479"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17066")))
+ #("i6475")))
(hygiene guile))
- (cons #{e\ 17072}#
+ (cons #{e\ 6481}#
'(#(syntax-object
x
((top)
@@ -16472,8 +16296,8 @@
#(_ e)
#((top)
(top))
- #("i17069"
- "i17070"))
+ #("i6478"
+ "i6479"))
#(ribcage
()
()
@@ -16481,7 +16305,7 @@
#(ribcage
#(x)
#((top))
- #("i17066")))
+ #("i6475")))
(hygiene guile))
#(syntax-object
...
@@ -16490,8 +16314,8 @@
#(_ e)
#((top)
(top))
- #("i17069"
- "i17070"))
+ #("i6478"
+ "i6479"))
#(ribcage
()
()
@@ -16499,72 +16323,72 @@
#(ribcage
#(x)
#((top))
- #("i17066")))
+ #("i6475")))
(hygiene
guile)))))))))
- #{tmp\ 17068}#)
+ #{tmp\ 6477}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 17067}#)))
- ($sc-dispatch #{tmp\ 17067}# (quote (any any)))))
- #{x\ 17065}#))
+ #{tmp\ 6476}#)))
+ ($sc-dispatch #{tmp\ 6476}# (quote (any any)))))
+ #{x\ 6474}#))
(module-name (current-module)))))
(define define*
(make-syntax-transformer
'define*
'macro
- (cons (lambda (#{x\ 17073}#)
- ((lambda (#{tmp\ 17075}#)
- ((lambda (#{tmp\ 17076}#)
- (if #{tmp\ 17076}#
- (apply (lambda (#{_\ 17082}#
- #{id\ 17083}#
- #{args\ 17084}#
- #{b0\ 17085}#
- #{b1\ 17086}#)
+ (cons (lambda (#{x\ 6482}#)
+ ((lambda (#{tmp\ 6484}#)
+ ((lambda (#{tmp\ 6485}#)
+ (if #{tmp\ 6485}#
+ (apply (lambda (#{_\ 6491}#
+ #{id\ 6492}#
+ #{args\ 6493}#
+ #{b0\ 6494}#
+ #{b1\ 6495}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i17077"
- "i17078"
- "i17079"
- "i17080"
- "i17081"))
+ #("i6486"
+ "i6487"
+ "i6488"
+ "i6489"
+ "i6490"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i17074")))
+ #(ribcage #(x) #((top)) #("i6483")))
(hygiene guile))
- #{id\ 17083}#
+ #{id\ 6492}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i17077"
- "i17078"
- "i17079"
- "i17080"
- "i17081"))
+ #("i6486"
+ "i6487"
+ "i6488"
+ "i6489"
+ "i6490"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17074")))
+ #("i6483")))
(hygiene guile))
- (cons #{args\ 17084}#
- (cons #{b0\ 17085}#
- #{b1\ 17086}#)))))
- #{tmp\ 17076}#)
- ((lambda (#{tmp\ 17088}#)
- (if (if #{tmp\ 17088}#
- (apply (lambda (#{_\ 17092}#
- #{id\ 17093}#
- #{val\ 17094}#)
+ (cons #{args\ 6493}#
+ (cons #{b0\ 6494}#
+ #{b1\ 6495}#)))))
+ #{tmp\ 6485}#)
+ ((lambda (#{tmp\ 6497}#)
+ (if (if #{tmp\ 6497}#
+ (apply (lambda (#{_\ 6501}#
+ #{id\ 6502}#
+ #{val\ 6503}#)
(identifier?
'#(syntax-object
x
@@ -16572,44 +16396,44 @@
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i17089" "i17090" "i17091"))
+ #("i6498" "i6499" "i6500"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17074")))
+ #("i6483")))
(hygiene guile))))
- #{tmp\ 17088}#)
+ #{tmp\ 6497}#)
#f)
- (apply (lambda (#{_\ 17098}#
- #{id\ 17099}#
- #{val\ 17100}#)
+ (apply (lambda (#{_\ 6507}#
+ #{id\ 6508}#
+ #{val\ 6509}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i17095" "i17096" "i17097"))
+ #("i6504" "i6505" "i6506"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i17074")))
+ #("i6483")))
(hygiene guile))
- #{id\ 17099}#
- #{val\ 17100}#))
- #{tmp\ 17088}#)
+ #{id\ 6508}#
+ #{val\ 6509}#))
+ #{tmp\ 6497}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 17075}#)))
+ #{tmp\ 6484}#)))
($sc-dispatch
- #{tmp\ 17075}#
+ #{tmp\ 6484}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 17075}#
+ #{tmp\ 6484}#
'(any (any . any) any . each-any))))
- #{x\ 17073}#))
+ #{x\ 6482}#))
(module-name (current-module)))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 57e040133..b7b6285a4 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -460,31 +460,7 @@
;; the body of a lambda: anything, already expanded
;; else: lambda-case | #f
(lambda (src req opt rest kw inits vars body else-case)
- ;; FIXME!!!
- (case (fluid-ref *mode*)
- ((c)
- ((@ (language tree-il) make-lambda-case)
- src req opt rest kw inits vars body else-case))
- (else
- ;; Very much like the logic of (language tree-il compile-glil).
- (let* ((nreq (length req))
- (nopt (if opt (length opt) 0))
- (rest-idx (and rest (+ nreq nopt)))
- (allow-other-keys? (if kw (car kw) #f))
- (kw-indices (map (lambda (x)
- ;; (,key ,name ,var)
- (cons (car x) (list-index vars (caddr x))))
- (if kw (cdr kw) '())))
- (nargs (apply max (+ nreq nopt (if rest 1 0))
- (map 1+ (map cdr kw-indices)))))
- (or (= nargs
- (length vars)
- (+ nreq (length inits) (if rest 1 0)))
- (error "something went wrong"
- req opt rest kw inits vars nreq nopt kw-indices nargs))
- (make-lambda-case src req opt rest
- (and kw (cons allow-other-keys? kw-indices))
- inits vars body else-case))))))
+ (make-lambda-case src req opt rest kw inits vars body else-case)))
(define build-primref
(lambda (src name)