[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, syncase-in-boot-9, updated. 40b36cfbbe
|
From: |
Andy Wingo |
|
Subject: |
[Guile-commits] GNU Guile branch, syncase-in-boot-9, updated. 40b36cfbbe4676f52bd4d6b45ae1642756642907 |
|
Date: |
Thu, 21 May 2009 20:12:31 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=40b36cfbbe4676f52bd4d6b45ae1642756642907
The branch, syncase-in-boot-9 has been updated
via 40b36cfbbe4676f52bd4d6b45ae1642756642907 (commit)
from 2032f3d1db09aa63de4ec060081a5bf9053f0d3c (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 40b36cfbbe4676f52bd4d6b45ae1642756642907
Author: Andy Wingo <address@hidden>
Date: Thu May 21 22:11:48 2009 +0200
catch syntax errors in unquote and unquote-splicing
* module/ice-9/psyntax.scm (quasiquote): Catch syntax errors in unquote
and unquote-splicing.
* module/ice-9/psytax-pp.scm: Regenerated.
-----------------------------------------------------------------------
Summary of changes:
module/ice-9/psyntax-pp.scm | 22 +++++++++++-----------
module/ice-9/psyntax.scm | 10 ++++++++++
test-suite/tests/syntax.test | 11 ++++++++---
3 files changed, 29 insertions(+), 14 deletions(-)
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index 062b860..5b646d8 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,13 +1,13 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((and-map*2008 (lambda (f2048 first2047 . rest2046) (let ((t2049
(null? first2047))) (if t2049 t2049 (if (null? rest2046) (letrec ((andmap2050
(lambda (first2051) (let ((x2052 (car first2051)) (first2053 (cdr first2051)))
(if (null? first2053) (f2048 x2052) (if (f2048 x2052) (andmap2050 first2053)
#f)))))) (andmap2050 first2047)) (letrec ((andmap2054 (lambda (first2055
rest2056) (let ((x2057 (car first2055)) (xr2058 (map car rest2056)) (first2059
(cdr first2055)) (rest2060 (map cdr rest2056))) (if (null? first2059) (apply
f2048 (cons x2057 xr2058)) (if (apply f2048 (cons x2057 xr2058)) (andmap2054
first2059 rest2060) #f)))))) (andmap2054 first2047 rest2046)))))))) (letrec
((lambda-var-list2153 (lambda (vars2282) (letrec ((lvl2283 (lambda (vars2284
ls2285 w2286) (if (pair? vars2284) (lvl2283 (cdr vars2284) (cons (wrap2132 (car
vars2284) w2286 #f) ls2285) w2286) (if (id?2104 vars2284) (cons (wrap2132
vars2284 w2286 #f) ls2285) (if (null? vars2284) ls2285 (if (syntax-object?2088
vars2284) (lvl2283 (syntax-object-expression2089 vars2284) ls2285
(join-wraps2123 w2286 (syntax-object-wrap2090 vars2284))) (if (annotation?
vars2284) (lvl2283 (annotation-expression vars2284) ls2285 w2286) (cons
vars2284 ls2285))))))))) (lvl2283 vars2282 (quote ()) (quote (()))))))
(gen-var2152 (lambda (id2287) (let ((id2288 (if (syntax-object?2088 id2287)
(syntax-object-expression2089 id2287) id2287))) (if (annotation? id2288)
(gensym (symbol->string (annotation-expression id2288))) (gensym
(symbol->string id2288)))))) (strip2151 (lambda (x2289 w2290) (if (memq (quote
top) (wrap-marks2107 w2290)) (if (let ((t2291 (annotation? x2289))) (if t2291
t2291 (if (pair? x2289) (annotation? (car x2289)) #f))) (strip-annotation2150
x2289 #f) x2289) (letrec ((f2292 (lambda (x2293) (if (syntax-object?2088 x2293)
(strip2151 (syntax-object-expression2089 x2293) (syntax-object-wrap2090 x2293))
(if (pair? x2293) (let ((a2294 (f2292 (car x2293))) (d2295 (f2292 (cdr
x2293)))) (if (if (eq? a2294 (car x2293)) (eq? d2295 (cdr x2293)) #f) x2293
(cons a2294 d2295))) (if (vector? x2293) (let ((old2296 (vector->list x2293)))
(let ((new2297 (map f2292 old2296))) (if (and-map*2008 eq? old2296 new2297)
x2293 (list->vector new2297)))) x2293)))))) (f2292 x2289)))))
(strip-annotation2150 (lambda (x2298 parent2299) (if (pair? x2298) (let
((new2300 (cons #f #f))) (begin (if parent2299 (set-annotation-stripped!
parent2299 new2300) (if #f #f)) (set-car! new2300 (strip-annotation2150 (car
x2298) #f)) (set-cdr! new2300 (strip-annotation2150 (cdr x2298) #f)) new2300))
(if (annotation? x2298) (let ((t2301 (annotation-stripped x2298))) (if t2301
t2301 (strip-annotation2150 (annotation-expression x2298) x2298))) (if (vector?
x2298) (let ((new2302 (make-vector (vector-length x2298)))) (begin (if
parent2299 (set-annotation-stripped! parent2299 new2302) (if #f #f)) (letrec
((loop2303 (lambda (i2304) (unless (fx<2066 i2304 0) (vector-set! new2302 i2304
(strip-annotation2150 (vector-ref x2298 i2304) #f)) (loop2303 (fx-2064 i2304
1)))))) (loop2303 (- (vector-length x2298) 1))) new2302)) x2298)))))
(ellipsis?2149 (lambda (x2305) (if (nonsymbol-id?2103 x2305) (free-id=?2127
x2305 (quote #(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ())
#(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip
strip-annotation ellipsis? chi-void eval-local-transformer chi-local-syntax
chi-lambda-clause chi-body chi-macro chi-application chi-expr chi chi-top
syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence
source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids?
bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append
make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark
the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels!
set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks
ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename
rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks
make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup
macros-only-env extend-var-env extend-env null-env binding-value binding-type
make-binding arg-check source-annotation no-source unannotate
set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression!
syntax-object-module syntax-object-wrap syntax-object-expression syntax-object?
make-syntax-object build-lexical-var build-letrec build-named-let build-let
build-sequence build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))) #f)))
(chi-void2148 (lambda () (build-void2071 #f))) (eval-local-transformer2147
(lambda (expanded2306 mod2307) (let ((p2308 (local-eval-hook2068 expanded2306
mod2307))) (if (procedure? p2308) p2308 (syntax-violation #f "nonprocedure
transformer" p2308))))) (chi-local-syntax2146 (lambda (rec?2309 e2310 r2311
w2312 s2313 mod2314 k2315) ((lambda (tmp2316) ((lambda (tmp2317) (if tmp2317
(apply (lambda (_2318 id2319 val2320 e12321 e22322) (let ((ids2323 id2319)) (if
(not (valid-bound-ids?2129 ids2323)) (syntax-violation #f "duplicate bound
keyword" e2310) (let ((labels2325 (gen-labels2110 ids2323))) (let ((new-w2326
(make-binding-wrap2121 ids2323 labels2325 w2312))) (k2315 (cons e12321 e22322)
(extend-env2098 labels2325 (let ((w2328 (if rec?2309 new-w2326 w2312))
(trans-r2329 (macros-only-env2100 r2311))) (map (lambda (x2330) (cons (quote
macro) (eval-local-transformer2147 (chi2140 x2330 trans-r2329 w2328 mod2314)
mod2314))) val2320)) r2311) new-w2326 s2313 mod2314)))))) tmp2317) ((lambda
(_2332) (syntax-violation #f "bad local syntax definition" (source-wrap2133
e2310 w2312 s2313 mod2314))) tmp2316))) ($sc-dispatch tmp2316 (quote (any
#(each (any any)) any . each-any))))) e2310))) (chi-lambda-clause2145 (lambda
(e2333 docstring2334 c2335 r2336 w2337 mod2338 k2339) ((lambda (tmp2340)
((lambda (tmp2341) (if (if tmp2341 (apply (lambda (args2342 doc2343 e12344
e22345) (if (string? (syntax->datum doc2343)) (not docstring2334) #f)) tmp2341)
#f) (apply (lambda (args2346 doc2347 e12348 e22349) (chi-lambda-clause2145
e2333 doc2347 (cons args2346 (cons e12348 e22349)) r2336 w2337 mod2338 k2339))
tmp2341) ((lambda (tmp2351) (if tmp2351 (apply (lambda (id2352 e12353 e22354)
(let ((ids2355 id2352)) (if (not (valid-bound-ids?2129 ids2355))
(syntax-violation (quote lambda) "invalid parameter list" e2333) (let
((labels2357 (gen-labels2110 ids2355)) (new-vars2358 (map gen-var2152
ids2355))) (k2339 (map syntax->datum ids2355) new-vars2358 (if docstring2334
(syntax->datum docstring2334) #f) (chi-body2144 (cons e12353 e22354) e2333
(extend-var-env2099 labels2357 new-vars2358 r2336) (make-binding-wrap2121
ids2355 labels2357 w2337) mod2338)))))) tmp2351) ((lambda (tmp2360) (if tmp2360
(apply (lambda (ids2361 e12362 e22363) (let ((old-ids2364 (lambda-var-list2153
ids2361))) (if (not (valid-bound-ids?2129 old-ids2364)) (syntax-violation
(quote lambda) "invalid parameter list" e2333) (let ((labels2365
(gen-labels2110 old-ids2364)) (new-vars2366 (map gen-var2152 old-ids2364)))
(k2339 (letrec ((f2367 (lambda (ls12368 ls22369) (if (null? ls12368)
(syntax->datum ls22369) (f2367 (cdr ls12368) (cons (syntax->datum (car
ls12368)) ls22369)))))) (f2367 (cdr old-ids2364) (car old-ids2364))) (letrec
((f2370 (lambda (ls12371 ls22372) (if (null? ls12371) ls22372 (f2370 (cdr
ls12371) (cons (car ls12371) ls22372)))))) (f2370 (cdr new-vars2366) (car
new-vars2366))) (if docstring2334 (syntax->datum docstring2334) #f)
(chi-body2144 (cons e12362 e22363) e2333 (extend-var-env2099 labels2365
new-vars2366 r2336) (make-binding-wrap2121 old-ids2364 labels2365 w2337)
mod2338)))))) tmp2360) ((lambda (_2374) (syntax-violation (quote lambda) "bad
lambda" e2333)) tmp2340))) ($sc-dispatch tmp2340 (quote (any any .
each-any)))))) ($sc-dispatch tmp2340 (quote (each-any any . each-any))))))
($sc-dispatch tmp2340 (quote (any any any . each-any))))) c2335)))
(chi-body2144 (lambda (body2375 outer-form2376 r2377 w2378 mod2379) (let
((r2380 (cons (quote ("placeholder" placeholder)) r2377))) (let ((ribcage2381
(make-ribcage2111 (quote ()) (quote ()) (quote ())))) (let ((w2382
(make-wrap2106 (wrap-marks2107 w2378) (cons ribcage2381 (wrap-subst2108
w2378))))) (letrec ((parse2383 (lambda (body2384 ids2385 labels2386 vars2387
vals2388 bindings2389) (if (null? body2384) (syntax-violation #f "no
expressions in body" outer-form2376) (let ((e2391 (cdar body2384)) (er2392
(caar body2384))) (call-with-values (lambda () (syntax-type2138 e2391 er2392
(quote (())) #f ribcage2381 mod2379)) (lambda (type2393 value2394 e2395 w2396
s2397 mod2398) (if (memv type2393 (quote (define-form))) (let ((id2399
(wrap2132 value2394 w2396 mod2398)) (label2400 (gen-label2109))) (let ((var2401
(gen-var2152 id2399))) (begin (extend-ribcage!2120 ribcage2381 id2399
label2400) (parse2383 (cdr body2384) (cons id2399 ids2385) (cons label2400
labels2386) (cons var2401 vars2387) (cons (cons er2392 (wrap2132 e2395 w2396
mod2398)) vals2388) (cons (cons (quote lexical) var2401) bindings2389))))) (if
(memv type2393 (quote (define-syntax-form))) (let ((id2402 (wrap2132 value2394
w2396 mod2398)) (label2403 (gen-label2109))) (begin (extend-ribcage!2120
ribcage2381 id2402 label2403) (parse2383 (cdr body2384) (cons id2402 ids2385)
(cons label2403 labels2386) vars2387 vals2388 (cons (cons (quote macro) (cons
er2392 (wrap2132 e2395 w2396 mod2398))) bindings2389)))) (if (memv type2393
(quote (begin-form))) ((lambda (tmp2404) ((lambda (tmp2405) (if tmp2405 (apply
(lambda (_2406 e12407) (parse2383 (letrec ((f2408 (lambda (forms2409) (if
(null? forms2409) (cdr body2384) (cons (cons er2392 (wrap2132 (car forms2409)
w2396 mod2398)) (f2408 (cdr forms2409))))))) (f2408 e12407)) ids2385 labels2386
vars2387 vals2388 bindings2389)) tmp2405) (syntax-violation #f "Source
expression failed to match any pattern" tmp2404))) ($sc-dispatch tmp2404 (quote
(any . each-any))))) e2395) (if (memv type2393 (quote (local-syntax-form)))
(chi-local-syntax2146 value2394 e2395 er2392 w2396 s2397 mod2398 (lambda
(forms2411 er2412 w2413 s2414 mod2415) (parse2383 (letrec ((f2416 (lambda
(forms2417) (if (null? forms2417) (cdr body2384) (cons (cons er2412 (wrap2132
(car forms2417) w2413 mod2415)) (f2416 (cdr forms2417))))))) (f2416 forms2411))
ids2385 labels2386 vars2387 vals2388 bindings2389))) (if (null? ids2385)
(build-sequence2083 #f (map (lambda (x2418) (chi2140 (cdr x2418) (car x2418)
(quote (())) mod2398)) (cons (cons er2392 (source-wrap2133 e2395 w2396 s2397
mod2398)) (cdr body2384)))) (begin (if (not (valid-bound-ids?2129 ids2385))
(syntax-violation #f "invalid or duplicate identifier in definition"
outer-form2376) (if #f #f)) (letrec ((loop2419 (lambda (bs2420 er-cache2421
r-cache2422) (if (not (null? bs2420)) (let ((b2423 (car bs2420))) (if (eq? (car
b2423) (quote macro)) (let ((er2424 (cadr b2423))) (let ((r-cache2425 (if (eq?
er2424 er-cache2421) r-cache2422 (macros-only-env2100 er2424)))) (begin
(set-cdr! b2423 (eval-local-transformer2147 (chi2140 (cddr b2423) r-cache2425
(quote (())) mod2398) mod2398)) (loop2419 (cdr bs2420) er2424 r-cache2425))))
(loop2419 (cdr bs2420) er-cache2421 r-cache2422))) (if #f #f))))) (loop2419
bindings2389 #f #f)) (set-cdr! r2380 (extend-env2098 labels2386 bindings2389
(cdr r2380))) (build-letrec2086 #f (map syntax->datum ids2385) vars2387 (map
(lambda (x2426) (chi2140 (cdr x2426) (car x2426) (quote (())) mod2398))
vals2388) (build-sequence2083 #f (map (lambda (x2427) (chi2140 (cdr x2427) (car
x2427) (quote (())) mod2398)) (cons (cons er2392 (source-wrap2133 e2395 w2396
s2397 mod2398)) (cdr body2384)))))))))))))))))) (parse2383 (map (lambda (x2390)
(cons r2380 (wrap2132 x2390 w2382 mod2379))) body2375) (quote ()) (quote ())
(quote ()) (quote ()) (quote ())))))))) (chi-macro2143 (lambda (p2428 e2429
r2430 w2431 rib2432 mod2433) (letrec ((rebuild-macro-output2434 (lambda (x2435
m2436) (if (pair? x2435) (cons (rebuild-macro-output2434 (car x2435) m2436)
(rebuild-macro-output2434 (cdr x2435) m2436)) (if (syntax-object?2088 x2435)
(let ((w2437 (syntax-object-wrap2090 x2435))) (let ((ms2438 (wrap-marks2107
w2437)) (s2439 (wrap-subst2108 w2437))) (if (if (pair? ms2438) (eq? (car
ms2438) #f) #f) (make-syntax-object2087 (syntax-object-expression2089 x2435)
(make-wrap2106 (cdr ms2438) (if rib2432 (cons rib2432 (cdr s2439)) (cdr
s2439))) (syntax-object-module2091 x2435)) (make-syntax-object2087
(syntax-object-expression2089 x2435) (make-wrap2106 (cons m2436 ms2438) (if
rib2432 (cons rib2432 (cons (quote shift) s2439)) (cons (quote shift) s2439)))
(let ((pmod2440 (procedure-module p2428))) (if pmod2440 (cons (quote hygiene)
(module-name pmod2440)) (quote (hygiene guile)))))))) (if (vector? x2435) (let
((n2441 (vector-length x2435))) (let ((v2442 (make-vector n2441))) (letrec
((loop2443 (lambda (i2444) (if (fx=2065 i2444 n2441) (begin (if #f #f (if #f
#f)) v2442) (begin (vector-set! v2442 i2444 (rebuild-macro-output2434
(vector-ref x2435 i2444) m2436)) (loop2443 (fx+2063 i2444 1))))))) (loop2443
0)))) (if (symbol? x2435) (syntax-violation #f "encountered raw symbol in macro
output" (source-wrap2133 e2429 w2431 s mod2433) x2435) x2435)))))))
(rebuild-macro-output2434 (p2428 (wrap2132 e2429 (anti-mark2119 w2431)
mod2433)) (string #\m))))) (chi-application2142 (lambda (x2445 e2446 r2447
w2448 s2449 mod2450) ((lambda (tmp2451) ((lambda (tmp2452) (if tmp2452 (apply
(lambda (e02453 e12454) (build-application2072 s2449 x2445 (map (lambda (e2455)
(chi2140 e2455 r2447 w2448 mod2450)) e12454))) tmp2452) (syntax-violation #f
"Source expression failed to match any pattern" tmp2451))) ($sc-dispatch
tmp2451 (quote (any . each-any))))) e2446))) (chi-expr2141 (lambda (type2457
value2458 e2459 r2460 w2461 s2462 mod2463) (if (memv type2457 (quote
(lexical))) (build-lexical-reference2074 (quote value) s2462 e2459 value2458)
(if (memv type2457 (quote (core external-macro))) (value2458 e2459 r2460 w2461
s2462 mod2463) (if (memv type2457 (quote (module-ref))) (call-with-values
(lambda () (value2458 e2459)) (lambda (id2464 mod2465)
(build-global-reference2077 s2462 id2464 mod2465))) (if (memv type2457 (quote
(lexical-call))) (chi-application2142 (build-lexical-reference2074 (quote fun)
(source-annotation2095 (car e2459)) (car e2459) value2458) e2459 r2460 w2461
s2462 mod2463) (if (memv type2457 (quote (global-call))) (chi-application2142
(build-global-reference2077 (source-annotation2095 (car e2459)) value2458 (if
(syntax-object?2088 (car e2459)) (syntax-object-module2091 (car e2459))
mod2463)) e2459 r2460 w2461 s2462 mod2463) (if (memv type2457 (quote
(constant))) (build-data2082 s2462 (strip2151 (source-wrap2133 e2459 w2461
s2462 mod2463) (quote (())))) (if (memv type2457 (quote (global)))
(build-global-reference2077 s2462 value2458 mod2463) (if (memv type2457 (quote
(call))) (chi-application2142 (chi2140 (car e2459) r2460 w2461 mod2463) e2459
r2460 w2461 s2462 mod2463) (if (memv type2457 (quote (begin-form))) ((lambda
(tmp2466) ((lambda (tmp2467) (if tmp2467 (apply (lambda (_2468 e12469 e22470)
(chi-sequence2134 (cons e12469 e22470) r2460 w2461 s2462 mod2463)) tmp2467)
(syntax-violation #f "Source expression failed to match any pattern" tmp2466)))
($sc-dispatch tmp2466 (quote (any any . each-any))))) e2459) (if (memv type2457
(quote (local-syntax-form))) (chi-local-syntax2146 value2458 e2459 r2460 w2461
s2462 mod2463 chi-sequence2134) (if (memv type2457 (quote (eval-when-form)))
((lambda (tmp2472) ((lambda (tmp2473) (if tmp2473 (apply (lambda (_2474 x2475
e12476 e22477) (let ((when-list2478 (chi-when-list2137 e2459 x2475 w2461))) (if
(memq (quote eval) when-list2478) (chi-sequence2134 (cons e12476 e22477) r2460
w2461 s2462 mod2463) (chi-void2148)))) tmp2473) (syntax-violation #f "Source
expression failed to match any pattern" tmp2472))) ($sc-dispatch tmp2472 (quote
(any each-any any . each-any))))) e2459) (if (memv type2457 (quote (define-form
define-syntax-form))) (syntax-violation #f "definition in expression context"
e2459 (wrap2132 value2458 w2461 mod2463)) (if (memv type2457 (quote (syntax)))
(syntax-violation #f "reference to pattern variable outside syntax form"
(source-wrap2133 e2459 w2461 s2462 mod2463)) (if (memv type2457 (quote
(displaced-lexical))) (syntax-violation #f "reference to identifier outside its
scope" (source-wrap2133 e2459 w2461 s2462 mod2463)) (syntax-violation #f
"unexpected syntax" (source-wrap2133 e2459 w2461 s2462
mod2463)))))))))))))))))) (chi2140 (lambda (e2481 r2482 w2483 mod2484)
(call-with-values (lambda () (syntax-type2138 e2481 r2482 w2483 #f #f mod2484))
(lambda (type2485 value2486 e2487 w2488 s2489 mod2490) (chi-expr2141 type2485
value2486 e2487 r2482 w2488 s2489 mod2490))))) (chi-top2139 (lambda (e2491
r2492 w2493 m2494 esew2495 mod2496) (call-with-values (lambda ()
(syntax-type2138 e2491 r2492 w2493 #f #f mod2496)) (lambda (type2504 value2505
e2506 w2507 s2508 mod2509) (if (memv type2504 (quote (begin-form))) ((lambda
(tmp2510) ((lambda (tmp2511) (if tmp2511 (apply (lambda (_2512) (chi-void2148))
tmp2511) ((lambda (tmp2513) (if tmp2513 (apply (lambda (_2514 e12515 e22516)
(chi-top-sequence2135 (cons e12515 e22516) r2492 w2507 s2508 m2494 esew2495
mod2509)) tmp2513) (syntax-violation #f "Source expression failed to match any
pattern" tmp2510))) ($sc-dispatch tmp2510 (quote (any any . each-any))))))
($sc-dispatch tmp2510 (quote (any))))) e2506) (if (memv type2504 (quote
(local-syntax-form))) (chi-local-syntax2146 value2505 e2506 r2492 w2507 s2508
mod2509 (lambda (body2518 r2519 w2520 s2521 mod2522) (chi-top-sequence2135
body2518 r2519 w2520 s2521 m2494 esew2495 mod2522))) (if (memv type2504 (quote
(eval-when-form))) ((lambda (tmp2523) ((lambda (tmp2524) (if tmp2524 (apply
(lambda (_2525 x2526 e12527 e22528) (let ((when-list2529 (chi-when-list2137
e2506 x2526 w2507)) (body2530 (cons e12527 e22528))) (if (eq? m2494 (quote e))
(if (memq (quote eval) when-list2529) (chi-top-sequence2135 body2530 r2492
w2507 s2508 (quote e) (quote (eval)) mod2509) (chi-void2148)) (if (memq (quote
load) when-list2529) (if (let ((t2533 (memq (quote compile) when-list2529)))
(if t2533 t2533 (if (eq? m2494 (quote c&e)) (memq (quote eval) when-list2529)
#f))) (chi-top-sequence2135 body2530 r2492 w2507 s2508 (quote c&e) (quote
(compile load)) mod2509) (if (memq m2494 (quote (c c&e))) (chi-top-sequence2135
body2530 r2492 w2507 s2508 (quote c) (quote (load)) mod2509) (chi-void2148)))
(if (let ((t2534 (memq (quote compile) when-list2529))) (if t2534 t2534 (if
(eq? m2494 (quote c&e)) (memq (quote eval) when-list2529) #f))) (begin
(top-level-eval-hook2067 (chi-top-sequence2135 body2530 r2492 w2507 s2508
(quote e) (quote (eval)) mod2509) mod2509) (chi-void2148)) (chi-void2148))))))
tmp2524) (syntax-violation #f "Source expression failed to match any pattern"
tmp2523))) ($sc-dispatch tmp2523 (quote (any each-any any . each-any)))))
e2506) (if (memv type2504 (quote (define-syntax-form))) (let ((n2535
(id-var-name2126 value2505 w2507)) (r2536 (macros-only-env2100 r2492))) (if
(memv m2494 (quote (c))) (if (memq (quote compile) esew2495) (let ((e2537
(chi-install-global2136 n2535 (chi2140 e2506 r2536 w2507 mod2509)))) (begin
(top-level-eval-hook2067 e2537 mod2509) (if (memq (quote load) esew2495) e2537
(chi-void2148)))) (if (memq (quote load) esew2495) (chi-install-global2136
n2535 (chi2140 e2506 r2536 w2507 mod2509)) (chi-void2148))) (if (memv m2494
(quote (c&e))) (let ((e2538 (chi-install-global2136 n2535 (chi2140 e2506 r2536
w2507 mod2509)))) (begin (top-level-eval-hook2067 e2538 mod2509) e2538)) (begin
(if (memq (quote eval) esew2495) (top-level-eval-hook2067
(chi-install-global2136 n2535 (chi2140 e2506 r2536 w2507 mod2509)) mod2509) (if
#f #f)) (chi-void2148))))) (if (memv type2504 (quote (define-form))) (let
((n2539 (id-var-name2126 value2505 w2507))) (let ((type2540 (binding-type2096
(lookup2101 n2539 r2492 mod2509)))) (if (memv type2540 (quote (global core
macro module-ref))) (let ((x2541 (build-global-definition2079 s2508 n2539
(chi2140 e2506 r2492 w2507 mod2509)))) (begin (if (eq? m2494 (quote c&e))
(top-level-eval-hook2067 x2541 mod2509) (if #f #f)) x2541)) (if (memv type2540
(quote (displaced-lexical))) (syntax-violation #f "identifier out of context"
e2506 (wrap2132 value2505 w2507 mod2509)) (syntax-violation #f "cannot define
keyword at top level" e2506 (wrap2132 value2505 w2507 mod2509)))))) (let
((x2542 (chi-expr2141 type2504 value2505 e2506 r2492 w2507 s2508 mod2509)))
(begin (if (eq? m2494 (quote c&e)) (top-level-eval-hook2067 x2542 mod2509) (if
#f #f)) x2542))))))))))) (syntax-type2138 (lambda (e2543 r2544 w2545 s2546
rib2547 mod2548) (if (symbol? e2543) (let ((n2549 (id-var-name2126 e2543
w2545))) (let ((b2550 (lookup2101 n2549 r2544 mod2548))) (let ((type2551
(binding-type2096 b2550))) (if (memv type2551 (quote (lexical))) (values
type2551 (binding-value2097 b2550) e2543 w2545 s2546 mod2548) (if (memv
type2551 (quote (global))) (values type2551 n2549 e2543 w2545 s2546 mod2548)
(if (memv type2551 (quote (macro))) (syntax-type2138 (chi-macro2143
(binding-value2097 b2550) e2543 r2544 w2545 rib2547 mod2548) r2544 (quote (()))
s2546 rib2547 mod2548) (values type2551 (binding-value2097 b2550) e2543 w2545
s2546 mod2548))))))) (if (pair? e2543) (let ((first2552 (car e2543))) (if
(id?2104 first2552) (let ((n2553 (id-var-name2126 first2552 w2545))) (let
((b2554 (lookup2101 n2553 r2544 (let ((t2555 (if (syntax-object?2088 first2552)
(syntax-object-module2091 first2552) #f))) (if t2555 t2555 mod2548))))) (let
((type2556 (binding-type2096 b2554))) (if (memv type2556 (quote (lexical)))
(values (quote lexical-call) (binding-value2097 b2554) e2543 w2545 s2546
mod2548) (if (memv type2556 (quote (global))) (values (quote global-call) n2553
e2543 w2545 s2546 mod2548) (if (memv type2556 (quote (macro))) (syntax-type2138
(chi-macro2143 (binding-value2097 b2554) e2543 r2544 w2545 rib2547 mod2548)
r2544 (quote (())) s2546 rib2547 mod2548) (if (memv type2556 (quote (core
external-macro module-ref))) (values type2556 (binding-value2097 b2554) e2543
w2545 s2546 mod2548) (if (memv type2556 (quote (local-syntax))) (values (quote
local-syntax-form) (binding-value2097 b2554) e2543 w2545 s2546 mod2548) (if
(memv type2556 (quote (begin))) (values (quote begin-form) #f e2543 w2545 s2546
mod2548) (if (memv type2556 (quote (eval-when))) (values (quote eval-when-form)
#f e2543 w2545 s2546 mod2548) (if (memv type2556 (quote (define))) ((lambda
(tmp2557) ((lambda (tmp2558) (if (if tmp2558 (apply (lambda (_2559 name2560
val2561) (id?2104 name2560)) tmp2558) #f) (apply (lambda (_2562 name2563
val2564) (values (quote define-form) name2563 val2564 w2545 s2546 mod2548))
tmp2558) ((lambda (tmp2565) (if (if tmp2565 (apply (lambda (_2566 name2567
args2568 e12569 e22570) (if (id?2104 name2567) (valid-bound-ids?2129
(lambda-var-list2153 args2568)) #f)) tmp2565) #f) (apply (lambda (_2571
name2572 args2573 e12574 e22575) (values (quote define-form) (wrap2132 name2572
w2545 mod2548) (cons (quote #(syntax-object lambda ((top) #(ribcage #(_ name
args e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage
() () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(type) #((top))
#("i")) #(ribcage () () ()) #(ribcage #(b) #((top)) #("i")) #(ribcage () () ())
#(ribcage #(n) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(first) #((top))
#("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e r w s rib mod)
#((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage
(lambda-var-list gen-var strip strip-annotation ellipsis? chi-void
eval-local-transformer chi-local-syntax chi-lambda-clause chi-body chi-macro
chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))
(wrap2132 (cons args2573 (cons e12574 e22575)) w2545 mod2548)) (quote (()))
s2546 mod2548)) tmp2565) ((lambda (tmp2577) (if (if tmp2577 (apply (lambda
(_2578 name2579) (id?2104 name2579)) tmp2577) #f) (apply (lambda (_2580
name2581) (values (quote define-form) (wrap2132 name2581 w2545 mod2548) (quote
(#(syntax-object if ((top) #(ribcage #(_ name) #((top) (top)) #("i" "i"))
#(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(type)
#((top)) #("i")) #(ribcage () () ()) #(ribcage #(b) #((top)) #("i")) #(ribcage
() () ()) #(ribcage #(n) #((top)) #("i")) #(ribcage () () ()) #(ribcage
#(first) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e
r w s rib mod) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i"
"i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis?
chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body
chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile))
#(syntax-object #f ((top) #(ribcage #(_ name) #((top) (top)) #("i" "i"))
#(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(type)
#((top)) #("i")) #(ribcage () () ()) #(ribcage #(b) #((top)) #("i")) #(ribcage
() () ()) #(ribcage #(n) #((top)) #("i")) #(ribcage () () ()) #(ribcage
#(first) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e
r w s rib mod) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i"
"i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis?
chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body
chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile))
#(syntax-object #f ((top) #(ribcage #(_ name) #((top) (top)) #("i" "i"))
#(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(type)
#((top)) #("i")) #(ribcage () () ()) #(ribcage #(b) #((top)) #("i")) #(ribcage
() () ()) #(ribcage #(n) #((top)) #("i")) #(ribcage () () ()) #(ribcage
#(first) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e
r w s rib mod) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i"
"i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis?
chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body
chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))) (quote
(())) s2546 mod2548)) tmp2577) (syntax-violation #f "Source expression failed
to match any pattern" tmp2557))) ($sc-dispatch tmp2557 (quote (any any))))))
($sc-dispatch tmp2557 (quote (any (any . any) any . each-any))))))
($sc-dispatch tmp2557 (quote (any any any))))) e2543) (if (memv type2556 (quote
(define-syntax))) ((lambda (tmp2582) ((lambda (tmp2583) (if (if tmp2583 (apply
(lambda (_2584 name2585 val2586) (id?2104 name2585)) tmp2583) #f) (apply
(lambda (_2587 name2588 val2589) (values (quote define-syntax-form) name2588
val2589 w2545 s2546 mod2548)) tmp2583) (syntax-violation #f "Source expression
failed to match any pattern" tmp2582))) ($sc-dispatch tmp2582 (quote (any any
any))))) e2543) (values (quote call) #f e2543 w2545 s2546 mod2548)))))))))))))
(values (quote call) #f e2543 w2545 s2546 mod2548))) (if (syntax-object?2088
e2543) (syntax-type2138 (syntax-object-expression2089 e2543) r2544
(join-wraps2123 w2545 (syntax-object-wrap2090 e2543)) #f rib2547 (let ((t2590
(syntax-object-module2091 e2543))) (if t2590 t2590 mod2548))) (if (annotation?
e2543) (syntax-type2138 (annotation-expression e2543) r2544 w2545
(annotation-source e2543) rib2547 mod2548) (if (self-evaluating? e2543) (values
(quote constant) #f e2543 w2545 s2546 mod2548) (values (quote other) #f e2543
w2545 s2546 mod2548)))))))) (chi-when-list2137 (lambda (e2591 when-list2592
w2593) (letrec ((f2594 (lambda (when-list2595 situations2596) (if (null?
when-list2595) situations2596 (f2594 (cdr when-list2595) (cons (let ((x2597
(car when-list2595))) (if (free-id=?2127 x2597 (quote #(syntax-object compile
((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))
#(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top))
#("i" "i" "i")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top)
(top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip
strip-annotation ellipsis? chi-void eval-local-transformer chi-local-syntax
chi-lambda-clause chi-body chi-macro chi-application chi-expr chi chi-top
syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence
source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids?
bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append
make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark
the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels!
set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks
ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename
rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks
make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup
macros-only-env extend-var-env extend-env null-env binding-value binding-type
make-binding arg-check source-annotation no-source unannotate
set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression!
syntax-object-module syntax-object-wrap syntax-object-expression syntax-object?
make-syntax-object build-lexical-var build-letrec build-named-let build-let
build-sequence build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))) (quote
compile) (if (free-id=?2127 x2597 (quote #(syntax-object load ((top) #(ribcage
() () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () ()
()) #(ribcage #(f when-list situations) #((top) (top) (top)) #("i" "i" "i"))
#(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i" "i"
"i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis?
chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body
chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))) (quote
load) (if (free-id=?2127 x2597 (quote #(syntax-object eval ((top) #(ribcage ()
() ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ())
#(ribcage #(f when-list situations) #((top) (top) (top)) #("i" "i" "i"))
#(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i" "i"
"i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis?
chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body
chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))) (quote
eval) (syntax-violation (quote eval-when) "invalid situation" e2591 (wrap2132
x2597 w2593 #f)))))) situations2596)))))) (f2594 when-list2592 (quote ())))))
(chi-install-global2136 (lambda (name2598 e2599) (build-global-definition2079
#f name2598 (if (let ((v2600 (module-variable (current-module) name2598))) (if
v2600 (if (variable-bound? v2600) (if (macro? (variable-ref v2600)) (not (eq?
(macro-type (variable-ref v2600)) (quote syncase-macro))) #f) #f) #f))
(build-application2072 #f (build-primref2081 #f (quote
make-extended-syncase-macro)) (list (build-application2072 #f
(build-primref2081 #f (quote module-ref)) (list (build-application2072 #f
(build-primref2081 #f (quote current-module)) (quote ())) (build-data2082 #f
name2598))) (build-data2082 #f (quote macro)) e2599)) (build-application2072 #f
(build-primref2081 #f (quote make-syncase-macro)) (list (build-data2082 #f
(quote macro)) e2599)))))) (chi-top-sequence2135 (lambda (body2601 r2602 w2603
s2604 m2605 esew2606 mod2607) (build-sequence2083 s2604 (letrec ((dobody2608
(lambda (body2609 r2610 w2611 m2612 esew2613 mod2614) (if (null? body2609)
(quote ()) (let ((first2615 (chi-top2139 (car body2609) r2610 w2611 m2612
esew2613 mod2614))) (cons first2615 (dobody2608 (cdr body2609) r2610 w2611
m2612 esew2613 mod2614))))))) (dobody2608 body2601 r2602 w2603 m2605 esew2606
mod2607))))) (chi-sequence2134 (lambda (body2616 r2617 w2618 s2619 mod2620)
(build-sequence2083 s2619 (letrec ((dobody2621 (lambda (body2622 r2623 w2624
mod2625) (if (null? body2622) (quote ()) (let ((first2626 (chi2140 (car
body2622) r2623 w2624 mod2625))) (cons first2626 (dobody2621 (cdr body2622)
r2623 w2624 mod2625))))))) (dobody2621 body2616 r2617 w2618 mod2620)))))
(source-wrap2133 (lambda (x2627 w2628 s2629 defmod2630) (wrap2132 (if s2629
(make-annotation x2627 s2629 #f) x2627) w2628 defmod2630))) (wrap2132 (lambda
(x2631 w2632 defmod2633) (if (if (null? (wrap-marks2107 w2632)) (null?
(wrap-subst2108 w2632)) #f) x2631 (if (syntax-object?2088 x2631)
(make-syntax-object2087 (syntax-object-expression2089 x2631) (join-wraps2123
w2632 (syntax-object-wrap2090 x2631)) (syntax-object-module2091 x2631)) (if
(null? x2631) x2631 (make-syntax-object2087 x2631 w2632 defmod2633))))))
(bound-id-member?2131 (lambda (x2634 list2635) (if (not (null? list2635)) (let
((t2636 (bound-id=?2128 x2634 (car list2635)))) (if t2636 t2636
(bound-id-member?2131 x2634 (cdr list2635)))) #f))) (distinct-bound-ids?2130
(lambda (ids2637) (letrec ((distinct?2638 (lambda (ids2639) (let ((t2640 (null?
ids2639))) (if t2640 t2640 (if (not (bound-id-member?2131 (car ids2639) (cdr
ids2639))) (distinct?2638 (cdr ids2639)) #f)))))) (distinct?2638 ids2637))))
(valid-bound-ids?2129 (lambda (ids2641) (if (letrec ((all-ids?2642 (lambda
(ids2643) (let ((t2644 (null? ids2643))) (if t2644 t2644 (if (id?2104 (car
ids2643)) (all-ids?2642 (cdr ids2643)) #f)))))) (all-ids?2642 ids2641))
(distinct-bound-ids?2130 ids2641) #f))) (bound-id=?2128 (lambda (i2645 j2646)
(if (if (syntax-object?2088 i2645) (syntax-object?2088 j2646) #f) (if (eq? (let
((e2647 (syntax-object-expression2089 i2645))) (if (annotation? e2647)
(annotation-expression e2647) e2647)) (let ((e2648
(syntax-object-expression2089 j2646))) (if (annotation? e2648)
(annotation-expression e2648) e2648))) (same-marks?2125 (wrap-marks2107
(syntax-object-wrap2090 i2645)) (wrap-marks2107 (syntax-object-wrap2090
j2646))) #f) (eq? (let ((e2649 i2645)) (if (annotation? e2649)
(annotation-expression e2649) e2649)) (let ((e2650 j2646)) (if (annotation?
e2650) (annotation-expression e2650) e2650)))))) (free-id=?2127 (lambda (i2651
j2652) (if (eq? (let ((x2653 i2651)) (let ((e2654 (if (syntax-object?2088
x2653) (syntax-object-expression2089 x2653) x2653))) (if (annotation? e2654)
(annotation-expression e2654) e2654))) (let ((x2655 j2652)) (let ((e2656 (if
(syntax-object?2088 x2655) (syntax-object-expression2089 x2655) x2655))) (if
(annotation? e2656) (annotation-expression e2656) e2656)))) (eq?
(id-var-name2126 i2651 (quote (()))) (id-var-name2126 j2652 (quote (()))))
#f))) (id-var-name2126 (lambda (id2657 w2658) (letrec ((search-vector-rib2661
(lambda (sym2667 subst2668 marks2669 symnames2670 ribcage2671) (let ((n2672
(vector-length symnames2670))) (letrec ((f2673 (lambda (i2674) (if (fx=2065
i2674 n2672) (search2659 sym2667 (cdr subst2668) marks2669) (if (if (eq?
(vector-ref symnames2670 i2674) sym2667) (same-marks?2125 marks2669 (vector-ref
(ribcage-marks2114 ribcage2671) i2674)) #f) (values (vector-ref
(ribcage-labels2115 ribcage2671) i2674) marks2669) (f2673 (fx+2063 i2674
1))))))) (f2673 0))))) (search-list-rib2660 (lambda (sym2675 subst2676
marks2677 symnames2678 ribcage2679) (letrec ((f2680 (lambda (symnames2681
i2682) (if (null? symnames2681) (search2659 sym2675 (cdr subst2676) marks2677)
(if (if (eq? (car symnames2681) sym2675) (same-marks?2125 marks2677 (list-ref
(ribcage-marks2114 ribcage2679) i2682)) #f) (values (list-ref
(ribcage-labels2115 ribcage2679) i2682) marks2677) (f2680 (cdr symnames2681)
(fx+2063 i2682 1))))))) (f2680 symnames2678 0)))) (search2659 (lambda (sym2683
subst2684 marks2685) (if (null? subst2684) (values #f marks2685) (let ((fst2686
(car subst2684))) (if (eq? fst2686 (quote shift)) (search2659 sym2683 (cdr
subst2684) (cdr marks2685)) (let ((symnames2687 (ribcage-symnames2113
fst2686))) (if (vector? symnames2687) (search-vector-rib2661 sym2683 subst2684
marks2685 symnames2687 fst2686) (search-list-rib2660 sym2683 subst2684
marks2685 symnames2687 fst2686))))))))) (if (symbol? id2657) (let ((t2688
(call-with-values (lambda () (search2659 id2657 (wrap-subst2108 w2658)
(wrap-marks2107 w2658))) (lambda (x2690 . ignore2689) x2690)))) (if t2688 t2688
id2657)) (if (syntax-object?2088 id2657) (let ((id2691 (let ((e2693
(syntax-object-expression2089 id2657))) (if (annotation? e2693)
(annotation-expression e2693) e2693))) (w12692 (syntax-object-wrap2090
id2657))) (let ((marks2694 (join-marks2124 (wrap-marks2107 w2658)
(wrap-marks2107 w12692)))) (call-with-values (lambda () (search2659 id2691
(wrap-subst2108 w2658) marks2694)) (lambda (new-id2695 marks2696) (let ((t2697
new-id2695)) (if t2697 t2697 (let ((t2698 (call-with-values (lambda ()
(search2659 id2691 (wrap-subst2108 w12692) marks2696)) (lambda (x2700 .
ignore2699) x2700)))) (if t2698 t2698 id2691)))))))) (if (annotation? id2657)
(let ((id2701 (let ((e2702 id2657)) (if (annotation? e2702)
(annotation-expression e2702) e2702)))) (let ((t2703 (call-with-values (lambda
() (search2659 id2701 (wrap-subst2108 w2658) (wrap-marks2107 w2658))) (lambda
(x2705 . ignore2704) x2705)))) (if t2703 t2703 id2701))) (syntax-violation
(quote id-var-name) "invalid id" id2657))))))) (same-marks?2125 (lambda (x2706
y2707) (let ((t2708 (eq? x2706 y2707))) (if t2708 t2708 (if (not (null? x2706))
(if (not (null? y2707)) (if (eq? (car x2706) (car y2707)) (same-marks?2125 (cdr
x2706) (cdr y2707)) #f) #f) #f))))) (join-marks2124 (lambda (m12709 m22710)
(smart-append2122 m12709 m22710))) (join-wraps2123 (lambda (w12711 w22712) (let
((m12713 (wrap-marks2107 w12711)) (s12714 (wrap-subst2108 w12711))) (if (null?
m12713) (if (null? s12714) w22712 (make-wrap2106 (wrap-marks2107 w22712)
(smart-append2122 s12714 (wrap-subst2108 w22712)))) (make-wrap2106
(smart-append2122 m12713 (wrap-marks2107 w22712)) (smart-append2122 s12714
(wrap-subst2108 w22712))))))) (smart-append2122 (lambda (m12715 m22716) (if
(null? m22716) m12715 (append m12715 m22716)))) (make-binding-wrap2121 (lambda
(ids2717 labels2718 w2719) (if (null? ids2717) w2719 (make-wrap2106
(wrap-marks2107 w2719) (cons (let ((labelvec2720 (list->vector labels2718)))
(let ((n2721 (vector-length labelvec2720))) (let ((symnamevec2722 (make-vector
n2721)) (marksvec2723 (make-vector n2721))) (begin (letrec ((f2724 (lambda
(ids2725 i2726) (if (not (null? ids2725)) (call-with-values (lambda ()
(id-sym-name&marks2105 (car ids2725) w2719)) (lambda (symname2727 marks2728)
(begin (vector-set! symnamevec2722 i2726 symname2727) (vector-set! marksvec2723
i2726 marks2728) (f2724 (cdr ids2725) (fx+2063 i2726 1))))) (if #f #f)))))
(f2724 ids2717 0)) (make-ribcage2111 symnamevec2722 marksvec2723
labelvec2720))))) (wrap-subst2108 w2719)))))) (extend-ribcage!2120 (lambda
(ribcage2729 id2730 label2731) (begin (set-ribcage-symnames!2116 ribcage2729
(cons (let ((e2732 (syntax-object-expression2089 id2730))) (if (annotation?
e2732) (annotation-expression e2732) e2732)) (ribcage-symnames2113
ribcage2729))) (set-ribcage-marks!2117 ribcage2729 (cons (wrap-marks2107
(syntax-object-wrap2090 id2730)) (ribcage-marks2114 ribcage2729)))
(set-ribcage-labels!2118 ribcage2729 (cons label2731 (ribcage-labels2115
ribcage2729)))))) (anti-mark2119 (lambda (w2733) (make-wrap2106 (cons #f
(wrap-marks2107 w2733)) (cons (quote shift) (wrap-subst2108 w2733)))))
(set-ribcage-labels!2118 (lambda (x2734 update2735) (vector-set! x2734 3
update2735))) (set-ribcage-marks!2117 (lambda (x2736 update2737) (vector-set!
x2736 2 update2737))) (set-ribcage-symnames!2116 (lambda (x2738 update2739)
(vector-set! x2738 1 update2739))) (ribcage-labels2115 (lambda (x2740)
(vector-ref x2740 3))) (ribcage-marks2114 (lambda (x2741) (vector-ref x2741
2))) (ribcage-symnames2113 (lambda (x2742) (vector-ref x2742 1))) (ribcage?2112
(lambda (x2743) (if (vector? x2743) (if (= (vector-length x2743) 4) (eq?
(vector-ref x2743 0) (quote ribcage)) #f) #f))) (make-ribcage2111 (lambda
(symnames2744 marks2745 labels2746) (vector (quote ribcage) symnames2744
marks2745 labels2746))) (gen-labels2110 (lambda (ls2747) (if (null? ls2747)
(quote ()) (cons (gen-label2109) (gen-labels2110 (cdr ls2747))))))
(gen-label2109 (lambda () (string #\i))) (wrap-subst2108 cdr) (wrap-marks2107
car) (make-wrap2106 cons) (id-sym-name&marks2105 (lambda (x2748 w2749) (if
(syntax-object?2088 x2748) (values (let ((e2750 (syntax-object-expression2089
x2748))) (if (annotation? e2750) (annotation-expression e2750) e2750))
(join-marks2124 (wrap-marks2107 w2749) (wrap-marks2107 (syntax-object-wrap2090
x2748)))) (values (let ((e2751 x2748)) (if (annotation? e2751)
(annotation-expression e2751) e2751)) (wrap-marks2107 w2749))))) (id?2104
(lambda (x2752) (if (symbol? x2752) #t (if (syntax-object?2088 x2752) (symbol?
(let ((e2753 (syntax-object-expression2089 x2752))) (if (annotation? e2753)
(annotation-expression e2753) e2753))) (if (annotation? x2752) (symbol?
(annotation-expression x2752)) #f))))) (nonsymbol-id?2103 (lambda (x2754) (if
(syntax-object?2088 x2754) (symbol? (let ((e2755 (syntax-object-expression2089
x2754))) (if (annotation? e2755) (annotation-expression e2755) e2755))) #f)))
(global-extend2102 (lambda (type2756 sym2757 val2758)
(put-global-definition-hook2069 sym2757 type2756 val2758))) (lookup2101 (lambda
(x2759 r2760 mod2761) (let ((temp2762 (assq x2759 r2760))) (if temp2762 (cdr
temp2762) (if (symbol? x2759) (let ((t2763 (get-global-definition-hook2070
x2759 mod2761))) (if t2763 t2763 (quote (global)))) (quote
(displaced-lexical))))))) (macros-only-env2100 (lambda (r2764) (if (null?
r2764) (quote ()) (let ((a2765 (car r2764))) (if (eq? (cadr a2765) (quote
macro)) (cons a2765 (macros-only-env2100 (cdr r2764))) (macros-only-env2100
(cdr r2764))))))) (extend-var-env2099 (lambda (labels2766 vars2767 r2768) (if
(null? labels2766) r2768 (extend-var-env2099 (cdr labels2766) (cdr vars2767)
(cons (cons (car labels2766) (cons (quote lexical) (car vars2767))) r2768)))))
(extend-env2098 (lambda (labels2769 bindings2770 r2771) (if (null? labels2769)
r2771 (extend-env2098 (cdr labels2769) (cdr bindings2770) (cons (cons (car
labels2769) (car bindings2770)) r2771))))) (binding-value2097 cdr)
(binding-type2096 car) (source-annotation2095 (lambda (x2772) (if (annotation?
x2772) (annotation-source x2772) (if (syntax-object?2088 x2772)
(source-annotation2095 (syntax-object-expression2089 x2772)) #f))))
(set-syntax-object-module!2094 (lambda (x2773 update2774) (vector-set! x2773 3
update2774))) (set-syntax-object-wrap!2093 (lambda (x2775 update2776)
(vector-set! x2775 2 update2776))) (set-syntax-object-expression!2092 (lambda
(x2777 update2778) (vector-set! x2777 1 update2778))) (syntax-object-module2091
(lambda (x2779) (vector-ref x2779 3))) (syntax-object-wrap2090 (lambda (x2780)
(vector-ref x2780 2))) (syntax-object-expression2089 (lambda (x2781)
(vector-ref x2781 1))) (syntax-object?2088 (lambda (x2782) (if (vector? x2782)
(if (= (vector-length x2782) 4) (eq? (vector-ref x2782 0) (quote
syntax-object)) #f) #f))) (make-syntax-object2087 (lambda (expression2783
wrap2784 module2785) (vector (quote syntax-object) expression2783 wrap2784
module2785))) (build-letrec2086 (lambda (src2786 ids2787 vars2788 val-exps2789
body-exp2790) (if (null? vars2788) body-exp2790 (let ((atom-key2791 (fluid-ref
*mode*2062))) (if (memv atom-key2791 (quote (c))) ((@ (language tree-il)
make-letrec) src2786 ids2787 vars2788 val-exps2789 body-exp2790) (list (quote
letrec) (map list vars2788 val-exps2789) body-exp2790))))))
(build-named-let2085 (lambda (src2792 ids2793 vars2794 val-exps2795
body-exp2796) (let ((f2797 (car vars2794)) (f-name2798 (car ids2793)) (vars2799
(cdr vars2794)) (ids2800 (cdr ids2793))) (let ((atom-key2801 (fluid-ref
*mode*2062))) (if (memv atom-key2801 (quote (c))) ((@ (language tree-il)
make-letrec) src2792 (list f-name2798) (list f2797) (list (build-lambda2080
src2792 ids2800 vars2799 #f body-exp2796)) (build-application2072 src2792
(build-lexical-reference2074 (quote fun) src2792 f-name2798 f2797)
val-exps2795)) (list (quote let) f2797 (map list vars2799 val-exps2795)
body-exp2796)))))) (build-let2084 (lambda (src2802 ids2803 vars2804
val-exps2805 body-exp2806) (if (null? vars2804) body-exp2806 (let
((atom-key2807 (fluid-ref *mode*2062))) (if (memv atom-key2807 (quote (c))) ((@
(language tree-il) make-let) src2802 ids2803 vars2804 val-exps2805
body-exp2806) (list (quote let) (map list vars2804 val-exps2805)
body-exp2806)))))) (build-sequence2083 (lambda (src2808 exps2809) (if (null?
(cdr exps2809)) (car exps2809) (let ((atom-key2810 (fluid-ref *mode*2062))) (if
(memv atom-key2810 (quote (c))) ((@ (language tree-il) make-sequence) src2808
exps2809) (cons (quote begin) exps2809)))))) (build-data2082 (lambda (src2811
exp2812) (let ((atom-key2813 (fluid-ref *mode*2062))) (if (memv atom-key2813
(quote (c))) ((@ (language tree-il) make-const) src2811 exp2812) (if (if
(self-evaluating? exp2812) (not (vector? exp2812)) #f) exp2812 (list (quote
quote) exp2812)))))) (build-primref2081 (lambda (src2814 name2815) (if (equal?
(module-name (current-module)) (quote (guile))) (let ((atom-key2816 (fluid-ref
*mode*2062))) (if (memv atom-key2816 (quote (c))) ((@ (language tree-il)
make-toplevel-ref) src2814 name2815) name2815)) (let ((atom-key2817 (fluid-ref
*mode*2062))) (if (memv atom-key2817 (quote (c))) ((@ (language tree-il)
make-module-ref) src2814 (quote (guile)) name2815 #f) (list (quote @@) (quote
(guile)) name2815)))))) (build-lambda2080 (lambda (src2818 ids2819 vars2820
docstring2821 exp2822) (let ((atom-key2823 (fluid-ref *mode*2062))) (if (memv
atom-key2823 (quote (c))) ((@ (language tree-il) make-lambda) src2818 ids2819
vars2820 (if docstring2821 (list (cons (quote documentation) docstring2821))
(quote ())) exp2822) (cons (quote lambda) (cons vars2820 (append (if
docstring2821 (list docstring2821) (quote ())) (list exp2822))))))))
(build-global-definition2079 (lambda (source2824 var2825 exp2826) (let
((atom-key2827 (fluid-ref *mode*2062))) (if (memv atom-key2827 (quote (c))) ((@
(language tree-il) make-toplevel-define) source2824 var2825 exp2826) (list
(quote define) var2825 exp2826))))) (build-global-assignment2078 (lambda
(source2828 var2829 exp2830 mod2831) (analyze-variable2076 mod2831 var2829
(lambda (mod2832 var2833 public?2834) (let ((atom-key2835 (fluid-ref
*mode*2062))) (if (memv atom-key2835 (quote (c))) ((@ (language tree-il)
make-module-set) source2828 mod2832 var2833 public?2834 exp2830) (list (quote
set!) (list (if public?2834 (quote @) (quote @@)) mod2832 var2833) exp2830))))
(lambda (var2836) (let ((atom-key2837 (fluid-ref *mode*2062))) (if (memv
atom-key2837 (quote (c))) ((@ (language tree-il) make-toplevel-set) source2828
var2836 exp2830) (list (quote set!) var2836 exp2830)))))))
(build-global-reference2077 (lambda (source2838 var2839 mod2840)
(analyze-variable2076 mod2840 var2839 (lambda (mod2841 var2842 public?2843)
(let ((atom-key2844 (fluid-ref *mode*2062))) (if (memv atom-key2844 (quote
(c))) ((@ (language tree-il) make-module-ref) source2838 mod2841 var2842
public?2843) (list (if public?2843 (quote @) (quote @@)) mod2841 var2842))))
(lambda (var2845) (let ((atom-key2846 (fluid-ref *mode*2062))) (if (memv
atom-key2846 (quote (c))) ((@ (language tree-il) make-toplevel-ref) source2838
var2845) var2845)))))) (analyze-variable2076 (lambda (mod2847 var2848
modref-cont2849 bare-cont2850) (if (not mod2847) (bare-cont2850 var2848) (let
((kind2851 (car mod2847)) (mod2852 (cdr mod2847))) (if (memv kind2851 (quote
(public))) (modref-cont2849 mod2852 var2848 #t) (if (memv kind2851 (quote
(private))) (if (not (equal? mod2852 (module-name (current-module))))
(modref-cont2849 mod2852 var2848 #f) (bare-cont2850 var2848)) (if (memv
kind2851 (quote (bare))) (bare-cont2850 var2848) (if (memv kind2851 (quote
(hygiene))) (if (if (not (equal? mod2852 (module-name (current-module))))
(module-variable (resolve-module mod2852) var2848) #f) (modref-cont2849 mod2852
var2848 #f) (bare-cont2850 var2848)) (syntax-violation #f "bad module kind"
var2848 mod2852))))))))) (build-lexical-assignment2075 (lambda (source2853
name2854 var2855 exp2856) (let ((atom-key2857 (fluid-ref *mode*2062))) (if
(memv atom-key2857 (quote (c))) ((@ (language tree-il) make-lexical-set)
source2853 name2854 var2855 exp2856) (list (quote set!) var2855 exp2856)))))
(build-lexical-reference2074 (lambda (type2858 source2859 name2860 var2861)
(let ((atom-key2862 (fluid-ref *mode*2062))) (if (memv atom-key2862 (quote
(c))) ((@ (language tree-il) make-lexical-ref) source2859 name2860 var2861)
var2861)))) (build-conditional2073 (lambda (source2863 test-exp2864
then-exp2865 else-exp2866) (let ((atom-key2867 (fluid-ref *mode*2062))) (if
(memv atom-key2867 (quote (c))) ((@ (language tree-il) make-conditional)
source2863 test-exp2864 then-exp2865 else-exp2866) (list (quote if)
test-exp2864 then-exp2865 else-exp2866))))) (build-application2072 (lambda
(source2868 fun-exp2869 arg-exps2870) (let ((atom-key2871 (fluid-ref
*mode*2062))) (if (memv atom-key2871 (quote (c))) ((@ (language tree-il)
make-application) source2868 fun-exp2869 arg-exps2870) (cons fun-exp2869
arg-exps2870))))) (build-void2071 (lambda (source2872) (let ((atom-key2873
(fluid-ref *mode*2062))) (if (memv atom-key2873 (quote (c))) ((@ (language
tree-il) make-void) source2872) (quote (if #f #f))))))
(get-global-definition-hook2070 (lambda (symbol2874 module2875) (begin (if (if
(not module2875) (current-module) #f) (warn "module system is booted, we should
have a module" symbol2874) (if #f #f)) (let ((v2876 (module-variable (if
module2875 (resolve-module (cdr module2875)) (current-module)) symbol2874)))
(if v2876 (if (variable-bound? v2876) (let ((val2877 (variable-ref v2876))) (if
(macro? val2877) (if (syncase-macro-type val2877) (cons (syncase-macro-type
val2877) (syncase-macro-binding val2877)) #f) #f)) #f) #f)))))
(put-global-definition-hook2069 (lambda (symbol2878 type2879 val2880) (let
((existing2881 (let ((v2882 (module-variable (current-module) symbol2878))) (if
v2882 (if (variable-bound? v2882) (let ((val2883 (variable-ref v2882))) (if
(macro? val2883) (if (not (syncase-macro-type val2883)) val2883 #f) #f)) #f)
#f)))) (module-define! (current-module) symbol2878 (if existing2881
(make-extended-syncase-macro existing2881 type2879 val2880) (make-syncase-macro
type2879 val2880)))))) (local-eval-hook2068 (lambda (x2884 mod2885)
(primitive-eval (list noexpand2061 (let ((atom-key2886 (fluid-ref *mode*2062)))
(if (memv atom-key2886 (quote (c))) ((@ (language tree-il) tree-il->scheme)
x2884) x2884)))))) (top-level-eval-hook2067 (lambda (x2887 mod2888)
(primitive-eval (list noexpand2061 (let ((atom-key2889 (fluid-ref *mode*2062)))
(if (memv atom-key2889 (quote (c))) ((@ (language tree-il) tree-il->scheme)
x2887) x2887)))))) (fx<2066 <) (fx=2065 =) (fx-2064 -) (fx+2063 +) (*mode*2062
(make-fluid)) (noexpand2061 "noexpand")) (begin (global-extend2102 (quote
local-syntax) (quote letrec-syntax) #t) (global-extend2102 (quote local-syntax)
(quote let-syntax) #f) (global-extend2102 (quote core) (quote fluid-let-syntax)
(lambda (e2890 r2891 w2892 s2893 mod2894) ((lambda (tmp2895) ((lambda (tmp2896)
(if (if tmp2896 (apply (lambda (_2897 var2898 val2899 e12900 e22901)
(valid-bound-ids?2129 var2898)) tmp2896) #f) (apply (lambda (_2903 var2904
val2905 e12906 e22907) (let ((names2908 (map (lambda (x2909) (id-var-name2126
x2909 w2892)) var2904))) (begin (for-each (lambda (id2911 n2912) (let
((atom-key2913 (binding-type2096 (lookup2101 n2912 r2891 mod2894)))) (if (memv
atom-key2913 (quote (displaced-lexical))) (syntax-violation (quote
fluid-let-syntax) "identifier out of context" e2890 (source-wrap2133 id2911
w2892 s2893 mod2894)) (if #f #f)))) var2904 names2908) (chi-body2144 (cons
e12906 e22907) (source-wrap2133 e2890 w2892 s2893 mod2894) (extend-env2098
names2908 (let ((trans-r2916 (macros-only-env2100 r2891))) (map (lambda (x2917)
(cons (quote macro) (eval-local-transformer2147 (chi2140 x2917 trans-r2916
w2892 mod2894) mod2894))) val2905)) r2891) w2892 mod2894)))) tmp2896) ((lambda
(_2919) (syntax-violation (quote fluid-let-syntax) "bad syntax"
(source-wrap2133 e2890 w2892 s2893 mod2894))) tmp2895))) ($sc-dispatch tmp2895
(quote (any #(each (any any)) any . each-any))))) e2890))) (global-extend2102
(quote core) (quote quote) (lambda (e2920 r2921 w2922 s2923 mod2924) ((lambda
(tmp2925) ((lambda (tmp2926) (if tmp2926 (apply (lambda (_2927 e2928)
(build-data2082 s2923 (strip2151 e2928 w2922))) tmp2926) ((lambda (_2929)
(syntax-violation (quote quote) "bad syntax" (source-wrap2133 e2920 w2922 s2923
mod2924))) tmp2925))) ($sc-dispatch tmp2925 (quote (any any))))) e2920)))
(global-extend2102 (quote core) (quote syntax) (letrec ((regen2937 (lambda
(x2938) (let ((atom-key2939 (car x2938))) (if (memv atom-key2939 (quote (ref)))
(build-lexical-reference2074 (quote value) #f (cadr x2938) (cadr x2938)) (if
(memv atom-key2939 (quote (primitive))) (build-primref2081 #f (cadr x2938)) (if
(memv atom-key2939 (quote (quote))) (build-data2082 #f (cadr x2938)) (if (memv
atom-key2939 (quote (lambda))) (build-lambda2080 #f (cadr x2938) (cadr x2938)
#f (regen2937 (caddr x2938))) (if (memv atom-key2939 (quote (map))) (let
((ls2940 (map regen2937 (cdr x2938)))) (build-application2072 #f
(build-primref2081 #f (quote map)) ls2940)) (build-application2072 #f
(build-primref2081 #f (car x2938)) (map regen2937 (cdr x2938)))))))))))
(gen-vector2936 (lambda (x2941) (if (eq? (car x2941) (quote list)) (cons (quote
vector) (cdr x2941)) (if (eq? (car x2941) (quote quote)) (list (quote quote)
(list->vector (cadr x2941))) (list (quote list->vector) x2941)))))
(gen-append2935 (lambda (x2942 y2943) (if (equal? y2943 (quote (quote ())))
x2942 (list (quote append) x2942 y2943)))) (gen-cons2934 (lambda (x2944 y2945)
(let ((atom-key2946 (car y2945))) (if (memv atom-key2946 (quote (quote))) (if
(eq? (car x2944) (quote quote)) (list (quote quote) (cons (cadr x2944) (cadr
y2945))) (if (eq? (cadr y2945) (quote ())) (list (quote list) x2944) (list
(quote cons) x2944 y2945))) (if (memv atom-key2946 (quote (list))) (cons (quote
list) (cons x2944 (cdr y2945))) (list (quote cons) x2944 y2945))))))
(gen-map2933 (lambda (e2947 map-env2948) (let ((formals2949 (map cdr
map-env2948)) (actuals2950 (map (lambda (x2951) (list (quote ref) (car x2951)))
map-env2948))) (if (eq? (car e2947) (quote ref)) (car actuals2950) (if (and-map
(lambda (x2952) (if (eq? (car x2952) (quote ref)) (memq (cadr x2952)
formals2949) #f)) (cdr e2947)) (cons (quote map) (cons (list (quote primitive)
(car e2947)) (map (let ((r2953 (map cons formals2949 actuals2950))) (lambda
(x2954) (cdr (assq (cadr x2954) r2953)))) (cdr e2947)))) (cons (quote map)
(cons (list (quote lambda) formals2949 e2947) actuals2950)))))))
(gen-mappend2932 (lambda (e2955 map-env2956) (list (quote apply) (quote
(primitive append)) (gen-map2933 e2955 map-env2956)))) (gen-ref2931 (lambda
(src2957 var2958 level2959 maps2960) (if (fx=2065 level2959 0) (values var2958
maps2960) (if (null? maps2960) (syntax-violation (quote syntax) "missing
ellipsis" src2957) (call-with-values (lambda () (gen-ref2931 src2957 var2958
(fx-2064 level2959 1) (cdr maps2960))) (lambda (outer-var2961 outer-maps2962)
(let ((b2963 (assq outer-var2961 (car maps2960)))) (if b2963 (values (cdr
b2963) maps2960) (let ((inner-var2964 (gen-var2152 (quote tmp)))) (values
inner-var2964 (cons (cons (cons outer-var2961 inner-var2964) (car maps2960))
outer-maps2962))))))))))) (gen-syntax2930 (lambda (src2965 e2966 r2967 maps2968
ellipsis?2969 mod2970) (if (id?2104 e2966) (let ((label2971 (id-var-name2126
e2966 (quote (()))))) (let ((b2972 (lookup2101 label2971 r2967 mod2970))) (if
(eq? (binding-type2096 b2972) (quote syntax)) (call-with-values (lambda () (let
((var.lev2973 (binding-value2097 b2972))) (gen-ref2931 src2965 (car
var.lev2973) (cdr var.lev2973) maps2968))) (lambda (var2974 maps2975) (values
(list (quote ref) var2974) maps2975))) (if (ellipsis?2969 e2966)
(syntax-violation (quote syntax) "misplaced ellipsis" src2965) (values (list
(quote quote) e2966) maps2968))))) ((lambda (tmp2976) ((lambda (tmp2977) (if
(if tmp2977 (apply (lambda (dots2978 e2979) (ellipsis?2969 dots2978)) tmp2977)
#f) (apply (lambda (dots2980 e2981) (gen-syntax2930 src2965 e2981 r2967
maps2968 (lambda (x2982) #f) mod2970)) tmp2977) ((lambda (tmp2983) (if (if
tmp2983 (apply (lambda (x2984 dots2985 y2986) (ellipsis?2969 dots2985))
tmp2983) #f) (apply (lambda (x2987 dots2988 y2989) (letrec ((f2990 (lambda
(y2991 k2992) ((lambda (tmp2996) ((lambda (tmp2997) (if (if tmp2997 (apply
(lambda (dots2998 y2999) (ellipsis?2969 dots2998)) tmp2997) #f) (apply (lambda
(dots3000 y3001) (f2990 y3001 (lambda (maps3002) (call-with-values (lambda ()
(k2992 (cons (quote ()) maps3002))) (lambda (x3003 maps3004) (if (null? (car
maps3004)) (syntax-violation (quote syntax) "extra ellipsis" src2965) (values
(gen-mappend2932 x3003 (car maps3004)) (cdr maps3004)))))))) tmp2997) ((lambda
(_3005) (call-with-values (lambda () (gen-syntax2930 src2965 y2991 r2967
maps2968 ellipsis?2969 mod2970)) (lambda (y3006 maps3007) (call-with-values
(lambda () (k2992 maps3007)) (lambda (x3008 maps3009) (values (gen-append2935
x3008 y3006) maps3009)))))) tmp2996))) ($sc-dispatch tmp2996 (quote (any .
any))))) y2991)))) (f2990 y2989 (lambda (maps2993) (call-with-values (lambda ()
(gen-syntax2930 src2965 x2987 r2967 (cons (quote ()) maps2993) ellipsis?2969
mod2970)) (lambda (x2994 maps2995) (if (null? (car maps2995)) (syntax-violation
(quote syntax) "extra ellipsis" src2965) (values (gen-map2933 x2994 (car
maps2995)) (cdr maps2995))))))))) tmp2983) ((lambda (tmp3010) (if tmp3010
(apply (lambda (x3011 y3012) (call-with-values (lambda () (gen-syntax2930
src2965 x3011 r2967 maps2968 ellipsis?2969 mod2970)) (lambda (x3013 maps3014)
(call-with-values (lambda () (gen-syntax2930 src2965 y3012 r2967 maps3014
ellipsis?2969 mod2970)) (lambda (y3015 maps3016) (values (gen-cons2934 x3013
y3015) maps3016)))))) tmp3010) ((lambda (tmp3017) (if tmp3017 (apply (lambda
(e13018 e23019) (call-with-values (lambda () (gen-syntax2930 src2965 (cons
e13018 e23019) r2967 maps2968 ellipsis?2969 mod2970)) (lambda (e3021 maps3022)
(values (gen-vector2936 e3021) maps3022)))) tmp3017) ((lambda (_3023) (values
(list (quote quote) e2966) maps2968)) tmp2976))) ($sc-dispatch tmp2976 (quote
#(vector (any . each-any))))))) ($sc-dispatch tmp2976 (quote (any . any))))))
($sc-dispatch tmp2976 (quote (any any . any)))))) ($sc-dispatch tmp2976 (quote
(any any))))) e2966))))) (lambda (e3024 r3025 w3026 s3027 mod3028) (let ((e3029
(source-wrap2133 e3024 w3026 s3027 mod3028))) ((lambda (tmp3030) ((lambda
(tmp3031) (if tmp3031 (apply (lambda (_3032 x3033) (call-with-values (lambda ()
(gen-syntax2930 e3029 x3033 r3025 (quote ()) ellipsis?2149 mod3028)) (lambda
(e3034 maps3035) (regen2937 e3034)))) tmp3031) ((lambda (_3036)
(syntax-violation (quote syntax) "bad `syntax' form" e3029)) tmp3030)))
($sc-dispatch tmp3030 (quote (any any))))) e3029))))) (global-extend2102 (quote
core) (quote lambda) (lambda (e3037 r3038 w3039 s3040 mod3041) ((lambda
(tmp3042) ((lambda (tmp3043) (if tmp3043 (apply (lambda (_3044 c3045)
(chi-lambda-clause2145 (source-wrap2133 e3037 w3039 s3040 mod3041) #f c3045
r3038 w3039 mod3041 (lambda (names3046 vars3047 docstring3048 body3049)
(build-lambda2080 s3040 names3046 vars3047 docstring3048 body3049)))) tmp3043)
(syntax-violation #f "Source expression failed to match any pattern" tmp3042)))
($sc-dispatch tmp3042 (quote (any . any))))) e3037))) (global-extend2102 (quote
core) (quote let) (letrec ((chi-let3050 (lambda (e3051 r3052 w3053 s3054
mod3055 constructor3056 ids3057 vals3058 exps3059) (if (not
(valid-bound-ids?2129 ids3057)) (syntax-violation (quote let) "duplicate bound
variable" e3051) (let ((labels3060 (gen-labels2110 ids3057)) (new-vars3061 (map
gen-var2152 ids3057))) (let ((nw3062 (make-binding-wrap2121 ids3057 labels3060
w3053)) (nr3063 (extend-var-env2099 labels3060 new-vars3061 r3052)))
(constructor3056 s3054 (map syntax->datum ids3057) new-vars3061 (map (lambda
(x3064) (chi2140 x3064 r3052 w3053 mod3055)) vals3058) (chi-body2144 exps3059
(source-wrap2133 e3051 nw3062 s3054 mod3055) nr3063 nw3062 mod3055))))))))
(lambda (e3065 r3066 w3067 s3068 mod3069) ((lambda (tmp3070) ((lambda (tmp3071)
(if tmp3071 (apply (lambda (_3072 id3073 val3074 e13075 e23076) (chi-let3050
e3065 r3066 w3067 s3068 mod3069 build-let2084 id3073 val3074 (cons e13075
e23076))) tmp3071) ((lambda (tmp3080) (if (if tmp3080 (apply (lambda (_3081
f3082 id3083 val3084 e13085 e23086) (id?2104 f3082)) tmp3080) #f) (apply
(lambda (_3087 f3088 id3089 val3090 e13091 e23092) (chi-let3050 e3065 r3066
w3067 s3068 mod3069 build-named-let2085 (cons f3088 id3089) val3090 (cons
e13091 e23092))) tmp3080) ((lambda (_3096) (syntax-violation (quote let) "bad
let" (source-wrap2133 e3065 w3067 s3068 mod3069))) tmp3070))) ($sc-dispatch
tmp3070 (quote (any any #(each (any any)) any . each-any)))))) ($sc-dispatch
tmp3070 (quote (any #(each (any any)) any . each-any))))) e3065))))
(global-extend2102 (quote core) (quote letrec) (lambda (e3097 r3098 w3099 s3100
mod3101) ((lambda (tmp3102) ((lambda (tmp3103) (if tmp3103 (apply (lambda
(_3104 id3105 val3106 e13107 e23108) (let ((ids3109 id3105)) (if (not
(valid-bound-ids?2129 ids3109)) (syntax-violation (quote letrec) "duplicate
bound variable" e3097) (let ((labels3111 (gen-labels2110 ids3109))
(new-vars3112 (map gen-var2152 ids3109))) (let ((w3113 (make-binding-wrap2121
ids3109 labels3111 w3099)) (r3114 (extend-var-env2099 labels3111 new-vars3112
r3098))) (build-letrec2086 s3100 (map syntax->datum ids3109) new-vars3112 (map
(lambda (x3115) (chi2140 x3115 r3114 w3113 mod3101)) val3106) (chi-body2144
(cons e13107 e23108) (source-wrap2133 e3097 w3113 s3100 mod3101) r3114 w3113
mod3101))))))) tmp3103) ((lambda (_3118) (syntax-violation (quote letrec) "bad
letrec" (source-wrap2133 e3097 w3099 s3100 mod3101))) tmp3102))) ($sc-dispatch
tmp3102 (quote (any #(each (any any)) any . each-any))))) e3097)))
(global-extend2102 (quote core) (quote set!) (lambda (e3119 r3120 w3121 s3122
mod3123) ((lambda (tmp3124) ((lambda (tmp3125) (if (if tmp3125 (apply (lambda
(_3126 id3127 val3128) (id?2104 id3127)) tmp3125) #f) (apply (lambda (_3129
id3130 val3131) (let ((val3132 (chi2140 val3131 r3120 w3121 mod3123)) (n3133
(id-var-name2126 id3130 w3121))) (let ((b3134 (lookup2101 n3133 r3120
mod3123))) (let ((atom-key3135 (binding-type2096 b3134))) (if (memv
atom-key3135 (quote (lexical))) (build-lexical-assignment2075 s3122
(syntax->datum id3130) (binding-value2097 b3134) val3132) (if (memv
atom-key3135 (quote (global))) (build-global-assignment2078 s3122 n3133 val3132
mod3123) (if (memv atom-key3135 (quote (displaced-lexical))) (syntax-violation
(quote set!) "identifier out of context" (wrap2132 id3130 w3121 mod3123))
(syntax-violation (quote set!) "bad set!" (source-wrap2133 e3119 w3121 s3122
mod3123))))))))) tmp3125) ((lambda (tmp3136) (if tmp3136 (apply (lambda (_3137
head3138 tail3139 val3140) (call-with-values (lambda () (syntax-type2138
head3138 r3120 (quote (())) #f #f mod3123)) (lambda (type3141 value3142 ee3143
ww3144 ss3145 modmod3146) (if (memv type3141 (quote (module-ref))) (let
((val3147 (chi2140 val3140 r3120 w3121 mod3123))) (call-with-values (lambda ()
(value3142 (cons head3138 tail3139))) (lambda (id3149 mod3150)
(build-global-assignment2078 s3122 id3149 val3147 mod3150))))
(build-application2072 s3122 (chi2140 (list (quote #(syntax-object setter
((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(type value ee ww ss
modmod) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i"))
#(ribcage #(_ head tail val) #((top) (top) (top) (top)) #("i" "i" "i" "i"))
#(ribcage () () ()) #(ribcage #(e r w s mod) #((top) (top) (top) (top) (top))
#("i" "i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var strip
strip-annotation ellipsis? chi-void eval-local-transformer chi-local-syntax
chi-lambda-clause chi-body chi-macro chi-application chi-expr chi chi-top
syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence
source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids?
bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append
make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark
the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels!
set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks
ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename
rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks
make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup
macros-only-env extend-var-env extend-env null-env binding-value binding-type
make-binding arg-check source-annotation no-source unannotate
set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression!
syntax-object-module syntax-object-wrap syntax-object-expression syntax-object?
make-syntax-object build-lexical-var build-letrec build-named-let build-let
build-sequence build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))
head3138) r3120 w3121 mod3123) (map (lambda (e3151) (chi2140 e3151 r3120 w3121
mod3123)) (append tail3139 (list val3140)))))))) tmp3136) ((lambda (_3153)
(syntax-violation (quote set!) "bad set!" (source-wrap2133 e3119 w3121 s3122
mod3123))) tmp3124))) ($sc-dispatch tmp3124 (quote (any (any . each-any)
any)))))) ($sc-dispatch tmp3124 (quote (any any any))))) e3119)))
(global-extend2102 (quote module-ref) (quote @) (lambda (e3154) ((lambda
(tmp3155) ((lambda (tmp3156) (if (if tmp3156 (apply (lambda (_3157 mod3158
id3159) (if (and-map id?2104 mod3158) (id?2104 id3159) #f)) tmp3156) #f) (apply
(lambda (_3161 mod3162 id3163) (values (syntax->datum id3163) (syntax->datum
(cons (quote #(syntax-object public ((top) #(ribcage #(_ mod id) #((top) (top)
(top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(e) #((top)) #("i"))
#(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis? chi-void
eval-local-transformer chi-local-syntax chi-lambda-clause chi-body chi-macro
chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))
mod3162)))) tmp3156) (syntax-violation #f "Source expression failed to match
any pattern" tmp3155))) ($sc-dispatch tmp3155 (quote (any each-any any)))))
e3154))) (global-extend2102 (quote module-ref) (quote @@) (lambda (e3165)
((lambda (tmp3166) ((lambda (tmp3167) (if (if tmp3167 (apply (lambda (_3168
mod3169 id3170) (if (and-map id?2104 mod3169) (id?2104 id3170) #f)) tmp3167)
#f) (apply (lambda (_3172 mod3173 id3174) (values (syntax->datum id3174)
(syntax->datum (cons (quote #(syntax-object private ((top) #(ribcage #(_ mod
id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(e)
#((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip-annotation
ellipsis? chi-void eval-local-transformer chi-local-syntax chi-lambda-clause
chi-body chi-macro chi-application chi-expr chi chi-top syntax-type
chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))
mod3173)))) tmp3167) (syntax-violation #f "Source expression failed to match
any pattern" tmp3166))) ($sc-dispatch tmp3166 (quote (any each-any any)))))
e3165))) (global-extend2102 (quote core) (quote if) (lambda (e3176 r3177 w3178
s3179 mod3180) ((lambda (tmp3181) ((lambda (tmp3182) (if tmp3182 (apply (lambda
(_3183 test3184 then3185) (build-conditional2073 s3179 (chi2140 test3184 r3177
w3178 mod3180) (chi2140 then3185 r3177 w3178 mod3180) (build-void2071 #f)))
tmp3182) ((lambda (tmp3186) (if tmp3186 (apply (lambda (_3187 test3188 then3189
else3190) (build-conditional2073 s3179 (chi2140 test3188 r3177 w3178 mod3180)
(chi2140 then3189 r3177 w3178 mod3180) (chi2140 else3190 r3177 w3178 mod3180)))
tmp3186) (syntax-violation #f "Source expression failed to match any pattern"
tmp3181))) ($sc-dispatch tmp3181 (quote (any any any any)))))) ($sc-dispatch
tmp3181 (quote (any any any))))) e3176))) (global-extend2102 (quote begin)
(quote begin) (quote ())) (global-extend2102 (quote define) (quote define)
(quote ())) (global-extend2102 (quote define-syntax) (quote define-syntax)
(quote ())) (global-extend2102 (quote eval-when) (quote eval-when) (quote ()))
(global-extend2102 (quote core) (quote syntax-case) (letrec
((gen-syntax-case3194 (lambda (x3195 keys3196 clauses3197 r3198 mod3199) (if
(null? clauses3197) (build-application2072 #f (build-primref2081 #f (quote
syntax-violation)) (list (build-data2082 #f #f) (build-data2082 #f "source
expression failed to match any pattern") x3195)) ((lambda (tmp3200) ((lambda
(tmp3201) (if tmp3201 (apply (lambda (pat3202 exp3203) (if (if (id?2104
pat3202) (and-map (lambda (x3204) (not (free-id=?2127 pat3202 x3204))) (cons
(quote #(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) #("i"
"i")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top)
(top) (top)) #("i" "i" "i" "i" "i")) #(ribcage (gen-syntax-case gen-clause
build-dispatch-call convert-pattern) ((top) (top) (top) (top)) ("i" "i" "i"
"i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis?
chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body
chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))
keys3196)) #f) (let ((labels3205 (list (gen-label2109))) (var3206 (gen-var2152
pat3202))) (build-application2072 #f (build-lambda2080 #f (list (syntax->datum
pat3202)) (list var3206) #f (chi2140 exp3203 (extend-env2098 labels3205 (list
(cons (quote syntax) (cons var3206 0))) r3198) (make-binding-wrap2121 (list
pat3202) labels3205 (quote (()))) mod3199)) (list x3195))) (gen-clause3193
x3195 keys3196 (cdr clauses3197) r3198 pat3202 #t exp3203 mod3199))) tmp3201)
((lambda (tmp3207) (if tmp3207 (apply (lambda (pat3208 fender3209 exp3210)
(gen-clause3193 x3195 keys3196 (cdr clauses3197) r3198 pat3208 fender3209
exp3210 mod3199)) tmp3207) ((lambda (_3211) (syntax-violation (quote
syntax-case) "invalid clause" (car clauses3197))) tmp3200))) ($sc-dispatch
tmp3200 (quote (any any any)))))) ($sc-dispatch tmp3200 (quote (any any)))))
(car clauses3197))))) (gen-clause3193 (lambda (x3212 keys3213 clauses3214 r3215
pat3216 fender3217 exp3218 mod3219) (call-with-values (lambda ()
(convert-pattern3191 pat3216 keys3213)) (lambda (p3220 pvars3221) (if (not
(distinct-bound-ids?2130 (map car pvars3221))) (syntax-violation (quote
syntax-case) "duplicate pattern variable" pat3216) (if (not (and-map (lambda
(x3222) (not (ellipsis?2149 (car x3222)))) pvars3221)) (syntax-violation (quote
syntax-case) "misplaced ellipsis" pat3216) (let ((y3223 (gen-var2152 (quote
tmp)))) (build-application2072 #f (build-lambda2080 #f (list (quote tmp)) (list
y3223) #f (let ((y3224 (build-lexical-reference2074 (quote value) #f (quote
tmp) y3223))) (build-conditional2073 #f ((lambda (tmp3225) ((lambda (tmp3226)
(if tmp3226 (apply (lambda () y3224) tmp3226) ((lambda (_3227)
(build-conditional2073 #f y3224 (build-dispatch-call3192 pvars3221 fender3217
y3224 r3215 mod3219) (build-data2082 #f #f))) tmp3225))) ($sc-dispatch tmp3225
(quote #(atom #t))))) fender3217) (build-dispatch-call3192 pvars3221 exp3218
y3224 r3215 mod3219) (gen-syntax-case3194 x3212 keys3213 clauses3214 r3215
mod3219)))) (list (if (eq? p3220 (quote any)) (build-application2072 #f
(build-primref2081 #f (quote list)) (list x3212)) (build-application2072 #f
(build-primref2081 #f (quote $sc-dispatch)) (list x3212 (build-data2082 #f
p3220))))))))))))) (build-dispatch-call3192 (lambda (pvars3228 exp3229 y3230
r3231 mod3232) (let ((ids3233 (map car pvars3228)) (levels3234 (map cdr
pvars3228))) (let ((labels3235 (gen-labels2110 ids3233)) (new-vars3236 (map
gen-var2152 ids3233))) (build-application2072 #f (build-primref2081 #f (quote
apply)) (list (build-lambda2080 #f (map syntax->datum ids3233) new-vars3236 #f
(chi2140 exp3229 (extend-env2098 labels3235 (map (lambda (var3237 level3238)
(cons (quote syntax) (cons var3237 level3238))) new-vars3236 (map cdr
pvars3228)) r3231) (make-binding-wrap2121 ids3233 labels3235 (quote (())))
mod3232)) y3230)))))) (convert-pattern3191 (lambda (pattern3239 keys3240)
(letrec ((cvt3241 (lambda (p3242 n3243 ids3244) (if (id?2104 p3242) (if
(bound-id-member?2131 p3242 keys3240) (values (vector (quote free-id) p3242)
ids3244) (values (quote any) (cons (cons p3242 n3243) ids3244))) ((lambda
(tmp3245) ((lambda (tmp3246) (if (if tmp3246 (apply (lambda (x3247 dots3248)
(ellipsis?2149 dots3248)) tmp3246) #f) (apply (lambda (x3249 dots3250)
(call-with-values (lambda () (cvt3241 x3249 (fx+2063 n3243 1) ids3244)) (lambda
(p3251 ids3252) (values (if (eq? p3251 (quote any)) (quote each-any) (vector
(quote each) p3251)) ids3252)))) tmp3246) ((lambda (tmp3253) (if tmp3253 (apply
(lambda (x3254 y3255) (call-with-values (lambda () (cvt3241 y3255 n3243
ids3244)) (lambda (y3256 ids3257) (call-with-values (lambda () (cvt3241 x3254
n3243 ids3257)) (lambda (x3258 ids3259) (values (cons x3258 y3256)
ids3259)))))) tmp3253) ((lambda (tmp3260) (if tmp3260 (apply (lambda () (values
(quote ()) ids3244)) tmp3260) ((lambda (tmp3261) (if tmp3261 (apply (lambda
(x3262) (call-with-values (lambda () (cvt3241 x3262 n3243 ids3244)) (lambda
(p3264 ids3265) (values (vector (quote vector) p3264) ids3265)))) tmp3261)
((lambda (x3266) (values (vector (quote atom) (strip2151 p3242 (quote (()))))
ids3244)) tmp3245))) ($sc-dispatch tmp3245 (quote #(vector each-any))))))
($sc-dispatch tmp3245 (quote ()))))) ($sc-dispatch tmp3245 (quote (any .
any)))))) ($sc-dispatch tmp3245 (quote (any any))))) p3242))))) (cvt3241
pattern3239 0 (quote ())))))) (lambda (e3267 r3268 w3269 s3270 mod3271) (let
((e3272 (source-wrap2133 e3267 w3269 s3270 mod3271))) ((lambda (tmp3273)
((lambda (tmp3274) (if tmp3274 (apply (lambda (_3275 val3276 key3277 m3278) (if
(and-map (lambda (x3279) (if (id?2104 x3279) (not (ellipsis?2149 x3279)) #f))
key3277) (let ((x3281 (gen-var2152 (quote tmp)))) (build-application2072 s3270
(build-lambda2080 #f (list (quote tmp)) (list x3281) #f (gen-syntax-case3194
(build-lexical-reference2074 (quote value) #f (quote tmp) x3281) key3277 m3278
r3268 mod3271)) (list (chi2140 val3276 r3268 (quote (())) mod3271))))
(syntax-violation (quote syntax-case) "invalid literals list" e3272))) tmp3274)
(syntax-violation #f "Source expression failed to match any pattern" tmp3273)))
($sc-dispatch tmp3273 (quote (any any each-any . each-any))))) e3272))))) (set!
sc-expand (lambda (x3285 . rest3284) (if (if (pair? x3285) (equal? (car x3285)
noexpand2061) #f) (cadr x3285) (let ((m3286 (if (null? rest3284) (quote e) (car
rest3284))) (esew3287 (if (let ((t3288 (null? rest3284))) (if t3288 t3288
(null? (cdr rest3284)))) (quote (eval)) (cadr rest3284)))) (with-fluid*
*mode*2062 m3286 (lambda () (chi-top2139 x3285 (quote ()) (quote ((top))) m3286
esew3287 (cons (quote hygiene) (module-name (current-module)))))))))) (set!
identifier? (lambda (x3289) (nonsymbol-id?2103 x3289))) (set! datum->syntax
(lambda (id3290 datum3291) (make-syntax-object2087 datum3291
(syntax-object-wrap2090 id3290) #f))) (set! syntax->datum (lambda (x3292)
(strip2151 x3292 (quote (()))))) (set! generate-temporaries (lambda (ls3293)
(begin (let ((x3294 ls3293)) (if (not (list? x3294)) (syntax-violation (quote
generate-temporaries) "invalid argument" x3294) (if #f #f))) (map (lambda
(x3295) (wrap2132 (gensym) (quote ((top))) #f)) ls3293)))) (set!
free-identifier=? (lambda (x3296 y3297) (begin (let ((x3298 x3296)) (if (not
(nonsymbol-id?2103 x3298)) (syntax-violation (quote free-identifier=?) "invalid
argument" x3298) (if #f #f))) (let ((x3299 y3297)) (if (not (nonsymbol-id?2103
x3299)) (syntax-violation (quote free-identifier=?) "invalid argument" x3299)
(if #f #f))) (free-id=?2127 x3296 y3297)))) (set! bound-identifier=? (lambda
(x3300 y3301) (begin (let ((x3302 x3300)) (if (not (nonsymbol-id?2103 x3302))
(syntax-violation (quote bound-identifier=?) "invalid argument" x3302) (if #f
#f))) (let ((x3303 y3301)) (if (not (nonsymbol-id?2103 x3303))
(syntax-violation (quote bound-identifier=?) "invalid argument" x3303) (if #f
#f))) (bound-id=?2128 x3300 y3301)))) (set! syntax-violation (lambda (who3307
message3306 form3305 . subform3304) (begin (let ((x3308 who3307)) (if (not
((lambda (x3309) (let ((t3310 (not x3309))) (if t3310 t3310 (let ((t3311
(string? x3309))) (if t3311 t3311 (symbol? x3309)))))) x3308))
(syntax-violation (quote syntax-violation) "invalid argument" x3308) (if #f
#f))) (let ((x3312 message3306)) (if (not (string? x3312)) (syntax-violation
(quote syntax-violation) "invalid argument" x3312) (if #f #f))) (scm-error
(quote syntax-error) (quote sc-expand) (string-append (if who3307 "~a: " "")
"~a " (if (null? subform3304) "in ~a" "in subform `~s' of `~s'")) (let
((tail3313 (cons message3306 (map (lambda (x3314) (strip2151 x3314 (quote
(())))) (append subform3304 (list form3305)))))) (if who3307 (cons who3307
tail3313) tail3313)) #f)))) (letrec ((match3319 (lambda (e3320 p3321 w3322
r3323 mod3324) (if (not r3323) #f (if (eq? p3321 (quote any)) (cons (wrap2132
e3320 w3322 mod3324) r3323) (if (syntax-object?2088 e3320) (match*3318 (let
((e3325 (syntax-object-expression2089 e3320))) (if (annotation? e3325)
(annotation-expression e3325) e3325)) p3321 (join-wraps2123 w3322
(syntax-object-wrap2090 e3320)) r3323 (syntax-object-module2091 e3320))
(match*3318 (let ((e3326 e3320)) (if (annotation? e3326) (annotation-expression
e3326) e3326)) p3321 w3322 r3323 mod3324)))))) (match*3318 (lambda (e3327 p3328
w3329 r3330 mod3331) (if (null? p3328) (if (null? e3327) r3330 #f) (if (pair?
p3328) (if (pair? e3327) (match3319 (car e3327) (car p3328) w3329 (match3319
(cdr e3327) (cdr p3328) w3329 r3330 mod3331) mod3331) #f) (if (eq? p3328 (quote
each-any)) (let ((l3332 (match-each-any3316 e3327 w3329 mod3331))) (if l3332
(cons l3332 r3330) #f)) (let ((atom-key3333 (vector-ref p3328 0))) (if (memv
atom-key3333 (quote (each))) (if (null? e3327) (match-empty3317 (vector-ref
p3328 1) r3330) (let ((l3334 (match-each3315 e3327 (vector-ref p3328 1) w3329
mod3331))) (if l3334 (letrec ((collect3335 (lambda (l3336) (if (null? (car
l3336)) r3330 (cons (map car l3336) (collect3335 (map cdr l3336)))))))
(collect3335 l3334)) #f))) (if (memv atom-key3333 (quote (free-id))) (if
(id?2104 e3327) (if (free-id=?2127 (wrap2132 e3327 w3329 mod3331) (vector-ref
p3328 1)) r3330 #f) #f) (if (memv atom-key3333 (quote (atom))) (if (equal?
(vector-ref p3328 1) (strip2151 e3327 w3329)) r3330 #f) (if (memv atom-key3333
(quote (vector))) (if (vector? e3327) (match3319 (vector->list e3327)
(vector-ref p3328 1) w3329 r3330 mod3331) #f) (if #f #f)))))))))))
(match-empty3317 (lambda (p3337 r3338) (if (null? p3337) r3338 (if (eq? p3337
(quote any)) (cons (quote ()) r3338) (if (pair? p3337) (match-empty3317 (car
p3337) (match-empty3317 (cdr p3337) r3338)) (if (eq? p3337 (quote each-any))
(cons (quote ()) r3338) (let ((atom-key3339 (vector-ref p3337 0))) (if (memv
atom-key3339 (quote (each))) (match-empty3317 (vector-ref p3337 1) r3338) (if
(memv atom-key3339 (quote (free-id atom))) r3338 (if (memv atom-key3339 (quote
(vector))) (match-empty3317 (vector-ref p3337 1) r3338) (if #f #f)))))))))))
(match-each-any3316 (lambda (e3340 w3341 mod3342) (if (annotation? e3340)
(match-each-any3316 (annotation-expression e3340) w3341 mod3342) (if (pair?
e3340) (let ((l3343 (match-each-any3316 (cdr e3340) w3341 mod3342))) (if l3343
(cons (wrap2132 (car e3340) w3341 mod3342) l3343) #f)) (if (null? e3340) (quote
()) (if (syntax-object?2088 e3340) (match-each-any3316
(syntax-object-expression2089 e3340) (join-wraps2123 w3341
(syntax-object-wrap2090 e3340)) mod3342) #f)))))) (match-each3315 (lambda
(e3344 p3345 w3346 mod3347) (if (annotation? e3344) (match-each3315
(annotation-expression e3344) p3345 w3346 mod3347) (if (pair? e3344) (let
((first3348 (match3319 (car e3344) p3345 w3346 (quote ()) mod3347))) (if
first3348 (let ((rest3349 (match-each3315 (cdr e3344) p3345 w3346 mod3347)))
(if rest3349 (cons first3348 rest3349) #f)) #f)) (if (null? e3344) (quote ())
(if (syntax-object?2088 e3344) (match-each3315 (syntax-object-expression2089
e3344) p3345 (join-wraps2123 w3346 (syntax-object-wrap2090 e3344))
(syntax-object-module2091 e3344)) #f))))))) (set! $sc-dispatch (lambda (e3350
p3351) (if (eq? p3351 (quote any)) (list e3350) (if (syntax-object?2088 e3350)
(match*3318 (let ((e3352 (syntax-object-expression2089 e3350))) (if
(annotation? e3352) (annotation-expression e3352) e3352)) p3351
(syntax-object-wrap2090 e3350) (quote ()) (syntax-object-module2091 e3350))
(match*3318 (let ((e3353 e3350)) (if (annotation? e3353) (annotation-expression
e3353) e3353)) p3351 (quote (())) (quote ()) #f)))))))))
-(define with-syntax (make-syncase-macro (quote macro) (lambda (x3354) ((lambda
(tmp3355) ((lambda (tmp3356) (if tmp3356 (apply (lambda (_3357 e13358 e23359)
(cons (quote #(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top)
(top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) (cons e13358 e23359))) tmp3356) ((lambda (tmp3361) (if
tmp3361 (apply (lambda (_3362 out3363 in3364 e13365 e23366) (list (quote
#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top)
(top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x)
#((top)) #("i"))) (hygiene guile))) in3364 (quote ()) (list out3363 (cons
(quote #(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top)
(top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x)
#((top)) #("i"))) (hygiene guile))) (cons e13365 e23366))))) tmp3361) ((lambda
(tmp3368) (if tmp3368 (apply (lambda (_3369 out3370 in3371 e13372 e23373) (list
(quote #(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top)
(top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage
#(x) #((top)) #("i"))) (hygiene guile))) (cons (quote #(syntax-object list
((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i"
"i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile))) in3371) (quote ()) (list out3370 (cons (quote #(syntax-object begin
((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i"
"i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile))) (cons e13372 e23373))))) tmp3368) (syntax-violation #f "Source
expression failed to match any pattern" tmp3355))) ($sc-dispatch tmp3355 (quote
(any #(each (any any)) any . each-any)))))) ($sc-dispatch tmp3355 (quote (any
((any any)) any . each-any)))))) ($sc-dispatch tmp3355 (quote (any () any .
each-any))))) x3354))))
-(define syntax-rules (make-syncase-macro (quote macro) (lambda (x3377)
((lambda (tmp3378) ((lambda (tmp3379) (if tmp3379 (apply (lambda (_3380 k3381
keyword3382 pattern3383 template3384) (list (quote #(syntax-object lambda
((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top)
(top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top))
#("i"))) (hygiene guile))) (quote (#(syntax-object x ((top) #(ribcage #(_ k
keyword pattern template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i"
"i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))))
(cons (quote #(syntax-object syntax-case ((top) #(ribcage #(_ k keyword pattern
template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage ()
() ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))) (cons (quote
#(syntax-object x ((top) #(ribcage #(_ k keyword pattern template) #((top)
(top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage
#(x) #((top)) #("i"))) (hygiene guile))) (cons k3381 (map (lambda (tmp3387
tmp3386) (list (cons (quote #(syntax-object dummy ((top) #(ribcage #(_ k
keyword pattern template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i"
"i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)))
tmp3386) (list (quote #(syntax-object syntax ((top) #(ribcage #(_ k keyword
pattern template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i"))
#(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)))
tmp3387))) template3384 pattern3383)))))) tmp3379) (syntax-violation #f "Source
expression failed to match any pattern" tmp3378))) ($sc-dispatch tmp3378 (quote
(any each-any . #(each ((any . any) any))))))) x3377))))
-(define let* (make-extended-syncase-macro (module-ref (current-module) (quote
let*)) (quote macro) (lambda (x3388) ((lambda (tmp3389) ((lambda (tmp3390) (if
(if tmp3390 (apply (lambda (let*3391 x3392 v3393 e13394 e23395) (and-map
identifier? x3392)) tmp3390) #f) (apply (lambda (let*3397 x3398 v3399 e13400
e23401) (letrec ((f3402 (lambda (bindings3403) (if (null? bindings3403) (cons
(quote #(syntax-object let ((top) #(ribcage () () ()) #(ribcage #(f bindings)
#((top) (top)) #("i" "i")) #(ribcage #(let* x v e1 e2) #((top) (top) (top)
(top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x)
#((top)) #("i"))) (hygiene guile))) (cons (quote ()) (cons e13400 e23401)))
((lambda (tmp3407) ((lambda (tmp3408) (if tmp3408 (apply (lambda (body3409
binding3410) (list (quote #(syntax-object let ((top) #(ribcage #(body binding)
#((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(f bindings) #((top)
(top)) #("i" "i")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top))
#("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) (list binding3410) body3409)) tmp3408) (syntax-violation #f
"Source expression failed to match any pattern" tmp3407))) ($sc-dispatch
tmp3407 (quote (any any))))) (list (f3402 (cdr bindings3403)) (car
bindings3403))))))) (f3402 (map list x3398 v3399)))) tmp3390) (syntax-violation
#f "Source expression failed to match any pattern" tmp3389))) ($sc-dispatch
tmp3389 (quote (any #(each (any any)) any . each-any))))) x3388))))
-(define do (make-extended-syncase-macro (module-ref (current-module) (quote
do)) (quote macro) (lambda (orig-x3411) ((lambda (tmp3412) ((lambda (tmp3413)
(if tmp3413 (apply (lambda (_3414 var3415 init3416 step3417 e03418 e13419
c3420) ((lambda (tmp3421) ((lambda (tmp3422) (if tmp3422 (apply (lambda
(step3423) ((lambda (tmp3424) ((lambda (tmp3425) (if tmp3425 (apply (lambda ()
(list (quote #(syntax-object let ((top) #(ribcage #(step) #((top)) #("i"))
#(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)
(top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x)
#((top)) #("i"))) (hygiene guile))) (quote #(syntax-object doloop ((top)
#(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top)
(top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage
() () ()) #(ribcage #(orig-x) #((top)) #("i"))) (hygiene guile))) (map list
var3415 init3416) (list (quote #(syntax-object if ((top) #(ribcage #(step)
#((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top)
(top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ())
#(ribcage #(orig-x) #((top)) #("i"))) (hygiene guile))) (list (quote
#(syntax-object not ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var
init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i"
"i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")))
(hygiene guile))) e03418) (cons (quote #(syntax-object begin ((top) #(ribcage
#(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top)
(top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () ()
()) #(ribcage #(orig-x) #((top)) #("i"))) (hygiene guile))) (append c3420 (list
(cons (quote #(syntax-object doloop ((top) #(ribcage #(step) #((top)) #("i"))
#(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)
(top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x)
#((top)) #("i"))) (hygiene guile))) step3423))))))) tmp3425) ((lambda (tmp3430)
(if tmp3430 (apply (lambda (e13431 e23432) (list (quote #(syntax-object let
((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top))
#("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top)
(top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage
#(orig-x) #((top)) #("i"))) (hygiene guile))) (quote #(syntax-object doloop
((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top))
#("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top)
(top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage
#(orig-x) #((top)) #("i"))) (hygiene guile))) (map list var3415 init3416) (list
(quote #(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i"))
#(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top)
(top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage
() () ()) #(ribcage #(orig-x) #((top)) #("i"))) (hygiene guile))) e03418 (cons
(quote #(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i"
"i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c)
#((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i"))
#(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i"))) (hygiene guile)))
(cons e13431 e23432)) (cons (quote #(syntax-object begin ((top) #(ribcage #(e1
e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_
var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i"
"i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")))
(hygiene guile))) (append c3420 (list (cons (quote #(syntax-object doloop
((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top))
#("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top)
(top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage
#(orig-x) #((top)) #("i"))) (hygiene guile))) step3423))))))) tmp3430)
(syntax-violation #f "Source expression failed to match any pattern" tmp3424)))
($sc-dispatch tmp3424 (quote (any . each-any)))))) ($sc-dispatch tmp3424 (quote
())))) e13419)) tmp3422) (syntax-violation #f "Source expression failed to
match any pattern" tmp3421))) ($sc-dispatch tmp3421 (quote each-any)))) (map
(lambda (v3439 s3440) ((lambda (tmp3441) ((lambda (tmp3442) (if tmp3442 (apply
(lambda () v3439) tmp3442) ((lambda (tmp3443) (if tmp3443 (apply (lambda
(e3444) e3444) tmp3443) ((lambda (_3445) (syntax-violation (quote do) "bad step
expression" orig-x3411 s3440)) tmp3441))) ($sc-dispatch tmp3441 (quote
(any)))))) ($sc-dispatch tmp3441 (quote ())))) s3440)) var3415 step3417)))
tmp3413) (syntax-violation #f "Source expression failed to match any pattern"
tmp3412))) ($sc-dispatch tmp3412 (quote (any #(each (any any . any)) (any .
each-any) . each-any))))) orig-x3411))))
-(define quasiquote (make-extended-syncase-macro (module-ref (current-module)
(quote quasiquote)) (quote macro) (letrec ((quasicons3448 (lambda (x3452 y3453)
((lambda (tmp3454) ((lambda (tmp3455) (if tmp3455 (apply (lambda (x3456 y3457)
((lambda (tmp3458) ((lambda (tmp3459) (if tmp3459 (apply (lambda (dy3460)
((lambda (tmp3461) ((lambda (tmp3462) (if tmp3462 (apply (lambda (dx3463) (list
(quote #(syntax-object quote ((top) #(ribcage #(dx) #((top)) #("i")) #(ribcage
#(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage ()
() ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i"))
#(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top))
#("i" "i" "i" "i"))) (hygiene guile))) (cons dx3463 dy3460))) tmp3462) ((lambda
(_3464) (if (null? dy3460) (list (quote #(syntax-object list ((top) #(ribcage
#(_) #((top)) #("i")) #(ribcage #(dy) #((top)) #("i")) #(ribcage #(x y) #((top)
(top)) #("i" "i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y)
#((top) (top)) #("i" "i")) #(ribcage #(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) x3456) (list
(quote #(syntax-object cons ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage
#(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage ()
() ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i"))
#(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top))
#("i" "i" "i" "i"))) (hygiene guile))) x3456 y3457))) tmp3461))) ($sc-dispatch
tmp3461 (quote (#(free-id #(syntax-object quote ((top) #(ribcage #(dy) #((top))
#("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ())
#(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage
#(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i"
"i" "i"))) (hygiene guile))) any))))) x3456)) tmp3459) ((lambda (tmp3465) (if
tmp3465 (apply (lambda (stuff3466) (cons (quote #(syntax-object list ((top)
#(ribcage #(stuff) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i"))
#(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i"
"i")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top)
(top)) #("i" "i" "i" "i"))) (hygiene guile))) (cons x3456 stuff3466))) tmp3465)
((lambda (else3467) (list (quote #(syntax-object cons ((top) #(ribcage #(else)
#((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () ()
()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage
#(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i"
"i" "i"))) (hygiene guile))) x3456 y3457)) tmp3458))) ($sc-dispatch tmp3458
(quote (#(free-id #(syntax-object list ((top) #(ribcage #(x y) #((top) (top))
#("i" "i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top)
(top)) #("i" "i")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top)
(top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) . any))))))
($sc-dispatch tmp3458 (quote (#(free-id #(syntax-object quote ((top) #(ribcage
#(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage () () ())
#(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(quasicons quasiappend
quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene
guile))) any))))) y3457)) tmp3455) (syntax-violation #f "Source expression
failed to match any pattern" tmp3454))) ($sc-dispatch tmp3454 (quote (any
any))))) (list x3452 y3453)))) (quasiappend3449 (lambda (x3468 y3469) ((lambda
(tmp3470) ((lambda (tmp3471) (if tmp3471 (apply (lambda (x3472 y3473) ((lambda
(tmp3474) ((lambda (tmp3475) (if tmp3475 (apply (lambda () x3472) tmp3475)
((lambda (_3476) (list (quote #(syntax-object append ((top) #(ribcage #(_)
#((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () ()
()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage
#(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i"
"i" "i"))) (hygiene guile))) x3472 y3473)) tmp3474))) ($sc-dispatch tmp3474
(quote (#(free-id #(syntax-object quote ((top) #(ribcage #(x y) #((top) (top))
#("i" "i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top)
(top)) #("i" "i")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top)
(top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) ()))))) y3473))
tmp3471) (syntax-violation #f "Source expression failed to match any pattern"
tmp3470))) ($sc-dispatch tmp3470 (quote (any any))))) (list x3468 y3469))))
(quasivector3450 (lambda (x3477) ((lambda (tmp3478) ((lambda (x3479) ((lambda
(tmp3480) ((lambda (tmp3481) (if tmp3481 (apply (lambda (x3482) (list (quote
#(syntax-object quote ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage #(x)
#((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x)
#((top)) #("i")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top)
(top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) (list->vector
x3482))) tmp3481) ((lambda (tmp3484) (if tmp3484 (apply (lambda (x3485) (cons
(quote #(syntax-object vector ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage
#(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x)
#((top)) #("i")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top)
(top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) x3485)) tmp3484)
((lambda (_3487) (list (quote #(syntax-object list->vector ((top) #(ribcage
#(_) #((top)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ())
#(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(quasicons
quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i")))
(hygiene guile))) x3479)) tmp3480))) ($sc-dispatch tmp3480 (quote (#(free-id
#(syntax-object list ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ())
#(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(quasicons
quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i")))
(hygiene guile))) . each-any)))))) ($sc-dispatch tmp3480 (quote (#(free-id
#(syntax-object quote ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage () ()
()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(quasicons
quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i")))
(hygiene guile))) each-any))))) x3479)) tmp3478)) x3477))) (quasi3451 (lambda
(p3488 lev3489) ((lambda (tmp3490) ((lambda (tmp3491) (if tmp3491 (apply
(lambda (p3492) (if (= lev3489 0) p3492 (quasicons3448 (quote (#(syntax-object
quote ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p
lev) #((top) (top)) #("i" "i")) #(ribcage #(quasicons quasiappend quasivector
quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))
#(syntax-object unquote ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () ()
()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(quasicons
quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i")))
(hygiene guile)))) (quasi3451 (list p3492) (- lev3489 1))))) tmp3491) ((lambda
(tmp3493) (if tmp3493 (apply (lambda (p3494 q3495) (if (= lev3489 0)
(quasiappend3449 p3494 (quasi3451 q3495 lev3489)) (quasicons3448 (quasicons3448
(quote (#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) #("i"
"i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i"))
#(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top))
#("i" "i" "i" "i"))) (hygiene guile)) #(syntax-object unquote-splicing ((top)
#(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p
lev) #((top) (top)) #("i" "i")) #(ribcage #(quasicons quasiappend quasivector
quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))))
(quasi3451 (list p3494) (- lev3489 1))) (quasi3451 q3495 lev3489)))) tmp3493)
((lambda (tmp3496) (if tmp3496 (apply (lambda (p3497) (quasicons3448 (quote
(#(syntax-object quote ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () ()
()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(quasicons
quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i")))
(hygiene guile)) #(syntax-object quasiquote ((top) #(ribcage #(p) #((top))
#("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i"))
#(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top))
#("i" "i" "i" "i"))) (hygiene guile)))) (quasi3451 (list p3497) (+ lev3489
1)))) tmp3496) ((lambda (tmp3498) (if tmp3498 (apply (lambda (p3499 q3500)
(quasicons3448 (quasi3451 p3499 lev3489) (quasi3451 q3500 lev3489))) tmp3498)
((lambda (tmp3501) (if tmp3501 (apply (lambda (x3502) (quasivector3450
(quasi3451 x3502 lev3489))) tmp3501) ((lambda (p3504) (list (quote
#(syntax-object quote ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () ()
()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(quasicons
quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i")))
(hygiene guile))) p3504)) tmp3490))) ($sc-dispatch tmp3490 (quote #(vector
each-any)))))) ($sc-dispatch tmp3490 (quote (any . any)))))) ($sc-dispatch
tmp3490 (quote (#(free-id #(syntax-object quasiquote ((top) #(ribcage () () ())
#(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(quasicons quasiappend
quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene
guile))) any)))))) ($sc-dispatch tmp3490 (quote ((#(free-id #(syntax-object
unquote-splicing ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top))
#("i" "i")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top)
(top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) any) . any))))))
($sc-dispatch tmp3490 (quote (#(free-id #(syntax-object unquote ((top)
#(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage
#(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i"
"i" "i"))) (hygiene guile))) any))))) p3488)))) (lambda (x3505) ((lambda
(tmp3506) ((lambda (tmp3507) (if tmp3507 (apply (lambda (_3508 e3509)
(quasi3451 e3509 0)) tmp3507) (syntax-violation #f "Source expression failed to
match any pattern" tmp3506))) ($sc-dispatch tmp3506 (quote (any any)))))
x3505)))))
-(define include (make-syncase-macro (quote macro) (lambda (x3510) (letrec
((read-file3511 (lambda (fn3512 k3513) (let ((p3514 (open-input-file fn3512)))
(letrec ((f3515 (lambda (x3516) (if (eof-object? x3516) (begin
(close-input-port p3514) (quote ())) (cons (datum->syntax k3513 x3516) (f3515
(read p3514))))))) (f3515 (read p3514))))))) ((lambda (tmp3517) ((lambda
(tmp3518) (if tmp3518 (apply (lambda (k3519 filename3520) (let ((fn3521
(syntax->datum filename3520))) ((lambda (tmp3522) ((lambda (tmp3523) (if
tmp3523 (apply (lambda (exp3524) (cons (quote #(syntax-object begin ((top)
#(ribcage #(exp) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ())
#(ribcage #(fn) #((top)) #("i")) #(ribcage #(k filename) #((top) (top)) #("i"
"i")) #(ribcage (read-file) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) exp3524)) tmp3523) (syntax-violation #f "Source expression
failed to match any pattern" tmp3522))) ($sc-dispatch tmp3522 (quote
each-any)))) (read-file3511 fn3521 k3519)))) tmp3518) (syntax-violation #f
"Source expression failed to match any pattern" tmp3517))) ($sc-dispatch
tmp3517 (quote (any any))))) x3510)))))
-(define unquote (make-syncase-macro (quote macro) (lambda (x3526) ((lambda
(tmp3527) ((lambda (tmp3528) (if tmp3528 (apply (lambda (_3529 e3530)
(syntax-violation (quote unquote) "expression not valid outside of quasiquote"
x3526)) tmp3528) (syntax-violation #f "Source expression failed to match any
pattern" tmp3527))) ($sc-dispatch tmp3527 (quote (any any))))) x3526))))
-(define unquote-splicing (make-syncase-macro (quote macro) (lambda (x3531)
((lambda (tmp3532) ((lambda (tmp3533) (if tmp3533 (apply (lambda (_3534 e3535)
(syntax-violation (quote unquote-splicing) "expression not valid outside of
quasiquote" x3531)) tmp3533) (syntax-violation #f "Source expression failed to
match any pattern" tmp3532))) ($sc-dispatch tmp3532 (quote (any any)))))
x3531))))
-(define case (make-extended-syncase-macro (module-ref (current-module) (quote
case)) (quote macro) (lambda (x3536) ((lambda (tmp3537) ((lambda (tmp3538) (if
tmp3538 (apply (lambda (_3539 e3540 m13541 m23542) ((lambda (tmp3543) ((lambda
(body3544) (list (quote #(syntax-object let ((top) #(ribcage #(body) #((top))
#("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i"))
#(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))) (list
(list (quote #(syntax-object t ((top) #(ribcage #(body) #((top)) #("i"))
#(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage
() () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))) e3540)) body3544))
tmp3543)) (letrec ((f3545 (lambda (clause3546 clauses3547) (if (null?
clauses3547) ((lambda (tmp3549) ((lambda (tmp3550) (if tmp3550 (apply (lambda
(e13551 e23552) (cons (quote #(syntax-object begin ((top) #(ribcage #(e1 e2)
#((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(f clause clauses)
#((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top)
(top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) (cons e13551 e23552))) tmp3550) ((lambda (tmp3554) (if
tmp3554 (apply (lambda (k3555 e13556 e23557) (list (quote #(syntax-object if
((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage ()
() ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i"))
#(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage
() () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))) (list (quote
#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i"
"i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top))
#("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i"
"i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)))
(quote #(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i"
"i" "i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top)
(top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i"
"i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile))) (list (quote #(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top)
(top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(f clause clauses)
#((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top)
(top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) k3555)) (cons (quote #(syntax-object begin ((top) #(ribcage
#(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage
#(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2)
#((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage
#(x) #((top)) #("i"))) (hygiene guile))) (cons e13556 e23557)))) tmp3554)
((lambda (_3560) (syntax-violation (quote case) "bad clause" x3536 clause3546))
tmp3549))) ($sc-dispatch tmp3549 (quote (each-any any . each-any))))))
($sc-dispatch tmp3549 (quote (#(free-id #(syntax-object else ((top) #(ribcage
() () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i"))
#(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage
() () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))) any .
each-any))))) clause3546) ((lambda (tmp3561) ((lambda (rest3562) ((lambda
(tmp3563) ((lambda (tmp3564) (if tmp3564 (apply (lambda (k3565 e13566 e23567)
(list (quote #(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top)
(top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ())
#(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage
#(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ())
#(ribcage #(x) #((top)) #("i"))) (hygiene guile))) (list (quote #(syntax-object
memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage
#(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(f clause clauses)
#((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top)
(top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) (quote #(syntax-object t ((top) #(ribcage #(k e1 e2) #((top)
(top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () ()
()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i"))
#(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage
() () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))) (list (quote
#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i"
"i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(f
clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2)
#((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage
#(x) #((top)) #("i"))) (hygiene guile))) k3565)) (cons (quote #(syntax-object
begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i"))
#(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(f clause
clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top)
(top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x)
#((top)) #("i"))) (hygiene guile))) (cons e13566 e23567)) rest3562)) tmp3564)
((lambda (_3570) (syntax-violation (quote case) "bad clause" x3536 clause3546))
tmp3563))) ($sc-dispatch tmp3563 (quote (each-any any . each-any)))))
clause3546)) tmp3561)) (f3545 (car clauses3547) (cdr clauses3547))))))) (f3545
m13541 m23542)))) tmp3538) (syntax-violation #f "Source expression failed to
match any pattern" tmp3537))) ($sc-dispatch tmp3537 (quote (any any any .
each-any))))) x3536))))
-(define identifier-syntax (make-syncase-macro (quote macro) (lambda (x3571)
((lambda (tmp3572) ((lambda (tmp3573) (if tmp3573 (apply (lambda (_3574 e3575)
(list (quote #(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top))
#("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile))) (quote (#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i"
"i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))))
(list (quote #(syntax-object syntax-case ((top) #(ribcage #(_ e) #((top) (top))
#("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile))) (quote #(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i"
"i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)))
(quote ()) (list (quote #(syntax-object id ((top) #(ribcage #(_ e) #((top)
(top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) (quote (#(syntax-object identifier? ((top) #(ribcage #(_ e)
#((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile)) (#(syntax-object syntax ((top) #(ribcage #(_ e) #((top) (top))
#("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile)) #(syntax-object id ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i"))
#(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))))) (list
(quote #(syntax-object syntax ((top) #(ribcage #(_ e) #((top) (top)) #("i"
"i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)))
e3575)) (list (cons _3574 (quote (#(syntax-object x ((top) #(ribcage #(_ e)
#((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile)) #(syntax-object ... ((top) #(ribcage #(_ e) #((top) (top))
#("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile))))) (list (quote #(syntax-object syntax ((top) #(ribcage #(_ e) #((top)
(top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) (cons e3575 (quote (#(syntax-object x ((top) #(ribcage #(_ e)
#((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile)) #(syntax-object ... ((top) #(ribcage #(_ e) #((top) (top))
#("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile)))))))))) tmp3573) (syntax-violation #f "Source expression failed to
match any pattern" tmp3572))) ($sc-dispatch tmp3572 (quote (any any)))))
x3571))))
+(letrec ((and-map*17 (lambda (f57 first56 . rest55) (let ((t58 (null?
first56))) (if t58 t58 (if (null? rest55) (letrec ((andmap59 (lambda (first60)
(let ((x61 (car first60)) (first62 (cdr first60))) (if (null? first62) (f57
x61) (if (f57 x61) (andmap59 first62) #f)))))) (andmap59 first56)) (letrec
((andmap63 (lambda (first64 rest65) (let ((x66 (car first64)) (xr67 (map car
rest65)) (first68 (cdr first64)) (rest69 (map cdr rest65))) (if (null? first68)
(apply f57 (cons x66 xr67)) (if (apply f57 (cons x66 xr67)) (andmap63 first68
rest69) #f)))))) (andmap63 first56 rest55)))))))) (letrec ((lambda-var-list162
(lambda (vars291) (letrec ((lvl292 (lambda (vars293 ls294 w295) (if (pair?
vars293) (lvl292 (cdr vars293) (cons (wrap141 (car vars293) w295 #f) ls294)
w295) (if (id?113 vars293) (cons (wrap141 vars293 w295 #f) ls294) (if (null?
vars293) ls294 (if (syntax-object?97 vars293) (lvl292
(syntax-object-expression98 vars293) ls294 (join-wraps132 w295
(syntax-object-wrap99 vars293))) (if (annotation? vars293) (lvl292
(annotation-expression vars293) ls294 w295) (cons vars293 ls294)))))))))
(lvl292 vars291 (quote ()) (quote (())))))) (gen-var161 (lambda (id296) (let
((id297 (if (syntax-object?97 id296) (syntax-object-expression98 id296)
id296))) (if (annotation? id297) (gensym (symbol->string (annotation-expression
id297))) (gensym (symbol->string id297)))))) (strip160 (lambda (x298 w299) (if
(memq (quote top) (wrap-marks116 w299)) (if (let ((t300 (annotation? x298)))
(if t300 t300 (if (pair? x298) (annotation? (car x298)) #f)))
(strip-annotation159 x298 #f) x298) (letrec ((f301 (lambda (x302) (if
(syntax-object?97 x302) (strip160 (syntax-object-expression98 x302)
(syntax-object-wrap99 x302)) (if (pair? x302) (let ((a303 (f301 (car x302)))
(d304 (f301 (cdr x302)))) (if (if (eq? a303 (car x302)) (eq? d304 (cdr x302))
#f) x302 (cons a303 d304))) (if (vector? x302) (let ((old305 (vector->list
x302))) (let ((new306 (map f301 old305))) (if (and-map*17 eq? old305 new306)
x302 (list->vector new306)))) x302)))))) (f301 x298))))) (strip-annotation159
(lambda (x307 parent308) (if (pair? x307) (let ((new309 (cons #f #f))) (begin
(if parent308 (set-annotation-stripped! parent308 new309) (if #f #f)) (set-car!
new309 (strip-annotation159 (car x307) #f)) (set-cdr! new309
(strip-annotation159 (cdr x307) #f)) new309)) (if (annotation? x307) (let
((t310 (annotation-stripped x307))) (if t310 t310 (strip-annotation159
(annotation-expression x307) x307))) (if (vector? x307) (let ((new311
(make-vector (vector-length x307)))) (begin (if parent308
(set-annotation-stripped! parent308 new311) (if #f #f)) (letrec ((loop312
(lambda (i313) (unless (fx<75 i313 0) (vector-set! new311 i313
(strip-annotation159 (vector-ref x307 i313) #f)) (loop312 (fx-73 i313 1))))))
(loop312 (- (vector-length x307) 1))) new311)) x307))))) (ellipsis?158 (lambda
(x314) (if (nonsymbol-id?112 x314) (free-id=?136 x314 (quote #(syntax-object
... ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top))
#("i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis?
chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body
chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))) #f)))
(chi-void157 (lambda () (build-void80 #f))) (eval-local-transformer156 (lambda
(expanded315 mod316) (let ((p317 (local-eval-hook77 expanded315 mod316))) (if
(procedure? p317) p317 (syntax-violation #f "nonprocedure transformer"
p317))))) (chi-local-syntax155 (lambda (rec?318 e319 r320 w321 s322 mod323
k324) ((lambda (tmp325) ((lambda (tmp326) (if tmp326 (apply (lambda (_327 id328
val329 e1330 e2331) (let ((ids332 id328)) (if (not (valid-bound-ids?138
ids332)) (syntax-violation #f "duplicate bound keyword" e319) (let ((labels334
(gen-labels119 ids332))) (let ((new-w335 (make-binding-wrap130 ids332 labels334
w321))) (k324 (cons e1330 e2331) (extend-env107 labels334 (let ((w337 (if
rec?318 new-w335 w321)) (trans-r338 (macros-only-env109 r320))) (map (lambda
(x339) (cons (quote macro) (eval-local-transformer156 (chi149 x339 trans-r338
w337 mod323) mod323))) val329)) r320) new-w335 s322 mod323)))))) tmp326)
((lambda (_341) (syntax-violation #f "bad local syntax definition"
(source-wrap142 e319 w321 s322 mod323))) tmp325))) ($sc-dispatch tmp325 (quote
(any #(each (any any)) any . each-any))))) e319))) (chi-lambda-clause154
(lambda (e342 docstring343 c344 r345 w346 mod347 k348) ((lambda (tmp349)
((lambda (tmp350) (if (if tmp350 (apply (lambda (args351 doc352 e1353 e2354)
(if (string? (syntax->datum doc352)) (not docstring343) #f)) tmp350) #f) (apply
(lambda (args355 doc356 e1357 e2358) (chi-lambda-clause154 e342 doc356 (cons
args355 (cons e1357 e2358)) r345 w346 mod347 k348)) tmp350) ((lambda (tmp360)
(if tmp360 (apply (lambda (id361 e1362 e2363) (let ((ids364 id361)) (if (not
(valid-bound-ids?138 ids364)) (syntax-violation (quote lambda) "invalid
parameter list" e342) (let ((labels366 (gen-labels119 ids364)) (new-vars367
(map gen-var161 ids364))) (k348 (map syntax->datum ids364) new-vars367 (if
docstring343 (syntax->datum docstring343) #f) (chi-body153 (cons e1362 e2363)
e342 (extend-var-env108 labels366 new-vars367 r345) (make-binding-wrap130
ids364 labels366 w346) mod347)))))) tmp360) ((lambda (tmp369) (if tmp369 (apply
(lambda (ids370 e1371 e2372) (let ((old-ids373 (lambda-var-list162 ids370)))
(if (not (valid-bound-ids?138 old-ids373)) (syntax-violation (quote lambda)
"invalid parameter list" e342) (let ((labels374 (gen-labels119 old-ids373))
(new-vars375 (map gen-var161 old-ids373))) (k348 (letrec ((f376 (lambda (ls1377
ls2378) (if (null? ls1377) (syntax->datum ls2378) (f376 (cdr ls1377) (cons
(syntax->datum (car ls1377)) ls2378)))))) (f376 (cdr old-ids373) (car
old-ids373))) (letrec ((f379 (lambda (ls1380 ls2381) (if (null? ls1380) ls2381
(f379 (cdr ls1380) (cons (car ls1380) ls2381)))))) (f379 (cdr new-vars375) (car
new-vars375))) (if docstring343 (syntax->datum docstring343) #f) (chi-body153
(cons e1371 e2372) e342 (extend-var-env108 labels374 new-vars375 r345)
(make-binding-wrap130 old-ids373 labels374 w346) mod347)))))) tmp369) ((lambda
(_383) (syntax-violation (quote lambda) "bad lambda" e342)) tmp349)))
($sc-dispatch tmp349 (quote (any any . each-any)))))) ($sc-dispatch tmp349
(quote (each-any any . each-any)))))) ($sc-dispatch tmp349 (quote (any any any
. each-any))))) c344))) (chi-body153 (lambda (body384 outer-form385 r386 w387
mod388) (let ((r389 (cons (quote ("placeholder" placeholder)) r386))) (let
((ribcage390 (make-ribcage120 (quote ()) (quote ()) (quote ())))) (let ((w391
(make-wrap115 (wrap-marks116 w387) (cons ribcage390 (wrap-subst117 w387)))))
(letrec ((parse392 (lambda (body393 ids394 labels395 vars396 vals397
bindings398) (if (null? body393) (syntax-violation #f "no expressions in body"
outer-form385) (let ((e400 (cdar body393)) (er401 (caar body393)))
(call-with-values (lambda () (syntax-type147 e400 er401 (quote (())) #f
ribcage390 mod388)) (lambda (type402 value403 e404 w405 s406 mod407) (if (memv
type402 (quote (define-form))) (let ((id408 (wrap141 value403 w405 mod407))
(label409 (gen-label118))) (let ((var410 (gen-var161 id408))) (begin
(extend-ribcage!129 ribcage390 id408 label409) (parse392 (cdr body393) (cons
id408 ids394) (cons label409 labels395) (cons var410 vars396) (cons (cons er401
(wrap141 e404 w405 mod407)) vals397) (cons (cons (quote lexical) var410)
bindings398))))) (if (memv type402 (quote (define-syntax-form))) (let ((id411
(wrap141 value403 w405 mod407)) (label412 (gen-label118))) (begin
(extend-ribcage!129 ribcage390 id411 label412) (parse392 (cdr body393) (cons
id411 ids394) (cons label412 labels395) vars396 vals397 (cons (cons (quote
macro) (cons er401 (wrap141 e404 w405 mod407))) bindings398)))) (if (memv
type402 (quote (begin-form))) ((lambda (tmp413) ((lambda (tmp414) (if tmp414
(apply (lambda (_415 e1416) (parse392 (letrec ((f417 (lambda (forms418) (if
(null? forms418) (cdr body393) (cons (cons er401 (wrap141 (car forms418) w405
mod407)) (f417 (cdr forms418))))))) (f417 e1416)) ids394 labels395 vars396
vals397 bindings398)) tmp414) (syntax-violation #f "source expression failed to
match any pattern" tmp413))) ($sc-dispatch tmp413 (quote (any . each-any)))))
e404) (if (memv type402 (quote (local-syntax-form))) (chi-local-syntax155
value403 e404 er401 w405 s406 mod407 (lambda (forms420 er421 w422 s423 mod424)
(parse392 (letrec ((f425 (lambda (forms426) (if (null? forms426) (cdr body393)
(cons (cons er421 (wrap141 (car forms426) w422 mod424)) (f425 (cdr
forms426))))))) (f425 forms420)) ids394 labels395 vars396 vals397
bindings398))) (if (null? ids394) (build-sequence92 #f (map (lambda (x427)
(chi149 (cdr x427) (car x427) (quote (())) mod407)) (cons (cons er401
(source-wrap142 e404 w405 s406 mod407)) (cdr body393)))) (begin (if (not
(valid-bound-ids?138 ids394)) (syntax-violation #f "invalid or duplicate
identifier in definition" outer-form385) (if #f #f)) (letrec ((loop428 (lambda
(bs429 er-cache430 r-cache431) (if (not (null? bs429)) (let ((b432 (car
bs429))) (if (eq? (car b432) (quote macro)) (let ((er433 (cadr b432))) (let
((r-cache434 (if (eq? er433 er-cache430) r-cache431 (macros-only-env109
er433)))) (begin (set-cdr! b432 (eval-local-transformer156 (chi149 (cddr b432)
r-cache434 (quote (())) mod407) mod407)) (loop428 (cdr bs429) er433
r-cache434)))) (loop428 (cdr bs429) er-cache430 r-cache431))) (if #f #f)))))
(loop428 bindings398 #f #f)) (set-cdr! r389 (extend-env107 labels395
bindings398 (cdr r389))) (build-letrec95 #f (map syntax->datum ids394) vars396
(map (lambda (x435) (chi149 (cdr x435) (car x435) (quote (())) mod407))
vals397) (build-sequence92 #f (map (lambda (x436) (chi149 (cdr x436) (car x436)
(quote (())) mod407)) (cons (cons er401 (source-wrap142 e404 w405 s406 mod407))
(cdr body393)))))))))))))))))) (parse392 (map (lambda (x399) (cons r389
(wrap141 x399 w391 mod388))) body384) (quote ()) (quote ()) (quote ()) (quote
()) (quote ())))))))) (chi-macro152 (lambda (p437 e438 r439 w440 rib441 mod442)
(letrec ((rebuild-macro-output443 (lambda (x444 m445) (if (pair? x444) (cons
(rebuild-macro-output443 (car x444) m445) (rebuild-macro-output443 (cdr x444)
m445)) (if (syntax-object?97 x444) (let ((w446 (syntax-object-wrap99 x444)))
(let ((ms447 (wrap-marks116 w446)) (s448 (wrap-subst117 w446))) (if (if (pair?
ms447) (eq? (car ms447) #f) #f) (make-syntax-object96
(syntax-object-expression98 x444) (make-wrap115 (cdr ms447) (if rib441 (cons
rib441 (cdr s448)) (cdr s448))) (syntax-object-module100 x444))
(make-syntax-object96 (syntax-object-expression98 x444) (make-wrap115 (cons
m445 ms447) (if rib441 (cons rib441 (cons (quote shift) s448)) (cons (quote
shift) s448))) (let ((pmod449 (procedure-module p437))) (if pmod449 (cons
(quote hygiene) (module-name pmod449)) (quote (hygiene guile)))))))) (if
(vector? x444) (let ((n450 (vector-length x444))) (let ((v451 (make-vector
n450))) (letrec ((loop452 (lambda (i453) (if (fx=74 i453 n450) (begin (if #f #f
(if #f #f)) v451) (begin (vector-set! v451 i453 (rebuild-macro-output443
(vector-ref x444 i453) m445)) (loop452 (fx+72 i453 1))))))) (loop452 0)))) (if
(symbol? x444) (syntax-violation #f "encountered raw symbol in macro output"
(source-wrap142 e438 w440 s mod442) x444) x444))))))) (rebuild-macro-output443
(p437 (wrap141 e438 (anti-mark128 w440) mod442)) (string #\m)))))
(chi-application151 (lambda (x454 e455 r456 w457 s458 mod459) ((lambda (tmp460)
((lambda (tmp461) (if tmp461 (apply (lambda (e0462 e1463) (build-application81
s458 x454 (map (lambda (e464) (chi149 e464 r456 w457 mod459)) e1463))) tmp461)
(syntax-violation #f "source expression failed to match any pattern" tmp460)))
($sc-dispatch tmp460 (quote (any . each-any))))) e455))) (chi-expr150 (lambda
(type466 value467 e468 r469 w470 s471 mod472) (if (memv type466 (quote
(lexical))) (build-lexical-reference83 (quote value) s471 e468 value467) (if
(memv type466 (quote (core external-macro))) (value467 e468 r469 w470 s471
mod472) (if (memv type466 (quote (module-ref))) (call-with-values (lambda ()
(value467 e468)) (lambda (id473 mod474) (build-global-reference86 s471 id473
mod474))) (if (memv type466 (quote (lexical-call))) (chi-application151
(build-lexical-reference83 (quote fun) (source-annotation104 (car e468)) (car
e468) value467) e468 r469 w470 s471 mod472) (if (memv type466 (quote
(global-call))) (chi-application151 (build-global-reference86
(source-annotation104 (car e468)) value467 (if (syntax-object?97 (car e468))
(syntax-object-module100 (car e468)) mod472)) e468 r469 w470 s471 mod472) (if
(memv type466 (quote (constant))) (build-data91 s471 (strip160 (source-wrap142
e468 w470 s471 mod472) (quote (())))) (if (memv type466 (quote (global)))
(build-global-reference86 s471 value467 mod472) (if (memv type466 (quote
(call))) (chi-application151 (chi149 (car e468) r469 w470 mod472) e468 r469
w470 s471 mod472) (if (memv type466 (quote (begin-form))) ((lambda (tmp475)
((lambda (tmp476) (if tmp476 (apply (lambda (_477 e1478 e2479) (chi-sequence143
(cons e1478 e2479) r469 w470 s471 mod472)) tmp476) (syntax-violation #f "source
expression failed to match any pattern" tmp475))) ($sc-dispatch tmp475 (quote
(any any . each-any))))) e468) (if (memv type466 (quote (local-syntax-form)))
(chi-local-syntax155 value467 e468 r469 w470 s471 mod472 chi-sequence143) (if
(memv type466 (quote (eval-when-form))) ((lambda (tmp481) ((lambda (tmp482) (if
tmp482 (apply (lambda (_483 x484 e1485 e2486) (let ((when-list487
(chi-when-list146 e468 x484 w470))) (if (memq (quote eval) when-list487)
(chi-sequence143 (cons e1485 e2486) r469 w470 s471 mod472) (chi-void157))))
tmp482) (syntax-violation #f "source expression failed to match any pattern"
tmp481))) ($sc-dispatch tmp481 (quote (any each-any any . each-any))))) e468)
(if (memv type466 (quote (define-form define-syntax-form))) (syntax-violation
#f "definition in expression context" e468 (wrap141 value467 w470 mod472)) (if
(memv type466 (quote (syntax))) (syntax-violation #f "reference to pattern
variable outside syntax form" (source-wrap142 e468 w470 s471 mod472)) (if (memv
type466 (quote (displaced-lexical))) (syntax-violation #f "reference to
identifier outside its scope" (source-wrap142 e468 w470 s471 mod472))
(syntax-violation #f "unexpected syntax" (source-wrap142 e468 w470 s471
mod472)))))))))))))))))) (chi149 (lambda (e490 r491 w492 mod493)
(call-with-values (lambda () (syntax-type147 e490 r491 w492 #f #f mod493))
(lambda (type494 value495 e496 w497 s498 mod499) (chi-expr150 type494 value495
e496 r491 w497 s498 mod499))))) (chi-top148 (lambda (e500 r501 w502 m503
esew504 mod505) (call-with-values (lambda () (syntax-type147 e500 r501 w502 #f
#f mod505)) (lambda (type513 value514 e515 w516 s517 mod518) (if (memv type513
(quote (begin-form))) ((lambda (tmp519) ((lambda (tmp520) (if tmp520 (apply
(lambda (_521) (chi-void157)) tmp520) ((lambda (tmp522) (if tmp522 (apply
(lambda (_523 e1524 e2525) (chi-top-sequence144 (cons e1524 e2525) r501 w516
s517 m503 esew504 mod518)) tmp522) (syntax-violation #f "source expression
failed to match any pattern" tmp519))) ($sc-dispatch tmp519 (quote (any any .
each-any)))))) ($sc-dispatch tmp519 (quote (any))))) e515) (if (memv type513
(quote (local-syntax-form))) (chi-local-syntax155 value514 e515 r501 w516 s517
mod518 (lambda (body527 r528 w529 s530 mod531) (chi-top-sequence144 body527
r528 w529 s530 m503 esew504 mod531))) (if (memv type513 (quote
(eval-when-form))) ((lambda (tmp532) ((lambda (tmp533) (if tmp533 (apply
(lambda (_534 x535 e1536 e2537) (let ((when-list538 (chi-when-list146 e515 x535
w516)) (body539 (cons e1536 e2537))) (if (eq? m503 (quote e)) (if (memq (quote
eval) when-list538) (chi-top-sequence144 body539 r501 w516 s517 (quote e)
(quote (eval)) mod518) (chi-void157)) (if (memq (quote load) when-list538) (if
(let ((t542 (memq (quote compile) when-list538))) (if t542 t542 (if (eq? m503
(quote c&e)) (memq (quote eval) when-list538) #f))) (chi-top-sequence144
body539 r501 w516 s517 (quote c&e) (quote (compile load)) mod518) (if (memq
m503 (quote (c c&e))) (chi-top-sequence144 body539 r501 w516 s517 (quote c)
(quote (load)) mod518) (chi-void157))) (if (let ((t543 (memq (quote compile)
when-list538))) (if t543 t543 (if (eq? m503 (quote c&e)) (memq (quote eval)
when-list538) #f))) (begin (top-level-eval-hook76 (chi-top-sequence144 body539
r501 w516 s517 (quote e) (quote (eval)) mod518) mod518) (chi-void157))
(chi-void157)))))) tmp533) (syntax-violation #f "source expression failed to
match any pattern" tmp532))) ($sc-dispatch tmp532 (quote (any each-any any .
each-any))))) e515) (if (memv type513 (quote (define-syntax-form))) (let ((n544
(id-var-name135 value514 w516)) (r545 (macros-only-env109 r501))) (if (memv
m503 (quote (c))) (if (memq (quote compile) esew504) (let ((e546
(chi-install-global145 n544 (chi149 e515 r545 w516 mod518)))) (begin
(top-level-eval-hook76 e546 mod518) (if (memq (quote load) esew504) e546
(chi-void157)))) (if (memq (quote load) esew504) (chi-install-global145 n544
(chi149 e515 r545 w516 mod518)) (chi-void157))) (if (memv m503 (quote (c&e)))
(let ((e547 (chi-install-global145 n544 (chi149 e515 r545 w516 mod518))))
(begin (top-level-eval-hook76 e547 mod518) e547)) (begin (if (memq (quote eval)
esew504) (top-level-eval-hook76 (chi-install-global145 n544 (chi149 e515 r545
w516 mod518)) mod518) (if #f #f)) (chi-void157))))) (if (memv type513 (quote
(define-form))) (let ((n548 (id-var-name135 value514 w516))) (let ((type549
(binding-type105 (lookup110 n548 r501 mod518)))) (if (memv type549 (quote
(global core macro module-ref))) (let ((x550 (build-global-definition88 s517
n548 (chi149 e515 r501 w516 mod518)))) (begin (if (eq? m503 (quote c&e))
(top-level-eval-hook76 x550 mod518) (if #f #f)) x550)) (if (memv type549 (quote
(displaced-lexical))) (syntax-violation #f "identifier out of context" e515
(wrap141 value514 w516 mod518)) (syntax-violation #f "cannot define keyword at
top level" e515 (wrap141 value514 w516 mod518)))))) (let ((x551 (chi-expr150
type513 value514 e515 r501 w516 s517 mod518))) (begin (if (eq? m503 (quote
c&e)) (top-level-eval-hook76 x551 mod518) (if #f #f)) x551)))))))))))
(syntax-type147 (lambda (e552 r553 w554 s555 rib556 mod557) (if (symbol? e552)
(let ((n558 (id-var-name135 e552 w554))) (let ((b559 (lookup110 n558 r553
mod557))) (let ((type560 (binding-type105 b559))) (if (memv type560 (quote
(lexical))) (values type560 (binding-value106 b559) e552 w554 s555 mod557) (if
(memv type560 (quote (global))) (values type560 n558 e552 w554 s555 mod557) (if
(memv type560 (quote (macro))) (syntax-type147 (chi-macro152 (binding-value106
b559) e552 r553 w554 rib556 mod557) r553 (quote (())) s555 rib556 mod557)
(values type560 (binding-value106 b559) e552 w554 s555 mod557))))))) (if (pair?
e552) (let ((first561 (car e552))) (if (id?113 first561) (let ((n562
(id-var-name135 first561 w554))) (let ((b563 (lookup110 n562 r553 (let ((t564
(if (syntax-object?97 first561) (syntax-object-module100 first561) #f))) (if
t564 t564 mod557))))) (let ((type565 (binding-type105 b563))) (if (memv type565
(quote (lexical))) (values (quote lexical-call) (binding-value106 b563) e552
w554 s555 mod557) (if (memv type565 (quote (global))) (values (quote
global-call) n562 e552 w554 s555 mod557) (if (memv type565 (quote (macro)))
(syntax-type147 (chi-macro152 (binding-value106 b563) e552 r553 w554 rib556
mod557) r553 (quote (())) s555 rib556 mod557) (if (memv type565 (quote (core
external-macro module-ref))) (values type565 (binding-value106 b563) e552 w554
s555 mod557) (if (memv type565 (quote (local-syntax))) (values (quote
local-syntax-form) (binding-value106 b563) e552 w554 s555 mod557) (if (memv
type565 (quote (begin))) (values (quote begin-form) #f e552 w554 s555 mod557)
(if (memv type565 (quote (eval-when))) (values (quote eval-when-form) #f e552
w554 s555 mod557) (if (memv type565 (quote (define))) ((lambda (tmp566)
((lambda (tmp567) (if (if tmp567 (apply (lambda (_568 name569 val570) (id?113
name569)) tmp567) #f) (apply (lambda (_571 name572 val573) (values (quote
define-form) name572 val573 w554 s555 mod557)) tmp567) ((lambda (tmp574) (if
(if tmp574 (apply (lambda (_575 name576 args577 e1578 e2579) (if (id?113
name576) (valid-bound-ids?138 (lambda-var-list162 args577)) #f)) tmp574) #f)
(apply (lambda (_580 name581 args582 e1583 e2584) (values (quote define-form)
(wrap141 name581 w554 mod557) (cons (quote #(syntax-object lambda ((top)
#(ribcage #(_ name args e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i"
"i" "i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage
#(type) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b) #((top)) #("i"))
#(ribcage () () ()) #(ribcage #(n) #((top)) #("i")) #(ribcage () () ())
#(ribcage #(first) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ())
#(ribcage #(e r w s rib mod) #((top) (top) (top) (top) (top) (top)) #("i" "i"
"i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip-annotation
ellipsis? chi-void eval-local-transformer chi-local-syntax chi-lambda-clause
chi-body chi-macro chi-application chi-expr chi chi-top syntax-type
chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))
(wrap141 (cons args582 (cons e1583 e2584)) w554 mod557)) (quote (())) s555
mod557)) tmp574) ((lambda (tmp586) (if (if tmp586 (apply (lambda (_587 name588)
(id?113 name588)) tmp586) #f) (apply (lambda (_589 name590) (values (quote
define-form) (wrap141 name590 w554 mod557) (quote (#(syntax-object if ((top)
#(ribcage #(_ name) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage ()
() ()) #(ribcage () () ()) #(ribcage #(type) #((top)) #("i")) #(ribcage () ()
()) #(ribcage #(b) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(n) #((top))
#("i")) #(ribcage () () ()) #(ribcage #(first) #((top)) #("i")) #(ribcage () ()
()) #(ribcage () () ()) #(ribcage #(e r w s rib mod) #((top) (top) (top) (top)
(top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var
strip strip-annotation ellipsis? chi-void eval-local-transformer
chi-local-syntax chi-lambda-clause chi-body chi-macro chi-application chi-expr
chi chi-top syntax-type chi-when-list chi-install-global chi-top-sequence
chi-sequence source-wrap wrap bound-id-member? distinct-bound-ids?
valid-bound-ids? bound-id=? free-id=? id-var-name same-marks? join-marks
join-wraps smart-append make-binding-wrap extend-ribcage! make-empty-ribcage
new-mark anti-mark the-anti-mark top-marked? top-wrap empty-wrap
set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels
ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels gen-label
make-rename rename-marks rename-new rename-old subst-rename? wrap-subst
wrap-marks make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id?
global-extend lookup macros-only-env extend-var-env extend-env null-env
binding-value binding-type make-binding arg-check source-annotation no-source
unannotate set-syntax-object-module! set-syntax-object-wrap!
set-syntax-object-expression! syntax-object-module syntax-object-wrap
syntax-object-expression syntax-object? make-syntax-object build-lexical-var
build-letrec build-named-let build-let build-sequence build-data build-primref
build-lambda build-global-definition build-global-assignment
build-global-reference analyze-variable build-lexical-assignment
build-lexical-reference build-conditional build-application build-void
get-global-definition-hook put-global-definition-hook gensym-hook
local-eval-hook top-level-eval-hook fx< fx= fx- fx+ *mode* noexpand) ((top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i")) #(ribcage (define-structure and-map*) ((top) (top)) ("i" "i")))
(hygiene guile)) #(syntax-object #f ((top) #(ribcage #(_ name) #((top) (top))
#("i" "i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ())
#(ribcage #(type) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b) #((top))
#("i")) #(ribcage () () ()) #(ribcage #(n) #((top)) #("i")) #(ribcage () () ())
#(ribcage #(first) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ())
#(ribcage #(e r w s rib mod) #((top) (top) (top) (top) (top) (top)) #("i" "i"
"i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip-annotation
ellipsis? chi-void eval-local-transformer chi-local-syntax chi-lambda-clause
chi-body chi-macro chi-application chi-expr chi chi-top syntax-type
chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile))
#(syntax-object #f ((top) #(ribcage #(_ name) #((top) (top)) #("i" "i"))
#(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(type)
#((top)) #("i")) #(ribcage () () ()) #(ribcage #(b) #((top)) #("i")) #(ribcage
() () ()) #(ribcage #(n) #((top)) #("i")) #(ribcage () () ()) #(ribcage
#(first) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(e
r w s rib mod) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i"
"i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis?
chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body
chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))) (quote
(())) s555 mod557)) tmp586) (syntax-violation #f "source expression failed to
match any pattern" tmp566))) ($sc-dispatch tmp566 (quote (any any))))))
($sc-dispatch tmp566 (quote (any (any . any) any . each-any)))))) ($sc-dispatch
tmp566 (quote (any any any))))) e552) (if (memv type565 (quote
(define-syntax))) ((lambda (tmp591) ((lambda (tmp592) (if (if tmp592 (apply
(lambda (_593 name594 val595) (id?113 name594)) tmp592) #f) (apply (lambda
(_596 name597 val598) (values (quote define-syntax-form) name597 val598 w554
s555 mod557)) tmp592) (syntax-violation #f "source expression failed to match
any pattern" tmp591))) ($sc-dispatch tmp591 (quote (any any any))))) e552)
(values (quote call) #f e552 w554 s555 mod557))))))))))))) (values (quote call)
#f e552 w554 s555 mod557))) (if (syntax-object?97 e552) (syntax-type147
(syntax-object-expression98 e552) r553 (join-wraps132 w554
(syntax-object-wrap99 e552)) #f rib556 (let ((t599 (syntax-object-module100
e552))) (if t599 t599 mod557))) (if (annotation? e552) (syntax-type147
(annotation-expression e552) r553 w554 (annotation-source e552) rib556 mod557)
(if (self-evaluating? e552) (values (quote constant) #f e552 w554 s555 mod557)
(values (quote other) #f e552 w554 s555 mod557)))))))) (chi-when-list146
(lambda (e600 when-list601 w602) (letrec ((f603 (lambda (when-list604
situations605) (if (null? when-list604) situations605 (f603 (cdr when-list604)
(cons (let ((x606 (car when-list604))) (if (free-id=?136 x606 (quote
#(syntax-object compile ((top) #(ribcage () () ()) #(ribcage () () ())
#(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(f when-list
situations) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage
#(e when-list w) #((top) (top) (top)) #("i" "i" "i")) #(ribcage
(lambda-var-list gen-var strip strip-annotation ellipsis? chi-void
eval-local-transformer chi-local-syntax chi-lambda-clause chi-body chi-macro
chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))) (quote
compile) (if (free-id=?136 x606 (quote #(syntax-object load ((top) #(ribcage ()
() ()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ())
#(ribcage #(f when-list situations) #((top) (top) (top)) #("i" "i" "i"))
#(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i" "i"
"i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis?
chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body
chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))) (quote
load) (if (free-id=?136 x606 (quote #(syntax-object eval ((top) #(ribcage () ()
()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ())
#(ribcage #(f when-list situations) #((top) (top) (top)) #("i" "i" "i"))
#(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) #("i" "i"
"i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis?
chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body
chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))) (quote
eval) (syntax-violation (quote eval-when) "invalid situation" e600 (wrap141
x606 w602 #f)))))) situations605)))))) (f603 when-list601 (quote ())))))
(chi-install-global145 (lambda (name607 e608) (build-global-definition88 #f
name607 (if (let ((v609 (module-variable (current-module) name607))) (if v609
(if (variable-bound? v609) (if (macro? (variable-ref v609)) (not (eq?
(macro-type (variable-ref v609)) (quote syncase-macro))) #f) #f) #f))
(build-application81 #f (build-primref90 #f (quote
make-extended-syncase-macro)) (list (build-application81 #f (build-primref90 #f
(quote module-ref)) (list (build-application81 #f (build-primref90 #f (quote
current-module)) (quote ())) (build-data91 #f name607))) (build-data91 #f
(quote macro)) e608)) (build-application81 #f (build-primref90 #f (quote
make-syncase-macro)) (list (build-data91 #f (quote macro)) e608))))))
(chi-top-sequence144 (lambda (body610 r611 w612 s613 m614 esew615 mod616)
(build-sequence92 s613 (letrec ((dobody617 (lambda (body618 r619 w620 m621
esew622 mod623) (if (null? body618) (quote ()) (let ((first624 (chi-top148 (car
body618) r619 w620 m621 esew622 mod623))) (cons first624 (dobody617 (cdr
body618) r619 w620 m621 esew622 mod623))))))) (dobody617 body610 r611 w612 m614
esew615 mod616))))) (chi-sequence143 (lambda (body625 r626 w627 s628 mod629)
(build-sequence92 s628 (letrec ((dobody630 (lambda (body631 r632 w633 mod634)
(if (null? body631) (quote ()) (let ((first635 (chi149 (car body631) r632 w633
mod634))) (cons first635 (dobody630 (cdr body631) r632 w633 mod634)))))))
(dobody630 body625 r626 w627 mod629))))) (source-wrap142 (lambda (x636 w637
s638 defmod639) (wrap141 (if s638 (make-annotation x636 s638 #f) x636) w637
defmod639))) (wrap141 (lambda (x640 w641 defmod642) (if (if (null?
(wrap-marks116 w641)) (null? (wrap-subst117 w641)) #f) x640 (if
(syntax-object?97 x640) (make-syntax-object96 (syntax-object-expression98 x640)
(join-wraps132 w641 (syntax-object-wrap99 x640)) (syntax-object-module100
x640)) (if (null? x640) x640 (make-syntax-object96 x640 w641 defmod642))))))
(bound-id-member?140 (lambda (x643 list644) (if (not (null? list644)) (let
((t645 (bound-id=?137 x643 (car list644)))) (if t645 t645 (bound-id-member?140
x643 (cdr list644)))) #f))) (distinct-bound-ids?139 (lambda (ids646) (letrec
((distinct?647 (lambda (ids648) (let ((t649 (null? ids648))) (if t649 t649 (if
(not (bound-id-member?140 (car ids648) (cdr ids648))) (distinct?647 (cdr
ids648)) #f)))))) (distinct?647 ids646)))) (valid-bound-ids?138 (lambda
(ids650) (if (letrec ((all-ids?651 (lambda (ids652) (let ((t653 (null?
ids652))) (if t653 t653 (if (id?113 (car ids652)) (all-ids?651 (cdr ids652))
#f)))))) (all-ids?651 ids650)) (distinct-bound-ids?139 ids650) #f)))
(bound-id=?137 (lambda (i654 j655) (if (if (syntax-object?97 i654)
(syntax-object?97 j655) #f) (if (eq? (let ((e656 (syntax-object-expression98
i654))) (if (annotation? e656) (annotation-expression e656) e656)) (let ((e657
(syntax-object-expression98 j655))) (if (annotation? e657)
(annotation-expression e657) e657))) (same-marks?134 (wrap-marks116
(syntax-object-wrap99 i654)) (wrap-marks116 (syntax-object-wrap99 j655))) #f)
(eq? (let ((e658 i654)) (if (annotation? e658) (annotation-expression e658)
e658)) (let ((e659 j655)) (if (annotation? e659) (annotation-expression e659)
e659)))))) (free-id=?136 (lambda (i660 j661) (if (eq? (let ((x662 i660)) (let
((e663 (if (syntax-object?97 x662) (syntax-object-expression98 x662) x662)))
(if (annotation? e663) (annotation-expression e663) e663))) (let ((x664 j661))
(let ((e665 (if (syntax-object?97 x664) (syntax-object-expression98 x664)
x664))) (if (annotation? e665) (annotation-expression e665) e665)))) (eq?
(id-var-name135 i660 (quote (()))) (id-var-name135 j661 (quote (())))) #f)))
(id-var-name135 (lambda (id666 w667) (letrec ((search-vector-rib670 (lambda
(sym676 subst677 marks678 symnames679 ribcage680) (let ((n681 (vector-length
symnames679))) (letrec ((f682 (lambda (i683) (if (fx=74 i683 n681) (search668
sym676 (cdr subst677) marks678) (if (if (eq? (vector-ref symnames679 i683)
sym676) (same-marks?134 marks678 (vector-ref (ribcage-marks123 ribcage680)
i683)) #f) (values (vector-ref (ribcage-labels124 ribcage680) i683) marks678)
(f682 (fx+72 i683 1))))))) (f682 0))))) (search-list-rib669 (lambda (sym684
subst685 marks686 symnames687 ribcage688) (letrec ((f689 (lambda (symnames690
i691) (if (null? symnames690) (search668 sym684 (cdr subst685) marks686) (if
(if (eq? (car symnames690) sym684) (same-marks?134 marks686 (list-ref
(ribcage-marks123 ribcage688) i691)) #f) (values (list-ref (ribcage-labels124
ribcage688) i691) marks686) (f689 (cdr symnames690) (fx+72 i691 1))))))) (f689
symnames687 0)))) (search668 (lambda (sym692 subst693 marks694) (if (null?
subst693) (values #f marks694) (let ((fst695 (car subst693))) (if (eq? fst695
(quote shift)) (search668 sym692 (cdr subst693) (cdr marks694)) (let
((symnames696 (ribcage-symnames122 fst695))) (if (vector? symnames696)
(search-vector-rib670 sym692 subst693 marks694 symnames696 fst695)
(search-list-rib669 sym692 subst693 marks694 symnames696 fst695))))))))) (if
(symbol? id666) (let ((t697 (call-with-values (lambda () (search668 id666
(wrap-subst117 w667) (wrap-marks116 w667))) (lambda (x699 . ignore698) x699))))
(if t697 t697 id666)) (if (syntax-object?97 id666) (let ((id700 (let ((e702
(syntax-object-expression98 id666))) (if (annotation? e702)
(annotation-expression e702) e702))) (w1701 (syntax-object-wrap99 id666))) (let
((marks703 (join-marks133 (wrap-marks116 w667) (wrap-marks116 w1701))))
(call-with-values (lambda () (search668 id700 (wrap-subst117 w667) marks703))
(lambda (new-id704 marks705) (let ((t706 new-id704)) (if t706 t706 (let ((t707
(call-with-values (lambda () (search668 id700 (wrap-subst117 w1701) marks705))
(lambda (x709 . ignore708) x709)))) (if t707 t707 id700)))))))) (if
(annotation? id666) (let ((id710 (let ((e711 id666)) (if (annotation? e711)
(annotation-expression e711) e711)))) (let ((t712 (call-with-values (lambda ()
(search668 id710 (wrap-subst117 w667) (wrap-marks116 w667))) (lambda (x714 .
ignore713) x714)))) (if t712 t712 id710))) (syntax-violation (quote
id-var-name) "invalid id" id666))))))) (same-marks?134 (lambda (x715 y716) (let
((t717 (eq? x715 y716))) (if t717 t717 (if (not (null? x715)) (if (not (null?
y716)) (if (eq? (car x715) (car y716)) (same-marks?134 (cdr x715) (cdr y716))
#f) #f) #f))))) (join-marks133 (lambda (m1718 m2719) (smart-append131 m1718
m2719))) (join-wraps132 (lambda (w1720 w2721) (let ((m1722 (wrap-marks116
w1720)) (s1723 (wrap-subst117 w1720))) (if (null? m1722) (if (null? s1723)
w2721 (make-wrap115 (wrap-marks116 w2721) (smart-append131 s1723 (wrap-subst117
w2721)))) (make-wrap115 (smart-append131 m1722 (wrap-marks116 w2721))
(smart-append131 s1723 (wrap-subst117 w2721))))))) (smart-append131 (lambda
(m1724 m2725) (if (null? m2725) m1724 (append m1724 m2725))))
(make-binding-wrap130 (lambda (ids726 labels727 w728) (if (null? ids726) w728
(make-wrap115 (wrap-marks116 w728) (cons (let ((labelvec729 (list->vector
labels727))) (let ((n730 (vector-length labelvec729))) (let ((symnamevec731
(make-vector n730)) (marksvec732 (make-vector n730))) (begin (letrec ((f733
(lambda (ids734 i735) (if (not (null? ids734)) (call-with-values (lambda ()
(id-sym-name&marks114 (car ids734) w728)) (lambda (symname736 marks737) (begin
(vector-set! symnamevec731 i735 symname736) (vector-set! marksvec732 i735
marks737) (f733 (cdr ids734) (fx+72 i735 1))))) (if #f #f))))) (f733 ids726 0))
(make-ribcage120 symnamevec731 marksvec732 labelvec729))))) (wrap-subst117
w728)))))) (extend-ribcage!129 (lambda (ribcage738 id739 label740) (begin
(set-ribcage-symnames!125 ribcage738 (cons (let ((e741
(syntax-object-expression98 id739))) (if (annotation? e741)
(annotation-expression e741) e741)) (ribcage-symnames122 ribcage738)))
(set-ribcage-marks!126 ribcage738 (cons (wrap-marks116 (syntax-object-wrap99
id739)) (ribcage-marks123 ribcage738))) (set-ribcage-labels!127 ribcage738
(cons label740 (ribcage-labels124 ribcage738)))))) (anti-mark128 (lambda (w742)
(make-wrap115 (cons #f (wrap-marks116 w742)) (cons (quote shift) (wrap-subst117
w742))))) (set-ribcage-labels!127 (lambda (x743 update744) (vector-set! x743 3
update744))) (set-ribcage-marks!126 (lambda (x745 update746) (vector-set! x745
2 update746))) (set-ribcage-symnames!125 (lambda (x747 update748) (vector-set!
x747 1 update748))) (ribcage-labels124 (lambda (x749) (vector-ref x749 3)))
(ribcage-marks123 (lambda (x750) (vector-ref x750 2))) (ribcage-symnames122
(lambda (x751) (vector-ref x751 1))) (ribcage?121 (lambda (x752) (if (vector?
x752) (if (= (vector-length x752) 4) (eq? (vector-ref x752 0) (quote ribcage))
#f) #f))) (make-ribcage120 (lambda (symnames753 marks754 labels755) (vector
(quote ribcage) symnames753 marks754 labels755))) (gen-labels119 (lambda
(ls756) (if (null? ls756) (quote ()) (cons (gen-label118) (gen-labels119 (cdr
ls756)))))) (gen-label118 (lambda () (string #\i))) (wrap-subst117 cdr)
(wrap-marks116 car) (make-wrap115 cons) (id-sym-name&marks114 (lambda (x757
w758) (if (syntax-object?97 x757) (values (let ((e759
(syntax-object-expression98 x757))) (if (annotation? e759)
(annotation-expression e759) e759)) (join-marks133 (wrap-marks116 w758)
(wrap-marks116 (syntax-object-wrap99 x757)))) (values (let ((e760 x757)) (if
(annotation? e760) (annotation-expression e760) e760)) (wrap-marks116 w758)))))
(id?113 (lambda (x761) (if (symbol? x761) #t (if (syntax-object?97 x761)
(symbol? (let ((e762 (syntax-object-expression98 x761))) (if (annotation? e762)
(annotation-expression e762) e762))) (if (annotation? x761) (symbol?
(annotation-expression x761)) #f))))) (nonsymbol-id?112 (lambda (x763) (if
(syntax-object?97 x763) (symbol? (let ((e764 (syntax-object-expression98
x763))) (if (annotation? e764) (annotation-expression e764) e764))) #f)))
(global-extend111 (lambda (type765 sym766 val767) (put-global-definition-hook78
sym766 type765 val767))) (lookup110 (lambda (x768 r769 mod770) (let ((temp771
(assq x768 r769))) (if temp771 (cdr temp771) (if (symbol? x768) (let ((t772
(get-global-definition-hook79 x768 mod770))) (if t772 t772 (quote (global))))
(quote (displaced-lexical))))))) (macros-only-env109 (lambda (r773) (if (null?
r773) (quote ()) (let ((a774 (car r773))) (if (eq? (cadr a774) (quote macro))
(cons a774 (macros-only-env109 (cdr r773))) (macros-only-env109 (cdr
r773))))))) (extend-var-env108 (lambda (labels775 vars776 r777) (if (null?
labels775) r777 (extend-var-env108 (cdr labels775) (cdr vars776) (cons (cons
(car labels775) (cons (quote lexical) (car vars776))) r777))))) (extend-env107
(lambda (labels778 bindings779 r780) (if (null? labels778) r780 (extend-env107
(cdr labels778) (cdr bindings779) (cons (cons (car labels778) (car
bindings779)) r780))))) (binding-value106 cdr) (binding-type105 car)
(source-annotation104 (lambda (x781) (if (annotation? x781) (annotation-source
x781) (if (syntax-object?97 x781) (source-annotation104
(syntax-object-expression98 x781)) #f)))) (set-syntax-object-module!103 (lambda
(x782 update783) (vector-set! x782 3 update783))) (set-syntax-object-wrap!102
(lambda (x784 update785) (vector-set! x784 2 update785)))
(set-syntax-object-expression!101 (lambda (x786 update787) (vector-set! x786 1
update787))) (syntax-object-module100 (lambda (x788) (vector-ref x788 3)))
(syntax-object-wrap99 (lambda (x789) (vector-ref x789 2)))
(syntax-object-expression98 (lambda (x790) (vector-ref x790 1)))
(syntax-object?97 (lambda (x791) (if (vector? x791) (if (= (vector-length x791)
4) (eq? (vector-ref x791 0) (quote syntax-object)) #f) #f)))
(make-syntax-object96 (lambda (expression792 wrap793 module794) (vector (quote
syntax-object) expression792 wrap793 module794))) (build-letrec95 (lambda
(src795 ids796 vars797 val-exps798 body-exp799) (if (null? vars797) body-exp799
(let ((atom-key800 (fluid-ref *mode*71))) (if (memv atom-key800 (quote (c)))
((@ (language tree-il) make-letrec) src795 ids796 vars797 val-exps798
body-exp799) (list (quote letrec) (map list vars797 val-exps798)
body-exp799)))))) (build-named-let94 (lambda (src801 ids802 vars803 val-exps804
body-exp805) (let ((f806 (car vars803)) (f-name807 (car ids802)) (vars808 (cdr
vars803)) (ids809 (cdr ids802))) (let ((atom-key810 (fluid-ref *mode*71))) (if
(memv atom-key810 (quote (c))) ((@ (language tree-il) make-letrec) src801 (list
f-name807) (list f806) (list (build-lambda89 src801 ids809 vars808 #f
body-exp805)) (build-application81 src801 (build-lexical-reference83 (quote
fun) src801 f-name807 f806) val-exps804)) (list (quote let) f806 (map list
vars808 val-exps804) body-exp805)))))) (build-let93 (lambda (src811 ids812
vars813 val-exps814 body-exp815) (if (null? vars813) body-exp815 (let
((atom-key816 (fluid-ref *mode*71))) (if (memv atom-key816 (quote (c))) ((@
(language tree-il) make-let) src811 ids812 vars813 val-exps814 body-exp815)
(list (quote let) (map list vars813 val-exps814) body-exp815))))))
(build-sequence92 (lambda (src817 exps818) (if (null? (cdr exps818)) (car
exps818) (let ((atom-key819 (fluid-ref *mode*71))) (if (memv atom-key819 (quote
(c))) ((@ (language tree-il) make-sequence) src817 exps818) (cons (quote begin)
exps818)))))) (build-data91 (lambda (src820 exp821) (let ((atom-key822
(fluid-ref *mode*71))) (if (memv atom-key822 (quote (c))) ((@ (language
tree-il) make-const) src820 exp821) (if (if (self-evaluating? exp821) (not
(vector? exp821)) #f) exp821 (list (quote quote) exp821)))))) (build-primref90
(lambda (src823 name824) (if (equal? (module-name (current-module)) (quote
(guile))) (let ((atom-key825 (fluid-ref *mode*71))) (if (memv atom-key825
(quote (c))) ((@ (language tree-il) make-toplevel-ref) src823 name824)
name824)) (let ((atom-key826 (fluid-ref *mode*71))) (if (memv atom-key826
(quote (c))) ((@ (language tree-il) make-module-ref) src823 (quote (guile))
name824 #f) (list (quote @@) (quote (guile)) name824)))))) (build-lambda89
(lambda (src827 ids828 vars829 docstring830 exp831) (let ((atom-key832
(fluid-ref *mode*71))) (if (memv atom-key832 (quote (c))) ((@ (language
tree-il) make-lambda) src827 ids828 vars829 (if docstring830 (list (cons (quote
documentation) docstring830)) (quote ())) exp831) (cons (quote lambda) (cons
vars829 (append (if docstring830 (list docstring830) (quote ())) (list
exp831)))))))) (build-global-definition88 (lambda (source833 var834 exp835)
(let ((atom-key836 (fluid-ref *mode*71))) (if (memv atom-key836 (quote (c)))
((@ (language tree-il) make-toplevel-define) source833 var834 exp835) (list
(quote define) var834 exp835))))) (build-global-assignment87 (lambda (source837
var838 exp839 mod840) (analyze-variable85 mod840 var838 (lambda (mod841 var842
public?843) (let ((atom-key844 (fluid-ref *mode*71))) (if (memv atom-key844
(quote (c))) ((@ (language tree-il) make-module-set) source837 mod841 var842
public?843 exp839) (list (quote set!) (list (if public?843 (quote @) (quote
@@)) mod841 var842) exp839)))) (lambda (var845) (let ((atom-key846 (fluid-ref
*mode*71))) (if (memv atom-key846 (quote (c))) ((@ (language tree-il)
make-toplevel-set) source837 var845 exp839) (list (quote set!) var845
exp839))))))) (build-global-reference86 (lambda (source847 var848 mod849)
(analyze-variable85 mod849 var848 (lambda (mod850 var851 public?852) (let
((atom-key853 (fluid-ref *mode*71))) (if (memv atom-key853 (quote (c))) ((@
(language tree-il) make-module-ref) source847 mod850 var851 public?852) (list
(if public?852 (quote @) (quote @@)) mod850 var851)))) (lambda (var854) (let
((atom-key855 (fluid-ref *mode*71))) (if (memv atom-key855 (quote (c))) ((@
(language tree-il) make-toplevel-ref) source847 var854) var854))))))
(analyze-variable85 (lambda (mod856 var857 modref-cont858 bare-cont859) (if
(not mod856) (bare-cont859 var857) (let ((kind860 (car mod856)) (mod861 (cdr
mod856))) (if (memv kind860 (quote (public))) (modref-cont858 mod861 var857 #t)
(if (memv kind860 (quote (private))) (if (not (equal? mod861 (module-name
(current-module)))) (modref-cont858 mod861 var857 #f) (bare-cont859 var857))
(if (memv kind860 (quote (bare))) (bare-cont859 var857) (if (memv kind860
(quote (hygiene))) (if (if (not (equal? mod861 (module-name (current-module))))
(module-variable (resolve-module mod861) var857) #f) (modref-cont858 mod861
var857 #f) (bare-cont859 var857)) (syntax-violation #f "bad module kind" var857
mod861))))))))) (build-lexical-assignment84 (lambda (source862 name863 var864
exp865) (let ((atom-key866 (fluid-ref *mode*71))) (if (memv atom-key866 (quote
(c))) ((@ (language tree-il) make-lexical-set) source862 name863 var864 exp865)
(list (quote set!) var864 exp865))))) (build-lexical-reference83 (lambda
(type867 source868 name869 var870) (let ((atom-key871 (fluid-ref *mode*71)))
(if (memv atom-key871 (quote (c))) ((@ (language tree-il) make-lexical-ref)
source868 name869 var870) var870)))) (build-conditional82 (lambda (source872
test-exp873 then-exp874 else-exp875) (let ((atom-key876 (fluid-ref *mode*71)))
(if (memv atom-key876 (quote (c))) ((@ (language tree-il) make-conditional)
source872 test-exp873 then-exp874 else-exp875) (list (quote if) test-exp873
then-exp874 else-exp875))))) (build-application81 (lambda (source877 fun-exp878
arg-exps879) (let ((atom-key880 (fluid-ref *mode*71))) (if (memv atom-key880
(quote (c))) ((@ (language tree-il) make-application) source877 fun-exp878
arg-exps879) (cons fun-exp878 arg-exps879))))) (build-void80 (lambda
(source881) (let ((atom-key882 (fluid-ref *mode*71))) (if (memv atom-key882
(quote (c))) ((@ (language tree-il) make-void) source881) (quote (if #f
#f)))))) (get-global-definition-hook79 (lambda (symbol883 module884) (begin (if
(if (not module884) (current-module) #f) (warn "module system is booted, we
should have a module" symbol883) (if #f #f)) (let ((v885 (module-variable (if
module884 (resolve-module (cdr module884)) (current-module)) symbol883))) (if
v885 (if (variable-bound? v885) (let ((val886 (variable-ref v885))) (if (macro?
val886) (if (syncase-macro-type val886) (cons (syncase-macro-type val886)
(syncase-macro-binding val886)) #f) #f)) #f) #f)))))
(put-global-definition-hook78 (lambda (symbol887 type888 val889) (let
((existing890 (let ((v891 (module-variable (current-module) symbol887))) (if
v891 (if (variable-bound? v891) (let ((val892 (variable-ref v891))) (if (macro?
val892) (if (not (syncase-macro-type val892)) val892 #f) #f)) #f) #f))))
(module-define! (current-module) symbol887 (if existing890
(make-extended-syncase-macro existing890 type888 val889) (make-syncase-macro
type888 val889)))))) (local-eval-hook77 (lambda (x893 mod894) (primitive-eval
(list noexpand70 (let ((atom-key895 (fluid-ref *mode*71))) (if (memv
atom-key895 (quote (c))) ((@ (language tree-il) tree-il->scheme) x893)
x893)))))) (top-level-eval-hook76 (lambda (x896 mod897) (primitive-eval (list
noexpand70 (let ((atom-key898 (fluid-ref *mode*71))) (if (memv atom-key898
(quote (c))) ((@ (language tree-il) tree-il->scheme) x896) x896)))))) (fx<75 <)
(fx=74 =) (fx-73 -) (fx+72 +) (*mode*71 (make-fluid)) (noexpand70 "noexpand"))
(begin (global-extend111 (quote local-syntax) (quote letrec-syntax) #t)
(global-extend111 (quote local-syntax) (quote let-syntax) #f) (global-extend111
(quote core) (quote fluid-let-syntax) (lambda (e899 r900 w901 s902 mod903)
((lambda (tmp904) ((lambda (tmp905) (if (if tmp905 (apply (lambda (_906 var907
val908 e1909 e2910) (valid-bound-ids?138 var907)) tmp905) #f) (apply (lambda
(_912 var913 val914 e1915 e2916) (let ((names917 (map (lambda (x918)
(id-var-name135 x918 w901)) var913))) (begin (for-each (lambda (id920 n921)
(let ((atom-key922 (binding-type105 (lookup110 n921 r900 mod903)))) (if (memv
atom-key922 (quote (displaced-lexical))) (syntax-violation (quote
fluid-let-syntax) "identifier out of context" e899 (source-wrap142 id920 w901
s902 mod903)) (if #f #f)))) var913 names917) (chi-body153 (cons e1915 e2916)
(source-wrap142 e899 w901 s902 mod903) (extend-env107 names917 (let
((trans-r925 (macros-only-env109 r900))) (map (lambda (x926) (cons (quote
macro) (eval-local-transformer156 (chi149 x926 trans-r925 w901 mod903)
mod903))) val914)) r900) w901 mod903)))) tmp905) ((lambda (_928)
(syntax-violation (quote fluid-let-syntax) "bad syntax" (source-wrap142 e899
w901 s902 mod903))) tmp904))) ($sc-dispatch tmp904 (quote (any #(each (any
any)) any . each-any))))) e899))) (global-extend111 (quote core) (quote quote)
(lambda (e929 r930 w931 s932 mod933) ((lambda (tmp934) ((lambda (tmp935) (if
tmp935 (apply (lambda (_936 e937) (build-data91 s932 (strip160 e937 w931)))
tmp935) ((lambda (_938) (syntax-violation (quote quote) "bad syntax"
(source-wrap142 e929 w931 s932 mod933))) tmp934))) ($sc-dispatch tmp934 (quote
(any any))))) e929))) (global-extend111 (quote core) (quote syntax) (letrec
((regen946 (lambda (x947) (let ((atom-key948 (car x947))) (if (memv atom-key948
(quote (ref))) (build-lexical-reference83 (quote value) #f (cadr x947) (cadr
x947)) (if (memv atom-key948 (quote (primitive))) (build-primref90 #f (cadr
x947)) (if (memv atom-key948 (quote (quote))) (build-data91 #f (cadr x947)) (if
(memv atom-key948 (quote (lambda))) (build-lambda89 #f (cadr x947) (cadr x947)
#f (regen946 (caddr x947))) (if (memv atom-key948 (quote (map))) (let ((ls949
(map regen946 (cdr x947)))) (build-application81 #f (build-primref90 #f (quote
map)) ls949)) (build-application81 #f (build-primref90 #f (car x947)) (map
regen946 (cdr x947))))))))))) (gen-vector945 (lambda (x950) (if (eq? (car x950)
(quote list)) (cons (quote vector) (cdr x950)) (if (eq? (car x950) (quote
quote)) (list (quote quote) (list->vector (cadr x950))) (list (quote
list->vector) x950))))) (gen-append944 (lambda (x951 y952) (if (equal? y952
(quote (quote ()))) x951 (list (quote append) x951 y952)))) (gen-cons943
(lambda (x953 y954) (let ((atom-key955 (car y954))) (if (memv atom-key955
(quote (quote))) (if (eq? (car x953) (quote quote)) (list (quote quote) (cons
(cadr x953) (cadr y954))) (if (eq? (cadr y954) (quote ())) (list (quote list)
x953) (list (quote cons) x953 y954))) (if (memv atom-key955 (quote (list)))
(cons (quote list) (cons x953 (cdr y954))) (list (quote cons) x953 y954))))))
(gen-map942 (lambda (e956 map-env957) (let ((formals958 (map cdr map-env957))
(actuals959 (map (lambda (x960) (list (quote ref) (car x960))) map-env957)))
(if (eq? (car e956) (quote ref)) (car actuals959) (if (and-map (lambda (x961)
(if (eq? (car x961) (quote ref)) (memq (cadr x961) formals958) #f)) (cdr e956))
(cons (quote map) (cons (list (quote primitive) (car e956)) (map (let ((r962
(map cons formals958 actuals959))) (lambda (x963) (cdr (assq (cadr x963)
r962)))) (cdr e956)))) (cons (quote map) (cons (list (quote lambda) formals958
e956) actuals959))))))) (gen-mappend941 (lambda (e964 map-env965) (list (quote
apply) (quote (primitive append)) (gen-map942 e964 map-env965)))) (gen-ref940
(lambda (src966 var967 level968 maps969) (if (fx=74 level968 0) (values var967
maps969) (if (null? maps969) (syntax-violation (quote syntax) "missing
ellipsis" src966) (call-with-values (lambda () (gen-ref940 src966 var967 (fx-73
level968 1) (cdr maps969))) (lambda (outer-var970 outer-maps971) (let ((b972
(assq outer-var970 (car maps969)))) (if b972 (values (cdr b972) maps969) (let
((inner-var973 (gen-var161 (quote tmp)))) (values inner-var973 (cons (cons
(cons outer-var970 inner-var973) (car maps969)) outer-maps971)))))))))))
(gen-syntax939 (lambda (src974 e975 r976 maps977 ellipsis?978 mod979) (if
(id?113 e975) (let ((label980 (id-var-name135 e975 (quote (()))))) (let ((b981
(lookup110 label980 r976 mod979))) (if (eq? (binding-type105 b981) (quote
syntax)) (call-with-values (lambda () (let ((var.lev982 (binding-value106
b981))) (gen-ref940 src974 (car var.lev982) (cdr var.lev982) maps977))) (lambda
(var983 maps984) (values (list (quote ref) var983) maps984))) (if (ellipsis?978
e975) (syntax-violation (quote syntax) "misplaced ellipsis" src974) (values
(list (quote quote) e975) maps977))))) ((lambda (tmp985) ((lambda (tmp986) (if
(if tmp986 (apply (lambda (dots987 e988) (ellipsis?978 dots987)) tmp986) #f)
(apply (lambda (dots989 e990) (gen-syntax939 src974 e990 r976 maps977 (lambda
(x991) #f) mod979)) tmp986) ((lambda (tmp992) (if (if tmp992 (apply (lambda
(x993 dots994 y995) (ellipsis?978 dots994)) tmp992) #f) (apply (lambda (x996
dots997 y998) (letrec ((f999 (lambda (y1000 k1001) ((lambda (tmp1005) ((lambda
(tmp1006) (if (if tmp1006 (apply (lambda (dots1007 y1008) (ellipsis?978
dots1007)) tmp1006) #f) (apply (lambda (dots1009 y1010) (f999 y1010 (lambda
(maps1011) (call-with-values (lambda () (k1001 (cons (quote ()) maps1011)))
(lambda (x1012 maps1013) (if (null? (car maps1013)) (syntax-violation (quote
syntax) "extra ellipsis" src974) (values (gen-mappend941 x1012 (car maps1013))
(cdr maps1013)))))))) tmp1006) ((lambda (_1014) (call-with-values (lambda ()
(gen-syntax939 src974 y1000 r976 maps977 ellipsis?978 mod979)) (lambda (y1015
maps1016) (call-with-values (lambda () (k1001 maps1016)) (lambda (x1017
maps1018) (values (gen-append944 x1017 y1015) maps1018)))))) tmp1005)))
($sc-dispatch tmp1005 (quote (any . any))))) y1000)))) (f999 y998 (lambda
(maps1002) (call-with-values (lambda () (gen-syntax939 src974 x996 r976 (cons
(quote ()) maps1002) ellipsis?978 mod979)) (lambda (x1003 maps1004) (if (null?
(car maps1004)) (syntax-violation (quote syntax) "extra ellipsis" src974)
(values (gen-map942 x1003 (car maps1004)) (cdr maps1004))))))))) tmp992)
((lambda (tmp1019) (if tmp1019 (apply (lambda (x1020 y1021) (call-with-values
(lambda () (gen-syntax939 src974 x1020 r976 maps977 ellipsis?978 mod979))
(lambda (x1022 maps1023) (call-with-values (lambda () (gen-syntax939 src974
y1021 r976 maps1023 ellipsis?978 mod979)) (lambda (y1024 maps1025) (values
(gen-cons943 x1022 y1024) maps1025)))))) tmp1019) ((lambda (tmp1026) (if
tmp1026 (apply (lambda (e11027 e21028) (call-with-values (lambda ()
(gen-syntax939 src974 (cons e11027 e21028) r976 maps977 ellipsis?978 mod979))
(lambda (e1030 maps1031) (values (gen-vector945 e1030) maps1031)))) tmp1026)
((lambda (_1032) (values (list (quote quote) e975) maps977)) tmp985)))
($sc-dispatch tmp985 (quote #(vector (any . each-any))))))) ($sc-dispatch
tmp985 (quote (any . any)))))) ($sc-dispatch tmp985 (quote (any any . any))))))
($sc-dispatch tmp985 (quote (any any))))) e975))))) (lambda (e1033 r1034 w1035
s1036 mod1037) (let ((e1038 (source-wrap142 e1033 w1035 s1036 mod1037)))
((lambda (tmp1039) ((lambda (tmp1040) (if tmp1040 (apply (lambda (_1041 x1042)
(call-with-values (lambda () (gen-syntax939 e1038 x1042 r1034 (quote ())
ellipsis?158 mod1037)) (lambda (e1043 maps1044) (regen946 e1043)))) tmp1040)
((lambda (_1045) (syntax-violation (quote syntax) "bad `syntax' form" e1038))
tmp1039))) ($sc-dispatch tmp1039 (quote (any any))))) e1038)))))
(global-extend111 (quote core) (quote lambda) (lambda (e1046 r1047 w1048 s1049
mod1050) ((lambda (tmp1051) ((lambda (tmp1052) (if tmp1052 (apply (lambda
(_1053 c1054) (chi-lambda-clause154 (source-wrap142 e1046 w1048 s1049 mod1050)
#f c1054 r1047 w1048 mod1050 (lambda (names1055 vars1056 docstring1057
body1058) (build-lambda89 s1049 names1055 vars1056 docstring1057 body1058))))
tmp1052) (syntax-violation #f "source expression failed to match any pattern"
tmp1051))) ($sc-dispatch tmp1051 (quote (any . any))))) e1046)))
(global-extend111 (quote core) (quote let) (letrec ((chi-let1059 (lambda (e1060
r1061 w1062 s1063 mod1064 constructor1065 ids1066 vals1067 exps1068) (if (not
(valid-bound-ids?138 ids1066)) (syntax-violation (quote let) "duplicate bound
variable" e1060) (let ((labels1069 (gen-labels119 ids1066)) (new-vars1070 (map
gen-var161 ids1066))) (let ((nw1071 (make-binding-wrap130 ids1066 labels1069
w1062)) (nr1072 (extend-var-env108 labels1069 new-vars1070 r1061)))
(constructor1065 s1063 (map syntax->datum ids1066) new-vars1070 (map (lambda
(x1073) (chi149 x1073 r1061 w1062 mod1064)) vals1067) (chi-body153 exps1068
(source-wrap142 e1060 nw1071 s1063 mod1064) nr1072 nw1071 mod1064))))))))
(lambda (e1074 r1075 w1076 s1077 mod1078) ((lambda (tmp1079) ((lambda (tmp1080)
(if tmp1080 (apply (lambda (_1081 id1082 val1083 e11084 e21085) (chi-let1059
e1074 r1075 w1076 s1077 mod1078 build-let93 id1082 val1083 (cons e11084
e21085))) tmp1080) ((lambda (tmp1089) (if (if tmp1089 (apply (lambda (_1090
f1091 id1092 val1093 e11094 e21095) (id?113 f1091)) tmp1089) #f) (apply (lambda
(_1096 f1097 id1098 val1099 e11100 e21101) (chi-let1059 e1074 r1075 w1076 s1077
mod1078 build-named-let94 (cons f1097 id1098) val1099 (cons e11100 e21101)))
tmp1089) ((lambda (_1105) (syntax-violation (quote let) "bad let"
(source-wrap142 e1074 w1076 s1077 mod1078))) tmp1079))) ($sc-dispatch tmp1079
(quote (any any #(each (any any)) any . each-any)))))) ($sc-dispatch tmp1079
(quote (any #(each (any any)) any . each-any))))) e1074)))) (global-extend111
(quote core) (quote letrec) (lambda (e1106 r1107 w1108 s1109 mod1110) ((lambda
(tmp1111) ((lambda (tmp1112) (if tmp1112 (apply (lambda (_1113 id1114 val1115
e11116 e21117) (let ((ids1118 id1114)) (if (not (valid-bound-ids?138 ids1118))
(syntax-violation (quote letrec) "duplicate bound variable" e1106) (let
((labels1120 (gen-labels119 ids1118)) (new-vars1121 (map gen-var161 ids1118)))
(let ((w1122 (make-binding-wrap130 ids1118 labels1120 w1108)) (r1123
(extend-var-env108 labels1120 new-vars1121 r1107))) (build-letrec95 s1109 (map
syntax->datum ids1118) new-vars1121 (map (lambda (x1124) (chi149 x1124 r1123
w1122 mod1110)) val1115) (chi-body153 (cons e11116 e21117) (source-wrap142
e1106 w1122 s1109 mod1110) r1123 w1122 mod1110))))))) tmp1112) ((lambda (_1127)
(syntax-violation (quote letrec) "bad letrec" (source-wrap142 e1106 w1108 s1109
mod1110))) tmp1111))) ($sc-dispatch tmp1111 (quote (any #(each (any any)) any .
each-any))))) e1106))) (global-extend111 (quote core) (quote set!) (lambda
(e1128 r1129 w1130 s1131 mod1132) ((lambda (tmp1133) ((lambda (tmp1134) (if (if
tmp1134 (apply (lambda (_1135 id1136 val1137) (id?113 id1136)) tmp1134) #f)
(apply (lambda (_1138 id1139 val1140) (let ((val1141 (chi149 val1140 r1129
w1130 mod1132)) (n1142 (id-var-name135 id1139 w1130))) (let ((b1143 (lookup110
n1142 r1129 mod1132))) (let ((atom-key1144 (binding-type105 b1143))) (if (memv
atom-key1144 (quote (lexical))) (build-lexical-assignment84 s1131
(syntax->datum id1139) (binding-value106 b1143) val1141) (if (memv atom-key1144
(quote (global))) (build-global-assignment87 s1131 n1142 val1141 mod1132) (if
(memv atom-key1144 (quote (displaced-lexical))) (syntax-violation (quote set!)
"identifier out of context" (wrap141 id1139 w1130 mod1132)) (syntax-violation
(quote set!) "bad set!" (source-wrap142 e1128 w1130 s1131 mod1132)))))))))
tmp1134) ((lambda (tmp1145) (if tmp1145 (apply (lambda (_1146 head1147 tail1148
val1149) (call-with-values (lambda () (syntax-type147 head1147 r1129 (quote
(())) #f #f mod1132)) (lambda (type1150 value1151 ee1152 ww1153 ss1154
modmod1155) (if (memv type1150 (quote (module-ref))) (let ((val1156 (chi149
val1149 r1129 w1130 mod1132))) (call-with-values (lambda () (value1151 (cons
head1147 tail1148))) (lambda (id1158 mod1159) (build-global-assignment87 s1131
id1158 val1156 mod1159)))) (build-application81 s1131 (chi149 (list (quote
#(syntax-object setter ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage
#(type value ee ww ss modmod) #((top) (top) (top) (top) (top) (top)) #("i" "i"
"i" "i" "i" "i")) #(ribcage #(_ head tail val) #((top) (top) (top) (top)) #("i"
"i" "i" "i")) #(ribcage () () ()) #(ribcage #(e r w s mod) #((top) (top) (top)
(top) (top)) #("i" "i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var strip
strip-annotation ellipsis? chi-void eval-local-transformer chi-local-syntax
chi-lambda-clause chi-body chi-macro chi-application chi-expr chi chi-top
syntax-type chi-when-list chi-install-global chi-top-sequence chi-sequence
source-wrap wrap bound-id-member? distinct-bound-ids? valid-bound-ids?
bound-id=? free-id=? id-var-name same-marks? join-marks join-wraps smart-append
make-binding-wrap extend-ribcage! make-empty-ribcage new-mark anti-mark
the-anti-mark top-marked? top-wrap empty-wrap set-ribcage-labels!
set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks
ribcage-symnames ribcage? make-ribcage gen-labels gen-label make-rename
rename-marks rename-new rename-old subst-rename? wrap-subst wrap-marks
make-wrap id-sym-name&marks id-sym-name id? nonsymbol-id? global-extend lookup
macros-only-env extend-var-env extend-env null-env binding-value binding-type
make-binding arg-check source-annotation no-source unannotate
set-syntax-object-module! set-syntax-object-wrap! set-syntax-object-expression!
syntax-object-module syntax-object-wrap syntax-object-expression syntax-object?
make-syntax-object build-lexical-var build-letrec build-named-let build-let
build-sequence build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))
head1147) r1129 w1130 mod1132) (map (lambda (e1160) (chi149 e1160 r1129 w1130
mod1132)) (append tail1148 (list val1149)))))))) tmp1145) ((lambda (_1162)
(syntax-violation (quote set!) "bad set!" (source-wrap142 e1128 w1130 s1131
mod1132))) tmp1133))) ($sc-dispatch tmp1133 (quote (any (any . each-any)
any)))))) ($sc-dispatch tmp1133 (quote (any any any))))) e1128)))
(global-extend111 (quote module-ref) (quote @) (lambda (e1163) ((lambda
(tmp1164) ((lambda (tmp1165) (if (if tmp1165 (apply (lambda (_1166 mod1167
id1168) (if (and-map id?113 mod1167) (id?113 id1168) #f)) tmp1165) #f) (apply
(lambda (_1170 mod1171 id1172) (values (syntax->datum id1172) (syntax->datum
(cons (quote #(syntax-object public ((top) #(ribcage #(_ mod id) #((top) (top)
(top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(e) #((top)) #("i"))
#(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis? chi-void
eval-local-transformer chi-local-syntax chi-lambda-clause chi-body chi-macro
chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))
mod1171)))) tmp1165) (syntax-violation #f "source expression failed to match
any pattern" tmp1164))) ($sc-dispatch tmp1164 (quote (any each-any any)))))
e1163))) (global-extend111 (quote module-ref) (quote @@) (lambda (e1174)
((lambda (tmp1175) ((lambda (tmp1176) (if (if tmp1176 (apply (lambda (_1177
mod1178 id1179) (if (and-map id?113 mod1178) (id?113 id1179) #f)) tmp1176) #f)
(apply (lambda (_1181 mod1182 id1183) (values (syntax->datum id1183)
(syntax->datum (cons (quote #(syntax-object private ((top) #(ribcage #(_ mod
id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(e)
#((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip-annotation
ellipsis? chi-void eval-local-transformer chi-local-syntax chi-lambda-clause
chi-body chi-macro chi-application chi-expr chi chi-top syntax-type
chi-when-list chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))
mod1182)))) tmp1176) (syntax-violation #f "source expression failed to match
any pattern" tmp1175))) ($sc-dispatch tmp1175 (quote (any each-any any)))))
e1174))) (global-extend111 (quote core) (quote if) (lambda (e1185 r1186 w1187
s1188 mod1189) ((lambda (tmp1190) ((lambda (tmp1191) (if tmp1191 (apply (lambda
(_1192 test1193 then1194) (build-conditional82 s1188 (chi149 test1193 r1186
w1187 mod1189) (chi149 then1194 r1186 w1187 mod1189) (build-void80 #f)))
tmp1191) ((lambda (tmp1195) (if tmp1195 (apply (lambda (_1196 test1197 then1198
else1199) (build-conditional82 s1188 (chi149 test1197 r1186 w1187 mod1189)
(chi149 then1198 r1186 w1187 mod1189) (chi149 else1199 r1186 w1187 mod1189)))
tmp1195) (syntax-violation #f "source expression failed to match any pattern"
tmp1190))) ($sc-dispatch tmp1190 (quote (any any any any)))))) ($sc-dispatch
tmp1190 (quote (any any any))))) e1185))) (global-extend111 (quote begin)
(quote begin) (quote ())) (global-extend111 (quote define) (quote define)
(quote ())) (global-extend111 (quote define-syntax) (quote define-syntax)
(quote ())) (global-extend111 (quote eval-when) (quote eval-when) (quote ()))
(global-extend111 (quote core) (quote syntax-case) (letrec
((gen-syntax-case1203 (lambda (x1204 keys1205 clauses1206 r1207 mod1208) (if
(null? clauses1206) (build-application81 #f (build-primref90 #f (quote
syntax-violation)) (list (build-data91 #f #f) (build-data91 #f "source
expression failed to match any pattern") x1204)) ((lambda (tmp1209) ((lambda
(tmp1210) (if tmp1210 (apply (lambda (pat1211 exp1212) (if (if (id?113 pat1211)
(and-map (lambda (x1213) (not (free-id=?136 pat1211 x1213))) (cons (quote
#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) #("i" "i"))
#(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top)
(top)) #("i" "i" "i" "i" "i")) #(ribcage (gen-syntax-case gen-clause
build-dispatch-call convert-pattern) ((top) (top) (top) (top)) ("i" "i" "i"
"i")) #(ribcage (lambda-var-list gen-var strip strip-annotation ellipsis?
chi-void eval-local-transformer chi-local-syntax chi-lambda-clause chi-body
chi-macro chi-application chi-expr chi chi-top syntax-type chi-when-list
chi-install-global chi-top-sequence chi-sequence source-wrap wrap
bound-id-member? distinct-bound-ids? valid-bound-ids? bound-id=? free-id=?
id-var-name same-marks? join-marks join-wraps smart-append make-binding-wrap
extend-ribcage! make-empty-ribcage new-mark anti-mark the-anti-mark top-marked?
top-wrap empty-wrap set-ribcage-labels! set-ribcage-marks!
set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage?
make-ribcage gen-labels gen-label make-rename rename-marks rename-new
rename-old subst-rename? wrap-subst wrap-marks make-wrap id-sym-name&marks
id-sym-name id? nonsymbol-id? global-extend lookup macros-only-env
extend-var-env extend-env null-env binding-value binding-type make-binding
arg-check source-annotation no-source unannotate set-syntax-object-module!
set-syntax-object-wrap! set-syntax-object-expression! syntax-object-module
syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object
build-lexical-var build-letrec build-named-let build-let build-sequence
build-data build-primref build-lambda build-global-definition
build-global-assignment build-global-reference analyze-variable
build-lexical-assignment build-lexical-reference build-conditional
build-application build-void get-global-definition-hook
put-global-definition-hook gensym-hook local-eval-hook top-level-eval-hook fx<
fx= fx- fx+ *mode* noexpand) ((top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top))
("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i"
"i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(ribcage
(define-structure and-map*) ((top) (top)) ("i" "i"))) (hygiene guile)))
keys1205)) #f) (let ((labels1214 (list (gen-label118))) (var1215 (gen-var161
pat1211))) (build-application81 #f (build-lambda89 #f (list (syntax->datum
pat1211)) (list var1215) #f (chi149 exp1212 (extend-env107 labels1214 (list
(cons (quote syntax) (cons var1215 0))) r1207) (make-binding-wrap130 (list
pat1211) labels1214 (quote (()))) mod1208)) (list x1204))) (gen-clause1202
x1204 keys1205 (cdr clauses1206) r1207 pat1211 #t exp1212 mod1208))) tmp1210)
((lambda (tmp1216) (if tmp1216 (apply (lambda (pat1217 fender1218 exp1219)
(gen-clause1202 x1204 keys1205 (cdr clauses1206) r1207 pat1217 fender1218
exp1219 mod1208)) tmp1216) ((lambda (_1220) (syntax-violation (quote
syntax-case) "invalid clause" (car clauses1206))) tmp1209))) ($sc-dispatch
tmp1209 (quote (any any any)))))) ($sc-dispatch tmp1209 (quote (any any)))))
(car clauses1206))))) (gen-clause1202 (lambda (x1221 keys1222 clauses1223 r1224
pat1225 fender1226 exp1227 mod1228) (call-with-values (lambda ()
(convert-pattern1200 pat1225 keys1222)) (lambda (p1229 pvars1230) (if (not
(distinct-bound-ids?139 (map car pvars1230))) (syntax-violation (quote
syntax-case) "duplicate pattern variable" pat1225) (if (not (and-map (lambda
(x1231) (not (ellipsis?158 (car x1231)))) pvars1230)) (syntax-violation (quote
syntax-case) "misplaced ellipsis" pat1225) (let ((y1232 (gen-var161 (quote
tmp)))) (build-application81 #f (build-lambda89 #f (list (quote tmp)) (list
y1232) #f (let ((y1233 (build-lexical-reference83 (quote value) #f (quote tmp)
y1232))) (build-conditional82 #f ((lambda (tmp1234) ((lambda (tmp1235) (if
tmp1235 (apply (lambda () y1233) tmp1235) ((lambda (_1236) (build-conditional82
#f y1233 (build-dispatch-call1201 pvars1230 fender1226 y1233 r1224 mod1228)
(build-data91 #f #f))) tmp1234))) ($sc-dispatch tmp1234 (quote #(atom #t)))))
fender1226) (build-dispatch-call1201 pvars1230 exp1227 y1233 r1224 mod1228)
(gen-syntax-case1203 x1221 keys1222 clauses1223 r1224 mod1228)))) (list (if
(eq? p1229 (quote any)) (build-application81 #f (build-primref90 #f (quote
list)) (list x1221)) (build-application81 #f (build-primref90 #f (quote
$sc-dispatch)) (list x1221 (build-data91 #f p1229)))))))))))))
(build-dispatch-call1201 (lambda (pvars1237 exp1238 y1239 r1240 mod1241) (let
((ids1242 (map car pvars1237)) (levels1243 (map cdr pvars1237))) (let
((labels1244 (gen-labels119 ids1242)) (new-vars1245 (map gen-var161 ids1242)))
(build-application81 #f (build-primref90 #f (quote apply)) (list
(build-lambda89 #f (map syntax->datum ids1242) new-vars1245 #f (chi149 exp1238
(extend-env107 labels1244 (map (lambda (var1246 level1247) (cons (quote syntax)
(cons var1246 level1247))) new-vars1245 (map cdr pvars1237)) r1240)
(make-binding-wrap130 ids1242 labels1244 (quote (()))) mod1241)) y1239))))))
(convert-pattern1200 (lambda (pattern1248 keys1249) (letrec ((cvt1250 (lambda
(p1251 n1252 ids1253) (if (id?113 p1251) (if (bound-id-member?140 p1251
keys1249) (values (vector (quote free-id) p1251) ids1253) (values (quote any)
(cons (cons p1251 n1252) ids1253))) ((lambda (tmp1254) ((lambda (tmp1255) (if
(if tmp1255 (apply (lambda (x1256 dots1257) (ellipsis?158 dots1257)) tmp1255)
#f) (apply (lambda (x1258 dots1259) (call-with-values (lambda () (cvt1250 x1258
(fx+72 n1252 1) ids1253)) (lambda (p1260 ids1261) (values (if (eq? p1260 (quote
any)) (quote each-any) (vector (quote each) p1260)) ids1261)))) tmp1255)
((lambda (tmp1262) (if tmp1262 (apply (lambda (x1263 y1264) (call-with-values
(lambda () (cvt1250 y1264 n1252 ids1253)) (lambda (y1265 ids1266)
(call-with-values (lambda () (cvt1250 x1263 n1252 ids1266)) (lambda (x1267
ids1268) (values (cons x1267 y1265) ids1268)))))) tmp1262) ((lambda (tmp1269)
(if tmp1269 (apply (lambda () (values (quote ()) ids1253)) tmp1269) ((lambda
(tmp1270) (if tmp1270 (apply (lambda (x1271) (call-with-values (lambda ()
(cvt1250 x1271 n1252 ids1253)) (lambda (p1273 ids1274) (values (vector (quote
vector) p1273) ids1274)))) tmp1270) ((lambda (x1275) (values (vector (quote
atom) (strip160 p1251 (quote (())))) ids1253)) tmp1254))) ($sc-dispatch tmp1254
(quote #(vector each-any)))))) ($sc-dispatch tmp1254 (quote ())))))
($sc-dispatch tmp1254 (quote (any . any)))))) ($sc-dispatch tmp1254 (quote (any
any))))) p1251))))) (cvt1250 pattern1248 0 (quote ())))))) (lambda (e1276 r1277
w1278 s1279 mod1280) (let ((e1281 (source-wrap142 e1276 w1278 s1279 mod1280)))
((lambda (tmp1282) ((lambda (tmp1283) (if tmp1283 (apply (lambda (_1284 val1285
key1286 m1287) (if (and-map (lambda (x1288) (if (id?113 x1288) (not
(ellipsis?158 x1288)) #f)) key1286) (let ((x1290 (gen-var161 (quote tmp))))
(build-application81 s1279 (build-lambda89 #f (list (quote tmp)) (list x1290)
#f (gen-syntax-case1203 (build-lexical-reference83 (quote value) #f (quote tmp)
x1290) key1286 m1287 r1277 mod1280)) (list (chi149 val1285 r1277 (quote (()))
mod1280)))) (syntax-violation (quote syntax-case) "invalid literals list"
e1281))) tmp1283) (syntax-violation #f "source expression failed to match any
pattern" tmp1282))) ($sc-dispatch tmp1282 (quote (any any each-any .
each-any))))) e1281))))) (set! sc-expand (lambda (x1294 . rest1293) (if (if
(pair? x1294) (equal? (car x1294) noexpand70) #f) (cadr x1294) (let ((m1295 (if
(null? rest1293) (quote e) (car rest1293))) (esew1296 (if (let ((t1297 (null?
rest1293))) (if t1297 t1297 (null? (cdr rest1293)))) (quote (eval)) (cadr
rest1293)))) (with-fluid* *mode*71 m1295 (lambda () (chi-top148 x1294 (quote
()) (quote ((top))) m1295 esew1296 (cons (quote hygiene) (module-name
(current-module)))))))))) (set! identifier? (lambda (x1298) (nonsymbol-id?112
x1298))) (set! datum->syntax (lambda (id1299 datum1300) (make-syntax-object96
datum1300 (syntax-object-wrap99 id1299) #f))) (set! syntax->datum (lambda
(x1301) (strip160 x1301 (quote (()))))) (set! generate-temporaries (lambda
(ls1302) (begin (let ((x1303 ls1302)) (if (not (list? x1303)) (syntax-violation
(quote generate-temporaries) "invalid argument" x1303) (if #f #f))) (map
(lambda (x1304) (wrap141 (gensym) (quote ((top))) #f)) ls1302)))) (set!
free-identifier=? (lambda (x1305 y1306) (begin (let ((x1307 x1305)) (if (not
(nonsymbol-id?112 x1307)) (syntax-violation (quote free-identifier=?) "invalid
argument" x1307) (if #f #f))) (let ((x1308 y1306)) (if (not (nonsymbol-id?112
x1308)) (syntax-violation (quote free-identifier=?) "invalid argument" x1308)
(if #f #f))) (free-id=?136 x1305 y1306)))) (set! bound-identifier=? (lambda
(x1309 y1310) (begin (let ((x1311 x1309)) (if (not (nonsymbol-id?112 x1311))
(syntax-violation (quote bound-identifier=?) "invalid argument" x1311) (if #f
#f))) (let ((x1312 y1310)) (if (not (nonsymbol-id?112 x1312)) (syntax-violation
(quote bound-identifier=?) "invalid argument" x1312) (if #f #f)))
(bound-id=?137 x1309 y1310)))) (set! syntax-violation (lambda (who1316
message1315 form1314 . subform1313) (begin (let ((x1317 who1316)) (if (not
((lambda (x1318) (let ((t1319 (not x1318))) (if t1319 t1319 (let ((t1320
(string? x1318))) (if t1320 t1320 (symbol? x1318)))))) x1317))
(syntax-violation (quote syntax-violation) "invalid argument" x1317) (if #f
#f))) (let ((x1321 message1315)) (if (not (string? x1321)) (syntax-violation
(quote syntax-violation) "invalid argument" x1321) (if #f #f))) (scm-error
(quote syntax-error) (quote sc-expand) (string-append (if who1316 "~a: " "")
"~a " (if (null? subform1313) "in ~a" "in subform `~s' of `~s'")) (let
((tail1322 (cons message1315 (map (lambda (x1323) (strip160 x1323 (quote
(())))) (append subform1313 (list form1314)))))) (if who1316 (cons who1316
tail1322) tail1322)) #f)))) (letrec ((match1328 (lambda (e1329 p1330 w1331
r1332 mod1333) (if (not r1332) #f (if (eq? p1330 (quote any)) (cons (wrap141
e1329 w1331 mod1333) r1332) (if (syntax-object?97 e1329) (match*1327 (let
((e1334 (syntax-object-expression98 e1329))) (if (annotation? e1334)
(annotation-expression e1334) e1334)) p1330 (join-wraps132 w1331
(syntax-object-wrap99 e1329)) r1332 (syntax-object-module100 e1329))
(match*1327 (let ((e1335 e1329)) (if (annotation? e1335) (annotation-expression
e1335) e1335)) p1330 w1331 r1332 mod1333)))))) (match*1327 (lambda (e1336 p1337
w1338 r1339 mod1340) (if (null? p1337) (if (null? e1336) r1339 #f) (if (pair?
p1337) (if (pair? e1336) (match1328 (car e1336) (car p1337) w1338 (match1328
(cdr e1336) (cdr p1337) w1338 r1339 mod1340) mod1340) #f) (if (eq? p1337 (quote
each-any)) (let ((l1341 (match-each-any1325 e1336 w1338 mod1340))) (if l1341
(cons l1341 r1339) #f)) (let ((atom-key1342 (vector-ref p1337 0))) (if (memv
atom-key1342 (quote (each))) (if (null? e1336) (match-empty1326 (vector-ref
p1337 1) r1339) (let ((l1343 (match-each1324 e1336 (vector-ref p1337 1) w1338
mod1340))) (if l1343 (letrec ((collect1344 (lambda (l1345) (if (null? (car
l1345)) r1339 (cons (map car l1345) (collect1344 (map cdr l1345)))))))
(collect1344 l1343)) #f))) (if (memv atom-key1342 (quote (free-id))) (if
(id?113 e1336) (if (free-id=?136 (wrap141 e1336 w1338 mod1340) (vector-ref
p1337 1)) r1339 #f) #f) (if (memv atom-key1342 (quote (atom))) (if (equal?
(vector-ref p1337 1) (strip160 e1336 w1338)) r1339 #f) (if (memv atom-key1342
(quote (vector))) (if (vector? e1336) (match1328 (vector->list e1336)
(vector-ref p1337 1) w1338 r1339 mod1340) #f) (if #f #f)))))))))))
(match-empty1326 (lambda (p1346 r1347) (if (null? p1346) r1347 (if (eq? p1346
(quote any)) (cons (quote ()) r1347) (if (pair? p1346) (match-empty1326 (car
p1346) (match-empty1326 (cdr p1346) r1347)) (if (eq? p1346 (quote each-any))
(cons (quote ()) r1347) (let ((atom-key1348 (vector-ref p1346 0))) (if (memv
atom-key1348 (quote (each))) (match-empty1326 (vector-ref p1346 1) r1347) (if
(memv atom-key1348 (quote (free-id atom))) r1347 (if (memv atom-key1348 (quote
(vector))) (match-empty1326 (vector-ref p1346 1) r1347) (if #f #f)))))))))))
(match-each-any1325 (lambda (e1349 w1350 mod1351) (if (annotation? e1349)
(match-each-any1325 (annotation-expression e1349) w1350 mod1351) (if (pair?
e1349) (let ((l1352 (match-each-any1325 (cdr e1349) w1350 mod1351))) (if l1352
(cons (wrap141 (car e1349) w1350 mod1351) l1352) #f)) (if (null? e1349) (quote
()) (if (syntax-object?97 e1349) (match-each-any1325
(syntax-object-expression98 e1349) (join-wraps132 w1350 (syntax-object-wrap99
e1349)) mod1351) #f)))))) (match-each1324 (lambda (e1353 p1354 w1355 mod1356)
(if (annotation? e1353) (match-each1324 (annotation-expression e1353) p1354
w1355 mod1356) (if (pair? e1353) (let ((first1357 (match1328 (car e1353) p1354
w1355 (quote ()) mod1356))) (if first1357 (let ((rest1358 (match-each1324 (cdr
e1353) p1354 w1355 mod1356))) (if rest1358 (cons first1357 rest1358) #f)) #f))
(if (null? e1353) (quote ()) (if (syntax-object?97 e1353) (match-each1324
(syntax-object-expression98 e1353) p1354 (join-wraps132 w1355
(syntax-object-wrap99 e1353)) (syntax-object-module100 e1353)) #f))))))) (set!
$sc-dispatch (lambda (e1359 p1360) (if (eq? p1360 (quote any)) (list e1359) (if
(syntax-object?97 e1359) (match*1327 (let ((e1361 (syntax-object-expression98
e1359))) (if (annotation? e1361) (annotation-expression e1361) e1361)) p1360
(syntax-object-wrap99 e1359) (quote ()) (syntax-object-module100 e1359))
(match*1327 (let ((e1362 e1359)) (if (annotation? e1362) (annotation-expression
e1362) e1362)) p1360 (quote (())) (quote ()) #f)))))))))
+(define with-syntax (make-syncase-macro (quote macro) (lambda (x1363) ((lambda
(tmp1364) ((lambda (tmp1365) (if tmp1365 (apply (lambda (_1366 e11367 e21368)
(cons (quote #(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top)
(top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) (cons e11367 e21368))) tmp1365) ((lambda (tmp1370) (if
tmp1370 (apply (lambda (_1371 out1372 in1373 e11374 e21375) (list (quote
#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top)
(top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x)
#((top)) #("i"))) (hygiene guile))) in1373 (quote ()) (list out1372 (cons
(quote #(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top)
(top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x)
#((top)) #("i"))) (hygiene guile))) (cons e11374 e21375))))) tmp1370) ((lambda
(tmp1377) (if tmp1377 (apply (lambda (_1378 out1379 in1380 e11381 e21382) (list
(quote #(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top)
(top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage
#(x) #((top)) #("i"))) (hygiene guile))) (cons (quote #(syntax-object list
((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i"
"i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile))) in1380) (quote ()) (list out1379 (cons (quote #(syntax-object begin
((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i"
"i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile))) (cons e11381 e21382))))) tmp1377) (syntax-violation #f "source
expression failed to match any pattern" tmp1364))) ($sc-dispatch tmp1364 (quote
(any #(each (any any)) any . each-any)))))) ($sc-dispatch tmp1364 (quote (any
((any any)) any . each-any)))))) ($sc-dispatch tmp1364 (quote (any () any .
each-any))))) x1363))))
+(define syntax-rules (make-syncase-macro (quote macro) (lambda (x1386)
((lambda (tmp1387) ((lambda (tmp1388) (if tmp1388 (apply (lambda (_1389 k1390
keyword1391 pattern1392 template1393) (list (quote #(syntax-object lambda
((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top)
(top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top))
#("i"))) (hygiene guile))) (quote (#(syntax-object x ((top) #(ribcage #(_ k
keyword pattern template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i"
"i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))))
(cons (quote #(syntax-object syntax-case ((top) #(ribcage #(_ k keyword pattern
template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage ()
() ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))) (cons (quote
#(syntax-object x ((top) #(ribcage #(_ k keyword pattern template) #((top)
(top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage
#(x) #((top)) #("i"))) (hygiene guile))) (cons k1390 (map (lambda (tmp1396
tmp1395) (list (cons (quote #(syntax-object dummy ((top) #(ribcage #(_ k
keyword pattern template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i"
"i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)))
tmp1395) (list (quote #(syntax-object syntax ((top) #(ribcage #(_ k keyword
pattern template) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i"))
#(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)))
tmp1396))) template1393 pattern1392)))))) tmp1388) (syntax-violation #f "source
expression failed to match any pattern" tmp1387))) ($sc-dispatch tmp1387 (quote
(any each-any . #(each ((any . any) any))))))) x1386))))
+(define let* (make-extended-syncase-macro (module-ref (current-module) (quote
let*)) (quote macro) (lambda (x1397) ((lambda (tmp1398) ((lambda (tmp1399) (if
(if tmp1399 (apply (lambda (let*1400 x1401 v1402 e11403 e21404) (and-map
identifier? x1401)) tmp1399) #f) (apply (lambda (let*1406 x1407 v1408 e11409
e21410) (letrec ((f1411 (lambda (bindings1412) (if (null? bindings1412) (cons
(quote #(syntax-object let ((top) #(ribcage () () ()) #(ribcage #(f bindings)
#((top) (top)) #("i" "i")) #(ribcage #(let* x v e1 e2) #((top) (top) (top)
(top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x)
#((top)) #("i"))) (hygiene guile))) (cons (quote ()) (cons e11409 e21410)))
((lambda (tmp1416) ((lambda (tmp1417) (if tmp1417 (apply (lambda (body1418
binding1419) (list (quote #(syntax-object let ((top) #(ribcage #(body binding)
#((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(f bindings) #((top)
(top)) #("i" "i")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top))
#("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) (list binding1419) body1418)) tmp1417) (syntax-violation #f
"source expression failed to match any pattern" tmp1416))) ($sc-dispatch
tmp1416 (quote (any any))))) (list (f1411 (cdr bindings1412)) (car
bindings1412))))))) (f1411 (map list x1407 v1408)))) tmp1399) (syntax-violation
#f "source expression failed to match any pattern" tmp1398))) ($sc-dispatch
tmp1398 (quote (any #(each (any any)) any . each-any))))) x1397))))
+(define do (make-extended-syncase-macro (module-ref (current-module) (quote
do)) (quote macro) (lambda (orig-x1420) ((lambda (tmp1421) ((lambda (tmp1422)
(if tmp1422 (apply (lambda (_1423 var1424 init1425 step1426 e01427 e11428
c1429) ((lambda (tmp1430) ((lambda (tmp1431) (if tmp1431 (apply (lambda
(step1432) ((lambda (tmp1433) ((lambda (tmp1434) (if tmp1434 (apply (lambda ()
(list (quote #(syntax-object let ((top) #(ribcage #(step) #((top)) #("i"))
#(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)
(top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x)
#((top)) #("i"))) (hygiene guile))) (quote #(syntax-object doloop ((top)
#(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top)
(top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage
() () ()) #(ribcage #(orig-x) #((top)) #("i"))) (hygiene guile))) (map list
var1424 init1425) (list (quote #(syntax-object if ((top) #(ribcage #(step)
#((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top)
(top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ())
#(ribcage #(orig-x) #((top)) #("i"))) (hygiene guile))) (list (quote
#(syntax-object not ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var
init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i"
"i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")))
(hygiene guile))) e01427) (cons (quote #(syntax-object begin ((top) #(ribcage
#(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top)
(top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () ()
()) #(ribcage #(orig-x) #((top)) #("i"))) (hygiene guile))) (append c1429 (list
(cons (quote #(syntax-object doloop ((top) #(ribcage #(step) #((top)) #("i"))
#(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top)
(top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x)
#((top)) #("i"))) (hygiene guile))) step1432))))))) tmp1434) ((lambda (tmp1439)
(if tmp1439 (apply (lambda (e11440 e21441) (list (quote #(syntax-object let
((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top))
#("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top)
(top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage
#(orig-x) #((top)) #("i"))) (hygiene guile))) (quote #(syntax-object doloop
((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top))
#("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top)
(top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage
#(orig-x) #((top)) #("i"))) (hygiene guile))) (map list var1424 init1425) (list
(quote #(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i"))
#(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top)
(top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage
() () ()) #(ribcage #(orig-x) #((top)) #("i"))) (hygiene guile))) e01427 (cons
(quote #(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i"
"i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c)
#((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i"))
#(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i"))) (hygiene guile)))
(cons e11440 e21441)) (cons (quote #(syntax-object begin ((top) #(ribcage #(e1
e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_
var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i"
"i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")))
(hygiene guile))) (append c1429 (list (cons (quote #(syntax-object doloop
((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top))
#("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top)
(top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage
#(orig-x) #((top)) #("i"))) (hygiene guile))) step1432))))))) tmp1439)
(syntax-violation #f "source expression failed to match any pattern" tmp1433)))
($sc-dispatch tmp1433 (quote (any . each-any)))))) ($sc-dispatch tmp1433 (quote
())))) e11428)) tmp1431) (syntax-violation #f "source expression failed to
match any pattern" tmp1430))) ($sc-dispatch tmp1430 (quote each-any)))) (map
(lambda (v1448 s1449) ((lambda (tmp1450) ((lambda (tmp1451) (if tmp1451 (apply
(lambda () v1448) tmp1451) ((lambda (tmp1452) (if tmp1452 (apply (lambda
(e1453) e1453) tmp1452) ((lambda (_1454) (syntax-violation (quote do) "bad step
expression" orig-x1420 s1449)) tmp1450))) ($sc-dispatch tmp1450 (quote
(any)))))) ($sc-dispatch tmp1450 (quote ())))) s1449)) var1424 step1426)))
tmp1422) (syntax-violation #f "source expression failed to match any pattern"
tmp1421))) ($sc-dispatch tmp1421 (quote (any #(each (any any . any)) (any .
each-any) . each-any))))) orig-x1420))))
+(define quasiquote (make-extended-syncase-macro (module-ref (current-module)
(quote quasiquote)) (quote macro) (letrec ((quasicons1457 (lambda (x1461 y1462)
((lambda (tmp1463) ((lambda (tmp1464) (if tmp1464 (apply (lambda (x1465 y1466)
((lambda (tmp1467) ((lambda (tmp1468) (if tmp1468 (apply (lambda (dy1469)
((lambda (tmp1470) ((lambda (tmp1471) (if tmp1471 (apply (lambda (dx1472) (list
(quote #(syntax-object quote ((top) #(ribcage #(dx) #((top)) #("i")) #(ribcage
#(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage ()
() ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i"))
#(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top))
#("i" "i" "i" "i"))) (hygiene guile))) (cons dx1472 dy1469))) tmp1471) ((lambda
(_1473) (if (null? dy1469) (list (quote #(syntax-object list ((top) #(ribcage
#(_) #((top)) #("i")) #(ribcage #(dy) #((top)) #("i")) #(ribcage #(x y) #((top)
(top)) #("i" "i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y)
#((top) (top)) #("i" "i")) #(ribcage #(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) x1465) (list
(quote #(syntax-object cons ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage
#(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage ()
() ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i"))
#(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top))
#("i" "i" "i" "i"))) (hygiene guile))) x1465 y1466))) tmp1470))) ($sc-dispatch
tmp1470 (quote (#(free-id #(syntax-object quote ((top) #(ribcage #(dy) #((top))
#("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ())
#(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage
#(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i"
"i" "i"))) (hygiene guile))) any))))) x1465)) tmp1468) ((lambda (tmp1474) (if
tmp1474 (apply (lambda (stuff1475) (cons (quote #(syntax-object list ((top)
#(ribcage #(stuff) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i"))
#(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i"
"i")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top)
(top)) #("i" "i" "i" "i"))) (hygiene guile))) (cons x1465 stuff1475))) tmp1474)
((lambda (else1476) (list (quote #(syntax-object cons ((top) #(ribcage #(else)
#((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () ()
()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage
#(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i"
"i" "i"))) (hygiene guile))) x1465 y1466)) tmp1467))) ($sc-dispatch tmp1467
(quote (#(free-id #(syntax-object list ((top) #(ribcage #(x y) #((top) (top))
#("i" "i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top)
(top)) #("i" "i")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top)
(top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) . any))))))
($sc-dispatch tmp1467 (quote (#(free-id #(syntax-object quote ((top) #(ribcage
#(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage () () ())
#(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(quasicons quasiappend
quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene
guile))) any))))) y1466)) tmp1464) (syntax-violation #f "source expression
failed to match any pattern" tmp1463))) ($sc-dispatch tmp1463 (quote (any
any))))) (list x1461 y1462)))) (quasiappend1458 (lambda (x1477 y1478) ((lambda
(tmp1479) ((lambda (tmp1480) (if tmp1480 (apply (lambda (x1481 y1482) ((lambda
(tmp1483) ((lambda (tmp1484) (if tmp1484 (apply (lambda () x1481) tmp1484)
((lambda (_1485) (list (quote #(syntax-object append ((top) #(ribcage #(_)
#((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () ()
()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage
#(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i"
"i" "i"))) (hygiene guile))) x1481 y1482)) tmp1483))) ($sc-dispatch tmp1483
(quote (#(free-id #(syntax-object quote ((top) #(ribcage #(x y) #((top) (top))
#("i" "i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top)
(top)) #("i" "i")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top)
(top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) ()))))) y1482))
tmp1480) (syntax-violation #f "source expression failed to match any pattern"
tmp1479))) ($sc-dispatch tmp1479 (quote (any any))))) (list x1477 y1478))))
(quasivector1459 (lambda (x1486) ((lambda (tmp1487) ((lambda (x1488) ((lambda
(tmp1489) ((lambda (tmp1490) (if tmp1490 (apply (lambda (x1491) (list (quote
#(syntax-object quote ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage #(x)
#((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x)
#((top)) #("i")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top)
(top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) (list->vector
x1491))) tmp1490) ((lambda (tmp1493) (if tmp1493 (apply (lambda (x1494) (cons
(quote #(syntax-object vector ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage
#(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x)
#((top)) #("i")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top)
(top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) x1494)) tmp1493)
((lambda (_1496) (list (quote #(syntax-object list->vector ((top) #(ribcage
#(_) #((top)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ())
#(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(quasicons
quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i")))
(hygiene guile))) x1488)) tmp1489))) ($sc-dispatch tmp1489 (quote (#(free-id
#(syntax-object list ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ())
#(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(quasicons
quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i")))
(hygiene guile))) . each-any)))))) ($sc-dispatch tmp1489 (quote (#(free-id
#(syntax-object quote ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage () ()
()) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(quasicons
quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i")))
(hygiene guile))) each-any))))) x1488)) tmp1487)) x1486))) (quasi1460 (lambda
(p1497 lev1498) ((lambda (tmp1499) ((lambda (tmp1500) (if tmp1500 (apply
(lambda (p1501) (if (= lev1498 0) p1501 (quasicons1457 (quote (#(syntax-object
quote ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p
lev) #((top) (top)) #("i" "i")) #(ribcage #(quasicons quasiappend quasivector
quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))
#(syntax-object unquote ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () ()
()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(quasicons
quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i")))
(hygiene guile)))) (quasi1460 (list p1501) (- lev1498 1))))) tmp1500) ((lambda
(tmp1502) (if (if tmp1502 (apply (lambda (args1503) (= lev1498 0)) tmp1502) #f)
(apply (lambda (args1504) (syntax-violation (quote unquote) "unquote takes
exactly one argument" p1497 (cons (quote #(syntax-object unquote ((top)
#(ribcage #(args) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev)
#((top) (top)) #("i" "i")) #(ribcage #(quasicons quasiappend quasivector quasi)
#((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) args1504)))
tmp1502) ((lambda (tmp1505) (if tmp1505 (apply (lambda (p1506 q1507) (if (=
lev1498 0) (quasiappend1458 p1506 (quasi1460 q1507 lev1498)) (quasicons1457
(quasicons1457 (quote (#(syntax-object quote ((top) #(ribcage #(p q) #((top)
(top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i"
"i")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top)
(top)) #("i" "i" "i" "i"))) (hygiene guile)) #(syntax-object unquote-splicing
((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ())
#(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(quasicons quasiappend
quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene
guile)))) (quasi1460 (list p1506) (- lev1498 1))) (quasi1460 q1507 lev1498))))
tmp1505) ((lambda (tmp1508) (if (if tmp1508 (apply (lambda (args1509 q1510) (=
lev1498 0)) tmp1508) #f) (apply (lambda (args1511 q1512) (syntax-violation
(quote unquote-splicing) "unquote-splicing takes exactly one argument" p1497
(cons (quote #(syntax-object unquote-splicing ((top) #(ribcage #(args q)
#((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top)
(top)) #("i" "i")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top)
(top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) args1511))) tmp1508)
((lambda (tmp1513) (if tmp1513 (apply (lambda (p1514) (quasicons1457 (quote
(#(syntax-object quote ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () ()
()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(quasicons
quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i")))
(hygiene guile)) #(syntax-object quasiquote ((top) #(ribcage #(p) #((top))
#("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i"))
#(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top))
#("i" "i" "i" "i"))) (hygiene guile)))) (quasi1460 (list p1514) (+ lev1498
1)))) tmp1513) ((lambda (tmp1515) (if tmp1515 (apply (lambda (p1516 q1517)
(quasicons1457 (quasi1460 p1516 lev1498) (quasi1460 q1517 lev1498))) tmp1515)
((lambda (tmp1518) (if tmp1518 (apply (lambda (x1519) (quasivector1459
(quasi1460 x1519 lev1498))) tmp1518) ((lambda (p1521) (list (quote
#(syntax-object quote ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () ()
()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(quasicons
quasiappend quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i")))
(hygiene guile))) p1521)) tmp1499))) ($sc-dispatch tmp1499 (quote #(vector
each-any)))))) ($sc-dispatch tmp1499 (quote (any . any)))))) ($sc-dispatch
tmp1499 (quote (#(free-id #(syntax-object quasiquote ((top) #(ribcage () () ())
#(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(quasicons quasiappend
quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene
guile))) any)))))) ($sc-dispatch tmp1499 (quote ((#(free-id #(syntax-object
unquote-splicing ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top))
#("i" "i")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top)
(top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) . any) . any))))))
($sc-dispatch tmp1499 (quote ((#(free-id #(syntax-object unquote-splicing
((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i"))
#(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top))
#("i" "i" "i" "i"))) (hygiene guile))) any) . any)))))) ($sc-dispatch tmp1499
(quote (#(free-id #(syntax-object unquote ((top) #(ribcage () () ()) #(ribcage
#(p lev) #((top) (top)) #("i" "i")) #(ribcage #(quasicons quasiappend
quasivector quasi) #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene
guile))) . any)))))) ($sc-dispatch tmp1499 (quote (#(free-id #(syntax-object
unquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i"
"i")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top)
(top)) #("i" "i" "i" "i"))) (hygiene guile))) any))))) p1497)))) (lambda
(x1522) ((lambda (tmp1523) ((lambda (tmp1524) (if tmp1524 (apply (lambda (_1525
e1526) (quasi1460 e1526 0)) tmp1524) (syntax-violation #f "source expression
failed to match any pattern" tmp1523))) ($sc-dispatch tmp1523 (quote (any
any))))) x1522)))))
+(define include (make-syncase-macro (quote macro) (lambda (x1527) (letrec
((read-file1528 (lambda (fn1529 k1530) (let ((p1531 (open-input-file fn1529)))
(letrec ((f1532 (lambda (x1533) (if (eof-object? x1533) (begin
(close-input-port p1531) (quote ())) (cons (datum->syntax k1530 x1533) (f1532
(read p1531))))))) (f1532 (read p1531))))))) ((lambda (tmp1534) ((lambda
(tmp1535) (if tmp1535 (apply (lambda (k1536 filename1537) (let ((fn1538
(syntax->datum filename1537))) ((lambda (tmp1539) ((lambda (tmp1540) (if
tmp1540 (apply (lambda (exp1541) (cons (quote #(syntax-object begin ((top)
#(ribcage #(exp) #((top)) #("i")) #(ribcage () () ()) #(ribcage () () ())
#(ribcage #(fn) #((top)) #("i")) #(ribcage #(k filename) #((top) (top)) #("i"
"i")) #(ribcage (read-file) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) exp1541)) tmp1540) (syntax-violation #f "source expression
failed to match any pattern" tmp1539))) ($sc-dispatch tmp1539 (quote
each-any)))) (read-file1528 fn1538 k1536)))) tmp1535) (syntax-violation #f
"source expression failed to match any pattern" tmp1534))) ($sc-dispatch
tmp1534 (quote (any any))))) x1527)))))
+(define unquote (make-syncase-macro (quote macro) (lambda (x1543) ((lambda
(tmp1544) ((lambda (tmp1545) (if tmp1545 (apply (lambda (_1546 e1547)
(syntax-violation (quote unquote) "expression not valid outside of quasiquote"
x1543)) tmp1545) (syntax-violation #f "source expression failed to match any
pattern" tmp1544))) ($sc-dispatch tmp1544 (quote (any any))))) x1543))))
+(define unquote-splicing (make-syncase-macro (quote macro) (lambda (x1548)
((lambda (tmp1549) ((lambda (tmp1550) (if tmp1550 (apply (lambda (_1551 e1552)
(syntax-violation (quote unquote-splicing) "expression not valid outside of
quasiquote" x1548)) tmp1550) (syntax-violation #f "source expression failed to
match any pattern" tmp1549))) ($sc-dispatch tmp1549 (quote (any any)))))
x1548))))
+(define case (make-extended-syncase-macro (module-ref (current-module) (quote
case)) (quote macro) (lambda (x1553) ((lambda (tmp1554) ((lambda (tmp1555) (if
tmp1555 (apply (lambda (_1556 e1557 m11558 m21559) ((lambda (tmp1560) ((lambda
(body1561) (list (quote #(syntax-object let ((top) #(ribcage #(body) #((top))
#("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i"))
#(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))) (list
(list (quote #(syntax-object t ((top) #(ribcage #(body) #((top)) #("i"))
#(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage
() () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))) e1557)) body1561))
tmp1560)) (letrec ((f1562 (lambda (clause1563 clauses1564) (if (null?
clauses1564) ((lambda (tmp1566) ((lambda (tmp1567) (if tmp1567 (apply (lambda
(e11568 e21569) (cons (quote #(syntax-object begin ((top) #(ribcage #(e1 e2)
#((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(f clause clauses)
#((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top)
(top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) (cons e11568 e21569))) tmp1567) ((lambda (tmp1571) (if
tmp1571 (apply (lambda (k1572 e11573 e21574) (list (quote #(syntax-object if
((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage ()
() ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i"))
#(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage
() () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))) (list (quote
#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i"
"i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top))
#("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i"
"i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)))
(quote #(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i"
"i" "i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top)
(top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i"
"i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile))) (list (quote #(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top)
(top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(f clause clauses)
#((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top)
(top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) k1572)) (cons (quote #(syntax-object begin ((top) #(ribcage
#(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage
#(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2)
#((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage
#(x) #((top)) #("i"))) (hygiene guile))) (cons e11573 e21574)))) tmp1571)
((lambda (_1577) (syntax-violation (quote case) "bad clause" x1553 clause1563))
tmp1566))) ($sc-dispatch tmp1566 (quote (each-any any . each-any))))))
($sc-dispatch tmp1566 (quote (#(free-id #(syntax-object else ((top) #(ribcage
() () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i"))
#(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage
() () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))) any .
each-any))))) clause1563) ((lambda (tmp1578) ((lambda (rest1579) ((lambda
(tmp1580) ((lambda (tmp1581) (if tmp1581 (apply (lambda (k1582 e11583 e21584)
(list (quote #(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top)
(top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ())
#(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage
#(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ())
#(ribcage #(x) #((top)) #("i"))) (hygiene guile))) (list (quote #(syntax-object
memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage
#(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(f clause clauses)
#((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top) (top) (top)
(top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) (quote #(syntax-object t ((top) #(ribcage #(k e1 e2) #((top)
(top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () ()
()) #(ribcage #(f clause clauses) #((top) (top) (top)) #("i" "i" "i"))
#(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage
() () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))) (list (quote
#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i"
"i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(f
clause clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2)
#((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage
#(x) #((top)) #("i"))) (hygiene guile))) k1582)) (cons (quote #(syntax-object
begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i"))
#(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(f clause
clauses) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(_ e m1 m2) #((top)
(top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x)
#((top)) #("i"))) (hygiene guile))) (cons e11583 e21584)) rest1579)) tmp1581)
((lambda (_1587) (syntax-violation (quote case) "bad clause" x1553 clause1563))
tmp1580))) ($sc-dispatch tmp1580 (quote (each-any any . each-any)))))
clause1563)) tmp1578)) (f1562 (car clauses1564) (cdr clauses1564))))))) (f1562
m11558 m21559)))) tmp1555) (syntax-violation #f "source expression failed to
match any pattern" tmp1554))) ($sc-dispatch tmp1554 (quote (any any any .
each-any))))) x1553))))
+(define identifier-syntax (make-syncase-macro (quote macro) (lambda (x1588)
((lambda (tmp1589) ((lambda (tmp1590) (if tmp1590 (apply (lambda (_1591 e1592)
(list (quote #(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top))
#("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile))) (quote (#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i"
"i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))))
(list (quote #(syntax-object syntax-case ((top) #(ribcage #(_ e) #((top) (top))
#("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile))) (quote #(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) #("i"
"i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)))
(quote ()) (list (quote #(syntax-object id ((top) #(ribcage #(_ e) #((top)
(top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) (quote (#(syntax-object identifier? ((top) #(ribcage #(_ e)
#((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile)) (#(syntax-object syntax ((top) #(ribcage #(_ e) #((top) (top))
#("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile)) #(syntax-object id ((top) #(ribcage #(_ e) #((top) (top)) #("i" "i"))
#(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile))))) (list
(quote #(syntax-object syntax ((top) #(ribcage #(_ e) #((top) (top)) #("i"
"i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)))
e1592)) (list (cons _1591 (quote (#(syntax-object x ((top) #(ribcage #(_ e)
#((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile)) #(syntax-object ... ((top) #(ribcage #(_ e) #((top) (top))
#("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile))))) (list (quote #(syntax-object syntax ((top) #(ribcage #(_ e) #((top)
(top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile))) (cons e1592 (quote (#(syntax-object x ((top) #(ribcage #(_ e)
#((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")))
(hygiene guile)) #(syntax-object ... ((top) #(ribcage #(_ e) #((top) (top))
#("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene
guile)))))))))) tmp1590) (syntax-violation #f "source expression failed to
match any pattern" tmp1589))) ($sc-dispatch tmp1589 (quote (any any)))))
x1588))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index dc8e93e..0ce74a7 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -2355,12 +2355,22 @@
(syntax p)
(quasicons (syntax (quote unquote))
(quasi (syntax (p)) (- lev 1)))))
+ ((unquote . args)
+ (= lev 0)
+ (syntax-violation 'unquote
+ "unquote takes exactly one argument"
+ p (syntax (unquote . args))))
(((unquote-splicing p) . q)
(if (= lev 0)
(quasiappend (syntax p) (quasi (syntax q) lev))
(quasicons (quasicons (syntax (quote unquote-splicing))
(quasi (syntax (p)) (- lev 1)))
(quasi (syntax q) lev))))
+ (((unquote-splicing . args) . q)
+ (= lev 0)
+ (syntax-violation 'unquote-splicing
+ "unquote-splicing takes exactly one argument"
+ p (syntax (unquote-splicing . args))))
((quasiquote p)
(quasicons (syntax (quote quasiquote))
(quasi (syntax (p)) (+ lev 1))))
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index 2f6eb24..9176a3c 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -21,6 +21,11 @@
:use-module (test-suite lib))
+(define exception:generic-syncase-error
+ (cons 'syntax-error "Source expression failed to match"))
+(define exception:unexpected-syntax
+ (cons 'syntax-error "unexpected syntax"))
+
(define exception:bad-expression
(cons 'syntax-error "Bad expression"))
@@ -67,13 +72,13 @@
(with-test-prefix "Bad argument list"
(pass-if-exception "improper argument list of length 1"
- exception:wrong-num-args
+ exception:generic-syncase-error
(eval '(let ((foo (lambda (x y) #t)))
(foo . 1))
(interaction-environment)))
(pass-if-exception "improper argument list of length 2"
- exception:wrong-num-args
+ exception:generic-syncase-error
(eval '(let ((foo (lambda (x y) #t)))
(foo 1 . 2))
(interaction-environment))))
@@ -88,7 +93,7 @@
;; Fixed on 2001-3-3
(pass-if-exception "empty parentheses \"()\""
- exception:illegal-empty-combination
+ exception:unexpected-syntax
(eval '()
(interaction-environment)))))
hooks/post-receive
--
GNU Guile
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, syncase-in-boot-9, updated. 40b36cfbbe4676f52bd4d6b45ae1642756642907,
Andy Wingo <=