lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
upscheme/scheme-lib/psyntax-expanded.scm

10859 lines
1.3 MiB
Scheme
Raw Permalink Normal View History

adding gensym?, fixing keyword? checking in psyntax library, and more scheme aliases to make it work
2009-08-09 13:05:40 -04:00
;;; psyntax.pp
Consolidate all Lisp files into scheme-* with .scm extension
2019-08-09 08:21:56 -04:00
;;; automatically generated from psyntax.scm
adding gensym?, fixing keyword? checking in psyntax library, and more scheme aliases to make it work
2009-08-09 13:05:40 -04:00
;;; Mon Feb 26 23:22:05 EST 2007
Consolidate all Lisp files into scheme-* with .scm extension
2019-08-09 08:21:56 -04:00
;;; see copyright notice in psyntax.scm
adding gensym?, fixing keyword? checking in psyntax library, and more scheme aliases to make it work
2009-08-09 13:05:40 -04:00
((lambda ()
(letrec ((noexpand62 '"noexpand")
(make-syntax-object63 (lambda (expression2530 wrap2529)
(vector
'syntax-object
expression2530
wrap2529)))
(syntax-object?64 (lambda (x2528)
(if (vector? x2528)
(if (= (vector-length x2528) '3)
(eq? (vector-ref x2528 '0)
'syntax-object)
'#f)
'#f)))
(syntax-object-expression65 (lambda (x2527)
(vector-ref x2527 '1)))
(syntax-object-wrap66 (lambda (x2526)
(vector-ref x2526 '2)))
(set-syntax-object-expression!67 (lambda (x2525 update2524)
(vector-set!
x2525
'1
update2524)))
(set-syntax-object-wrap!68 (lambda (x2523 update2522)
(vector-set!
x2523
'2
update2522)))
(annotation?132 (lambda (x2521) '#f))
(top-level-eval-hook133 (lambda (x2520)
(eval (list noexpand62 x2520))))
(local-eval-hook134 (lambda (x2519)
(eval (list noexpand62 x2519))))
(define-top-level-value-hook135 (lambda (sym2518 val2517)
(top-level-eval-hook133
(list
'define
sym2518
(list 'quote val2517)))))
(error-hook136 (lambda (who2516 why2515 what2514)
(error who2516 '"~a ~s" why2515 what2514)))
(put-cte-hook137 (lambda (symbol2513 val2512)
($sc-put-cte symbol2513 val2512 '*top*)))
(get-global-definition-hook138 (lambda (symbol2511)
(getprop
symbol2511
'*sc-expander*)))
(put-global-definition-hook139 (lambda (symbol2510 x2509)
(if (not x2509)
(remprop
symbol2510
'*sc-expander*)
(putprop
symbol2510
'*sc-expander*
x2509))))
(read-only-binding?140 (lambda (symbol2508) '#f))
(get-import-binding141 (lambda (symbol2507 token2506)
(getprop symbol2507 token2506)))
(update-import-binding!142 (lambda (symbol2504 token2503
p2502)
((lambda (x2505)
(if (not x2505)
(remprop
symbol2504
token2503)
(putprop
symbol2504
token2503
x2505)))
(p2502
(get-import-binding141
symbol2504
token2503)))))
(generate-id143 ((lambda (digits2488)
((lambda (base2490 session-key2489)
(letrec ((make-digit2491 (lambda (x2501)
(string-ref
digits2488
x2501)))
(fmt2492 (lambda (n2495)
((letrec ((fmt2496 (lambda (n2498
a2497)
(if (< n2498
base2490)
(list->string
(cons
(make-digit2491
n2498)
a2497))
((lambda (r2500
rest2499)
(fmt2496
rest2499
(cons
(make-digit2491
r2500)
a2497)))
(modulo
n2498
base2490)
(quotient
n2498
base2490))))))
fmt2496)
n2495
'()))))
((lambda (n2493)
(lambda (name2494)
(begin
(set! n2493 (+ n2493 '1))
(string->symbol
(string-append
session-key2489
(fmt2492 n2493))))))
'-1)))
(string-length digits2488)
'"_"))
'"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!$%&*/:<=>?~_^.+-"))
(built-lambda?217 (lambda (x2487)
(if (pair? x2487)
(eq? (car x2487) 'lambda)
'#f)))
(build-sequence235 (lambda (ae2484 exps2483)
((letrec ((loop2485 (lambda (exps2486)
(if (null?
(cdr exps2486))
(car exps2486)
(if (equal?
(car exps2486)
'(void))
(loop2485
(cdr exps2486))
(cons
'begin
exps2486))))))
loop2485)
exps2483)))
(build-letrec236 (lambda (ae2482 vars2481 val-exps2480
body-exp2479)
(if (null? vars2481)
body-exp2479
(list
'letrec
(map list vars2481 val-exps2480)
body-exp2479))))
(build-body237 (lambda (ae2478 vars2477 val-exps2476
body-exp2475)
(build-letrec236
ae2478
vars2477
val-exps2476
body-exp2475)))
(build-top-module238 (lambda (ae2463 types2462 vars2461
val-exps2460 body-exp2459)
(call-with-values
(lambda ()
((letrec ((f2467 (lambda (types2469
vars2468)
(if (null?
types2469)
(values
'()
'()
'())
((lambda (var2470)
(call-with-values
(lambda ()
(f2467
(cdr types2469)
(cdr vars2468)))
(lambda (vars2473
defns2472
sets2471)
(if (eq? (car types2469)
'global)
((lambda (x2474)
(values
(cons
x2474
vars2473)
(cons
(list
'define
var2470
(chi-void518))
defns2472)
(cons
(list
'set!
var2470
x2474)
sets2471)))
(gensym))
(values
(cons
var2470
vars2473)
defns2472
sets2471)))))
(car vars2468))))))
f2467)
types2462
vars2461))
(lambda (vars2466 defns2465 sets2464)
(if (null? defns2465)
(build-letrec236
ae2463
vars2466
val-exps2460
body-exp2459)
(build-sequence235
'#f
(append
defns2465
(list
(build-letrec236
ae2463
vars2466
val-exps2460
(build-sequence235
'#f
(append
sets2464
(list
body-exp2459))))))))))))
(sanitize-binding271 (lambda (b2455)
(if (procedure? b2455)
(cons 'macro b2455)
(if (binding?285 b2455)
(if ((lambda (t2456)
(if (memv
t2456
'(core
macro
macro!
deferred))
(procedure?
(binding-value282
b2455))
(if (memv
t2456
'($module))
(interface?452
(binding-value282
b2455))
(if (memv
t2456
'(lexical))
'#f
(if (memv
t2456
'(global
meta-variable))
(symbol?
(binding-value282
b2455))
(if (memv
t2456
'(syntax))
((lambda (x2457)
(if (pair?
x2457)
(if '#f
((lambda (n2458)
(if (integer?
n2458)
(if (exact?
n2458)
(>= n2458
'0)
'#f)
'#f))
(cdr x2457))
'#f)
'#f))
(binding-value282
b2455))
(if (memv
t2456
'(begin
define
define-syntax
set!
$module-key
$import
eval-when
meta))
(null?
(binding-value282
b2455))
(if (memv
t2456
'(local-syntax))
(boolean?
(binding-value282
b2455))
(if (memv
t2456
'(displaced-lexical))
(eq? (binding-value282
b2455)
'#f)
'#t)))))))))
(binding-type281 b2455))
b2455
'#f)
'#f))))
(binding-type281 car)
(binding-value282 cdr)
(set-binding-type!283 set-car!)
(set-binding-value!284 set-cdr!)
(binding?285 (lambda (x2454)
(if (pair? x2454) (symbol? (car x2454)) '#f)))
(extend-env295 (lambda (label2453 binding2452 r2451)
(cons (cons label2453 binding2452) r2451)))
(extend-env*296 (lambda (labels2450 bindings2449 r2448)
(if (null? labels2450)
r2448
(extend-env*296
(cdr labels2450)
(cdr bindings2449)
(extend-env295
(car labels2450)
(car bindings2449)
r2448)))))
(extend-var-env*297 (lambda (labels2447 vars2446 r2445)
(if (null? labels2447)
r2445
(extend-var-env*297
(cdr labels2447)
(cdr vars2446)
(extend-env295
(car labels2447)
(cons 'lexical (car vars2446))
r2445)))))
(displaced-lexical?298 (lambda (id2442 r2441)
((lambda (n2443)
(if n2443
((lambda (b2444)
(eq? (binding-type281 b2444)
'displaced-lexical))
(lookup301 n2443 r2441))
'#f))
(id-var-name434 id2442 '(())))))
(displaced-lexical-error299 (lambda (id2440)
(syntax-error
id2440
(if (id-var-name434
id2440
'(()))
'"identifier out of context"
'"identifier not visible"))))
(lookup*300 (lambda (x2437 r2436)
((lambda (t2438)
(if t2438
(cdr t2438)
(if (symbol? x2437)
((lambda (t2439)
(if t2439
t2439
(cons 'global x2437)))
(get-global-definition-hook138
x2437))
'(displaced-lexical . #f))))
(assq x2437 r2436))))
(lookup301 (lambda (x2431 r2430)
(letrec ((whack-binding!2432 (lambda (b2435
*b2434)
(begin
(set-binding-type!283
b2435
(binding-type281
*b2434))
(set-binding-value!284
b2435
(binding-value282
*b2434))))))
((lambda (b2433)
(begin
(if (eq? (binding-type281 b2433) 'deferred)
(whack-binding!2432
b2433
(make-transformer-binding302
((binding-value282 b2433))))
(void))
b2433))
(lookup*300 x2431 r2430)))))
(make-transformer-binding302 (lambda (b2428)
((lambda (t2429)
(if t2429
t2429
(syntax-error
b2428
'"invalid transformer")))
(sanitize-binding271 b2428))))
(defer-or-eval-transformer303 (lambda (eval2427 x2426)
(if (built-lambda?217 x2426)
(cons
'deferred
(lambda ()
(eval2427 x2426)))
(make-transformer-binding302
(eval2427 x2426)))))
(global-extend304 (lambda (type2425 sym2424 val2423)
(put-cte-hook137
sym2424
(cons type2425 val2423))))
(nonsymbol-id?305 (lambda (x2421)
(if (syntax-object?64 x2421)
(symbol?
((lambda (e2422)
(if (annotation?132 e2422)
(annotation-expression e2422)
e2422))
(syntax-object-expression65
x2421)))
'#f)))
(id?306 (lambda (x2419)
(if (symbol? x2419)
'#t
(if (syntax-object?64 x2419)
(symbol?
((lambda (e2420)
(if (annotation?132 e2420)
(annotation-expression e2420)
e2420))
(syntax-object-expression65 x2419)))
(if (annotation?132 x2419)
(symbol? (annotation-expression x2419))
'#f)))))
(id-marks312 (lambda (id2418)
(if (syntax-object?64 id2418)
(wrap-marks316
(syntax-object-wrap66 id2418))
(wrap-marks316 '((top))))))
(id-subst313 (lambda (id2417)
(if (syntax-object?64 id2417)
(wrap-subst317
(syntax-object-wrap66 id2417))
(wrap-marks316 '((top))))))
(id-sym-name&marks314 (lambda (x2414 w2413)
(if (syntax-object?64 x2414)
(values
((lambda (e2415)
(if (annotation?132 e2415)
(annotation-expression
e2415)
e2415))
(syntax-object-expression65
x2414))
(join-marks423
(wrap-marks316 w2413)
(wrap-marks316
(syntax-object-wrap66
x2414))))
(values
((lambda (e2416)
(if (annotation?132 e2416)
(annotation-expression
e2416)
e2416))
x2414)
(wrap-marks316 w2413)))))
(make-wrap315 cons)
(wrap-marks316 car)
(wrap-subst317 cdr)
(make-indirect-label355 (lambda (label2412)
(vector 'indirect-label label2412)))
(indirect-label?356 (lambda (x2411)
(if (vector? x2411)
(if (= (vector-length x2411) '2)
(eq? (vector-ref x2411 '0)
'indirect-label)
'#f)
'#f)))
(indirect-label-label357 (lambda (x2410)
(vector-ref x2410 '1)))
(set-indirect-label-label!358 (lambda (x2409 update2408)
(vector-set!
x2409
'1
update2408)))
(gen-indirect-label359 (lambda ()
(make-indirect-label355
(gen-label362))))
(get-indirect-label360 (lambda (x2407)
(indirect-label-label357 x2407)))
(set-indirect-label!361 (lambda (x2406 v2405)
(set-indirect-label-label!358
x2406
v2405)))
(gen-label362 (lambda () (string '#\i)))
(label?363 (lambda (x2402)
((lambda (t2403)
(if t2403
t2403
((lambda (t2404)
(if t2404
t2404
(indirect-label?356 x2402)))
(symbol? x2402))))
(string? x2402))))
(gen-labels364 (lambda (ls2401)
(if (null? ls2401)
'()
(cons
(gen-label362)
(gen-labels364 (cdr ls2401))))))
(make-ribcage365 (lambda (symnames2400 marks2399 labels2398)
(vector
'ribcage
symnames2400
marks2399
labels2398)))
(ribcage?366 (lambda (x2397)
(if (vector? x2397)
(if (= (vector-length x2397) '4)
(eq? (vector-ref x2397 '0) 'ribcage)
'#f)
'#f)))
(ribcage-symnames367 (lambda (x2396) (vector-ref x2396 '1)))
(ribcage-marks368 (lambda (x2395) (vector-ref x2395 '2)))
(ribcage-labels369 (lambda (x2394) (vector-ref x2394 '3)))
(set-ribcage-symnames!370 (lambda (x2393 update2392)
(vector-set! x2393 '1 update2392)))
(set-ribcage-marks!371 (lambda (x2391 update2390)
(vector-set! x2391 '2 update2390)))
(set-ribcage-labels!372 (lambda (x2389 update2388)
(vector-set! x2389 '3 update2388)))
(make-top-ribcage373 (lambda (key2387 mutable?2386)
(vector
'top-ribcage
key2387
mutable?2386)))
(top-ribcage?374 (lambda (x2385)
(if (vector? x2385)
(if (= (vector-length x2385) '3)
(eq? (vector-ref x2385 '0)
'top-ribcage)
'#f)
'#f)))
(top-ribcage-key375 (lambda (x2384) (vector-ref x2384 '1)))
(top-ribcage-mutable?376 (lambda (x2383)
(vector-ref x2383 '2)))
(set-top-ribcage-key!377 (lambda (x2382 update2381)
(vector-set! x2382 '1 update2381)))
(set-top-ribcage-mutable?!378 (lambda (x2380 update2379)
(vector-set!
x2380
'2
update2379)))
(make-import-interface379 (lambda (interface2378
new-marks2377)
(vector
'import-interface
interface2378
new-marks2377)))
(import-interface?380 (lambda (x2376)
(if (vector? x2376)
(if (= (vector-length x2376) '3)
(eq? (vector-ref x2376 '0)
'import-interface)
'#f)
'#f)))
(import-interface-interface381 (lambda (x2375)
(vector-ref x2375 '1)))
(import-interface-new-marks382 (lambda (x2374)
(vector-ref x2374 '2)))
(set-import-interface-interface!383 (lambda (x2373
update2372)
(vector-set!
x2373
'1
update2372)))
(set-import-interface-new-marks!384 (lambda (x2371
update2370)
(vector-set!
x2371
'2
update2370)))
(make-env385 (lambda (top-ribcage2369 wrap2368)
(vector 'env top-ribcage2369 wrap2368)))
(env?386 (lambda (x2367)
(if (vector? x2367)
(if (= (vector-length x2367) '3)
(eq? (vector-ref x2367 '0) 'env)
'#f)
'#f)))
(env-top-ribcage387 (lambda (x2366) (vector-ref x2366 '1)))
(env-wrap388 (lambda (x2365) (vector-ref x2365 '2)))
(set-env-top-ribcage!389 (lambda (x2364 update2363)
(vector-set! x2364 '1 update2363)))
(set-env-wrap!390 (lambda (x2362 update2361)
(vector-set! x2362 '2 update2361)))
(anti-mark400 (lambda (w2360)
(make-wrap315
(cons '#f (wrap-marks316 w2360))
(cons 'shift (wrap-subst317 w2360)))))
(barrier-marker405 '#f)
(extend-ribcage!410 (lambda (ribcage2358 id2357 label2356)
(begin
(set-ribcage-symnames!370
ribcage2358
(cons
((lambda (e2359)
(if (annotation?132 e2359)
(annotation-expression
e2359)
e2359))
(syntax-object-expression65
id2357))
(ribcage-symnames367 ribcage2358)))
(set-ribcage-marks!371
ribcage2358
(cons
(wrap-marks316
(syntax-object-wrap66 id2357))
(ribcage-marks368 ribcage2358)))
(set-ribcage-labels!372
ribcage2358
(cons
label2356
(ribcage-labels369
ribcage2358))))))
(import-extend-ribcage!411 (lambda (ribcage2354
new-marks2353 id2352
label2351)
(begin
(set-ribcage-symnames!370
ribcage2354
(cons
((lambda (e2355)
(if (annotation?132
e2355)
(annotation-expression
e2355)
e2355))
(syntax-object-expression65
id2352))
(ribcage-symnames367
ribcage2354)))
(set-ribcage-marks!371
ribcage2354
(cons
(join-marks423
new-marks2353
(wrap-marks316
(syntax-object-wrap66
id2352)))
(ribcage-marks368
ribcage2354)))
(set-ribcage-labels!372
ribcage2354
(cons
label2351
(ribcage-labels369
ribcage2354))))))
(extend-ribcage-barrier!412 (lambda (ribcage2350
killer-id2349)
(extend-ribcage-barrier-help!413
ribcage2350
(syntax-object-wrap66
killer-id2349))))
(extend-ribcage-barrier-help!413 (lambda (ribcage2348
wrap2347)
(begin
(set-ribcage-symnames!370
ribcage2348
(cons
barrier-marker405
(ribcage-symnames367
ribcage2348)))
(set-ribcage-marks!371
ribcage2348
(cons
(wrap-marks316
wrap2347)
(ribcage-marks368
ribcage2348))))))
(extend-ribcage-subst!414 (lambda (ribcage2346
import-iface2345)
(set-ribcage-symnames!370
ribcage2346
(cons
import-iface2345
(ribcage-symnames367
ribcage2346)))))
(lookup-import-binding-name415 (lambda (sym2340 marks2339
token2338
new-marks2337)
((lambda (new2341)
(if new2341
((letrec ((f2342 (lambda (new2343)
(if (pair?
new2343)
((lambda (t2344)
(if t2344
t2344
(f2342
(cdr new2343))))
(f2342
(car new2343)))
(if (symbol?
new2343)
(if (same-marks?425
marks2339
(join-marks423
new-marks2337
(wrap-marks316
'((top)))))
new2343
'#f)
(if (same-marks?425
marks2339
(join-marks423
new-marks2337
(wrap-marks316
(syntax-object-wrap66
new2343))))
new2343
'#f))))))
f2342)
new2341)
'#f))
(get-import-binding141
sym2340
token2338))))
(store-import-binding416 (lambda (id2321 token2320
new-marks2319)
(letrec ((cons-id2322 (lambda (id2336
x2335)
(if (not x2335)
id2336
(cons
id2336
x2335))))
(weed2323 (lambda (marks2334
x2333)
(if (pair?
x2333)
(if (same-marks?425
(id-marks312
(car x2333))
marks2334)
(weed2323
marks2334
(cdr x2333))
(cons-id2322
(car x2333)
(weed2323
marks2334
(cdr x2333))))
(if x2333
(if (not (same-marks?425
(id-marks312
x2333)
marks2334))
x2333
'#f)
'#f)))))
((lambda (id2324)
((lambda (sym2325)
(if (not (eq? id2324
sym2325))
((lambda (marks2326)
(update-import-binding!142
sym2325
token2320
(lambda (old-binding2327)
((lambda (x2328)
(cons-id2322
(if (same-marks?425
marks2326
(wrap-marks316
'((top))))
(resolved-id-var-name420
id2324)
id2324)
x2328))
(weed2323
marks2326
old-binding2327)))))
(id-marks312 id2324))
(void)))
((lambda (x2329)
((lambda (e2330)
(if (annotation?132
e2330)
(annotation-expression
e2330)
e2330))
(if (syntax-object?64
x2329)
(syntax-object-expression65
x2329)
x2329)))
id2324)))
(if (null? new-marks2319)
id2321
(make-syntax-object63
((lambda (x2331)
((lambda (e2332)
(if (annotation?132
e2332)
(annotation-expression
e2332)
e2332))
(if (syntax-object?64
x2331)
(syntax-object-expression65
x2331)
x2331)))
id2321)
(make-wrap315
(join-marks423
new-marks2319
(id-marks312 id2321))
(id-subst313
id2321))))))))
(make-binding-wrap417 (lambda (ids2309 labels2308 w2307)
(if (null? ids2309)
w2307
(make-wrap315
(wrap-marks316 w2307)
(cons
((lambda (labelvec2310)
((lambda (n2311)
((lambda (symnamevec2313
marksvec2312)
(begin
((letrec ((f2314 (lambda (ids2316
i2315)
(if (not (null?
ids2316))
(call-with-values
(lambda ()
(id-sym-name&marks314
(car ids2316)
w2307))
(lambda (symname2318
marks2317)
(begin
(vector-set!
symnamevec2313
i2315
symname2318)
(vector-set!
marksvec2312
i2315
marks2317)
(f2314
(cdr ids2316)
(+ i2315
'1)))))
(void)))))
f2314)
ids2309
'0)
(make-ribcage365
symnamevec2313
marksvec2312
labelvec2310)))
(make-vector n2311)
(make-vector n2311)))
(vector-length
labelvec2310)))
(list->vector labels2308))
(wrap-subst317 w2307))))))
(make-resolved-id418 (lambda (fromsym2306 marks2305
tosym2304)
(make-syntax-object63
fromsym2306
(make-wrap315
marks2305
(list
(make-ribcage365
(vector fromsym2306)
(vector marks2305)
(vector tosym2304)))))))
(id->resolved-id419 (lambda (id2299)
(call-with-values
(lambda ()
(id-var-name&marks432 id2299 '(())))
(lambda (tosym2301 marks2300)
(begin
(if (not tosym2301)
(syntax-error
id2299
'"identifier not visible for export")
(void))
(make-resolved-id418
((lambda (x2302)
((lambda (e2303)
(if (annotation?132 e2303)
(annotation-expression
e2303)
e2303))
(if (syntax-object?64 x2302)
(syntax-object-expression65
x2302)
x2302)))
id2299)
marks2300
tosym2301))))))
(resolved-id-var-name420 (lambda (id2298)
(vector-ref
(ribcage-labels369
(car (wrap-subst317
(syntax-object-wrap66
id2298))))
'0)))
(smart-append421 (lambda (m12297 m22296)
(if (null? m22296)
m12297
(append m12297 m22296))))
(join-wraps422 (lambda (w12293 w22292)
((lambda (m12295 s12294)
(if (null? m12295)
(if (null? s12294)
w22292
(make-wrap315
(wrap-marks316 w22292)
(join-subst424
s12294
(wrap-subst317 w22292))))
(make-wrap315
(join-marks423
m12295
(wrap-marks316 w22292))
(join-subst424
s12294
(wrap-subst317 w22292)))))
(wrap-marks316 w12293)
(wrap-subst317 w12293))))
(join-marks423 (lambda (m12291 m22290)
(smart-append421 m12291 m22290)))
(join-subst424 (lambda (s12289 s22288)
(smart-append421 s12289 s22288)))
(same-marks?425 (lambda (x2286 y2285)
((lambda (t2287)
(if t2287
t2287
(if (not (null? x2286))
(if (not (null? y2285))
(if (eq? (car x2286)
(car y2285))
(same-marks?425
(cdr x2286)
(cdr y2285))
'#f)
'#f)
'#f)))
(eq? x2286 y2285))))
(diff-marks426 (lambda (m12279 m22278)
((lambda (n12281 n22280)
((letrec ((f2282 (lambda (n12284 m12283)
(if (> n12284 n22280)
(cons
(car m12283)
(f2282
(- n12284 '1)
(cdr m12283)))
(if (equal?
m12283
m22278)
'()
(error 'sc-expand
'"internal error in diff-marks: ~s is not a tail of ~s"
m12283
m22278))))))
f2282)
n12281
m12279))
(length m12279)
(length m22278))))
(leave-implicit?427 (lambda (token2277)
(eq? token2277 '*top*)))
(new-binding428 (lambda (sym2274 marks2273 token2272)
((lambda (loc2275)
((lambda (id2276)
(begin
(store-import-binding416
id2276
token2272
'())
(values loc2275 id2276)))
(make-resolved-id418
sym2274
marks2273
loc2275)))
(if (if (leave-implicit?427 token2272)
(same-marks?425
marks2273
(wrap-marks316 '((top))))
'#f)
sym2274
(generate-id143 sym2274)))))
(top-id-bound-var-name429 (lambda (sym2268 marks2267
top-ribcage2266)
((lambda (token2269)
((lambda (t2270)
(if t2270
((lambda (id2271)
(if (symbol? id2271)
(if (read-only-binding?140
id2271)
(new-binding428
sym2268
marks2267
token2269)
(values
id2271
(make-resolved-id418
sym2268
marks2267
id2271)))
(values
(resolved-id-var-name420
id2271)
id2271)))
t2270)
(new-binding428
sym2268
marks2267
token2269)))
(lookup-import-binding-name415
sym2268
marks2267
token2269
'())))
(top-ribcage-key375
top-ribcage2266))))
(top-id-free-var-name430 (lambda (sym2260 marks2259
top-ribcage2258)
((lambda (token2261)
((lambda (t2262)
(if t2262
((lambda (id2263)
(if (symbol? id2263)
id2263
(resolved-id-var-name420
id2263)))
t2262)
(if (if (top-ribcage-mutable?376
top-ribcage2258)
(same-marks?425
marks2259
(wrap-marks316
'((top))))
'#f)
(call-with-values
(lambda ()
(new-binding428
sym2260
(wrap-marks316
'((top)))
token2261))
(lambda (sym2265
id2264)
sym2265))
'#f)))
(lookup-import-binding-name415
sym2260
marks2259
token2261
'())))
(top-ribcage-key375
top-ribcage2258))))
(id-var-name-loc&marks431 (lambda (id2209 w2208)
(letrec ((search2210 (lambda (sym2253
subst2252
marks2251)
(if (null?
subst2252)
(values
'#f
marks2251)
((lambda (fst2254)
(if (eq? fst2254
'shift)
(search2210
sym2253
(cdr subst2252)
(cdr marks2251))
(if (ribcage?366
fst2254)
((lambda (symnames2255)
(if (vector?
symnames2255)
(search-vector-rib2212
sym2253
subst2252
marks2251
symnames2255
fst2254)
(search-list-rib2211
sym2253
subst2252
marks2251
symnames2255
fst2254)))
(ribcage-symnames367
fst2254))
(if (top-ribcage?374
fst2254)
((lambda (t2256)
(if t2256
((lambda (var-name2257)
(values
var-name2257
marks2251))
t2256)
(search2210
sym2253
(cdr subst2252)
marks2251)))
(top-id-free-var-name430
sym2253
marks2251
fst2254))
(error 'sc-expand
'"internal error in id-var-name-loc&marks: improper subst ~s"
subst2252)))))
(car subst2252)))))
(search-list-rib2211 (lambda (sym2231
subst2230
marks2229
symnames2228
ribcage2227)
((letrec ((f2232 (lambda (symnames2234
i2233)
(if (null?
symnames2234)
(search2210
sym2231
(cdr subst2230)
marks2229)
((lambda (x2235)
(if (if (eq? x2235
sym2231)
(same-marks?425
marks2229
(list-ref
(ribcage-marks368
ribcage2227)
i2233))
'#f)
(values
(list-ref
(ribcage-labels369
ribcage2227)
i2233)
marks2229)
(if (import-interface?380
x2235)
((lambda (iface2237
new-marks2236)
((lambda (t2238)
(if t2238
((lambda (token2239)
((lambda (t2240)
(if t2240
((lambda (id2241)
(values
(if (symbol?
id2241)
id2241
(resolved-id-var-name420
id2241))
marks2229))
t2240)
(f2232
(cdr symnames2234)
i2233)))
(lookup-import-binding-name415
sym2231
marks2229
token2239
new-marks2236)))
t2238)
((lambda (ie2242)
((lambda (n2243)
((lambda ()
((letrec ((g2244 (lambda (j2245)
(if (= j2245
n2243)
(f2232
(cdr symnames2234)
i2233)
((lambda (id2246)
((lambda (id.sym2248
id.marks2247)
(if (help-bound-id=?437
id.sym2248
id.marks2247
sym2231
marks2229)
(values
(lookup-import-label506
id2246)
marks2229)
(g2244
(+ j2245
'1))))
((lambda (x2249)
((lambda (e2250)
(if (annotation?132
e2250)
(annotation-expression
e2250)
e2250))
(if (syntax-object?64
x2249)
(syntax-object-expression65
x2249)
x2249)))
id2246)
(join-marks423
new-marks2236
(id-marks312
id2246))))
(vector-ref
ie2242
j2245))))))
g2244)
'0))))
(vector-length
ie2242)))
(interface-exports454
iface2237))))
(interface-token455
iface2237)))
(import-interface-interface381
x2235)
(import-interface-new-marks382
x2235))
(if (if (eq? x2235
barrier-marker405)
(same-marks?425
marks2229
(list-ref
(ribcage-marks368
ribcage2227)
i2233))
'#f)
(values
'#f
marks2229)
(f2232
(cdr symnames2234)
(+ i2233
'1))))))
(car symnames2234))))))
f2232)
symnames2228
'0)))
(search-vector-rib2212 (lambda (sym2223
subst2222
marks2221
symnames2220
ribcage2219)
((lambda (n2224)
((letrec ((f2225 (lambda (i2226)
(if (= i2226
n2224)
(search2210
sym2223
(cdr subst2222)
marks2221)
(if (if (eq? (vector-ref
symnames2220
i2226)
sym2223)
(same-marks?425
marks2221
(vector-ref
(ribcage-marks368
ribcage2219)
i2226))
'#f)
(values
(vector-ref
(ribcage-labels369
ribcage2219)
i2226)
marks2221)
(f2225
(+ i2226
'1)))))))
f2225)
'0))
(vector-length
symnames2220)))))
(if (symbol? id2209)
(search2210
id2209
(wrap-subst317 w2208)
(wrap-marks316 w2208))
(if (syntax-object?64 id2209)
((lambda (sym2214 w12213)
(call-with-values
(lambda ()
(search2210
sym2214
(wrap-subst317
w2208)
(join-marks423
(wrap-marks316
w2208)
(wrap-marks316
w12213))))
(lambda (name2216
marks2215)
(if name2216
(values
name2216
marks2215)
(search2210
sym2214
(wrap-subst317
w12213)
marks2215)))))
((lambda (e2217)
(if (annotation?132
e2217)
(annotation-expression
e2217)
e2217))
(syntax-object-expression65
id2209))
(syntax-object-wrap66
id2209))
(if (annotation?132
id2209)
(search2210
((lambda (e2218)
(if (annotation?132
e2218)
(annotation-expression
e2218)
e2218))
id2209)
(wrap-subst317
w2208)
(wrap-marks316
w2208))
(error-hook136
'id-var-name
'"invalid id"
id2209)))))))
(id-var-name&marks432 (lambda (id2205 w2204)
(call-with-values
(lambda ()
(id-var-name-loc&marks431
id2205
w2204))
(lambda (label2207 marks2206)
(values
(if (indirect-label?356
label2207)
(get-indirect-label360
label2207)
label2207)
marks2206)))))
(id-var-name-loc433 (lambda (id2201 w2200)
(call-with-values
(lambda ()
(id-var-name-loc&marks431
id2201
w2200))
(lambda (label2203 marks2202)
label2203))))
(id-var-name434 (lambda (id2197 w2196)
(call-with-values
(lambda ()
(id-var-name-loc&marks431 id2197 w2196))
(lambda (label2199 marks2198)
(if (indirect-label?356 label2199)
(get-indirect-label360 label2199)
label2199)))))
(free-id=?435 (lambda (i2191 j2190)
(if (eq? ((lambda (x2194)
((lambda (e2195)
(if (annotation?132 e2195)
(annotation-expression
e2195)
e2195))
(if (syntax-object?64 x2194)
(syntax-object-expression65
x2194)
x2194)))
i2191)
((lambda (x2192)
((lambda (e2193)
(if (annotation?132 e2193)
(annotation-expression
e2193)
e2193))
(if (syntax-object?64 x2192)
(syntax-object-expression65
x2192)
x2192)))
j2190))
(eq? (id-var-name434 i2191 '(()))
(id-var-name434 j2190 '(())))
'#f)))
(literal-id=?436 (lambda (id2180 literal2179)
(if (eq? ((lambda (x2183)
((lambda (e2184)
(if (annotation?132 e2184)
(annotation-expression
e2184)
e2184))
(if (syntax-object?64 x2183)
(syntax-object-expression65
x2183)
x2183)))
id2180)
((lambda (x2181)
((lambda (e2182)
(if (annotation?132 e2182)
(annotation-expression
e2182)
e2182))
(if (syntax-object?64 x2181)
(syntax-object-expression65
x2181)
x2181)))
literal2179))
((lambda (n-id2186 n-literal2185)
((lambda (t2187)
(if t2187
t2187
(if ((lambda (t2188)
(if t2188
t2188
(symbol?
n-id2186)))
(not n-id2186))
((lambda (t2189)
(if t2189
t2189
(symbol?
n-literal2185)))
(not n-literal2185))
'#f)))
(eq? n-id2186 n-literal2185)))
(id-var-name434 id2180 '(()))
(id-var-name434 literal2179 '(())))
'#f)))
(help-bound-id=?437 (lambda (i.sym2178 i.marks2177 j.sym2176
j.marks2175)
(if (eq? i.sym2178 j.sym2176)
(same-marks?425
i.marks2177
j.marks2175)
'#f)))
(bound-id=?438 (lambda (i2170 j2169)
(help-bound-id=?437
((lambda (x2173)
((lambda (e2174)
(if (annotation?132 e2174)
(annotation-expression e2174)
e2174))
(if (syntax-object?64 x2173)
(syntax-object-expression65 x2173)
x2173)))
i2170)
(id-marks312 i2170)
((lambda (x2171)
((lambda (e2172)
(if (annotation?132 e2172)
(annotation-expression e2172)
e2172))
(if (syntax-object?64 x2171)
(syntax-object-expression65 x2171)
x2171)))
j2169)
(id-marks312 j2169))))
(valid-bound-ids?439 (lambda (ids2165)
(if ((letrec ((all-ids?2166 (lambda (ids2167)
((lambda (t2168)
(if t2168
t2168
(if (id?306
(car ids2167))
(all-ids?2166
(cdr ids2167))
'#f)))
(null?
ids2167)))))
all-ids?2166)
ids2165)
(distinct-bound-ids?440 ids2165)
'#f)))
(distinct-bound-ids?440 (lambda (ids2161)
((letrec ((distinct?2162 (lambda (ids2163)
((lambda (t2164)
(if t2164
t2164
(if (not (bound-id-member?442
(car ids2163)
(cdr ids2163)))
(distinct?2162
(cdr ids2163))
'#f)))
(null?
ids2163)))))
distinct?2162)
ids2161)))
(invalid-ids-error441 (lambda (ids2157 exp2156 class2155)
((letrec ((find2158 (lambda (ids2160
gooduns2159)
(if (null?
ids2160)
(syntax-error
exp2156)
(if (id?306
(car ids2160))
(if (bound-id-member?442
(car ids2160)
gooduns2159)
(syntax-error
(car ids2160)
'"duplicate "
class2155)
(find2158
(cdr ids2160)
(cons
(car ids2160)
gooduns2159)))
(syntax-error
(car ids2160)
'"invalid "
class2155))))))
find2158)
ids2157
'())))
(bound-id-member?442 (lambda (x2153 list2152)
(if (not (null? list2152))
((lambda (t2154)
(if t2154
t2154
(bound-id-member?442
x2153
(cdr list2152))))
(bound-id=?438
x2153
(car list2152)))
'#f)))
(wrap443 (lambda (x2151 w2150)
(if (if (null? (wrap-marks316 w2150))
(null? (wrap-subst317 w2150))
'#f)
x2151
(if (syntax-object?64 x2151)
(make-syntax-object63
(syntax-object-expression65 x2151)
(join-wraps422
w2150
(syntax-object-wrap66 x2151)))
(if (null? x2151)
x2151
(make-syntax-object63 x2151 w2150))))))
(source-wrap444 (lambda (x2149 w2148 ae2147)
(wrap443
(if (annotation?132 ae2147)
(begin
(if (not (eq? (annotation-expression
ae2147)
x2149))
(error 'sc-expand
'"internal error in source-wrap: ae/x mismatch")
(void))
ae2147)
x2149)
w2148)))
(chi-when-list445 (lambda (when-list2145 w2144)
(map (lambda (x2146)
(if (literal-id=?436
x2146
'#(syntax-object compile ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (to
'compile
(if (literal-id=?436
x2146
'#(syntax-object load ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (t
'load
(if (literal-id=?436
x2146
'#(syntax-object visit ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (to
'visit
(if (literal-id=?436
x2146
'#(syntax-object revisit ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (to
'revisit
(if (literal-id=?436
x2146
'#(syntax-object eval ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (t
'eval
(syntax-error
(wrap443
x2146
w2144)
'"invalid eval-when situation")))))))
when-list2145)))
(syntax-type446 (lambda (e2129 r2128 w2127 ae2126 rib2125)
(if (symbol? e2129)
((lambda (n2130)
((lambda (b2131)
((lambda (type2132)
((lambda ()
((lambda (t2133)
(if (memv
t2133
'(macro macro!))
(syntax-type446
(chi-macro502
(binding-value282
b2131)
e2129 r2128 w2127
ae2126 rib2125)
r2128 '(()) '#f
rib2125)
(values type2132
(binding-value282
b2131)
e2129 w2127
ae2126)))
type2132))))
(binding-type281 b2131)))
(lookup301 n2130 r2128)))
(id-var-name434 e2129 w2127))
(if (pair? e2129)
((lambda (first2134)
(if (id?306 first2134)
((lambda (n2135)
((lambda (b2136)
((lambda (type2137)
((lambda ()
((lambda (t2138)
(if (memv
t2138
'(lexical))
(values
'lexical-call
(binding-value282
b2136)
e2129
w2127
ae2126)
(if (memv
t2138
'(macro
macro!))
(syntax-type446
(chi-macro502
(binding-value282
b2136)
e2129
r2128
w2127
ae2126
rib2125)
r2128
'(())
'#f
rib2125)
(if (memv
t2138
'(core))
(values
type2137
(binding-value282
b2136)
e2129
w2127
ae2126)
(if (memv
t2138
'(begin))
(values
'begin-form
'#f
e2129
w2127
ae2126)
(if (memv
t2138
'(alias))
(values
'alias-form
'#f
e2129
w2127
ae2126)
(if (memv
t2138
'(define))
(values
'define-form
'#f
e2129
w2127
ae2126)
(if (memv
t2138
'(define-syntax))
(values
'define-syntax-form
'#f
e2129
w2127
ae2126)
(if (memv
t2138
'(set!))
(chi-set!501
e2129
r2128
w2127
ae2126
rib2125)
(if (memv
t2138
'($module-key))
(values
'$module-form
'#f
e2129
w2127
ae2126)
(if (memv
t2138
'($import))
(values
'$import-form
'#f
e2129
w2127
ae2126)
(if (memv
t2138
'(eval-when))
(values
'eval-when-form
'#f
e2129
w2127
ae2126)
(if (memv
t2138
'(meta))
(values
'meta-form
'#f
e2129
w2127
ae2126)
(if (memv
t2138
'(local-syntax))
(values
'local-syntax-form
(binding-value282
b2136)
e2129
w2127
ae2126)
(values
'call
'#f
e2129
w2127
ae2126)))))))))))))))
type2137))))
(binding-type281
b2136)))
(lookup301 n2135 r2128)))
(id-var-name434
first2134
w2127))
(values 'call '#f e2129 w2127
ae2126)))
(car e2129))
(if (syntax-object?64 e2129)
(syntax-type446
(syntax-object-expression65
e2129)
r2128
(join-wraps422
w2127
(syntax-object-wrap66 e2129))
'#f rib2125)
(if (annotation?132 e2129)
(syntax-type446
(annotation-expression
e2129)
r2128 w2127 e2129 rib2125)
(if ((lambda (x2139)
((lambda (t2140)
(if t2140
t2140
((lambda (t2141)
(if t2141
t2141
((lambda (t2142)
(if t2142
t2142
((lambda (t2143)
(if t2143
t2143
(null?
x2139)))
(char?
x2139))))
(string?
x2139))))
(number?
x2139))))
(boolean? x2139)))
e2129)
(values 'constant '#f
e2129 w2127 ae2126)
(values 'other '#f e2129
w2127 ae2126))))))))
(chi-top*447 (lambda (e2120 r2119 w2118 ctem2117 rtem2116
meta?2115 top-ribcage2114)
((lambda (meta-residuals2121)
(letrec ((meta-residualize!2122 (lambda (x2124)
(set! meta-residuals2121
(cons
x2124
meta-residuals2121)))))
((lambda (e2123)
(build-sequence235
'#f
(reverse
(cons e2123 meta-residuals2121))))
(chi-top449 e2120 r2119 w2118 ctem2117
rtem2116 meta?2115 top-ribcage2114
meta-residualize!2122 '#f))))
'())))
(chi-top-sequence448 (lambda (body2110 r2109 w2108 ae2107
ctem2106 rtem2105 meta?2104
ribcage2103
meta-residualize!2102)
(build-sequence235
ae2107
((letrec ((dobody2111 (lambda (body2112)
(if (null?
body2112)
'()
((lambda (first2113)
(cons
first2113
(dobody2111
(cdr body2112))))
(chi-top449
(car body2112)
r2109
w2108
ctem2106
rtem2105
meta?2104
ribcage2103
meta-residualize!2102
'#f))))))
dobody2111)
body2110))))
(chi-top449 (lambda (e2047 r2046 w2045 ctem2044 rtem2043
meta?2042 top-ribcage2041
meta-residualize!2040 meta-seen?2039)
(call-with-values
(lambda ()
(syntax-type446 e2047 r2046 w2045 '#f
top-ribcage2041))
(lambda (type2052 value2051 e2050 w2049 ae2048)
((lambda (t2053)
(if (memv t2053 '(begin-form))
((lambda (forms2054)
(if (null? forms2054)
(chi-void518)
(chi-top-sequence448 forms2054
r2046 w2049 ae2048 ctem2044
rtem2043 meta?2042
top-ribcage2041
meta-residualize!2040)))
(parse-begin515
e2050
w2049
ae2048
'#t))
(if (memv t2053 '(local-syntax-form))
(call-with-values
(lambda ()
(chi-local-syntax517 value2051
e2050 r2046 r2046 w2049
ae2048))
(lambda (forms2059 r2058 mr2057
w2056 ae2055)
(chi-top-sequence448 forms2059
r2058 w2056 ae2055 ctem2044
rtem2043 meta?2042
top-ribcage2041
meta-residualize!2040)))
(if (memv t2053 '(eval-when-form))
(call-with-values
(lambda ()
(parse-eval-when513
e2050
w2049
ae2048))
(lambda (when-list2061
forms2060)
((lambda (ctem2063
rtem2062)
(if (if (null?
ctem2063)
(null?
rtem2062)
'#f)
(chi-void518)
(chi-top-sequence448
forms2060 r2046
w2049 ae2048
ctem2063 rtem2062
meta?2042
top-ribcage2041
meta-residualize!2040)))
(update-mode-set490
when-list2061
ctem2044)
(update-mode-set490
when-list2061
rtem2043))))
(if (memv t2053 '(meta-form))
(chi-top449
(parse-meta512
e2050
w2049
ae2048)
r2046 w2049 ctem2044
rtem2043 '#t
top-ribcage2041
meta-residualize!2040
'#t)
(if (memv
t2053
'(define-syntax-form))
(call-with-values
(lambda ()
(parse-define-syntax511
e2050
w2049
ae2048))
(lambda (id2066
rhs2065
w2064)
((lambda (id2067)
(begin
(if (displaced-lexical?298
id2067
r2046)
(displaced-lexical-error299
id2067)
(void))
(if (not (top-ribcage-mutable?376
top-ribcage2041))
(syntax-error
(source-wrap444
e2050
w2064
ae2048)
'"invalid definition in read-only environment")
(void))
((lambda (sym2068)
(call-with-values
(lambda ()
(top-id-bound-var-name429
sym2068
(wrap-marks316
(syntax-object-wrap66
id2067))
top-ribcage2041))
(lambda (valsym2070
bound-id2069)
(begin
(if (not (eq? (id-var-name434
id2067
'(()))
valsym2070))
(syntax-error
(source-wrap444
e2050
w2064
ae2048)
'"definition not permitted")
(void))
(if (read-only-binding?140
valsym2070)
(syntax-error
(source-wrap444
e2050
w2064
ae2048)
'"invalid definition of read-only identifier")
(void))
(ct-eval/residualize2493
ctem2044
(lambda ()
(list
'$sc-put-cte
(list
'quote
bound-id2069)
(chi498
rhs2065
r2046
r2046
w2064
'#t)
(list
'quote
(top-ribcage-key375
top-ribcage2041)))))))))
((lambda (x2071)
((lambda (e2072)
(if (annotation?132
e2072)
(annotation-expression
e2072)
e2072))
(if (syntax-object?64
x2071)
(syntax-object-expression65
x2071)
x2071)))
id2067))))
(wrap443
id2066
w2064))))
(if (memv
t2053
'(define-form))
(call-with-values
(lambda ()
(parse-define510
e2050
w2049
ae2048))
(lambda (id2075
rhs2074
w2073)
((lambda (id2076)
(begin
(if (displaced-lexical?298
id2076
r2046)
(displaced-lexical-error299
id2076)
(void))
(if (not (top-ribcage-mutable?376
top-ribcage2041))
(syntax-error
(source-wrap444
e2050
w2073
ae2048)
'"invalid definition in read-only environment")
(void))
((lambda (sym2077)
(call-with-values
(lambda ()
(top-id-bound-var-name429
sym2077
(wrap-marks316
(syntax-object-wrap66
id2076))
top-ribcage2041))
(lambda (valsym2079
bound-id2078)
(begin
(if (not (eq? (id-var-name434
id2076
'(()))
valsym2079))
(syntax-error
(source-wrap444
e2050
w2073
ae2048)
'"definition not permitted")
(void))
(if (read-only-binding?140
valsym2079)
(syntax-error
(source-wrap444
e2050
w2073
ae2048)
'"invalid definition of read-only identifier")
(void))
(if meta?2042
(ct-eval/residualize2493
ctem2044
(lambda ()
(build-sequence235
'#f
(list
(list
'$sc-put-cte
(list
'quote
bound-id2078)
(list
'quote
(cons
'meta-variable
valsym2079))
(list
'quote
(top-ribcage-key375
top-ribcage2041)))
(list
'define
valsym2079
(chi498
rhs2074
r2046
r2046
w2073
'#t))))))
((lambda (x2080)
(build-sequence235
'#f
(list
x2080
(rt-eval/residualize492
rtem2043
(lambda ()
(list
'define
valsym2079
(chi498
rhs2074
r2046
r2046
w2073
'#f)))))))
(ct-eval/residualize2493
ctem2044
(lambda ()
(list
'$sc-put-cte
(list
'quote
bound-id2078)
(list
'quote
(cons
'global
valsym2079))
(list
'quote
(top-ribcage-key375
top-ribcage2041)))))))))))
((lambda (x2081)
((lambda (e2082)
(if (annotation?132
e2082)
(annotation-expression
e2082)
e2082))
(if (syntax-object?64
x2081)
(syntax-object-expression65
x2081)
x2081)))
id2076))))
(wrap443
id2075
w2073))))
(if (memv
t2053
'($module-form))
((lambda (ribcage2083)
(call-with-values
(lambda ()
(parse-module508
e2050
w2049
ae2048
(make-wrap315
(wrap-marks316
w2049)
(cons
ribcage2083
(wrap-subst317
w2049)))))
(lambda (orig2087
id2086
exports2085
forms2084)
(begin
(if (displaced-lexical?298
id2086
r2046)
(displaced-lexical-error299
(wrap443
id2086
w2049))
(void))
(if (not (top-ribcage-mutable?376
top-ribcage2041))
(syntax-error
orig2087
'"invalid definition in read-only environment")
(void))
(chi-top-module482
orig2087
r2046
r2046
top-ribcage2041
ribcage2083
ctem2044
rtem2043
meta?2042
id2086
exports2085
forms2084
meta-residualize!2040)))))
(make-ribcage365
'()
'()
'()))
(if (memv
t2053
'($import-form))
(call-with-values
(lambda ()
(parse-import509
e2050
w2049
ae2048))
(lambda (orig2090
only?2089
mid2088)
(begin
(if (not (top-ribcage-mutable?376
top-ribcage2041))
(syntax-error
orig2090
'"invalid definition in read-only environment")
(void))
(ct-eval/residualize2493
ctem2044
(lambda ()
((lambda (binding2091)
((lambda (t2092)
(if (memv
t2092
'($module))
(do-top-import489
only?2089
top-ribcage2041
mid2088
(interface-token455
(binding-value282
binding2091)))
(if (memv
t2092
'(displaced-lexical))
(displaced-lexical-error299
mid2088)
(syntax-error
mid2088
'"unknown module"))))
(binding-type281
binding2091)))
(lookup301
(id-var-name434
mid2088
'(()))
'())))))))
(if (memv
t2053
'(alias-form))
(call-with-values
(lambda ()
(parse-alias514
e2050
w2049
ae2048))
(lambda (new-id2094
old-id2093)
((lambda (new-id2095)
(begin
(if (displaced-lexical?298
new-id2095
r2046)
(displaced-lexical-error299
new-id2095)
(void))
(if (not (top-ribcage-mutable?376
top-ribcage2041))
(syntax-error
(source-wrap444
e2050
w2049
ae2048)
'"invalid definition in read-only environment")
(void))
((lambda (sym2096)
(call-with-values
(lambda ()
(top-id-bound-var-name429
sym2096
(wrap-marks316
(syntax-object-wrap66
new-id2095))
top-ribcage2041))
(lambda (valsym2098
bound-id2097)
(begin
(if (not (eq? (id-var-name434
new-id2095
'(()))
valsym2098))
(syntax-error
(source-wrap444
e2050
w2049
ae2048)
'"definition not permitted")
(void))
(if (read-only-binding?140
valsym2098)
(syntax-error
(source-wrap444
e2050
w2049
ae2048)
'"invalid definition of read-only identifier")
(void))
(ct-eval/residualize2493
ctem2044
(lambda ()
(list
'$sc-put-cte
(list
'quote
(make-resolved-id418
sym2096
(wrap-marks316
(syntax-object-wrap66
new-id2095))
(id-var-name434
old-id2093
w2049)))
(list
'quote
'(do-alias
.
#f))
(list
'quote
(top-ribcage-key375
top-ribcage2041)))))))))
((lambda (x2099)
((lambda (e2100)
(if (annotation?132
e2100)
(annotation-expression
e2100)
e2100))
(if (syntax-object?64
x2099)
(syntax-object-expression65
x2099)
x2099)))
new-id2095))))
(wrap443
new-id2094
w2049))))
(begin
(if meta-seen?2039
(syntax-error
(source-wrap444
e2050
w2049
ae2048)
'"invalid meta definition")
(void))
(if meta?2042
((lambda (x2101)
(begin
(top-level-eval-hook133
x2101)
(ct-eval/residualize3494
ctem2044
void
(lambda ()
x2101))))
(chi-expr499
type2052
value2051
e2050
r2046
r2046
w2049
ae2048
'#t))
(rt-eval/residualize492
rtem2043
(lambda ()
(chi-expr499
type2052
value2051
e2050
r2046
r2046
w2049
ae2048
'#f)))))))))))))))
type2052)))))
(flatten-exports450 (lambda (exports2035)
((letrec ((loop2036 (lambda (exports2038
ls2037)
(if (null?
exports2038)
ls2037
(loop2036
(cdr exports2038)
(if (pair?
(car exports2038))
(loop2036
(car exports2038)
ls2037)
(cons
(car exports2038)
ls2037)))))))
loop2036)
exports2035
'())))
(make-interface451 (lambda (marks2034 exports2033 token2032)
(vector
'interface
marks2034
exports2033
token2032)))
(interface?452 (lambda (x2031)
(if (vector? x2031)
(if (= (vector-length x2031) '4)
(eq? (vector-ref x2031 '0) 'interface)
'#f)
'#f)))
(interface-marks453 (lambda (x2030) (vector-ref x2030 '1)))
(interface-exports454 (lambda (x2029)
(vector-ref x2029 '2)))
(interface-token455 (lambda (x2028) (vector-ref x2028 '3)))
(set-interface-marks!456 (lambda (x2027 update2026)
(vector-set! x2027 '1 update2026)))
(set-interface-exports!457 (lambda (x2025 update2024)
(vector-set!
x2025
'2
update2024)))
(set-interface-token!458 (lambda (x2023 update2022)
(vector-set! x2023 '3 update2022)))
(make-unresolved-interface459 (lambda (mid2020 exports2019)
(make-interface451
(wrap-marks316
(syntax-object-wrap66
mid2020))
(list->vector
(map (lambda (x2021)
(if (pair? x2021)
(car x2021)
x2021))
exports2019))
'#f)))
(make-resolved-interface460 (lambda (mid2017 exports2016
token2015)
(make-interface451
(wrap-marks316
(syntax-object-wrap66
mid2017))
(list->vector
(map (lambda (x2018)
(id->resolved-id419
(if (pair? x2018)
(car x2018)
x2018)))
exports2016))
token2015)))
(make-module-binding461 (lambda (type2014 id2013 label2012
imps2011 val2010 exported2009)
(vector 'module-binding type2014
id2013 label2012 imps2011 val2010
exported2009)))
(module-binding?462 (lambda (x2008)
(if (vector? x2008)
(if (= (vector-length x2008) '7)
(eq? (vector-ref x2008 '0)
'module-binding)
'#f)
'#f)))
(module-binding-type463 (lambda (x2007)
(vector-ref x2007 '1)))
(module-binding-id464 (lambda (x2006)
(vector-ref x2006 '2)))
(module-binding-label465 (lambda (x2005)
(vector-ref x2005 '3)))
(module-binding-imps466 (lambda (x2004)
(vector-ref x2004 '4)))
(module-binding-val467 (lambda (x2003)
(vector-ref x2003 '5)))
(module-binding-exported468 (lambda (x2002)
(vector-ref x2002 '6)))
(set-module-binding-type!469 (lambda (x2001 update2000)
(vector-set!
x2001
'1
update2000)))
(set-module-binding-id!470 (lambda (x1999 update1998)
(vector-set!
x1999
'2
update1998)))
(set-module-binding-label!471 (lambda (x1997 update1996)
(vector-set!
x1997
'3
update1996)))
(set-module-binding-imps!472 (lambda (x1995 update1994)
(vector-set!
x1995
'4
update1994)))
(set-module-binding-val!473 (lambda (x1993 update1992)
(vector-set!
x1993
'5
update1992)))
(set-module-binding-exported!474 (lambda (x1991 update1990)
(vector-set!
x1991
'6
update1990)))
(create-module-binding475 (lambda (type1989 id1988 label1987
imps1986 val1985)
(make-module-binding461 type1989
id1988 label1987 imps1986 val1985
'#f)))
(make-frob476 (lambda (e1984 meta?1983)
(vector 'frob e1984 meta?1983)))
(frob?477 (lambda (x1982)
(if (vector? x1982)
(if (= (vector-length x1982) '3)
(eq? (vector-ref x1982 '0) 'frob)
'#f)
'#f)))
(frob-e478 (lambda (x1981) (vector-ref x1981 '1)))
(frob-meta?479 (lambda (x1980) (vector-ref x1980 '2)))
(set-frob-e!480 (lambda (x1979 update1978)
(vector-set! x1979 '1 update1978)))
(set-frob-meta?!481 (lambda (x1977 update1976)
(vector-set! x1977 '2 update1976)))
(chi-top-module482 (lambda (orig1917 r1916 mr1915
top-ribcage1914 ribcage1913
ctem1912 rtem1911 meta?1910 id1909
exports1908 forms1907
meta-residualize!1906)
((lambda (fexports1918)
(call-with-values
(lambda ()
(chi-external486 ribcage1913
orig1917
(map (lambda (d1975)
(make-frob476
d1975
meta?1910))
forms1907)
r1916 mr1915 ctem1912 exports1908
fexports1918
meta-residualize!1906))
(lambda (r1922 mr1921 bindings1920
inits1919)
((letrec ((process-exports1923 (lambda (fexports1925
ctdefs1924)
(if (null?
fexports1925)
((letrec ((process-locals1926 (lambda (bs1931
r1930
dts1929
dvs1928
des1927)
(if (null?
bs1931)
((lambda (des1933
inits1932)
(build-sequence235
'#f
(append
(ctdefs1924)
(list
(ct-eval/residualize2493
ctem1912
(lambda ()
((lambda (sym1934)
((lambda (token1935)
((lambda (b1936)
((lambda ()
(call-with-values
(lambda ()
(top-id-bound-var-name429
sym1934
(wrap-marks316
(syntax-object-wrap66
id1909))
top-ribcage1914))
(lambda (valsym1938
bound-id1937)
(begin
(if (not (eq? (id-var-name434
id1909
'(()))
valsym1938))
(syntax-error
orig1917
'"definition not permitted")
(void))
(if (read-only-binding?140
valsym1938)
(syntax-error
orig1917
'"invalid definition of read-only identifier")
(void))
(list
'$sc-put-cte
(list
'quote
bound-id1937)
b1936
(list
'quote
(top-ribcage-key375
top-ribcage1914)))))))))
(list
'quote
(cons
'$module
(make-resolved-interface460
id1909
exports1908
token1935)))))
(generate-id143
sym1934)))
((lambda (x1939)
((lambda (e1940)
(if (annotation?132
e1940)
(annotation-expression
e1940)
e1940))
(if (syntax-object?64
x1939)
(syntax-object-expression65
x1939)
x1939)))
id1909))))
(rt-eval/residualize492
rtem1911
(lambda ()
(build-top-module238
'#f
dts1929
dvs1928
des1933
(if (null?
inits1932)
(chi-void518)
(build-sequence235
'#f
(append
inits1932
(list
(chi-void518))))))))))))
(chi-frobs495
des1927
r1930
mr1921
'#f)
(chi-frobs495
inits1919
r1930
mr1921
'#f))
((lambda (b1942
bs1941)
((lambda (t1943)
((lambda (t1944)
(if (memv
t1944
'(define-form))
((lambda (label1945)
(if (module-binding-exported468
b1942)
((lambda (var1946)
(process-locals1926
bs1941
r1930
(cons
'global
dts1929)
(cons
label1945
dvs1928)
(cons
(module-binding-val467
b1942)
des1927)))
(module-binding-id464
b1942))
((lambda (var1947)
(process-locals1926
bs1941
(extend-env295
label1945
(cons
'lexical
var1947)
r1930)
(cons
'local
dts1929)
(cons
var1947
dvs1928)
(cons
(module-binding-val467
b1942)
des1927)))
(gen-var523
(module-binding-id464
b1942)))))
(get-indirect-label360
(module-binding-label465
b1942)))
(if (memv
t1944
'(ctdefine-form
define-syntax-form
$module-form
alias-form))
(process-locals1926
bs1941
r1930
dts1929
dvs1928
des1927)
(error 'sc-expand-internal
'"unexpected module binding type ~s"
t1943))))
(module-binding-type463
b1942)))
(module-binding-type463
b1942)))
(car bs1931)
(cdr bs1931))))))
process-locals1926)
bindings1920
r1922
'()
'()
'())
((lambda (id1949
fexports1948)
((letrec ((loop1950 (lambda (bs1951)
(if (null?
bs1951)
(process-exports1923
fexports1948
ctdefs1924)
((lambda (b1953
bs1952)
(if (free-id=?435
(module-binding-id464
b1953)
id1949)
(if (module-binding-exported468
b1953)
(process-exports1923
fexports1948
ctdefs1924)
((lambda (t1954)
((lambda (label1955)
((lambda (imps1956)
((lambda (fexports1957)
((lambda ()
(begin
(set-module-binding-exported!474
b1953
'#t)
((lambda (t1958)
(if (memv
t1958
'(define-form))
((lambda (sym1959)
(begin
(set-indirect-label!361
label1955
sym1959)
(process-exports1923
fexports1957
ctdefs1924)))
(generate-id143
((lambda (x1960)
((lambda (e1961)
(if (annotation?132
e1961)
(annotation-expression
e1961)
e1961))
(if (syntax-object?64
x1960)
(syntax-object-expression65
x1960)
x1960)))
id1949)))
(if (memv
t1958
'(ctdefine-form))
((lambda (b1962)
(process-exports1923
fexports1957
(lambda ()
((lambda (sym1963)
(begin
(set-indirect-label!361
label1955
sym1963)
(cons
(ct-eval/residualize3494
ctem1912
(lambda ()
(put-cte-hook137
sym1963
b1962))
(lambda ()
(list
'$sc-put-cte
(list
'quote
sym1963)
(list
'quote
b1962)
(list
'quote
'#f))))
(ctdefs1924))))
(binding-value282
b1962)))))
(module-binding-val467
b1953))
(if (memv
t1958
'(define-syntax-form))
((lambda (sym1964)
(process-exports1923
fexports1957
(lambda ()
((lambda (local-label1965)
(begin
(set-indirect-label!361
label1955
sym1964)
(cons
(ct-eval/residualize3494
ctem1912
(lambda ()
(put-cte-hook137
sym1964
(car (module-binding-val467
b1953))))
(lambda ()
(list
'$sc-put-cte
(list
'quote
sym1964)
(cdr (module-binding-val467
b1953))
(list
'quote
'#f))))
(ctdefs1924))))
(get-indirect-label360
label1955)))))
(generate-id143
((lambda (x1966)
((lambda (e1967)
(if (annotation?132
e1967)
(annotation-expression
e1967)
e1967))
(if (syntax-object?64
x1966)
(syntax-object-expression65
x1966)
x1966)))
id1949)))
(if (memv
t1958
'($module-form))
((lambda (sym1969
exports1968)
(process-exports1923
(append
(flatten-exports450
exports1968)
fexports1957)
(lambda ()
(begin
(set-indirect-label!361
label1955
sym1969)
((lambda (rest1970)
((lambda (x1971)
(cons
(ct-eval/residualize3494
ctem1912
(lambda ()
(put-cte-hook137
sym1969
x1971))
(lambda ()
(list
'$sc-put-cte
(list
'quote
sym1969)
(list
'quote
x1971)
(list
'quote
'#f))))
rest1970))
(cons
'$module
(make-resolved-interface460
id1949
exports1968
sym1969))))
(ctdefs1924))))))
(generate-id143
((lambda (x1972)
((lambda (e1973)
(if (annotation?132
e1973)
(annotation-expression
e1973)
e1973))
(if (syntax-object?64
x1972)
(syntax-object-expression65
x1972)
x1972)))
id1949))
(module-binding-val467
b1953))
(if (memv
t1958
'(alias-form))
(process-exports1923
fexports1957
(lambda ()
((lambda (rest1974)
(begin
(if (indirect-label?356
label1955)
(if (not (symbol?
(get-indirect-label360
label1955)))
(syntax-error
(module-binding-id464
b1953)
'"unexported target of alias")
(void))
(void))
rest1974))
(ctdefs1924))))
(error 'sc-expand-internal
'"unexpected module binding type ~s"
t1954)))))))
t1954)))))
(append
imps1956
fexports1948)))
(module-binding-imps466
b1953)))
(module-binding-label465
b1953)))
(module-binding-type463
b1953)))
(loop1950
bs1952)))
(car bs1951)
(cdr bs1951))))))
loop1950)
bindings1920))
(car fexports1925)
(cdr fexports1925))))))
process-exports1923)
fexports1918
(lambda () '())))))
(flatten-exports450 exports1908))))
(id-set-diff483 (lambda (exports1905 defs1904)
(if (null? exports1905)
'()
(if (bound-id-member?442
(car exports1905)
defs1904)
(id-set-diff483
(cdr exports1905)
defs1904)
(cons
(car exports1905)
(id-set-diff483
(cdr exports1905)
defs1904))))))
(check-module-exports484 (lambda (source-exp1879
fexports1878 ids1877)
(letrec ((defined?1880 (lambda (e1887
ids1886)
(ormap
(lambda (x1888)
(if (import-interface?380
x1888)
((lambda (x.iface1890
x.new-marks1889)
((lambda (t1891)
(if t1891
((lambda (token1892)
(lookup-import-binding-name415
((lambda (x1893)
((lambda (e1894)
(if (annotation?132
e1894)
(annotation-expression
e1894)
e1894))
(if (syntax-object?64
x1893)
(syntax-object-expression65
x1893)
x1893)))
e1887)
(id-marks312
e1887)
token1892
x.new-marks1889))
t1891)
((lambda (v1895)
((letrec ((lp1896 (lambda (i1897)
(if (>= i1897
'0)
((lambda (t1898)
(if t1898
t1898
(lp1896
(- i1897
'1))))
((lambda (id1899)
(help-bound-id=?437
((lambda (x1902)
((lambda (e1903)
(if (annotation?132
e1903)
(annotation-expression
e1903)
e1903))
(if (syntax-object?64
x1902)
(syntax-object-expression65
x1902)
x1902)))
id1899)
(join-marks423
x.new-marks1889
(id-marks312
id1899))
((lambda (x1900)
((lambda (e1901)
(if (annotation?132
e1901)
(annotation-expression
e1901)
e1901))
(if (syntax-object?64
x1900)
(syntax-object-expression65
x1900)
x1900)))
e1887)
(id-marks312
e1887)))
(vector-ref
v1895
i1897)))
'#f))))
lp1896)
(- (vector-length
v1895)
'1)))
(interface-exports454
x.iface1890))))
(interface-token455
x.iface1890)))
(import-interface-interface381
x1888)
(import-interface-new-marks382
x1888))
(bound-id=?438
e1887
x1888)))
ids1886))))
((letrec ((loop1881 (lambda (fexports1883
missing1882)
(if (null?
fexports1883)
(if (not (null?
missing1882))
(syntax-error
(car missing1882)
(if (= (length
missing1882)
'1)
'"missing definition for export"
'"missing definition for multiple exports, including"))
(void))
((lambda (e1885
fexports1884)
(if (defined?1880
e1885
ids1877)
(loop1881
fexports1884
missing1882)
(loop1881
fexports1884
(cons
e1885
missing1882))))
(car fexports1883)
(cdr fexports1883))))))
loop1881)
fexports1878
'()))))
(check-defined-ids485 (lambda (source-exp1826 ls1825)
(letrec ((vfold1827 (lambda (v1872
p1871
cls1870)
((lambda (len1873)
((letrec ((lp1874 (lambda (i1876
cls1875)
(if (= i1876
len1873)
cls1875
(lp1874
(+ i1876
'1)
(p1871
(vector-ref
v1872
i1876)
cls1875))))))
lp1874)
'0
cls1870))
(vector-length
v1872))))
(conflicts1828 (lambda (x1857
y1856
cls1855)
(if (import-interface?380
x1857)
((lambda (x.iface1859
x.new-marks1858)
(if (import-interface?380
y1856)
((lambda (y.iface1861
y.new-marks1860)
((lambda (xe1863
ye1862)
(if (> (vector-length
xe1863)
(vector-length
ye1862))
(vfold1827
ye1862
(lambda (id1865
cls1864)
(id-iface-conflicts1829
id1865
y.new-marks1860
x.iface1859
x.new-marks1858
cls1864))
cls1855)
(vfold1827
xe1863
(lambda (id1867
cls1866)
(id-iface-conflicts1829
id1867
x.new-marks1858
y.iface1861
y.new-marks1860
cls1866))
cls1855)))
(interface-exports454
x.iface1859)
(interface-exports454
y.iface1861)))
(import-interface-interface381
y1856)
(import-interface-new-marks382
y1856))
(id-iface-conflicts1829
y1856
'()
x.iface1859
x.new-marks1858
cls1855)))
(import-interface-interface381
x1857)
(import-interface-new-marks382
x1857))
(if (import-interface?380
y1856)
((lambda (y.iface1869
y.new-marks1868)
(id-iface-conflicts1829
x1857
'()
y.iface1869
y.new-marks1868
cls1855))
(import-interface-interface381
y1856)
(import-interface-new-marks382
y1856))
(if (bound-id=?438
x1857
y1856)
(cons
x1857
cls1855)
cls1855)))))
(id-iface-conflicts1829 (lambda (id1842
id.new-marks1841
iface1840
iface.new-marks1839
cls1838)
((lambda (id.sym1844
id.marks1843)
((lambda (t1845)
(if t1845
((lambda (token1846)
(if (lookup-import-binding-name415
id.sym1844
id.marks1843
token1846
iface.new-marks1839)
(cons
id1842
cls1838)
cls1838))
t1845)
(vfold1827
(interface-exports454
iface1840)
(lambda (*id1848
cls1847)
((lambda (*id.sym1850
*id.marks1849)
(if (help-bound-id=?437
*id.sym1850
*id.marks1849
id.sym1844
id.marks1843)
(cons
*id1848
cls1847)
cls1847))
((lambda (x1851)
((lambda (e1852)
(if (annotation?132
e1852)
(annotation-expression
e1852)
e1852))
(if (syntax-object?64
x1851)
(syntax-object-expression65
x1851)
x1851)))
*id1848)
(join-marks423
iface.new-marks1839
(id-marks312
*id1848))))
cls1838)))
(interface-token455
iface1840)))
((lambda (x1853)
((lambda (e1854)
(if (annotation?132
e1854)
(annotation-expression
e1854)
e1854))
(if (syntax-object?64
x1853)
(syntax-object-expression65
x1853)
x1853)))
id1842)
(join-marks423
id.new-marks1841
(id-marks312
id1842))))))
(if (not (null? ls1825))
((letrec ((lp1830 (lambda (x1833
ls1832
cls1831)
(if (null?
ls1832)
(if (not (null?
cls1831))
((lambda (cls1834)
(syntax-error
source-exp1826
'"duplicate definition for "
(symbol->string
(car cls1834))
'" in"))
(syntax-object->datum
cls1831))
(void))
((letrec ((lp21835 (lambda (ls21837
cls1836)
(if (null?
ls21837)
(lp1830
(car ls1832)
(cdr ls1832)
cls1836)
(lp21835
(cdr ls21837)
(conflicts1828
x1833
(car ls21837)
cls1836))))))
lp21835)
ls1832
cls1831)))))
lp1830)
(car ls1825)
(cdr ls1825)
'())
(void)))))
(chi-external486 (lambda (ribcage1721 source-exp1720
body1719 r1718 mr1717 ctem1716
exports1715 fexports1714
meta-residualize!1713)
(letrec ((return1722 (lambda (r1824 mr1823
bindings1822
ids1821
inits1820)
(begin
(check-defined-ids485
source-exp1720
ids1821)
(check-module-exports484
source-exp1720
fexports1714
ids1821)
(values
r1824
mr1823
bindings1822
inits1820))))
(get-implicit-exports1723 (lambda (id1817)
((letrec ((f1818 (lambda (exports1819)
(if (null?
exports1819)
'()
(if (if (pair?
(car exports1819))
(bound-id=?438
id1817
(caar
exports1819))
'#f)
(flatten-exports450
(cdar
exports1819))
(f1818
(cdr exports1819)))))))
f1818)
exports1715)))
(update-imp-exports1724 (lambda (bindings1812
exports1811)
((lambda (exports1813)
(map (lambda (b1814)
((lambda (id1815)
(if (not (bound-id-member?442
id1815
exports1813))
b1814
(create-module-binding475
(module-binding-type463
b1814)
id1815
(module-binding-label465
b1814)
(append
(get-implicit-exports1723
id1815)
(module-binding-imps466
b1814))
(module-binding-val467
b1814))))
(module-binding-id464
b1814)))
bindings1812))
(map (lambda (x1816)
(if (pair?
x1816)
(car x1816)
x1816))
exports1811)))))
((letrec ((parse1725 (lambda (body1732
r1731 mr1730
ids1729
bindings1728
inits1727
meta-seen?1726)
(if (null?
body1732)
(return1722
r1731 mr1730
bindings1728
ids1729
inits1727)
((lambda (fr1733)
((lambda (e1734)
((lambda (meta?1735)
((lambda ()
(call-with-values
(lambda ()
(syntax-type446
e1734
r1731
'(())
'#f
ribcage1721))
(lambda (type1740
value1739
e1738
w1737
ae1736)
((lambda (t1741)
(if (memv
t1741
'(define-form))
(call-with-values
(lambda ()
(parse-define510
e1738
w1737
ae1736))
(lambda (id1744
rhs1743
w1742)
((lambda (id1745)
((lambda (label1746)
((lambda (imps1747)
((lambda ()
(begin
(extend-ribcage!410
ribcage1721
id1745
label1746)
(if meta?1735
((lambda (sym1748)
((lambda (b1749)
((lambda ()
((lambda (mr1750)
((lambda (exp1751)
(begin
(define-top-level-value-hook135
sym1748
(top-level-eval-hook133
exp1751))
(meta-residualize!1713
(ct-eval/residualize3494
ctem1716
void
(lambda ()
(list
'define
sym1748
exp1751))))
(parse1725
(cdr body1732)
r1731
mr1750
(cons
id1745
ids1729)
(cons
(create-module-binding475
'ctdefine-form
id1745
label1746
imps1747
b1749)
bindings1728)
inits1727
'#f)))
(chi498
rhs1743
mr1750
mr1750
w1742
'#t)))
(extend-env295
(get-indirect-label360
label1746)
b1749
mr1730)))))
(cons
'meta-variable
sym1748)))
(generate-id143
((lambda (x1752)
((lambda (e1753)
(if (annotation?132
e1753)
(annotation-expression
e1753)
e1753))
(if (syntax-object?64
x1752)
(syntax-object-expression65
x1752)
x1752)))
id1745)))
(parse1725
(cdr body1732)
r1731
mr1730
(cons
id1745
ids1729)
(cons
(create-module-binding475
type1740
id1745
label1746
imps1747
(make-frob476
(wrap443
rhs1743
w1742)
meta?1735))
bindings1728)
inits1727
'#f))))))
(get-implicit-exports1723
id1745)))
(gen-indirect-label359)))
(wrap443
id1744
w1742))))
(if (memv
t1741
'(define-syntax-form))
(call-with-values
(lambda ()
(parse-define-syntax511
e1738
w1737
ae1736))
(lambda (id1756
rhs1755
w1754)
((lambda (id1757)
((lambda (label1758)
((lambda (imps1759)
((lambda (exp1760)
((lambda ()
(begin
(extend-ribcage!410
ribcage1721
id1757
label1758)
((lambda (l1762
b1761)
(parse1725
(cdr body1732)
(extend-env295
l1762
b1761
r1731)
(extend-env295
l1762
b1761
mr1730)
(cons
id1757
ids1729)
(cons
(create-module-binding475
type1740
id1757
label1758
imps1759
(cons
b1761
exp1760))
bindings1728)
inits1727
'#f))
(get-indirect-label360
label1758)
(defer-or-eval-transformer303
top-level-eval-hook133
exp1760))))))
(chi498
rhs1755
mr1730
mr1730
w1754
'#t)))
(get-implicit-exports1723
id1757)))
(gen-indirect-label359)))
(wrap443
id1756
w1754))))
(if (memv
t1741
'($module-form))
((lambda (*ribcage1763)
((lambda (*w1764)
((lambda ()
(call-with-values
(lambda ()
(parse-module508
e1738
w1737
ae1736
*w1764))
(lambda (orig1768
id1767
*exports1766
forms1765)
(call-with-values
(lambda ()
(chi-external486
*ribcage1763
orig1768
(map (lambda (d1780)
(make-frob476
d1780
meta?1735))
forms1765)
r1731
mr1730
ctem1716
*exports1766
(flatten-exports450
*exports1766)
meta-residualize!1713))
(lambda (r1772
mr1771
*bindings1770
*inits1769)
((lambda (iface1777
bindings1776
inits1775
label1774
imps1773)
(begin
(extend-ribcage!410
ribcage1721
id1767
label1774)
((lambda (l1779
b1778)
(parse1725
(cdr body1732)
(extend-env295
l1779
b1778
r1772)
(extend-env295
l1779
b1778
mr1771)
(cons
id1767
ids1729)
(cons
(create-module-binding475
type1740
id1767
label1774
imps1773
*exports1766)
bindings1776)
inits1775
'#f))
(get-indirect-label360
label1774)
(cons
'$module
iface1777))))
(make-unresolved-interface459
id1767
*exports1766)
(append
*bindings1770
bindings1728)
(append
inits1727
*inits1769)
(gen-indirect-label359)
(get-implicit-exports1723
id1767)))))))))
(make-wrap315
(wrap-marks316
w1737)
(cons
*ribcage1763
(wrap-subst317
w1737)))))
(make-ribcage365
'()
'()
'()))
(if (memv
t1741
'($import-form))
(call-with-values
(lambda ()
(parse-import509
e1738
w1737
ae1736))
(lambda (orig1783
only?1782
mid1781)
((lambda (mlabel1784)
((lambda (binding1785)
((lambda (t1786)
(if (memv
t1786
'($module))
((lambda (iface1787)
((lambda (import-iface1788)
((lambda ()
(begin
(if only?1782
(extend-ribcage-barrier!412
ribcage1721
mid1781)
(void))
(do-import!507
import-iface1788
ribcage1721)
(parse1725
(cdr body1732)
r1731
mr1730
(cons
import-iface1788
ids1729)
(update-imp-exports1724
bindings1728
(vector->list
(interface-exports454
iface1787)))
inits1727
'#f)))))
(make-import-interface379
iface1787
(import-mark-delta505
mid1781
iface1787))))
(binding-value282
binding1785))
(if (memv
t1786
'(displaced-lexical))
(displaced-lexical-error299
mid1781)
(syntax-error
mid1781
'"unknown module"))))
(binding-type281
binding1785)))
(lookup301
mlabel1784
r1731)))
(id-var-name434
mid1781
'(())))))
(if (memv
t1741
'(alias-form))
(call-with-values
(lambda ()
(parse-alias514
e1738
w1737
ae1736))
(lambda (new-id1790
old-id1789)
((lambda (new-id1791)
((lambda (label1792)
((lambda (imps1793)
((lambda ()
(begin
(extend-ribcage!410
ribcage1721
new-id1791
label1792)
(parse1725
(cdr body1732)
r1731
mr1730
(cons
new-id1791
ids1729)
(cons
(create-module-binding475
type1740
new-id1791
label1792
imps1793
'#f)
bindings1728)
inits1727
'#f)))))
(get-implicit-exports1723
new-id1791)))
(id-var-name-loc433
old-id1789
w1737)))
(wrap443
new-id1790
w1737))))
(if (memv
t1741
'(begin-form))
(parse1725
((letrec ((f1794 (lambda (forms1795)
(if (null?
forms1795)
(cdr body1732)
(cons
(make-frob476
(wrap443
(car forms1795)
w1737)
meta?1735)
(f1794
(cdr forms1795)))))))
f1794)
(parse-begin515
e1738
w1737
ae1736
'#t))
r1731
mr1730
ids1729
bindings1728
inits1727
'#f)
(if (memv
t1741
'(eval-when-form))
(call-with-values
(lambda ()
(parse-eval-when513
e1738
w1737
ae1736))
(lambda (when-list1797
forms1796)
(parse1725
(if (memq
'eval
when-list1797)
((letrec ((f1798 (lambda (forms1799)
(if (null?
forms1799)
(cdr body1732)
(cons
(make-frob476
(wrap443
(car forms1799)
w1737)
meta?1735)
(f1798
(cdr forms1799)))))))
f1798)
forms1796)
(cdr body1732))
r1731
mr1730
ids1729
bindings1728
inits1727
'#f)))
(if (memv
t1741
'(meta-form))
(parse1725
(cons
(make-frob476
(wrap443
(parse-meta512
e1738
w1737
ae1736)
w1737)
'#t)
(cdr body1732))
r1731
mr1730
ids1729
bindings1728
inits1727
'#t)
(if (memv
t1741
'(local-syntax-form))
(call-with-values
(lambda ()
(chi-local-syntax517
value1739
e1738
r1731
mr1730
w1737
ae1736))
(lambda (forms1804
r1803
mr1802
w1801
ae1800)
(parse1725
((letrec ((f1805 (lambda (forms1806)
(if (null?
forms1806)
(cdr body1732)
(cons
(make-frob476
(wrap443
(car forms1806)
w1801)
meta?1735)
(f1805
(cdr forms1806)))))))
f1805)
forms1804)
r1803
mr1802
ids1729
bindings1728
inits1727
'#f)))
(begin
(if meta-seen?1726
(syntax-error
(source-wrap444
e1738
w1737
ae1736)
'"invalid meta definition")
(void))
((letrec ((f1807 (lambda (body1808)
(if ((lambda (t1809)
(if t1809
t1809
(not (frob-meta?479
(car body1808)))))
(null?
body1808))
(return1722
r1731
mr1730
bindings1728
ids1729
(append
inits1727
body1808))
(begin
((lambda (x1810)
(begin
(top-level-eval-hook133
x1810)
(meta-residualize!1713
(ct-eval/residualize3494
ctem1716
void
(lambda ()
x1810)))))
(chi-meta-frob496
(car body1808)
mr1730))
(f1807
(cdr body1808)))))))
f1807)
(cons
(make-frob476
(source-wrap444
e1738
w1737
ae1736)
meta?1735)
(cdr body1732))))))))))))))
type1740))))))
(frob-meta?479
fr1733)))
(frob-e478
fr1733)))
(car body1732))))))
parse1725) body1719 r1718 mr1717 '()
'() '() '#f))))
(vmap487 (lambda (fn1709 v1708)
((letrec ((do1710 (lambda (i1712 ls1711)
(if (< i1712 '0)
ls1711
(do1710
(- i1712 '1)
(cons
(fn1709
(vector-ref
v1708
i1712))
ls1711))))))
do1710)
(- (vector-length v1708) '1)
'())))
(vfor-each488 (lambda (fn1704 v1703)
((lambda (len1705)
((letrec ((do1706 (lambda (i1707)
(if (not (= i1707
len1705))
(begin
(fn1704
(vector-ref
v1703
i1707))
(do1706
(+ i1707 '1)))
(void)))))
do1706)
'0))
(vector-length v1703))))
(do-top-import489 (lambda (import-only?1702 top-ribcage1701
mid1700 token1699)
(list
'$sc-put-cte
(list 'quote mid1700)
(list 'quote (cons 'do-import token1699))
(list
'quote
(top-ribcage-key375
top-ribcage1701)))))
(update-mode-set490 ((lambda (table1690)
(lambda (when-list1692 mode-set1691)
(letrec ((remq1693 (lambda (x1698
ls1697)
(if (null?
ls1697)
'()
(if (eq? (car ls1697)
x1698)
(remq1693
x1698
(cdr ls1697))
(cons
(car ls1697)
(remq1693
x1698
(cdr ls1697))))))))
(remq1693
'-
(apply
append
(map (lambda (m1694)
((lambda (row1695)
(map (lambda (s1696)
(cdr (assq
s1696
row1695)))
when-list1692))
(cdr (assq
m1694
table1690))))
mode-set1691))))))
'((l (load . l) (compile . c) (visit . v)
(revisit . r) (eval . -))
(c (load . -) (compile . -)
(visit . -) (revisit . -)
(eval . c))
(v (load . v) (compile . c)
(visit . v) (revisit . -)
(eval . -))
(r (load . r) (compile . c)
(visit . -) (revisit . r)
(eval . -))
(e (load . -) (compile . -)
(visit . -) (revisit . -)
(eval . e)))))
(initial-mode-set491 (lambda (when-list1686
compiling-a-file1685)
(apply
append
(map (lambda (s1687)
(if compiling-a-file1685
((lambda (t1688)
(if (memv
t1688
'(compile))
'(c)
(if (memv
t1688
'(load))
'(l)
(if (memv
t1688
'(visit))
'(v)
(if (memv
t1688
'(revisit))
'(r)
'())))))
s1687)
((lambda (t1689)
(if (memv t1689 '(eval))
'(e)
'()))
s1687)))
when-list1686))))
(rt-eval/residualize492 (lambda (rtem1680 thunk1679)
(if (memq 'e rtem1680)
(thunk1679)
((lambda (thunk1681)
(if (memq 'v rtem1680)
(if ((lambda (t1682)
(if t1682
t1682
(memq
'r
rtem1680)))
(memq 'l rtem1680))
(thunk1681)
(thunk1681))
(if ((lambda (t1683)
(if t1683
t1683
(memq
'r
rtem1680)))
(memq 'l rtem1680))
(thunk1681)
(chi-void518))))
(if (memq 'c rtem1680)
((lambda (x1684)
(begin
(top-level-eval-hook133
x1684)
(lambda () x1684)))
(thunk1679))
thunk1679)))))
(ct-eval/residualize2493 (lambda (ctem1676 thunk1675)
((lambda (t1677)
(ct-eval/residualize3494
ctem1676
(lambda ()
(begin
(if (not t1677)
(set! t1677
(thunk1675))
(void))
(top-level-eval-hook133
t1677)))
(lambda ()
((lambda (t1678)
(if t1678
t1678
(thunk1675)))
t1677))))
'#f)))
(ct-eval/residualize3494 (lambda (ctem1672 eval-thunk1671
residualize-thunk1670)
(if (memq 'e ctem1672)
(begin
(eval-thunk1671)
(chi-void518))
(begin
(if (memq 'c ctem1672)
(eval-thunk1671)
(void))
(if (memq 'r ctem1672)
(if ((lambda (t1673)
(if t1673
t1673
(memq
'v
ctem1672)))
(memq 'l ctem1672))
(residualize-thunk1670)
(residualize-thunk1670))
(if ((lambda (t1674)
(if t1674
t1674
(memq
'v
ctem1672)))
(memq 'l ctem1672))
(residualize-thunk1670)
(chi-void518)))))))
(chi-frobs495 (lambda (frob*1668 r1667 mr1666 m?1665)
(map (lambda (x1669)
(chi498 (frob-e478 x1669) r1667 mr1666
'(()) m?1665))
frob*1668)))
(chi-meta-frob496 (lambda (x1664 mr1663)
(chi498 (frob-e478 x1664) mr1663 mr1663
'(()) '#t)))
(chi-sequence497 (lambda (body1659 r1658 mr1657 w1656 ae1655
m?1654)
(build-sequence235
ae1655
((letrec ((dobody1660 (lambda (body1661)
(if (null?
body1661)
'()
((lambda (first1662)
(cons
first1662
(dobody1660
(cdr body1661))))
(chi498
(car body1661)
r1658
mr1657
w1656
m?1654))))))
dobody1660)
body1659))))
(chi498 (lambda (e1648 r1647 mr1646 w1645 m?1644)
(call-with-values
(lambda ()
(syntax-type446 e1648 r1647 w1645 '#f '#f))
(lambda (type1653 value1652 e1651 w1650 ae1649)
(chi-expr499 type1653 value1652 e1651 r1647
mr1646 w1650 ae1649 m?1644)))))
(chi-expr499 (lambda (type1628 value1627 e1626 r1625 mr1624
w1623 ae1622 m?1621)
((lambda (t1629)
(if (memv t1629 '(lexical))
value1627
(if (memv t1629 '(core))
(value1627 e1626 r1625 mr1624 w1623
ae1622 m?1621)
(if (memv t1629 '(lexical-call))
(chi-application500 value1627
e1626 r1625 mr1624 w1623 ae1622
m?1621)
(if (memv t1629 '(constant))
(list
'quote
(strip522
(source-wrap444
e1626
w1623
ae1622)
'(())))
(if (memv t1629 '(global))
value1627
(if (memv
t1629
'(meta-variable))
(if m?1621
value1627
(displaced-lexical-error299
(source-wrap444
e1626
w1623
ae1622)))
(if (memv
t1629
'(call))
(chi-application500
(chi498
(car e1626)
r1625 mr1624
w1623 m?1621)
e1626 r1625
mr1624 w1623
ae1622 m?1621)
(if (memv
t1629
'(begin-form))
(chi-sequence497
(parse-begin515
e1626
w1623
ae1622
'#f)
r1625
mr1624
w1623
ae1622
m?1621)
(if (memv
t1629
'(local-syntax-form))
(call-with-values
(lambda ()
(chi-local-syntax517
value1627
e1626
r1625
mr1624
w1623
ae1622))
(lambda (forms1634
r1633
mr1632
w1631
ae1630)
(chi-sequence497
forms1634
r1633
mr1632
w1631
ae1630
m?1621)))
(if (memv
t1629
'(eval-when-form))
(call-with-values
(lambda ()
(parse-eval-when513
e1626
w1623
ae1622))
(lambda (when-list1636
forms1635)
(if (memq
'eval
when-list1636)
(chi-sequence497
forms1635
r1625
mr1624
w1623
ae1622
m?1621)
(chi-void518))))
(if (memv
t1629
'(meta-form))
(syntax-error
(source-wrap444
e1626
w1623
ae1622)
'"invalid context for meta definition")
(if (memv
t1629
'(define-form))
(begin
(parse-define510
e1626
w1623
ae1622)
(syntax-error
(source-wrap444
e1626
w1623
ae1622)
'"invalid context for definition"))
(if (memv
t1629
'(define-syntax-form))
(begin
(parse-define-syntax511
e1626
w1623
ae1622)
(syntax-error
(source-wrap444
e1626
w1623
ae1622)
'"invalid context for definition"))
(if (memv
t1629
'($module-form))
(call-with-values
(lambda ()
(parse-module508
e1626
w1623
ae1622
w1623))
(lambda (orig1640
id1639
exports1638
forms1637)
(syntax-error
orig1640
'"invalid context for definition")))
(if (memv
t1629
'($import-form))
(call-with-values
(lambda ()
(parse-import509
e1626
w1623
ae1622))
(lambda (orig1643
only?1642
mid1641)
(syntax-error
orig1643
'"invalid context for definition")))
(if (memv
t1629
'(alias-form))
(begin
(parse-alias514
e1626
w1623
ae1622)
(syntax-error
(source-wrap444
e1626
w1623
ae1622)
'"invalid context for definition"))
(if (memv
t1629
'(syntax))
(syntax-error
(source-wrap444
e1626
w1623
ae1622)
'"reference to pattern variable outside syntax form")
(if (memv
t1629
'(displaced-lexical))
(displaced-lexical-error299
(source-wrap444
e1626
w1623
ae1622))
(syntax-error
(source-wrap444
e1626
w1623
ae1622)))))))))))))))))))))
type1628)))
(chi-application500 (lambda (x1613 e1612 r1611 mr1610 w1609
ae1608 m?1607)
((lambda (tmp1614)
((lambda (tmp1615)
(if tmp1615
(apply
(lambda (e01617 e11616)
(cons
x1613
(map (lambda (e1619)
(chi498 e1619
r1611 mr1610
w1609 m?1607))
e11616)))
tmp1615)
((lambda (_1620)
(syntax-error
(source-wrap444
e1612
w1609
ae1608)))
tmp1614)))
($syntax-dispatch
tmp1614
'(any . each-any))))
e1612)))
(chi-set!501 (lambda (e1581 r1580 w1579 ae1578 rib1577)
((lambda (tmp1582)
((lambda (tmp1583)
(if (if tmp1583
(apply
(lambda (_1586 id1585 val1584)
(id?306 id1585))
tmp1583)
'#f)
(apply
(lambda (_1589 id1588 val1587)
((lambda (n1590)
((lambda (b1591)
((lambda (t1592)
(if (memv
t1592
'(macro!))
((lambda (id1594
val1593)
(syntax-type446
(chi-macro502
(binding-value282
b1591)
(list
'#(syntax-object set! ((top) #(ribcage () () ()) #(ribcage #(id val) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(t) #(("m" top)) #("i")) #(ribcage () () ()) #(ribcage #(b) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(n) #((top)) #("i")) #(ribcage #(_ id val) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(e r w ae rib) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap s
id1594
val1593)
r1580 '(())
'#f rib1577)
r1580 '(()) '#f
rib1577))
(wrap443
id1588
w1579)
(wrap443
val1587
w1579))
(values 'core
(lambda (e1600
r1599
mr1598
w1597
ae1596
m?1595)
((lambda (val1602
n1601)
((lambda (b1603)
((lambda (t1604)
(if (memv
t1604
'(lexical))
(list
'set!
(binding-value282
b1603)
val1602)
(if (memv
t1604
'(global))
((lambda (sym1605)
(begin
(if (read-only-binding?140
n1601)
(syntax-error
(source-wrap444
e1600
w1597
ae1596)
'"invalid assignment to read-only variable")
(void))
(list
'set!
sym1605
val1602)))
(binding-value282
b1603))
(if (memv
t1604
'(meta-variable))
(if m?1595
(list
'set!
(binding-value282
b1603)
val1602)
(displaced-lexical-error299
(wrap443
id1588
w1597)))
(if (memv
t1604
'(displaced-lexical))
(displaced-lexical-error299
(wrap443
id1588
w1597))
(syntax-error
(source-wrap444
e1600
w1597
ae1596)))))))
(binding-type281
b1603)))
(lookup301
n1601
r1599)))
(chi498 val1587
r1599 mr1598
w1597 m?1595)
(id-var-name434
id1588
w1597)))
e1581 w1579
ae1578)))
(binding-type281 b1591)))
(lookup301 n1590 r1580)))
(id-var-name434 id1588 w1579)))
tmp1583)
((lambda (_1606)
(syntax-error
(source-wrap444
e1581
w1579
ae1578)))
tmp1582)))
($syntax-dispatch tmp1582 '(any any any))))
e1581)))
(chi-macro502 (lambda (p1564 e1563 r1562 w1561 ae1560
rib1559)
(letrec ((rebuild-macro-output1565 (lambda (x1569
m1568)
(if (pair?
x1569)
(cons
(rebuild-macro-output1565
(car x1569)
m1568)
(rebuild-macro-output1565
(cdr x1569)
m1568))
(if (syntax-object?64
x1569)
((lambda (w1570)
((lambda (ms1572
s1571)
(make-syntax-object63
(syntax-object-expression65
x1569)
(if (if (pair?
ms1572)
(eq? (car ms1572)
'#f)
'#f)
(make-wrap315
(cdr ms1572)
(cdr s1571))
(make-wrap315
(cons
m1568
ms1572)
(if rib1559
(cons
rib1559
(cons
'shift
s1571))
(cons
'shift
s1571))))))
(wrap-marks316
w1570)
(wrap-subst317
w1570)))
(syntax-object-wrap66
x1569))
(if (vector?
x1569)
((lambda (n1573)
((lambda (v1574)
((lambda ()
((letrec ((do1575 (lambda (i1576)
(if (= i1576
n1573)
v1574
(begin
(vector-set!
v1574
i1576
(rebuild-macro-output1565
(vector-ref
x1569
i1576)
m1568))
(do1575
(+ i1576
'1)))))))
do1575)
'0))))
(make-vector
n1573)))
(vector-length
x1569))
(if (symbol?
x1569)
(syntax-error
(source-wrap444
e1563
w1561
ae1560)
'"encountered raw symbol "
(symbol->string
x1569)
'" in output of macro")
x1569)))))))
(rebuild-macro-output1565
((lambda (out1566)
(if (procedure? out1566)
(out1566
(lambda (id1567)
(begin
(if (not (identifier? id1567))
(syntax-error
id1567
'"environment argument is not an identifier")
(void))
(lookup301
(id-var-name434
id1567
'(()))
r1562))))
out1566))
(p1564
(source-wrap444
e1563
(anti-mark400 w1561)
ae1560)))
(string '#\m)))))
(chi-body503 (lambda (body1547 outer-form1546 r1545 mr1544
w1543 m?1542)
((lambda (ribcage1548)
((lambda (w1549)
((lambda (body1550)
((lambda ()
(call-with-values
(lambda ()
(chi-internal504 ribcage1548
outer-form1546 body1550 r1545
mr1544 m?1542))
(lambda (r1557 mr1556 exprs1555
ids1554 vars1553 vals1552
inits1551)
(begin
(if (null? exprs1555)
(syntax-error
outer-form1546
'"no expressions in body")
(void))
(build-body237
'#f
(reverse vars1553)
(chi-frobs495
(reverse vals1552)
r1557
mr1556
m?1542)
(build-sequence235
'#f
(chi-frobs495
(append
inits1551
exprs1555)
r1557
mr1556
m?1542)))))))))
(map (lambda (x1558)
(make-frob476
(wrap443 x1558 w1549)
'#f))
body1547)))
(make-wrap315
(wrap-marks316 w1543)
(cons
ribcage1548
(wrap-subst317 w1543)))))
(make-ribcage365 '() '() '()))))
(chi-internal504 (lambda (ribcage1451 source-exp1450
body1449 r1448 mr1447 m?1446)
(letrec ((return1452 (lambda (r1541 mr1540
exprs1539
ids1538
vars1537
vals1536
inits1535)
(begin
(check-defined-ids485
source-exp1450
ids1538)
(values r1541
mr1540 exprs1539
ids1538 vars1537
vals1536
inits1535)))))
((letrec ((parse1453 (lambda (body1461
r1460 mr1459
ids1458
vars1457
vals1456
inits1455
meta-seen?1454)
(if (null?
body1461)
(return1452
r1460 mr1459
body1461
ids1458
vars1457
vals1456
inits1455)
((lambda (fr1462)
((lambda (e1463)
((lambda (meta?1464)
((lambda ()
(call-with-values
(lambda ()
(syntax-type446
e1463
r1460
'(())
'#f
ribcage1451))
(lambda (type1469
value1468
e1467
w1466
ae1465)
((lambda (t1470)
(if (memv
t1470
'(define-form))
(call-with-values
(lambda ()
(parse-define510
e1467
w1466
ae1465))
(lambda (id1473
rhs1472
w1471)
((lambda (id1475
label1474)
(if meta?1464
((lambda (sym1476)
(begin
(extend-ribcage!410
ribcage1451
id1475
label1474)
((lambda (mr1477)
(begin
(define-top-level-value-hook135
sym1476
(top-level-eval-hook133
(chi498
rhs1472
mr1477
mr1477
w1471
'#t)))
(parse1453
(cdr body1461)
r1460
mr1477
(cons
id1475
ids1458)
vars1457
vals1456
inits1455
'#f)))
(extend-env295
label1474
(cons
'meta-variable
sym1476)
mr1459))))
(generate-id143
((lambda (x1478)
((lambda (e1479)
(if (annotation?132
e1479)
(annotation-expression
e1479)
e1479))
(if (syntax-object?64
x1478)
(syntax-object-expression65
x1478)
x1478)))
id1475)))
((lambda (var1480)
(begin
(extend-ribcage!410
ribcage1451
id1475
label1474)
(parse1453
(cdr body1461)
(extend-env295
label1474
(cons
'lexical
var1480)
r1460)
mr1459
(cons
id1475
ids1458)
(cons
var1480
vars1457)
(cons
(make-frob476
(wrap443
rhs1472
w1471)
meta?1464)
vals1456)
inits1455
'#f)))
(gen-var523
id1475))))
(wrap443
id1473
w1471)
(gen-label362))))
(if (memv
t1470
'(define-syntax-form))
(call-with-values
(lambda ()
(parse-define-syntax511
e1467
w1466
ae1465))
(lambda (id1483
rhs1482
w1481)
((lambda (id1486
label1485
exp1484)
(begin
(extend-ribcage!410
ribcage1451
id1486
label1485)
((lambda (b1487)
(parse1453
(cdr body1461)
(extend-env295
label1485
b1487
r1460)
(extend-env295
label1485
b1487
mr1459)
(cons
id1486
ids1458)
vars1457
vals1456
inits1455
'#f))
(defer-or-eval-transformer303
local-eval-hook134
exp1484))))
(wrap443
id1483
w1481)
(gen-label362)
(chi498
rhs1482
mr1459
mr1459
w1481
'#t))))
(if (memv
t1470
'($module-form))
((lambda (*ribcage1488)
((lambda (*w1489)
((lambda ()
(call-with-values
(lambda ()
(parse-module508
e1467
w1466
ae1465
*w1489))
(lambda (orig1493
id1492
exports1491
forms1490)
(call-with-values
(lambda ()
(chi-internal504
*ribcage1488
orig1493
(map (lambda (d1507)
(make-frob476
d1507
meta?1464))
forms1490)
r1460
mr1459
m?1446))
(lambda (r1500
mr1499
*body1498
*ids1497
*vars1496
*vals1495
*inits1494)
(begin
(check-module-exports484
source-exp1450
(flatten-exports450
exports1491)
*ids1497)
((lambda (iface1505
vars1504
vals1503
inits1502
label1501)
(begin
(extend-ribcage!410
ribcage1451
id1492
label1501)
((lambda (b1506)
(parse1453
(cdr body1461)
(extend-env295
label1501
b1506
r1500)
(extend-env295
label1501
b1506
mr1499)
(cons
id1492
ids1458)
vars1504
vals1503
inits1502
'#f))
(cons
'$module
iface1505))))
(make-resolved-interface460
id1492
exports1491
'#f)
(append
*vars1496
vars1457)
(append
*vals1495
vals1456)
(append
inits1455
*inits1494
*body1498)
(gen-label362))))))))))
(make-wrap315
(wrap-marks316
w1466)
(cons
*ribcage1488
(wrap-subst317
w1466)))))
(make-ribcage365
'()
'()
'()))
(if (memv
t1470
'($import-form))
(call-with-values
(lambda ()
(parse-import509
e1467
w1466
ae1465))
(lambda (orig1510
only?1509
mid1508)
((lambda (mlabel1511)
((lambda (binding1512)
((lambda (t1513)
(if (memv
t1513
'($module))
((lambda (iface1514)
((lambda (import-iface1515)
((lambda ()
(begin
(if only?1509
(extend-ribcage-barrier!412
ribcage1451
mid1508)
(void))
(do-import!507
import-iface1515
ribcage1451)
(parse1453
(cdr body1461)
r1460
mr1459
(cons
import-iface1515
ids1458)
vars1457
vals1456
inits1455
'#f)))))
(make-import-interface379
iface1514
(import-mark-delta505
mid1508
iface1514))))
(binding-value282
binding1512))
(if (memv
t1513
'(displaced-lexical))
(displaced-lexical-error299
mid1508)
(syntax-error
mid1508
'"unknown module"))))
(binding-type281
binding1512)))
(lookup301
mlabel1511
r1460)))
(id-var-name434
mid1508
'(())))))
(if (memv
t1470
'(alias-form))
(call-with-values
(lambda ()
(parse-alias514
e1467
w1466
ae1465))
(lambda (new-id1517
old-id1516)
((lambda (new-id1518)
(begin
(extend-ribcage!410
ribcage1451
new-id1518
(id-var-name-loc433
old-id1516
w1466))
(parse1453
(cdr body1461)
r1460
mr1459
(cons
new-id1518
ids1458)
vars1457
vals1456
inits1455
'#f)))
(wrap443
new-id1517
w1466))))
(if (memv
t1470
'(begin-form))
(parse1453
((letrec ((f1519 (lambda (forms1520)
(if (null?
forms1520)
(cdr body1461)
(cons
(make-frob476
(wrap443
(car forms1520)
w1466)
meta?1464)
(f1519
(cdr forms1520)))))))
f1519)
(parse-begin515
e1467
w1466
ae1465
'#t))
r1460
mr1459
ids1458
vars1457
vals1456
inits1455
'#f)
(if (memv
t1470
'(eval-when-form))
(call-with-values
(lambda ()
(parse-eval-when513
e1467
w1466
ae1465))
(lambda (when-list1522
forms1521)
(parse1453
(if (memq
'eval
when-list1522)
((letrec ((f1523 (lambda (forms1524)
(if (null?
forms1524)
(cdr body1461)
(cons
(make-frob476
(wrap443
(car forms1524)
w1466)
meta?1464)
(f1523
(cdr forms1524)))))))
f1523)
forms1521)
(cdr body1461))
r1460
mr1459
ids1458
vars1457
vals1456
inits1455
'#f)))
(if (memv
t1470
'(meta-form))
(parse1453
(cons
(make-frob476
(wrap443
(parse-meta512
e1467
w1466
ae1465)
w1466)
'#t)
(cdr body1461))
r1460
mr1459
ids1458
vars1457
vals1456
inits1455
'#t)
(if (memv
t1470
'(local-syntax-form))
(call-with-values
(lambda ()
(chi-local-syntax517
value1468
e1467
r1460
mr1459
w1466
ae1465))
(lambda (forms1529
r1528
mr1527
w1526
ae1525)
(parse1453
((letrec ((f1530 (lambda (forms1531)
(if (null?
forms1531)
(cdr body1461)
(cons
(make-frob476
(wrap443
(car forms1531)
w1526)
meta?1464)
(f1530
(cdr forms1531)))))))
f1530)
forms1529)
r1528
mr1527
ids1458
vars1457
vals1456
inits1455
'#f)))
(begin
(if meta-seen?1454
(syntax-error
(source-wrap444
e1467
w1466
ae1465)
'"invalid meta definition")
(void))
((letrec ((f1532 (lambda (body1533)
(if ((lambda (t1534)
(if t1534
t1534
(not (frob-meta?479
(car body1533)))))
(null?
body1533))
(return1452
r1460
mr1459
body1533
ids1458
vars1457
vals1456
inits1455)
(begin
(top-level-eval-hook133
(chi-meta-frob496
(car body1533)
mr1459))
(f1532
(cdr body1533)))))))
f1532)
(cons
(make-frob476
(source-wrap444
e1467
w1466
ae1465)
meta?1464)
(cdr body1461))))))))))))))
type1469))))))
(frob-meta?479
fr1462)))
(frob-e478
fr1462)))
(car body1461))))))
parse1453) body1449 r1448 mr1447 '()
'() '() '() '#f))))
(import-mark-delta505 (lambda (mid1445 iface1444)
(diff-marks426
(id-marks312 mid1445)
(interface-marks453 iface1444))))
(lookup-import-label506 (lambda (id1442)
((lambda (label1443)
(begin
(if (not label1443)
(syntax-error
id1442
'"exported identifier not visible")
(void))
label1443))
(id-var-name-loc433
id1442
'(())))))
(do-import!507 (lambda (import-iface1438 ribcage1437)
((lambda (ie1439)
(if (<= (vector-length ie1439) '20)
((lambda (new-marks1440)
(vfor-each488
(lambda (id1441)
(import-extend-ribcage!411
ribcage1437
new-marks1440
id1441
(lookup-import-label506
id1441)))
ie1439))
(import-interface-new-marks382
import-iface1438))
(extend-ribcage-subst!414
ribcage1437
import-iface1438)))
(interface-exports454
(import-interface-interface381
import-iface1438)))))
(parse-module508 (lambda (e1413 w1412 ae1411 *w1410)
(letrec ((listify1414 (lambda (exports1431)
(if (null?
exports1431)
'()
(cons
((lambda (tmp1432)
((lambda (tmp1433)
(if tmp1433
(apply
(lambda (ex1434)
(listify1414
ex1434))
tmp1433)
((lambda (x1436)
(if (id?306
x1436)
(wrap443
x1436
*w1410)
(syntax-error
(source-wrap444
e1413
w1412
ae1411)
'"invalid exports list in")))
tmp1432)))
($syntax-dispatch
tmp1432
'each-any)))
(car exports1431))
(listify1414
(cdr exports1431)))))))
((lambda (tmp1415)
((lambda (tmp1416)
(if (if tmp1416
(apply
(lambda (_1421 orig1420
mid1419 ex1418
form1417)
(id?306 mid1419))
tmp1416)
'#f)
(apply
(lambda (_1426 orig1425
mid1424 ex1423
form1422)
(values
orig1425
(wrap443 mid1424 w1412)
(listify1414 ex1423)
(map (lambda (x1428)
(wrap443
x1428
*w1410))
form1422)))
tmp1416)
((lambda (_1430)
(syntax-error
(source-wrap444
e1413
w1412
ae1411)))
tmp1415)))
($syntax-dispatch
tmp1415
'(any any any each-any .
each-any))))
e1413))))
(parse-import509 (lambda (e1393 w1392 ae1391)
((lambda (tmp1394)
((lambda (tmp1395)
(if (if tmp1395
(apply
(lambda (_1398 orig1397
mid1396)
(id?306 mid1396))
tmp1395)
'#f)
(apply
(lambda (_1401 orig1400 mid1399)
(values
orig1400
'#t
(wrap443 mid1399 w1392)))
tmp1395)
((lambda (tmp1402)
(if (if tmp1402
(apply
(lambda (_1405
orig1404
mid1403)
(id?306 mid1403))
tmp1402)
'#f)
(apply
(lambda (_1408 orig1407
mid1406)
(values
orig1407
'#f
(wrap443
mid1406
w1392)))
tmp1402)
((lambda (_1409)
(syntax-error
(source-wrap444
e1393
w1392
ae1391)))
tmp1394)))
($syntax-dispatch
tmp1394
'(any any #(atom #f) any)))))
($syntax-dispatch
tmp1394
'(any any #(atom #t) any))))
e1393)))
(parse-define510 (lambda (e1364 w1363 ae1362)
((lambda (tmp1365)
((lambda (tmp1366)
(if (if tmp1366
(apply
(lambda (_1369 name1368
val1367)
(id?306 name1368))
tmp1366)
'#f)
(apply
(lambda (_1372 name1371 val1370)
(values
name1371
val1370
w1363))
tmp1366)
((lambda (tmp1373)
(if (if tmp1373
(apply
(lambda (_1378
name1377
args1376
e11375
e21374)
(if (id?306
name1377)
(valid-bound-ids?439
(lambda-var-list524
args1376))
'#f))
tmp1373)
'#f)
(apply
(lambda (_1383 name1382
args1381 e11380
e21379)
(values
(wrap443
name1382
w1363)
(cons
'#(syntax-object lambda ((top) #(ribcage #(_ name args e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(e w ae) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
(wrap443
(cons
args1381
(cons
e11380
e21379))
w1363))
'(())))
tmp1373)
((lambda (tmp1385)
(if (if tmp1385
(apply
(lambda (_1387
name1386)
(id?306
name1386))
tmp1385)
'#f)
(apply
(lambda (_1389
name1388)
(values
(wrap443
name1388
w1363)
'#(syntax-object (void) ((top) #(ribcage #(_ name) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(e w ae) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)
'(())))
tmp1385)
((lambda (_1390)
(syntax-error
(source-wrap444
e1364
w1363
ae1362)))
tmp1365)))
($syntax-dispatch
tmp1365
'(any any)))))
($syntax-dispatch
tmp1365
'(any (any . any)
any
.
each-any)))))
($syntax-dispatch
tmp1365
'(any any any))))
e1364)))
(parse-define-syntax511 (lambda (e1340 w1339 ae1338)
((lambda (tmp1341)
((lambda (tmp1342)
(if (if tmp1342
(apply
(lambda (_1347
name1346
id1345
e11344
e21343)
(if (id?306
name1346)
(id?306 id1345)
'#f))
tmp1342)
'#f)
(apply
(lambda (_1352 name1351
id1350 e11349
e21348)
(values
(wrap443
name1351
w1339)
(cons
'#(syntax-object lambda ((top) #(ribcage #(_ name id e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(e w ae) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (t
(cons
(wrap443
(list id1350)
w1339)
(wrap443
(cons
e11349
e21348)
w1339)))
'(())))
tmp1342)
((lambda (tmp1354)
(if (if tmp1354
(apply
(lambda (_1357
name1356
val1355)
(id?306
name1356))
tmp1354)
'#f)
(apply
(lambda (_1360
name1359
val1358)
(values
name1359
val1358
w1339))
tmp1354)
((lambda (_1361)
(syntax-error
(source-wrap444
e1340
w1339
ae1338)))
tmp1341)))
($syntax-dispatch
tmp1341
'(any any any)))))
($syntax-dispatch
tmp1341
'(any (any any)
any
.
each-any))))
e1340)))
(parse-meta512 (lambda (e1332 w1331 ae1330)
((lambda (tmp1333)
((lambda (tmp1334)
(if tmp1334
(apply
(lambda (_1336 form1335) form1335)
tmp1334)
((lambda (_1337)
(syntax-error
(source-wrap444
e1332
w1331
ae1330)))
tmp1333)))
($syntax-dispatch tmp1333 '(any . any))))
e1332)))
(parse-eval-when513 (lambda (e1320 w1319 ae1318)
((lambda (tmp1321)
((lambda (tmp1322)
(if tmp1322
(apply
(lambda (_1326 x1325 e11324
e21323)
(values
(chi-when-list445
x1325
w1319)
(cons e11324 e21323)))
tmp1322)
((lambda (_1329)
(syntax-error
(source-wrap444
e1320
w1319
ae1318)))
tmp1321)))
($syntax-dispatch
tmp1321
'(any each-any any . each-any))))
e1320)))
(parse-alias514 (lambda (e1308 w1307 ae1306)
((lambda (tmp1309)
((lambda (tmp1310)
(if (if tmp1310
(apply
(lambda (_1313 new-id1312
old-id1311)
(if (id?306 new-id1312)
(id?306 old-id1311)
'#f))
tmp1310)
'#f)
(apply
(lambda (_1316 new-id1315
old-id1314)