diff options
author | Andy Wingo <wingo@pobox.com> | 2010-05-20 12:53:21 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-05-20 12:53:21 +0200 |
commit | 632ddbf02b6983a93a3a8f1268772b78354a335a (patch) | |
tree | 3fa0523df57b4f908059dbe1124b297ec74f93c0 | |
parent | a310a1d12e9b44ba77bb28d5491f0bd378a90886 (diff) | |
download | guile-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.c | 14 | ||||
-rw-r--r-- | libguile/memoize.c | 19 | ||||
-rw-r--r-- | module/ice-9/psyntax-pp.scm | 16680 | ||||
-rw-r--r-- | module/ice-9/psyntax.scm | 26 |
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) |