10859 lines
1.3 MiB
10859 lines
1.3 MiB
;;; psyntax.pp
|
|
;;; automatically generated from psyntax.scm
|
|
;;; Mon Feb 26 23:22:05 EST 2007
|
|
;;; see copyright notice in psyntax.scm
|
|
|
|
((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
'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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
'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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
'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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *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 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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
'(())))
|
|
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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *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)
|
|
(values new-id1315 old-id1314))
|
|
tmp1310)
|
|
((lambda (_1317)
|
|
(syntax-error
|
|
(source-wrap444
|
|
e1308
|
|
w1307
|
|
ae1306)))
|
|
tmp1309)))
|
|
($syntax-dispatch
|
|
tmp1309
|
|
'(any any any))))
|
|
e1308)))
|
|
(parse-begin515 (lambda (e1295 w1294 ae1293 empty-okay?1292)
|
|
((lambda (tmp1296)
|
|
((lambda (tmp1297)
|
|
(if (if tmp1297
|
|
(apply
|
|
(lambda (_1298)
|
|
empty-okay?1292)
|
|
tmp1297)
|
|
'#f)
|
|
(apply
|
|
(lambda (_1299) '())
|
|
tmp1297)
|
|
((lambda (tmp1300)
|
|
(if tmp1300
|
|
(apply
|
|
(lambda (_1303 e11302
|
|
e21301)
|
|
(cons e11302 e21301))
|
|
tmp1300)
|
|
((lambda (_1305)
|
|
(syntax-error
|
|
(source-wrap444
|
|
e1295
|
|
w1294
|
|
ae1293)))
|
|
tmp1296)))
|
|
($syntax-dispatch
|
|
tmp1296
|
|
'(any any . each-any)))))
|
|
($syntax-dispatch tmp1296 '(any))))
|
|
e1295)))
|
|
(chi-lambda-clause516 (lambda (e1269 c1268 r1267 mr1266
|
|
w1265 m?1264)
|
|
((lambda (tmp1270)
|
|
((lambda (tmp1271)
|
|
(if tmp1271
|
|
(apply
|
|
(lambda (id1274 e11273
|
|
e21272)
|
|
((lambda (ids1275)
|
|
(if (not (valid-bound-ids?439
|
|
ids1275))
|
|
(syntax-error
|
|
e1269
|
|
'"invalid parameter list in")
|
|
((lambda (labels1277
|
|
new-vars1276)
|
|
(values
|
|
new-vars1276
|
|
(chi-body503
|
|
(cons
|
|
e11273
|
|
e21272)
|
|
e1269
|
|
(extend-var-env*297
|
|
labels1277
|
|
new-vars1276
|
|
r1267)
|
|
mr1266
|
|
(make-binding-wrap417
|
|
ids1275
|
|
labels1277
|
|
w1265)
|
|
m?1264)))
|
|
(gen-labels364
|
|
ids1275)
|
|
(map gen-var523
|
|
ids1275))))
|
|
id1274))
|
|
tmp1271)
|
|
((lambda (tmp1280)
|
|
(if tmp1280
|
|
(apply
|
|
(lambda (ids1283
|
|
e11282
|
|
e21281)
|
|
((lambda (old-ids1284)
|
|
(if (not (valid-bound-ids?439
|
|
old-ids1284))
|
|
(syntax-error
|
|
e1269
|
|
'"invalid parameter list in")
|
|
((lambda (labels1286
|
|
new-vars1285)
|
|
(values
|
|
((letrec ((f1288 (lambda (ls11290
|
|
ls21289)
|
|
(if (null?
|
|
ls11290)
|
|
ls21289
|
|
(f1288
|
|
(cdr ls11290)
|
|
(cons
|
|
(car ls11290)
|
|
ls21289))))))
|
|
f1288)
|
|
(cdr new-vars1285)
|
|
(car new-vars1285))
|
|
(chi-body503
|
|
(cons
|
|
e11282
|
|
e21281)
|
|
e1269
|
|
(extend-var-env*297
|
|
labels1286
|
|
new-vars1285
|
|
r1267)
|
|
mr1266
|
|
(make-binding-wrap417
|
|
old-ids1284
|
|
labels1286
|
|
w1265)
|
|
m?1264)))
|
|
(gen-labels364
|
|
old-ids1284)
|
|
(map gen-var523
|
|
old-ids1284))))
|
|
(lambda-var-list524
|
|
ids1283)))
|
|
tmp1280)
|
|
((lambda (_1291)
|
|
(syntax-error
|
|
e1269))
|
|
tmp1270)))
|
|
($syntax-dispatch
|
|
tmp1270
|
|
'(any any . each-any)))))
|
|
($syntax-dispatch
|
|
tmp1270
|
|
'(each-any any . each-any))))
|
|
c1268)))
|
|
(chi-local-syntax517 (lambda (rec?1245 e1244 r1243 mr1242
|
|
w1241 ae1240)
|
|
((lambda (tmp1246)
|
|
((lambda (tmp1247)
|
|
(if tmp1247
|
|
(apply
|
|
(lambda (_1252 id1251
|
|
val1250 e11249
|
|
e21248)
|
|
((lambda (ids1253)
|
|
(if (not (valid-bound-ids?439
|
|
ids1253))
|
|
(invalid-ids-error441
|
|
(map (lambda (x1254)
|
|
(wrap443
|
|
x1254
|
|
w1241))
|
|
ids1253)
|
|
(source-wrap444
|
|
e1244
|
|
w1241
|
|
ae1240)
|
|
'"keyword")
|
|
((lambda (labels1255)
|
|
((lambda (new-w1256)
|
|
((lambda (b*1257)
|
|
(values
|
|
(cons
|
|
e11249
|
|
e21248)
|
|
(extend-env*296
|
|
labels1255
|
|
b*1257
|
|
r1243)
|
|
(extend-env*296
|
|
labels1255
|
|
b*1257
|
|
mr1242)
|
|
new-w1256
|
|
ae1240))
|
|
((lambda (w1259)
|
|
(map (lambda (x1261)
|
|
(defer-or-eval-transformer303
|
|
local-eval-hook134
|
|
(chi498
|
|
x1261
|
|
mr1242
|
|
mr1242
|
|
w1259
|
|
'#t)))
|
|
val1250))
|
|
(if rec?1245
|
|
new-w1256
|
|
w1241))))
|
|
(make-binding-wrap417
|
|
ids1253
|
|
labels1255
|
|
w1241)))
|
|
(gen-labels364
|
|
ids1253))))
|
|
id1251))
|
|
tmp1247)
|
|
((lambda (_1263)
|
|
(syntax-error
|
|
(source-wrap444
|
|
e1244
|
|
w1241
|
|
ae1240)))
|
|
tmp1246)))
|
|
($syntax-dispatch
|
|
tmp1246
|
|
'(any #(each (any any))
|
|
any
|
|
.
|
|
each-any))))
|
|
e1244)))
|
|
(chi-void518 (lambda () (cons 'void '())))
|
|
(ellipsis?519 (lambda (x1239)
|
|
(if (nonsymbol-id?305 x1239)
|
|
(literal-id=?436
|
|
x1239
|
|
'#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
'#f)))
|
|
(strip-annotation520 (lambda (x1238)
|
|
(if (pair? x1238)
|
|
(cons
|
|
(strip-annotation520 (car x1238))
|
|
(strip-annotation520 (cdr x1238)))
|
|
(if (annotation?132 x1238)
|
|
(annotation-stripped x1238)
|
|
x1238))))
|
|
(strip*521 (lambda (x1231 w1230 fn1229)
|
|
(if (memq 'top (wrap-marks316 w1230))
|
|
(fn1229 x1231)
|
|
((letrec ((f1232 (lambda (x1233)
|
|
(if (syntax-object?64
|
|
x1233)
|
|
(strip*521
|
|
(syntax-object-expression65
|
|
x1233)
|
|
(syntax-object-wrap66
|
|
x1233)
|
|
fn1229)
|
|
(if (pair? x1233)
|
|
((lambda (a1235
|
|
d1234)
|
|
(if (if (eq? a1235
|
|
(car x1233))
|
|
(eq? d1234
|
|
(cdr x1233))
|
|
'#f)
|
|
x1233
|
|
(cons
|
|
a1235
|
|
d1234)))
|
|
(f1232
|
|
(car x1233))
|
|
(f1232
|
|
(cdr x1233)))
|
|
(if (vector? x1233)
|
|
((lambda (old1236)
|
|
((lambda (new1237)
|
|
(if (andmap
|
|
eq?
|
|
old1236
|
|
new1237)
|
|
x1233
|
|
(list->vector
|
|
new1237)))
|
|
(map f1232
|
|
old1236)))
|
|
(vector->list
|
|
x1233))
|
|
x1233))))))
|
|
f1232)
|
|
x1231))))
|
|
(strip522 (lambda (x1226 w1225)
|
|
(strip*521
|
|
x1226
|
|
w1225
|
|
(lambda (x1227)
|
|
(if ((lambda (t1228)
|
|
(if t1228
|
|
t1228
|
|
(if (pair? x1227)
|
|
(annotation?132 (car x1227))
|
|
'#f)))
|
|
(annotation?132 x1227))
|
|
(strip-annotation520 x1227)
|
|
x1227)))))
|
|
(gen-var523 (lambda (id1223)
|
|
((lambda (id1224)
|
|
(if (annotation?132 id1224)
|
|
(gensym)
|
|
(gensym)))
|
|
(if (syntax-object?64 id1223)
|
|
(syntax-object-expression65 id1223)
|
|
id1223))))
|
|
(lambda-var-list524 (lambda (vars1218)
|
|
((letrec ((lvl1219 (lambda (vars1222
|
|
ls1221 w1220)
|
|
(if (pair? vars1222)
|
|
(lvl1219
|
|
(cdr vars1222)
|
|
(cons
|
|
(wrap443
|
|
(car vars1222)
|
|
w1220)
|
|
ls1221)
|
|
w1220)
|
|
(if (id?306
|
|
vars1222)
|
|
(cons
|
|
(wrap443
|
|
vars1222
|
|
w1220)
|
|
ls1221)
|
|
(if (null?
|
|
vars1222)
|
|
ls1221
|
|
(if (syntax-object?64
|
|
vars1222)
|
|
(lvl1219
|
|
(syntax-object-expression65
|
|
vars1222)
|
|
ls1221
|
|
(join-wraps422
|
|
w1220
|
|
(syntax-object-wrap66
|
|
vars1222)))
|
|
(if (annotation?132
|
|
vars1222)
|
|
(lvl1219
|
|
(annotation-expression
|
|
vars1222)
|
|
ls1221
|
|
w1220)
|
|
(cons
|
|
vars1222
|
|
ls1221)))))))))
|
|
lvl1219)
|
|
vars1218
|
|
'()
|
|
'(())))))
|
|
(begin
|
|
(set! $sc-put-cte
|
|
(lambda (id1199 b1198 top-token1197)
|
|
(letrec ((sc-put-module1200 (lambda (exports1216 token1215
|
|
new-marks1214)
|
|
(vfor-each488
|
|
(lambda (id1217)
|
|
(store-import-binding416
|
|
id1217
|
|
token1215
|
|
new-marks1214))
|
|
exports1216)))
|
|
(put-cte1201 (lambda (id1212 binding1211 token1210)
|
|
((lambda (sym1213)
|
|
(begin
|
|
(store-import-binding416
|
|
id1212
|
|
token1210
|
|
'())
|
|
(put-global-definition-hook139
|
|
sym1213
|
|
(if (if (eq? (binding-type281
|
|
binding1211)
|
|
'global)
|
|
(eq? (binding-value282
|
|
binding1211)
|
|
sym1213)
|
|
'#f)
|
|
'#f
|
|
binding1211))))
|
|
(if (symbol? id1212)
|
|
id1212
|
|
(id-var-name434 id1212 '(())))))))
|
|
((lambda (binding1202)
|
|
((lambda (t1203)
|
|
(if (memv t1203 '($module))
|
|
(begin
|
|
((lambda (iface1204)
|
|
(sc-put-module1200
|
|
(interface-exports454 iface1204)
|
|
(interface-token455 iface1204)
|
|
'()))
|
|
(binding-value282 binding1202))
|
|
(put-cte1201 id1199 binding1202 top-token1197))
|
|
(if (memv t1203 '(do-alias))
|
|
(store-import-binding416
|
|
id1199
|
|
top-token1197
|
|
'())
|
|
(if (memv t1203 '(do-import))
|
|
((lambda (token1205)
|
|
((lambda (b1206)
|
|
((lambda (t1207)
|
|
(if (memv t1207 '($module))
|
|
((lambda (iface1208)
|
|
((lambda (exports1209)
|
|
((lambda ()
|
|
(begin
|
|
(if (not (eq? (interface-token455
|
|
iface1208)
|
|
token1205))
|
|
(syntax-error
|
|
id1199
|
|
'"import mismatch for module")
|
|
(void))
|
|
(sc-put-module1200
|
|
(interface-exports454
|
|
iface1208)
|
|
top-token1197
|
|
(import-mark-delta505
|
|
id1199
|
|
iface1208))))))
|
|
(interface-exports454
|
|
iface1208)))
|
|
(binding-value282 b1206))
|
|
(syntax-error
|
|
id1199
|
|
'"unknown module")))
|
|
(binding-type281 b1206)))
|
|
(lookup301
|
|
(id-var-name434 id1199 '(()))
|
|
'())))
|
|
(binding-value282 b1198))
|
|
(put-cte1201
|
|
id1199
|
|
binding1202
|
|
top-token1197)))))
|
|
(binding-type281 binding1202)))
|
|
(make-transformer-binding302 b1198)))))
|
|
(global-extend304 'local-syntax 'letrec-syntax '#t)
|
|
(global-extend304 'local-syntax 'let-syntax '#f)
|
|
(global-extend304
|
|
'core
|
|
'fluid-let-syntax
|
|
(lambda (e1171 r1170 mr1169 w1168 ae1167 m?1166)
|
|
((lambda (tmp1172)
|
|
((lambda (tmp1173)
|
|
(if (if tmp1173
|
|
(apply
|
|
(lambda (_1178 var1177 val1176 e11175 e21174)
|
|
(valid-bound-ids?439 var1177))
|
|
tmp1173)
|
|
'#f)
|
|
(apply
|
|
(lambda (_1184 var1183 val1182 e11181 e21180)
|
|
((lambda (names1185)
|
|
(begin
|
|
(for-each
|
|
(lambda (id1192 n1191)
|
|
((lambda (t1193)
|
|
(if (memv t1193 '(displaced-lexical))
|
|
(displaced-lexical-error299
|
|
(wrap443 id1192 w1168))
|
|
(void)))
|
|
(binding-type281
|
|
(lookup301 n1191 r1170))))
|
|
var1183
|
|
names1185)
|
|
((lambda (b*1186)
|
|
(chi-body503 (cons e11181 e21180)
|
|
(source-wrap444 e1171 w1168 ae1167)
|
|
(extend-env*296 names1185 b*1186 r1170)
|
|
(extend-env*296 names1185 b*1186 mr1169)
|
|
w1168 m?1166))
|
|
(map (lambda (x1189)
|
|
(defer-or-eval-transformer303
|
|
local-eval-hook134
|
|
(chi498 x1189 mr1169 mr1169 w1168
|
|
'#t)))
|
|
val1182))))
|
|
(map (lambda (x1195)
|
|
(id-var-name434 x1195 w1168))
|
|
var1183)))
|
|
tmp1173)
|
|
((lambda (_1196)
|
|
(syntax-error (source-wrap444 e1171 w1168 ae1167)))
|
|
tmp1172)))
|
|
($syntax-dispatch
|
|
tmp1172
|
|
'(any #(each (any any)) any . each-any))))
|
|
e1171)))
|
|
(global-extend304
|
|
'core
|
|
'quote
|
|
(lambda (e1160 r1159 mr1158 w1157 ae1156 m?1155)
|
|
((lambda (tmp1161)
|
|
((lambda (tmp1162)
|
|
(if tmp1162
|
|
(apply
|
|
(lambda (_1164 e1163)
|
|
(list 'quote (strip522 e1163 w1157)))
|
|
tmp1162)
|
|
((lambda (_1165)
|
|
(syntax-error (source-wrap444 e1160 w1157 ae1156)))
|
|
tmp1161)))
|
|
($syntax-dispatch tmp1161 '(any any))))
|
|
e1160)))
|
|
(global-extend304
|
|
'core
|
|
'syntax
|
|
((lambda ()
|
|
(letrec ((gen-syntax1039 (lambda (src1100 e1099 r1098
|
|
maps1097 ellipsis?1096
|
|
vec?1095)
|
|
(if (id?306 e1099)
|
|
((lambda (label1101)
|
|
((lambda (b1102)
|
|
(if (eq? (binding-type281
|
|
b1102)
|
|
'syntax)
|
|
(call-with-values
|
|
(lambda ()
|
|
((lambda (var.lev1105)
|
|
(gen-ref1040
|
|
src1100
|
|
(car var.lev1105)
|
|
(cdr var.lev1105)
|
|
maps1097))
|
|
(binding-value282
|
|
b1102)))
|
|
(lambda (var1104
|
|
maps1103)
|
|
(values
|
|
(list
|
|
'ref
|
|
var1104)
|
|
maps1103)))
|
|
(if (ellipsis?1096
|
|
e1099)
|
|
(syntax-error
|
|
src1100
|
|
'"misplaced ellipsis in syntax form")
|
|
(values
|
|
(list
|
|
'quote
|
|
e1099)
|
|
maps1097))))
|
|
(lookup301
|
|
label1101
|
|
r1098)))
|
|
(id-var-name434 e1099 '(())))
|
|
((lambda (tmp1106)
|
|
((lambda (tmp1107)
|
|
(if (if tmp1107
|
|
(apply
|
|
(lambda (dots1109
|
|
e1108)
|
|
(ellipsis?1096
|
|
dots1109))
|
|
tmp1107)
|
|
'#f)
|
|
(apply
|
|
(lambda (dots1111
|
|
e1110)
|
|
(if vec?1095
|
|
(syntax-error
|
|
src1100
|
|
'"misplaced ellipsis in syntax template")
|
|
(gen-syntax1039
|
|
src1100
|
|
e1110 r1098
|
|
maps1097
|
|
(lambda (x1112)
|
|
'#f)
|
|
'#f)))
|
|
tmp1107)
|
|
((lambda (tmp1113)
|
|
(if (if tmp1113
|
|
(apply
|
|
(lambda (x1116
|
|
dots1115
|
|
y1114)
|
|
(ellipsis?1096
|
|
dots1115))
|
|
tmp1113)
|
|
'#f)
|
|
(apply
|
|
(lambda (x1119
|
|
dots1118
|
|
y1117)
|
|
((letrec ((f1120 (lambda (y1122
|
|
k1121)
|
|
((lambda (tmp1123)
|
|
((lambda (tmp1124)
|
|
(if (if tmp1124
|
|
(apply
|
|
(lambda (dots1126
|
|
y1125)
|
|
(ellipsis?1096
|
|
dots1126))
|
|
tmp1124)
|
|
'#f)
|
|
(apply
|
|
(lambda (dots1128
|
|
y1127)
|
|
(f1120
|
|
y1127
|
|
(lambda (maps1129)
|
|
(call-with-values
|
|
(lambda ()
|
|
(k1121
|
|
(cons
|
|
'()
|
|
maps1129)))
|
|
(lambda (x1131
|
|
maps1130)
|
|
(if (null?
|
|
(car maps1130))
|
|
(syntax-error
|
|
src1100
|
|
'"extra ellipsis in syntax form")
|
|
(values
|
|
(gen-mappend1042
|
|
x1131
|
|
(car maps1130))
|
|
(cdr maps1130))))))))
|
|
tmp1124)
|
|
((lambda (_1132)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax1039
|
|
src1100
|
|
y1122
|
|
r1098
|
|
maps1097
|
|
ellipsis?1096
|
|
vec?1095))
|
|
(lambda (y1134
|
|
maps1133)
|
|
(call-with-values
|
|
(lambda ()
|
|
(k1121
|
|
maps1133))
|
|
(lambda (x1136
|
|
maps1135)
|
|
(values
|
|
(gen-append1041
|
|
x1136
|
|
y1134)
|
|
maps1135))))))
|
|
tmp1123)))
|
|
($syntax-dispatch
|
|
tmp1123
|
|
'(any .
|
|
any))))
|
|
y1122))))
|
|
f1120)
|
|
y1117
|
|
(lambda (maps1137)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax1039
|
|
src1100
|
|
x1119
|
|
r1098
|
|
(cons
|
|
'()
|
|
maps1137)
|
|
ellipsis?1096
|
|
'#f))
|
|
(lambda (x1139
|
|
maps1138)
|
|
(if (null?
|
|
(car maps1138))
|
|
(syntax-error
|
|
src1100
|
|
'"extra ellipsis in syntax form")
|
|
(values
|
|
(gen-map1043
|
|
x1139
|
|
(car maps1138))
|
|
(cdr maps1138))))))))
|
|
tmp1113)
|
|
((lambda (tmp1140)
|
|
(if tmp1140
|
|
(apply
|
|
(lambda (x1142
|
|
y1141)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax1039
|
|
src1100
|
|
x1142
|
|
r1098
|
|
maps1097
|
|
ellipsis?1096
|
|
'#f))
|
|
(lambda (xnew1144
|
|
maps1143)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax1039
|
|
src1100
|
|
y1141
|
|
r1098
|
|
maps1143
|
|
ellipsis?1096
|
|
vec?1095))
|
|
(lambda (ynew1146
|
|
maps1145)
|
|
(values
|
|
(gen-cons1044
|
|
e1099
|
|
x1142
|
|
y1141
|
|
xnew1144
|
|
ynew1146)
|
|
maps1145))))))
|
|
tmp1140)
|
|
((lambda (tmp1147)
|
|
(if tmp1147
|
|
(apply
|
|
(lambda (x11149
|
|
x21148)
|
|
((lambda (ls1150)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax1039
|
|
src1100
|
|
ls1150
|
|
r1098
|
|
maps1097
|
|
ellipsis?1096
|
|
'#t))
|
|
(lambda (lsnew1152
|
|
maps1151)
|
|
(values
|
|
(gen-vector1045
|
|
e1099
|
|
ls1150
|
|
lsnew1152)
|
|
maps1151))))
|
|
(cons
|
|
x11149
|
|
x21148)))
|
|
tmp1147)
|
|
((lambda (_1154)
|
|
(values
|
|
(list
|
|
'quote
|
|
e1099)
|
|
maps1097))
|
|
tmp1106)))
|
|
($syntax-dispatch
|
|
tmp1106
|
|
'#(vector
|
|
(any .
|
|
each-any))))))
|
|
($syntax-dispatch
|
|
tmp1106
|
|
'(any .
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp1106
|
|
'(any any
|
|
.
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp1106
|
|
'(any any))))
|
|
e1099))))
|
|
(gen-ref1040 (lambda (src1090 var1089 level1088
|
|
maps1087)
|
|
(if (= level1088 '0)
|
|
(values var1089 maps1087)
|
|
(if (null? maps1087)
|
|
(syntax-error
|
|
src1090
|
|
'"missing ellipsis in syntax form")
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-ref1040
|
|
src1090
|
|
var1089
|
|
(- level1088 '1)
|
|
(cdr maps1087)))
|
|
(lambda (outer-var1092
|
|
outer-maps1091)
|
|
((lambda (b1093)
|
|
(if b1093
|
|
(values
|
|
(cdr b1093)
|
|
maps1087)
|
|
((lambda (inner-var1094)
|
|
(values
|
|
inner-var1094
|
|
(cons
|
|
(cons
|
|
(cons
|
|
outer-var1092
|
|
inner-var1094)
|
|
(car maps1087))
|
|
outer-maps1091)))
|
|
(gen-var523
|
|
'tmp))))
|
|
(assq
|
|
outer-var1092
|
|
(car maps1087)))))))))
|
|
(gen-append1041 (lambda (x1086 y1085)
|
|
(if (equal? y1085 ''())
|
|
x1086
|
|
(list 'append x1086 y1085))))
|
|
(gen-mappend1042 (lambda (e1084 map-env1083)
|
|
(list
|
|
'apply
|
|
'(primitive append)
|
|
(gen-map1043
|
|
e1084
|
|
map-env1083))))
|
|
(gen-map1043 (lambda (e1076 map-env1075)
|
|
((lambda (formals1078 actuals1077)
|
|
(if (eq? (car e1076) 'ref)
|
|
(car actuals1077)
|
|
(if (andmap
|
|
(lambda (x1079)
|
|
(if (eq? (car x1079)
|
|
'ref)
|
|
(memq
|
|
(cadr x1079)
|
|
formals1078)
|
|
'#f))
|
|
(cdr e1076))
|
|
(cons
|
|
'map
|
|
(cons
|
|
(list
|
|
'primitive
|
|
(car e1076))
|
|
(map ((lambda (r1080)
|
|
(lambda (x1081)
|
|
(cdr (assq
|
|
(cadr
|
|
x1081)
|
|
r1080))))
|
|
(map cons
|
|
formals1078
|
|
actuals1077))
|
|
(cdr e1076))))
|
|
(cons
|
|
'map
|
|
(cons
|
|
(list
|
|
'lambda
|
|
formals1078
|
|
e1076)
|
|
actuals1077)))))
|
|
(map cdr map-env1075)
|
|
(map (lambda (x1082)
|
|
(list 'ref (car x1082)))
|
|
map-env1075))))
|
|
(gen-cons1044 (lambda (e1071 x1070 y1069 xnew1068
|
|
ynew1067)
|
|
((lambda (t1072)
|
|
(if (memv t1072 '(quote))
|
|
(if (eq? (car xnew1068) 'quote)
|
|
((lambda (xnew1074
|
|
ynew1073)
|
|
(if (if (eq? xnew1074
|
|
x1070)
|
|
(eq? ynew1073
|
|
y1069)
|
|
'#f)
|
|
(list 'quote e1071)
|
|
(list
|
|
'quote
|
|
(cons
|
|
xnew1074
|
|
ynew1073))))
|
|
(cadr xnew1068)
|
|
(cadr ynew1067))
|
|
(if (eq? (cadr ynew1067)
|
|
'())
|
|
(list 'list xnew1068)
|
|
(list
|
|
'cons
|
|
xnew1068
|
|
ynew1067)))
|
|
(if (memv t1072 '(list))
|
|
(cons
|
|
'list
|
|
(cons
|
|
xnew1068
|
|
(cdr ynew1067)))
|
|
(list
|
|
'cons
|
|
xnew1068
|
|
ynew1067))))
|
|
(car ynew1067))))
|
|
(gen-vector1045 (lambda (e1066 ls1065 lsnew1064)
|
|
(if (eq? (car lsnew1064) 'quote)
|
|
(if (eq? (cadr lsnew1064)
|
|
ls1065)
|
|
(list 'quote e1066)
|
|
(list
|
|
'quote
|
|
(list->vector
|
|
(cadr lsnew1064))))
|
|
(if (eq? (car lsnew1064) 'list)
|
|
(cons
|
|
'vector
|
|
(cdr lsnew1064))
|
|
(list
|
|
'list->vector
|
|
lsnew1064)))))
|
|
(regen1046 (lambda (x1061)
|
|
((lambda (t1062)
|
|
(if (memv t1062 '(ref))
|
|
(cadr x1061)
|
|
(if (memv t1062 '(primitive))
|
|
(cadr x1061)
|
|
(if (memv t1062 '(quote))
|
|
(list 'quote (cadr x1061))
|
|
(if (memv t1062 '(lambda))
|
|
(list
|
|
'lambda
|
|
(cadr x1061)
|
|
(regen1046
|
|
(caddr x1061)))
|
|
(if (memv
|
|
t1062
|
|
'(map))
|
|
((lambda (ls1063)
|
|
(cons
|
|
(if (= (length
|
|
ls1063)
|
|
'2)
|
|
'map
|
|
'map)
|
|
ls1063))
|
|
(map regen1046
|
|
(cdr x1061)))
|
|
(cons
|
|
(car x1061)
|
|
(map regen1046
|
|
(cdr x1061)))))))))
|
|
(car x1061)))))
|
|
(lambda (e1052 r1051 mr1050 w1049 ae1048 m?1047)
|
|
((lambda (e1053)
|
|
((lambda (tmp1054)
|
|
((lambda (tmp1055)
|
|
(if tmp1055
|
|
(apply
|
|
(lambda (_1057 x1056)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax1039 e1053 x1056 r1051 '()
|
|
ellipsis?519 '#f))
|
|
(lambda (e1059 maps1058)
|
|
(regen1046 e1059))))
|
|
tmp1055)
|
|
((lambda (_1060) (syntax-error e1053))
|
|
tmp1054)))
|
|
($syntax-dispatch tmp1054 '(any any))))
|
|
e1053))
|
|
(source-wrap444 e1052 w1049 ae1048)))))))
|
|
(global-extend304
|
|
'core
|
|
'lambda
|
|
(lambda (e1032 r1031 mr1030 w1029 ae1028 m?1027)
|
|
((lambda (tmp1033)
|
|
((lambda (tmp1034)
|
|
(if tmp1034
|
|
(apply
|
|
(lambda (_1036 c1035)
|
|
(call-with-values
|
|
(lambda ()
|
|
(chi-lambda-clause516
|
|
(source-wrap444 e1032 w1029 ae1028) c1035
|
|
r1031 mr1030 w1029 m?1027))
|
|
(lambda (vars1038 body1037)
|
|
(list 'lambda vars1038 body1037))))
|
|
tmp1034)
|
|
(syntax-error tmp1033)))
|
|
($syntax-dispatch tmp1033 '(any . any))))
|
|
e1032)))
|
|
(global-extend304
|
|
'core
|
|
'letrec
|
|
(lambda (e1008 r1007 mr1006 w1005 ae1004 m?1003)
|
|
((lambda (tmp1009)
|
|
((lambda (tmp1010)
|
|
(if tmp1010
|
|
(apply
|
|
(lambda (_1015 id1014 val1013 e11012 e21011)
|
|
((lambda (ids1016)
|
|
(if (not (valid-bound-ids?439 ids1016))
|
|
(invalid-ids-error441
|
|
(map (lambda (x1017)
|
|
(wrap443 x1017 w1005))
|
|
ids1016)
|
|
(source-wrap444 e1008 w1005 ae1004)
|
|
'"bound variable")
|
|
((lambda (labels1019 new-vars1018)
|
|
((lambda (w1021 r1020)
|
|
(build-letrec236
|
|
ae1004
|
|
new-vars1018
|
|
(map (lambda (x1024)
|
|
(chi498 x1024 r1020 mr1006
|
|
w1021 m?1003))
|
|
val1013)
|
|
(chi-body503 (cons e11012 e21011)
|
|
(source-wrap444
|
|
e1008
|
|
w1021
|
|
ae1004)
|
|
r1020 mr1006 w1021 m?1003)))
|
|
(make-binding-wrap417
|
|
ids1016
|
|
labels1019
|
|
w1005)
|
|
(extend-var-env*297
|
|
labels1019
|
|
new-vars1018
|
|
r1007)))
|
|
(gen-labels364 ids1016)
|
|
(map gen-var523 ids1016))))
|
|
id1014))
|
|
tmp1010)
|
|
((lambda (_1026)
|
|
(syntax-error (source-wrap444 e1008 w1005 ae1004)))
|
|
tmp1009)))
|
|
($syntax-dispatch
|
|
tmp1009
|
|
'(any #(each (any any)) any . each-any))))
|
|
e1008)))
|
|
(global-extend304
|
|
'core
|
|
'if
|
|
(lambda (e991 r990 mr989 w988 ae987 m?986)
|
|
((lambda (tmp992)
|
|
((lambda (tmp993)
|
|
(if tmp993
|
|
(apply
|
|
(lambda (_996 test995 then994)
|
|
(list
|
|
'if
|
|
(chi498 test995 r990 mr989 w988 m?986)
|
|
(chi498 then994 r990 mr989 w988 m?986)
|
|
(chi-void518)))
|
|
tmp993)
|
|
((lambda (tmp997)
|
|
(if tmp997
|
|
(apply
|
|
(lambda (_1001 test1000 then999 else998)
|
|
(list
|
|
'if
|
|
(chi498 test1000 r990 mr989 w988 m?986)
|
|
(chi498 then999 r990 mr989 w988 m?986)
|
|
(chi498 else998 r990 mr989 w988 m?986)))
|
|
tmp997)
|
|
((lambda (_1002)
|
|
(syntax-error
|
|
(source-wrap444 e991 w988 ae987)))
|
|
tmp992)))
|
|
($syntax-dispatch tmp992 '(any any any any)))))
|
|
($syntax-dispatch tmp992 '(any any any))))
|
|
e991)))
|
|
(global-extend304 'set! 'set! '())
|
|
(global-extend304 'alias 'alias '())
|
|
(global-extend304 'begin 'begin '())
|
|
(global-extend304 '$module-key '$module '())
|
|
(global-extend304 '$import '$import '())
|
|
(global-extend304 'define 'define '())
|
|
(global-extend304 'define-syntax 'define-syntax '())
|
|
(global-extend304 'eval-when 'eval-when '())
|
|
(global-extend304 'meta 'meta '())
|
|
(global-extend304
|
|
'core
|
|
'syntax-case
|
|
((lambda ()
|
|
(letrec ((convert-pattern858 (lambda (pattern935 keys934)
|
|
(letrec ((cvt*936 (lambda (p*981
|
|
n980
|
|
ids979)
|
|
(if (null?
|
|
p*981)
|
|
(values
|
|
'()
|
|
ids979)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt*936
|
|
(cdr p*981)
|
|
n980
|
|
ids979))
|
|
(lambda (y983
|
|
ids982)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt937
|
|
(car p*981)
|
|
n980
|
|
ids982))
|
|
(lambda (x985
|
|
ids984)
|
|
(values
|
|
(cons
|
|
x985
|
|
y983)
|
|
ids984))))))))
|
|
(cvt937 (lambda (p940
|
|
n939
|
|
ids938)
|
|
(if (id?306
|
|
p940)
|
|
(if (bound-id-member?442
|
|
p940
|
|
keys934)
|
|
(values
|
|
(vector
|
|
'free-id
|
|
p940)
|
|
ids938)
|
|
(values
|
|
'any
|
|
(cons
|
|
(cons
|
|
p940
|
|
n939)
|
|
ids938)))
|
|
((lambda (tmp941)
|
|
((lambda (tmp942)
|
|
(if (if tmp942
|
|
(apply
|
|
(lambda (x944
|
|
dots943)
|
|
(ellipsis?519
|
|
dots943))
|
|
tmp942)
|
|
'#f)
|
|
(apply
|
|
(lambda (x946
|
|
dots945)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt937
|
|
x946
|
|
(+ n939
|
|
'1)
|
|
ids938))
|
|
(lambda (p948
|
|
ids947)
|
|
(values
|
|
(if (eq? p948
|
|
'any)
|
|
'each-any
|
|
(vector
|
|
'each
|
|
p948))
|
|
ids947))))
|
|
tmp942)
|
|
((lambda (tmp949)
|
|
(if (if tmp949
|
|
(apply
|
|
(lambda (x953
|
|
dots952
|
|
y951
|
|
z950)
|
|
(ellipsis?519
|
|
dots952))
|
|
tmp949)
|
|
'#f)
|
|
(apply
|
|
(lambda (x957
|
|
dots956
|
|
y955
|
|
z954)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt937
|
|
z954
|
|
n939
|
|
ids938))
|
|
(lambda (z959
|
|
ids958)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt*936
|
|
y955
|
|
n939
|
|
ids958))
|
|
(lambda (y961
|
|
ids960)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt937
|
|
x957
|
|
(+ n939
|
|
'1)
|
|
ids960))
|
|
(lambda (x963
|
|
ids962)
|
|
(values
|
|
(vector
|
|
'each+
|
|
x963
|
|
(reverse
|
|
y961)
|
|
z959)
|
|
ids962))))))))
|
|
tmp949)
|
|
((lambda (tmp965)
|
|
(if tmp965
|
|
(apply
|
|
(lambda (x967
|
|
y966)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt937
|
|
y966
|
|
n939
|
|
ids938))
|
|
(lambda (y969
|
|
ids968)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt937
|
|
x967
|
|
n939
|
|
ids968))
|
|
(lambda (x971
|
|
ids970)
|
|
(values
|
|
(cons
|
|
x971
|
|
y969)
|
|
ids970))))))
|
|
tmp965)
|
|
((lambda (tmp972)
|
|
(if tmp972
|
|
(apply
|
|
(lambda ()
|
|
(values
|
|
'()
|
|
ids938))
|
|
tmp972)
|
|
((lambda (tmp973)
|
|
(if tmp973
|
|
(apply
|
|
(lambda (x974)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt937
|
|
x974
|
|
n939
|
|
ids938))
|
|
(lambda (p976
|
|
ids975)
|
|
(values
|
|
(vector
|
|
'vector
|
|
p976)
|
|
ids975))))
|
|
tmp973)
|
|
((lambda (x978)
|
|
(values
|
|
(vector
|
|
'atom
|
|
(strip522
|
|
p940
|
|
'(())))
|
|
ids938))
|
|
tmp941)))
|
|
($syntax-dispatch
|
|
tmp941
|
|
'#(vector
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp941
|
|
'()))))
|
|
($syntax-dispatch
|
|
tmp941
|
|
'(any .
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp941
|
|
'(any any
|
|
.
|
|
#(each+
|
|
any
|
|
()
|
|
any))))))
|
|
($syntax-dispatch
|
|
tmp941
|
|
'(any any))))
|
|
p940)))))
|
|
(cvt937 pattern935 '0 '()))))
|
|
(build-dispatch-call859 (lambda (pvars927 exp926 y925
|
|
r924 mr923 m?922)
|
|
((lambda (ids929 levels928)
|
|
((lambda (labels931
|
|
new-vars930)
|
|
(cons
|
|
'apply
|
|
(list
|
|
(list
|
|
'lambda
|
|
new-vars930
|
|
(chi498 exp926
|
|
(extend-env*296
|
|
labels931
|
|
(map (lambda (var933
|
|
level932)
|
|
(cons
|
|
'syntax
|
|
(cons
|
|
var933
|
|
level932)))
|
|
new-vars930
|
|
(map cdr
|
|
pvars927))
|
|
r924)
|
|
mr923
|
|
(make-binding-wrap417
|
|
ids929
|
|
labels931
|
|
'(()))
|
|
m?922))
|
|
y925)))
|
|
(gen-labels364 ids929)
|
|
(map gen-var523
|
|
ids929)))
|
|
(map car pvars927)
|
|
(map cdr pvars927))))
|
|
(gen-clause860 (lambda (x905 keys904 clauses903 r902
|
|
mr901 m?900 pat899 fender898
|
|
exp897)
|
|
(call-with-values
|
|
(lambda ()
|
|
(convert-pattern858
|
|
pat899
|
|
keys904))
|
|
(lambda (p907 pvars906)
|
|
(if (not (distinct-bound-ids?440
|
|
(map car pvars906)))
|
|
(invalid-ids-error441
|
|
(map car pvars906)
|
|
pat899
|
|
'"pattern variable")
|
|
(if (not (andmap
|
|
(lambda (x908)
|
|
(not (ellipsis?519
|
|
(car x908))))
|
|
pvars906))
|
|
(syntax-error
|
|
pat899
|
|
'"misplaced ellipsis in syntax-case pattern")
|
|
((lambda (y909)
|
|
(cons
|
|
(list
|
|
'lambda
|
|
(list y909)
|
|
(list
|
|
'if
|
|
((lambda (tmp919)
|
|
((lambda (tmp920)
|
|
(if tmp920
|
|
(apply
|
|
(lambda ()
|
|
y909)
|
|
tmp920)
|
|
((lambda (_921)
|
|
(list
|
|
'if
|
|
y909
|
|
(build-dispatch-call859
|
|
pvars906
|
|
fender898
|
|
y909
|
|
r902
|
|
mr901
|
|
m?900)
|
|
(list
|
|
'quote
|
|
'#f)))
|
|
tmp919)))
|
|
($syntax-dispatch
|
|
tmp919
|
|
'#(atom
|
|
#t))))
|
|
fender898)
|
|
(build-dispatch-call859
|
|
pvars906
|
|
exp897 y909
|
|
r902 mr901
|
|
m?900)
|
|
(gen-syntax-case861
|
|
x905 keys904
|
|
clauses903
|
|
r902 mr901
|
|
m?900)))
|
|
(list
|
|
(if (eq? p907
|
|
'any)
|
|
(cons
|
|
'list
|
|
(list x905))
|
|
(cons
|
|
'$syntax-dispatch
|
|
(list
|
|
x905
|
|
(list
|
|
'quote
|
|
p907)))))))
|
|
(gen-var523
|
|
'tmp))))))))
|
|
(gen-syntax-case861 (lambda (x885 keys884 clauses883
|
|
r882 mr881 m?880)
|
|
(if (null? clauses883)
|
|
(cons
|
|
'syntax-error
|
|
(list x885))
|
|
((lambda (tmp886)
|
|
((lambda (tmp887)
|
|
(if tmp887
|
|
(apply
|
|
(lambda (pat889
|
|
exp888)
|
|
(if (if (id?306
|
|
pat889)
|
|
(if (not (bound-id-member?442
|
|
pat889
|
|
keys884))
|
|
(not (ellipsis?519
|
|
pat889))
|
|
'#f)
|
|
'#f)
|
|
((lambda (label891
|
|
var890)
|
|
(cons
|
|
(list
|
|
'lambda
|
|
(list
|
|
var890)
|
|
(chi498
|
|
exp888
|
|
(extend-env295
|
|
label891
|
|
(cons
|
|
'syntax
|
|
(cons
|
|
var890
|
|
'0))
|
|
r882)
|
|
mr881
|
|
(make-binding-wrap417
|
|
(list
|
|
pat889)
|
|
(list
|
|
label891)
|
|
'(()))
|
|
m?880))
|
|
(list
|
|
x885)))
|
|
(gen-label362)
|
|
(gen-var523
|
|
pat889))
|
|
(gen-clause860
|
|
x885
|
|
keys884
|
|
(cdr clauses883)
|
|
r882
|
|
mr881
|
|
m?880
|
|
pat889
|
|
'#t
|
|
exp888)))
|
|
tmp887)
|
|
((lambda (tmp892)
|
|
(if tmp892
|
|
(apply
|
|
(lambda (pat895
|
|
fender894
|
|
exp893)
|
|
(gen-clause860
|
|
x885
|
|
keys884
|
|
(cdr clauses883)
|
|
r882
|
|
mr881
|
|
m?880
|
|
pat895
|
|
fender894
|
|
exp893))
|
|
tmp892)
|
|
((lambda (_896)
|
|
(syntax-error
|
|
(car clauses883)
|
|
'"invalid syntax-case clause"))
|
|
tmp886)))
|
|
($syntax-dispatch
|
|
tmp886
|
|
'(any any
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp886
|
|
'(any any))))
|
|
(car clauses883))))))
|
|
(lambda (e867 r866 mr865 w864 ae863 m?862)
|
|
((lambda (e868)
|
|
((lambda (tmp869)
|
|
((lambda (tmp870)
|
|
(if tmp870
|
|
(apply
|
|
(lambda (_874 val873 key872 m871)
|
|
(if (andmap
|
|
(lambda (x876)
|
|
(if (id?306 x876)
|
|
(not (ellipsis?519 x876))
|
|
'#f))
|
|
key872)
|
|
((lambda (x877)
|
|
(cons
|
|
(list
|
|
'lambda
|
|
(list x877)
|
|
(gen-syntax-case861 x877 key872
|
|
m871 r866 mr865 m?862))
|
|
(list
|
|
(chi498 val873 r866 mr865 '(())
|
|
m?862))))
|
|
(gen-var523 'tmp))
|
|
(syntax-error
|
|
e868
|
|
'"invalid literals list in")))
|
|
tmp870)
|
|
(syntax-error tmp869)))
|
|
($syntax-dispatch
|
|
tmp869
|
|
'(any any each-any . each-any))))
|
|
e868))
|
|
(source-wrap444 e867 w864 ae863)))))))
|
|
(put-cte-hook137
|
|
'module
|
|
(lambda (x827)
|
|
(letrec ((proper-export?828 (lambda (e851)
|
|
((lambda (tmp852)
|
|
((lambda (tmp853)
|
|
(if tmp853
|
|
(apply
|
|
(lambda (id855 e854)
|
|
(if (identifier?
|
|
id855)
|
|
(andmap
|
|
proper-export?828
|
|
e854)
|
|
'#f))
|
|
tmp853)
|
|
((lambda (id857)
|
|
(identifier? id857))
|
|
tmp852)))
|
|
($syntax-dispatch
|
|
tmp852
|
|
'(any . each-any))))
|
|
e851))))
|
|
((lambda (tmp829)
|
|
((lambda (orig830)
|
|
((lambda (tmp831)
|
|
((lambda (tmp832)
|
|
(if tmp832
|
|
(apply
|
|
(lambda (_835 e834 d833)
|
|
(if (andmap proper-export?828 e834)
|
|
(list
|
|
'#(syntax-object begin ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
'#(syntax-object $module ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
orig830
|
|
(cons
|
|
'#(syntax-object anon ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons e834 d833))))
|
|
(cons
|
|
'#(syntax-object $import ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
orig830
|
|
'#(syntax-object (#f anon) ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))))
|
|
(syntax-error
|
|
x827
|
|
'"invalid exports list in")))
|
|
tmp832)
|
|
((lambda (tmp839)
|
|
(if (if tmp839
|
|
(apply
|
|
(lambda (_843 m842 e841 d840)
|
|
(identifier? m842))
|
|
tmp839)
|
|
'#f)
|
|
(apply
|
|
(lambda (_847 m846 e845 d844)
|
|
(if (andmap proper-export?828 e845)
|
|
(cons
|
|
'#(syntax-object $module ((top) #(ribcage #(_ m e d) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
orig830
|
|
(cons
|
|
m846
|
|
(cons e845 d844))))
|
|
(syntax-error
|
|
x827
|
|
'"invalid exports list in")))
|
|
tmp839)
|
|
(syntax-error tmp831)))
|
|
($syntax-dispatch
|
|
tmp831
|
|
'(any any each-any . each-any)))))
|
|
($syntax-dispatch
|
|
tmp831
|
|
'(any each-any . each-any))))
|
|
x827))
|
|
tmp829))
|
|
x827))))
|
|
((lambda ()
|
|
(letrec (($module-exports628 (lambda (m819 r818)
|
|
((lambda (b820)
|
|
((lambda (t821)
|
|
(if (memv t821 '($module))
|
|
((lambda (interface822)
|
|
((lambda (new-marks823)
|
|
((lambda ()
|
|
(vmap487
|
|
(lambda (x824)
|
|
((lambda (id825)
|
|
(make-syntax-object63
|
|
(syntax-object->datum
|
|
id825)
|
|
((lambda (marks826)
|
|
(make-wrap315
|
|
marks826
|
|
(if (eq? (car marks826)
|
|
'#f)
|
|
(cons
|
|
'shift
|
|
(wrap-subst317
|
|
'((top))))
|
|
(wrap-subst317
|
|
'((top))))))
|
|
(join-marks423
|
|
new-marks823
|
|
(wrap-marks316
|
|
(syntax-object-wrap66
|
|
id825))))))
|
|
(if (pair?
|
|
x824)
|
|
(car x824)
|
|
x824)))
|
|
(interface-exports454
|
|
interface822)))))
|
|
(import-mark-delta505
|
|
m819
|
|
interface822)))
|
|
(binding-value282
|
|
b820))
|
|
(if (memv
|
|
t821
|
|
'(displaced-lexical))
|
|
(displaced-lexical-error299
|
|
m819)
|
|
(syntax-error
|
|
m819
|
|
'"unknown module"))))
|
|
(binding-type281 b820)))
|
|
(r818 m819))))
|
|
($import-help629 (lambda (orig633 import-only?632)
|
|
(lambda (r634)
|
|
(letrec ((difference635 (lambda (ls1817
|
|
ls2816)
|
|
(if (null?
|
|
ls1817)
|
|
ls1817
|
|
(if (bound-id-member?442
|
|
(car ls1817)
|
|
ls2816)
|
|
(difference635
|
|
(cdr ls1817)
|
|
ls2816)
|
|
(cons
|
|
(car ls1817)
|
|
(difference635
|
|
(cdr ls1817)
|
|
ls2816))))))
|
|
(prefix-add636 (lambda (prefix-id813)
|
|
((lambda (prefix814)
|
|
(lambda (id815)
|
|
(datum->syntax-object
|
|
id815
|
|
(string->symbol
|
|
(string-append
|
|
prefix814
|
|
(symbol->string
|
|
(syntax-object->datum
|
|
id815)))))))
|
|
(symbol->string
|
|
(syntax-object->datum
|
|
prefix-id813)))))
|
|
(prefix-drop637 (lambda (prefix-id807)
|
|
((lambda (prefix808)
|
|
(lambda (id809)
|
|
((lambda (s810)
|
|
((lambda (np812
|
|
ns811)
|
|
(begin
|
|
(if (not (if (>= ns811
|
|
np812)
|
|
(string=?
|
|
(substring
|
|
s810
|
|
'0
|
|
np812)
|
|
prefix808)
|
|
'#f))
|
|
(syntax-error
|
|
id809
|
|
(string-append
|
|
'"missing expected prefix "
|
|
prefix808))
|
|
(void))
|
|
(datum->syntax-object
|
|
id809
|
|
(string->symbol
|
|
(substring
|
|
s810
|
|
np812
|
|
ns811)))))
|
|
(string-length
|
|
prefix808)
|
|
(string-length
|
|
s810)))
|
|
(symbol->string
|
|
(syntax-object->datum
|
|
id809)))))
|
|
(symbol->string
|
|
(syntax-object->datum
|
|
prefix-id807)))))
|
|
(gen-mid638 (lambda (mid804)
|
|
(datum->syntax-object
|
|
mid804
|
|
(generate-id143
|
|
((lambda (x805)
|
|
((lambda (e806)
|
|
(if (annotation?132
|
|
e806)
|
|
(annotation-expression
|
|
e806)
|
|
e806))
|
|
(if (syntax-object?64
|
|
x805)
|
|
(syntax-object-expression65
|
|
x805)
|
|
x805)))
|
|
mid804)))))
|
|
(modspec639 (lambda (m655
|
|
exports?654)
|
|
((lambda (tmp656)
|
|
((lambda (tmp657)
|
|
(if tmp657
|
|
(apply
|
|
(lambda (orig659
|
|
import-only?658)
|
|
((lambda (tmp660)
|
|
((lambda (tmp661)
|
|
(if (if tmp661
|
|
(apply
|
|
(lambda (m663
|
|
id662)
|
|
(andmap
|
|
identifier?
|
|
id662))
|
|
tmp661)
|
|
'#f)
|
|
(apply
|
|
(lambda (m666
|
|
id665)
|
|
(call-with-values
|
|
(lambda ()
|
|
(modspec639
|
|
m666
|
|
'#f))
|
|
(lambda (mid669
|
|
d668
|
|
exports667)
|
|
((lambda (tmp670)
|
|
((lambda (tmp671)
|
|
(if tmp671
|
|
(apply
|
|
(lambda (d673
|
|
tmid672)
|
|
(values
|
|
mid669
|
|
(list
|
|
'#(syntax-object begin ((top) #(ribcage #(d tmid) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object $module ((top) #(ribcage #(d tmid) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
orig659
|
|
tmid672
|
|
id665
|
|
d673)
|
|
(list
|
|
'#(syntax-object $import ((top) #(ribcage #(d tmid) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
orig659
|
|
import-only?658
|
|
tmid672))
|
|
(if exports?654
|
|
id665
|
|
'#f)))
|
|
tmp671)
|
|
(syntax-error
|
|
tmp670)))
|
|
($syntax-dispatch
|
|
tmp670
|
|
'(any any))))
|
|
(list
|
|
d668
|
|
(gen-mid638
|
|
mid669))))))
|
|
tmp661)
|
|
((lambda (tmp676)
|
|
(if (if tmp676
|
|
(apply
|
|
(lambda (m678
|
|
id677)
|
|
(andmap
|
|
identifier?
|
|
id677))
|
|
tmp676)
|
|
'#f)
|
|
(apply
|
|
(lambda (m681
|
|
id680)
|
|
(call-with-values
|
|
(lambda ()
|
|
(modspec639
|
|
m681
|
|
'#t))
|
|
(lambda (mid684
|
|
d683
|
|
exports682)
|
|
((lambda (tmp685)
|
|
((lambda (tmp687)
|
|
(if tmp687
|
|
(apply
|
|
(lambda (d690
|
|
tmid689
|
|
id688)
|
|
(values
|
|
mid684
|
|
(list
|
|
'#(syntax-object begin ((top) #(ribcage #(d tmid id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object $module ((top) #(ribcage #(d tmid id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
orig659
|
|
tmid689
|
|
id688
|
|
d690)
|
|
(list
|
|
'#(syntax-object $import ((top) #(ribcage #(d tmid id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
orig659
|
|
import-only?658
|
|
tmid689))
|
|
(if exports?654
|
|
id688
|
|
'#f)))
|
|
tmp687)
|
|
(syntax-error
|
|
tmp685)))
|
|
($syntax-dispatch
|
|
tmp685
|
|
'(any any
|
|
each-any))))
|
|
(list
|
|
d683
|
|
(gen-mid638
|
|
mid684)
|
|
(difference635
|
|
exports682
|
|
id680))))))
|
|
tmp676)
|
|
((lambda (tmp693)
|
|
(if (if tmp693
|
|
(apply
|
|
(lambda (m695
|
|
prefix-id694)
|
|
(identifier?
|
|
prefix-id694))
|
|
tmp693)
|
|
'#f)
|
|
(apply
|
|
(lambda (m697
|
|
prefix-id696)
|
|
(call-with-values
|
|
(lambda ()
|
|
(modspec639
|
|
m697
|
|
'#t))
|
|
(lambda (mid700
|
|
d699
|
|
exports698)
|
|
((lambda (tmp701)
|
|
((lambda (tmp702)
|
|
(if tmp702
|
|
(apply
|
|
(lambda (d707
|
|
tmid706
|
|
old-id705
|
|
tmp704
|
|
id703)
|
|
(values
|
|
mid700
|
|
(list
|
|
'#(syntax-object begin ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
'#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
orig659
|
|
(cons
|
|
tmid706
|
|
(cons
|
|
(map list
|
|
id703
|
|
tmp704)
|
|
(cons
|
|
(cons
|
|
'#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
orig659
|
|
(cons
|
|
tmid706
|
|
(cons
|
|
(map list
|
|
tmp704
|
|
old-id705)
|
|
(cons
|
|
d707
|
|
(map (lambda (tmp714
|
|
tmp713)
|
|
(list
|
|
'#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
tmp713
|
|
tmp714))
|
|
old-id705
|
|
tmp704))))))
|
|
(cons
|
|
(list
|
|
'#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
orig659
|
|
import-only?658
|
|
tmid706)
|
|
(map (lambda (tmp716
|
|
tmp715)
|
|
(list
|
|
'#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
tmp715
|
|
tmp716))
|
|
tmp704
|
|
id703)))))))
|
|
(list
|
|
'#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
orig659
|
|
import-only?658
|
|
tmid706))
|
|
(if exports?654
|
|
id703
|
|
'#f)))
|
|
tmp702)
|
|
(syntax-error
|
|
tmp701)))
|
|
($syntax-dispatch
|
|
tmp701
|
|
'(any any
|
|
each-any
|
|
each-any
|
|
each-any))))
|
|
(list
|
|
d699
|
|
(gen-mid638
|
|
mid700)
|
|
exports698
|
|
(generate-temporaries
|
|
exports698)
|
|
(map (prefix-add636
|
|
prefix-id696)
|
|
exports698))))))
|
|
tmp693)
|
|
((lambda (tmp717)
|
|
(if (if tmp717
|
|
(apply
|
|
(lambda (m719
|
|
prefix-id718)
|
|
(identifier?
|
|
prefix-id718))
|
|
tmp717)
|
|
'#f)
|
|
(apply
|
|
(lambda (m721
|
|
prefix-id720)
|
|
(call-with-values
|
|
(lambda ()
|
|
(modspec639
|
|
m721
|
|
'#t))
|
|
(lambda (mid724
|
|
d723
|
|
exports722)
|
|
((lambda (tmp725)
|
|
((lambda (tmp726)
|
|
(if tmp726
|
|
(apply
|
|
(lambda (d731
|
|
tmid730
|
|
old-id729
|
|
tmp728
|
|
id727)
|
|
(values
|
|
mid724
|
|
(list
|
|
'#(syntax-object begin ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
'#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
orig659
|
|
(cons
|
|
tmid730
|
|
(cons
|
|
(map list
|
|
id727
|
|
tmp728)
|
|
(cons
|
|
(cons
|
|
'#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
orig659
|
|
(cons
|
|
tmid730
|
|
(cons
|
|
(map list
|
|
tmp728
|
|
old-id729)
|
|
(cons
|
|
d731
|
|
(map (lambda (tmp738
|
|
tmp737)
|
|
(list
|
|
'#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
tmp737
|
|
tmp738))
|
|
old-id729
|
|
tmp728))))))
|
|
(cons
|
|
(list
|
|
'#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
orig659
|
|
import-only?658
|
|
tmid730)
|
|
(map (lambda (tmp740
|
|
tmp739)
|
|
(list
|
|
'#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
tmp739
|
|
tmp740))
|
|
tmp728
|
|
id727)))))))
|
|
(list
|
|
'#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
orig659
|
|
import-only?658
|
|
tmid730))
|
|
(if exports?654
|
|
id727
|
|
'#f)))
|
|
tmp726)
|
|
(syntax-error
|
|
tmp725)))
|
|
($syntax-dispatch
|
|
tmp725
|
|
'(any any
|
|
each-any
|
|
each-any
|
|
each-any))))
|
|
(list
|
|
d723
|
|
(gen-mid638
|
|
mid724)
|
|
exports722
|
|
(generate-temporaries
|
|
exports722)
|
|
(map (prefix-drop637
|
|
prefix-id720)
|
|
exports722))))))
|
|
tmp717)
|
|
((lambda (tmp741)
|
|
(if (if tmp741
|
|
(apply
|
|
(lambda (m744
|
|
new-id743
|
|
old-id742)
|
|
(if (andmap
|
|
identifier?
|
|
new-id743)
|
|
(andmap
|
|
identifier?
|
|
old-id742)
|
|
'#f))
|
|
tmp741)
|
|
'#f)
|
|
(apply
|
|
(lambda (m749
|
|
new-id748
|
|
old-id747)
|
|
(call-with-values
|
|
(lambda ()
|
|
(modspec639
|
|
m749
|
|
'#t))
|
|
(lambda (mid752
|
|
d751
|
|
exports750)
|
|
((lambda (tmp753)
|
|
((lambda (tmp756)
|
|
(if tmp756
|
|
(apply
|
|
(lambda (d760
|
|
tmid759
|
|
tmp758
|
|
other-id757)
|
|
(values
|
|
mid752
|
|
(list
|
|
'#(syntax-object begin ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
'#(syntax-object $module ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
orig659
|
|
(cons
|
|
tmid759
|
|
(cons
|
|
(append
|
|
(map list
|
|
new-id748
|
|
tmp758)
|
|
other-id757)
|
|
(cons
|
|
(cons
|
|
'#(syntax-object $module ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
orig659
|
|
(cons
|
|
tmid759
|
|
(cons
|
|
(append
|
|
other-id757
|
|
(map list
|
|
tmp758
|
|
old-id747))
|
|
(cons
|
|
d760
|
|
(map (lambda (tmp770
|
|
tmp769)
|
|
(list
|
|
'#(syntax-object alias ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
tmp769
|
|
tmp770))
|
|
old-id747
|
|
tmp758))))))
|
|
(cons
|
|
(list
|
|
'#(syntax-object $import ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
orig659
|
|
import-only?658
|
|
tmid759)
|
|
(map (lambda (tmp772
|
|
tmp771)
|
|
(list
|
|
'#(syntax-object alias ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
tmp771
|
|
tmp772))
|
|
tmp758
|
|
new-id748)))))))
|
|
(list
|
|
'#(syntax-object $import ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
orig659
|
|
import-only?658
|
|
tmid759))
|
|
(if exports?654
|
|
(append
|
|
new-id748
|
|
other-id757)
|
|
'#f)))
|
|
tmp756)
|
|
(syntax-error
|
|
tmp753)))
|
|
($syntax-dispatch
|
|
tmp753
|
|
'(any any
|
|
each-any
|
|
each-any))))
|
|
(list
|
|
d751
|
|
(gen-mid638
|
|
mid752)
|
|
(generate-temporaries
|
|
old-id747)
|
|
(difference635
|
|
exports750
|
|
old-id747))))))
|
|
tmp741)
|
|
((lambda (tmp773)
|
|
(if (if tmp773
|
|
(apply
|
|
(lambda (m776
|
|
new-id775
|
|
old-id774)
|
|
(if (andmap
|
|
identifier?
|
|
new-id775)
|
|
(andmap
|
|
identifier?
|
|
old-id774)
|
|
'#f))
|
|
tmp773)
|
|
'#f)
|
|
(apply
|
|
(lambda (m781
|
|
new-id780
|
|
old-id779)
|
|
(call-with-values
|
|
(lambda ()
|
|
(modspec639
|
|
m781
|
|
'#t))
|
|
(lambda (mid784
|
|
d783
|
|
exports782)
|
|
((lambda (tmp785)
|
|
((lambda (tmp786)
|
|
(if tmp786
|
|
(apply
|
|
(lambda (d789
|
|
tmid788
|
|
other-id787)
|
|
(values
|
|
mid784
|
|
(list
|
|
'#(syntax-object begin ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
'#(syntax-object $module ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
orig659
|
|
(cons
|
|
tmid788
|
|
(cons
|
|
(append
|
|
(map list
|
|
new-id780
|
|
old-id779)
|
|
other-id787)
|
|
(cons
|
|
d789
|
|
(map (lambda (tmp796
|
|
tmp795)
|
|
(list
|
|
'#(syntax-object alias ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
tmp795
|
|
tmp796))
|
|
old-id779
|
|
new-id780))))))
|
|
(list
|
|
'#(syntax-object $import ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
orig659
|
|
import-only?658
|
|
tmid788))
|
|
(if exports?654
|
|
(append
|
|
new-id780
|
|
other-id787)
|
|
'#f)))
|
|
tmp786)
|
|
(syntax-error
|
|
tmp785)))
|
|
($syntax-dispatch
|
|
tmp785
|
|
'(any any
|
|
each-any))))
|
|
(list
|
|
d783
|
|
(gen-mid638
|
|
mid784)
|
|
exports782)))))
|
|
tmp773)
|
|
((lambda (tmp797)
|
|
(if (if tmp797
|
|
(apply
|
|
(lambda (mid798)
|
|
(identifier?
|
|
mid798))
|
|
tmp797)
|
|
'#f)
|
|
(apply
|
|
(lambda (mid799)
|
|
(values
|
|
mid799
|
|
(list
|
|
'#(syntax-object $import ((top) #(ribcage #(mid) #((top)) #("i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
orig659
|
|
import-only?658
|
|
mid799)
|
|
(if exports?654
|
|
($module-exports628
|
|
mid799
|
|
r634)
|
|
'#f)))
|
|
tmp797)
|
|
((lambda (tmp800)
|
|
(if (if tmp800
|
|
(apply
|
|
(lambda (mid801)
|
|
(identifier?
|
|
mid801))
|
|
tmp800)
|
|
'#f)
|
|
(apply
|
|
(lambda (mid802)
|
|
(values
|
|
mid802
|
|
(list
|
|
'#(syntax-object $import ((top) #(ribcage #(mid) #((top)) #("i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
orig659
|
|
import-only?658
|
|
mid802)
|
|
(if exports?654
|
|
($module-exports628
|
|
mid802
|
|
r634)
|
|
'#f)))
|
|
tmp800)
|
|
((lambda (_803)
|
|
(syntax-error
|
|
m655
|
|
'"invalid module specifier"))
|
|
tmp660)))
|
|
($syntax-dispatch
|
|
tmp660
|
|
'(any)))))
|
|
(list
|
|
tmp660))))
|
|
($syntax-dispatch
|
|
tmp660
|
|
'(#(free-id
|
|
#(syntax-object alias ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
any
|
|
.
|
|
#(each
|
|
(any any)))))))
|
|
($syntax-dispatch
|
|
tmp660
|
|
'(#(free-id
|
|
#(syntax-object rename ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
any
|
|
.
|
|
#(each
|
|
(any any)))))))
|
|
($syntax-dispatch
|
|
tmp660
|
|
'(#(free-id
|
|
#(syntax-object drop-prefix ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
any
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp660
|
|
'(#(free-id
|
|
#(syntax-object add-prefix ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
any
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp660
|
|
'(#(free-id
|
|
#(syntax-object except ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
any
|
|
.
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp660
|
|
'(#(free-id
|
|
#(syntax-object only ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
any
|
|
.
|
|
each-any))))
|
|
m655))
|
|
tmp657)
|
|
(syntax-error
|
|
tmp656)))
|
|
($syntax-dispatch
|
|
tmp656
|
|
'(any any))))
|
|
(list
|
|
orig633
|
|
import-only?632))))
|
|
(modspec*640 (lambda (m650)
|
|
(call-with-values
|
|
(lambda ()
|
|
(modspec639
|
|
m650
|
|
'#f))
|
|
(lambda (mid653
|
|
d652
|
|
exports651)
|
|
d652)))))
|
|
((lambda (tmp641)
|
|
((lambda (tmp642)
|
|
(if tmp642
|
|
(apply
|
|
(lambda (_644 m643)
|
|
((lambda (tmp645)
|
|
((lambda (tmp647)
|
|
(if tmp647
|
|
(apply
|
|
(lambda (d648)
|
|
(cons
|
|
'#(syntax-object begin ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage #(_ m) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((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) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
d648))
|
|
tmp647)
|
|
(syntax-error
|
|
tmp645)))
|
|
($syntax-dispatch
|
|
tmp645
|
|
'each-any)))
|
|
(map modspec*640
|
|
m643)))
|
|
tmp642)
|
|
(syntax-error tmp641)))
|
|
($syntax-dispatch
|
|
tmp641
|
|
'(any . each-any))))
|
|
orig633))))))
|
|
(begin
|
|
(put-cte-hook137
|
|
'import
|
|
(lambda (orig631) ($import-help629 orig631 '#f)))
|
|
(put-cte-hook137
|
|
'import-only
|
|
(lambda (orig630) ($import-help629 orig630 '#t)))))))
|
|
(set! sc-expand
|
|
((lambda (ctem625 rtem624)
|
|
(lambda (x626)
|
|
((lambda (env627)
|
|
(if (if (pair? x626) (equal? (car x626) noexpand62) '#f)
|
|
(cadr x626)
|
|
(chi-top*447 x626 '() (env-wrap388 env627) ctem625
|
|
rtem624 '#f (env-top-ribcage387 env627))))
|
|
(interaction-environment))))
|
|
'(e)
|
|
'(e)))
|
|
(set! $make-environment
|
|
(lambda (token622 mutable?621)
|
|
((lambda (top-ribcage623)
|
|
(make-env385
|
|
top-ribcage623
|
|
(make-wrap315
|
|
(wrap-marks316 '((top)))
|
|
(cons top-ribcage623 (wrap-subst317 '((top)))))))
|
|
(make-top-ribcage373 token622 mutable?621))))
|
|
(set! environment? (lambda (x620) (env?386 x620)))
|
|
(set! interaction-environment
|
|
((lambda (e619) (lambda () e619))
|
|
($make-environment '*top* '#t)))
|
|
(set! identifier? (lambda (x618) (nonsymbol-id?305 x618)))
|
|
(set! datum->syntax-object
|
|
(lambda (id616 datum615)
|
|
(begin
|
|
((lambda (x617)
|
|
(if (not (nonsymbol-id?305 x617))
|
|
(error-hook136
|
|
'datum->syntax-object
|
|
'"invalid argument"
|
|
x617)
|
|
(void)))
|
|
id616)
|
|
(make-syntax-object63
|
|
datum615
|
|
(syntax-object-wrap66 id616)))))
|
|
(set! syntax->list
|
|
(lambda (orig-ls606)
|
|
((letrec ((f607 (lambda (ls608)
|
|
((lambda (tmp609)
|
|
((lambda (tmp610)
|
|
(if tmp610
|
|
(apply (lambda () '()) tmp610)
|
|
((lambda (tmp611)
|
|
(if tmp611
|
|
(apply
|
|
(lambda (x613 r612)
|
|
(cons x613 (f607 r612)))
|
|
tmp611)
|
|
((lambda (_614)
|
|
(error 'syntax->list
|
|
'"invalid argument ~s"
|
|
orig-ls606))
|
|
tmp609)))
|
|
($syntax-dispatch
|
|
tmp609
|
|
'(any . any)))))
|
|
($syntax-dispatch tmp609 '())))
|
|
ls608))))
|
|
f607)
|
|
orig-ls606)))
|
|
(set! syntax->vector
|
|
(lambda (v600)
|
|
((lambda (tmp601)
|
|
((lambda (tmp602)
|
|
(if tmp602
|
|
(apply
|
|
(lambda (x603) (apply vector (syntax->list x603)))
|
|
tmp602)
|
|
((lambda (_605)
|
|
(error 'syntax->vector
|
|
'"invalid argument ~s"
|
|
v600))
|
|
tmp601)))
|
|
($syntax-dispatch tmp601 '#(vector each-any))))
|
|
v600)))
|
|
(set! syntax-object->datum
|
|
(lambda (x599) (strip522 x599 '(()))))
|
|
(set! generate-temporaries
|
|
((lambda (n595)
|
|
(lambda (ls596)
|
|
(begin
|
|
((lambda (x598)
|
|
(if (not (list? x598))
|
|
(error-hook136
|
|
'generate-temporaries
|
|
'"invalid argument"
|
|
x598)
|
|
(void)))
|
|
ls596)
|
|
(map (lambda (x597)
|
|
(begin
|
|
(set! n595 (+ n595 '1))
|
|
(wrap443
|
|
(string->symbol
|
|
(string-append '"t" (number->string n595)))
|
|
'((tmp)))))
|
|
ls596))))
|
|
'0))
|
|
(set! free-identifier=?
|
|
(lambda (x592 y591)
|
|
(begin
|
|
((lambda (x594)
|
|
(if (not (nonsymbol-id?305 x594))
|
|
(error-hook136
|
|
'free-identifier=?
|
|
'"invalid argument"
|
|
x594)
|
|
(void)))
|
|
x592)
|
|
((lambda (x593)
|
|
(if (not (nonsymbol-id?305 x593))
|
|
(error-hook136
|
|
'free-identifier=?
|
|
'"invalid argument"
|
|
x593)
|
|
(void)))
|
|
y591)
|
|
(free-id=?435 x592 y591))))
|
|
(set! bound-identifier=?
|
|
(lambda (x588 y587)
|
|
(begin
|
|
((lambda (x590)
|
|
(if (not (nonsymbol-id?305 x590))
|
|
(error-hook136
|
|
'bound-identifier=?
|
|
'"invalid argument"
|
|
x590)
|
|
(void)))
|
|
x588)
|
|
((lambda (x589)
|
|
(if (not (nonsymbol-id?305 x589))
|
|
(error-hook136
|
|
'bound-identifier=?
|
|
'"invalid argument"
|
|
x589)
|
|
(void)))
|
|
y587)
|
|
(bound-id=?438 x588 y587))))
|
|
(set! literal-identifier=?
|
|
(lambda (x584 y583)
|
|
(begin
|
|
((lambda (x586)
|
|
(if (not (nonsymbol-id?305 x586))
|
|
(error-hook136
|
|
'literal-identifier=?
|
|
'"invalid argument"
|
|
x586)
|
|
(void)))
|
|
x584)
|
|
((lambda (x585)
|
|
(if (not (nonsymbol-id?305 x585))
|
|
(error-hook136
|
|
'literal-identifier=?
|
|
'"invalid argument"
|
|
x585)
|
|
(void)))
|
|
y583)
|
|
(literal-id=?436 x584 y583))))
|
|
(set! syntax-error
|
|
(lambda (object578 . messages579)
|
|
(begin
|
|
(for-each
|
|
(lambda (x581)
|
|
((lambda (x582)
|
|
(if (not (string? x582))
|
|
(error-hook136
|
|
'syntax-error
|
|
'"invalid argument"
|
|
x582)
|
|
(void)))
|
|
x581))
|
|
messages579)
|
|
((lambda (message580)
|
|
(error-hook136 '#f message580 (strip522 object578 '(()))))
|
|
(if (null? messages579)
|
|
'"invalid syntax"
|
|
(apply string-append messages579))))))
|
|
((lambda ()
|
|
(letrec ((match-each525 (lambda (e575 p574 w573)
|
|
(if (annotation?132 e575)
|
|
(match-each525
|
|
(annotation-expression e575)
|
|
p574
|
|
w573)
|
|
(if (pair? e575)
|
|
((lambda (first576)
|
|
(if first576
|
|
((lambda (rest577)
|
|
(if rest577
|
|
(cons
|
|
first576
|
|
rest577)
|
|
'#f))
|
|
(match-each525
|
|
(cdr e575)
|
|
p574
|
|
w573))
|
|
'#f))
|
|
(match531
|
|
(car e575)
|
|
p574
|
|
w573
|
|
'()))
|
|
(if (null? e575)
|
|
'()
|
|
(if (syntax-object?64 e575)
|
|
(match-each525
|
|
(syntax-object-expression65
|
|
e575)
|
|
p574
|
|
(join-wraps422
|
|
w573
|
|
(syntax-object-wrap66
|
|
e575)))
|
|
'#f))))))
|
|
(match-each+526 (lambda (e565 x-pat564 y-pat563 z-pat562
|
|
w561 r560)
|
|
((letrec ((f566 (lambda (e568 w567)
|
|
(if (pair? e568)
|
|
(call-with-values
|
|
(lambda ()
|
|
(f566
|
|
(cdr e568)
|
|
w567))
|
|
(lambda (xr*571
|
|
y-pat570
|
|
r569)
|
|
(if r569
|
|
(if (null?
|
|
y-pat570)
|
|
((lambda (xr572)
|
|
(if xr572
|
|
(values
|
|
(cons
|
|
xr572
|
|
xr*571)
|
|
y-pat570
|
|
r569)
|
|
(values
|
|
'#f
|
|
'#f
|
|
'#f)))
|
|
(match531
|
|
(car e568)
|
|
x-pat564
|
|
w567
|
|
'()))
|
|
(values
|
|
'()
|
|
(cdr y-pat570)
|
|
(match531
|
|
(car e568)
|
|
(car y-pat570)
|
|
w567
|
|
r569)))
|
|
(values
|
|
'#f
|
|
'#f
|
|
'#f))))
|
|
(if (annotation?132
|
|
e568)
|
|
(f566
|
|
(annotation-expression
|
|
e568)
|
|
w567)
|
|
(if (syntax-object?64
|
|
e568)
|
|
(f566
|
|
(syntax-object-expression65
|
|
e568)
|
|
(join-wraps422
|
|
w567
|
|
(syntax-object-wrap66
|
|
e568)))
|
|
(values
|
|
'()
|
|
y-pat563
|
|
(match531
|
|
e568
|
|
z-pat562
|
|
w567
|
|
r560))))))))
|
|
f566)
|
|
e565
|
|
w561)))
|
|
(match-each-any527 (lambda (e558 w557)
|
|
(if (annotation?132 e558)
|
|
(match-each-any527
|
|
(annotation-expression e558)
|
|
w557)
|
|
(if (pair? e558)
|
|
((lambda (l559)
|
|
(if l559
|
|
(cons
|
|
(wrap443
|
|
(car e558)
|
|
w557)
|
|
l559)
|
|
'#f))
|
|
(match-each-any527
|
|
(cdr e558)
|
|
w557))
|
|
(if (null? e558)
|
|
'()
|
|
(if (syntax-object?64
|
|
e558)
|
|
(match-each-any527
|
|
(syntax-object-expression65
|
|
e558)
|
|
(join-wraps422
|
|
w557
|
|
(syntax-object-wrap66
|
|
e558)))
|
|
'#f))))))
|
|
(match-empty528 (lambda (p555 r554)
|
|
(if (null? p555)
|
|
r554
|
|
(if (eq? p555 'any)
|
|
(cons '() r554)
|
|
(if (pair? p555)
|
|
(match-empty528
|
|
(car p555)
|
|
(match-empty528
|
|
(cdr p555)
|
|
r554))
|
|
(if (eq? p555 'each-any)
|
|
(cons '() r554)
|
|
((lambda (t556)
|
|
(if (memv
|
|
t556
|
|
'(each))
|
|
(match-empty528
|
|
(vector-ref
|
|
p555
|
|
'1)
|
|
r554)
|
|
(if (memv
|
|
t556
|
|
'(each+))
|
|
(match-empty528
|
|
(vector-ref
|
|
p555
|
|
'1)
|
|
(match-empty528
|
|
(reverse
|
|
(vector-ref
|
|
p555
|
|
'2))
|
|
(match-empty528
|
|
(vector-ref
|
|
p555
|
|
'3)
|
|
r554)))
|
|
(if (memv
|
|
t556
|
|
'(free-id
|
|
atom))
|
|
r554
|
|
(if (memv
|
|
t556
|
|
'(vector))
|
|
(match-empty528
|
|
(vector-ref
|
|
p555
|
|
'1)
|
|
r554)
|
|
(void))))))
|
|
(vector-ref
|
|
p555
|
|
'0))))))))
|
|
(combine529 (lambda (r*553 r552)
|
|
(if (null? (car r*553))
|
|
r552
|
|
(cons
|
|
(map car r*553)
|
|
(combine529
|
|
(map cdr r*553)
|
|
r552)))))
|
|
(match*530 (lambda (e545 p544 w543 r542)
|
|
(if (null? p544)
|
|
(if (null? e545) r542 '#f)
|
|
(if (pair? p544)
|
|
(if (pair? e545)
|
|
(match531
|
|
(car e545)
|
|
(car p544)
|
|
w543
|
|
(match531
|
|
(cdr e545)
|
|
(cdr p544)
|
|
w543
|
|
r542))
|
|
'#f)
|
|
(if (eq? p544 'each-any)
|
|
((lambda (l546)
|
|
(if l546
|
|
(cons l546 r542)
|
|
'#f))
|
|
(match-each-any527
|
|
e545
|
|
w543))
|
|
((lambda (t547)
|
|
(if (memv t547 '(each))
|
|
(if (null? e545)
|
|
(match-empty528
|
|
(vector-ref
|
|
p544
|
|
'1)
|
|
r542)
|
|
((lambda (r*548)
|
|
(if r*548
|
|
(combine529
|
|
r*548
|
|
r542)
|
|
'#f))
|
|
(match-each525
|
|
e545
|
|
(vector-ref
|
|
p544
|
|
'1)
|
|
w543)))
|
|
(if (memv
|
|
t547
|
|
'(free-id))
|
|
(if (id?306 e545)
|
|
(if (literal-id=?436
|
|
(wrap443
|
|
e545
|
|
w543)
|
|
(vector-ref
|
|
p544
|
|
'1))
|
|
r542
|
|
'#f)
|
|
'#f)
|
|
(if (memv
|
|
t547
|
|
'(each+))
|
|
(call-with-values
|
|
(lambda ()
|
|
(match-each+526
|
|
e545
|
|
(vector-ref
|
|
p544
|
|
'1)
|
|
(vector-ref
|
|
p544
|
|
'2)
|
|
(vector-ref
|
|
p544
|
|
'3)
|
|
w543
|
|
r542))
|
|
(lambda (xr*551
|
|
y-pat550
|
|
r549)
|
|
(if r549
|
|
(if (null?
|
|
y-pat550)
|
|
(if (null?
|
|
xr*551)
|
|
(match-empty528
|
|
(vector-ref
|
|
p544
|
|
'1)
|
|
r549)
|
|
(combine529
|
|
xr*551
|
|
r549))
|
|
'#f)
|
|
'#f)))
|
|
(if (memv
|
|
t547
|
|
'(atom))
|
|
(if (equal?
|
|
(vector-ref
|
|
p544
|
|
'1)
|
|
(strip522
|
|
e545
|
|
w543))
|
|
r542
|
|
'#f)
|
|
(if (memv
|
|
t547
|
|
'(vector))
|
|
(if (vector?
|
|
e545)
|
|
(match531
|
|
(vector->list
|
|
e545)
|
|
(vector-ref
|
|
p544
|
|
'1)
|
|
w543
|
|
r542)
|
|
'#f)
|
|
(void)))))))
|
|
(vector-ref p544 '0)))))))
|
|
(match531 (lambda (e539 p538 w537 r536)
|
|
(if (not r536)
|
|
'#f
|
|
(if (eq? p538 'any)
|
|
(cons (wrap443 e539 w537) r536)
|
|
(if (syntax-object?64 e539)
|
|
(match*530
|
|
((lambda (e540)
|
|
(if (annotation?132 e540)
|
|
(annotation-expression
|
|
e540)
|
|
e540))
|
|
(syntax-object-expression65
|
|
e539))
|
|
p538
|
|
(join-wraps422
|
|
w537
|
|
(syntax-object-wrap66 e539))
|
|
r536)
|
|
(match*530
|
|
((lambda (e541)
|
|
(if (annotation?132 e541)
|
|
(annotation-expression
|
|
e541)
|
|
e541))
|
|
e539)
|
|
p538
|
|
w537
|
|
r536)))))))
|
|
(set! $syntax-dispatch
|
|
(lambda (e533 p532)
|
|
(if (eq? p532 'any)
|
|
(list e533)
|
|
(if (syntax-object?64 e533)
|
|
(match*530
|
|
((lambda (e534)
|
|
(if (annotation?132 e534)
|
|
(annotation-expression e534)
|
|
e534))
|
|
(syntax-object-expression65 e533))
|
|
p532
|
|
(syntax-object-wrap66 e533)
|
|
'())
|
|
(match*530
|
|
((lambda (e535)
|
|
(if (annotation?132 e535)
|
|
(annotation-expression e535)
|
|
e535))
|
|
e533)
|
|
p532
|
|
'(())
|
|
'()))))))))))))
|
|
($sc-put-cte
|
|
'#(syntax-object with-syntax ((top) #(ribcage #(with-syntax) #((top)) #(with-syntax))))
|
|
(lambda (x2531)
|
|
((lambda (tmp2532)
|
|
((lambda (tmp2533)
|
|
(if tmp2533
|
|
(apply
|
|
(lambda (_2536 e12535 e22534)
|
|
(cons
|
|
'#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons e12535 e22534)))
|
|
tmp2533)
|
|
((lambda (tmp2538)
|
|
(if tmp2538
|
|
(apply
|
|
(lambda (_2543 out2542 in2541 e12540 e22539)
|
|
(list
|
|
'#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
in2541
|
|
'()
|
|
(list
|
|
out2542
|
|
(cons
|
|
'#(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons e12540 e22539)))))
|
|
tmp2538)
|
|
((lambda (tmp2545)
|
|
(if tmp2545
|
|
(apply
|
|
(lambda (_2550 out2549 in2548 e12547 e22546)
|
|
(list
|
|
'#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
'#(syntax-object list ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
in2548)
|
|
'()
|
|
(list
|
|
out2549
|
|
(cons
|
|
'#(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons e12547 e22546)))))
|
|
tmp2545)
|
|
(syntax-error tmp2532)))
|
|
($syntax-dispatch
|
|
tmp2532
|
|
'(any #(each (any any)) any . each-any)))))
|
|
($syntax-dispatch
|
|
tmp2532
|
|
'(any ((any any)) any . each-any)))))
|
|
($syntax-dispatch tmp2532 '(any () any . each-any))))
|
|
x2531))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object with-implicit ((top) #(ribcage #(with-implicit) #((top)) #(with-implicit))))
|
|
(lambda (x2554)
|
|
((lambda (tmp2555)
|
|
((lambda (tmp2556)
|
|
(if (if tmp2556
|
|
(apply
|
|
(lambda (dummy2561 tid2560 id2559 e12558 e22557)
|
|
(andmap identifier? (cons tid2560 id2559)))
|
|
tmp2556)
|
|
'#f)
|
|
(apply
|
|
(lambda (dummy2567 tid2566 id2565 e12564 e22563)
|
|
(list
|
|
'#(syntax-object begin ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object unless ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object identifier? ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
tid2566))
|
|
(cons
|
|
'#(syntax-object syntax-error ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
(list
|
|
'#(syntax-object syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
tid2566)
|
|
'#(syntax-object ("non-identifier with-implicit template") ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))))))
|
|
(cons
|
|
'#(syntax-object with-syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
(map (lambda (tmp2568)
|
|
(list
|
|
tmp2568
|
|
(list
|
|
'#(syntax-object datum->syntax-object ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
tid2566)
|
|
(list
|
|
'#(syntax-object quote ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
tmp2568))))
|
|
id2565)
|
|
(cons e12564 e22563)))))
|
|
tmp2556)
|
|
(syntax-error tmp2555)))
|
|
($syntax-dispatch
|
|
tmp2555
|
|
'(any (any . each-any) any . each-any))))
|
|
x2554))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object datum ((top) #(ribcage #(datum) #((top)) #(datum))))
|
|
(lambda (x2570)
|
|
((lambda (tmp2571)
|
|
((lambda (tmp2572)
|
|
(if tmp2572
|
|
(apply
|
|
(lambda (dummy2574 x2573)
|
|
(list
|
|
'#(syntax-object syntax-object->datum ((top) #(ribcage #(dummy x) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object syntax ((top) #(ribcage #(dummy x) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
x2573)))
|
|
tmp2572)
|
|
(syntax-error tmp2571)))
|
|
($syntax-dispatch tmp2571 '(any any))))
|
|
x2570))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object syntax-rules ((top) #(ribcage #(syntax-rules) #((top)) #(syntax-rules))))
|
|
(lambda (x2575)
|
|
(letrec ((clause2576 (lambda (y2592)
|
|
((lambda (tmp2593)
|
|
((lambda (tmp2594)
|
|
(if tmp2594
|
|
(apply
|
|
(lambda (keyword2597 pattern2596
|
|
template2595)
|
|
(list
|
|
(cons
|
|
'#(syntax-object dummy ((top) #(ribcage #(keyword pattern template) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
pattern2596)
|
|
(list
|
|
'#(syntax-object syntax ((top) #(ribcage #(keyword pattern template) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
template2595)))
|
|
tmp2594)
|
|
((lambda (tmp2598)
|
|
(if tmp2598
|
|
(apply
|
|
(lambda (keyword2602
|
|
pattern2601
|
|
fender2600
|
|
template2599)
|
|
(list
|
|
(cons
|
|
'#(syntax-object dummy ((top) #(ribcage #(keyword pattern fender template) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
pattern2601)
|
|
fender2600
|
|
(list
|
|
'#(syntax-object syntax ((top) #(ribcage #(keyword pattern fender template) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
template2599)))
|
|
tmp2598)
|
|
((lambda (_2603)
|
|
(syntax-error x2575))
|
|
tmp2593)))
|
|
($syntax-dispatch
|
|
tmp2593
|
|
'((any . any) any any)))))
|
|
($syntax-dispatch
|
|
tmp2593
|
|
'((any . any) any))))
|
|
y2592))))
|
|
((lambda (tmp2577)
|
|
((lambda (tmp2578)
|
|
(if (if tmp2578
|
|
(apply
|
|
(lambda (_2581 k2580 cl2579)
|
|
(andmap identifier? k2580))
|
|
tmp2578)
|
|
'#f)
|
|
(apply
|
|
(lambda (_2585 k2584 cl2583)
|
|
((lambda (tmp2586)
|
|
((lambda (tmp2588)
|
|
(if tmp2588
|
|
(apply
|
|
(lambda (cl2589)
|
|
(list
|
|
'#(syntax-object lambda ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object (x) ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
'#(syntax-object syntax-case ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
'#(syntax-object x ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons k2584 cl2589)))))
|
|
tmp2588)
|
|
(syntax-error tmp2586)))
|
|
($syntax-dispatch tmp2586 'each-any)))
|
|
(map clause2576 cl2583)))
|
|
tmp2578)
|
|
(syntax-error tmp2577)))
|
|
($syntax-dispatch tmp2577 '(any each-any . each-any))))
|
|
x2575)))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object or ((top) #(ribcage #(or) #((top)) #(or))))
|
|
(lambda (x2604)
|
|
((lambda (tmp2605)
|
|
((lambda (tmp2606)
|
|
(if tmp2606
|
|
(apply
|
|
(lambda (_2607)
|
|
'#(syntax-object #f ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
tmp2606)
|
|
((lambda (tmp2608)
|
|
(if tmp2608
|
|
(apply (lambda (_2610 e2609) e2609) tmp2608)
|
|
((lambda (tmp2611)
|
|
(if tmp2611
|
|
(apply
|
|
(lambda (_2615 e12614 e22613 e32612)
|
|
(list
|
|
'#(syntax-object let ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
(list
|
|
'#(syntax-object t ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
e12614))
|
|
(list
|
|
'#(syntax-object if ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object t ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object t ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
'#(syntax-object or ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons e22613 e32612)))))
|
|
tmp2611)
|
|
(syntax-error tmp2605)))
|
|
($syntax-dispatch
|
|
tmp2605
|
|
'(any any any . each-any)))))
|
|
($syntax-dispatch tmp2605 '(any any)))))
|
|
($syntax-dispatch tmp2605 '(any))))
|
|
x2604))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object and ((top) #(ribcage #(and) #((top)) #(and))))
|
|
(lambda (x2617)
|
|
((lambda (tmp2618)
|
|
((lambda (tmp2619)
|
|
(if tmp2619
|
|
(apply
|
|
(lambda (_2623 e12622 e22621 e32620)
|
|
(cons
|
|
'#(syntax-object if ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
e12622
|
|
(cons
|
|
(cons
|
|
'#(syntax-object and ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons e22621 e32620))
|
|
'#(syntax-object (#f) ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))))))
|
|
tmp2619)
|
|
((lambda (tmp2625)
|
|
(if tmp2625
|
|
(apply (lambda (_2627 e2626) e2626) tmp2625)
|
|
((lambda (tmp2628)
|
|
(if tmp2628
|
|
(apply
|
|
(lambda (_2629)
|
|
'#(syntax-object #t ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
tmp2628)
|
|
(syntax-error tmp2618)))
|
|
($syntax-dispatch tmp2618 '(any)))))
|
|
($syntax-dispatch tmp2618 '(any any)))))
|
|
($syntax-dispatch tmp2618 '(any any any . each-any))))
|
|
x2617))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object let ((top) #(ribcage #(let) #((top)) #(let))))
|
|
(lambda (x2630)
|
|
((lambda (tmp2631)
|
|
((lambda (tmp2632)
|
|
(if (if tmp2632
|
|
(apply
|
|
(lambda (_2637 x2636 v2635 e12634 e22633)
|
|
(andmap identifier? x2636))
|
|
tmp2632)
|
|
'#f)
|
|
(apply
|
|
(lambda (_2643 x2642 v2641 e12640 e22639)
|
|
(cons
|
|
(cons
|
|
'#(syntax-object lambda ((top) #(ribcage #(_ x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons x2642 (cons e12640 e22639)))
|
|
v2641))
|
|
tmp2632)
|
|
((lambda (tmp2647)
|
|
(if (if tmp2647
|
|
(apply
|
|
(lambda (_2653 f2652 x2651 v2650 e12649 e22648)
|
|
(andmap identifier? (cons f2652 x2651)))
|
|
tmp2647)
|
|
'#f)
|
|
(apply
|
|
(lambda (_2660 f2659 x2658 v2657 e12656 e22655)
|
|
(cons
|
|
(list
|
|
'#(syntax-object letrec ((top) #(ribcage #(_ f x v e1 e2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
(list
|
|
f2659
|
|
(cons
|
|
'#(syntax-object lambda ((top) #(ribcage #(_ f x v e1 e2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons x2658 (cons e12656 e22655)))))
|
|
f2659)
|
|
v2657))
|
|
tmp2647)
|
|
(syntax-error tmp2631)))
|
|
($syntax-dispatch
|
|
tmp2631
|
|
'(any any #(each (any any)) any . each-any)))))
|
|
($syntax-dispatch
|
|
tmp2631
|
|
'(any #(each (any any)) any . each-any))))
|
|
x2630))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object let* ((top) #(ribcage #(let*) #((top)) #(let*))))
|
|
(lambda (x2664)
|
|
((lambda (tmp2665)
|
|
((lambda (tmp2666)
|
|
(if (if tmp2666
|
|
(apply
|
|
(lambda (let*2671 x2670 v2669 e12668 e22667)
|
|
(andmap identifier? x2670))
|
|
tmp2666)
|
|
'#f)
|
|
(apply
|
|
(lambda (let*2677 x2676 v2675 e12674 e22673)
|
|
((letrec ((f2678 (lambda (bindings2679)
|
|
(if (null? bindings2679)
|
|
(cons
|
|
'#(syntax-object let ((top) #(ribcage () () ()) #(ribcage #(bindings) #((top)) #("i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons '() (cons e12674 e22673)))
|
|
((lambda (tmp2681)
|
|
((lambda (tmp2682)
|
|
(if tmp2682
|
|
(apply
|
|
(lambda (body2684
|
|
binding2683)
|
|
(list
|
|
'#(syntax-object let ((top) #(ribcage #(body binding) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(bindings) #((top)) #("i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list binding2683)
|
|
body2684))
|
|
tmp2682)
|
|
(syntax-error tmp2681)))
|
|
($syntax-dispatch
|
|
tmp2681
|
|
'(any any))))
|
|
(list
|
|
(f2678 (cdr bindings2679))
|
|
(car bindings2679)))))))
|
|
f2678)
|
|
(map list x2676 v2675)))
|
|
tmp2666)
|
|
(syntax-error tmp2665)))
|
|
($syntax-dispatch
|
|
tmp2665
|
|
'(any #(each (any any)) any . each-any))))
|
|
x2664))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object cond ((top) #(ribcage #(cond) #((top)) #(cond))))
|
|
(lambda (x2687)
|
|
((lambda (tmp2688)
|
|
((lambda (tmp2689)
|
|
(if tmp2689
|
|
(apply
|
|
(lambda (_2692 m12691 m22690)
|
|
((letrec ((f2693 (lambda (clause2695 clauses2694)
|
|
(if (null? clauses2694)
|
|
((lambda (tmp2696)
|
|
((lambda (tmp2697)
|
|
(if tmp2697
|
|
(apply
|
|
(lambda (e12699
|
|
e22698)
|
|
(cons
|
|
'#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
e12699
|
|
e22698)))
|
|
tmp2697)
|
|
((lambda (tmp2701)
|
|
(if tmp2701
|
|
(apply
|
|
(lambda (e02702)
|
|
(cons
|
|
'#(syntax-object let ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
(list
|
|
(list
|
|
'#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
e02702))
|
|
'#(syntax-object ((if t t)) ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))))
|
|
tmp2701)
|
|
((lambda (tmp2703)
|
|
(if tmp2703
|
|
(apply
|
|
(lambda (e02705
|
|
e12704)
|
|
(list
|
|
'#(syntax-object let ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
(list
|
|
'#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
e02705))
|
|
(list
|
|
'#(syntax-object if ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
e12704
|
|
'#(syntax-object (t) ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))))))
|
|
tmp2703)
|
|
((lambda (tmp2706)
|
|
(if tmp2706
|
|
(apply
|
|
(lambda (e02709
|
|
e12708
|
|
e22707)
|
|
(list
|
|
'#(syntax-object if ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
e02709
|
|
(cons
|
|
'#(syntax-object begin ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
e12708
|
|
e22707))))
|
|
tmp2706)
|
|
((lambda (_2711)
|
|
(syntax-error
|
|
x2687))
|
|
tmp2696)))
|
|
($syntax-dispatch
|
|
tmp2696
|
|
'(any any
|
|
.
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2696
|
|
'(any #(free-id
|
|
#(syntax-object => ((top) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2696
|
|
'(any)))))
|
|
($syntax-dispatch
|
|
tmp2696
|
|
'(#(free-id
|
|
#(syntax-object else ((top) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
any
|
|
.
|
|
each-any))))
|
|
clause2695)
|
|
((lambda (tmp2712)
|
|
((lambda (rest2713)
|
|
((lambda (tmp2714)
|
|
((lambda (tmp2715)
|
|
(if tmp2715
|
|
(apply
|
|
(lambda (e02716)
|
|
(list
|
|
'#(syntax-object let ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
(list
|
|
'#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
e02716))
|
|
(list
|
|
'#(syntax-object if ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
rest2713)))
|
|
tmp2715)
|
|
((lambda (tmp2717)
|
|
(if tmp2717
|
|
(apply
|
|
(lambda (e02719
|
|
e12718)
|
|
(list
|
|
'#(syntax-object let ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
(list
|
|
'#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
e02719))
|
|
(list
|
|
'#(syntax-object if ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
e12718
|
|
'#(syntax-object (t) ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
rest2713)))
|
|
tmp2717)
|
|
((lambda (tmp2720)
|
|
(if tmp2720
|
|
(apply
|
|
(lambda (e02723
|
|
e12722
|
|
e22721)
|
|
(list
|
|
'#(syntax-object if ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
e02723
|
|
(cons
|
|
'#(syntax-object begin ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
e12722
|
|
e22721))
|
|
rest2713))
|
|
tmp2720)
|
|
((lambda (_2725)
|
|
(syntax-error
|
|
x2687))
|
|
tmp2714)))
|
|
($syntax-dispatch
|
|
tmp2714
|
|
'(any any
|
|
.
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2714
|
|
'(any #(free-id
|
|
#(syntax-object => ((top) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2714
|
|
'(any))))
|
|
clause2695))
|
|
tmp2712))
|
|
(f2693
|
|
(car clauses2694)
|
|
(cdr clauses2694)))))))
|
|
f2693)
|
|
m12691
|
|
m22690))
|
|
tmp2689)
|
|
(syntax-error tmp2688)))
|
|
($syntax-dispatch tmp2688 '(any any . each-any))))
|
|
x2687))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object do ((top) #(ribcage #(do) #((top)) #(do))))
|
|
(lambda (orig-x2727)
|
|
((lambda (tmp2728)
|
|
((lambda (tmp2729)
|
|
(if tmp2729
|
|
(apply
|
|
(lambda (_2736 var2735 init2734 step2733 e02732 e12731
|
|
c2730)
|
|
((lambda (tmp2737)
|
|
((lambda (tmp2747)
|
|
(if tmp2747
|
|
(apply
|
|
(lambda (step2748)
|
|
((lambda (tmp2749)
|
|
((lambda (tmp2751)
|
|
(if tmp2751
|
|
(apply
|
|
(lambda ()
|
|
(list
|
|
'#(syntax-object let ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object do ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(map list var2735 init2734)
|
|
(list
|
|
'#(syntax-object if ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object not ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
e02732)
|
|
(cons
|
|
'#(syntax-object begin ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(append
|
|
c2730
|
|
(list
|
|
(cons
|
|
'#(syntax-object do ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
step2748)))))))
|
|
tmp2751)
|
|
((lambda (tmp2756)
|
|
(if tmp2756
|
|
(apply
|
|
(lambda (e12758 e22757)
|
|
(list
|
|
'#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object do ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(map list
|
|
var2735
|
|
init2734)
|
|
(list
|
|
'#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
e02732
|
|
(cons
|
|
'#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
e12758
|
|
e22757))
|
|
(cons
|
|
'#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(append
|
|
c2730
|
|
(list
|
|
(cons
|
|
'#(syntax-object do ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
step2748)))))))
|
|
tmp2756)
|
|
(syntax-error tmp2749)))
|
|
($syntax-dispatch
|
|
tmp2749
|
|
'(any . each-any)))))
|
|
($syntax-dispatch tmp2749 '())))
|
|
e12731))
|
|
tmp2747)
|
|
(syntax-error tmp2737)))
|
|
($syntax-dispatch tmp2737 'each-any)))
|
|
(map (lambda (v2741 s2740)
|
|
((lambda (tmp2742)
|
|
((lambda (tmp2743)
|
|
(if tmp2743
|
|
(apply (lambda () v2741) tmp2743)
|
|
((lambda (tmp2744)
|
|
(if tmp2744
|
|
(apply
|
|
(lambda (e2745) e2745)
|
|
tmp2744)
|
|
((lambda (_2746)
|
|
(syntax-error orig-x2727))
|
|
tmp2742)))
|
|
($syntax-dispatch tmp2742 '(any)))))
|
|
($syntax-dispatch tmp2742 '())))
|
|
s2740))
|
|
var2735
|
|
step2733)))
|
|
tmp2729)
|
|
(syntax-error tmp2728)))
|
|
($syntax-dispatch
|
|
tmp2728
|
|
'(any #(each (any any . any))
|
|
(any . each-any)
|
|
.
|
|
each-any))))
|
|
orig-x2727))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object quasiquote ((top) #(ribcage #(quasiquote) #((top)) #(quasiquote))))
|
|
((lambda ()
|
|
(letrec ((quasi2764 (lambda (p2900 lev2899)
|
|
((lambda (tmp2901)
|
|
((lambda (tmp2902)
|
|
(if tmp2902
|
|
(apply
|
|
(lambda (p2903)
|
|
(if (= lev2899 '0)
|
|
(list
|
|
'#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
p2903)
|
|
(quasicons2766
|
|
'#(syntax-object ("quote" unquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(quasi2764
|
|
(list p2903)
|
|
(- lev2899 '1)))))
|
|
tmp2902)
|
|
((lambda (tmp2904)
|
|
(if tmp2904
|
|
(apply
|
|
(lambda (p2905)
|
|
(quasicons2766
|
|
'#(syntax-object ("quote" quasiquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(quasi2764
|
|
(list p2905)
|
|
(+ lev2899 '1))))
|
|
tmp2904)
|
|
((lambda (tmp2906)
|
|
(if tmp2906
|
|
(apply
|
|
(lambda (p2908 q2907)
|
|
((lambda (tmp2909)
|
|
((lambda (tmp2910)
|
|
(if tmp2910
|
|
(apply
|
|
(lambda (p2911)
|
|
(if (= lev2899
|
|
'0)
|
|
(quasilist*2768
|
|
(map (lambda (tmp2912)
|
|
(list
|
|
'#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
tmp2912))
|
|
p2911)
|
|
(quasi2764
|
|
q2907
|
|
lev2899))
|
|
(quasicons2766
|
|
(quasicons2766
|
|
'#(syntax-object ("quote" unquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(quasi2764
|
|
p2911
|
|
(- lev2899
|
|
'1)))
|
|
(quasi2764
|
|
q2907
|
|
lev2899))))
|
|
tmp2910)
|
|
((lambda (tmp2914)
|
|
(if tmp2914
|
|
(apply
|
|
(lambda (p2915)
|
|
(if (= lev2899
|
|
'0)
|
|
(quasiappend2767
|
|
(map (lambda (tmp2916)
|
|
(list
|
|
'#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
tmp2916))
|
|
p2915)
|
|
(quasi2764
|
|
q2907
|
|
lev2899))
|
|
(quasicons2766
|
|
(quasicons2766
|
|
'#(syntax-object ("quote" unquote-splicing) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(quasi2764
|
|
p2915
|
|
(- lev2899
|
|
'1)))
|
|
(quasi2764
|
|
q2907
|
|
lev2899))))
|
|
tmp2914)
|
|
((lambda (_2918)
|
|
(quasicons2766
|
|
(quasi2764
|
|
p2908
|
|
lev2899)
|
|
(quasi2764
|
|
q2907
|
|
lev2899)))
|
|
tmp2909)))
|
|
($syntax-dispatch
|
|
tmp2909
|
|
'(#(free-id
|
|
#(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
.
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2909
|
|
'(#(free-id
|
|
#(syntax-object unquote ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
.
|
|
each-any))))
|
|
p2908))
|
|
tmp2906)
|
|
((lambda (tmp2919)
|
|
(if tmp2919
|
|
(apply
|
|
(lambda (x2920)
|
|
(quasivector2769
|
|
(vquasi2765
|
|
x2920
|
|
lev2899)))
|
|
tmp2919)
|
|
((lambda (p2922)
|
|
(list
|
|
'#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
p2922))
|
|
tmp2901)))
|
|
($syntax-dispatch
|
|
tmp2901
|
|
'#(vector
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2901
|
|
'(any . any)))))
|
|
($syntax-dispatch
|
|
tmp2901
|
|
'(#(free-id
|
|
#(syntax-object quasiquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2901
|
|
'(#(free-id
|
|
#(syntax-object unquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
any))))
|
|
p2900)))
|
|
(vquasi2765 (lambda (p2883 lev2882)
|
|
((lambda (tmp2884)
|
|
((lambda (tmp2885)
|
|
(if tmp2885
|
|
(apply
|
|
(lambda (p2887 q2886)
|
|
((lambda (tmp2888)
|
|
((lambda (tmp2889)
|
|
(if tmp2889
|
|
(apply
|
|
(lambda (p2890)
|
|
(if (= lev2882 '0)
|
|
(quasilist*2768
|
|
(map (lambda (tmp2891)
|
|
(list
|
|
'#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
tmp2891))
|
|
p2890)
|
|
(vquasi2765
|
|
q2886
|
|
lev2882))
|
|
(quasicons2766
|
|
(quasicons2766
|
|
'#(syntax-object ("quote" unquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(quasi2764
|
|
p2890
|
|
(- lev2882
|
|
'1)))
|
|
(vquasi2765
|
|
q2886
|
|
lev2882))))
|
|
tmp2889)
|
|
((lambda (tmp2893)
|
|
(if tmp2893
|
|
(apply
|
|
(lambda (p2894)
|
|
(if (= lev2882
|
|
'0)
|
|
(quasiappend2767
|
|
(map (lambda (tmp2895)
|
|
(list
|
|
'#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
tmp2895))
|
|
p2894)
|
|
(vquasi2765
|
|
q2886
|
|
lev2882))
|
|
(quasicons2766
|
|
(quasicons2766
|
|
'#(syntax-object ("quote" unquote-splicing) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(quasi2764
|
|
p2894
|
|
(- lev2882
|
|
'1)))
|
|
(vquasi2765
|
|
q2886
|
|
lev2882))))
|
|
tmp2893)
|
|
((lambda (_2897)
|
|
(quasicons2766
|
|
(quasi2764
|
|
p2887
|
|
lev2882)
|
|
(vquasi2765
|
|
q2886
|
|
lev2882)))
|
|
tmp2888)))
|
|
($syntax-dispatch
|
|
tmp2888
|
|
'(#(free-id
|
|
#(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
.
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2888
|
|
'(#(free-id
|
|
#(syntax-object unquote ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
.
|
|
each-any))))
|
|
p2887))
|
|
tmp2885)
|
|
((lambda (tmp2898)
|
|
(if tmp2898
|
|
(apply
|
|
(lambda ()
|
|
'#(syntax-object ("quote" ()) ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
tmp2898)
|
|
(syntax-error tmp2884)))
|
|
($syntax-dispatch tmp2884 '()))))
|
|
($syntax-dispatch tmp2884 '(any . any))))
|
|
p2883)))
|
|
(quasicons2766 (lambda (x2865 y2864)
|
|
((lambda (tmp2866)
|
|
((lambda (tmp2867)
|
|
(if tmp2867
|
|
(apply
|
|
(lambda (x2869 y2868)
|
|
((lambda (tmp2870)
|
|
((lambda (tmp2871)
|
|
(if tmp2871
|
|
(apply
|
|
(lambda (dy2872)
|
|
((lambda (tmp2873)
|
|
((lambda (tmp2874)
|
|
(if tmp2874
|
|
(apply
|
|
(lambda (dx2875)
|
|
(list
|
|
'#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) #("i")) #(ribcage #(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
dx2875
|
|
dy2872)))
|
|
tmp2874)
|
|
((lambda (_2876)
|
|
(if (null?
|
|
dy2872)
|
|
(list
|
|
'#(syntax-object "list" ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
x2869)
|
|
(list
|
|
'#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
x2869
|
|
y2868)))
|
|
tmp2873)))
|
|
($syntax-dispatch
|
|
tmp2873
|
|
'(#(atom
|
|
"quote")
|
|
any))))
|
|
x2869))
|
|
tmp2871)
|
|
((lambda (tmp2877)
|
|
(if tmp2877
|
|
(apply
|
|
(lambda (stuff2878)
|
|
(cons
|
|
'#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
x2869
|
|
stuff2878)))
|
|
tmp2877)
|
|
((lambda (tmp2879)
|
|
(if tmp2879
|
|
(apply
|
|
(lambda (stuff2880)
|
|
(cons
|
|
'#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
x2869
|
|
stuff2880)))
|
|
tmp2879)
|
|
((lambda (_2881)
|
|
(list
|
|
'#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
x2869
|
|
y2868))
|
|
tmp2870)))
|
|
($syntax-dispatch
|
|
tmp2870
|
|
'(#(atom
|
|
"list*")
|
|
.
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2870
|
|
'(#(atom "list")
|
|
.
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2870
|
|
'(#(atom "quote")
|
|
any))))
|
|
y2868))
|
|
tmp2867)
|
|
(syntax-error tmp2866)))
|
|
($syntax-dispatch tmp2866 '(any any))))
|
|
(list x2865 y2864))))
|
|
(quasiappend2767 (lambda (x2851 y2850)
|
|
((lambda (tmp2852)
|
|
((lambda (tmp2853)
|
|
(if tmp2853
|
|
(apply
|
|
(lambda ()
|
|
(if (null? x2851)
|
|
'#(syntax-object ("quote" ()) ((top) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(if (null? (cdr x2851))
|
|
(car x2851)
|
|
((lambda (tmp2854)
|
|
((lambda (tmp2855)
|
|
(if tmp2855
|
|
(apply
|
|
(lambda (p2856)
|
|
(cons
|
|
'#(syntax-object "append" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
p2856))
|
|
tmp2855)
|
|
(syntax-error
|
|
tmp2854)))
|
|
($syntax-dispatch
|
|
tmp2854
|
|
'each-any)))
|
|
x2851))))
|
|
tmp2853)
|
|
((lambda (_2858)
|
|
(if (null? x2851)
|
|
y2850
|
|
((lambda (tmp2859)
|
|
((lambda (tmp2860)
|
|
(if tmp2860
|
|
(apply
|
|
(lambda (p2862
|
|
y2861)
|
|
(cons
|
|
'#(syntax-object "append" ((top) #(ribcage #(p y) #((top) (top)) #("i" "i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(append
|
|
p2862
|
|
(list
|
|
y2861))))
|
|
tmp2860)
|
|
(syntax-error
|
|
tmp2859)))
|
|
($syntax-dispatch
|
|
tmp2859
|
|
'(each-any any))))
|
|
(list x2851 y2850))))
|
|
tmp2852)))
|
|
($syntax-dispatch
|
|
tmp2852
|
|
'(#(atom "quote") ()))))
|
|
y2850)))
|
|
(quasilist*2768 (lambda (x2847 y2846)
|
|
((letrec ((f2848 (lambda (x2849)
|
|
(if (null? x2849)
|
|
y2846
|
|
(quasicons2766
|
|
(car x2849)
|
|
(f2848
|
|
(cdr x2849)))))))
|
|
f2848)
|
|
x2847)))
|
|
(quasivector2769 (lambda (x2817)
|
|
((lambda (tmp2818)
|
|
((lambda (tmp2819)
|
|
(if tmp2819
|
|
(apply
|
|
(lambda (x2820)
|
|
(list
|
|
'#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(list->vector x2820)))
|
|
tmp2819)
|
|
((lambda (_2822)
|
|
((letrec ((f2823 (lambda (y2825
|
|
k2824)
|
|
((lambda (tmp2826)
|
|
((lambda (tmp2827)
|
|
(if tmp2827
|
|
(apply
|
|
(lambda (y2828)
|
|
(k2824
|
|
(map (lambda (tmp2829)
|
|
(list
|
|
'#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(y k) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
tmp2829))
|
|
y2828)))
|
|
tmp2827)
|
|
((lambda (tmp2830)
|
|
(if tmp2830
|
|
(apply
|
|
(lambda (y2831)
|
|
(k2824
|
|
y2831))
|
|
tmp2830)
|
|
((lambda (tmp2833)
|
|
(if tmp2833
|
|
(apply
|
|
(lambda (y2835
|
|
z2834)
|
|
(f2823
|
|
z2834
|
|
(lambda (ls2836)
|
|
(k2824
|
|
(append
|
|
y2835
|
|
ls2836)))))
|
|
tmp2833)
|
|
((lambda (else2838)
|
|
((lambda (tmp2839)
|
|
((lambda (t72840)
|
|
(list
|
|
'#(syntax-object "list->vector" ((top) #(ribcage #(t7) #(("m" tmp)) #("i")) #(ribcage #(else) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(y k) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
t72840))
|
|
tmp2839))
|
|
x2817))
|
|
tmp2826)))
|
|
($syntax-dispatch
|
|
tmp2826
|
|
'(#(atom
|
|
"list*")
|
|
.
|
|
#(each+
|
|
any
|
|
(any)
|
|
()))))))
|
|
($syntax-dispatch
|
|
tmp2826
|
|
'(#(atom
|
|
"list")
|
|
.
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2826
|
|
'(#(atom
|
|
"quote")
|
|
each-any))))
|
|
y2825))))
|
|
f2823)
|
|
x2817
|
|
(lambda (ls2841)
|
|
((lambda (tmp2842)
|
|
((lambda (tmp2843)
|
|
(if tmp2843
|
|
(apply
|
|
(lambda (t82844)
|
|
(cons
|
|
'#(syntax-object "vector" ((top) #(ribcage #(t8) #(("m" tmp)) #("i")) #(ribcage () () ()) #(ribcage #(ls) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
t82844))
|
|
tmp2843)
|
|
(syntax-error
|
|
tmp2842)))
|
|
($syntax-dispatch
|
|
tmp2842
|
|
'each-any)))
|
|
ls2841))))
|
|
tmp2818)))
|
|
($syntax-dispatch
|
|
tmp2818
|
|
'(#(atom "quote") each-any))))
|
|
x2817)))
|
|
(emit2770 (lambda (x2776)
|
|
((lambda (tmp2777)
|
|
((lambda (tmp2778)
|
|
(if tmp2778
|
|
(apply
|
|
(lambda (x2779)
|
|
(list
|
|
'#(syntax-object quote ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
x2779))
|
|
tmp2778)
|
|
((lambda (tmp2780)
|
|
(if tmp2780
|
|
(apply
|
|
(lambda (x2781)
|
|
((lambda (tmp2782)
|
|
((lambda (tmp2784)
|
|
(if tmp2784
|
|
(apply
|
|
(lambda (t12785)
|
|
(cons
|
|
'#(syntax-object list ((top) #(ribcage #(t1) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
t12785))
|
|
tmp2784)
|
|
(syntax-error
|
|
tmp2782)))
|
|
($syntax-dispatch
|
|
tmp2782
|
|
'each-any)))
|
|
(map emit2770 x2781)))
|
|
tmp2780)
|
|
((lambda (tmp2787)
|
|
(if tmp2787
|
|
(apply
|
|
(lambda (x2789 y2788)
|
|
((letrec ((f2790 (lambda (x*2791)
|
|
(if (null?
|
|
x*2791)
|
|
(emit2770
|
|
y2788)
|
|
((lambda (tmp2792)
|
|
((lambda (tmp2793)
|
|
(if tmp2793
|
|
(apply
|
|
(lambda (t32795
|
|
t22794)
|
|
(list
|
|
'#(syntax-object cons ((top) #(ribcage #(t3 t2) #(("m" tmp) ("m" tmp)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x*) #((top)) #("i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
t32795
|
|
t22794))
|
|
tmp2793)
|
|
(syntax-error
|
|
tmp2792)))
|
|
($syntax-dispatch
|
|
tmp2792
|
|
'(any any))))
|
|
(list
|
|
(emit2770
|
|
(car x*2791))
|
|
(f2790
|
|
(cdr x*2791))))))))
|
|
f2790)
|
|
x2789))
|
|
tmp2787)
|
|
((lambda (tmp2797)
|
|
(if tmp2797
|
|
(apply
|
|
(lambda (x2798)
|
|
((lambda (tmp2799)
|
|
((lambda (tmp2801)
|
|
(if tmp2801
|
|
(apply
|
|
(lambda (t42802)
|
|
(cons
|
|
'#(syntax-object append ((top) #(ribcage #(t4) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
t42802))
|
|
tmp2801)
|
|
(syntax-error
|
|
tmp2799)))
|
|
($syntax-dispatch
|
|
tmp2799
|
|
'each-any)))
|
|
(map emit2770
|
|
x2798)))
|
|
tmp2797)
|
|
((lambda (tmp2804)
|
|
(if tmp2804
|
|
(apply
|
|
(lambda (x2805)
|
|
((lambda (tmp2806)
|
|
((lambda (tmp2808)
|
|
(if tmp2808
|
|
(apply
|
|
(lambda (t52809)
|
|
(cons
|
|
'#(syntax-object vector ((top) #(ribcage #(t5) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
t52809))
|
|
tmp2808)
|
|
(syntax-error
|
|
tmp2806)))
|
|
($syntax-dispatch
|
|
tmp2806
|
|
'each-any)))
|
|
(map emit2770
|
|
x2805)))
|
|
tmp2804)
|
|
((lambda (tmp2811)
|
|
(if tmp2811
|
|
(apply
|
|
(lambda (x2812)
|
|
((lambda (tmp2813)
|
|
((lambda (t62814)
|
|
(list
|
|
'#(syntax-object list->vector ((top) #(ribcage #(t6) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
t62814))
|
|
tmp2813))
|
|
(emit2770
|
|
x2812)))
|
|
tmp2811)
|
|
((lambda (tmp2815)
|
|
(if tmp2815
|
|
(apply
|
|
(lambda (x2816)
|
|
x2816)
|
|
tmp2815)
|
|
(syntax-error
|
|
tmp2777)))
|
|
($syntax-dispatch
|
|
tmp2777
|
|
'(#(atom
|
|
"value")
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2777
|
|
'(#(atom
|
|
"list->vector")
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2777
|
|
'(#(atom
|
|
"vector")
|
|
.
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2777
|
|
'(#(atom "append")
|
|
.
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2777
|
|
'(#(atom "list*")
|
|
.
|
|
#(each+ any (any)
|
|
()))))))
|
|
($syntax-dispatch
|
|
tmp2777
|
|
'(#(atom "list") . each-any)))))
|
|
($syntax-dispatch
|
|
tmp2777
|
|
'(#(atom "quote") any))))
|
|
x2776))))
|
|
(lambda (x2771)
|
|
((lambda (tmp2772)
|
|
((lambda (tmp2773)
|
|
(if tmp2773
|
|
(apply
|
|
(lambda (_2775 e2774) (emit2770 (quasi2764 e2774 '0)))
|
|
tmp2773)
|
|
(syntax-error tmp2772)))
|
|
($syntax-dispatch tmp2772 '(any any))))
|
|
x2771)))))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object unquote ((top) #(ribcage #(unquote) #((top)) #(unquote))))
|
|
(lambda (x2923) (syntax-error x2923 '"misplaced"))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object unquote-splicing ((top) #(ribcage #(unquote-splicing) #((top)) #(unquote-splicing))))
|
|
(lambda (x2924) (syntax-error x2924 '"misplaced"))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object quasisyntax ((top) #(ribcage #(quasisyntax) #((top)) #(quasisyntax))))
|
|
(lambda (x2925)
|
|
(letrec ((qs2926 (lambda (q2977 n2976 b*2975 k2974)
|
|
((lambda (tmp2978)
|
|
((lambda (tmp2979)
|
|
(if tmp2979
|
|
(apply
|
|
(lambda (d2980)
|
|
(qs2926
|
|
d2980
|
|
(+ n2976 '1)
|
|
b*2975
|
|
(lambda (b*2982 dnew2981)
|
|
(k2974
|
|
b*2982
|
|
(if (eq? dnew2981 d2980)
|
|
q2977
|
|
((lambda (tmp2983)
|
|
((lambda (d2984)
|
|
(cons
|
|
'#(syntax-object quasisyntax ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
d2984))
|
|
tmp2983))
|
|
dnew2981))))))
|
|
tmp2979)
|
|
((lambda (tmp2985)
|
|
(if (if tmp2985
|
|
(apply
|
|
(lambda (d2986)
|
|
(not (= n2976 '0)))
|
|
tmp2985)
|
|
'#f)
|
|
(apply
|
|
(lambda (d2987)
|
|
(qs2926
|
|
d2987
|
|
(- n2976 '1)
|
|
b*2975
|
|
(lambda (b*2989 dnew2988)
|
|
(k2974
|
|
b*2989
|
|
(if (eq? dnew2988 d2987)
|
|
q2977
|
|
((lambda (tmp2990)
|
|
((lambda (d2991)
|
|
(cons
|
|
'#(syntax-object unsyntax ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
d2991))
|
|
tmp2990))
|
|
dnew2988))))))
|
|
tmp2985)
|
|
((lambda (tmp2992)
|
|
(if (if tmp2992
|
|
(apply
|
|
(lambda (d2993)
|
|
(not (= n2976 '0)))
|
|
tmp2992)
|
|
'#f)
|
|
(apply
|
|
(lambda (d2994)
|
|
(qs2926
|
|
d2994
|
|
(- n2976 '1)
|
|
b*2975
|
|
(lambda (b*2996
|
|
dnew2995)
|
|
(k2974
|
|
b*2996
|
|
(if (eq? dnew2995
|
|
d2994)
|
|
q2977
|
|
((lambda (tmp2997)
|
|
((lambda (d2998)
|
|
(cons
|
|
'#(syntax-object unsyntax-splicing ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
d2998))
|
|
tmp2997))
|
|
dnew2995))))))
|
|
tmp2992)
|
|
((lambda (tmp2999)
|
|
(if (if tmp2999
|
|
(apply
|
|
(lambda (q3000)
|
|
(= n2976 '0))
|
|
tmp2999)
|
|
'#f)
|
|
(apply
|
|
(lambda (q3001)
|
|
((lambda (tmp3002)
|
|
((lambda (tmp3003)
|
|
(if tmp3003
|
|
(apply
|
|
(lambda (t3004)
|
|
(k2974
|
|
(cons
|
|
(list
|
|
t3004
|
|
q3001)
|
|
b*2975)
|
|
t3004))
|
|
tmp3003)
|
|
(syntax-error
|
|
tmp3002)))
|
|
($syntax-dispatch
|
|
tmp3002
|
|
'(any))))
|
|
(generate-temporaries
|
|
(list
|
|
q3001))))
|
|
tmp2999)
|
|
((lambda (tmp3005)
|
|
(if (if tmp3005
|
|
(apply
|
|
(lambda (q3007
|
|
d3006)
|
|
(= n2976
|
|
'0))
|
|
tmp3005)
|
|
'#f)
|
|
(apply
|
|
(lambda (q3009
|
|
d3008)
|
|
(qs2926
|
|
d3008
|
|
n2976
|
|
b*2975
|
|
(lambda (b*3011
|
|
dnew3010)
|
|
((lambda (tmp3012)
|
|
((lambda (tmp3014)
|
|
(if tmp3014
|
|
(apply
|
|
(lambda (t3015)
|
|
(k2974
|
|
(append
|
|
(map list
|
|
t3015
|
|
q3009)
|
|
b*3011)
|
|
((lambda (tmp3016)
|
|
((lambda (d3017)
|
|
(append
|
|
t3015
|
|
d3017))
|
|
tmp3016))
|
|
dnew3010)))
|
|
tmp3014)
|
|
(syntax-error
|
|
tmp3012)))
|
|
($syntax-dispatch
|
|
tmp3012
|
|
'each-any)))
|
|
(generate-temporaries
|
|
q3009)))))
|
|
tmp3005)
|
|
((lambda (tmp3021)
|
|
(if (if tmp3021
|
|
(apply
|
|
(lambda (q3023
|
|
d3022)
|
|
(= n2976
|
|
'0))
|
|
tmp3021)
|
|
'#f)
|
|
(apply
|
|
(lambda (q3025
|
|
d3024)
|
|
(qs2926
|
|
d3024
|
|
n2976
|
|
b*2975
|
|
(lambda (b*3027
|
|
dnew3026)
|
|
((lambda (tmp3028)
|
|
((lambda (tmp3030)
|
|
(if tmp3030
|
|
(apply
|
|
(lambda (t3031)
|
|
(k2974
|
|
(append
|
|
(map (lambda (tmp3041
|
|
tmp3040)
|
|
(list
|
|
(cons
|
|
tmp3040
|
|
'(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(q d) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))))
|
|
tmp3041))
|
|
q3025
|
|
t3031)
|
|
b*3027)
|
|
((lambda (tmp3032)
|
|
((lambda (tmp3034)
|
|
(if tmp3034
|
|
(apply
|
|
(lambda (m3035)
|
|
((lambda (tmp3036)
|
|
((lambda (d3037)
|
|
(append
|
|
(apply
|
|
append
|
|
m3035)
|
|
d3037))
|
|
tmp3036))
|
|
dnew3026))
|
|
tmp3034)
|
|
(syntax-error
|
|
tmp3032)))
|
|
($syntax-dispatch
|
|
tmp3032
|
|
'#(each
|
|
each-any))))
|
|
(map (lambda (tmp3033)
|
|
(cons
|
|
tmp3033
|
|
'(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(q d) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))))
|
|
t3031))))
|
|
tmp3030)
|
|
(syntax-error
|
|
tmp3028)))
|
|
($syntax-dispatch
|
|
tmp3028
|
|
'each-any)))
|
|
(generate-temporaries
|
|
q3025)))))
|
|
tmp3021)
|
|
((lambda (tmp3042)
|
|
(if tmp3042
|
|
(apply
|
|
(lambda (a3044
|
|
d3043)
|
|
(qs2926
|
|
a3044
|
|
n2976
|
|
b*2975
|
|
(lambda (b*3046
|
|
anew3045)
|
|
(qs2926
|
|
d3043
|
|
n2976
|
|
b*3046
|
|
(lambda (b*3048
|
|
dnew3047)
|
|
(k2974
|
|
b*3048
|
|
(if (if (eq? anew3045
|
|
a3044)
|
|
(eq? dnew3047
|
|
d3043)
|
|
'#f)
|
|
q2977
|
|
((lambda (tmp3049)
|
|
((lambda (tmp3050)
|
|
(if tmp3050
|
|
(apply
|
|
(lambda (a3052
|
|
d3051)
|
|
(cons
|
|
a3052
|
|
d3051))
|
|
tmp3050)
|
|
(syntax-error
|
|
tmp3049)))
|
|
($syntax-dispatch
|
|
tmp3049
|
|
'(any any))))
|
|
(list
|
|
anew3045
|
|
dnew3047)))))))))
|
|
tmp3042)
|
|
((lambda (tmp3053)
|
|
(if tmp3053
|
|
(apply
|
|
(lambda (x3054)
|
|
(vqs2927
|
|
x3054
|
|
n2976
|
|
b*2975
|
|
(lambda (b*3056
|
|
xnew*3055)
|
|
(k2974
|
|
b*3056
|
|
(if ((letrec ((same?3057 (lambda (x*3059
|
|
xnew*3058)
|
|
(if (null?
|
|
x*3059)
|
|
(null?
|
|
xnew*3058)
|
|
(if (not (null?
|
|
xnew*3058))
|
|
(if (eq? (car x*3059)
|
|
(car xnew*3058))
|
|
(same?3057
|
|
(cdr x*3059)
|
|
(cdr xnew*3058))
|
|
'#f)
|
|
'#f)))))
|
|
same?3057)
|
|
x3054
|
|
xnew*3055)
|
|
q2977
|
|
((lambda (tmp3061)
|
|
((lambda (tmp3062)
|
|
(if tmp3062
|
|
(apply
|
|
(lambda (x3063)
|
|
(list->vector
|
|
x3063))
|
|
tmp3062)
|
|
(syntax-error
|
|
tmp3061)))
|
|
($syntax-dispatch
|
|
tmp3061
|
|
'each-any)))
|
|
xnew*3055))))))
|
|
tmp3053)
|
|
((lambda (_3066)
|
|
(k2974
|
|
b*2975
|
|
q2977))
|
|
tmp2978)))
|
|
($syntax-dispatch
|
|
tmp2978
|
|
'#(vector
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2978
|
|
'(any .
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2978
|
|
'((#(free-id
|
|
#(syntax-object unsyntax-splicing ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
.
|
|
each-any)
|
|
.
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2978
|
|
'((#(free-id
|
|
#(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
.
|
|
each-any)
|
|
.
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2978
|
|
'(#(free-id
|
|
#(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2978
|
|
'(#(free-id
|
|
#(syntax-object unsyntax-splicing ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
.
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2978
|
|
'(#(free-id
|
|
#(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
.
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2978
|
|
'(#(free-id
|
|
#(syntax-object quasisyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
.
|
|
any))))
|
|
q2977)))
|
|
(vqs2927 (lambda (x*2942 n2941 b*2940 k2939)
|
|
(if (null? x*2942)
|
|
(k2939 b*2940 '())
|
|
(vqs2927
|
|
(cdr x*2942)
|
|
n2941
|
|
b*2940
|
|
(lambda (b*2944 xnew*2943)
|
|
((lambda (tmp2945)
|
|
((lambda (tmp2946)
|
|
(if (if tmp2946
|
|
(apply
|
|
(lambda (q2947)
|
|
(= n2941 '0))
|
|
tmp2946)
|
|
'#f)
|
|
(apply
|
|
(lambda (q2948)
|
|
((lambda (tmp2949)
|
|
((lambda (tmp2951)
|
|
(if tmp2951
|
|
(apply
|
|
(lambda (t2952)
|
|
(k2939
|
|
(append
|
|
(map list
|
|
t2952
|
|
q2948)
|
|
b*2944)
|
|
(append
|
|
t2952
|
|
xnew*2943)))
|
|
tmp2951)
|
|
(syntax-error
|
|
tmp2949)))
|
|
($syntax-dispatch
|
|
tmp2949
|
|
'each-any)))
|
|
(generate-temporaries
|
|
q2948)))
|
|
tmp2946)
|
|
((lambda (tmp2956)
|
|
(if (if tmp2956
|
|
(apply
|
|
(lambda (q2957)
|
|
(= n2941 '0))
|
|
tmp2956)
|
|
'#f)
|
|
(apply
|
|
(lambda (q2958)
|
|
((lambda (tmp2959)
|
|
((lambda (tmp2961)
|
|
(if tmp2961
|
|
(apply
|
|
(lambda (t2962)
|
|
(k2939
|
|
(append
|
|
(map (lambda (tmp2970
|
|
tmp2969)
|
|
(list
|
|
(cons
|
|
tmp2969
|
|
'(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage #(q) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))))
|
|
tmp2970))
|
|
q2958
|
|
t2962)
|
|
b*2944)
|
|
((lambda (tmp2963)
|
|
((lambda (tmp2965)
|
|
(if tmp2965
|
|
(apply
|
|
(lambda (m2966)
|
|
(append
|
|
(apply
|
|
append
|
|
m2966)
|
|
xnew*2943))
|
|
tmp2965)
|
|
(syntax-error
|
|
tmp2963)))
|
|
($syntax-dispatch
|
|
tmp2963
|
|
'#(each
|
|
each-any))))
|
|
(map (lambda (tmp2964)
|
|
(cons
|
|
tmp2964
|
|
'(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage #(q) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))))
|
|
t2962))))
|
|
tmp2961)
|
|
(syntax-error
|
|
tmp2959)))
|
|
($syntax-dispatch
|
|
tmp2959
|
|
'each-any)))
|
|
(generate-temporaries
|
|
q2958)))
|
|
tmp2956)
|
|
((lambda (_2971)
|
|
(qs2926
|
|
(car x*2942)
|
|
n2941
|
|
b*2944
|
|
(lambda (b*2973
|
|
xnew2972)
|
|
(k2939
|
|
b*2973
|
|
(cons
|
|
xnew2972
|
|
xnew*2943)))))
|
|
tmp2945)))
|
|
($syntax-dispatch
|
|
tmp2945
|
|
'(#(free-id
|
|
#(syntax-object unsyntax-splicing ((top) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
.
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2945
|
|
'(#(free-id
|
|
#(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
.
|
|
each-any))))
|
|
(car x*2942))))))))
|
|
((lambda (tmp2928)
|
|
((lambda (tmp2929)
|
|
(if tmp2929
|
|
(apply
|
|
(lambda (_2931 x2930)
|
|
(qs2926
|
|
x2930
|
|
'0
|
|
'()
|
|
(lambda (b*2933 xnew2932)
|
|
(if (eq? xnew2932 x2930)
|
|
(list
|
|
'#(syntax-object syntax ((top) #(ribcage () () ()) #(ribcage #(b* xnew) #((top) (top)) #("i" "i")) #(ribcage #(_ x) #((top) (top)) #("i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
x2930)
|
|
((lambda (tmp2934)
|
|
((lambda (tmp2935)
|
|
(if tmp2935
|
|
(apply
|
|
(lambda (b2937 x2936)
|
|
(list
|
|
'#(syntax-object with-syntax ((top) #(ribcage #(b x) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(b* xnew) #((top) (top)) #("i" "i")) #(ribcage #(_ x) #((top) (top)) #("i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
b2937
|
|
(list
|
|
'#(syntax-object syntax ((top) #(ribcage #(b x) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(b* xnew) #((top) (top)) #("i" "i")) #(ribcage #(_ x) #((top) (top)) #("i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
x2936)))
|
|
tmp2935)
|
|
(syntax-error tmp2934)))
|
|
($syntax-dispatch
|
|
tmp2934
|
|
'(each-any any))))
|
|
(list b*2933 xnew2932))))))
|
|
tmp2929)
|
|
(syntax-error tmp2928)))
|
|
($syntax-dispatch tmp2928 '(any any))))
|
|
x2925)))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object unsyntax ((top) #(ribcage #(unsyntax) #((top)) #(unsyntax))))
|
|
(lambda (x3067) (syntax-error x3067 '"misplaced"))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object unsyntax-splicing ((top) #(ribcage #(unsyntax-splicing) #((top)) #(unsyntax-splicing))))
|
|
(lambda (x3068) (syntax-error x3068 '"misplaced"))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object include ((top) #(ribcage #(include) #((top)) #(include))))
|
|
(lambda (x3069)
|
|
(letrec ((read-file3070 (lambda (fn3081 k3080)
|
|
((lambda (p3082)
|
|
((letrec ((f3083 (lambda ()
|
|
((lambda (x3084)
|
|
(if (eof-object?
|
|
x3084)
|
|
(begin
|
|
(close-input-port
|
|
p3082)
|
|
'())
|
|
(cons
|
|
(datum->syntax-object
|
|
k3080
|
|
x3084)
|
|
(f3083))))
|
|
(read p3082)))))
|
|
f3083)))
|
|
(open-input-file fn3081)))))
|
|
((lambda (tmp3071)
|
|
((lambda (tmp3072)
|
|
(if tmp3072
|
|
(apply
|
|
(lambda (k3074 filename3073)
|
|
((lambda (fn3075)
|
|
((lambda (tmp3076)
|
|
((lambda (tmp3077)
|
|
(if tmp3077
|
|
(apply
|
|
(lambda (exp3078)
|
|
(cons
|
|
'#(syntax-object begin ((top) #(ribcage #(exp) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(fn) #((top)) #("i")) #(ribcage #(k filename) #((top) (top)) #("i" "i")) #(ribcage (read-file) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
exp3078))
|
|
tmp3077)
|
|
(syntax-error tmp3076)))
|
|
($syntax-dispatch tmp3076 'each-any)))
|
|
(read-file3070 fn3075 k3074)))
|
|
(syntax-object->datum filename3073)))
|
|
tmp3072)
|
|
(syntax-error tmp3071)))
|
|
($syntax-dispatch tmp3071 '(any any))))
|
|
x3069)))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object case ((top) #(ribcage #(case) #((top)) #(case))))
|
|
(lambda (x3085)
|
|
((lambda (tmp3086)
|
|
((lambda (tmp3087)
|
|
(if tmp3087
|
|
(apply
|
|
(lambda (_3091 e3090 m13089 m23088)
|
|
((lambda (tmp3092)
|
|
((lambda (body3119)
|
|
(list
|
|
'#(syntax-object let ((top) #(ribcage #(body) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
(list
|
|
'#(syntax-object t ((top) #(ribcage #(body) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
e3090))
|
|
body3119))
|
|
tmp3092))
|
|
((letrec ((f3093 (lambda (clause3095 clauses3094)
|
|
(if (null? clauses3094)
|
|
((lambda (tmp3096)
|
|
((lambda (tmp3097)
|
|
(if tmp3097
|
|
(apply
|
|
(lambda (e13099
|
|
e23098)
|
|
(cons
|
|
'#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
e13099
|
|
e23098)))
|
|
tmp3097)
|
|
((lambda (tmp3101)
|
|
(if tmp3101
|
|
(apply
|
|
(lambda (k3104
|
|
e13103
|
|
e23102)
|
|
(list
|
|
'#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
k3104))
|
|
(cons
|
|
'#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
e13103
|
|
e23102))))
|
|
tmp3101)
|
|
((lambda (_3107)
|
|
(syntax-error
|
|
x3085))
|
|
tmp3096)))
|
|
($syntax-dispatch
|
|
tmp3096
|
|
'(each-any
|
|
any
|
|
.
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp3096
|
|
'(#(free-id
|
|
#(syntax-object else ((top) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
any
|
|
.
|
|
each-any))))
|
|
clause3095)
|
|
((lambda (tmp3108)
|
|
((lambda (rest3109)
|
|
((lambda (tmp3110)
|
|
((lambda (tmp3111)
|
|
(if tmp3111
|
|
(apply
|
|
(lambda (k3114
|
|
e13113
|
|
e23112)
|
|
(list
|
|
'#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
k3114))
|
|
(cons
|
|
'#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
e13113
|
|
e23112))
|
|
rest3109))
|
|
tmp3111)
|
|
((lambda (_3117)
|
|
(syntax-error
|
|
x3085))
|
|
tmp3110)))
|
|
($syntax-dispatch
|
|
tmp3110
|
|
'(each-any
|
|
any
|
|
.
|
|
each-any))))
|
|
clause3095))
|
|
tmp3108))
|
|
(f3093
|
|
(car clauses3094)
|
|
(cdr clauses3094)))))))
|
|
f3093)
|
|
m13089
|
|
m23088)))
|
|
tmp3087)
|
|
(syntax-error tmp3086)))
|
|
($syntax-dispatch tmp3086 '(any any any . each-any))))
|
|
x3085))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object identifier-syntax ((top) #(ribcage #(identifier-syntax) #((top)) #(identifier-syntax))))
|
|
(lambda (x3120)
|
|
((lambda (tmp3121)
|
|
((lambda (tmp3122)
|
|
(if tmp3122
|
|
(apply
|
|
(lambda (dummy3124 e3123)
|
|
(list
|
|
'#(syntax-object lambda ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object (x) ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object syntax-case ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object x ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
'()
|
|
(list
|
|
'#(syntax-object id ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object (identifier? (syntax id)) ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object syntax ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
e3123))
|
|
(list
|
|
'(#(syntax-object _ ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
#(syntax-object x ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
#(syntax-object ... ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))))
|
|
(list
|
|
'#(syntax-object syntax ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
e3123
|
|
'(#(syntax-object x ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
#(syntax-object ... ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))))))))))
|
|
tmp3122)
|
|
((lambda (tmp3125)
|
|
(if (if tmp3125
|
|
(apply
|
|
(lambda (dummy3131 id3130 exp13129 var3128
|
|
val3127 exp23126)
|
|
(if (identifier? id3130)
|
|
(identifier? var3128)
|
|
'#f))
|
|
tmp3125)
|
|
'#f)
|
|
(apply
|
|
(lambda (dummy3137 id3136 exp13135 var3134 val3133
|
|
exp23132)
|
|
(list
|
|
'#(syntax-object cons ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object (quote macro!) ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object lambda ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object (x) ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object syntax-case ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object x ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
'#(syntax-object (set!) ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
(list
|
|
'#(syntax-object set! ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
var3134
|
|
val3133)
|
|
(list
|
|
'#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
exp23132))
|
|
(list
|
|
(cons
|
|
id3136
|
|
'(#(syntax-object x ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
#(syntax-object ... ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))))
|
|
(list
|
|
'#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
exp13135
|
|
'(#(syntax-object x ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
#(syntax-object ... ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))))))
|
|
(list
|
|
id3136
|
|
(list
|
|
'#(syntax-object identifier? ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
(list
|
|
'#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
id3136))
|
|
(list
|
|
'#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
|
|
exp13135))))))
|
|
tmp3125)
|
|
(syntax-error tmp3121)))
|
|
($syntax-dispatch
|
|
tmp3121
|
|
'(any (any any)
|
|
((#(free-id
|
|
#(syntax-object set! ((top) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))))
|
|
any
|
|
any)
|
|
any))))))
|
|
($syntax-dispatch tmp3121 '(any any))))
|
|
x3120))
|
|
'*top*)
|