10705 lines
1.3 MiB
10705 lines
1.3 MiB
;;; psyntax.pp
|
|
;;; automatically generated from psyntax.ss
|
|
;;; Tue Aug 1 21:30:16 EDT 2006
|
|
;;; see copyright notice in psyntax.ss
|
|
|
|
(let ()
|
|
(define + fx+)
|
|
;(define - fx-)
|
|
(define * fx*)
|
|
(define quotient fxquotient)
|
|
(define modulo fxmodulo)
|
|
(define number? fixnum?)
|
|
(define = fx=)
|
|
(define > fx>)
|
|
(define >= fx>=)
|
|
(define < fx<)
|
|
(define <= fx<=)
|
|
|
|
((lambda ()
|
|
(letrec ((noexpand62 '"noexpand")
|
|
(make-syntax-object63 (lambda (expression2523 wrap2522)
|
|
(vector
|
|
'syntax-object
|
|
expression2523
|
|
wrap2522)))
|
|
(syntax-object?64 (lambda (x2521)
|
|
(if (vector? x2521)
|
|
(if (= (vector-length x2521) '3)
|
|
(eq? (vector-ref x2521 '0)
|
|
'syntax-object)
|
|
'#f)
|
|
'#f)))
|
|
(syntax-object-expression65 (lambda (x2520)
|
|
(vector-ref x2520 '1)))
|
|
(syntax-object-wrap66 (lambda (x2519)
|
|
(vector-ref x2519 '2)))
|
|
(set-syntax-object-expression!67 (lambda (x2518 update2517)
|
|
(vector-set!
|
|
x2518
|
|
'1
|
|
update2517)))
|
|
(set-syntax-object-wrap!68 (lambda (x2516 update2515)
|
|
(vector-set!
|
|
x2516
|
|
'2
|
|
update2515)))
|
|
(annotation?132 (lambda (x2514) '#f))
|
|
(top-level-eval-hook133 (lambda (x2513)
|
|
(eval (list noexpand62 x2513))))
|
|
(local-eval-hook134 (lambda (x2512)
|
|
(eval (list noexpand62 x2512))))
|
|
(define-top-level-value-hook135 (lambda (sym2511 val2510)
|
|
(top-level-eval-hook133
|
|
(list
|
|
'define
|
|
sym2511
|
|
(list 'quote val2510)))))
|
|
(error-hook136 (lambda (who2509 why2508 what2507)
|
|
(error who2509 '"~a ~s" why2508 what2507)))
|
|
(put-cte-hook141 (lambda (symbol2506 val2505)
|
|
($sc-put-cte symbol2506 val2505 '*top*)))
|
|
(get-global-definition-hook142 (lambda (symbol2504)
|
|
(getprop
|
|
symbol2504
|
|
'*sc-expander*)))
|
|
(put-global-definition-hook143 (lambda (symbol2503 x2502)
|
|
(if (not x2502)
|
|
(remprop
|
|
symbol2503
|
|
'*sc-expander*)
|
|
(putprop
|
|
symbol2503
|
|
'*sc-expander*
|
|
x2502))))
|
|
(read-only-binding?144 (lambda (symbol2501) '#f))
|
|
(get-import-binding145 (lambda (symbol2500 token2499)
|
|
(getprop symbol2500 token2499)))
|
|
(put-import-binding146 (lambda (symbol2498 token2497 x2496)
|
|
(if (not x2496)
|
|
(remprop symbol2498 token2497)
|
|
(putprop
|
|
symbol2498
|
|
token2497
|
|
x2496))))
|
|
(generate-id147 ((lambda (digits2482)
|
|
((lambda (base2484 session-key2483)
|
|
(letrec ((make-digit2485 (lambda (x2495)
|
|
(string-ref
|
|
digits2482
|
|
x2495)))
|
|
(fmt2486 (lambda (n2489)
|
|
((letrec ((fmt2490 (lambda (n2492
|
|
a2491)
|
|
(if (< n2492
|
|
base2484)
|
|
(list->string
|
|
(cons
|
|
(make-digit2485
|
|
n2492)
|
|
a2491))
|
|
((lambda (r2494
|
|
rest2493)
|
|
(fmt2490
|
|
rest2493
|
|
(cons
|
|
(make-digit2485
|
|
r2494)
|
|
a2491)))
|
|
(modulo
|
|
n2492
|
|
base2484)
|
|
(quotient
|
|
n2492
|
|
base2484))))))
|
|
fmt2490)
|
|
n2489
|
|
'()))))
|
|
((lambda (n2487)
|
|
(lambda (name2488)
|
|
(begin
|
|
(set! n2487 (+ n2487 '1))
|
|
(string->symbol
|
|
(string-append
|
|
session-key2483
|
|
(fmt2486 n2487))))))
|
|
'-1)))
|
|
(string-length digits2482)
|
|
'"_"))
|
|
'"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!$%&*/:<=>?~_^.+-"))
|
|
(built-lambda?221 (lambda (x2481)
|
|
(if (pair? x2481)
|
|
(eq? (car x2481) 'lambda)
|
|
'#f)))
|
|
(build-sequence239 (lambda (ae2478 exps2477)
|
|
((letrec ((loop2479 (lambda (exps2480)
|
|
(if (null?
|
|
(cdr exps2480))
|
|
(car exps2480)
|
|
(if (equal?
|
|
(car exps2480)
|
|
'(void))
|
|
(loop2479
|
|
(cdr exps2480))
|
|
(cons
|
|
'begin
|
|
exps2480))))))
|
|
loop2479)
|
|
exps2477)))
|
|
(build-letrec240 (lambda (ae2476 vars2475 val-exps2474
|
|
body-exp2473)
|
|
(if (null? vars2475)
|
|
body-exp2473
|
|
(list
|
|
'letrec
|
|
(map list vars2475 val-exps2474)
|
|
body-exp2473))))
|
|
(build-body241 (lambda (ae2472 vars2471 val-exps2470
|
|
body-exp2469)
|
|
(build-letrec240
|
|
ae2472
|
|
vars2471
|
|
val-exps2470
|
|
body-exp2469)))
|
|
(build-top-module242 (lambda (ae2457 types2456 vars2455
|
|
val-exps2454 body-exp2453)
|
|
(call-with-values
|
|
(lambda ()
|
|
((letrec ((f2461 (lambda (types2463
|
|
vars2462)
|
|
(if (null?
|
|
types2463)
|
|
(values
|
|
'()
|
|
'()
|
|
'())
|
|
((lambda (var2464)
|
|
(call-with-values
|
|
(lambda ()
|
|
(f2461
|
|
(cdr types2463)
|
|
(cdr vars2462)))
|
|
(lambda (vars2467
|
|
defns2466
|
|
sets2465)
|
|
(if (eq? (car types2463)
|
|
'global)
|
|
((lambda (x2468)
|
|
(values
|
|
(cons
|
|
x2468
|
|
vars2467)
|
|
(cons
|
|
(list
|
|
'define
|
|
var2464
|
|
(chi-void513))
|
|
defns2466)
|
|
(cons
|
|
(list
|
|
'set!
|
|
var2464
|
|
x2468)
|
|
sets2465)))
|
|
(gensym))
|
|
(values
|
|
(cons
|
|
var2464
|
|
vars2467)
|
|
defns2466
|
|
sets2465)))))
|
|
(car vars2462))))))
|
|
f2461)
|
|
types2456
|
|
vars2455))
|
|
(lambda (vars2460 defns2459 sets2458)
|
|
(if (null? defns2459)
|
|
(build-letrec240
|
|
ae2457
|
|
vars2460
|
|
val-exps2454
|
|
body-exp2453)
|
|
(build-sequence239
|
|
'#f
|
|
(append
|
|
defns2459
|
|
(list
|
|
(build-letrec240
|
|
ae2457
|
|
vars2460
|
|
val-exps2454
|
|
(build-sequence239
|
|
'#f
|
|
(append
|
|
sets2458
|
|
(list
|
|
body-exp2453))))))))))))
|
|
(sanitize-binding275 (lambda (b2449)
|
|
(if (procedure? b2449)
|
|
(cons 'macro b2449)
|
|
(if (binding?289 b2449)
|
|
(if ((lambda (t2450)
|
|
(if (memv
|
|
t2450
|
|
'(core
|
|
macro
|
|
macro!
|
|
deferred))
|
|
(procedure?
|
|
(binding-value286
|
|
b2449))
|
|
(if (memv
|
|
t2450
|
|
'($module))
|
|
(interface?447
|
|
(binding-value286
|
|
b2449))
|
|
(if (memv
|
|
t2450
|
|
'(lexical))
|
|
'#f
|
|
(if (memv
|
|
t2450
|
|
'(global
|
|
meta-variable))
|
|
(symbol?
|
|
(binding-value286
|
|
b2449))
|
|
(if (memv
|
|
t2450
|
|
'(syntax))
|
|
((lambda (x2451)
|
|
(if (pair?
|
|
x2451)
|
|
(if '#f
|
|
((lambda (n2452)
|
|
(if (integer?
|
|
n2452)
|
|
(if (exact?
|
|
n2452)
|
|
(>= n2452
|
|
'0)
|
|
'#f)
|
|
'#f))
|
|
(cdr x2451))
|
|
'#f)
|
|
'#f))
|
|
(binding-value286
|
|
b2449))
|
|
(if (memv
|
|
t2450
|
|
'(begin
|
|
define
|
|
define-syntax
|
|
set!
|
|
$module-key
|
|
$import
|
|
eval-when
|
|
meta))
|
|
(null?
|
|
(binding-value286
|
|
b2449))
|
|
(if (memv
|
|
t2450
|
|
'(local-syntax))
|
|
(boolean?
|
|
(binding-value286
|
|
b2449))
|
|
(if (memv
|
|
t2450
|
|
'(displaced-lexical))
|
|
(eq? (binding-value286
|
|
b2449)
|
|
'#f)
|
|
'#t)))))))))
|
|
(binding-type285 b2449))
|
|
b2449
|
|
'#f)
|
|
'#f))))
|
|
(binding-type285 car)
|
|
(binding-value286 cdr)
|
|
(set-binding-type!287 set-car!)
|
|
(set-binding-value!288 set-cdr!)
|
|
(binding?289 (lambda (x2448)
|
|
(if (pair? x2448) (symbol? (car x2448)) '#f)))
|
|
(extend-env299 (lambda (label2447 binding2446 r2445)
|
|
(cons (cons label2447 binding2446) r2445)))
|
|
(extend-env*300 (lambda (labels2444 bindings2443 r2442)
|
|
(if (null? labels2444)
|
|
r2442
|
|
(extend-env*300
|
|
(cdr labels2444)
|
|
(cdr bindings2443)
|
|
(extend-env299
|
|
(car labels2444)
|
|
(car bindings2443)
|
|
r2442)))))
|
|
(extend-var-env*301 (lambda (labels2441 vars2440 r2439)
|
|
(if (null? labels2441)
|
|
r2439
|
|
(extend-var-env*301
|
|
(cdr labels2441)
|
|
(cdr vars2440)
|
|
(extend-env299
|
|
(car labels2441)
|
|
(cons 'lexical (car vars2440))
|
|
r2439)))))
|
|
(displaced-lexical?302 (lambda (id2436 r2435)
|
|
((lambda (n2437)
|
|
(if n2437
|
|
((lambda (b2438)
|
|
(eq? (binding-type285 b2438)
|
|
'displaced-lexical))
|
|
(lookup305 n2437 r2435))
|
|
'#f))
|
|
(id-var-name429 id2436 '(())))))
|
|
(displaced-lexical-error303 (lambda (id2434)
|
|
(syntax-error
|
|
id2434
|
|
(if (id-var-name429
|
|
id2434
|
|
'(()))
|
|
'"identifier out of context"
|
|
'"identifier not visible"))))
|
|
(lookup*304 (lambda (x2431 r2430)
|
|
((lambda (t2432)
|
|
(if t2432
|
|
(cdr t2432)
|
|
(if (symbol? x2431)
|
|
((lambda (t2433)
|
|
(if t2433
|
|
t2433
|
|
(cons 'global x2431)))
|
|
(get-global-definition-hook142
|
|
x2431))
|
|
'(displaced-lexical . #f))))
|
|
(assq x2431 r2430))))
|
|
(lookup305 (lambda (x2425 r2424)
|
|
(letrec ((whack-binding!2426 (lambda (b2429
|
|
*b2428)
|
|
(begin
|
|
(set-binding-type!287
|
|
b2429
|
|
(binding-type285
|
|
*b2428))
|
|
(set-binding-value!288
|
|
b2429
|
|
(binding-value286
|
|
*b2428))))))
|
|
((lambda (b2427)
|
|
(begin
|
|
(if (eq? (binding-type285 b2427) 'deferred)
|
|
(whack-binding!2426
|
|
b2427
|
|
(make-transformer-binding306
|
|
((binding-value286 b2427))))
|
|
(void))
|
|
b2427))
|
|
(lookup*304 x2425 r2424)))))
|
|
(make-transformer-binding306 (lambda (b2422)
|
|
((lambda (t2423)
|
|
(if t2423
|
|
t2423
|
|
(syntax-error
|
|
b2422
|
|
'"invalid transformer")))
|
|
(sanitize-binding275 b2422))))
|
|
(defer-or-eval-transformer307 (lambda (eval2421 x2420)
|
|
(if (built-lambda?221 x2420)
|
|
(cons
|
|
'deferred
|
|
(lambda ()
|
|
(eval2421 x2420)))
|
|
(make-transformer-binding306
|
|
(eval2421 x2420)))))
|
|
(global-extend308 (lambda (type2419 sym2418 val2417)
|
|
(put-cte-hook141
|
|
sym2418
|
|
(cons type2419 val2417))))
|
|
(nonsymbol-id?309 (lambda (x2415)
|
|
(if (syntax-object?64 x2415)
|
|
(symbol?
|
|
((lambda (e2416)
|
|
(if (annotation?132 e2416)
|
|
(annotation-expression e2416)
|
|
e2416))
|
|
(syntax-object-expression65
|
|
x2415)))
|
|
'#f)))
|
|
(id?310 (lambda (x2413)
|
|
(if (symbol? x2413)
|
|
'#t
|
|
(if (syntax-object?64 x2413)
|
|
(symbol?
|
|
((lambda (e2414)
|
|
(if (annotation?132 e2414)
|
|
(annotation-expression e2414)
|
|
e2414))
|
|
(syntax-object-expression65 x2413)))
|
|
(if (annotation?132 x2413)
|
|
(symbol? (annotation-expression x2413))
|
|
'#f)))))
|
|
(id-marks316 (lambda (id2412)
|
|
(if (syntax-object?64 id2412)
|
|
(wrap-marks320
|
|
(syntax-object-wrap66 id2412))
|
|
(wrap-marks320 '((top))))))
|
|
(id-subst317 (lambda (id2411)
|
|
(if (syntax-object?64 id2411)
|
|
(wrap-subst321
|
|
(syntax-object-wrap66 id2411))
|
|
(wrap-marks320 '((top))))))
|
|
(id-sym-name&marks318 (lambda (x2408 w2407)
|
|
(if (syntax-object?64 x2408)
|
|
(values
|
|
((lambda (e2409)
|
|
(if (annotation?132 e2409)
|
|
(annotation-expression
|
|
e2409)
|
|
e2409))
|
|
(syntax-object-expression65
|
|
x2408))
|
|
(join-marks418
|
|
(wrap-marks320 w2407)
|
|
(wrap-marks320
|
|
(syntax-object-wrap66
|
|
x2408))))
|
|
(values
|
|
((lambda (e2410)
|
|
(if (annotation?132 e2410)
|
|
(annotation-expression
|
|
e2410)
|
|
e2410))
|
|
x2408)
|
|
(wrap-marks320 w2407)))))
|
|
(make-wrap319 cons)
|
|
(wrap-marks320 car)
|
|
(wrap-subst321 cdr)
|
|
(make-indirect-label350 (lambda (label2406)
|
|
(vector 'indirect-label label2406)))
|
|
(indirect-label?351 (lambda (x2405)
|
|
(if (vector? x2405)
|
|
(if (= (vector-length x2405) '2)
|
|
(eq? (vector-ref x2405 '0)
|
|
'indirect-label)
|
|
'#f)
|
|
'#f)))
|
|
(indirect-label-label352 (lambda (x2404)
|
|
(vector-ref x2404 '1)))
|
|
(set-indirect-label-label!353 (lambda (x2403 update2402)
|
|
(vector-set!
|
|
x2403
|
|
'1
|
|
update2402)))
|
|
(gen-indirect-label354 (lambda ()
|
|
(make-indirect-label350
|
|
(gen-label357))))
|
|
(get-indirect-label355 (lambda (x2401)
|
|
(indirect-label-label352 x2401)))
|
|
(set-indirect-label!356 (lambda (x2400 v2399)
|
|
(set-indirect-label-label!353
|
|
x2400
|
|
v2399)))
|
|
(gen-label357 (lambda () (string '#\i)))
|
|
(label?358 (lambda (x2396)
|
|
((lambda (t2397)
|
|
(if t2397
|
|
t2397
|
|
((lambda (t2398)
|
|
(if t2398
|
|
t2398
|
|
(indirect-label?351 x2396)))
|
|
(symbol? x2396))))
|
|
(string? x2396))))
|
|
(gen-labels359 (lambda (ls2395)
|
|
(if (null? ls2395)
|
|
'()
|
|
(cons
|
|
(gen-label357)
|
|
(gen-labels359 (cdr ls2395))))))
|
|
(make-ribcage360 (lambda (symnames2394 marks2393 labels2392)
|
|
(vector
|
|
'ribcage
|
|
symnames2394
|
|
marks2393
|
|
labels2392)))
|
|
(ribcage?361 (lambda (x2391)
|
|
(if (vector? x2391)
|
|
(if (= (vector-length x2391) '4)
|
|
(eq? (vector-ref x2391 '0) 'ribcage)
|
|
'#f)
|
|
'#f)))
|
|
(ribcage-symnames362 (lambda (x2390) (vector-ref x2390 '1)))
|
|
(ribcage-marks363 (lambda (x2389) (vector-ref x2389 '2)))
|
|
(ribcage-labels364 (lambda (x2388) (vector-ref x2388 '3)))
|
|
(set-ribcage-symnames!365 (lambda (x2387 update2386)
|
|
(vector-set! x2387 '1 update2386)))
|
|
(set-ribcage-marks!366 (lambda (x2385 update2384)
|
|
(vector-set! x2385 '2 update2384)))
|
|
(set-ribcage-labels!367 (lambda (x2383 update2382)
|
|
(vector-set! x2383 '3 update2382)))
|
|
(make-top-ribcage368 (lambda (key2381 mutable?2380)
|
|
(vector
|
|
'top-ribcage
|
|
key2381
|
|
mutable?2380)))
|
|
(top-ribcage?369 (lambda (x2379)
|
|
(if (vector? x2379)
|
|
(if (= (vector-length x2379) '3)
|
|
(eq? (vector-ref x2379 '0)
|
|
'top-ribcage)
|
|
'#f)
|
|
'#f)))
|
|
(top-ribcage-key370 (lambda (x2378) (vector-ref x2378 '1)))
|
|
(top-ribcage-mutable?371 (lambda (x2377)
|
|
(vector-ref x2377 '2)))
|
|
(set-top-ribcage-key!372 (lambda (x2376 update2375)
|
|
(vector-set! x2376 '1 update2375)))
|
|
(set-top-ribcage-mutable?!373 (lambda (x2374 update2373)
|
|
(vector-set!
|
|
x2374
|
|
'2
|
|
update2373)))
|
|
(make-import-interface374 (lambda (interface2372
|
|
new-marks2371)
|
|
(vector
|
|
'import-interface
|
|
interface2372
|
|
new-marks2371)))
|
|
(import-interface?375 (lambda (x2370)
|
|
(if (vector? x2370)
|
|
(if (= (vector-length x2370) '3)
|
|
(eq? (vector-ref x2370 '0)
|
|
'import-interface)
|
|
'#f)
|
|
'#f)))
|
|
(import-interface-interface376 (lambda (x2369)
|
|
(vector-ref x2369 '1)))
|
|
(import-interface-new-marks377 (lambda (x2368)
|
|
(vector-ref x2368 '2)))
|
|
(set-import-interface-interface!378 (lambda (x2367
|
|
update2366)
|
|
(vector-set!
|
|
x2367
|
|
'1
|
|
update2366)))
|
|
(set-import-interface-new-marks!379 (lambda (x2365
|
|
update2364)
|
|
(vector-set!
|
|
x2365
|
|
'2
|
|
update2364)))
|
|
(make-env380 (lambda (top-ribcage2363 wrap2362)
|
|
(vector 'env top-ribcage2363 wrap2362)))
|
|
(env?381 (lambda (x2361)
|
|
(if (vector? x2361)
|
|
(if (= (vector-length x2361) '3)
|
|
(eq? (vector-ref x2361 '0) 'env)
|
|
'#f)
|
|
'#f)))
|
|
(env-top-ribcage382 (lambda (x2360) (vector-ref x2360 '1)))
|
|
(env-wrap383 (lambda (x2359) (vector-ref x2359 '2)))
|
|
(set-env-top-ribcage!384 (lambda (x2358 update2357)
|
|
(vector-set! x2358 '1 update2357)))
|
|
(set-env-wrap!385 (lambda (x2356 update2355)
|
|
(vector-set! x2356 '2 update2355)))
|
|
(anti-mark395 (lambda (w2354)
|
|
(make-wrap319
|
|
(cons '#f (wrap-marks320 w2354))
|
|
(cons 'shift (wrap-subst321 w2354)))))
|
|
(barrier-marker400 '#f)
|
|
(extend-ribcage!405 (lambda (ribcage2352 id2351 label2350)
|
|
(begin
|
|
(set-ribcage-symnames!365
|
|
ribcage2352
|
|
(cons
|
|
((lambda (e2353)
|
|
(if (annotation?132 e2353)
|
|
(annotation-expression
|
|
e2353)
|
|
e2353))
|
|
(syntax-object-expression65
|
|
id2351))
|
|
(ribcage-symnames362 ribcage2352)))
|
|
(set-ribcage-marks!366
|
|
ribcage2352
|
|
(cons
|
|
(wrap-marks320
|
|
(syntax-object-wrap66 id2351))
|
|
(ribcage-marks363 ribcage2352)))
|
|
(set-ribcage-labels!367
|
|
ribcage2352
|
|
(cons
|
|
label2350
|
|
(ribcage-labels364
|
|
ribcage2352))))))
|
|
(import-extend-ribcage!406 (lambda (ribcage2348
|
|
new-marks2347 id2346
|
|
label2345)
|
|
(begin
|
|
(set-ribcage-symnames!365
|
|
ribcage2348
|
|
(cons
|
|
((lambda (e2349)
|
|
(if (annotation?132
|
|
e2349)
|
|
(annotation-expression
|
|
e2349)
|
|
e2349))
|
|
(syntax-object-expression65
|
|
id2346))
|
|
(ribcage-symnames362
|
|
ribcage2348)))
|
|
(set-ribcage-marks!366
|
|
ribcage2348
|
|
(cons
|
|
(join-marks418
|
|
new-marks2347
|
|
(wrap-marks320
|
|
(syntax-object-wrap66
|
|
id2346)))
|
|
(ribcage-marks363
|
|
ribcage2348)))
|
|
(set-ribcage-labels!367
|
|
ribcage2348
|
|
(cons
|
|
label2345
|
|
(ribcage-labels364
|
|
ribcage2348))))))
|
|
(extend-ribcage-barrier!407 (lambda (ribcage2344
|
|
killer-id2343)
|
|
(extend-ribcage-barrier-help!408
|
|
ribcage2344
|
|
(syntax-object-wrap66
|
|
killer-id2343))))
|
|
(extend-ribcage-barrier-help!408 (lambda (ribcage2342
|
|
wrap2341)
|
|
(begin
|
|
(set-ribcage-symnames!365
|
|
ribcage2342
|
|
(cons
|
|
barrier-marker400
|
|
(ribcage-symnames362
|
|
ribcage2342)))
|
|
(set-ribcage-marks!366
|
|
ribcage2342
|
|
(cons
|
|
(wrap-marks320
|
|
wrap2341)
|
|
(ribcage-marks363
|
|
ribcage2342))))))
|
|
(extend-ribcage-subst!409 (lambda (ribcage2340
|
|
import-iface2339)
|
|
(set-ribcage-symnames!365
|
|
ribcage2340
|
|
(cons
|
|
import-iface2339
|
|
(ribcage-symnames362
|
|
ribcage2340)))))
|
|
(lookup-import-binding-name410 (lambda (sym2334 marks2333
|
|
token2332
|
|
new-marks2331)
|
|
((lambda (new2335)
|
|
(if new2335
|
|
((letrec ((f2336 (lambda (new2337)
|
|
(if (pair?
|
|
new2337)
|
|
((lambda (t2338)
|
|
(if t2338
|
|
t2338
|
|
(f2336
|
|
(cdr new2337))))
|
|
(f2336
|
|
(car new2337)))
|
|
(if (symbol?
|
|
new2337)
|
|
(if (same-marks?420
|
|
marks2333
|
|
(join-marks418
|
|
new-marks2331
|
|
(wrap-marks320
|
|
'((top)))))
|
|
new2337
|
|
'#f)
|
|
(if (same-marks?420
|
|
marks2333
|
|
(join-marks418
|
|
new-marks2331
|
|
(wrap-marks320
|
|
(syntax-object-wrap66
|
|
new2337))))
|
|
new2337
|
|
'#f))))))
|
|
f2336)
|
|
new2335)
|
|
'#f))
|
|
(get-import-binding145
|
|
sym2334
|
|
token2332))))
|
|
(store-import-binding411 (lambda (id2316 token2315
|
|
new-marks2314)
|
|
(letrec ((cons-id2317 (lambda (id2330
|
|
x2329)
|
|
(if (not x2329)
|
|
id2330
|
|
(cons
|
|
id2330
|
|
x2329))))
|
|
(weed2318 (lambda (marks2328
|
|
x2327)
|
|
(if (pair?
|
|
x2327)
|
|
(if (same-marks?420
|
|
(id-marks316
|
|
(car x2327))
|
|
marks2328)
|
|
(weed2318
|
|
marks2328
|
|
(cdr x2327))
|
|
(cons-id2317
|
|
(car x2327)
|
|
(weed2318
|
|
marks2328
|
|
(cdr x2327))))
|
|
(if x2327
|
|
(if (not (same-marks?420
|
|
(id-marks316
|
|
x2327)
|
|
marks2328))
|
|
x2327
|
|
'#f)
|
|
'#f)))))
|
|
((lambda (id2319)
|
|
((lambda (sym2320)
|
|
(if (not (eq? id2319
|
|
sym2320))
|
|
((lambda (marks2321)
|
|
((lambda (x2322)
|
|
(put-import-binding146
|
|
sym2320
|
|
token2315
|
|
(cons-id2317
|
|
(if (same-marks?420
|
|
marks2321
|
|
(wrap-marks320
|
|
'((top))))
|
|
(resolved-id-var-name415
|
|
id2319)
|
|
id2319)
|
|
x2322)))
|
|
(weed2318
|
|
marks2321
|
|
(get-import-binding145
|
|
sym2320
|
|
token2315))))
|
|
(id-marks316 id2319))
|
|
(void)))
|
|
((lambda (x2323)
|
|
((lambda (e2324)
|
|
(if (annotation?132
|
|
e2324)
|
|
(annotation-expression
|
|
e2324)
|
|
e2324))
|
|
(if (syntax-object?64
|
|
x2323)
|
|
(syntax-object-expression65
|
|
x2323)
|
|
x2323)))
|
|
id2319)))
|
|
(if (null? new-marks2314)
|
|
id2316
|
|
(make-syntax-object63
|
|
((lambda (x2325)
|
|
((lambda (e2326)
|
|
(if (annotation?132
|
|
e2326)
|
|
(annotation-expression
|
|
e2326)
|
|
e2326))
|
|
(if (syntax-object?64
|
|
x2325)
|
|
(syntax-object-expression65
|
|
x2325)
|
|
x2325)))
|
|
id2316)
|
|
(make-wrap319
|
|
(join-marks418
|
|
new-marks2314
|
|
(id-marks316 id2316))
|
|
(id-subst317
|
|
id2316))))))))
|
|
(make-binding-wrap412 (lambda (ids2304 labels2303 w2302)
|
|
(if (null? ids2304)
|
|
w2302
|
|
(make-wrap319
|
|
(wrap-marks320 w2302)
|
|
(cons
|
|
((lambda (labelvec2305)
|
|
((lambda (n2306)
|
|
((lambda (symnamevec2308
|
|
marksvec2307)
|
|
(begin
|
|
((letrec ((f2309 (lambda (ids2311
|
|
i2310)
|
|
(if (not (null?
|
|
ids2311))
|
|
(call-with-values
|
|
(lambda ()
|
|
(id-sym-name&marks318
|
|
(car ids2311)
|
|
w2302))
|
|
(lambda (symname2313
|
|
marks2312)
|
|
(begin
|
|
(vector-set!
|
|
symnamevec2308
|
|
i2310
|
|
symname2313)
|
|
(vector-set!
|
|
marksvec2307
|
|
i2310
|
|
marks2312)
|
|
(f2309
|
|
(cdr ids2311)
|
|
(+ i2310
|
|
'1)))))
|
|
(void)))))
|
|
f2309)
|
|
ids2304
|
|
'0)
|
|
(make-ribcage360
|
|
symnamevec2308
|
|
marksvec2307
|
|
labelvec2305)))
|
|
(make-vector n2306)
|
|
(make-vector n2306)))
|
|
(vector-length
|
|
labelvec2305)))
|
|
(list->vector labels2303))
|
|
(wrap-subst321 w2302))))))
|
|
(make-resolved-id413 (lambda (fromsym2301 marks2300
|
|
tosym2299)
|
|
(make-syntax-object63
|
|
fromsym2301
|
|
(make-wrap319
|
|
marks2300
|
|
(list
|
|
(make-ribcage360
|
|
(vector fromsym2301)
|
|
(vector marks2300)
|
|
(vector tosym2299)))))))
|
|
(id->resolved-id414 (lambda (id2294)
|
|
(call-with-values
|
|
(lambda ()
|
|
(id-var-name&marks427 id2294 '(())))
|
|
(lambda (tosym2296 marks2295)
|
|
(begin
|
|
(if (not tosym2296)
|
|
(syntax-error
|
|
id2294
|
|
'"identifier not visible for export")
|
|
(void))
|
|
(make-resolved-id413
|
|
((lambda (x2297)
|
|
((lambda (e2298)
|
|
(if (annotation?132 e2298)
|
|
(annotation-expression
|
|
e2298)
|
|
e2298))
|
|
(if (syntax-object?64 x2297)
|
|
(syntax-object-expression65
|
|
x2297)
|
|
x2297)))
|
|
id2294)
|
|
marks2295
|
|
tosym2296))))))
|
|
(resolved-id-var-name415 (lambda (id2293)
|
|
(vector-ref
|
|
(ribcage-labels364
|
|
(car (wrap-subst321
|
|
(syntax-object-wrap66
|
|
id2293))))
|
|
'0)))
|
|
(smart-append416 (lambda (m12292 m22291)
|
|
(if (null? m22291)
|
|
m12292
|
|
(append m12292 m22291))))
|
|
(join-wraps417 (lambda (w12288 w22287)
|
|
((lambda (m12290 s12289)
|
|
(if (null? m12290)
|
|
(if (null? s12289)
|
|
w22287
|
|
(make-wrap319
|
|
(wrap-marks320 w22287)
|
|
(join-subst419
|
|
s12289
|
|
(wrap-subst321 w22287))))
|
|
(make-wrap319
|
|
(join-marks418
|
|
m12290
|
|
(wrap-marks320 w22287))
|
|
(join-subst419
|
|
s12289
|
|
(wrap-subst321 w22287)))))
|
|
(wrap-marks320 w12288)
|
|
(wrap-subst321 w12288))))
|
|
(join-marks418 (lambda (m12286 m22285)
|
|
(smart-append416 m12286 m22285)))
|
|
(join-subst419 (lambda (s12284 s22283)
|
|
(smart-append416 s12284 s22283)))
|
|
(same-marks?420 (lambda (x2281 y2280)
|
|
((lambda (t2282)
|
|
(if t2282
|
|
t2282
|
|
(if (not (null? x2281))
|
|
(if (not (null? y2280))
|
|
(if (eq? (car x2281)
|
|
(car y2280))
|
|
(same-marks?420
|
|
(cdr x2281)
|
|
(cdr y2280))
|
|
'#f)
|
|
'#f)
|
|
'#f)))
|
|
(eq? x2281 y2280))))
|
|
(diff-marks421 (lambda (m12274 m22273)
|
|
((lambda (n12276 n22275)
|
|
((letrec ((f2277 (lambda (n12279 m12278)
|
|
(if (> n12279 n22275)
|
|
(cons
|
|
(car m12278)
|
|
(f2277
|
|
(fx- n12279 '1)
|
|
(cdr m12278)))
|
|
(if (equal?
|
|
m12278
|
|
m22273)
|
|
'()
|
|
(error 'sc-expand
|
|
'"internal error in diff-marks: ~s is not a tail of ~s"
|
|
m12278
|
|
m22273))))))
|
|
f2277)
|
|
n12276
|
|
m12274))
|
|
(length m12274)
|
|
(length m22273))))
|
|
(leave-implicit?422 (lambda (token2272)
|
|
(eq? token2272 '*top*)))
|
|
(new-binding423 (lambda (sym2269 marks2268 token2267)
|
|
((lambda (loc2270)
|
|
((lambda (id2271)
|
|
(begin
|
|
(store-import-binding411
|
|
id2271
|
|
token2267
|
|
'())
|
|
(values loc2270 id2271)))
|
|
(make-resolved-id413
|
|
sym2269
|
|
marks2268
|
|
loc2270)))
|
|
(if (if (leave-implicit?422 token2267)
|
|
(same-marks?420
|
|
marks2268
|
|
(wrap-marks320 '((top))))
|
|
'#f)
|
|
sym2269
|
|
(generate-id147 sym2269)))))
|
|
(top-id-bound-var-name424 (lambda (sym2263 marks2262
|
|
top-ribcage2261)
|
|
((lambda (token2264)
|
|
((lambda (t2265)
|
|
(if t2265
|
|
((lambda (id2266)
|
|
(if (symbol? id2266)
|
|
(if (read-only-binding?144
|
|
id2266)
|
|
(new-binding423
|
|
sym2263
|
|
marks2262
|
|
token2264)
|
|
(values
|
|
id2266
|
|
(make-resolved-id413
|
|
sym2263
|
|
marks2262
|
|
id2266)))
|
|
(values
|
|
(resolved-id-var-name415
|
|
id2266)
|
|
id2266)))
|
|
t2265)
|
|
(new-binding423
|
|
sym2263
|
|
marks2262
|
|
token2264)))
|
|
(lookup-import-binding-name410
|
|
sym2263
|
|
marks2262
|
|
token2264
|
|
'())))
|
|
(top-ribcage-key370
|
|
top-ribcage2261))))
|
|
(top-id-free-var-name425 (lambda (sym2255 marks2254
|
|
top-ribcage2253)
|
|
((lambda (token2256)
|
|
((lambda (t2257)
|
|
(if t2257
|
|
((lambda (id2258)
|
|
(if (symbol? id2258)
|
|
id2258
|
|
(resolved-id-var-name415
|
|
id2258)))
|
|
t2257)
|
|
(if (if (top-ribcage-mutable?371
|
|
top-ribcage2253)
|
|
(same-marks?420
|
|
marks2254
|
|
(wrap-marks320
|
|
'((top))))
|
|
'#f)
|
|
(call-with-values
|
|
(lambda ()
|
|
(new-binding423
|
|
sym2255
|
|
(wrap-marks320
|
|
'((top)))
|
|
token2256))
|
|
(lambda (sym2260
|
|
id2259)
|
|
sym2260))
|
|
'#f)))
|
|
(lookup-import-binding-name410
|
|
sym2255
|
|
marks2254
|
|
token2256
|
|
'())))
|
|
(top-ribcage-key370
|
|
top-ribcage2253))))
|
|
(id-var-name-loc&marks426 (lambda (id2204 w2203)
|
|
(letrec ((search2205 (lambda (sym2248
|
|
subst2247
|
|
marks2246)
|
|
(if (null?
|
|
subst2247)
|
|
(values
|
|
'#f
|
|
marks2246)
|
|
((lambda (fst2249)
|
|
(if (eq? fst2249
|
|
'shift)
|
|
(search2205
|
|
sym2248
|
|
(cdr subst2247)
|
|
(cdr marks2246))
|
|
(if (ribcage?361
|
|
fst2249)
|
|
((lambda (symnames2250)
|
|
(if (vector?
|
|
symnames2250)
|
|
(search-vector-rib2207
|
|
sym2248
|
|
subst2247
|
|
marks2246
|
|
symnames2250
|
|
fst2249)
|
|
(search-list-rib2206
|
|
sym2248
|
|
subst2247
|
|
marks2246
|
|
symnames2250
|
|
fst2249)))
|
|
(ribcage-symnames362
|
|
fst2249))
|
|
(if (top-ribcage?369
|
|
fst2249)
|
|
((lambda (t2251)
|
|
(if t2251
|
|
((lambda (var-name2252)
|
|
(values
|
|
var-name2252
|
|
marks2246))
|
|
t2251)
|
|
(search2205
|
|
sym2248
|
|
(cdr subst2247)
|
|
marks2246)))
|
|
(top-id-free-var-name425
|
|
sym2248
|
|
marks2246
|
|
fst2249))
|
|
(error 'sc-expand
|
|
'"internal error in id-var-name-loc&marks: improper subst ~s"
|
|
subst2247)))))
|
|
(car subst2247)))))
|
|
(search-list-rib2206 (lambda (sym2226
|
|
subst2225
|
|
marks2224
|
|
symnames2223
|
|
ribcage2222)
|
|
((letrec ((f2227 (lambda (symnames2229
|
|
i2228)
|
|
(if (null?
|
|
symnames2229)
|
|
(search2205
|
|
sym2226
|
|
(cdr subst2225)
|
|
marks2224)
|
|
((lambda (x2230)
|
|
(if (if (eq? x2230
|
|
sym2226)
|
|
(same-marks?420
|
|
marks2224
|
|
(list-ref
|
|
(ribcage-marks363
|
|
ribcage2222)
|
|
i2228))
|
|
'#f)
|
|
(values
|
|
(list-ref
|
|
(ribcage-labels364
|
|
ribcage2222)
|
|
i2228)
|
|
marks2224)
|
|
(if (import-interface?375
|
|
x2230)
|
|
((lambda (iface2232
|
|
new-marks2231)
|
|
((lambda (t2233)
|
|
(if t2233
|
|
((lambda (token2234)
|
|
((lambda (t2235)
|
|
(if t2235
|
|
((lambda (id2236)
|
|
(values
|
|
(if (symbol?
|
|
id2236)
|
|
id2236
|
|
(resolved-id-var-name415
|
|
id2236))
|
|
marks2224))
|
|
t2235)
|
|
(f2227
|
|
(cdr symnames2229)
|
|
i2228)))
|
|
(lookup-import-binding-name410
|
|
sym2226
|
|
marks2224
|
|
token2234
|
|
new-marks2231)))
|
|
t2233)
|
|
((lambda (ie2237)
|
|
((lambda (n2238)
|
|
((lambda ()
|
|
((letrec ((g2239 (lambda (j2240)
|
|
(if (= j2240
|
|
n2238)
|
|
(f2227
|
|
(cdr symnames2229)
|
|
i2228)
|
|
((lambda (id2241)
|
|
((lambda (id.sym2243
|
|
id.marks2242)
|
|
(if (help-bound-id=?432
|
|
id.sym2243
|
|
id.marks2242
|
|
sym2226
|
|
marks2224)
|
|
(values
|
|
(lookup-import-label501
|
|
id2241)
|
|
marks2224)
|
|
(g2239
|
|
(+ j2240
|
|
'1))))
|
|
((lambda (x2244)
|
|
((lambda (e2245)
|
|
(if (annotation?132
|
|
e2245)
|
|
(annotation-expression
|
|
e2245)
|
|
e2245))
|
|
(if (syntax-object?64
|
|
x2244)
|
|
(syntax-object-expression65
|
|
x2244)
|
|
x2244)))
|
|
id2241)
|
|
(join-marks418
|
|
new-marks2231
|
|
(id-marks316
|
|
id2241))))
|
|
(vector-ref
|
|
ie2237
|
|
j2240))))))
|
|
g2239)
|
|
'0))))
|
|
(vector-length
|
|
ie2237)))
|
|
(interface-exports449
|
|
iface2232))))
|
|
(interface-token450
|
|
iface2232)))
|
|
(import-interface-interface376
|
|
x2230)
|
|
(import-interface-new-marks377
|
|
x2230))
|
|
(if (if (eq? x2230
|
|
barrier-marker400)
|
|
(same-marks?420
|
|
marks2224
|
|
(list-ref
|
|
(ribcage-marks363
|
|
ribcage2222)
|
|
i2228))
|
|
'#f)
|
|
(values
|
|
'#f
|
|
marks2224)
|
|
(f2227
|
|
(cdr symnames2229)
|
|
(+ i2228
|
|
'1))))))
|
|
(car symnames2229))))))
|
|
f2227)
|
|
symnames2223
|
|
'0)))
|
|
(search-vector-rib2207 (lambda (sym2218
|
|
subst2217
|
|
marks2216
|
|
symnames2215
|
|
ribcage2214)
|
|
((lambda (n2219)
|
|
((letrec ((f2220 (lambda (i2221)
|
|
(if (= i2221
|
|
n2219)
|
|
(search2205
|
|
sym2218
|
|
(cdr subst2217)
|
|
marks2216)
|
|
(if (if (eq? (vector-ref
|
|
symnames2215
|
|
i2221)
|
|
sym2218)
|
|
(same-marks?420
|
|
marks2216
|
|
(vector-ref
|
|
(ribcage-marks363
|
|
ribcage2214)
|
|
i2221))
|
|
'#f)
|
|
(values
|
|
(vector-ref
|
|
(ribcage-labels364
|
|
ribcage2214)
|
|
i2221)
|
|
marks2216)
|
|
(f2220
|
|
(+ i2221
|
|
'1)))))))
|
|
f2220)
|
|
'0))
|
|
(vector-length
|
|
symnames2215)))))
|
|
(if (symbol? id2204)
|
|
(search2205
|
|
id2204
|
|
(wrap-subst321 w2203)
|
|
(wrap-marks320 w2203))
|
|
(if (syntax-object?64 id2204)
|
|
((lambda (sym2209 w12208)
|
|
(call-with-values
|
|
(lambda ()
|
|
(search2205
|
|
sym2209
|
|
(wrap-subst321
|
|
w2203)
|
|
(join-marks418
|
|
(wrap-marks320
|
|
w2203)
|
|
(wrap-marks320
|
|
w12208))))
|
|
(lambda (name2211
|
|
marks2210)
|
|
(if name2211
|
|
(values
|
|
name2211
|
|
marks2210)
|
|
(search2205
|
|
sym2209
|
|
(wrap-subst321
|
|
w12208)
|
|
marks2210)))))
|
|
((lambda (e2212)
|
|
(if (annotation?132
|
|
e2212)
|
|
(annotation-expression
|
|
e2212)
|
|
e2212))
|
|
(syntax-object-expression65
|
|
id2204))
|
|
(syntax-object-wrap66
|
|
id2204))
|
|
(if (annotation?132
|
|
id2204)
|
|
(search2205
|
|
((lambda (e2213)
|
|
(if (annotation?132
|
|
e2213)
|
|
(annotation-expression
|
|
e2213)
|
|
e2213))
|
|
id2204)
|
|
(wrap-subst321
|
|
w2203)
|
|
(wrap-marks320
|
|
w2203))
|
|
(error-hook136
|
|
'id-var-name
|
|
'"invalid id"
|
|
id2204)))))))
|
|
(id-var-name&marks427 (lambda (id2200 w2199)
|
|
(call-with-values
|
|
(lambda ()
|
|
(id-var-name-loc&marks426
|
|
id2200
|
|
w2199))
|
|
(lambda (label2202 marks2201)
|
|
(values
|
|
(if (indirect-label?351
|
|
label2202)
|
|
(get-indirect-label355
|
|
label2202)
|
|
label2202)
|
|
marks2201)))))
|
|
(id-var-name-loc428 (lambda (id2196 w2195)
|
|
(call-with-values
|
|
(lambda ()
|
|
(id-var-name-loc&marks426
|
|
id2196
|
|
w2195))
|
|
(lambda (label2198 marks2197)
|
|
label2198))))
|
|
(id-var-name429 (lambda (id2192 w2191)
|
|
(call-with-values
|
|
(lambda ()
|
|
(id-var-name-loc&marks426 id2192 w2191))
|
|
(lambda (label2194 marks2193)
|
|
(if (indirect-label?351 label2194)
|
|
(get-indirect-label355 label2194)
|
|
label2194)))))
|
|
(free-id=?430 (lambda (i2186 j2185)
|
|
(if (eq? ((lambda (x2189)
|
|
((lambda (e2190)
|
|
(if (annotation?132 e2190)
|
|
(annotation-expression
|
|
e2190)
|
|
e2190))
|
|
(if (syntax-object?64 x2189)
|
|
(syntax-object-expression65
|
|
x2189)
|
|
x2189)))
|
|
i2186)
|
|
((lambda (x2187)
|
|
((lambda (e2188)
|
|
(if (annotation?132 e2188)
|
|
(annotation-expression
|
|
e2188)
|
|
e2188))
|
|
(if (syntax-object?64 x2187)
|
|
(syntax-object-expression65
|
|
x2187)
|
|
x2187)))
|
|
j2185))
|
|
(eq? (id-var-name429 i2186 '(()))
|
|
(id-var-name429 j2185 '(())))
|
|
'#f)))
|
|
(literal-id=?431 (lambda (id2175 literal2174)
|
|
(if (eq? ((lambda (x2178)
|
|
((lambda (e2179)
|
|
(if (annotation?132 e2179)
|
|
(annotation-expression
|
|
e2179)
|
|
e2179))
|
|
(if (syntax-object?64 x2178)
|
|
(syntax-object-expression65
|
|
x2178)
|
|
x2178)))
|
|
id2175)
|
|
((lambda (x2176)
|
|
((lambda (e2177)
|
|
(if (annotation?132 e2177)
|
|
(annotation-expression
|
|
e2177)
|
|
e2177))
|
|
(if (syntax-object?64 x2176)
|
|
(syntax-object-expression65
|
|
x2176)
|
|
x2176)))
|
|
literal2174))
|
|
((lambda (n-id2181 n-literal2180)
|
|
((lambda (t2182)
|
|
(if t2182
|
|
t2182
|
|
(if ((lambda (t2183)
|
|
(if t2183
|
|
t2183
|
|
(symbol?
|
|
n-id2181)))
|
|
(not n-id2181))
|
|
((lambda (t2184)
|
|
(if t2184
|
|
t2184
|
|
(symbol?
|
|
n-literal2180)))
|
|
(not n-literal2180))
|
|
'#f)))
|
|
(eq? n-id2181 n-literal2180)))
|
|
(id-var-name429 id2175 '(()))
|
|
(id-var-name429 literal2174 '(())))
|
|
'#f)))
|
|
(help-bound-id=?432 (lambda (i.sym2173 i.marks2172 j.sym2171
|
|
j.marks2170)
|
|
(if (eq? i.sym2173 j.sym2171)
|
|
(same-marks?420
|
|
i.marks2172
|
|
j.marks2170)
|
|
'#f)))
|
|
(bound-id=?433 (lambda (i2165 j2164)
|
|
(help-bound-id=?432
|
|
((lambda (x2168)
|
|
((lambda (e2169)
|
|
(if (annotation?132 e2169)
|
|
(annotation-expression e2169)
|
|
e2169))
|
|
(if (syntax-object?64 x2168)
|
|
(syntax-object-expression65 x2168)
|
|
x2168)))
|
|
i2165)
|
|
(id-marks316 i2165)
|
|
((lambda (x2166)
|
|
((lambda (e2167)
|
|
(if (annotation?132 e2167)
|
|
(annotation-expression e2167)
|
|
e2167))
|
|
(if (syntax-object?64 x2166)
|
|
(syntax-object-expression65 x2166)
|
|
x2166)))
|
|
j2164)
|
|
(id-marks316 j2164))))
|
|
(valid-bound-ids?434 (lambda (ids2160)
|
|
(if ((letrec ((all-ids?2161 (lambda (ids2162)
|
|
((lambda (t2163)
|
|
(if t2163
|
|
t2163
|
|
(if (id?310
|
|
(car ids2162))
|
|
(all-ids?2161
|
|
(cdr ids2162))
|
|
'#f)))
|
|
(null?
|
|
ids2162)))))
|
|
all-ids?2161)
|
|
ids2160)
|
|
(distinct-bound-ids?435 ids2160)
|
|
'#f)))
|
|
(distinct-bound-ids?435 (lambda (ids2156)
|
|
((letrec ((distinct?2157 (lambda (ids2158)
|
|
((lambda (t2159)
|
|
(if t2159
|
|
t2159
|
|
(if (not (bound-id-member?437
|
|
(car ids2158)
|
|
(cdr ids2158)))
|
|
(distinct?2157
|
|
(cdr ids2158))
|
|
'#f)))
|
|
(null?
|
|
ids2158)))))
|
|
distinct?2157)
|
|
ids2156)))
|
|
(invalid-ids-error436 (lambda (ids2152 exp2151 class2150)
|
|
((letrec ((find2153 (lambda (ids2155
|
|
gooduns2154)
|
|
(if (null?
|
|
ids2155)
|
|
(syntax-error
|
|
exp2151)
|
|
(if (id?310
|
|
(car ids2155))
|
|
(if (bound-id-member?437
|
|
(car ids2155)
|
|
gooduns2154)
|
|
(syntax-error
|
|
(car ids2155)
|
|
'"duplicate "
|
|
class2150)
|
|
(find2153
|
|
(cdr ids2155)
|
|
(cons
|
|
(car ids2155)
|
|
gooduns2154)))
|
|
(syntax-error
|
|
(car ids2155)
|
|
'"invalid "
|
|
class2150))))))
|
|
find2153)
|
|
ids2152
|
|
'())))
|
|
(bound-id-member?437 (lambda (x2148 list2147)
|
|
(if (not (null? list2147))
|
|
((lambda (t2149)
|
|
(if t2149
|
|
t2149
|
|
(bound-id-member?437
|
|
x2148
|
|
(cdr list2147))))
|
|
(bound-id=?433
|
|
x2148
|
|
(car list2147)))
|
|
'#f)))
|
|
(wrap438 (lambda (x2146 w2145)
|
|
(if (if (null? (wrap-marks320 w2145))
|
|
(null? (wrap-subst321 w2145))
|
|
'#f)
|
|
x2146
|
|
(if (syntax-object?64 x2146)
|
|
(make-syntax-object63
|
|
(syntax-object-expression65 x2146)
|
|
(join-wraps417
|
|
w2145
|
|
(syntax-object-wrap66 x2146)))
|
|
(if (null? x2146)
|
|
x2146
|
|
(make-syntax-object63 x2146 w2145))))))
|
|
(source-wrap439 (lambda (x2144 w2143 ae2142)
|
|
(wrap438
|
|
(if (annotation?132 ae2142)
|
|
(begin
|
|
(if (not (eq? (annotation-expression
|
|
ae2142)
|
|
x2144))
|
|
(error 'sc-expand
|
|
'"internal error in source-wrap: ae/x mismatch")
|
|
(void))
|
|
ae2142)
|
|
x2144)
|
|
w2143)))
|
|
(chi-when-list440 (lambda (when-list2140 w2139)
|
|
(map (lambda (x2141)
|
|
(if (literal-id=?431
|
|
x2141
|
|
'#(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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=?431
|
|
x2141
|
|
'#(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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=?431
|
|
x2141
|
|
'#(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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=?431
|
|
x2141
|
|
'#(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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=?431
|
|
x2141
|
|
'#(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
(wrap438
|
|
x2141
|
|
w2139)
|
|
'"invalid eval-when situation")))))))
|
|
when-list2140)))
|
|
(syntax-type441 (lambda (e2124 r2123 w2122 ae2121 rib2120)
|
|
(if (symbol? e2124)
|
|
((lambda (n2125)
|
|
((lambda (b2126)
|
|
((lambda (type2127)
|
|
((lambda ()
|
|
((lambda (t2128)
|
|
(if (memv
|
|
t2128
|
|
'(macro macro!))
|
|
(syntax-type441
|
|
(chi-macro497
|
|
(binding-value286
|
|
b2126)
|
|
e2124 r2123 w2122
|
|
ae2121 rib2120)
|
|
r2123 '(()) '#f
|
|
rib2120)
|
|
(values type2127
|
|
(binding-value286
|
|
b2126)
|
|
e2124 w2122
|
|
ae2121)))
|
|
type2127))))
|
|
(binding-type285 b2126)))
|
|
(lookup305 n2125 r2123)))
|
|
(id-var-name429 e2124 w2122))
|
|
(if (pair? e2124)
|
|
((lambda (first2129)
|
|
(if (id?310 first2129)
|
|
((lambda (n2130)
|
|
((lambda (b2131)
|
|
((lambda (type2132)
|
|
((lambda ()
|
|
((lambda (t2133)
|
|
(if (memv
|
|
t2133
|
|
'(lexical))
|
|
(values
|
|
'lexical-call
|
|
(binding-value286
|
|
b2131)
|
|
e2124
|
|
w2122
|
|
ae2121)
|
|
(if (memv
|
|
t2133
|
|
'(macro
|
|
macro!))
|
|
(syntax-type441
|
|
(chi-macro497
|
|
(binding-value286
|
|
b2131)
|
|
e2124
|
|
r2123
|
|
w2122
|
|
ae2121
|
|
rib2120)
|
|
r2123
|
|
'(())
|
|
'#f
|
|
rib2120)
|
|
(if (memv
|
|
t2133
|
|
'(core))
|
|
(values
|
|
type2132
|
|
(binding-value286
|
|
b2131)
|
|
e2124
|
|
w2122
|
|
ae2121)
|
|
(if (memv
|
|
t2133
|
|
'(begin))
|
|
(values
|
|
'begin-form
|
|
'#f
|
|
e2124
|
|
w2122
|
|
ae2121)
|
|
(if (memv
|
|
t2133
|
|
'(alias))
|
|
(values
|
|
'alias-form
|
|
'#f
|
|
e2124
|
|
w2122
|
|
ae2121)
|
|
(if (memv
|
|
t2133
|
|
'(define))
|
|
(values
|
|
'define-form
|
|
'#f
|
|
e2124
|
|
w2122
|
|
ae2121)
|
|
(if (memv
|
|
t2133
|
|
'(define-syntax))
|
|
(values
|
|
'define-syntax-form
|
|
'#f
|
|
e2124
|
|
w2122
|
|
ae2121)
|
|
(if (memv
|
|
t2133
|
|
'(set!))
|
|
(chi-set!496
|
|
e2124
|
|
r2123
|
|
w2122
|
|
ae2121
|
|
rib2120)
|
|
(if (memv
|
|
t2133
|
|
'($module-key))
|
|
(values
|
|
'$module-form
|
|
'#f
|
|
e2124
|
|
w2122
|
|
ae2121)
|
|
(if (memv
|
|
t2133
|
|
'($import))
|
|
(values
|
|
'$import-form
|
|
'#f
|
|
e2124
|
|
w2122
|
|
ae2121)
|
|
(if (memv
|
|
t2133
|
|
'(eval-when))
|
|
(values
|
|
'eval-when-form
|
|
'#f
|
|
e2124
|
|
w2122
|
|
ae2121)
|
|
(if (memv
|
|
t2133
|
|
'(meta))
|
|
(values
|
|
'meta-form
|
|
'#f
|
|
e2124
|
|
w2122
|
|
ae2121)
|
|
(if (memv
|
|
t2133
|
|
'(local-syntax))
|
|
(values
|
|
'local-syntax-form
|
|
(binding-value286
|
|
b2131)
|
|
e2124
|
|
w2122
|
|
ae2121)
|
|
(values
|
|
'call
|
|
'#f
|
|
e2124
|
|
w2122
|
|
ae2121)))))))))))))))
|
|
type2132))))
|
|
(binding-type285
|
|
b2131)))
|
|
(lookup305 n2130 r2123)))
|
|
(id-var-name429
|
|
first2129
|
|
w2122))
|
|
(values 'call '#f e2124 w2122
|
|
ae2121)))
|
|
(car e2124))
|
|
(if (syntax-object?64 e2124)
|
|
(syntax-type441
|
|
(syntax-object-expression65
|
|
e2124)
|
|
r2123
|
|
(join-wraps417
|
|
w2122
|
|
(syntax-object-wrap66 e2124))
|
|
'#f rib2120)
|
|
(if (annotation?132 e2124)
|
|
(syntax-type441
|
|
(annotation-expression
|
|
e2124)
|
|
r2123 w2122 e2124 rib2120)
|
|
(if ((lambda (x2134)
|
|
((lambda (t2135)
|
|
(if t2135
|
|
t2135
|
|
((lambda (t2136)
|
|
(if t2136
|
|
t2136
|
|
((lambda (t2137)
|
|
(if t2137
|
|
t2137
|
|
((lambda (t2138)
|
|
(if t2138
|
|
t2138
|
|
(null?
|
|
x2134)))
|
|
(char?
|
|
x2134))))
|
|
(string?
|
|
x2134))))
|
|
(number?
|
|
x2134))))
|
|
(boolean? x2134)))
|
|
e2124)
|
|
(values 'constant '#f
|
|
e2124 w2122 ae2121)
|
|
(values 'other '#f e2124
|
|
w2122 ae2121))))))))
|
|
(chi-top*442 (lambda (e2115 r2114 w2113 ctem2112 rtem2111
|
|
meta?2110 top-ribcage2109)
|
|
((lambda (meta-residuals2116)
|
|
(letrec ((meta-residualize!2117 (lambda (x2119)
|
|
(set! meta-residuals2116
|
|
(cons
|
|
x2119
|
|
meta-residuals2116)))))
|
|
((lambda (e2118)
|
|
(build-sequence239
|
|
'#f
|
|
(reverse
|
|
(cons e2118 meta-residuals2116))))
|
|
(chi-top444 e2115 r2114 w2113 ctem2112
|
|
rtem2111 meta?2110 top-ribcage2109
|
|
meta-residualize!2117 '#f))))
|
|
'())))
|
|
(chi-top-sequence443 (lambda (body2105 r2104 w2103 ae2102
|
|
ctem2101 rtem2100 meta?2099
|
|
ribcage2098
|
|
meta-residualize!2097)
|
|
(build-sequence239
|
|
ae2102
|
|
((letrec ((dobody2106 (lambda (body2107)
|
|
(if (null?
|
|
body2107)
|
|
'()
|
|
((lambda (first2108)
|
|
(cons
|
|
first2108
|
|
(dobody2106
|
|
(cdr body2107))))
|
|
(chi-top444
|
|
(car body2107)
|
|
r2104
|
|
w2103
|
|
ctem2101
|
|
rtem2100
|
|
meta?2099
|
|
ribcage2098
|
|
meta-residualize!2097
|
|
'#f))))))
|
|
dobody2106)
|
|
body2105))))
|
|
(chi-top444 (lambda (e2042 r2041 w2040 ctem2039 rtem2038
|
|
meta?2037 top-ribcage2036
|
|
meta-residualize!2035 meta-seen?2034)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntax-type441 e2042 r2041 w2040 '#f
|
|
top-ribcage2036))
|
|
(lambda (type2047 value2046 e2045 w2044 ae2043)
|
|
((lambda (t2048)
|
|
(if (memv t2048 '(begin-form))
|
|
((lambda (forms2049)
|
|
(if (null? forms2049)
|
|
(chi-void513)
|
|
(chi-top-sequence443 forms2049
|
|
r2041 w2044 ae2043 ctem2039
|
|
rtem2038 meta?2037
|
|
top-ribcage2036
|
|
meta-residualize!2035)))
|
|
(parse-begin510
|
|
e2045
|
|
w2044
|
|
ae2043
|
|
'#t))
|
|
(if (memv t2048 '(local-syntax-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(chi-local-syntax512 value2046
|
|
e2045 r2041 r2041 w2044
|
|
ae2043))
|
|
(lambda (forms2054 r2053 mr2052
|
|
w2051 ae2050)
|
|
(chi-top-sequence443 forms2054
|
|
r2053 w2051 ae2050 ctem2039
|
|
rtem2038 meta?2037
|
|
top-ribcage2036
|
|
meta-residualize!2035)))
|
|
(if (memv t2048 '(eval-when-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-eval-when508
|
|
e2045
|
|
w2044
|
|
ae2043))
|
|
(lambda (when-list2056
|
|
forms2055)
|
|
((lambda (ctem2058
|
|
rtem2057)
|
|
(if (if (null?
|
|
ctem2058)
|
|
(null?
|
|
rtem2057)
|
|
'#f)
|
|
(chi-void513)
|
|
(chi-top-sequence443
|
|
forms2055 r2041
|
|
w2044 ae2043
|
|
ctem2058 rtem2057
|
|
meta?2037
|
|
top-ribcage2036
|
|
meta-residualize!2035)))
|
|
(update-mode-set485
|
|
when-list2056
|
|
ctem2039)
|
|
(update-mode-set485
|
|
when-list2056
|
|
rtem2038))))
|
|
(if (memv t2048 '(meta-form))
|
|
(chi-top444
|
|
(parse-meta507
|
|
e2045
|
|
w2044
|
|
ae2043)
|
|
r2041 w2044 ctem2039
|
|
rtem2038 '#t
|
|
top-ribcage2036
|
|
meta-residualize!2035
|
|
'#t)
|
|
(if (memv
|
|
t2048
|
|
'(define-syntax-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-define-syntax506
|
|
e2045
|
|
w2044
|
|
ae2043))
|
|
(lambda (id2061
|
|
rhs2060
|
|
w2059)
|
|
((lambda (id2062)
|
|
(begin
|
|
(if (displaced-lexical?302
|
|
id2062
|
|
r2041)
|
|
(displaced-lexical-error303
|
|
id2062)
|
|
(void))
|
|
(if (not (top-ribcage-mutable?371
|
|
top-ribcage2036))
|
|
(syntax-error
|
|
(source-wrap439
|
|
e2045
|
|
w2059
|
|
ae2043)
|
|
'"invalid definition in read-only environment")
|
|
(void))
|
|
((lambda (sym2063)
|
|
(call-with-values
|
|
(lambda ()
|
|
(top-id-bound-var-name424
|
|
sym2063
|
|
(wrap-marks320
|
|
(syntax-object-wrap66
|
|
id2062))
|
|
top-ribcage2036))
|
|
(lambda (valsym2065
|
|
bound-id2064)
|
|
(begin
|
|
(if (not (eq? (id-var-name429
|
|
id2062
|
|
'(()))
|
|
valsym2065))
|
|
(syntax-error
|
|
(source-wrap439
|
|
e2045
|
|
w2059
|
|
ae2043)
|
|
'"definition not permitted")
|
|
(void))
|
|
(if (read-only-binding?144
|
|
valsym2065)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e2045
|
|
w2059
|
|
ae2043)
|
|
'"invalid definition of read-only identifier")
|
|
(void))
|
|
(ct-eval/residualize2488
|
|
ctem2039
|
|
(lambda ()
|
|
(list
|
|
'$sc-put-cte
|
|
(list
|
|
'quote
|
|
bound-id2064)
|
|
(chi493
|
|
rhs2060
|
|
r2041
|
|
r2041
|
|
w2059
|
|
'#t)
|
|
(list
|
|
'quote
|
|
(top-ribcage-key370
|
|
top-ribcage2036)))))))))
|
|
((lambda (x2066)
|
|
((lambda (e2067)
|
|
(if (annotation?132
|
|
e2067)
|
|
(annotation-expression
|
|
e2067)
|
|
e2067))
|
|
(if (syntax-object?64
|
|
x2066)
|
|
(syntax-object-expression65
|
|
x2066)
|
|
x2066)))
|
|
id2062))))
|
|
(wrap438
|
|
id2061
|
|
w2059))))
|
|
(if (memv
|
|
t2048
|
|
'(define-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-define505
|
|
e2045
|
|
w2044
|
|
ae2043))
|
|
(lambda (id2070
|
|
rhs2069
|
|
w2068)
|
|
((lambda (id2071)
|
|
(begin
|
|
(if (displaced-lexical?302
|
|
id2071
|
|
r2041)
|
|
(displaced-lexical-error303
|
|
id2071)
|
|
(void))
|
|
(if (not (top-ribcage-mutable?371
|
|
top-ribcage2036))
|
|
(syntax-error
|
|
(source-wrap439
|
|
e2045
|
|
w2068
|
|
ae2043)
|
|
'"invalid definition in read-only environment")
|
|
(void))
|
|
((lambda (sym2072)
|
|
(call-with-values
|
|
(lambda ()
|
|
(top-id-bound-var-name424
|
|
sym2072
|
|
(wrap-marks320
|
|
(syntax-object-wrap66
|
|
id2071))
|
|
top-ribcage2036))
|
|
(lambda (valsym2074
|
|
bound-id2073)
|
|
(begin
|
|
(if (not (eq? (id-var-name429
|
|
id2071
|
|
'(()))
|
|
valsym2074))
|
|
(syntax-error
|
|
(source-wrap439
|
|
e2045
|
|
w2068
|
|
ae2043)
|
|
'"definition not permitted")
|
|
(void))
|
|
(if (read-only-binding?144
|
|
valsym2074)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e2045
|
|
w2068
|
|
ae2043)
|
|
'"invalid definition of read-only identifier")
|
|
(void))
|
|
(if meta?2037
|
|
(ct-eval/residualize2488
|
|
ctem2039
|
|
(lambda ()
|
|
(build-sequence239
|
|
'#f
|
|
(list
|
|
(list
|
|
'$sc-put-cte
|
|
(list
|
|
'quote
|
|
bound-id2073)
|
|
(list
|
|
'quote
|
|
(cons
|
|
'meta-variable
|
|
valsym2074))
|
|
(list
|
|
'quote
|
|
(top-ribcage-key370
|
|
top-ribcage2036)))
|
|
(list
|
|
'define
|
|
valsym2074
|
|
(chi493
|
|
rhs2069
|
|
r2041
|
|
r2041
|
|
w2068
|
|
'#t))))))
|
|
((lambda (x2075)
|
|
(build-sequence239
|
|
'#f
|
|
(list
|
|
x2075
|
|
(rt-eval/residualize487
|
|
rtem2038
|
|
(lambda ()
|
|
(list
|
|
'define
|
|
valsym2074
|
|
(chi493
|
|
rhs2069
|
|
r2041
|
|
r2041
|
|
w2068
|
|
'#f)))))))
|
|
(ct-eval/residualize2488
|
|
ctem2039
|
|
(lambda ()
|
|
(list
|
|
'$sc-put-cte
|
|
(list
|
|
'quote
|
|
bound-id2073)
|
|
(list
|
|
'quote
|
|
(cons
|
|
'global
|
|
valsym2074))
|
|
(list
|
|
'quote
|
|
(top-ribcage-key370
|
|
top-ribcage2036)))))))))))
|
|
((lambda (x2076)
|
|
((lambda (e2077)
|
|
(if (annotation?132
|
|
e2077)
|
|
(annotation-expression
|
|
e2077)
|
|
e2077))
|
|
(if (syntax-object?64
|
|
x2076)
|
|
(syntax-object-expression65
|
|
x2076)
|
|
x2076)))
|
|
id2071))))
|
|
(wrap438
|
|
id2070
|
|
w2068))))
|
|
(if (memv
|
|
t2048
|
|
'($module-form))
|
|
((lambda (ribcage2078)
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-module503
|
|
e2045
|
|
w2044
|
|
ae2043
|
|
(make-wrap319
|
|
(wrap-marks320
|
|
w2044)
|
|
(cons
|
|
ribcage2078
|
|
(wrap-subst321
|
|
w2044)))))
|
|
(lambda (orig2082
|
|
id2081
|
|
exports2080
|
|
forms2079)
|
|
(begin
|
|
(if (displaced-lexical?302
|
|
id2081
|
|
r2041)
|
|
(displaced-lexical-error303
|
|
(wrap438
|
|
id2081
|
|
w2044))
|
|
(void))
|
|
(if (not (top-ribcage-mutable?371
|
|
top-ribcage2036))
|
|
(syntax-error
|
|
orig2082
|
|
'"invalid definition in read-only environment")
|
|
(void))
|
|
(chi-top-module477
|
|
orig2082
|
|
r2041
|
|
r2041
|
|
top-ribcage2036
|
|
ribcage2078
|
|
ctem2039
|
|
rtem2038
|
|
meta?2037
|
|
id2081
|
|
exports2080
|
|
forms2079
|
|
meta-residualize!2035)))))
|
|
(make-ribcage360
|
|
'()
|
|
'()
|
|
'()))
|
|
(if (memv
|
|
t2048
|
|
'($import-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-import504
|
|
e2045
|
|
w2044
|
|
ae2043))
|
|
(lambda (orig2085
|
|
only?2084
|
|
mid2083)
|
|
(begin
|
|
(if (not (top-ribcage-mutable?371
|
|
top-ribcage2036))
|
|
(syntax-error
|
|
orig2085
|
|
'"invalid definition in read-only environment")
|
|
(void))
|
|
(ct-eval/residualize2488
|
|
ctem2039
|
|
(lambda ()
|
|
((lambda (binding2086)
|
|
((lambda (t2087)
|
|
(if (memv
|
|
t2087
|
|
'($module))
|
|
(do-top-import484
|
|
only?2084
|
|
top-ribcage2036
|
|
mid2083
|
|
(interface-token450
|
|
(binding-value286
|
|
binding2086)))
|
|
(if (memv
|
|
t2087
|
|
'(displaced-lexical))
|
|
(displaced-lexical-error303
|
|
mid2083)
|
|
(syntax-error
|
|
mid2083
|
|
'"unknown module"))))
|
|
(binding-type285
|
|
binding2086)))
|
|
(lookup305
|
|
(id-var-name429
|
|
mid2083
|
|
'(()))
|
|
'())))))))
|
|
(if (memv
|
|
t2048
|
|
'(alias-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-alias509
|
|
e2045
|
|
w2044
|
|
ae2043))
|
|
(lambda (new-id2089
|
|
old-id2088)
|
|
((lambda (new-id2090)
|
|
(begin
|
|
(if (displaced-lexical?302
|
|
new-id2090
|
|
r2041)
|
|
(displaced-lexical-error303
|
|
new-id2090)
|
|
(void))
|
|
(if (not (top-ribcage-mutable?371
|
|
top-ribcage2036))
|
|
(syntax-error
|
|
(source-wrap439
|
|
e2045
|
|
w2044
|
|
ae2043)
|
|
'"invalid definition in read-only environment")
|
|
(void))
|
|
((lambda (sym2091)
|
|
(call-with-values
|
|
(lambda ()
|
|
(top-id-bound-var-name424
|
|
sym2091
|
|
(wrap-marks320
|
|
(syntax-object-wrap66
|
|
new-id2090))
|
|
top-ribcage2036))
|
|
(lambda (valsym2093
|
|
bound-id2092)
|
|
(begin
|
|
(if (not (eq? (id-var-name429
|
|
new-id2090
|
|
'(()))
|
|
valsym2093))
|
|
(syntax-error
|
|
(source-wrap439
|
|
e2045
|
|
w2044
|
|
ae2043)
|
|
'"definition not permitted")
|
|
(void))
|
|
(if (read-only-binding?144
|
|
valsym2093)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e2045
|
|
w2044
|
|
ae2043)
|
|
'"invalid definition of read-only identifier")
|
|
(void))
|
|
(ct-eval/residualize2488
|
|
ctem2039
|
|
(lambda ()
|
|
(list
|
|
'$sc-put-cte
|
|
(list
|
|
'quote
|
|
(make-resolved-id413
|
|
sym2091
|
|
(wrap-marks320
|
|
(syntax-object-wrap66
|
|
new-id2090))
|
|
(id-var-name429
|
|
old-id2088
|
|
w2044)))
|
|
(list
|
|
'quote
|
|
'(do-alias
|
|
.
|
|
#f))
|
|
(list
|
|
'quote
|
|
(top-ribcage-key370
|
|
top-ribcage2036)))))))))
|
|
((lambda (x2094)
|
|
((lambda (e2095)
|
|
(if (annotation?132
|
|
e2095)
|
|
(annotation-expression
|
|
e2095)
|
|
e2095))
|
|
(if (syntax-object?64
|
|
x2094)
|
|
(syntax-object-expression65
|
|
x2094)
|
|
x2094)))
|
|
new-id2090))))
|
|
(wrap438
|
|
new-id2089
|
|
w2044))))
|
|
(begin
|
|
(if meta-seen?2034
|
|
(syntax-error
|
|
(source-wrap439
|
|
e2045
|
|
w2044
|
|
ae2043)
|
|
'"invalid meta definition")
|
|
(void))
|
|
(if meta?2037
|
|
((lambda (x2096)
|
|
(begin
|
|
(top-level-eval-hook133
|
|
x2096)
|
|
(ct-eval/residualize3489
|
|
ctem2039
|
|
void
|
|
(lambda ()
|
|
x2096))))
|
|
(chi-expr494
|
|
type2047
|
|
value2046
|
|
e2045
|
|
r2041
|
|
r2041
|
|
w2044
|
|
ae2043
|
|
'#t))
|
|
(rt-eval/residualize487
|
|
rtem2038
|
|
(lambda ()
|
|
(chi-expr494
|
|
type2047
|
|
value2046
|
|
e2045
|
|
r2041
|
|
r2041
|
|
w2044
|
|
ae2043
|
|
'#f)))))))))))))))
|
|
type2047)))))
|
|
(flatten-exports445 (lambda (exports2030)
|
|
((letrec ((loop2031 (lambda (exports2033
|
|
ls2032)
|
|
(if (null?
|
|
exports2033)
|
|
ls2032
|
|
(loop2031
|
|
(cdr exports2033)
|
|
(if (pair?
|
|
(car exports2033))
|
|
(loop2031
|
|
(car exports2033)
|
|
ls2032)
|
|
(cons
|
|
(car exports2033)
|
|
ls2032)))))))
|
|
loop2031)
|
|
exports2030
|
|
'())))
|
|
(make-interface446 (lambda (marks2029 exports2028 token2027)
|
|
(vector
|
|
'interface
|
|
marks2029
|
|
exports2028
|
|
token2027)))
|
|
(interface?447 (lambda (x2026)
|
|
(if (vector? x2026)
|
|
(if (= (vector-length x2026) '4)
|
|
(eq? (vector-ref x2026 '0) 'interface)
|
|
'#f)
|
|
'#f)))
|
|
(interface-marks448 (lambda (x2025) (vector-ref x2025 '1)))
|
|
(interface-exports449 (lambda (x2024)
|
|
(vector-ref x2024 '2)))
|
|
(interface-token450 (lambda (x2023) (vector-ref x2023 '3)))
|
|
(set-interface-marks!451 (lambda (x2022 update2021)
|
|
(vector-set! x2022 '1 update2021)))
|
|
(set-interface-exports!452 (lambda (x2020 update2019)
|
|
(vector-set!
|
|
x2020
|
|
'2
|
|
update2019)))
|
|
(set-interface-token!453 (lambda (x2018 update2017)
|
|
(vector-set! x2018 '3 update2017)))
|
|
(make-unresolved-interface454 (lambda (mid2015 exports2014)
|
|
(make-interface446
|
|
(wrap-marks320
|
|
(syntax-object-wrap66
|
|
mid2015))
|
|
(list->vector
|
|
(map (lambda (x2016)
|
|
(if (pair? x2016)
|
|
(car x2016)
|
|
x2016))
|
|
exports2014))
|
|
'#f)))
|
|
(make-resolved-interface455 (lambda (mid2012 exports2011
|
|
token2010)
|
|
(make-interface446
|
|
(wrap-marks320
|
|
(syntax-object-wrap66
|
|
mid2012))
|
|
(list->vector
|
|
(map (lambda (x2013)
|
|
(id->resolved-id414
|
|
(if (pair? x2013)
|
|
(car x2013)
|
|
x2013)))
|
|
exports2011))
|
|
token2010)))
|
|
(make-module-binding456 (lambda (type2009 id2008 label2007
|
|
imps2006 val2005 exported2004)
|
|
(vector 'module-binding type2009
|
|
id2008 label2007 imps2006 val2005
|
|
exported2004)))
|
|
(module-binding?457 (lambda (x2003)
|
|
(if (vector? x2003)
|
|
(if (= (vector-length x2003) '7)
|
|
(eq? (vector-ref x2003 '0)
|
|
'module-binding)
|
|
'#f)
|
|
'#f)))
|
|
(module-binding-type458 (lambda (x2002)
|
|
(vector-ref x2002 '1)))
|
|
(module-binding-id459 (lambda (x2001)
|
|
(vector-ref x2001 '2)))
|
|
(module-binding-label460 (lambda (x2000)
|
|
(vector-ref x2000 '3)))
|
|
(module-binding-imps461 (lambda (x1999)
|
|
(vector-ref x1999 '4)))
|
|
(module-binding-val462 (lambda (x1998)
|
|
(vector-ref x1998 '5)))
|
|
(module-binding-exported463 (lambda (x1997)
|
|
(vector-ref x1997 '6)))
|
|
(set-module-binding-type!464 (lambda (x1996 update1995)
|
|
(vector-set!
|
|
x1996
|
|
'1
|
|
update1995)))
|
|
(set-module-binding-id!465 (lambda (x1994 update1993)
|
|
(vector-set!
|
|
x1994
|
|
'2
|
|
update1993)))
|
|
(set-module-binding-label!466 (lambda (x1992 update1991)
|
|
(vector-set!
|
|
x1992
|
|
'3
|
|
update1991)))
|
|
(set-module-binding-imps!467 (lambda (x1990 update1989)
|
|
(vector-set!
|
|
x1990
|
|
'4
|
|
update1989)))
|
|
(set-module-binding-val!468 (lambda (x1988 update1987)
|
|
(vector-set!
|
|
x1988
|
|
'5
|
|
update1987)))
|
|
(set-module-binding-exported!469 (lambda (x1986 update1985)
|
|
(vector-set!
|
|
x1986
|
|
'6
|
|
update1985)))
|
|
(create-module-binding470 (lambda (type1984 id1983 label1982
|
|
imps1981 val1980)
|
|
(make-module-binding456 type1984
|
|
id1983 label1982 imps1981 val1980
|
|
'#f)))
|
|
(make-frob471 (lambda (e1979 meta?1978)
|
|
(vector 'frob e1979 meta?1978)))
|
|
(frob?472 (lambda (x1977)
|
|
(if (vector? x1977)
|
|
(if (= (vector-length x1977) '3)
|
|
(eq? (vector-ref x1977 '0) 'frob)
|
|
'#f)
|
|
'#f)))
|
|
(frob-e473 (lambda (x1976) (vector-ref x1976 '1)))
|
|
(frob-meta?474 (lambda (x1975) (vector-ref x1975 '2)))
|
|
(set-frob-e!475 (lambda (x1974 update1973)
|
|
(vector-set! x1974 '1 update1973)))
|
|
(set-frob-meta?!476 (lambda (x1972 update1971)
|
|
(vector-set! x1972 '2 update1971)))
|
|
(chi-top-module477 (lambda (orig1912 r1911 mr1910
|
|
top-ribcage1909 ribcage1908
|
|
ctem1907 rtem1906 meta?1905 id1904
|
|
exports1903 forms1902
|
|
meta-residualize!1901)
|
|
((lambda (fexports1913)
|
|
(call-with-values
|
|
(lambda ()
|
|
(chi-external481 ribcage1908
|
|
orig1912
|
|
(map (lambda (d1970)
|
|
(make-frob471
|
|
d1970
|
|
meta?1905))
|
|
forms1902)
|
|
r1911 mr1910 ctem1907 exports1903
|
|
fexports1913
|
|
meta-residualize!1901))
|
|
(lambda (r1917 mr1916 bindings1915
|
|
inits1914)
|
|
((letrec ((process-exports1918 (lambda (fexports1920
|
|
ctdefs1919)
|
|
(if (null?
|
|
fexports1920)
|
|
((letrec ((process-locals1921 (lambda (bs1926
|
|
r1925
|
|
dts1924
|
|
dvs1923
|
|
des1922)
|
|
(if (null?
|
|
bs1926)
|
|
((lambda (des1928
|
|
inits1927)
|
|
(build-sequence239
|
|
'#f
|
|
(append
|
|
(ctdefs1919)
|
|
(list
|
|
(ct-eval/residualize2488
|
|
ctem1907
|
|
(lambda ()
|
|
((lambda (sym1929)
|
|
((lambda (token1930)
|
|
((lambda (b1931)
|
|
((lambda ()
|
|
(call-with-values
|
|
(lambda ()
|
|
(top-id-bound-var-name424
|
|
sym1929
|
|
(wrap-marks320
|
|
(syntax-object-wrap66
|
|
id1904))
|
|
top-ribcage1909))
|
|
(lambda (valsym1933
|
|
bound-id1932)
|
|
(begin
|
|
(if (not (eq? (id-var-name429
|
|
id1904
|
|
'(()))
|
|
valsym1933))
|
|
(syntax-error
|
|
orig1912
|
|
'"definition not permitted")
|
|
(void))
|
|
(if (read-only-binding?144
|
|
valsym1933)
|
|
(syntax-error
|
|
orig1912
|
|
'"invalid definition of read-only identifier")
|
|
(void))
|
|
(list
|
|
'$sc-put-cte
|
|
(list
|
|
'quote
|
|
bound-id1932)
|
|
b1931
|
|
(list
|
|
'quote
|
|
(top-ribcage-key370
|
|
top-ribcage1909)))))))))
|
|
(list
|
|
'quote
|
|
(cons
|
|
'$module
|
|
(make-resolved-interface455
|
|
id1904
|
|
exports1903
|
|
token1930)))))
|
|
(generate-id147
|
|
sym1929)))
|
|
((lambda (x1934)
|
|
((lambda (e1935)
|
|
(if (annotation?132
|
|
e1935)
|
|
(annotation-expression
|
|
e1935)
|
|
e1935))
|
|
(if (syntax-object?64
|
|
x1934)
|
|
(syntax-object-expression65
|
|
x1934)
|
|
x1934)))
|
|
id1904))))
|
|
(rt-eval/residualize487
|
|
rtem1906
|
|
(lambda ()
|
|
(build-top-module242
|
|
'#f
|
|
dts1924
|
|
dvs1923
|
|
des1928
|
|
(if (null?
|
|
inits1927)
|
|
(chi-void513)
|
|
(build-sequence239
|
|
'#f
|
|
(append
|
|
inits1927
|
|
(list
|
|
(chi-void513))))))))))))
|
|
(chi-frobs490
|
|
des1922
|
|
r1925
|
|
mr1916
|
|
'#f)
|
|
(chi-frobs490
|
|
inits1914
|
|
r1925
|
|
mr1916
|
|
'#f))
|
|
((lambda (b1937
|
|
bs1936)
|
|
((lambda (t1938)
|
|
((lambda (t1939)
|
|
(if (memv
|
|
t1939
|
|
'(define-form))
|
|
((lambda (label1940)
|
|
(if (module-binding-exported463
|
|
b1937)
|
|
((lambda (var1941)
|
|
(process-locals1921
|
|
bs1936
|
|
r1925
|
|
(cons
|
|
'global
|
|
dts1924)
|
|
(cons
|
|
label1940
|
|
dvs1923)
|
|
(cons
|
|
(module-binding-val462
|
|
b1937)
|
|
des1922)))
|
|
(module-binding-id459
|
|
b1937))
|
|
((lambda (var1942)
|
|
(process-locals1921
|
|
bs1936
|
|
(extend-env299
|
|
label1940
|
|
(cons
|
|
'lexical
|
|
var1942)
|
|
r1925)
|
|
(cons
|
|
'local
|
|
dts1924)
|
|
(cons
|
|
var1942
|
|
dvs1923)
|
|
(cons
|
|
(module-binding-val462
|
|
b1937)
|
|
des1922)))
|
|
(gen-var518
|
|
(module-binding-id459
|
|
b1937)))))
|
|
(get-indirect-label355
|
|
(module-binding-label460
|
|
b1937)))
|
|
(if (memv
|
|
t1939
|
|
'(ctdefine-form
|
|
define-syntax-form
|
|
$module-form
|
|
alias-form))
|
|
(process-locals1921
|
|
bs1936
|
|
r1925
|
|
dts1924
|
|
dvs1923
|
|
des1922)
|
|
(error 'sc-expand-internal
|
|
'"unexpected module binding type ~s"
|
|
t1938))))
|
|
(module-binding-type458
|
|
b1937)))
|
|
(module-binding-type458
|
|
b1937)))
|
|
(car bs1926)
|
|
(cdr bs1926))))))
|
|
process-locals1921)
|
|
bindings1915
|
|
r1917
|
|
'()
|
|
'()
|
|
'())
|
|
((lambda (id1944
|
|
fexports1943)
|
|
((letrec ((loop1945 (lambda (bs1946)
|
|
(if (null?
|
|
bs1946)
|
|
(process-exports1918
|
|
fexports1943
|
|
ctdefs1919)
|
|
((lambda (b1948
|
|
bs1947)
|
|
(if (free-id=?430
|
|
(module-binding-id459
|
|
b1948)
|
|
id1944)
|
|
(if (module-binding-exported463
|
|
b1948)
|
|
(process-exports1918
|
|
fexports1943
|
|
ctdefs1919)
|
|
((lambda (t1949)
|
|
((lambda (label1950)
|
|
((lambda (imps1951)
|
|
((lambda (fexports1952)
|
|
((lambda ()
|
|
(begin
|
|
(set-module-binding-exported!469
|
|
b1948
|
|
'#t)
|
|
((lambda (t1953)
|
|
(if (memv
|
|
t1953
|
|
'(define-form))
|
|
((lambda (sym1954)
|
|
(begin
|
|
(set-indirect-label!356
|
|
label1950
|
|
sym1954)
|
|
(process-exports1918
|
|
fexports1952
|
|
ctdefs1919)))
|
|
(generate-id147
|
|
((lambda (x1955)
|
|
((lambda (e1956)
|
|
(if (annotation?132
|
|
e1956)
|
|
(annotation-expression
|
|
e1956)
|
|
e1956))
|
|
(if (syntax-object?64
|
|
x1955)
|
|
(syntax-object-expression65
|
|
x1955)
|
|
x1955)))
|
|
id1944)))
|
|
(if (memv
|
|
t1953
|
|
'(ctdefine-form))
|
|
((lambda (b1957)
|
|
(process-exports1918
|
|
fexports1952
|
|
(lambda ()
|
|
((lambda (sym1958)
|
|
(begin
|
|
(set-indirect-label!356
|
|
label1950
|
|
sym1958)
|
|
(cons
|
|
(ct-eval/residualize3489
|
|
ctem1907
|
|
(lambda ()
|
|
(put-cte-hook141
|
|
sym1958
|
|
b1957))
|
|
(lambda ()
|
|
(list
|
|
'$sc-put-cte
|
|
(list
|
|
'quote
|
|
sym1958)
|
|
(list
|
|
'quote
|
|
b1957)
|
|
(list
|
|
'quote
|
|
'#f))))
|
|
(ctdefs1919))))
|
|
(binding-value286
|
|
b1957)))))
|
|
(module-binding-val462
|
|
b1948))
|
|
(if (memv
|
|
t1953
|
|
'(define-syntax-form))
|
|
((lambda (sym1959)
|
|
(process-exports1918
|
|
fexports1952
|
|
(lambda ()
|
|
((lambda (local-label1960)
|
|
(begin
|
|
(set-indirect-label!356
|
|
label1950
|
|
sym1959)
|
|
(cons
|
|
(ct-eval/residualize3489
|
|
ctem1907
|
|
(lambda ()
|
|
(put-cte-hook141
|
|
sym1959
|
|
(car (module-binding-val462
|
|
b1948))))
|
|
(lambda ()
|
|
(list
|
|
'$sc-put-cte
|
|
(list
|
|
'quote
|
|
sym1959)
|
|
(cdr (module-binding-val462
|
|
b1948))
|
|
(list
|
|
'quote
|
|
'#f))))
|
|
(ctdefs1919))))
|
|
(get-indirect-label355
|
|
label1950)))))
|
|
(generate-id147
|
|
((lambda (x1961)
|
|
((lambda (e1962)
|
|
(if (annotation?132
|
|
e1962)
|
|
(annotation-expression
|
|
e1962)
|
|
e1962))
|
|
(if (syntax-object?64
|
|
x1961)
|
|
(syntax-object-expression65
|
|
x1961)
|
|
x1961)))
|
|
id1944)))
|
|
(if (memv
|
|
t1953
|
|
'($module-form))
|
|
((lambda (sym1964
|
|
exports1963)
|
|
(process-exports1918
|
|
(append
|
|
(flatten-exports445
|
|
exports1963)
|
|
fexports1952)
|
|
(lambda ()
|
|
(begin
|
|
(set-indirect-label!356
|
|
label1950
|
|
sym1964)
|
|
((lambda (rest1965)
|
|
((lambda (x1966)
|
|
(cons
|
|
(ct-eval/residualize3489
|
|
ctem1907
|
|
(lambda ()
|
|
(put-cte-hook141
|
|
sym1964
|
|
x1966))
|
|
(lambda ()
|
|
(list
|
|
'$sc-put-cte
|
|
(list
|
|
'quote
|
|
sym1964)
|
|
(list
|
|
'quote
|
|
x1966)
|
|
(list
|
|
'quote
|
|
'#f))))
|
|
rest1965))
|
|
(cons
|
|
'$module
|
|
(make-resolved-interface455
|
|
id1944
|
|
exports1963
|
|
sym1964))))
|
|
(ctdefs1919))))))
|
|
(generate-id147
|
|
((lambda (x1967)
|
|
((lambda (e1968)
|
|
(if (annotation?132
|
|
e1968)
|
|
(annotation-expression
|
|
e1968)
|
|
e1968))
|
|
(if (syntax-object?64
|
|
x1967)
|
|
(syntax-object-expression65
|
|
x1967)
|
|
x1967)))
|
|
id1944))
|
|
(module-binding-val462
|
|
b1948))
|
|
(if (memv
|
|
t1953
|
|
'(alias-form))
|
|
(process-exports1918
|
|
fexports1952
|
|
(lambda ()
|
|
((lambda (rest1969)
|
|
(begin
|
|
(if (indirect-label?351
|
|
label1950)
|
|
(if (not (symbol?
|
|
(get-indirect-label355
|
|
label1950)))
|
|
(syntax-error
|
|
(module-binding-id459
|
|
b1948)
|
|
'"unexported target of alias")
|
|
(void))
|
|
(void))
|
|
rest1969))
|
|
(ctdefs1919))))
|
|
(error 'sc-expand-internal
|
|
'"unexpected module binding type ~s"
|
|
t1949)))))))
|
|
t1949)))))
|
|
(append
|
|
imps1951
|
|
fexports1943)))
|
|
(module-binding-imps461
|
|
b1948)))
|
|
(module-binding-label460
|
|
b1948)))
|
|
(module-binding-type458
|
|
b1948)))
|
|
(loop1945
|
|
bs1947)))
|
|
(car bs1946)
|
|
(cdr bs1946))))))
|
|
loop1945)
|
|
bindings1915))
|
|
(car fexports1920)
|
|
(cdr fexports1920))))))
|
|
process-exports1918)
|
|
fexports1913
|
|
(lambda () '())))))
|
|
(flatten-exports445 exports1903))))
|
|
(id-set-diff478 (lambda (exports1900 defs1899)
|
|
(if (null? exports1900)
|
|
'()
|
|
(if (bound-id-member?437
|
|
(car exports1900)
|
|
defs1899)
|
|
(id-set-diff478
|
|
(cdr exports1900)
|
|
defs1899)
|
|
(cons
|
|
(car exports1900)
|
|
(id-set-diff478
|
|
(cdr exports1900)
|
|
defs1899))))))
|
|
(check-module-exports479 (lambda (source-exp1874
|
|
fexports1873 ids1872)
|
|
(letrec ((defined?1875 (lambda (e1882
|
|
ids1881)
|
|
(ormap
|
|
(lambda (x1883)
|
|
(if (import-interface?375
|
|
x1883)
|
|
((lambda (x.iface1885
|
|
x.new-marks1884)
|
|
((lambda (t1886)
|
|
(if t1886
|
|
((lambda (token1887)
|
|
(lookup-import-binding-name410
|
|
((lambda (x1888)
|
|
((lambda (e1889)
|
|
(if (annotation?132
|
|
e1889)
|
|
(annotation-expression
|
|
e1889)
|
|
e1889))
|
|
(if (syntax-object?64
|
|
x1888)
|
|
(syntax-object-expression65
|
|
x1888)
|
|
x1888)))
|
|
e1882)
|
|
(id-marks316
|
|
e1882)
|
|
token1887
|
|
x.new-marks1884))
|
|
t1886)
|
|
((lambda (v1890)
|
|
((letrec ((lp1891 (lambda (i1892)
|
|
(if (>= i1892
|
|
'0)
|
|
((lambda (t1893)
|
|
(if t1893
|
|
t1893
|
|
(lp1891
|
|
(fx- i1892
|
|
'1))))
|
|
((lambda (id1894)
|
|
(help-bound-id=?432
|
|
((lambda (x1897)
|
|
((lambda (e1898)
|
|
(if (annotation?132
|
|
e1898)
|
|
(annotation-expression
|
|
e1898)
|
|
e1898))
|
|
(if (syntax-object?64
|
|
x1897)
|
|
(syntax-object-expression65
|
|
x1897)
|
|
x1897)))
|
|
id1894)
|
|
(join-marks418
|
|
x.new-marks1884
|
|
(id-marks316
|
|
id1894))
|
|
((lambda (x1895)
|
|
((lambda (e1896)
|
|
(if (annotation?132
|
|
e1896)
|
|
(annotation-expression
|
|
e1896)
|
|
e1896))
|
|
(if (syntax-object?64
|
|
x1895)
|
|
(syntax-object-expression65
|
|
x1895)
|
|
x1895)))
|
|
e1882)
|
|
(id-marks316
|
|
e1882)))
|
|
(vector-ref
|
|
v1890
|
|
i1892)))
|
|
'#f))))
|
|
lp1891)
|
|
(fx- (vector-length
|
|
v1890)
|
|
'1)))
|
|
(interface-exports449
|
|
x.iface1885))))
|
|
(interface-token450
|
|
x.iface1885)))
|
|
(import-interface-interface376
|
|
x1883)
|
|
(import-interface-new-marks377
|
|
x1883))
|
|
(bound-id=?433
|
|
e1882
|
|
x1883)))
|
|
ids1881))))
|
|
((letrec ((loop1876 (lambda (fexports1878
|
|
missing1877)
|
|
(if (null?
|
|
fexports1878)
|
|
(if (not (null?
|
|
missing1877))
|
|
(syntax-error
|
|
(car missing1877)
|
|
(if (= (length
|
|
missing1877)
|
|
'1)
|
|
'"missing definition for export"
|
|
'"missing definition for multiple exports, including"))
|
|
(void))
|
|
((lambda (e1880
|
|
fexports1879)
|
|
(if (defined?1875
|
|
e1880
|
|
ids1872)
|
|
(loop1876
|
|
fexports1879
|
|
missing1877)
|
|
(loop1876
|
|
fexports1879
|
|
(cons
|
|
e1880
|
|
missing1877))))
|
|
(car fexports1878)
|
|
(cdr fexports1878))))))
|
|
loop1876)
|
|
fexports1873
|
|
'()))))
|
|
(check-defined-ids480 (lambda (source-exp1821 ls1820)
|
|
(letrec ((vfold1822 (lambda (v1867
|
|
p1866
|
|
cls1865)
|
|
((lambda (len1868)
|
|
((letrec ((lp1869 (lambda (i1871
|
|
cls1870)
|
|
(if (= i1871
|
|
len1868)
|
|
cls1870
|
|
(lp1869
|
|
(+ i1871
|
|
'1)
|
|
(p1866
|
|
(vector-ref
|
|
v1867
|
|
i1871)
|
|
cls1870))))))
|
|
lp1869)
|
|
'0
|
|
cls1865))
|
|
(vector-length
|
|
v1867))))
|
|
(conflicts1823 (lambda (x1852
|
|
y1851
|
|
cls1850)
|
|
(if (import-interface?375
|
|
x1852)
|
|
((lambda (x.iface1854
|
|
x.new-marks1853)
|
|
(if (import-interface?375
|
|
y1851)
|
|
((lambda (y.iface1856
|
|
y.new-marks1855)
|
|
((lambda (xe1858
|
|
ye1857)
|
|
(if (> (vector-length
|
|
xe1858)
|
|
(vector-length
|
|
ye1857))
|
|
(vfold1822
|
|
ye1857
|
|
(lambda (id1860
|
|
cls1859)
|
|
(id-iface-conflicts1824
|
|
id1860
|
|
y.new-marks1855
|
|
x.iface1854
|
|
x.new-marks1853
|
|
cls1859))
|
|
cls1850)
|
|
(vfold1822
|
|
xe1858
|
|
(lambda (id1862
|
|
cls1861)
|
|
(id-iface-conflicts1824
|
|
id1862
|
|
x.new-marks1853
|
|
y.iface1856
|
|
y.new-marks1855
|
|
cls1861))
|
|
cls1850)))
|
|
(interface-exports449
|
|
x.iface1854)
|
|
(interface-exports449
|
|
y.iface1856)))
|
|
(import-interface-interface376
|
|
y1851)
|
|
(import-interface-new-marks377
|
|
y1851))
|
|
(id-iface-conflicts1824
|
|
y1851
|
|
'()
|
|
x.iface1854
|
|
x.new-marks1853
|
|
cls1850)))
|
|
(import-interface-interface376
|
|
x1852)
|
|
(import-interface-new-marks377
|
|
x1852))
|
|
(if (import-interface?375
|
|
y1851)
|
|
((lambda (y.iface1864
|
|
y.new-marks1863)
|
|
(id-iface-conflicts1824
|
|
x1852
|
|
'()
|
|
y.iface1864
|
|
y.new-marks1863
|
|
cls1850))
|
|
(import-interface-interface376
|
|
y1851)
|
|
(import-interface-new-marks377
|
|
y1851))
|
|
(if (bound-id=?433
|
|
x1852
|
|
y1851)
|
|
(cons
|
|
x1852
|
|
cls1850)
|
|
cls1850)))))
|
|
(id-iface-conflicts1824 (lambda (id1837
|
|
id.new-marks1836
|
|
iface1835
|
|
iface.new-marks1834
|
|
cls1833)
|
|
((lambda (id.sym1839
|
|
id.marks1838)
|
|
((lambda (t1840)
|
|
(if t1840
|
|
((lambda (token1841)
|
|
(if (lookup-import-binding-name410
|
|
id.sym1839
|
|
id.marks1838
|
|
token1841
|
|
iface.new-marks1834)
|
|
(cons
|
|
id1837
|
|
cls1833)
|
|
cls1833))
|
|
t1840)
|
|
(vfold1822
|
|
(interface-exports449
|
|
iface1835)
|
|
(lambda (*id1843
|
|
cls1842)
|
|
((lambda (*id.sym1845
|
|
*id.marks1844)
|
|
(if (help-bound-id=?432
|
|
*id.sym1845
|
|
*id.marks1844
|
|
id.sym1839
|
|
id.marks1838)
|
|
(cons
|
|
*id1843
|
|
cls1842)
|
|
cls1842))
|
|
((lambda (x1846)
|
|
((lambda (e1847)
|
|
(if (annotation?132
|
|
e1847)
|
|
(annotation-expression
|
|
e1847)
|
|
e1847))
|
|
(if (syntax-object?64
|
|
x1846)
|
|
(syntax-object-expression65
|
|
x1846)
|
|
x1846)))
|
|
*id1843)
|
|
(join-marks418
|
|
iface.new-marks1834
|
|
(id-marks316
|
|
*id1843))))
|
|
cls1833)))
|
|
(interface-token450
|
|
iface1835)))
|
|
((lambda (x1848)
|
|
((lambda (e1849)
|
|
(if (annotation?132
|
|
e1849)
|
|
(annotation-expression
|
|
e1849)
|
|
e1849))
|
|
(if (syntax-object?64
|
|
x1848)
|
|
(syntax-object-expression65
|
|
x1848)
|
|
x1848)))
|
|
id1837)
|
|
(join-marks418
|
|
id.new-marks1836
|
|
(id-marks316
|
|
id1837))))))
|
|
(if (not (null? ls1820))
|
|
((letrec ((lp1825 (lambda (x1828
|
|
ls1827
|
|
cls1826)
|
|
(if (null?
|
|
ls1827)
|
|
(if (not (null?
|
|
cls1826))
|
|
((lambda (cls1829)
|
|
(syntax-error
|
|
source-exp1821
|
|
'"duplicate definition for "
|
|
(symbol->string
|
|
(car cls1829))
|
|
'" in"))
|
|
(syntax-object->datum
|
|
cls1826))
|
|
(void))
|
|
((letrec ((lp21830 (lambda (ls21832
|
|
cls1831)
|
|
(if (null?
|
|
ls21832)
|
|
(lp1825
|
|
(car ls1827)
|
|
(cdr ls1827)
|
|
cls1831)
|
|
(lp21830
|
|
(cdr ls21832)
|
|
(conflicts1823
|
|
x1828
|
|
(car ls21832)
|
|
cls1831))))))
|
|
lp21830)
|
|
ls1827
|
|
cls1826)))))
|
|
lp1825)
|
|
(car ls1820)
|
|
(cdr ls1820)
|
|
'())
|
|
(void)))))
|
|
(chi-external481 (lambda (ribcage1713 source-exp1712
|
|
body1711 r1710 mr1709 ctem1708
|
|
exports1707 fexports1706
|
|
meta-residualize!1705)
|
|
(letrec ((return1714 (lambda (r1819 mr1818
|
|
bindings1817
|
|
ids1816
|
|
inits1815)
|
|
(begin
|
|
(check-defined-ids480
|
|
source-exp1712
|
|
ids1816)
|
|
(check-module-exports479
|
|
source-exp1712
|
|
fexports1706
|
|
ids1816)
|
|
(values
|
|
r1819
|
|
mr1818
|
|
bindings1817
|
|
inits1815))))
|
|
(get-implicit-exports1715 (lambda (id1812)
|
|
((letrec ((f1813 (lambda (exports1814)
|
|
(if (null?
|
|
exports1814)
|
|
'()
|
|
(if (if (pair?
|
|
(car exports1814))
|
|
(bound-id=?433
|
|
id1812
|
|
(caar
|
|
exports1814))
|
|
'#f)
|
|
(flatten-exports445
|
|
(cdar
|
|
exports1814))
|
|
(f1813
|
|
(cdr exports1814)))))))
|
|
f1813)
|
|
exports1707)))
|
|
(update-imp-exports1716 (lambda (bindings1807
|
|
exports1806)
|
|
((lambda (exports1808)
|
|
(map (lambda (b1809)
|
|
((lambda (id1810)
|
|
(if (not (bound-id-member?437
|
|
id1810
|
|
exports1808))
|
|
b1809
|
|
(create-module-binding470
|
|
(module-binding-type458
|
|
b1809)
|
|
id1810
|
|
(module-binding-label460
|
|
b1809)
|
|
(append
|
|
(get-implicit-exports1715
|
|
id1810)
|
|
(module-binding-imps461
|
|
b1809))
|
|
(module-binding-val462
|
|
b1809))))
|
|
(module-binding-id459
|
|
b1809)))
|
|
bindings1807))
|
|
(map (lambda (x1811)
|
|
(if (pair?
|
|
x1811)
|
|
(car x1811)
|
|
x1811))
|
|
exports1806)))))
|
|
((letrec ((parse1717 (lambda (body1724
|
|
r1723 mr1722
|
|
ids1721
|
|
bindings1720
|
|
inits1719
|
|
meta-seen?1718)
|
|
(if (null?
|
|
body1724)
|
|
(return1714
|
|
r1723 mr1722
|
|
bindings1720
|
|
ids1721
|
|
inits1719)
|
|
((lambda (fr1725)
|
|
((lambda (e1726)
|
|
((lambda (meta?1727)
|
|
((lambda ()
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntax-type441
|
|
e1726
|
|
r1723
|
|
'(())
|
|
'#f
|
|
ribcage1713))
|
|
(lambda (type1732
|
|
value1731
|
|
e1730
|
|
w1729
|
|
ae1728)
|
|
((lambda (t1733)
|
|
(if (memv
|
|
t1733
|
|
'(define-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-define505
|
|
e1730
|
|
w1729
|
|
ae1728))
|
|
(lambda (id1736
|
|
rhs1735
|
|
w1734)
|
|
((lambda (id1737)
|
|
((lambda (label1738)
|
|
((lambda (sym1739)
|
|
((lambda (imps1740)
|
|
((lambda ()
|
|
(begin
|
|
(extend-ribcage!405
|
|
ribcage1713
|
|
id1737
|
|
label1738)
|
|
(if meta?1727
|
|
((lambda (sym1741)
|
|
((lambda (b1742)
|
|
((lambda ()
|
|
((lambda (mr1743)
|
|
((lambda (exp1744)
|
|
(begin
|
|
(define-top-level-value-hook135
|
|
sym1741
|
|
(top-level-eval-hook133
|
|
exp1744))
|
|
(meta-residualize!1705
|
|
(ct-eval/residualize3489
|
|
ctem1708
|
|
void
|
|
(lambda ()
|
|
(list
|
|
'define
|
|
sym1741
|
|
exp1744))))
|
|
(parse1717
|
|
(cdr body1724)
|
|
r1723
|
|
mr1743
|
|
(cons
|
|
id1737
|
|
ids1721)
|
|
(cons
|
|
(create-module-binding470
|
|
'ctdefine-form
|
|
id1737
|
|
label1738
|
|
imps1740
|
|
b1742)
|
|
bindings1720)
|
|
inits1719
|
|
'#f)))
|
|
(chi493
|
|
rhs1735
|
|
mr1743
|
|
mr1743
|
|
w1734
|
|
'#t)))
|
|
(extend-env299
|
|
(get-indirect-label355
|
|
label1738)
|
|
b1742
|
|
mr1722)))))
|
|
(cons
|
|
'meta-variable
|
|
sym1741)))
|
|
(generate-id147
|
|
((lambda (x1745)
|
|
((lambda (e1746)
|
|
(if (annotation?132
|
|
e1746)
|
|
(annotation-expression
|
|
e1746)
|
|
e1746))
|
|
(if (syntax-object?64
|
|
x1745)
|
|
(syntax-object-expression65
|
|
x1745)
|
|
x1745)))
|
|
id1737)))
|
|
(parse1717
|
|
(cdr body1724)
|
|
r1723
|
|
mr1722
|
|
(cons
|
|
id1737
|
|
ids1721)
|
|
(cons
|
|
(create-module-binding470
|
|
type1732
|
|
id1737
|
|
label1738
|
|
imps1740
|
|
(make-frob471
|
|
(wrap438
|
|
rhs1735
|
|
w1734)
|
|
meta?1727))
|
|
bindings1720)
|
|
inits1719
|
|
'#f))))))
|
|
(get-implicit-exports1715
|
|
id1737)))
|
|
(generate-id147
|
|
((lambda (x1747)
|
|
((lambda (e1748)
|
|
(if (annotation?132
|
|
e1748)
|
|
(annotation-expression
|
|
e1748)
|
|
e1748))
|
|
(if (syntax-object?64
|
|
x1747)
|
|
(syntax-object-expression65
|
|
x1747)
|
|
x1747)))
|
|
id1737))))
|
|
(gen-indirect-label354)))
|
|
(wrap438
|
|
id1736
|
|
w1734))))
|
|
(if (memv
|
|
t1733
|
|
'(define-syntax-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-define-syntax506
|
|
e1730
|
|
w1729
|
|
ae1728))
|
|
(lambda (id1751
|
|
rhs1750
|
|
w1749)
|
|
((lambda (id1752)
|
|
((lambda (label1753)
|
|
((lambda (imps1754)
|
|
((lambda (exp1755)
|
|
((lambda ()
|
|
(begin
|
|
(extend-ribcage!405
|
|
ribcage1713
|
|
id1752
|
|
label1753)
|
|
((lambda (l1757
|
|
b1756)
|
|
(parse1717
|
|
(cdr body1724)
|
|
(extend-env299
|
|
l1757
|
|
b1756
|
|
r1723)
|
|
(extend-env299
|
|
l1757
|
|
b1756
|
|
mr1722)
|
|
(cons
|
|
id1752
|
|
ids1721)
|
|
(cons
|
|
(create-module-binding470
|
|
type1732
|
|
id1752
|
|
label1753
|
|
imps1754
|
|
(cons
|
|
b1756
|
|
exp1755))
|
|
bindings1720)
|
|
inits1719
|
|
'#f))
|
|
(get-indirect-label355
|
|
label1753)
|
|
(defer-or-eval-transformer307
|
|
top-level-eval-hook133
|
|
exp1755))))))
|
|
(chi493
|
|
rhs1750
|
|
mr1722
|
|
mr1722
|
|
w1749
|
|
'#t)))
|
|
(get-implicit-exports1715
|
|
id1752)))
|
|
(gen-indirect-label354)))
|
|
(wrap438
|
|
id1751
|
|
w1749))))
|
|
(if (memv
|
|
t1733
|
|
'($module-form))
|
|
((lambda (*ribcage1758)
|
|
((lambda (*w1759)
|
|
((lambda ()
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-module503
|
|
e1730
|
|
w1729
|
|
ae1728
|
|
*w1759))
|
|
(lambda (orig1763
|
|
id1762
|
|
*exports1761
|
|
forms1760)
|
|
(call-with-values
|
|
(lambda ()
|
|
(chi-external481
|
|
*ribcage1758
|
|
orig1763
|
|
(map (lambda (d1775)
|
|
(make-frob471
|
|
d1775
|
|
meta?1727))
|
|
forms1760)
|
|
r1723
|
|
mr1722
|
|
ctem1708
|
|
*exports1761
|
|
(flatten-exports445
|
|
*exports1761)
|
|
meta-residualize!1705))
|
|
(lambda (r1767
|
|
mr1766
|
|
*bindings1765
|
|
*inits1764)
|
|
((lambda (iface1772
|
|
bindings1771
|
|
inits1770
|
|
label1769
|
|
imps1768)
|
|
(begin
|
|
(extend-ribcage!405
|
|
ribcage1713
|
|
id1762
|
|
label1769)
|
|
((lambda (l1774
|
|
b1773)
|
|
(parse1717
|
|
(cdr body1724)
|
|
(extend-env299
|
|
l1774
|
|
b1773
|
|
r1767)
|
|
(extend-env299
|
|
l1774
|
|
b1773
|
|
mr1766)
|
|
(cons
|
|
id1762
|
|
ids1721)
|
|
(cons
|
|
(create-module-binding470
|
|
type1732
|
|
id1762
|
|
label1769
|
|
imps1768
|
|
*exports1761)
|
|
bindings1771)
|
|
inits1770
|
|
'#f))
|
|
(get-indirect-label355
|
|
label1769)
|
|
(cons
|
|
'$module
|
|
iface1772))))
|
|
(make-unresolved-interface454
|
|
id1762
|
|
*exports1761)
|
|
(append
|
|
*bindings1765
|
|
bindings1720)
|
|
(append
|
|
inits1719
|
|
*inits1764)
|
|
(gen-indirect-label354)
|
|
(get-implicit-exports1715
|
|
id1762)))))))))
|
|
(make-wrap319
|
|
(wrap-marks320
|
|
w1729)
|
|
(cons
|
|
*ribcage1758
|
|
(wrap-subst321
|
|
w1729)))))
|
|
(make-ribcage360
|
|
'()
|
|
'()
|
|
'()))
|
|
(if (memv
|
|
t1733
|
|
'($import-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-import504
|
|
e1730
|
|
w1729
|
|
ae1728))
|
|
(lambda (orig1778
|
|
only?1777
|
|
mid1776)
|
|
((lambda (mlabel1779)
|
|
((lambda (binding1780)
|
|
((lambda (t1781)
|
|
(if (memv
|
|
t1781
|
|
'($module))
|
|
((lambda (iface1782)
|
|
((lambda (import-iface1783)
|
|
((lambda ()
|
|
(begin
|
|
(if only?1777
|
|
(extend-ribcage-barrier!407
|
|
ribcage1713
|
|
mid1776)
|
|
(void))
|
|
(do-import!502
|
|
import-iface1783
|
|
ribcage1713)
|
|
(parse1717
|
|
(cdr body1724)
|
|
r1723
|
|
mr1722
|
|
(cons
|
|
import-iface1783
|
|
ids1721)
|
|
(update-imp-exports1716
|
|
bindings1720
|
|
(vector->list
|
|
(interface-exports449
|
|
iface1782)))
|
|
inits1719
|
|
'#f)))))
|
|
(make-import-interface374
|
|
iface1782
|
|
(import-mark-delta500
|
|
mid1776
|
|
iface1782))))
|
|
(binding-value286
|
|
binding1780))
|
|
(if (memv
|
|
t1781
|
|
'(displaced-lexical))
|
|
(displaced-lexical-error303
|
|
mid1776)
|
|
(syntax-error
|
|
mid1776
|
|
'"unknown module"))))
|
|
(binding-type285
|
|
binding1780)))
|
|
(lookup305
|
|
mlabel1779
|
|
r1723)))
|
|
(id-var-name429
|
|
mid1776
|
|
'(())))))
|
|
(if (memv
|
|
t1733
|
|
'(alias-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-alias509
|
|
e1730
|
|
w1729
|
|
ae1728))
|
|
(lambda (new-id1785
|
|
old-id1784)
|
|
((lambda (new-id1786)
|
|
((lambda (label1787)
|
|
((lambda (imps1788)
|
|
((lambda ()
|
|
(begin
|
|
(extend-ribcage!405
|
|
ribcage1713
|
|
new-id1786
|
|
label1787)
|
|
(parse1717
|
|
(cdr body1724)
|
|
r1723
|
|
mr1722
|
|
(cons
|
|
new-id1786
|
|
ids1721)
|
|
(cons
|
|
(create-module-binding470
|
|
type1732
|
|
new-id1786
|
|
label1787
|
|
imps1788
|
|
'#f)
|
|
bindings1720)
|
|
inits1719
|
|
'#f)))))
|
|
(get-implicit-exports1715
|
|
new-id1786)))
|
|
(id-var-name-loc428
|
|
old-id1784
|
|
w1729)))
|
|
(wrap438
|
|
new-id1785
|
|
w1729))))
|
|
(if (memv
|
|
t1733
|
|
'(begin-form))
|
|
(parse1717
|
|
((letrec ((f1789 (lambda (forms1790)
|
|
(if (null?
|
|
forms1790)
|
|
(cdr body1724)
|
|
(cons
|
|
(make-frob471
|
|
(wrap438
|
|
(car forms1790)
|
|
w1729)
|
|
meta?1727)
|
|
(f1789
|
|
(cdr forms1790)))))))
|
|
f1789)
|
|
(parse-begin510
|
|
e1730
|
|
w1729
|
|
ae1728
|
|
'#t))
|
|
r1723
|
|
mr1722
|
|
ids1721
|
|
bindings1720
|
|
inits1719
|
|
'#f)
|
|
(if (memv
|
|
t1733
|
|
'(eval-when-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-eval-when508
|
|
e1730
|
|
w1729
|
|
ae1728))
|
|
(lambda (when-list1792
|
|
forms1791)
|
|
(parse1717
|
|
(if (memq
|
|
'eval
|
|
when-list1792)
|
|
((letrec ((f1793 (lambda (forms1794)
|
|
(if (null?
|
|
forms1794)
|
|
(cdr body1724)
|
|
(cons
|
|
(make-frob471
|
|
(wrap438
|
|
(car forms1794)
|
|
w1729)
|
|
meta?1727)
|
|
(f1793
|
|
(cdr forms1794)))))))
|
|
f1793)
|
|
forms1791)
|
|
(cdr body1724))
|
|
r1723
|
|
mr1722
|
|
ids1721
|
|
bindings1720
|
|
inits1719
|
|
'#f)))
|
|
(if (memv
|
|
t1733
|
|
'(meta-form))
|
|
(parse1717
|
|
(cons
|
|
(make-frob471
|
|
(wrap438
|
|
(parse-meta507
|
|
e1730
|
|
w1729
|
|
ae1728)
|
|
w1729)
|
|
'#t)
|
|
(cdr body1724))
|
|
r1723
|
|
mr1722
|
|
ids1721
|
|
bindings1720
|
|
inits1719
|
|
'#t)
|
|
(if (memv
|
|
t1733
|
|
'(local-syntax-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(chi-local-syntax512
|
|
value1731
|
|
e1730
|
|
r1723
|
|
mr1722
|
|
w1729
|
|
ae1728))
|
|
(lambda (forms1799
|
|
r1798
|
|
mr1797
|
|
w1796
|
|
ae1795)
|
|
(parse1717
|
|
((letrec ((f1800 (lambda (forms1801)
|
|
(if (null?
|
|
forms1801)
|
|
(cdr body1724)
|
|
(cons
|
|
(make-frob471
|
|
(wrap438
|
|
(car forms1801)
|
|
w1796)
|
|
meta?1727)
|
|
(f1800
|
|
(cdr forms1801)))))))
|
|
f1800)
|
|
forms1799)
|
|
r1798
|
|
mr1797
|
|
ids1721
|
|
bindings1720
|
|
inits1719
|
|
'#f)))
|
|
(begin
|
|
(if meta-seen?1718
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1730
|
|
w1729
|
|
ae1728)
|
|
'"invalid meta definition")
|
|
(void))
|
|
((letrec ((f1802 (lambda (body1803)
|
|
(if ((lambda (t1804)
|
|
(if t1804
|
|
t1804
|
|
(not (frob-meta?474
|
|
(car body1803)))))
|
|
(null?
|
|
body1803))
|
|
(return1714
|
|
r1723
|
|
mr1722
|
|
bindings1720
|
|
ids1721
|
|
(append
|
|
inits1719
|
|
body1803))
|
|
(begin
|
|
((lambda (x1805)
|
|
(begin
|
|
(top-level-eval-hook133
|
|
x1805)
|
|
(meta-residualize!1705
|
|
(ct-eval/residualize3489
|
|
ctem1708
|
|
void
|
|
(lambda ()
|
|
x1805)))))
|
|
(chi-meta-frob491
|
|
(car body1803)
|
|
mr1722))
|
|
(f1802
|
|
(cdr body1803)))))))
|
|
f1802)
|
|
(cons
|
|
(make-frob471
|
|
(source-wrap439
|
|
e1730
|
|
w1729
|
|
ae1728)
|
|
meta?1727)
|
|
(cdr body1724))))))))))))))
|
|
type1732))))))
|
|
(frob-meta?474
|
|
fr1725)))
|
|
(frob-e473
|
|
fr1725)))
|
|
(car body1724))))))
|
|
parse1717) body1711 r1710 mr1709 '()
|
|
'() '() '#f))))
|
|
(vmap482 (lambda (fn1701 v1700)
|
|
((letrec ((do1702 (lambda (i1704 ls1703)
|
|
(if (< i1704 '0)
|
|
ls1703
|
|
(do1702
|
|
(fx- i1704 '1)
|
|
(cons
|
|
(fn1701
|
|
(vector-ref
|
|
v1700
|
|
i1704))
|
|
ls1703))))))
|
|
do1702)
|
|
(fx- (vector-length v1700) '1)
|
|
'())))
|
|
(vfor-each483 (lambda (fn1696 v1695)
|
|
((lambda (len1697)
|
|
((letrec ((do1698 (lambda (i1699)
|
|
(if (not (= i1699
|
|
len1697))
|
|
(begin
|
|
(fn1696
|
|
(vector-ref
|
|
v1695
|
|
i1699))
|
|
(do1698
|
|
(+ i1699 '1)))
|
|
(void)))))
|
|
do1698)
|
|
'0))
|
|
(vector-length v1695))))
|
|
(do-top-import484 (lambda (import-only?1694 top-ribcage1693
|
|
mid1692 token1691)
|
|
(list
|
|
'$sc-put-cte
|
|
(list 'quote mid1692)
|
|
(list 'quote (cons 'do-import token1691))
|
|
(list
|
|
'quote
|
|
(top-ribcage-key370
|
|
top-ribcage1693)))))
|
|
(update-mode-set485 ((lambda (table1682)
|
|
(lambda (when-list1684 mode-set1683)
|
|
(letrec ((remq1685 (lambda (x1690
|
|
ls1689)
|
|
(if (null?
|
|
ls1689)
|
|
'()
|
|
(if (eq? (car ls1689)
|
|
x1690)
|
|
(remq1685
|
|
x1690
|
|
(cdr ls1689))
|
|
(cons
|
|
(car ls1689)
|
|
(remq1685
|
|
x1690
|
|
(cdr ls1689))))))))
|
|
(remq1685
|
|
'-
|
|
(apply
|
|
append
|
|
(map (lambda (m1686)
|
|
((lambda (row1687)
|
|
(map (lambda (s1688)
|
|
(cdr (assq
|
|
s1688
|
|
row1687)))
|
|
when-list1684))
|
|
(cdr (assq
|
|
m1686
|
|
table1682))))
|
|
mode-set1683))))))
|
|
'((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-set486 (lambda (when-list1678
|
|
compiling-a-file1677)
|
|
(apply
|
|
append
|
|
(map (lambda (s1679)
|
|
(if compiling-a-file1677
|
|
((lambda (t1680)
|
|
(if (memv
|
|
t1680
|
|
'(compile))
|
|
'(c)
|
|
(if (memv
|
|
t1680
|
|
'(load))
|
|
'(l)
|
|
(if (memv
|
|
t1680
|
|
'(visit))
|
|
'(v)
|
|
(if (memv
|
|
t1680
|
|
'(revisit))
|
|
'(r)
|
|
'())))))
|
|
s1679)
|
|
((lambda (t1681)
|
|
(if (memv t1681 '(eval))
|
|
'(e)
|
|
'()))
|
|
s1679)))
|
|
when-list1678))))
|
|
(rt-eval/residualize487 (lambda (rtem1672 thunk1671)
|
|
(if (memq 'e rtem1672)
|
|
(thunk1671)
|
|
((lambda (thunk1673)
|
|
(if (memq 'v rtem1672)
|
|
(if ((lambda (t1674)
|
|
(if t1674
|
|
t1674
|
|
(memq
|
|
'r
|
|
rtem1672)))
|
|
(memq 'l rtem1672))
|
|
(thunk1673)
|
|
(thunk1673))
|
|
(if ((lambda (t1675)
|
|
(if t1675
|
|
t1675
|
|
(memq
|
|
'r
|
|
rtem1672)))
|
|
(memq 'l rtem1672))
|
|
(thunk1673)
|
|
(chi-void513))))
|
|
(if (memq 'c rtem1672)
|
|
((lambda (x1676)
|
|
(begin
|
|
(top-level-eval-hook133
|
|
x1676)
|
|
(lambda () x1676)))
|
|
(thunk1671))
|
|
thunk1671)))))
|
|
(ct-eval/residualize2488 (lambda (ctem1668 thunk1667)
|
|
((lambda (t1669)
|
|
(ct-eval/residualize3489
|
|
ctem1668
|
|
(lambda ()
|
|
(begin
|
|
(if (not t1669)
|
|
(set! t1669
|
|
(thunk1667))
|
|
(void))
|
|
(top-level-eval-hook133
|
|
t1669)))
|
|
(lambda ()
|
|
((lambda (t1670)
|
|
(if t1670
|
|
t1670
|
|
(thunk1667)))
|
|
t1669))))
|
|
'#f)))
|
|
(ct-eval/residualize3489 (lambda (ctem1664 eval-thunk1663
|
|
residualize-thunk1662)
|
|
(if (memq 'e ctem1664)
|
|
(begin
|
|
(eval-thunk1663)
|
|
(chi-void513))
|
|
(begin
|
|
(if (memq 'c ctem1664)
|
|
(eval-thunk1663)
|
|
(void))
|
|
(if (memq 'r ctem1664)
|
|
(if ((lambda (t1665)
|
|
(if t1665
|
|
t1665
|
|
(memq
|
|
'v
|
|
ctem1664)))
|
|
(memq 'l ctem1664))
|
|
(residualize-thunk1662)
|
|
(residualize-thunk1662))
|
|
(if ((lambda (t1666)
|
|
(if t1666
|
|
t1666
|
|
(memq
|
|
'v
|
|
ctem1664)))
|
|
(memq 'l ctem1664))
|
|
(residualize-thunk1662)
|
|
(chi-void513)))))))
|
|
(chi-frobs490 (lambda (frob*1660 r1659 mr1658 m?1657)
|
|
(map (lambda (x1661)
|
|
(chi493 (frob-e473 x1661) r1659 mr1658
|
|
'(()) m?1657))
|
|
frob*1660)))
|
|
(chi-meta-frob491 (lambda (x1656 mr1655)
|
|
(chi493 (frob-e473 x1656) mr1655 mr1655
|
|
'(()) '#t)))
|
|
(chi-sequence492 (lambda (body1651 r1650 mr1649 w1648 ae1647
|
|
m?1646)
|
|
(build-sequence239
|
|
ae1647
|
|
((letrec ((dobody1652 (lambda (body1653)
|
|
(if (null?
|
|
body1653)
|
|
'()
|
|
((lambda (first1654)
|
|
(cons
|
|
first1654
|
|
(dobody1652
|
|
(cdr body1653))))
|
|
(chi493
|
|
(car body1653)
|
|
r1650
|
|
mr1649
|
|
w1648
|
|
m?1646))))))
|
|
dobody1652)
|
|
body1651))))
|
|
(chi493 (lambda (e1640 r1639 mr1638 w1637 m?1636)
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntax-type441 e1640 r1639 w1637 '#f '#f))
|
|
(lambda (type1645 value1644 e1643 w1642 ae1641)
|
|
(chi-expr494 type1645 value1644 e1643 r1639
|
|
mr1638 w1642 ae1641 m?1636)))))
|
|
(chi-expr494 (lambda (type1620 value1619 e1618 r1617 mr1616
|
|
w1615 ae1614 m?1613)
|
|
((lambda (t1621)
|
|
(if (memv t1621 '(lexical))
|
|
value1619
|
|
(if (memv t1621 '(core))
|
|
(value1619 e1618 r1617 mr1616 w1615
|
|
ae1614 m?1613)
|
|
(if (memv t1621 '(lexical-call))
|
|
(chi-application495 value1619
|
|
e1618 r1617 mr1616 w1615 ae1614
|
|
m?1613)
|
|
(if (memv t1621 '(constant))
|
|
(list
|
|
'quote
|
|
(strip517
|
|
(source-wrap439
|
|
e1618
|
|
w1615
|
|
ae1614)
|
|
'(())))
|
|
(if (memv t1621 '(global))
|
|
value1619
|
|
(if (memv
|
|
t1621
|
|
'(meta-variable))
|
|
(if m?1613
|
|
value1619
|
|
(displaced-lexical-error303
|
|
(source-wrap439
|
|
e1618
|
|
w1615
|
|
ae1614)))
|
|
(if (memv
|
|
t1621
|
|
'(call))
|
|
(chi-application495
|
|
(chi493
|
|
(car e1618)
|
|
r1617 mr1616
|
|
w1615 m?1613)
|
|
e1618 r1617
|
|
mr1616 w1615
|
|
ae1614 m?1613)
|
|
(if (memv
|
|
t1621
|
|
'(begin-form))
|
|
(chi-sequence492
|
|
(parse-begin510
|
|
e1618
|
|
w1615
|
|
ae1614
|
|
'#f)
|
|
r1617
|
|
mr1616
|
|
w1615
|
|
ae1614
|
|
m?1613)
|
|
(if (memv
|
|
t1621
|
|
'(local-syntax-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(chi-local-syntax512
|
|
value1619
|
|
e1618
|
|
r1617
|
|
mr1616
|
|
w1615
|
|
ae1614))
|
|
(lambda (forms1626
|
|
r1625
|
|
mr1624
|
|
w1623
|
|
ae1622)
|
|
(chi-sequence492
|
|
forms1626
|
|
r1625
|
|
mr1624
|
|
w1623
|
|
ae1622
|
|
m?1613)))
|
|
(if (memv
|
|
t1621
|
|
'(eval-when-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-eval-when508
|
|
e1618
|
|
w1615
|
|
ae1614))
|
|
(lambda (when-list1628
|
|
forms1627)
|
|
(if (memq
|
|
'eval
|
|
when-list1628)
|
|
(chi-sequence492
|
|
forms1627
|
|
r1617
|
|
mr1616
|
|
w1615
|
|
ae1614
|
|
m?1613)
|
|
(chi-void513))))
|
|
(if (memv
|
|
t1621
|
|
'(meta-form))
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1618
|
|
w1615
|
|
ae1614)
|
|
'"invalid context for meta definition")
|
|
(if (memv
|
|
t1621
|
|
'(define-form))
|
|
(begin
|
|
(parse-define505
|
|
e1618
|
|
w1615
|
|
ae1614)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1618
|
|
w1615
|
|
ae1614)
|
|
'"invalid context for definition"))
|
|
(if (memv
|
|
t1621
|
|
'(define-syntax-form))
|
|
(begin
|
|
(parse-define-syntax506
|
|
e1618
|
|
w1615
|
|
ae1614)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1618
|
|
w1615
|
|
ae1614)
|
|
'"invalid context for definition"))
|
|
(if (memv
|
|
t1621
|
|
'($module-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-module503
|
|
e1618
|
|
w1615
|
|
ae1614
|
|
w1615))
|
|
(lambda (orig1632
|
|
id1631
|
|
exports1630
|
|
forms1629)
|
|
(syntax-error
|
|
orig1632
|
|
'"invalid context for definition")))
|
|
(if (memv
|
|
t1621
|
|
'($import-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-import504
|
|
e1618
|
|
w1615
|
|
ae1614))
|
|
(lambda (orig1635
|
|
only?1634
|
|
mid1633)
|
|
(syntax-error
|
|
orig1635
|
|
'"invalid context for definition")))
|
|
(if (memv
|
|
t1621
|
|
'(alias-form))
|
|
(begin
|
|
(parse-alias509
|
|
e1618
|
|
w1615
|
|
ae1614)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1618
|
|
w1615
|
|
ae1614)
|
|
'"invalid context for definition"))
|
|
(if (memv
|
|
t1621
|
|
'(syntax))
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1618
|
|
w1615
|
|
ae1614)
|
|
'"reference to pattern variable outside syntax form")
|
|
(if (memv
|
|
t1621
|
|
'(displaced-lexical))
|
|
(displaced-lexical-error303
|
|
(source-wrap439
|
|
e1618
|
|
w1615
|
|
ae1614))
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1618
|
|
w1615
|
|
ae1614)))))))))))))))))))))
|
|
type1620)))
|
|
(chi-application495 (lambda (x1605 e1604 r1603 mr1602 w1601
|
|
ae1600 m?1599)
|
|
((lambda (tmp1606)
|
|
((lambda (tmp1607)
|
|
(if tmp1607
|
|
(apply
|
|
(lambda (e01609 e11608)
|
|
(cons
|
|
x1605
|
|
(map (lambda (e1611)
|
|
(chi493 e1611
|
|
r1603 mr1602
|
|
w1601 m?1599))
|
|
e11608)))
|
|
tmp1607)
|
|
((lambda (_1612)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1604
|
|
w1601
|
|
ae1600)))
|
|
tmp1606)))
|
|
($syntax-dispatch
|
|
tmp1606
|
|
'(any . each-any))))
|
|
e1604)))
|
|
(chi-set!496 (lambda (e1573 r1572 w1571 ae1570 rib1569)
|
|
((lambda (tmp1574)
|
|
((lambda (tmp1575)
|
|
(if (if tmp1575
|
|
(apply
|
|
(lambda (_1578 id1577 val1576)
|
|
(id?310 id1577))
|
|
tmp1575)
|
|
'#f)
|
|
(apply
|
|
(lambda (_1581 id1580 val1579)
|
|
((lambda (n1582)
|
|
((lambda (b1583)
|
|
((lambda (t1584)
|
|
(if (memv
|
|
t1584
|
|
'(macro!))
|
|
((lambda (id1586
|
|
val1585)
|
|
(syntax-type441
|
|
(chi-macro497
|
|
(binding-value286
|
|
b1583)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
id1586
|
|
val1585)
|
|
r1572 '(())
|
|
'#f rib1569)
|
|
r1572 '(()) '#f
|
|
rib1569))
|
|
(wrap438
|
|
id1580
|
|
w1571)
|
|
(wrap438
|
|
val1579
|
|
w1571))
|
|
(values 'core
|
|
(lambda (e1592
|
|
r1591
|
|
mr1590
|
|
w1589
|
|
ae1588
|
|
m?1587)
|
|
((lambda (val1594
|
|
n1593)
|
|
((lambda (b1595)
|
|
((lambda (t1596)
|
|
(if (memv
|
|
t1596
|
|
'(lexical))
|
|
(list
|
|
'set!
|
|
(binding-value286
|
|
b1595)
|
|
val1594)
|
|
(if (memv
|
|
t1596
|
|
'(global))
|
|
((lambda (sym1597)
|
|
(begin
|
|
(if (read-only-binding?144
|
|
n1593)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1592
|
|
w1589
|
|
ae1588)
|
|
'"invalid assignment to read-only variable")
|
|
(void))
|
|
(list
|
|
'set!
|
|
sym1597
|
|
val1594)))
|
|
(binding-value286
|
|
b1595))
|
|
(if (memv
|
|
t1596
|
|
'(meta-variable))
|
|
(if m?1587
|
|
(list
|
|
'set!
|
|
(binding-value286
|
|
b1595)
|
|
val1594)
|
|
(displaced-lexical-error303
|
|
(wrap438
|
|
id1580
|
|
w1589)))
|
|
(if (memv
|
|
t1596
|
|
'(displaced-lexical))
|
|
(displaced-lexical-error303
|
|
(wrap438
|
|
id1580
|
|
w1589))
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1592
|
|
w1589
|
|
ae1588)))))))
|
|
(binding-type285
|
|
b1595)))
|
|
(lookup305
|
|
n1593
|
|
r1591)))
|
|
(chi493 val1579
|
|
r1591 mr1590
|
|
w1589 m?1587)
|
|
(id-var-name429
|
|
id1580
|
|
w1589)))
|
|
e1573 w1571
|
|
ae1570)))
|
|
(binding-type285 b1583)))
|
|
(lookup305 n1582 r1572)))
|
|
(id-var-name429 id1580 w1571)))
|
|
tmp1575)
|
|
((lambda (_1598)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1573
|
|
w1571
|
|
ae1570)))
|
|
tmp1574)))
|
|
($syntax-dispatch tmp1574 '(any any any))))
|
|
e1573)))
|
|
(chi-macro497 (lambda (p1556 e1555 r1554 w1553 ae1552
|
|
rib1551)
|
|
(letrec ((rebuild-macro-output1557 (lambda (x1561
|
|
m1560)
|
|
(if (pair?
|
|
x1561)
|
|
(cons
|
|
(rebuild-macro-output1557
|
|
(car x1561)
|
|
m1560)
|
|
(rebuild-macro-output1557
|
|
(cdr x1561)
|
|
m1560))
|
|
(if (syntax-object?64
|
|
x1561)
|
|
((lambda (w1562)
|
|
((lambda (ms1564
|
|
s1563)
|
|
(make-syntax-object63
|
|
(syntax-object-expression65
|
|
x1561)
|
|
(if (if (pair?
|
|
ms1564)
|
|
(eq? (car ms1564)
|
|
'#f)
|
|
'#f)
|
|
(make-wrap319
|
|
(cdr ms1564)
|
|
(cdr s1563))
|
|
(make-wrap319
|
|
(cons
|
|
m1560
|
|
ms1564)
|
|
(if rib1551
|
|
(cons
|
|
rib1551
|
|
(cons
|
|
'shift
|
|
s1563))
|
|
(cons
|
|
'shift
|
|
s1563))))))
|
|
(wrap-marks320
|
|
w1562)
|
|
(wrap-subst321
|
|
w1562)))
|
|
(syntax-object-wrap66
|
|
x1561))
|
|
(if (vector?
|
|
x1561)
|
|
((lambda (n1565)
|
|
((lambda (v1566)
|
|
((lambda ()
|
|
((letrec ((do1567 (lambda (i1568)
|
|
(if (= i1568
|
|
n1565)
|
|
v1566
|
|
(begin
|
|
(vector-set!
|
|
v1566
|
|
i1568
|
|
(rebuild-macro-output1557
|
|
(vector-ref
|
|
x1561
|
|
i1568)
|
|
m1560))
|
|
(do1567
|
|
(+ i1568
|
|
'1)))))))
|
|
do1567)
|
|
'0))))
|
|
(make-vector
|
|
n1565)))
|
|
(vector-length
|
|
x1561))
|
|
(if (symbol?
|
|
x1561)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1555
|
|
w1553
|
|
ae1552)
|
|
'"encountered raw symbol "
|
|
(symbol->string
|
|
x1561)
|
|
'" in output of macro")
|
|
x1561)))))))
|
|
(rebuild-macro-output1557
|
|
((lambda (out1558)
|
|
(if (procedure? out1558)
|
|
(out1558
|
|
(lambda (id1559)
|
|
(begin
|
|
(if (not (identifier? id1559))
|
|
(syntax-error
|
|
id1559
|
|
'"environment argument is not an identifier")
|
|
(void))
|
|
(lookup305
|
|
(id-var-name429
|
|
id1559
|
|
'(()))
|
|
r1554))))
|
|
out1558))
|
|
(p1556
|
|
(source-wrap439
|
|
e1555
|
|
(anti-mark395 w1553)
|
|
ae1552)))
|
|
(string '#\m)))))
|
|
(chi-body498 (lambda (body1539 outer-form1538 r1537 mr1536
|
|
w1535 m?1534)
|
|
((lambda (ribcage1540)
|
|
((lambda (w1541)
|
|
((lambda (body1542)
|
|
((lambda ()
|
|
(call-with-values
|
|
(lambda ()
|
|
(chi-internal499 ribcage1540
|
|
outer-form1538 body1542 r1537
|
|
mr1536 m?1534))
|
|
(lambda (r1549 mr1548 exprs1547
|
|
ids1546 vars1545 vals1544
|
|
inits1543)
|
|
(begin
|
|
(if (null? exprs1547)
|
|
(syntax-error
|
|
outer-form1538
|
|
'"no expressions in body")
|
|
(void))
|
|
(build-body241
|
|
'#f
|
|
(reverse vars1545)
|
|
(chi-frobs490
|
|
(reverse vals1544)
|
|
r1549
|
|
mr1548
|
|
m?1534)
|
|
(build-sequence239
|
|
'#f
|
|
(chi-frobs490
|
|
(append
|
|
inits1543
|
|
exprs1547)
|
|
r1549
|
|
mr1548
|
|
m?1534)))))))))
|
|
(map (lambda (x1550)
|
|
(make-frob471
|
|
(wrap438 x1550 w1541)
|
|
'#f))
|
|
body1539)))
|
|
(make-wrap319
|
|
(wrap-marks320 w1535)
|
|
(cons
|
|
ribcage1540
|
|
(wrap-subst321 w1535)))))
|
|
(make-ribcage360 '() '() '()))))
|
|
(chi-internal499 (lambda (ribcage1443 source-exp1442
|
|
body1441 r1440 mr1439 m?1438)
|
|
(letrec ((return1444 (lambda (r1533 mr1532
|
|
exprs1531
|
|
ids1530
|
|
vars1529
|
|
vals1528
|
|
inits1527)
|
|
(begin
|
|
(check-defined-ids480
|
|
source-exp1442
|
|
ids1530)
|
|
(values r1533
|
|
mr1532 exprs1531
|
|
ids1530 vars1529
|
|
vals1528
|
|
inits1527)))))
|
|
((letrec ((parse1445 (lambda (body1453
|
|
r1452 mr1451
|
|
ids1450
|
|
vars1449
|
|
vals1448
|
|
inits1447
|
|
meta-seen?1446)
|
|
(if (null?
|
|
body1453)
|
|
(return1444
|
|
r1452 mr1451
|
|
body1453
|
|
ids1450
|
|
vars1449
|
|
vals1448
|
|
inits1447)
|
|
((lambda (fr1454)
|
|
((lambda (e1455)
|
|
((lambda (meta?1456)
|
|
((lambda ()
|
|
(call-with-values
|
|
(lambda ()
|
|
(syntax-type441
|
|
e1455
|
|
r1452
|
|
'(())
|
|
'#f
|
|
ribcage1443))
|
|
(lambda (type1461
|
|
value1460
|
|
e1459
|
|
w1458
|
|
ae1457)
|
|
((lambda (t1462)
|
|
(if (memv
|
|
t1462
|
|
'(define-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-define505
|
|
e1459
|
|
w1458
|
|
ae1457))
|
|
(lambda (id1465
|
|
rhs1464
|
|
w1463)
|
|
((lambda (id1467
|
|
label1466)
|
|
(if meta?1456
|
|
((lambda (sym1468)
|
|
(begin
|
|
(extend-ribcage!405
|
|
ribcage1443
|
|
id1467
|
|
label1466)
|
|
((lambda (mr1469)
|
|
(begin
|
|
(define-top-level-value-hook135
|
|
sym1468
|
|
(top-level-eval-hook133
|
|
(chi493
|
|
rhs1464
|
|
mr1469
|
|
mr1469
|
|
w1463
|
|
'#t)))
|
|
(parse1445
|
|
(cdr body1453)
|
|
r1452
|
|
mr1469
|
|
(cons
|
|
id1467
|
|
ids1450)
|
|
vars1449
|
|
vals1448
|
|
inits1447
|
|
'#f)))
|
|
(extend-env299
|
|
label1466
|
|
(cons
|
|
'meta-variable
|
|
sym1468)
|
|
mr1451))))
|
|
(generate-id147
|
|
((lambda (x1470)
|
|
((lambda (e1471)
|
|
(if (annotation?132
|
|
e1471)
|
|
(annotation-expression
|
|
e1471)
|
|
e1471))
|
|
(if (syntax-object?64
|
|
x1470)
|
|
(syntax-object-expression65
|
|
x1470)
|
|
x1470)))
|
|
id1467)))
|
|
((lambda (var1472)
|
|
(begin
|
|
(extend-ribcage!405
|
|
ribcage1443
|
|
id1467
|
|
label1466)
|
|
(parse1445
|
|
(cdr body1453)
|
|
(extend-env299
|
|
label1466
|
|
(cons
|
|
'lexical
|
|
var1472)
|
|
r1452)
|
|
mr1451
|
|
(cons
|
|
id1467
|
|
ids1450)
|
|
(cons
|
|
var1472
|
|
vars1449)
|
|
(cons
|
|
(make-frob471
|
|
(wrap438
|
|
rhs1464
|
|
w1463)
|
|
meta?1456)
|
|
vals1448)
|
|
inits1447
|
|
'#f)))
|
|
(gen-var518
|
|
id1467))))
|
|
(wrap438
|
|
id1465
|
|
w1463)
|
|
(gen-label357))))
|
|
(if (memv
|
|
t1462
|
|
'(define-syntax-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-define-syntax506
|
|
e1459
|
|
w1458
|
|
ae1457))
|
|
(lambda (id1475
|
|
rhs1474
|
|
w1473)
|
|
((lambda (id1478
|
|
label1477
|
|
exp1476)
|
|
(begin
|
|
(extend-ribcage!405
|
|
ribcage1443
|
|
id1478
|
|
label1477)
|
|
((lambda (b1479)
|
|
(parse1445
|
|
(cdr body1453)
|
|
(extend-env299
|
|
label1477
|
|
b1479
|
|
r1452)
|
|
(extend-env299
|
|
label1477
|
|
b1479
|
|
mr1451)
|
|
(cons
|
|
id1478
|
|
ids1450)
|
|
vars1449
|
|
vals1448
|
|
inits1447
|
|
'#f))
|
|
(defer-or-eval-transformer307
|
|
local-eval-hook134
|
|
exp1476))))
|
|
(wrap438
|
|
id1475
|
|
w1473)
|
|
(gen-label357)
|
|
(chi493
|
|
rhs1474
|
|
mr1451
|
|
mr1451
|
|
w1473
|
|
'#t))))
|
|
(if (memv
|
|
t1462
|
|
'($module-form))
|
|
((lambda (*ribcage1480)
|
|
((lambda (*w1481)
|
|
((lambda ()
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-module503
|
|
e1459
|
|
w1458
|
|
ae1457
|
|
*w1481))
|
|
(lambda (orig1485
|
|
id1484
|
|
exports1483
|
|
forms1482)
|
|
(call-with-values
|
|
(lambda ()
|
|
(chi-internal499
|
|
*ribcage1480
|
|
orig1485
|
|
(map (lambda (d1499)
|
|
(make-frob471
|
|
d1499
|
|
meta?1456))
|
|
forms1482)
|
|
r1452
|
|
mr1451
|
|
m?1438))
|
|
(lambda (r1492
|
|
mr1491
|
|
*body1490
|
|
*ids1489
|
|
*vars1488
|
|
*vals1487
|
|
*inits1486)
|
|
(begin
|
|
(check-module-exports479
|
|
source-exp1442
|
|
(flatten-exports445
|
|
exports1483)
|
|
*ids1489)
|
|
((lambda (iface1497
|
|
vars1496
|
|
vals1495
|
|
inits1494
|
|
label1493)
|
|
(begin
|
|
(extend-ribcage!405
|
|
ribcage1443
|
|
id1484
|
|
label1493)
|
|
((lambda (b1498)
|
|
(parse1445
|
|
(cdr body1453)
|
|
(extend-env299
|
|
label1493
|
|
b1498
|
|
r1492)
|
|
(extend-env299
|
|
label1493
|
|
b1498
|
|
mr1491)
|
|
(cons
|
|
id1484
|
|
ids1450)
|
|
vars1496
|
|
vals1495
|
|
inits1494
|
|
'#f))
|
|
(cons
|
|
'$module
|
|
iface1497))))
|
|
(make-resolved-interface455
|
|
id1484
|
|
exports1483
|
|
'#f)
|
|
(append
|
|
*vars1488
|
|
vars1449)
|
|
(append
|
|
*vals1487
|
|
vals1448)
|
|
(append
|
|
inits1447
|
|
*inits1486
|
|
*body1490)
|
|
(gen-label357))))))))))
|
|
(make-wrap319
|
|
(wrap-marks320
|
|
w1458)
|
|
(cons
|
|
*ribcage1480
|
|
(wrap-subst321
|
|
w1458)))))
|
|
(make-ribcage360
|
|
'()
|
|
'()
|
|
'()))
|
|
(if (memv
|
|
t1462
|
|
'($import-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-import504
|
|
e1459
|
|
w1458
|
|
ae1457))
|
|
(lambda (orig1502
|
|
only?1501
|
|
mid1500)
|
|
((lambda (mlabel1503)
|
|
((lambda (binding1504)
|
|
((lambda (t1505)
|
|
(if (memv
|
|
t1505
|
|
'($module))
|
|
((lambda (iface1506)
|
|
((lambda (import-iface1507)
|
|
((lambda ()
|
|
(begin
|
|
(if only?1501
|
|
(extend-ribcage-barrier!407
|
|
ribcage1443
|
|
mid1500)
|
|
(void))
|
|
(do-import!502
|
|
import-iface1507
|
|
ribcage1443)
|
|
(parse1445
|
|
(cdr body1453)
|
|
r1452
|
|
mr1451
|
|
(cons
|
|
import-iface1507
|
|
ids1450)
|
|
vars1449
|
|
vals1448
|
|
inits1447
|
|
'#f)))))
|
|
(make-import-interface374
|
|
iface1506
|
|
(import-mark-delta500
|
|
mid1500
|
|
iface1506))))
|
|
(binding-value286
|
|
binding1504))
|
|
(if (memv
|
|
t1505
|
|
'(displaced-lexical))
|
|
(displaced-lexical-error303
|
|
mid1500)
|
|
(syntax-error
|
|
mid1500
|
|
'"unknown module"))))
|
|
(binding-type285
|
|
binding1504)))
|
|
(lookup305
|
|
mlabel1503
|
|
r1452)))
|
|
(id-var-name429
|
|
mid1500
|
|
'(())))))
|
|
(if (memv
|
|
t1462
|
|
'(alias-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-alias509
|
|
e1459
|
|
w1458
|
|
ae1457))
|
|
(lambda (new-id1509
|
|
old-id1508)
|
|
((lambda (new-id1510)
|
|
(begin
|
|
(extend-ribcage!405
|
|
ribcage1443
|
|
new-id1510
|
|
(id-var-name-loc428
|
|
old-id1508
|
|
w1458))
|
|
(parse1445
|
|
(cdr body1453)
|
|
r1452
|
|
mr1451
|
|
(cons
|
|
new-id1510
|
|
ids1450)
|
|
vars1449
|
|
vals1448
|
|
inits1447
|
|
'#f)))
|
|
(wrap438
|
|
new-id1509
|
|
w1458))))
|
|
(if (memv
|
|
t1462
|
|
'(begin-form))
|
|
(parse1445
|
|
((letrec ((f1511 (lambda (forms1512)
|
|
(if (null?
|
|
forms1512)
|
|
(cdr body1453)
|
|
(cons
|
|
(make-frob471
|
|
(wrap438
|
|
(car forms1512)
|
|
w1458)
|
|
meta?1456)
|
|
(f1511
|
|
(cdr forms1512)))))))
|
|
f1511)
|
|
(parse-begin510
|
|
e1459
|
|
w1458
|
|
ae1457
|
|
'#t))
|
|
r1452
|
|
mr1451
|
|
ids1450
|
|
vars1449
|
|
vals1448
|
|
inits1447
|
|
'#f)
|
|
(if (memv
|
|
t1462
|
|
'(eval-when-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(parse-eval-when508
|
|
e1459
|
|
w1458
|
|
ae1457))
|
|
(lambda (when-list1514
|
|
forms1513)
|
|
(parse1445
|
|
(if (memq
|
|
'eval
|
|
when-list1514)
|
|
((letrec ((f1515 (lambda (forms1516)
|
|
(if (null?
|
|
forms1516)
|
|
(cdr body1453)
|
|
(cons
|
|
(make-frob471
|
|
(wrap438
|
|
(car forms1516)
|
|
w1458)
|
|
meta?1456)
|
|
(f1515
|
|
(cdr forms1516)))))))
|
|
f1515)
|
|
forms1513)
|
|
(cdr body1453))
|
|
r1452
|
|
mr1451
|
|
ids1450
|
|
vars1449
|
|
vals1448
|
|
inits1447
|
|
'#f)))
|
|
(if (memv
|
|
t1462
|
|
'(meta-form))
|
|
(parse1445
|
|
(cons
|
|
(make-frob471
|
|
(wrap438
|
|
(parse-meta507
|
|
e1459
|
|
w1458
|
|
ae1457)
|
|
w1458)
|
|
'#t)
|
|
(cdr body1453))
|
|
r1452
|
|
mr1451
|
|
ids1450
|
|
vars1449
|
|
vals1448
|
|
inits1447
|
|
'#t)
|
|
(if (memv
|
|
t1462
|
|
'(local-syntax-form))
|
|
(call-with-values
|
|
(lambda ()
|
|
(chi-local-syntax512
|
|
value1460
|
|
e1459
|
|
r1452
|
|
mr1451
|
|
w1458
|
|
ae1457))
|
|
(lambda (forms1521
|
|
r1520
|
|
mr1519
|
|
w1518
|
|
ae1517)
|
|
(parse1445
|
|
((letrec ((f1522 (lambda (forms1523)
|
|
(if (null?
|
|
forms1523)
|
|
(cdr body1453)
|
|
(cons
|
|
(make-frob471
|
|
(wrap438
|
|
(car forms1523)
|
|
w1518)
|
|
meta?1456)
|
|
(f1522
|
|
(cdr forms1523)))))))
|
|
f1522)
|
|
forms1521)
|
|
r1520
|
|
mr1519
|
|
ids1450
|
|
vars1449
|
|
vals1448
|
|
inits1447
|
|
'#f)))
|
|
(begin
|
|
(if meta-seen?1446
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1459
|
|
w1458
|
|
ae1457)
|
|
'"invalid meta definition")
|
|
(void))
|
|
((letrec ((f1524 (lambda (body1525)
|
|
(if ((lambda (t1526)
|
|
(if t1526
|
|
t1526
|
|
(not (frob-meta?474
|
|
(car body1525)))))
|
|
(null?
|
|
body1525))
|
|
(return1444
|
|
r1452
|
|
mr1451
|
|
body1525
|
|
ids1450
|
|
vars1449
|
|
vals1448
|
|
inits1447)
|
|
(begin
|
|
(top-level-eval-hook133
|
|
(chi-meta-frob491
|
|
(car body1525)
|
|
mr1451))
|
|
(f1524
|
|
(cdr body1525)))))))
|
|
f1524)
|
|
(cons
|
|
(make-frob471
|
|
(source-wrap439
|
|
e1459
|
|
w1458
|
|
ae1457)
|
|
meta?1456)
|
|
(cdr body1453))))))))))))))
|
|
type1461))))))
|
|
(frob-meta?474
|
|
fr1454)))
|
|
(frob-e473
|
|
fr1454)))
|
|
(car body1453))))))
|
|
parse1445) body1441 r1440 mr1439 '()
|
|
'() '() '() '#f))))
|
|
(import-mark-delta500 (lambda (mid1437 iface1436)
|
|
(diff-marks421
|
|
(id-marks316 mid1437)
|
|
(interface-marks448 iface1436))))
|
|
(lookup-import-label501 (lambda (id1434)
|
|
((lambda (label1435)
|
|
(begin
|
|
(if (not label1435)
|
|
(syntax-error
|
|
id1434
|
|
'"exported identifier not visible")
|
|
(void))
|
|
label1435))
|
|
(id-var-name-loc428
|
|
id1434
|
|
'(())))))
|
|
(do-import!502 (lambda (import-iface1430 ribcage1429)
|
|
((lambda (ie1431)
|
|
(if (<= (vector-length ie1431) '20)
|
|
((lambda (new-marks1432)
|
|
(vfor-each483
|
|
(lambda (id1433)
|
|
(import-extend-ribcage!406
|
|
ribcage1429
|
|
new-marks1432
|
|
id1433
|
|
(lookup-import-label501
|
|
id1433)))
|
|
ie1431))
|
|
(import-interface-new-marks377
|
|
import-iface1430))
|
|
(extend-ribcage-subst!409
|
|
ribcage1429
|
|
import-iface1430)))
|
|
(interface-exports449
|
|
(import-interface-interface376
|
|
import-iface1430)))))
|
|
(parse-module503 (lambda (e1405 w1404 ae1403 *w1402)
|
|
(letrec ((listify1406 (lambda (exports1423)
|
|
(if (null?
|
|
exports1423)
|
|
'()
|
|
(cons
|
|
((lambda (tmp1424)
|
|
((lambda (tmp1425)
|
|
(if tmp1425
|
|
(apply
|
|
(lambda (ex1426)
|
|
(listify1406
|
|
ex1426))
|
|
tmp1425)
|
|
((lambda (x1428)
|
|
(if (id?310
|
|
x1428)
|
|
(wrap438
|
|
x1428
|
|
*w1402)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1405
|
|
w1404
|
|
ae1403)
|
|
'"invalid exports list in")))
|
|
tmp1424)))
|
|
($syntax-dispatch
|
|
tmp1424
|
|
'each-any)))
|
|
(car exports1423))
|
|
(listify1406
|
|
(cdr exports1423)))))))
|
|
((lambda (tmp1407)
|
|
((lambda (tmp1408)
|
|
(if (if tmp1408
|
|
(apply
|
|
(lambda (_1413 orig1412
|
|
mid1411 ex1410
|
|
form1409)
|
|
(id?310 mid1411))
|
|
tmp1408)
|
|
'#f)
|
|
(apply
|
|
(lambda (_1418 orig1417
|
|
mid1416 ex1415
|
|
form1414)
|
|
(values
|
|
orig1417
|
|
(wrap438 mid1416 w1404)
|
|
(listify1406 ex1415)
|
|
(map (lambda (x1420)
|
|
(wrap438
|
|
x1420
|
|
*w1402))
|
|
form1414)))
|
|
tmp1408)
|
|
((lambda (_1422)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1405
|
|
w1404
|
|
ae1403)))
|
|
tmp1407)))
|
|
($syntax-dispatch
|
|
tmp1407
|
|
'(any any any each-any .
|
|
each-any))))
|
|
e1405))))
|
|
(parse-import504 (lambda (e1385 w1384 ae1383)
|
|
((lambda (tmp1386)
|
|
((lambda (tmp1387)
|
|
(if (if tmp1387
|
|
(apply
|
|
(lambda (_1390 orig1389
|
|
mid1388)
|
|
(id?310 mid1388))
|
|
tmp1387)
|
|
'#f)
|
|
(apply
|
|
(lambda (_1393 orig1392 mid1391)
|
|
(values
|
|
orig1392
|
|
'#t
|
|
(wrap438 mid1391 w1384)))
|
|
tmp1387)
|
|
((lambda (tmp1394)
|
|
(if (if tmp1394
|
|
(apply
|
|
(lambda (_1397
|
|
orig1396
|
|
mid1395)
|
|
(id?310 mid1395))
|
|
tmp1394)
|
|
'#f)
|
|
(apply
|
|
(lambda (_1400 orig1399
|
|
mid1398)
|
|
(values
|
|
orig1399
|
|
'#f
|
|
(wrap438
|
|
mid1398
|
|
w1384)))
|
|
tmp1394)
|
|
((lambda (_1401)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1385
|
|
w1384
|
|
ae1383)))
|
|
tmp1386)))
|
|
($syntax-dispatch
|
|
tmp1386
|
|
'(any any #(atom #f) any)))))
|
|
($syntax-dispatch
|
|
tmp1386
|
|
'(any any #(atom #t) any))))
|
|
e1385)))
|
|
(parse-define505 (lambda (e1356 w1355 ae1354)
|
|
((lambda (tmp1357)
|
|
((lambda (tmp1358)
|
|
(if (if tmp1358
|
|
(apply
|
|
(lambda (_1361 name1360
|
|
val1359)
|
|
(id?310 name1360))
|
|
tmp1358)
|
|
'#f)
|
|
(apply
|
|
(lambda (_1364 name1363 val1362)
|
|
(values
|
|
name1363
|
|
val1362
|
|
w1355))
|
|
tmp1358)
|
|
((lambda (tmp1365)
|
|
(if (if tmp1365
|
|
(apply
|
|
(lambda (_1370
|
|
name1369
|
|
args1368
|
|
e11367
|
|
e21366)
|
|
(if (id?310
|
|
name1369)
|
|
(valid-bound-ids?434
|
|
(lambda-var-list519
|
|
args1368))
|
|
'#f))
|
|
tmp1365)
|
|
'#f)
|
|
(apply
|
|
(lambda (_1375 name1374
|
|
args1373 e11372
|
|
e21371)
|
|
(values
|
|
(wrap438
|
|
name1374
|
|
w1355)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
(wrap438
|
|
(cons
|
|
args1373
|
|
(cons
|
|
e11372
|
|
e21371))
|
|
w1355))
|
|
'(())))
|
|
tmp1365)
|
|
((lambda (tmp1377)
|
|
(if (if tmp1377
|
|
(apply
|
|
(lambda (_1379
|
|
name1378)
|
|
(id?310
|
|
name1378))
|
|
tmp1377)
|
|
'#f)
|
|
(apply
|
|
(lambda (_1381
|
|
name1380)
|
|
(values
|
|
(wrap438
|
|
name1380
|
|
w1355)
|
|
'#(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
'(())))
|
|
tmp1377)
|
|
((lambda (_1382)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1356
|
|
w1355
|
|
ae1354)))
|
|
tmp1357)))
|
|
($syntax-dispatch
|
|
tmp1357
|
|
'(any any)))))
|
|
($syntax-dispatch
|
|
tmp1357
|
|
'(any (any . any)
|
|
any
|
|
.
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp1357
|
|
'(any any any))))
|
|
e1356)))
|
|
(parse-define-syntax506 (lambda (e1332 w1331 ae1330)
|
|
((lambda (tmp1333)
|
|
((lambda (tmp1334)
|
|
(if (if tmp1334
|
|
(apply
|
|
(lambda (_1339
|
|
name1338
|
|
id1337
|
|
e11336
|
|
e21335)
|
|
(if (id?310
|
|
name1338)
|
|
(id?310 id1337)
|
|
'#f))
|
|
tmp1334)
|
|
'#f)
|
|
(apply
|
|
(lambda (_1344 name1343
|
|
id1342 e11341
|
|
e21340)
|
|
(values
|
|
(wrap438
|
|
name1343
|
|
w1331)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
(wrap438
|
|
(list id1342)
|
|
w1331)
|
|
(wrap438
|
|
(cons
|
|
e11341
|
|
e21340)
|
|
w1331)))
|
|
'(())))
|
|
tmp1334)
|
|
((lambda (tmp1346)
|
|
(if (if tmp1346
|
|
(apply
|
|
(lambda (_1349
|
|
name1348
|
|
val1347)
|
|
(id?310
|
|
name1348))
|
|
tmp1346)
|
|
'#f)
|
|
(apply
|
|
(lambda (_1352
|
|
name1351
|
|
val1350)
|
|
(values
|
|
name1351
|
|
val1350
|
|
w1331))
|
|
tmp1346)
|
|
((lambda (_1353)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1332
|
|
w1331
|
|
ae1330)))
|
|
tmp1333)))
|
|
($syntax-dispatch
|
|
tmp1333
|
|
'(any any any)))))
|
|
($syntax-dispatch
|
|
tmp1333
|
|
'(any (any any)
|
|
any
|
|
.
|
|
each-any))))
|
|
e1332)))
|
|
(parse-meta507 (lambda (e1324 w1323 ae1322)
|
|
((lambda (tmp1325)
|
|
((lambda (tmp1326)
|
|
(if tmp1326
|
|
(apply
|
|
(lambda (_1328 form1327) form1327)
|
|
tmp1326)
|
|
((lambda (_1329)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1324
|
|
w1323
|
|
ae1322)))
|
|
tmp1325)))
|
|
($syntax-dispatch tmp1325 '(any . any))))
|
|
e1324)))
|
|
(parse-eval-when508 (lambda (e1312 w1311 ae1310)
|
|
((lambda (tmp1313)
|
|
((lambda (tmp1314)
|
|
(if tmp1314
|
|
(apply
|
|
(lambda (_1318 x1317 e11316
|
|
e21315)
|
|
(values
|
|
(chi-when-list440
|
|
x1317
|
|
w1311)
|
|
(cons e11316 e21315)))
|
|
tmp1314)
|
|
((lambda (_1321)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1312
|
|
w1311
|
|
ae1310)))
|
|
tmp1313)))
|
|
($syntax-dispatch
|
|
tmp1313
|
|
'(any each-any any . each-any))))
|
|
e1312)))
|
|
(parse-alias509 (lambda (e1300 w1299 ae1298)
|
|
((lambda (tmp1301)
|
|
((lambda (tmp1302)
|
|
(if (if tmp1302
|
|
(apply
|
|
(lambda (_1305 new-id1304
|
|
old-id1303)
|
|
(if (id?310 new-id1304)
|
|
(id?310 old-id1303)
|
|
'#f))
|
|
tmp1302)
|
|
'#f)
|
|
(apply
|
|
(lambda (_1308 new-id1307
|
|
old-id1306)
|
|
(values new-id1307 old-id1306))
|
|
tmp1302)
|
|
((lambda (_1309)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1300
|
|
w1299
|
|
ae1298)))
|
|
tmp1301)))
|
|
($syntax-dispatch
|
|
tmp1301
|
|
'(any any any))))
|
|
e1300)))
|
|
(parse-begin510 (lambda (e1287 w1286 ae1285 empty-okay?1284)
|
|
((lambda (tmp1288)
|
|
((lambda (tmp1289)
|
|
(if (if tmp1289
|
|
(apply
|
|
(lambda (_1290)
|
|
empty-okay?1284)
|
|
tmp1289)
|
|
'#f)
|
|
(apply
|
|
(lambda (_1291) '())
|
|
tmp1289)
|
|
((lambda (tmp1292)
|
|
(if tmp1292
|
|
(apply
|
|
(lambda (_1295 e11294
|
|
e21293)
|
|
(cons e11294 e21293))
|
|
tmp1292)
|
|
((lambda (_1297)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1287
|
|
w1286
|
|
ae1285)))
|
|
tmp1288)))
|
|
($syntax-dispatch
|
|
tmp1288
|
|
'(any any . each-any)))))
|
|
($syntax-dispatch tmp1288 '(any))))
|
|
e1287)))
|
|
(chi-lambda-clause511 (lambda (e1261 c1260 r1259 mr1258
|
|
w1257 m?1256)
|
|
((lambda (tmp1262)
|
|
((lambda (tmp1263)
|
|
(if tmp1263
|
|
(apply
|
|
(lambda (id1266 e11265
|
|
e21264)
|
|
((lambda (ids1267)
|
|
(if (not (valid-bound-ids?434
|
|
ids1267))
|
|
(syntax-error
|
|
e1261
|
|
'"invalid parameter list in")
|
|
((lambda (labels1269
|
|
new-vars1268)
|
|
(values
|
|
new-vars1268
|
|
(chi-body498
|
|
(cons
|
|
e11265
|
|
e21264)
|
|
e1261
|
|
(extend-var-env*301
|
|
labels1269
|
|
new-vars1268
|
|
r1259)
|
|
mr1258
|
|
(make-binding-wrap412
|
|
ids1267
|
|
labels1269
|
|
w1257)
|
|
m?1256)))
|
|
(gen-labels359
|
|
ids1267)
|
|
(map gen-var518
|
|
ids1267))))
|
|
id1266))
|
|
tmp1263)
|
|
((lambda (tmp1272)
|
|
(if tmp1272
|
|
(apply
|
|
(lambda (ids1275
|
|
e11274
|
|
e21273)
|
|
((lambda (old-ids1276)
|
|
(if (not (valid-bound-ids?434
|
|
old-ids1276))
|
|
(syntax-error
|
|
e1261
|
|
'"invalid parameter list in")
|
|
((lambda (labels1278
|
|
new-vars1277)
|
|
(values
|
|
((letrec ((f1280 (lambda (ls11282
|
|
ls21281)
|
|
(if (null?
|
|
ls11282)
|
|
ls21281
|
|
(f1280
|
|
(cdr ls11282)
|
|
(cons
|
|
(car ls11282)
|
|
ls21281))))))
|
|
f1280)
|
|
(cdr new-vars1277)
|
|
(car new-vars1277))
|
|
(chi-body498
|
|
(cons
|
|
e11274
|
|
e21273)
|
|
e1261
|
|
(extend-var-env*301
|
|
labels1278
|
|
new-vars1277
|
|
r1259)
|
|
mr1258
|
|
(make-binding-wrap412
|
|
old-ids1276
|
|
labels1278
|
|
w1257)
|
|
m?1256)))
|
|
(gen-labels359
|
|
old-ids1276)
|
|
(map gen-var518
|
|
old-ids1276))))
|
|
(lambda-var-list519
|
|
ids1275)))
|
|
tmp1272)
|
|
((lambda (_1283)
|
|
(syntax-error
|
|
e1261))
|
|
tmp1262)))
|
|
($syntax-dispatch
|
|
tmp1262
|
|
'(any any . each-any)))))
|
|
($syntax-dispatch
|
|
tmp1262
|
|
'(each-any any . each-any))))
|
|
c1260)))
|
|
(chi-local-syntax512 (lambda (rec?1237 e1236 r1235 mr1234
|
|
w1233 ae1232)
|
|
((lambda (tmp1238)
|
|
((lambda (tmp1239)
|
|
(if tmp1239
|
|
(apply
|
|
(lambda (_1244 id1243
|
|
val1242 e11241
|
|
e21240)
|
|
((lambda (ids1245)
|
|
(if (not (valid-bound-ids?434
|
|
ids1245))
|
|
(invalid-ids-error436
|
|
(map (lambda (x1246)
|
|
(wrap438
|
|
x1246
|
|
w1233))
|
|
ids1245)
|
|
(source-wrap439
|
|
e1236
|
|
w1233
|
|
ae1232)
|
|
'"keyword")
|
|
((lambda (labels1247)
|
|
((lambda (new-w1248)
|
|
((lambda (b*1249)
|
|
(values
|
|
(cons
|
|
e11241
|
|
e21240)
|
|
(extend-env*300
|
|
labels1247
|
|
b*1249
|
|
r1235)
|
|
(extend-env*300
|
|
labels1247
|
|
b*1249
|
|
mr1234)
|
|
new-w1248
|
|
ae1232))
|
|
((lambda (w1251)
|
|
(map (lambda (x1253)
|
|
(defer-or-eval-transformer307
|
|
local-eval-hook134
|
|
(chi493
|
|
x1253
|
|
mr1234
|
|
mr1234
|
|
w1251
|
|
'#t)))
|
|
val1242))
|
|
(if rec?1237
|
|
new-w1248
|
|
w1233))))
|
|
(make-binding-wrap412
|
|
ids1245
|
|
labels1247
|
|
w1233)))
|
|
(gen-labels359
|
|
ids1245))))
|
|
id1243))
|
|
tmp1239)
|
|
((lambda (_1255)
|
|
(syntax-error
|
|
(source-wrap439
|
|
e1236
|
|
w1233
|
|
ae1232)))
|
|
tmp1238)))
|
|
($syntax-dispatch
|
|
tmp1238
|
|
'(any #(each (any any))
|
|
any
|
|
.
|
|
each-any))))
|
|
e1236)))
|
|
(chi-void513 (lambda () (list 'void)))
|
|
(ellipsis?514 (lambda (x1231)
|
|
(if (nonsymbol-id?309 x1231)
|
|
(literal-id=?431
|
|
x1231
|
|
'#(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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-annotation515 (lambda (x1230)
|
|
(if (pair? x1230)
|
|
(cons
|
|
(strip-annotation515 (car x1230))
|
|
(strip-annotation515 (cdr x1230)))
|
|
(if (annotation?132 x1230)
|
|
(annotation-stripped x1230)
|
|
x1230))))
|
|
(strip*516 (lambda (x1223 w1222 fn1221)
|
|
(if (memq 'top (wrap-marks320 w1222))
|
|
(fn1221 x1223)
|
|
((letrec ((f1224 (lambda (x1225)
|
|
(if (syntax-object?64
|
|
x1225)
|
|
(strip*516
|
|
(syntax-object-expression65
|
|
x1225)
|
|
(syntax-object-wrap66
|
|
x1225)
|
|
fn1221)
|
|
(if (pair? x1225)
|
|
((lambda (a1227
|
|
d1226)
|
|
(if (if (eq? a1227
|
|
(car x1225))
|
|
(eq? d1226
|
|
(cdr x1225))
|
|
'#f)
|
|
x1225
|
|
(cons
|
|
a1227
|
|
d1226)))
|
|
(f1224
|
|
(car x1225))
|
|
(f1224
|
|
(cdr x1225)))
|
|
(if (vector? x1225)
|
|
((lambda (old1228)
|
|
((lambda (new1229)
|
|
(if (andmap
|
|
eq?
|
|
old1228
|
|
new1229)
|
|
x1225
|
|
(list->vector
|
|
new1229)))
|
|
(map f1224
|
|
old1228)))
|
|
(vector->list
|
|
x1225))
|
|
x1225))))))
|
|
f1224)
|
|
x1223))))
|
|
(strip517 (lambda (x1218 w1217)
|
|
(strip*516
|
|
x1218
|
|
w1217
|
|
(lambda (x1219)
|
|
(if ((lambda (t1220)
|
|
(if t1220
|
|
t1220
|
|
(if (pair? x1219)
|
|
(annotation?132 (car x1219))
|
|
'#f)))
|
|
(annotation?132 x1219))
|
|
(strip-annotation515 x1219)
|
|
x1219)))))
|
|
(gen-var518 (lambda (id1215)
|
|
((lambda (id1216)
|
|
(if (annotation?132 id1216)
|
|
(gensym)
|
|
(gensym)))
|
|
(if (syntax-object?64 id1215)
|
|
(syntax-object-expression65 id1215)
|
|
id1215))))
|
|
(lambda-var-list519 (lambda (vars1210)
|
|
((letrec ((lvl1211 (lambda (vars1214
|
|
ls1213 w1212)
|
|
(if (pair? vars1214)
|
|
(lvl1211
|
|
(cdr vars1214)
|
|
(cons
|
|
(wrap438
|
|
(car vars1214)
|
|
w1212)
|
|
ls1213)
|
|
w1212)
|
|
(if (id?310
|
|
vars1214)
|
|
(cons
|
|
(wrap438
|
|
vars1214
|
|
w1212)
|
|
ls1213)
|
|
(if (null?
|
|
vars1214)
|
|
ls1213
|
|
(if (syntax-object?64
|
|
vars1214)
|
|
(lvl1211
|
|
(syntax-object-expression65
|
|
vars1214)
|
|
ls1213
|
|
(join-wraps417
|
|
w1212
|
|
(syntax-object-wrap66
|
|
vars1214)))
|
|
(if (annotation?132
|
|
vars1214)
|
|
(lvl1211
|
|
(annotation-expression
|
|
vars1214)
|
|
ls1213
|
|
w1212)
|
|
(cons
|
|
vars1214
|
|
ls1213)))))))))
|
|
lvl1211)
|
|
vars1210
|
|
'()
|
|
'(())))))
|
|
(begin
|
|
(set! $sc-put-cte
|
|
(lambda (id1191 b1190 top-token1189)
|
|
(letrec ((sc-put-module1192 (lambda (exports1208 token1207
|
|
new-marks1206)
|
|
(vfor-each483
|
|
(lambda (id1209)
|
|
(store-import-binding411
|
|
id1209
|
|
token1207
|
|
new-marks1206))
|
|
exports1208)))
|
|
(put-cte1193 (lambda (id1204 binding1203 token1202)
|
|
((lambda (sym1205)
|
|
(begin
|
|
(store-import-binding411
|
|
id1204
|
|
token1202
|
|
'())
|
|
(put-global-definition-hook143
|
|
sym1205
|
|
(if (if (eq? (binding-type285
|
|
binding1203)
|
|
'global)
|
|
(eq? (binding-value286
|
|
binding1203)
|
|
sym1205)
|
|
'#f)
|
|
'#f
|
|
binding1203))))
|
|
(if (symbol? id1204)
|
|
id1204
|
|
(id-var-name429 id1204 '(())))))))
|
|
((lambda (binding1194)
|
|
((lambda (t1195)
|
|
(if (memv t1195 '($module))
|
|
(begin
|
|
((lambda (iface1196)
|
|
(sc-put-module1192
|
|
(interface-exports449 iface1196)
|
|
(interface-token450 iface1196)
|
|
'()))
|
|
(binding-value286 binding1194))
|
|
(put-cte1193 id1191 binding1194 top-token1189))
|
|
(if (memv t1195 '(do-alias))
|
|
(store-import-binding411
|
|
id1191
|
|
top-token1189
|
|
'())
|
|
(if (memv t1195 '(do-import))
|
|
((lambda (token1197)
|
|
((lambda (b1198)
|
|
((lambda (t1199)
|
|
(if (memv t1199 '($module))
|
|
((lambda (iface1200)
|
|
((lambda (exports1201)
|
|
((lambda ()
|
|
(begin
|
|
(if (not (eq? (interface-token450
|
|
iface1200)
|
|
token1197))
|
|
(syntax-error
|
|
id1191
|
|
'"import mismatch for module")
|
|
(void))
|
|
(sc-put-module1192
|
|
(interface-exports449
|
|
iface1200)
|
|
top-token1189
|
|
(import-mark-delta500
|
|
id1191
|
|
iface1200))))))
|
|
(interface-exports449
|
|
iface1200)))
|
|
(binding-value286 b1198))
|
|
(syntax-error
|
|
id1191
|
|
'"unknown module")))
|
|
(binding-type285 b1198)))
|
|
(lookup305
|
|
(id-var-name429 id1191 '(()))
|
|
'())))
|
|
(binding-value286 b1190))
|
|
(put-cte1193
|
|
id1191
|
|
binding1194
|
|
top-token1189)))))
|
|
(binding-type285 binding1194)))
|
|
(make-transformer-binding306 b1190)))))
|
|
(global-extend308 'local-syntax 'letrec-syntax '#t)
|
|
(global-extend308 'local-syntax 'let-syntax '#f)
|
|
(global-extend308
|
|
'core
|
|
'fluid-let-syntax
|
|
(lambda (e1163 r1162 mr1161 w1160 ae1159 m?1158)
|
|
((lambda (tmp1164)
|
|
((lambda (tmp1165)
|
|
(if (if tmp1165
|
|
(apply
|
|
(lambda (_1170 var1169 val1168 e11167 e21166)
|
|
(valid-bound-ids?434 var1169))
|
|
tmp1165)
|
|
'#f)
|
|
(apply
|
|
(lambda (_1176 var1175 val1174 e11173 e21172)
|
|
((lambda (names1177)
|
|
(begin
|
|
(for-each
|
|
(lambda (id1184 n1183)
|
|
((lambda (t1185)
|
|
(if (memv t1185 '(displaced-lexical))
|
|
(displaced-lexical-error303
|
|
(wrap438 id1184 w1160))
|
|
(void)))
|
|
(binding-type285
|
|
(lookup305 n1183 r1162))))
|
|
var1175
|
|
names1177)
|
|
((lambda (b*1178)
|
|
(chi-body498 (cons e11173 e21172)
|
|
(source-wrap439 e1163 w1160 ae1159)
|
|
(extend-env*300 names1177 b*1178 r1162)
|
|
(extend-env*300 names1177 b*1178 mr1161)
|
|
w1160 m?1158))
|
|
(map (lambda (x1181)
|
|
(defer-or-eval-transformer307
|
|
local-eval-hook134
|
|
(chi493 x1181 mr1161 mr1161 w1160
|
|
'#t)))
|
|
val1174))))
|
|
(map (lambda (x1187)
|
|
(id-var-name429 x1187 w1160))
|
|
var1175)))
|
|
tmp1165)
|
|
((lambda (_1188)
|
|
(syntax-error (source-wrap439 e1163 w1160 ae1159)))
|
|
tmp1164)))
|
|
($syntax-dispatch
|
|
tmp1164
|
|
'(any #(each (any any)) any . each-any))))
|
|
e1163)))
|
|
(global-extend308
|
|
'core
|
|
'quote
|
|
(lambda (e1152 r1151 mr1150 w1149 ae1148 m?1147)
|
|
((lambda (tmp1153)
|
|
((lambda (tmp1154)
|
|
(if tmp1154
|
|
(apply
|
|
(lambda (_1156 e1155)
|
|
(list 'quote (strip517 e1155 w1149)))
|
|
tmp1154)
|
|
((lambda (_1157)
|
|
(syntax-error (source-wrap439 e1152 w1149 ae1148)))
|
|
tmp1153)))
|
|
($syntax-dispatch tmp1153 '(any any))))
|
|
e1152)))
|
|
(global-extend308
|
|
'core
|
|
'syntax
|
|
((lambda ()
|
|
(letrec ((gen-syntax1031 (lambda (src1092 e1091 r1090
|
|
maps1089 ellipsis?1088
|
|
vec?1087)
|
|
(if (id?310 e1091)
|
|
((lambda (label1093)
|
|
((lambda (b1094)
|
|
(if (eq? (binding-type285
|
|
b1094)
|
|
'syntax)
|
|
(call-with-values
|
|
(lambda ()
|
|
((lambda (var.lev1097)
|
|
(gen-ref1032
|
|
src1092
|
|
(car var.lev1097)
|
|
(cdr var.lev1097)
|
|
maps1089))
|
|
(binding-value286
|
|
b1094)))
|
|
(lambda (var1096
|
|
maps1095)
|
|
(values
|
|
(list
|
|
'ref
|
|
var1096)
|
|
maps1095)))
|
|
(if (ellipsis?1088
|
|
e1091)
|
|
(syntax-error
|
|
src1092
|
|
'"misplaced ellipsis in syntax form")
|
|
(values
|
|
(list
|
|
'quote
|
|
e1091)
|
|
maps1089))))
|
|
(lookup305
|
|
label1093
|
|
r1090)))
|
|
(id-var-name429 e1091 '(())))
|
|
((lambda (tmp1098)
|
|
((lambda (tmp1099)
|
|
(if (if tmp1099
|
|
(apply
|
|
(lambda (dots1101
|
|
e1100)
|
|
(ellipsis?1088
|
|
dots1101))
|
|
tmp1099)
|
|
'#f)
|
|
(apply
|
|
(lambda (dots1103
|
|
e1102)
|
|
(if vec?1087
|
|
(syntax-error
|
|
src1092
|
|
'"misplaced ellipsis in syntax template")
|
|
(gen-syntax1031
|
|
src1092
|
|
e1102 r1090
|
|
maps1089
|
|
(lambda (x1104)
|
|
'#f)
|
|
'#f)))
|
|
tmp1099)
|
|
((lambda (tmp1105)
|
|
(if (if tmp1105
|
|
(apply
|
|
(lambda (x1108
|
|
dots1107
|
|
y1106)
|
|
(ellipsis?1088
|
|
dots1107))
|
|
tmp1105)
|
|
'#f)
|
|
(apply
|
|
(lambda (x1111
|
|
dots1110
|
|
y1109)
|
|
((letrec ((f1112 (lambda (y1114
|
|
k1113)
|
|
((lambda (tmp1115)
|
|
((lambda (tmp1116)
|
|
(if (if tmp1116
|
|
(apply
|
|
(lambda (dots1118
|
|
y1117)
|
|
(ellipsis?1088
|
|
dots1118))
|
|
tmp1116)
|
|
'#f)
|
|
(apply
|
|
(lambda (dots1120
|
|
y1119)
|
|
(f1112
|
|
y1119
|
|
(lambda (maps1121)
|
|
(call-with-values
|
|
(lambda ()
|
|
(k1113
|
|
(cons
|
|
'()
|
|
maps1121)))
|
|
(lambda (x1123
|
|
maps1122)
|
|
(if (null?
|
|
(car maps1122))
|
|
(syntax-error
|
|
src1092
|
|
'"extra ellipsis in syntax form")
|
|
(values
|
|
(gen-mappend1034
|
|
x1123
|
|
(car maps1122))
|
|
(cdr maps1122))))))))
|
|
tmp1116)
|
|
((lambda (_1124)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax1031
|
|
src1092
|
|
y1114
|
|
r1090
|
|
maps1089
|
|
ellipsis?1088
|
|
vec?1087))
|
|
(lambda (y1126
|
|
maps1125)
|
|
(call-with-values
|
|
(lambda ()
|
|
(k1113
|
|
maps1125))
|
|
(lambda (x1128
|
|
maps1127)
|
|
(values
|
|
(gen-append1033
|
|
x1128
|
|
y1126)
|
|
maps1127))))))
|
|
tmp1115)))
|
|
($syntax-dispatch
|
|
tmp1115
|
|
'(any .
|
|
any))))
|
|
y1114))))
|
|
f1112)
|
|
y1109
|
|
(lambda (maps1129)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax1031
|
|
src1092
|
|
x1111
|
|
r1090
|
|
(cons
|
|
'()
|
|
maps1129)
|
|
ellipsis?1088
|
|
'#f))
|
|
(lambda (x1131
|
|
maps1130)
|
|
(if (null?
|
|
(car maps1130))
|
|
(syntax-error
|
|
src1092
|
|
'"extra ellipsis in syntax form")
|
|
(values
|
|
(gen-map1035
|
|
x1131
|
|
(car maps1130))
|
|
(cdr maps1130))))))))
|
|
tmp1105)
|
|
((lambda (tmp1132)
|
|
(if tmp1132
|
|
(apply
|
|
(lambda (x1134
|
|
y1133)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax1031
|
|
src1092
|
|
x1134
|
|
r1090
|
|
maps1089
|
|
ellipsis?1088
|
|
'#f))
|
|
(lambda (xnew1136
|
|
maps1135)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax1031
|
|
src1092
|
|
y1133
|
|
r1090
|
|
maps1135
|
|
ellipsis?1088
|
|
vec?1087))
|
|
(lambda (ynew1138
|
|
maps1137)
|
|
(values
|
|
(gen-cons1036
|
|
e1091
|
|
x1134
|
|
y1133
|
|
xnew1136
|
|
ynew1138)
|
|
maps1137))))))
|
|
tmp1132)
|
|
((lambda (tmp1139)
|
|
(if tmp1139
|
|
(apply
|
|
(lambda (x11141
|
|
x21140)
|
|
((lambda (ls1142)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax1031
|
|
src1092
|
|
ls1142
|
|
r1090
|
|
maps1089
|
|
ellipsis?1088
|
|
'#t))
|
|
(lambda (lsnew1144
|
|
maps1143)
|
|
(values
|
|
(gen-vector1037
|
|
e1091
|
|
ls1142
|
|
lsnew1144)
|
|
maps1143))))
|
|
(cons
|
|
x11141
|
|
x21140)))
|
|
tmp1139)
|
|
((lambda (_1146)
|
|
(values
|
|
(list
|
|
'quote
|
|
e1091)
|
|
maps1089))
|
|
tmp1098)))
|
|
($syntax-dispatch
|
|
tmp1098
|
|
'#(vector
|
|
(any .
|
|
each-any))))))
|
|
($syntax-dispatch
|
|
tmp1098
|
|
'(any .
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp1098
|
|
'(any any
|
|
.
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp1098
|
|
'(any any))))
|
|
e1091))))
|
|
(gen-ref1032 (lambda (src1082 var1081 level1080
|
|
maps1079)
|
|
(if (= level1080 '0)
|
|
(values var1081 maps1079)
|
|
(if (null? maps1079)
|
|
(syntax-error
|
|
src1082
|
|
'"missing ellipsis in syntax form")
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-ref1032
|
|
src1082
|
|
var1081
|
|
(fx- level1080 '1)
|
|
(cdr maps1079)))
|
|
(lambda (outer-var1084
|
|
outer-maps1083)
|
|
((lambda (b1085)
|
|
(if b1085
|
|
(values
|
|
(cdr b1085)
|
|
maps1079)
|
|
((lambda (inner-var1086)
|
|
(values
|
|
inner-var1086
|
|
(cons
|
|
(cons
|
|
(cons
|
|
outer-var1084
|
|
inner-var1086)
|
|
(car maps1079))
|
|
outer-maps1083)))
|
|
(gen-var518
|
|
'tmp))))
|
|
(assq
|
|
outer-var1084
|
|
(car maps1079)))))))))
|
|
(gen-append1033 (lambda (x1078 y1077)
|
|
(if (equal? y1077 ''())
|
|
x1078
|
|
(list 'append x1078 y1077))))
|
|
(gen-mappend1034 (lambda (e1076 map-env1075)
|
|
(list
|
|
'apply
|
|
'(primitive append)
|
|
(gen-map1035
|
|
e1076
|
|
map-env1075))))
|
|
(gen-map1035 (lambda (e1068 map-env1067)
|
|
((lambda (formals1070 actuals1069)
|
|
(if (eq? (car e1068) 'ref)
|
|
(car actuals1069)
|
|
(if (andmap
|
|
(lambda (x1071)
|
|
(if (eq? (car x1071)
|
|
'ref)
|
|
(memq
|
|
(cadr x1071)
|
|
formals1070)
|
|
'#f))
|
|
(cdr e1068))
|
|
(cons
|
|
'map
|
|
(cons
|
|
(list
|
|
'primitive
|
|
(car e1068))
|
|
(map ((lambda (r1072)
|
|
(lambda (x1073)
|
|
(cdr (assq
|
|
(cadr
|
|
x1073)
|
|
r1072))))
|
|
(map cons
|
|
formals1070
|
|
actuals1069))
|
|
(cdr e1068))))
|
|
(cons
|
|
'map
|
|
(cons
|
|
(list
|
|
'lambda
|
|
formals1070
|
|
e1068)
|
|
actuals1069)))))
|
|
(map cdr map-env1067)
|
|
(map (lambda (x1074)
|
|
(list 'ref (car x1074)))
|
|
map-env1067))))
|
|
(gen-cons1036 (lambda (e1063 x1062 y1061 xnew1060
|
|
ynew1059)
|
|
((lambda (t1064)
|
|
(if (memv t1064 '(quote))
|
|
(if (eq? (car xnew1060) 'quote)
|
|
((lambda (xnew1066
|
|
ynew1065)
|
|
(if (if (eq? xnew1066
|
|
x1062)
|
|
(eq? ynew1065
|
|
y1061)
|
|
'#f)
|
|
(list 'quote e1063)
|
|
(list
|
|
'quote
|
|
(cons
|
|
xnew1066
|
|
ynew1065))))
|
|
(cadr xnew1060)
|
|
(cadr ynew1059))
|
|
(if (eq? (cadr ynew1059)
|
|
'())
|
|
(list 'list xnew1060)
|
|
(list
|
|
'cons
|
|
xnew1060
|
|
ynew1059)))
|
|
(if (memv t1064 '(list))
|
|
(cons
|
|
'list
|
|
(cons
|
|
xnew1060
|
|
(cdr ynew1059)))
|
|
(list
|
|
'cons
|
|
xnew1060
|
|
ynew1059))))
|
|
(car ynew1059))))
|
|
(gen-vector1037 (lambda (e1058 ls1057 lsnew1056)
|
|
(if (eq? (car lsnew1056) 'quote)
|
|
(if (eq? (cadr lsnew1056)
|
|
ls1057)
|
|
(list 'quote e1058)
|
|
(list
|
|
'quote
|
|
(list->vector
|
|
(cadr lsnew1056))))
|
|
(if (eq? (car lsnew1056) 'list)
|
|
(cons
|
|
'vector
|
|
(cdr lsnew1056))
|
|
(list
|
|
'list->vector
|
|
lsnew1056)))))
|
|
(regen1038 (lambda (x1053)
|
|
((lambda (t1054)
|
|
(if (memv t1054 '(ref))
|
|
(cadr x1053)
|
|
(if (memv t1054 '(primitive))
|
|
(cadr x1053)
|
|
(if (memv t1054 '(quote))
|
|
(list 'quote (cadr x1053))
|
|
(if (memv t1054 '(lambda))
|
|
(list
|
|
'lambda
|
|
(cadr x1053)
|
|
(regen1038
|
|
(caddr x1053)))
|
|
(if (memv
|
|
t1054
|
|
'(map))
|
|
((lambda (ls1055)
|
|
(cons
|
|
(if (= (length
|
|
ls1055)
|
|
'2)
|
|
'map
|
|
'map)
|
|
ls1055))
|
|
(map regen1038
|
|
(cdr x1053)))
|
|
(cons
|
|
(car x1053)
|
|
(map regen1038
|
|
(cdr x1053)))))))))
|
|
(car x1053)))))
|
|
(lambda (e1044 r1043 mr1042 w1041 ae1040 m?1039)
|
|
((lambda (e1045)
|
|
((lambda (tmp1046)
|
|
((lambda (tmp1047)
|
|
(if tmp1047
|
|
(apply
|
|
(lambda (_1049 x1048)
|
|
(call-with-values
|
|
(lambda ()
|
|
(gen-syntax1031 e1045 x1048 r1043 '()
|
|
ellipsis?514 '#f))
|
|
(lambda (e1051 maps1050)
|
|
(regen1038 e1051))))
|
|
tmp1047)
|
|
((lambda (_1052) (syntax-error e1045))
|
|
tmp1046)))
|
|
($syntax-dispatch tmp1046 '(any any))))
|
|
e1045))
|
|
(source-wrap439 e1044 w1041 ae1040)))))))
|
|
(global-extend308
|
|
'core
|
|
'lambda
|
|
(lambda (e1024 r1023 mr1022 w1021 ae1020 m?1019)
|
|
((lambda (tmp1025)
|
|
((lambda (tmp1026)
|
|
(if tmp1026
|
|
(apply
|
|
(lambda (_1028 c1027)
|
|
(call-with-values
|
|
(lambda ()
|
|
(chi-lambda-clause511
|
|
(source-wrap439 e1024 w1021 ae1020) c1027
|
|
r1023 mr1022 w1021 m?1019))
|
|
(lambda (vars1030 body1029)
|
|
(list 'lambda vars1030 body1029))))
|
|
tmp1026)
|
|
(syntax-error tmp1025)))
|
|
($syntax-dispatch tmp1025 '(any . any))))
|
|
e1024)))
|
|
(global-extend308
|
|
'core
|
|
'letrec
|
|
(lambda (e1000 r999 mr998 w997 ae996 m?995)
|
|
((lambda (tmp1001)
|
|
((lambda (tmp1002)
|
|
(if tmp1002
|
|
(apply
|
|
(lambda (_1007 id1006 val1005 e11004 e21003)
|
|
((lambda (ids1008)
|
|
(if (not (valid-bound-ids?434 ids1008))
|
|
(invalid-ids-error436
|
|
(map (lambda (x1009)
|
|
(wrap438 x1009 w997))
|
|
ids1008)
|
|
(source-wrap439 e1000 w997 ae996)
|
|
'"bound variable")
|
|
((lambda (labels1011 new-vars1010)
|
|
((lambda (w1013 r1012)
|
|
(build-letrec240
|
|
ae996
|
|
new-vars1010
|
|
(map (lambda (x1016)
|
|
(chi493 x1016 r1012 mr998
|
|
w1013 m?995))
|
|
val1005)
|
|
(chi-body498 (cons e11004 e21003)
|
|
(source-wrap439
|
|
e1000
|
|
w1013
|
|
ae996)
|
|
r1012 mr998 w1013 m?995)))
|
|
(make-binding-wrap412
|
|
ids1008
|
|
labels1011
|
|
w997)
|
|
(extend-var-env*301
|
|
labels1011
|
|
new-vars1010
|
|
r999)))
|
|
(gen-labels359 ids1008)
|
|
(map gen-var518 ids1008))))
|
|
id1006))
|
|
tmp1002)
|
|
((lambda (_1018)
|
|
(syntax-error (source-wrap439 e1000 w997 ae996)))
|
|
tmp1001)))
|
|
($syntax-dispatch
|
|
tmp1001
|
|
'(any #(each (any any)) any . each-any))))
|
|
e1000)))
|
|
(global-extend308
|
|
'core
|
|
'if
|
|
(lambda (e983 r982 mr981 w980 ae979 m?978)
|
|
((lambda (tmp984)
|
|
((lambda (tmp985)
|
|
(if tmp985
|
|
(apply
|
|
(lambda (_988 test987 then986)
|
|
(list
|
|
'if
|
|
(chi493 test987 r982 mr981 w980 m?978)
|
|
(chi493 then986 r982 mr981 w980 m?978)
|
|
(chi-void513)))
|
|
tmp985)
|
|
((lambda (tmp989)
|
|
(if tmp989
|
|
(apply
|
|
(lambda (_993 test992 then991 else990)
|
|
(list
|
|
'if
|
|
(chi493 test992 r982 mr981 w980 m?978)
|
|
(chi493 then991 r982 mr981 w980 m?978)
|
|
(chi493 else990 r982 mr981 w980 m?978)))
|
|
tmp989)
|
|
((lambda (_994)
|
|
(syntax-error
|
|
(source-wrap439 e983 w980 ae979)))
|
|
tmp984)))
|
|
($syntax-dispatch tmp984 '(any any any any)))))
|
|
($syntax-dispatch tmp984 '(any any any))))
|
|
e983)))
|
|
(global-extend308 'set! 'set! '())
|
|
(global-extend308 'alias 'alias '())
|
|
(global-extend308 'begin 'begin '())
|
|
(global-extend308 '$module-key '$module '())
|
|
(global-extend308 '$import '$import '())
|
|
(global-extend308 'define 'define '())
|
|
(global-extend308 'define-syntax 'define-syntax '())
|
|
(global-extend308 'eval-when 'eval-when '())
|
|
(global-extend308 'meta 'meta '())
|
|
(global-extend308
|
|
'core
|
|
'syntax-case
|
|
((lambda ()
|
|
(letrec ((convert-pattern850 (lambda (pattern927 keys926)
|
|
(letrec ((cvt*928 (lambda (p*973
|
|
n972
|
|
ids971)
|
|
(if (null?
|
|
p*973)
|
|
(values
|
|
'()
|
|
ids971)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt*928
|
|
(cdr p*973)
|
|
n972
|
|
ids971))
|
|
(lambda (y975
|
|
ids974)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt929
|
|
(car p*973)
|
|
n972
|
|
ids974))
|
|
(lambda (x977
|
|
ids976)
|
|
(values
|
|
(cons
|
|
x977
|
|
y975)
|
|
ids976))))))))
|
|
(cvt929 (lambda (p932
|
|
n931
|
|
ids930)
|
|
(if (id?310
|
|
p932)
|
|
(if (bound-id-member?437
|
|
p932
|
|
keys926)
|
|
(values
|
|
(vector
|
|
'free-id
|
|
p932)
|
|
ids930)
|
|
(values
|
|
'any
|
|
(cons
|
|
(cons
|
|
p932
|
|
n931)
|
|
ids930)))
|
|
((lambda (tmp933)
|
|
((lambda (tmp934)
|
|
(if (if tmp934
|
|
(apply
|
|
(lambda (x936
|
|
dots935)
|
|
(ellipsis?514
|
|
dots935))
|
|
tmp934)
|
|
'#f)
|
|
(apply
|
|
(lambda (x938
|
|
dots937)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt929
|
|
x938
|
|
(+ n931
|
|
'1)
|
|
ids930))
|
|
(lambda (p940
|
|
ids939)
|
|
(values
|
|
(if (eq? p940
|
|
'any)
|
|
'each-any
|
|
(vector
|
|
'each
|
|
p940))
|
|
ids939))))
|
|
tmp934)
|
|
((lambda (tmp941)
|
|
(if (if tmp941
|
|
(apply
|
|
(lambda (x945
|
|
dots944
|
|
y943
|
|
z942)
|
|
(ellipsis?514
|
|
dots944))
|
|
tmp941)
|
|
'#f)
|
|
(apply
|
|
(lambda (x949
|
|
dots948
|
|
y947
|
|
z946)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt929
|
|
z946
|
|
n931
|
|
ids930))
|
|
(lambda (z951
|
|
ids950)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt*928
|
|
y947
|
|
n931
|
|
ids950))
|
|
(lambda (y953
|
|
ids952)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt929
|
|
x949
|
|
(+ n931
|
|
'1)
|
|
ids952))
|
|
(lambda (x955
|
|
ids954)
|
|
(values
|
|
(vector
|
|
'each+
|
|
x955
|
|
(reverse
|
|
y953)
|
|
z951)
|
|
ids954))))))))
|
|
tmp941)
|
|
((lambda (tmp957)
|
|
(if tmp957
|
|
(apply
|
|
(lambda (x959
|
|
y958)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt929
|
|
y958
|
|
n931
|
|
ids930))
|
|
(lambda (y961
|
|
ids960)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt929
|
|
x959
|
|
n931
|
|
ids960))
|
|
(lambda (x963
|
|
ids962)
|
|
(values
|
|
(cons
|
|
x963
|
|
y961)
|
|
ids962))))))
|
|
tmp957)
|
|
((lambda (tmp964)
|
|
(if tmp964
|
|
(apply
|
|
(lambda ()
|
|
(values
|
|
'()
|
|
ids930))
|
|
tmp964)
|
|
((lambda (tmp965)
|
|
(if tmp965
|
|
(apply
|
|
(lambda (x966)
|
|
(call-with-values
|
|
(lambda ()
|
|
(cvt929
|
|
x966
|
|
n931
|
|
ids930))
|
|
(lambda (p968
|
|
ids967)
|
|
(values
|
|
(vector
|
|
'vector
|
|
p968)
|
|
ids967))))
|
|
tmp965)
|
|
((lambda (x970)
|
|
(values
|
|
(vector
|
|
'atom
|
|
(strip517
|
|
p932
|
|
'(())))
|
|
ids930))
|
|
tmp933)))
|
|
($syntax-dispatch
|
|
tmp933
|
|
'#(vector
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp933
|
|
'()))))
|
|
($syntax-dispatch
|
|
tmp933
|
|
'(any .
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp933
|
|
'(any any
|
|
.
|
|
#(each+
|
|
any
|
|
()
|
|
any))))))
|
|
($syntax-dispatch
|
|
tmp933
|
|
'(any any))))
|
|
p932)))))
|
|
(cvt929 pattern927 '0 '()))))
|
|
(build-dispatch-call851 (lambda (pvars919 exp918 y917
|
|
r916 mr915 m?914)
|
|
((lambda (ids921 levels920)
|
|
((lambda (labels923
|
|
new-vars922)
|
|
(list
|
|
'apply
|
|
(list
|
|
'lambda
|
|
new-vars922
|
|
(chi493 exp918
|
|
(extend-env*300
|
|
labels923
|
|
(map (lambda (var925
|
|
level924)
|
|
(cons
|
|
'syntax
|
|
(cons
|
|
var925
|
|
level924)))
|
|
new-vars922
|
|
(map cdr
|
|
pvars919))
|
|
r916)
|
|
mr915
|
|
(make-binding-wrap412
|
|
ids921
|
|
labels923
|
|
'(()))
|
|
m?914))
|
|
y917))
|
|
(gen-labels359 ids921)
|
|
(map gen-var518
|
|
ids921)))
|
|
(map car pvars919)
|
|
(map cdr pvars919))))
|
|
(gen-clause852 (lambda (x897 keys896 clauses895 r894
|
|
mr893 m?892 pat891 fender890
|
|
exp889)
|
|
(call-with-values
|
|
(lambda ()
|
|
(convert-pattern850
|
|
pat891
|
|
keys896))
|
|
(lambda (p899 pvars898)
|
|
(if (not (distinct-bound-ids?435
|
|
(map car pvars898)))
|
|
(invalid-ids-error436
|
|
(map car pvars898)
|
|
pat891
|
|
'"pattern variable")
|
|
(if (not (andmap
|
|
(lambda (x900)
|
|
(not (ellipsis?514
|
|
(car x900))))
|
|
pvars898))
|
|
(syntax-error
|
|
pat891
|
|
'"misplaced ellipsis in syntax-case pattern")
|
|
((lambda (y901)
|
|
(list
|
|
(list
|
|
'lambda
|
|
(list y901)
|
|
(list
|
|
'if
|
|
((lambda (tmp911)
|
|
((lambda (tmp912)
|
|
(if tmp912
|
|
(apply
|
|
(lambda ()
|
|
y901)
|
|
tmp912)
|
|
((lambda (_913)
|
|
(list
|
|
'if
|
|
y901
|
|
(build-dispatch-call851
|
|
pvars898
|
|
fender890
|
|
y901
|
|
r894
|
|
mr893
|
|
m?892)
|
|
(list
|
|
'quote
|
|
'#f)))
|
|
tmp911)))
|
|
($syntax-dispatch
|
|
tmp911
|
|
'#(atom
|
|
#t))))
|
|
fender890)
|
|
(build-dispatch-call851
|
|
pvars898
|
|
exp889 y901
|
|
r894 mr893
|
|
m?892)
|
|
(gen-syntax-case853
|
|
x897 keys896
|
|
clauses895
|
|
r894 mr893
|
|
m?892)))
|
|
(if (eq? p899 'any)
|
|
(list
|
|
'list
|
|
x897)
|
|
(list
|
|
'$syntax-dispatch
|
|
x897
|
|
(list
|
|
'quote
|
|
p899)))))
|
|
(gen-var518
|
|
'tmp))))))))
|
|
(gen-syntax-case853 (lambda (x877 keys876 clauses875
|
|
r874 mr873 m?872)
|
|
(if (null? clauses875)
|
|
(list 'syntax-error x877)
|
|
((lambda (tmp878)
|
|
((lambda (tmp879)
|
|
(if tmp879
|
|
(apply
|
|
(lambda (pat881
|
|
exp880)
|
|
(if (if (id?310
|
|
pat881)
|
|
(if (not (bound-id-member?437
|
|
pat881
|
|
keys876))
|
|
(not (ellipsis?514
|
|
pat881))
|
|
'#f)
|
|
'#f)
|
|
((lambda (label883
|
|
var882)
|
|
(list
|
|
(list
|
|
'lambda
|
|
(list
|
|
var882)
|
|
(chi493
|
|
exp880
|
|
(extend-env299
|
|
label883
|
|
(cons
|
|
'syntax
|
|
(cons
|
|
var882
|
|
'0))
|
|
r874)
|
|
mr873
|
|
(make-binding-wrap412
|
|
(list
|
|
pat881)
|
|
(list
|
|
label883)
|
|
'(()))
|
|
m?872))
|
|
x877))
|
|
(gen-label357)
|
|
(gen-var518
|
|
pat881))
|
|
(gen-clause852
|
|
x877
|
|
keys876
|
|
(cdr clauses875)
|
|
r874
|
|
mr873
|
|
m?872
|
|
pat881
|
|
'#t
|
|
exp880)))
|
|
tmp879)
|
|
((lambda (tmp884)
|
|
(if tmp884
|
|
(apply
|
|
(lambda (pat887
|
|
fender886
|
|
exp885)
|
|
(gen-clause852
|
|
x877
|
|
keys876
|
|
(cdr clauses875)
|
|
r874
|
|
mr873
|
|
m?872
|
|
pat887
|
|
fender886
|
|
exp885))
|
|
tmp884)
|
|
((lambda (_888)
|
|
(syntax-error
|
|
(car clauses875)
|
|
'"invalid syntax-case clause"))
|
|
tmp878)))
|
|
($syntax-dispatch
|
|
tmp878
|
|
'(any any
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp878
|
|
'(any any))))
|
|
(car clauses875))))))
|
|
(lambda (e859 r858 mr857 w856 ae855 m?854)
|
|
((lambda (e860)
|
|
((lambda (tmp861)
|
|
((lambda (tmp862)
|
|
(if tmp862
|
|
(apply
|
|
(lambda (_866 val865 key864 m863)
|
|
(if (andmap
|
|
(lambda (x868)
|
|
(if (id?310 x868)
|
|
(not (ellipsis?514 x868))
|
|
'#f))
|
|
key864)
|
|
((lambda (x869)
|
|
(list
|
|
(list
|
|
'lambda
|
|
(list x869)
|
|
(gen-syntax-case853 x869 key864
|
|
m863 r858 mr857 m?854))
|
|
(chi493 val865 r858 mr857 '(())
|
|
m?854)))
|
|
(gen-var518 'tmp))
|
|
(syntax-error
|
|
e860
|
|
'"invalid literals list in")))
|
|
tmp862)
|
|
(syntax-error tmp861)))
|
|
($syntax-dispatch
|
|
tmp861
|
|
'(any any each-any . each-any))))
|
|
e860))
|
|
(source-wrap439 e859 w856 ae855)))))))
|
|
(put-cte-hook141
|
|
'module
|
|
(lambda (x819)
|
|
(letrec ((proper-export?820 (lambda (e843)
|
|
((lambda (tmp844)
|
|
((lambda (tmp845)
|
|
(if tmp845
|
|
(apply
|
|
(lambda (id847 e846)
|
|
(if (identifier?
|
|
id847)
|
|
(andmap
|
|
proper-export?820
|
|
e846)
|
|
'#f))
|
|
tmp845)
|
|
((lambda (id849)
|
|
(identifier? id849))
|
|
tmp844)))
|
|
($syntax-dispatch
|
|
tmp844
|
|
'(any . each-any))))
|
|
e843))))
|
|
((lambda (tmp821)
|
|
((lambda (orig822)
|
|
((lambda (tmp823)
|
|
((lambda (tmp824)
|
|
(if tmp824
|
|
(apply
|
|
(lambda (_827 e826 d825)
|
|
(if (andmap proper-export?820 e826)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
orig822
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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 e826 d825))))
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
orig822
|
|
'#(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
x819
|
|
'"invalid exports list in")))
|
|
tmp824)
|
|
((lambda (tmp831)
|
|
(if (if tmp831
|
|
(apply
|
|
(lambda (_835 m834 e833 d832)
|
|
(identifier? m834))
|
|
tmp831)
|
|
'#f)
|
|
(apply
|
|
(lambda (_839 m838 e837 d836)
|
|
(if (andmap proper-export?820 e837)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
orig822
|
|
(cons
|
|
m838
|
|
(cons e837 d836))))
|
|
(syntax-error
|
|
x819
|
|
'"invalid exports list in")))
|
|
tmp831)
|
|
(syntax-error tmp823)))
|
|
($syntax-dispatch
|
|
tmp823
|
|
'(any any each-any . each-any)))))
|
|
($syntax-dispatch
|
|
tmp823
|
|
'(any each-any . each-any))))
|
|
x819))
|
|
tmp821))
|
|
x819))))
|
|
((lambda ()
|
|
(letrec (($module-exports622 (lambda (m811 r810)
|
|
((lambda (b812)
|
|
((lambda (t813)
|
|
(if (memv t813 '($module))
|
|
((lambda (interface814)
|
|
((lambda (new-marks815)
|
|
((lambda ()
|
|
(vmap482
|
|
(lambda (x816)
|
|
((lambda (id817)
|
|
(make-syntax-object63
|
|
(syntax-object->datum
|
|
id817)
|
|
((lambda (marks818)
|
|
(make-wrap319
|
|
marks818
|
|
(if (eq? (car marks818)
|
|
'#f)
|
|
(cons
|
|
'shift
|
|
(wrap-subst321
|
|
'((top))))
|
|
(wrap-subst321
|
|
'((top))))))
|
|
(join-marks418
|
|
new-marks815
|
|
(wrap-marks320
|
|
(syntax-object-wrap66
|
|
id817))))))
|
|
(if (pair?
|
|
x816)
|
|
(car x816)
|
|
x816)))
|
|
(interface-exports449
|
|
interface814)))))
|
|
(import-mark-delta500
|
|
m811
|
|
interface814)))
|
|
(binding-value286
|
|
b812))
|
|
(if (memv
|
|
t813
|
|
'(displaced-lexical))
|
|
(displaced-lexical-error303
|
|
m811)
|
|
(syntax-error
|
|
m811
|
|
'"unknown module"))))
|
|
(binding-type285 b812)))
|
|
(r810 m811))))
|
|
($import-help623 (lambda (orig627 import-only?626)
|
|
(lambda (r628)
|
|
(letrec ((difference629 (lambda (ls1809
|
|
ls2808)
|
|
(if (null?
|
|
ls1809)
|
|
ls1809
|
|
(if (bound-id-member?437
|
|
(car ls1809)
|
|
ls2808)
|
|
(difference629
|
|
(cdr ls1809)
|
|
ls2808)
|
|
(cons
|
|
(car ls1809)
|
|
(difference629
|
|
(cdr ls1809)
|
|
ls2808))))))
|
|
(prefix-add630 (lambda (prefix-id805)
|
|
((lambda (prefix806)
|
|
(lambda (id807)
|
|
(datum->syntax-object
|
|
id807
|
|
(string->symbol
|
|
(string-append
|
|
prefix806
|
|
(symbol->string
|
|
(syntax-object->datum
|
|
id807)))))))
|
|
(symbol->string
|
|
(syntax-object->datum
|
|
prefix-id805)))))
|
|
(prefix-drop631 (lambda (prefix-id799)
|
|
((lambda (prefix800)
|
|
(lambda (id801)
|
|
((lambda (s802)
|
|
((lambda (np804
|
|
ns803)
|
|
(begin
|
|
(if (not (if (>= ns803
|
|
np804)
|
|
(string=?
|
|
(substring
|
|
s802
|
|
'0
|
|
np804)
|
|
prefix800)
|
|
'#f))
|
|
(syntax-error
|
|
id801
|
|
(string-append
|
|
'"missing expected prefix "
|
|
prefix800))
|
|
(void))
|
|
(datum->syntax-object
|
|
id801
|
|
(string->symbol
|
|
(substring
|
|
s802
|
|
np804
|
|
ns803)))))
|
|
(string-length
|
|
prefix800)
|
|
(string-length
|
|
s802)))
|
|
(symbol->string
|
|
(syntax-object->datum
|
|
id801)))))
|
|
(symbol->string
|
|
(syntax-object->datum
|
|
prefix-id799)))))
|
|
(gen-mid632 (lambda (mid798)
|
|
(datum->syntax-object
|
|
mid798
|
|
(gensym))))
|
|
(modspec633 (lambda (m649
|
|
exports?648)
|
|
((lambda (tmp650)
|
|
((lambda (tmp651)
|
|
(if tmp651
|
|
(apply
|
|
(lambda (orig653
|
|
import-only?652)
|
|
((lambda (tmp654)
|
|
((lambda (tmp655)
|
|
(if (if tmp655
|
|
(apply
|
|
(lambda (m657
|
|
id656)
|
|
(andmap
|
|
identifier?
|
|
id656))
|
|
tmp655)
|
|
'#f)
|
|
(apply
|
|
(lambda (m660
|
|
id659)
|
|
(call-with-values
|
|
(lambda ()
|
|
(modspec633
|
|
m660
|
|
'#f))
|
|
(lambda (mid663
|
|
d662
|
|
exports661)
|
|
((lambda (tmp664)
|
|
((lambda (tmp665)
|
|
(if tmp665
|
|
(apply
|
|
(lambda (d667
|
|
tmid666)
|
|
(values
|
|
mid663
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
orig653
|
|
tmid666
|
|
id659
|
|
d667)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
orig653
|
|
import-only?652
|
|
tmid666))
|
|
(if exports?648
|
|
id659
|
|
'#f)))
|
|
tmp665)
|
|
(syntax-error
|
|
tmp664)))
|
|
($syntax-dispatch
|
|
tmp664
|
|
'(any any))))
|
|
(list
|
|
d662
|
|
(gen-mid632
|
|
mid663))))))
|
|
tmp655)
|
|
((lambda (tmp670)
|
|
(if (if tmp670
|
|
(apply
|
|
(lambda (m672
|
|
id671)
|
|
(andmap
|
|
identifier?
|
|
id671))
|
|
tmp670)
|
|
'#f)
|
|
(apply
|
|
(lambda (m675
|
|
id674)
|
|
(call-with-values
|
|
(lambda ()
|
|
(modspec633
|
|
m675
|
|
'#t))
|
|
(lambda (mid678
|
|
d677
|
|
exports676)
|
|
((lambda (tmp679)
|
|
((lambda (tmp681)
|
|
(if tmp681
|
|
(apply
|
|
(lambda (d684
|
|
tmid683
|
|
id682)
|
|
(values
|
|
mid678
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
orig653
|
|
tmid683
|
|
id682
|
|
d684)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
orig653
|
|
import-only?652
|
|
tmid683))
|
|
(if exports?648
|
|
id682
|
|
'#f)))
|
|
tmp681)
|
|
(syntax-error
|
|
tmp679)))
|
|
($syntax-dispatch
|
|
tmp679
|
|
'(any any
|
|
each-any))))
|
|
(list
|
|
d677
|
|
(gen-mid632
|
|
mid678)
|
|
(difference629
|
|
exports676
|
|
id674))))))
|
|
tmp670)
|
|
((lambda (tmp687)
|
|
(if (if tmp687
|
|
(apply
|
|
(lambda (m689
|
|
prefix-id688)
|
|
(identifier?
|
|
prefix-id688))
|
|
tmp687)
|
|
'#f)
|
|
(apply
|
|
(lambda (m691
|
|
prefix-id690)
|
|
(call-with-values
|
|
(lambda ()
|
|
(modspec633
|
|
m691
|
|
'#t))
|
|
(lambda (mid694
|
|
d693
|
|
exports692)
|
|
((lambda (tmp695)
|
|
((lambda (tmp696)
|
|
(if tmp696
|
|
(apply
|
|
(lambda (d701
|
|
tmid700
|
|
old-id699
|
|
tmp698
|
|
id697)
|
|
(values
|
|
mid694
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
orig653
|
|
(cons
|
|
tmid700
|
|
(cons
|
|
(map list
|
|
id697
|
|
tmp698)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
orig653
|
|
(cons
|
|
tmid700
|
|
(cons
|
|
(map list
|
|
tmp698
|
|
old-id699)
|
|
(cons
|
|
d701
|
|
(map (lambda (tmp708
|
|
tmp707)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
tmp707
|
|
tmp708))
|
|
old-id699
|
|
tmp698))))))
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
orig653
|
|
import-only?652
|
|
tmid700)
|
|
(map (lambda (tmp710
|
|
tmp709)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
tmp709
|
|
tmp710))
|
|
tmp698
|
|
id697)))))))
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
orig653
|
|
import-only?652
|
|
tmid700))
|
|
(if exports?648
|
|
id697
|
|
'#f)))
|
|
tmp696)
|
|
(syntax-error
|
|
tmp695)))
|
|
($syntax-dispatch
|
|
tmp695
|
|
'(any any
|
|
each-any
|
|
each-any
|
|
each-any))))
|
|
(list
|
|
d693
|
|
(gen-mid632
|
|
mid694)
|
|
exports692
|
|
(generate-temporaries
|
|
exports692)
|
|
(map (prefix-add630
|
|
prefix-id690)
|
|
exports692))))))
|
|
tmp687)
|
|
((lambda (tmp711)
|
|
(if (if tmp711
|
|
(apply
|
|
(lambda (m713
|
|
prefix-id712)
|
|
(identifier?
|
|
prefix-id712))
|
|
tmp711)
|
|
'#f)
|
|
(apply
|
|
(lambda (m715
|
|
prefix-id714)
|
|
(call-with-values
|
|
(lambda ()
|
|
(modspec633
|
|
m715
|
|
'#t))
|
|
(lambda (mid718
|
|
d717
|
|
exports716)
|
|
((lambda (tmp719)
|
|
((lambda (tmp720)
|
|
(if tmp720
|
|
(apply
|
|
(lambda (d725
|
|
tmid724
|
|
old-id723
|
|
tmp722
|
|
id721)
|
|
(values
|
|
mid718
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
orig653
|
|
(cons
|
|
tmid724
|
|
(cons
|
|
(map list
|
|
id721
|
|
tmp722)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
orig653
|
|
(cons
|
|
tmid724
|
|
(cons
|
|
(map list
|
|
tmp722
|
|
old-id723)
|
|
(cons
|
|
d725
|
|
(map (lambda (tmp732
|
|
tmp731)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
tmp731
|
|
tmp732))
|
|
old-id723
|
|
tmp722))))))
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
orig653
|
|
import-only?652
|
|
tmid724)
|
|
(map (lambda (tmp734
|
|
tmp733)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
tmp733
|
|
tmp734))
|
|
tmp722
|
|
id721)))))))
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
orig653
|
|
import-only?652
|
|
tmid724))
|
|
(if exports?648
|
|
id721
|
|
'#f)))
|
|
tmp720)
|
|
(syntax-error
|
|
tmp719)))
|
|
($syntax-dispatch
|
|
tmp719
|
|
'(any any
|
|
each-any
|
|
each-any
|
|
each-any))))
|
|
(list
|
|
d717
|
|
(gen-mid632
|
|
mid718)
|
|
exports716
|
|
(generate-temporaries
|
|
exports716)
|
|
(map (prefix-drop631
|
|
prefix-id714)
|
|
exports716))))))
|
|
tmp711)
|
|
((lambda (tmp735)
|
|
(if (if tmp735
|
|
(apply
|
|
(lambda (m738
|
|
new-id737
|
|
old-id736)
|
|
(if (andmap
|
|
identifier?
|
|
new-id737)
|
|
(andmap
|
|
identifier?
|
|
old-id736)
|
|
'#f))
|
|
tmp735)
|
|
'#f)
|
|
(apply
|
|
(lambda (m743
|
|
new-id742
|
|
old-id741)
|
|
(call-with-values
|
|
(lambda ()
|
|
(modspec633
|
|
m743
|
|
'#t))
|
|
(lambda (mid746
|
|
d745
|
|
exports744)
|
|
((lambda (tmp747)
|
|
((lambda (tmp750)
|
|
(if tmp750
|
|
(apply
|
|
(lambda (d754
|
|
tmid753
|
|
tmp752
|
|
other-id751)
|
|
(values
|
|
mid746
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
orig653
|
|
(cons
|
|
tmid753
|
|
(cons
|
|
(append
|
|
(map list
|
|
new-id742
|
|
tmp752)
|
|
other-id751)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
orig653
|
|
(cons
|
|
tmid753
|
|
(cons
|
|
(append
|
|
other-id751
|
|
(map list
|
|
tmp752
|
|
old-id741))
|
|
(cons
|
|
d754
|
|
(map (lambda (tmp764
|
|
tmp763)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
tmp763
|
|
tmp764))
|
|
old-id741
|
|
tmp752))))))
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
orig653
|
|
import-only?652
|
|
tmid753)
|
|
(map (lambda (tmp766
|
|
tmp765)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
tmp765
|
|
tmp766))
|
|
tmp752
|
|
new-id742)))))))
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
orig653
|
|
import-only?652
|
|
tmid753))
|
|
(if exports?648
|
|
(append
|
|
new-id742
|
|
other-id751)
|
|
'#f)))
|
|
tmp750)
|
|
(syntax-error
|
|
tmp747)))
|
|
($syntax-dispatch
|
|
tmp747
|
|
'(any any
|
|
each-any
|
|
each-any))))
|
|
(list
|
|
d745
|
|
(gen-mid632
|
|
mid746)
|
|
(generate-temporaries
|
|
old-id741)
|
|
(difference629
|
|
exports744
|
|
old-id741))))))
|
|
tmp735)
|
|
((lambda (tmp767)
|
|
(if (if tmp767
|
|
(apply
|
|
(lambda (m770
|
|
new-id769
|
|
old-id768)
|
|
(if (andmap
|
|
identifier?
|
|
new-id769)
|
|
(andmap
|
|
identifier?
|
|
old-id768)
|
|
'#f))
|
|
tmp767)
|
|
'#f)
|
|
(apply
|
|
(lambda (m775
|
|
new-id774
|
|
old-id773)
|
|
(call-with-values
|
|
(lambda ()
|
|
(modspec633
|
|
m775
|
|
'#t))
|
|
(lambda (mid778
|
|
d777
|
|
exports776)
|
|
((lambda (tmp779)
|
|
((lambda (tmp780)
|
|
(if tmp780
|
|
(apply
|
|
(lambda (d783
|
|
tmid782
|
|
other-id781)
|
|
(values
|
|
mid778
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
orig653
|
|
(cons
|
|
tmid782
|
|
(cons
|
|
(append
|
|
(map list
|
|
new-id774
|
|
old-id773)
|
|
other-id781)
|
|
(cons
|
|
d783
|
|
(map (lambda (tmp790
|
|
tmp789)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
tmp789
|
|
tmp790))
|
|
old-id773
|
|
new-id774))))))
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
orig653
|
|
import-only?652
|
|
tmid782))
|
|
(if exports?648
|
|
(append
|
|
new-id774
|
|
other-id781)
|
|
'#f)))
|
|
tmp780)
|
|
(syntax-error
|
|
tmp779)))
|
|
($syntax-dispatch
|
|
tmp779
|
|
'(any any
|
|
each-any))))
|
|
(list
|
|
d777
|
|
(gen-mid632
|
|
mid778)
|
|
exports776)))))
|
|
tmp767)
|
|
((lambda (tmp791)
|
|
(if (if tmp791
|
|
(apply
|
|
(lambda (mid792)
|
|
(identifier?
|
|
mid792))
|
|
tmp791)
|
|
'#f)
|
|
(apply
|
|
(lambda (mid793)
|
|
(values
|
|
mid793
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
orig653
|
|
import-only?652
|
|
mid793)
|
|
(if exports?648
|
|
($module-exports622
|
|
mid793
|
|
r628)
|
|
'#f)))
|
|
tmp791)
|
|
((lambda (tmp794)
|
|
(if (if tmp794
|
|
(apply
|
|
(lambda (mid795)
|
|
(identifier?
|
|
mid795))
|
|
tmp794)
|
|
'#f)
|
|
(apply
|
|
(lambda (mid796)
|
|
(values
|
|
mid796
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
orig653
|
|
import-only?652
|
|
mid796)
|
|
(if exports?648
|
|
($module-exports622
|
|
mid796
|
|
r628)
|
|
'#f)))
|
|
tmp794)
|
|
((lambda (_797)
|
|
(syntax-error
|
|
m649
|
|
'"invalid module specifier"))
|
|
tmp654)))
|
|
($syntax-dispatch
|
|
tmp654
|
|
'(any)))))
|
|
(list
|
|
tmp654))))
|
|
($syntax-dispatch
|
|
tmp654
|
|
'(#(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
tmp654
|
|
'(#(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
tmp654
|
|
'(#(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
tmp654
|
|
'(#(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
tmp654
|
|
'(#(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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
|
|
tmp654
|
|
'(#(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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))))
|
|
m649))
|
|
tmp651)
|
|
(syntax-error
|
|
tmp650)))
|
|
($syntax-dispatch
|
|
tmp650
|
|
'(any any))))
|
|
(list
|
|
orig627
|
|
import-only?626))))
|
|
(modspec*634 (lambda (m644)
|
|
(call-with-values
|
|
(lambda ()
|
|
(modspec633
|
|
m644
|
|
'#f))
|
|
(lambda (mid647
|
|
d646
|
|
exports645)
|
|
d646)))))
|
|
((lambda (tmp635)
|
|
((lambda (tmp636)
|
|
(if tmp636
|
|
(apply
|
|
(lambda (_638 m637)
|
|
((lambda (tmp639)
|
|
((lambda (tmp641)
|
|
(if tmp641
|
|
(apply
|
|
(lambda (d642)
|
|
(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? 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 put-import-binding get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook gensym-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)))
|
|
d642))
|
|
tmp641)
|
|
(syntax-error
|
|
tmp639)))
|
|
($syntax-dispatch
|
|
tmp639
|
|
'each-any)))
|
|
(map modspec*634
|
|
m637)))
|
|
tmp636)
|
|
(syntax-error tmp635)))
|
|
($syntax-dispatch
|
|
tmp635
|
|
'(any . each-any))))
|
|
orig627))))))
|
|
(begin
|
|
(put-cte-hook141
|
|
'import
|
|
(lambda (orig625) ($import-help623 orig625 '#f)))
|
|
(put-cte-hook141
|
|
'import-only
|
|
(lambda (orig624) ($import-help623 orig624 '#t)))))))
|
|
(set! sc-expand
|
|
((lambda (ctem619 rtem618)
|
|
(lambda (x620)
|
|
((lambda (env621)
|
|
(if (if (pair? x620) (equal? (car x620) noexpand62) '#f)
|
|
(cadr x620)
|
|
(chi-top*442 x620 '() (env-wrap383 env621) ctem619
|
|
rtem618 '#f (env-top-ribcage382 env621))))
|
|
(interaction-environment))))
|
|
'(e)
|
|
'(e)))
|
|
(set! $make-environment
|
|
(lambda (token616 mutable?615)
|
|
((lambda (top-ribcage617)
|
|
(make-env380
|
|
top-ribcage617
|
|
(make-wrap319
|
|
(wrap-marks320 '((top)))
|
|
(cons top-ribcage617 (wrap-subst321 '((top)))))))
|
|
(make-top-ribcage368 token616 mutable?615))))
|
|
(set! environment? (lambda (x614) (env?381 x614)))
|
|
(set! interaction-environment
|
|
((lambda (e613) (lambda () e613))
|
|
($make-environment '*top* '#t)))
|
|
(set! identifier? (lambda (x612) (nonsymbol-id?309 x612)))
|
|
(set! datum->syntax-object
|
|
(lambda (id610 datum609)
|
|
(begin
|
|
((lambda (x611)
|
|
(if (not (nonsymbol-id?309 x611))
|
|
(error-hook136
|
|
'datum->syntax-object
|
|
'"invalid argument"
|
|
x611)
|
|
(void)))
|
|
id610)
|
|
(make-syntax-object63
|
|
datum609
|
|
(syntax-object-wrap66 id610)))))
|
|
(set! syntax->list
|
|
(lambda (orig-ls600)
|
|
((letrec ((f601 (lambda (ls602)
|
|
((lambda (tmp603)
|
|
((lambda (tmp604)
|
|
(if tmp604
|
|
(apply (lambda () '()) tmp604)
|
|
((lambda (tmp605)
|
|
(if tmp605
|
|
(apply
|
|
(lambda (x607 r606)
|
|
(cons x607 (f601 r606)))
|
|
tmp605)
|
|
((lambda (_608)
|
|
(error 'syntax->list
|
|
'"invalid argument ~s"
|
|
orig-ls600))
|
|
tmp603)))
|
|
($syntax-dispatch
|
|
tmp603
|
|
'(any . any)))))
|
|
($syntax-dispatch tmp603 '())))
|
|
ls602))))
|
|
f601)
|
|
orig-ls600)))
|
|
(set! syntax->vector
|
|
(lambda (v594)
|
|
((lambda (tmp595)
|
|
((lambda (tmp596)
|
|
(if tmp596
|
|
(apply
|
|
(lambda (x597) (apply vector (syntax->list x597)))
|
|
tmp596)
|
|
((lambda (_599)
|
|
(error 'syntax->vector
|
|
'"invalid argument ~s"
|
|
v594))
|
|
tmp595)))
|
|
($syntax-dispatch tmp595 '#(vector each-any))))
|
|
v594)))
|
|
(set! syntax-object->datum
|
|
(lambda (x593) (strip517 x593 '(()))))
|
|
(set! generate-temporaries
|
|
(lambda (ls590)
|
|
(begin
|
|
((lambda (x592)
|
|
(if (not (list? x592))
|
|
(error-hook136
|
|
'generate-temporaries
|
|
'"invalid argument"
|
|
x592)
|
|
(void)))
|
|
ls590)
|
|
(map (lambda (x591) (wrap438 (gensym) '((top)))) ls590))))
|
|
(set! free-identifier=?
|
|
(lambda (x587 y586)
|
|
(begin
|
|
((lambda (x589)
|
|
(if (not (nonsymbol-id?309 x589))
|
|
(error-hook136
|
|
'free-identifier=?
|
|
'"invalid argument"
|
|
x589)
|
|
(void)))
|
|
x587)
|
|
((lambda (x588)
|
|
(if (not (nonsymbol-id?309 x588))
|
|
(error-hook136
|
|
'free-identifier=?
|
|
'"invalid argument"
|
|
x588)
|
|
(void)))
|
|
y586)
|
|
(free-id=?430 x587 y586))))
|
|
(set! bound-identifier=?
|
|
(lambda (x583 y582)
|
|
(begin
|
|
((lambda (x585)
|
|
(if (not (nonsymbol-id?309 x585))
|
|
(error-hook136
|
|
'bound-identifier=?
|
|
'"invalid argument"
|
|
x585)
|
|
(void)))
|
|
x583)
|
|
((lambda (x584)
|
|
(if (not (nonsymbol-id?309 x584))
|
|
(error-hook136
|
|
'bound-identifier=?
|
|
'"invalid argument"
|
|
x584)
|
|
(void)))
|
|
y582)
|
|
(bound-id=?433 x583 y582))))
|
|
(set! literal-identifier=?
|
|
(lambda (x579 y578)
|
|
(begin
|
|
((lambda (x581)
|
|
(if (not (nonsymbol-id?309 x581))
|
|
(error-hook136
|
|
'literal-identifier=?
|
|
'"invalid argument"
|
|
x581)
|
|
(void)))
|
|
x579)
|
|
((lambda (x580)
|
|
(if (not (nonsymbol-id?309 x580))
|
|
(error-hook136
|
|
'literal-identifier=?
|
|
'"invalid argument"
|
|
x580)
|
|
(void)))
|
|
y578)
|
|
(literal-id=?431 x579 y578))))
|
|
(set! syntax-error
|
|
(lambda (object573 . messages574)
|
|
(begin
|
|
(for-each
|
|
(lambda (x576)
|
|
((lambda (x577)
|
|
(if (not (string? x577))
|
|
(error-hook136
|
|
'syntax-error
|
|
'"invalid argument"
|
|
x577)
|
|
(void)))
|
|
x576))
|
|
messages574)
|
|
((lambda (message575)
|
|
(error-hook136 '#f message575 (strip517 object573 '(()))))
|
|
(if (null? messages574)
|
|
'"invalid syntax"
|
|
(apply string-append messages574))))))
|
|
((lambda ()
|
|
(letrec ((match-each520 (lambda (e570 p569 w568)
|
|
(if (annotation?132 e570)
|
|
(match-each520
|
|
(annotation-expression e570)
|
|
p569
|
|
w568)
|
|
(if (pair? e570)
|
|
((lambda (first571)
|
|
(if first571
|
|
((lambda (rest572)
|
|
(if rest572
|
|
(cons
|
|
first571
|
|
rest572)
|
|
'#f))
|
|
(match-each520
|
|
(cdr e570)
|
|
p569
|
|
w568))
|
|
'#f))
|
|
(match526
|
|
(car e570)
|
|
p569
|
|
w568
|
|
'()))
|
|
(if (null? e570)
|
|
'()
|
|
(if (syntax-object?64 e570)
|
|
(match-each520
|
|
(syntax-object-expression65
|
|
e570)
|
|
p569
|
|
(join-wraps417
|
|
w568
|
|
(syntax-object-wrap66
|
|
e570)))
|
|
'#f))))))
|
|
(match-each+521 (lambda (e560 x-pat559 y-pat558 z-pat557
|
|
w556 r555)
|
|
((letrec ((f561 (lambda (e563 w562)
|
|
(if (pair? e563)
|
|
(call-with-values
|
|
(lambda ()
|
|
(f561
|
|
(cdr e563)
|
|
w562))
|
|
(lambda (xr*566
|
|
y-pat565
|
|
r564)
|
|
(if r564
|
|
(if (null?
|
|
y-pat565)
|
|
((lambda (xr567)
|
|
(if xr567
|
|
(values
|
|
(cons
|
|
xr567
|
|
xr*566)
|
|
y-pat565
|
|
r564)
|
|
(values
|
|
'#f
|
|
'#f
|
|
'#f)))
|
|
(match526
|
|
(car e563)
|
|
x-pat559
|
|
w562
|
|
'()))
|
|
(values
|
|
'()
|
|
(cdr y-pat565)
|
|
(match526
|
|
(car e563)
|
|
(car y-pat565)
|
|
w562
|
|
r564)))
|
|
(values
|
|
'#f
|
|
'#f
|
|
'#f))))
|
|
(if (annotation?132
|
|
e563)
|
|
(f561
|
|
(annotation-expression
|
|
e563)
|
|
w562)
|
|
(if (syntax-object?64
|
|
e563)
|
|
(f561
|
|
(syntax-object-expression65
|
|
e563)
|
|
(join-wraps417
|
|
w562
|
|
(syntax-object-wrap66
|
|
e563)))
|
|
(values
|
|
'()
|
|
y-pat558
|
|
(match526
|
|
e563
|
|
z-pat557
|
|
w562
|
|
r555))))))))
|
|
f561)
|
|
e560
|
|
w556)))
|
|
(match-each-any522 (lambda (e553 w552)
|
|
(if (annotation?132 e553)
|
|
(match-each-any522
|
|
(annotation-expression e553)
|
|
w552)
|
|
(if (pair? e553)
|
|
((lambda (l554)
|
|
(if l554
|
|
(cons
|
|
(wrap438
|
|
(car e553)
|
|
w552)
|
|
l554)
|
|
'#f))
|
|
(match-each-any522
|
|
(cdr e553)
|
|
w552))
|
|
(if (null? e553)
|
|
'()
|
|
(if (syntax-object?64
|
|
e553)
|
|
(match-each-any522
|
|
(syntax-object-expression65
|
|
e553)
|
|
(join-wraps417
|
|
w552
|
|
(syntax-object-wrap66
|
|
e553)))
|
|
'#f))))))
|
|
(match-empty523 (lambda (p550 r549)
|
|
(if (null? p550)
|
|
r549
|
|
(if (eq? p550 'any)
|
|
(cons '() r549)
|
|
(if (pair? p550)
|
|
(match-empty523
|
|
(car p550)
|
|
(match-empty523
|
|
(cdr p550)
|
|
r549))
|
|
(if (eq? p550 'each-any)
|
|
(cons '() r549)
|
|
((lambda (t551)
|
|
(if (memv
|
|
t551
|
|
'(each))
|
|
(match-empty523
|
|
(vector-ref
|
|
p550
|
|
'1)
|
|
r549)
|
|
(if (memv
|
|
t551
|
|
'(each+))
|
|
(match-empty523
|
|
(vector-ref
|
|
p550
|
|
'1)
|
|
(match-empty523
|
|
(reverse
|
|
(vector-ref
|
|
p550
|
|
'2))
|
|
(match-empty523
|
|
(vector-ref
|
|
p550
|
|
'3)
|
|
r549)))
|
|
(if (memv
|
|
t551
|
|
'(free-id
|
|
atom))
|
|
r549
|
|
(if (memv
|
|
t551
|
|
'(vector))
|
|
(match-empty523
|
|
(vector-ref
|
|
p550
|
|
'1)
|
|
r549)
|
|
(void))))))
|
|
(vector-ref
|
|
p550
|
|
'0))))))))
|
|
(combine524 (lambda (r*548 r547)
|
|
(if (null? (car r*548))
|
|
r547
|
|
(cons
|
|
(map car r*548)
|
|
(combine524
|
|
(map cdr r*548)
|
|
r547)))))
|
|
(match*525 (lambda (e540 p539 w538 r537)
|
|
(if (null? p539)
|
|
(if (null? e540) r537 '#f)
|
|
(if (pair? p539)
|
|
(if (pair? e540)
|
|
(match526
|
|
(car e540)
|
|
(car p539)
|
|
w538
|
|
(match526
|
|
(cdr e540)
|
|
(cdr p539)
|
|
w538
|
|
r537))
|
|
'#f)
|
|
(if (eq? p539 'each-any)
|
|
((lambda (l541)
|
|
(if l541
|
|
(cons l541 r537)
|
|
'#f))
|
|
(match-each-any522
|
|
e540
|
|
w538))
|
|
((lambda (t542)
|
|
(if (memv t542 '(each))
|
|
(if (null? e540)
|
|
(match-empty523
|
|
(vector-ref
|
|
p539
|
|
'1)
|
|
r537)
|
|
((lambda (r*543)
|
|
(if r*543
|
|
(combine524
|
|
r*543
|
|
r537)
|
|
'#f))
|
|
(match-each520
|
|
e540
|
|
(vector-ref
|
|
p539
|
|
'1)
|
|
w538)))
|
|
(if (memv
|
|
t542
|
|
'(free-id))
|
|
(if (id?310 e540)
|
|
(if (literal-id=?431
|
|
(wrap438
|
|
e540
|
|
w538)
|
|
(vector-ref
|
|
p539
|
|
'1))
|
|
r537
|
|
'#f)
|
|
'#f)
|
|
(if (memv
|
|
t542
|
|
'(each+))
|
|
(call-with-values
|
|
(lambda ()
|
|
(match-each+521
|
|
e540
|
|
(vector-ref
|
|
p539
|
|
'1)
|
|
(vector-ref
|
|
p539
|
|
'2)
|
|
(vector-ref
|
|
p539
|
|
'3)
|
|
w538
|
|
r537))
|
|
(lambda (xr*546
|
|
y-pat545
|
|
r544)
|
|
(if r544
|
|
(if (null?
|
|
y-pat545)
|
|
(if (null?
|
|
xr*546)
|
|
(match-empty523
|
|
(vector-ref
|
|
p539
|
|
'1)
|
|
r544)
|
|
(combine524
|
|
xr*546
|
|
r544))
|
|
'#f)
|
|
'#f)))
|
|
(if (memv
|
|
t542
|
|
'(atom))
|
|
(if (equal?
|
|
(vector-ref
|
|
p539
|
|
'1)
|
|
(strip517
|
|
e540
|
|
w538))
|
|
r537
|
|
'#f)
|
|
(if (memv
|
|
t542
|
|
'(vector))
|
|
(if (vector?
|
|
e540)
|
|
(match526
|
|
(vector->list
|
|
e540)
|
|
(vector-ref
|
|
p539
|
|
'1)
|
|
w538
|
|
r537)
|
|
'#f)
|
|
(void)))))))
|
|
(vector-ref p539 '0)))))))
|
|
(match526 (lambda (e534 p533 w532 r531)
|
|
(if (not r531)
|
|
'#f
|
|
(if (eq? p533 'any)
|
|
(cons (wrap438 e534 w532) r531)
|
|
(if (syntax-object?64 e534)
|
|
(match*525
|
|
((lambda (e535)
|
|
(if (annotation?132 e535)
|
|
(annotation-expression
|
|
e535)
|
|
e535))
|
|
(syntax-object-expression65
|
|
e534))
|
|
p533
|
|
(join-wraps417
|
|
w532
|
|
(syntax-object-wrap66 e534))
|
|
r531)
|
|
(match*525
|
|
((lambda (e536)
|
|
(if (annotation?132 e536)
|
|
(annotation-expression
|
|
e536)
|
|
e536))
|
|
e534)
|
|
p533
|
|
w532
|
|
r531)))))))
|
|
(set! $syntax-dispatch
|
|
(lambda (e528 p527)
|
|
(if (eq? p527 'any)
|
|
(list e528)
|
|
(if (syntax-object?64 e528)
|
|
(match*525
|
|
((lambda (e529)
|
|
(if (annotation?132 e529)
|
|
(annotation-expression e529)
|
|
e529))
|
|
(syntax-object-expression65 e528))
|
|
p527
|
|
(syntax-object-wrap66 e528)
|
|
'())
|
|
(match*525
|
|
((lambda (e530)
|
|
(if (annotation?132 e530)
|
|
(annotation-expression e530)
|
|
e530))
|
|
e528)
|
|
p527
|
|
'(())
|
|
'()))))))))))))
|
|
|
|
)
|
|
|
|
($sc-put-cte
|
|
'#(syntax-object with-syntax ((top) #(ribcage #(with-syntax) #((top)) #(with-syntax))))
|
|
(lambda (x2524)
|
|
((lambda (tmp2525)
|
|
((lambda (tmp2526)
|
|
(if tmp2526
|
|
(apply
|
|
(lambda (_2529 e12528 e22527)
|
|
(cons
|
|
'#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
|
|
(cons e12528 e22527)))
|
|
tmp2526)
|
|
((lambda (tmp2531)
|
|
(if tmp2531
|
|
(apply
|
|
(lambda (_2536 out2535 in2534 e12533 e22532)
|
|
(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)))
|
|
in2534
|
|
'()
|
|
(list
|
|
out2535
|
|
(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 e12533 e22532)))))
|
|
tmp2531)
|
|
((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)))
|
|
(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)))
|
|
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)
|
|
(syntax-error tmp2525)))
|
|
($syntax-dispatch
|
|
tmp2525
|
|
'(any #(each (any any)) any . each-any)))))
|
|
($syntax-dispatch
|
|
tmp2525
|
|
'(any ((any any)) any . each-any)))))
|
|
($syntax-dispatch tmp2525 '(any () any . each-any))))
|
|
x2524))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object with-implicit ((top) #(ribcage #(with-implicit) #((top)) #(with-implicit))))
|
|
(lambda (x2547)
|
|
((lambda (tmp2548)
|
|
((lambda (tmp2549)
|
|
(if (if tmp2549
|
|
(apply
|
|
(lambda (dummy2554 tid2553 id2552 e12551 e22550)
|
|
(andmap identifier? (cons tid2553 id2552)))
|
|
tmp2549)
|
|
'#f)
|
|
(apply
|
|
(lambda (dummy2560 tid2559 id2558 e12557 e22556)
|
|
(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)))
|
|
tid2559))
|
|
(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)))
|
|
tid2559)
|
|
'#(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 (tmp2561)
|
|
(list
|
|
tmp2561
|
|
(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)))
|
|
tid2559)
|
|
(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)))
|
|
tmp2561))))
|
|
id2558)
|
|
(cons e12557 e22556)))))
|
|
tmp2549)
|
|
(syntax-error tmp2548)))
|
|
($syntax-dispatch
|
|
tmp2548
|
|
'(any (any . each-any) any . each-any))))
|
|
x2547))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object datum ((top) #(ribcage #(datum) #((top)) #(datum))))
|
|
(lambda (x2563)
|
|
((lambda (tmp2564)
|
|
((lambda (tmp2565)
|
|
(if tmp2565
|
|
(apply
|
|
(lambda (dummy2567 x2566)
|
|
(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)))
|
|
x2566)))
|
|
tmp2565)
|
|
(syntax-error tmp2564)))
|
|
($syntax-dispatch tmp2564 '(any any))))
|
|
x2563))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object syntax-rules ((top) #(ribcage #(syntax-rules) #((top)) #(syntax-rules))))
|
|
(lambda (x2568)
|
|
(letrec ((clause2569 (lambda (y2585)
|
|
((lambda (tmp2586)
|
|
((lambda (tmp2587)
|
|
(if tmp2587
|
|
(apply
|
|
(lambda (keyword2590 pattern2589
|
|
template2588)
|
|
(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)))
|
|
pattern2589)
|
|
(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)))
|
|
template2588)))
|
|
tmp2587)
|
|
((lambda (tmp2591)
|
|
(if tmp2591
|
|
(apply
|
|
(lambda (keyword2595
|
|
pattern2594
|
|
fender2593
|
|
template2592)
|
|
(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)))
|
|
pattern2594)
|
|
fender2593
|
|
(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)))
|
|
template2592)))
|
|
tmp2591)
|
|
((lambda (_2596)
|
|
(syntax-error x2568))
|
|
tmp2586)))
|
|
($syntax-dispatch
|
|
tmp2586
|
|
'((any . any) any any)))))
|
|
($syntax-dispatch
|
|
tmp2586
|
|
'((any . any) any))))
|
|
y2585))))
|
|
((lambda (tmp2570)
|
|
((lambda (tmp2571)
|
|
(if (if tmp2571
|
|
(apply
|
|
(lambda (_2574 k2573 cl2572)
|
|
(andmap identifier? k2573))
|
|
tmp2571)
|
|
'#f)
|
|
(apply
|
|
(lambda (_2578 k2577 cl2576)
|
|
((lambda (tmp2579)
|
|
((lambda (tmp2581)
|
|
(if tmp2581
|
|
(apply
|
|
(lambda (cl2582)
|
|
(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 k2577 cl2582)))))
|
|
tmp2581)
|
|
(syntax-error tmp2579)))
|
|
($syntax-dispatch tmp2579 'each-any)))
|
|
(map clause2569 cl2576)))
|
|
tmp2571)
|
|
(syntax-error tmp2570)))
|
|
($syntax-dispatch tmp2570 '(any each-any . each-any))))
|
|
x2568)))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object or ((top) #(ribcage #(or) #((top)) #(or))))
|
|
(lambda (x2597)
|
|
((lambda (tmp2598)
|
|
((lambda (tmp2599)
|
|
(if tmp2599
|
|
(apply
|
|
(lambda (_2600)
|
|
'#(syntax-object #f ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
tmp2599)
|
|
((lambda (tmp2601)
|
|
(if tmp2601
|
|
(apply (lambda (_2603 e2602) e2602) tmp2601)
|
|
((lambda (tmp2604)
|
|
(if tmp2604
|
|
(apply
|
|
(lambda (_2608 e12607 e22606 e32605)
|
|
(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)))
|
|
e12607))
|
|
(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 e22606 e32605)))))
|
|
tmp2604)
|
|
(syntax-error tmp2598)))
|
|
($syntax-dispatch
|
|
tmp2598
|
|
'(any any any . each-any)))))
|
|
($syntax-dispatch tmp2598 '(any any)))))
|
|
($syntax-dispatch tmp2598 '(any))))
|
|
x2597))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object and ((top) #(ribcage #(and) #((top)) #(and))))
|
|
(lambda (x2610)
|
|
((lambda (tmp2611)
|
|
((lambda (tmp2612)
|
|
(if tmp2612
|
|
(apply
|
|
(lambda (_2616 e12615 e22614 e32613)
|
|
(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
|
|
e12615
|
|
(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 e22614 e32613))
|
|
'#(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)))))))
|
|
tmp2612)
|
|
((lambda (tmp2618)
|
|
(if tmp2618
|
|
(apply (lambda (_2620 e2619) e2619) tmp2618)
|
|
((lambda (tmp2621)
|
|
(if tmp2621
|
|
(apply
|
|
(lambda (_2622)
|
|
'#(syntax-object #t ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
|
|
tmp2621)
|
|
(syntax-error tmp2611)))
|
|
($syntax-dispatch tmp2611 '(any)))))
|
|
($syntax-dispatch tmp2611 '(any any)))))
|
|
($syntax-dispatch tmp2611 '(any any any . each-any))))
|
|
x2610))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object let ((top) #(ribcage #(let) #((top)) #(let))))
|
|
(lambda (x2623)
|
|
((lambda (tmp2624)
|
|
((lambda (tmp2625)
|
|
(if (if tmp2625
|
|
(apply
|
|
(lambda (_2630 x2629 v2628 e12627 e22626)
|
|
(andmap identifier? x2629))
|
|
tmp2625)
|
|
'#f)
|
|
(apply
|
|
(lambda (_2636 x2635 v2634 e12633 e22632)
|
|
(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 x2635 (cons e12633 e22632)))
|
|
v2634))
|
|
tmp2625)
|
|
((lambda (tmp2640)
|
|
(if (if tmp2640
|
|
(apply
|
|
(lambda (_2646 f2645 x2644 v2643 e12642 e22641)
|
|
(andmap identifier? (cons f2645 x2644)))
|
|
tmp2640)
|
|
'#f)
|
|
(apply
|
|
(lambda (_2653 f2652 x2651 v2650 e12649 e22648)
|
|
(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
|
|
f2652
|
|
(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 x2651 (cons e12649 e22648)))))
|
|
f2652)
|
|
v2650))
|
|
tmp2640)
|
|
(syntax-error tmp2624)))
|
|
($syntax-dispatch
|
|
tmp2624
|
|
'(any any #(each (any any)) any . each-any)))))
|
|
($syntax-dispatch
|
|
tmp2624
|
|
'(any #(each (any any)) any . each-any))))
|
|
x2623))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object let* ((top) #(ribcage #(let*) #((top)) #(let*))))
|
|
(lambda (x2657)
|
|
((lambda (tmp2658)
|
|
((lambda (tmp2659)
|
|
(if (if tmp2659
|
|
(apply
|
|
(lambda (let*2664 x2663 v2662 e12661 e22660)
|
|
(andmap identifier? x2663))
|
|
tmp2659)
|
|
'#f)
|
|
(apply
|
|
(lambda (let*2670 x2669 v2668 e12667 e22666)
|
|
((letrec ((f2671 (lambda (bindings2672)
|
|
(if (null? bindings2672)
|
|
(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 e12667 e22666)))
|
|
((lambda (tmp2674)
|
|
((lambda (tmp2675)
|
|
(if tmp2675
|
|
(apply
|
|
(lambda (body2677
|
|
binding2676)
|
|
(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 binding2676)
|
|
body2677))
|
|
tmp2675)
|
|
(syntax-error tmp2674)))
|
|
($syntax-dispatch
|
|
tmp2674
|
|
'(any any))))
|
|
(list
|
|
(f2671 (cdr bindings2672))
|
|
(car bindings2672)))))))
|
|
f2671)
|
|
(map list x2669 v2668)))
|
|
tmp2659)
|
|
(syntax-error tmp2658)))
|
|
($syntax-dispatch
|
|
tmp2658
|
|
'(any #(each (any any)) any . each-any))))
|
|
x2657))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object cond ((top) #(ribcage #(cond) #((top)) #(cond))))
|
|
(lambda (x2680)
|
|
((lambda (tmp2681)
|
|
((lambda (tmp2682)
|
|
(if tmp2682
|
|
(apply
|
|
(lambda (_2685 m12684 m22683)
|
|
((letrec ((f2686 (lambda (clause2688 clauses2687)
|
|
(if (null? clauses2687)
|
|
((lambda (tmp2689)
|
|
((lambda (tmp2690)
|
|
(if tmp2690
|
|
(apply
|
|
(lambda (e12692
|
|
e22691)
|
|
(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
|
|
e12692
|
|
e22691)))
|
|
tmp2690)
|
|
((lambda (tmp2694)
|
|
(if tmp2694
|
|
(apply
|
|
(lambda (e02695)
|
|
(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)))
|
|
e02695))
|
|
'#(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))))))
|
|
tmp2694)
|
|
((lambda (tmp2696)
|
|
(if tmp2696
|
|
(apply
|
|
(lambda (e02698
|
|
e12697)
|
|
(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)))
|
|
e02698))
|
|
(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
|
|
e12697
|
|
'#(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)))))))
|
|
tmp2696)
|
|
((lambda (tmp2699)
|
|
(if tmp2699
|
|
(apply
|
|
(lambda (e02702
|
|
e12701
|
|
e22700)
|
|
(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)))
|
|
e02702
|
|
(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
|
|
e12701
|
|
e22700))))
|
|
tmp2699)
|
|
((lambda (_2704)
|
|
(syntax-error
|
|
x2680))
|
|
tmp2689)))
|
|
($syntax-dispatch
|
|
tmp2689
|
|
'(any any
|
|
.
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2689
|
|
'(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
|
|
tmp2689
|
|
'(any)))))
|
|
($syntax-dispatch
|
|
tmp2689
|
|
'(#(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))))
|
|
clause2688)
|
|
((lambda (tmp2705)
|
|
((lambda (rest2706)
|
|
((lambda (tmp2707)
|
|
((lambda (tmp2708)
|
|
(if tmp2708
|
|
(apply
|
|
(lambda (e02709)
|
|
(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)))
|
|
e02709))
|
|
(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)))
|
|
rest2706)))
|
|
tmp2708)
|
|
((lambda (tmp2710)
|
|
(if tmp2710
|
|
(apply
|
|
(lambda (e02712
|
|
e12711)
|
|
(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)))
|
|
e02712))
|
|
(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
|
|
e12711
|
|
'#(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))))
|
|
rest2706)))
|
|
tmp2710)
|
|
((lambda (tmp2713)
|
|
(if tmp2713
|
|
(apply
|
|
(lambda (e02716
|
|
e12715
|
|
e22714)
|
|
(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)))
|
|
e02716
|
|
(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
|
|
e12715
|
|
e22714))
|
|
rest2706))
|
|
tmp2713)
|
|
((lambda (_2718)
|
|
(syntax-error
|
|
x2680))
|
|
tmp2707)))
|
|
($syntax-dispatch
|
|
tmp2707
|
|
'(any any
|
|
.
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2707
|
|
'(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
|
|
tmp2707
|
|
'(any))))
|
|
clause2688))
|
|
tmp2705))
|
|
(f2686
|
|
(car clauses2687)
|
|
(cdr clauses2687)))))))
|
|
f2686)
|
|
m12684
|
|
m22683))
|
|
tmp2682)
|
|
(syntax-error tmp2681)))
|
|
($syntax-dispatch tmp2681 '(any any . each-any))))
|
|
x2680))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object do ((top) #(ribcage #(do) #((top)) #(do))))
|
|
(lambda (orig-x2720)
|
|
((lambda (tmp2721)
|
|
((lambda (tmp2722)
|
|
(if tmp2722
|
|
(apply
|
|
(lambda (_2729 var2728 init2727 step2726 e02725 e12724
|
|
c2723)
|
|
((lambda (tmp2730)
|
|
((lambda (tmp2740)
|
|
(if tmp2740
|
|
(apply
|
|
(lambda (step2741)
|
|
((lambda (tmp2742)
|
|
((lambda (tmp2744)
|
|
(if tmp2744
|
|
(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 var2728 init2727)
|
|
(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)))
|
|
e02725)
|
|
(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
|
|
c2723
|
|
(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)))
|
|
step2741)))))))
|
|
tmp2744)
|
|
((lambda (tmp2749)
|
|
(if tmp2749
|
|
(apply
|
|
(lambda (e12751 e22750)
|
|
(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
|
|
var2728
|
|
init2727)
|
|
(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)))
|
|
e02725
|
|
(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
|
|
e12751
|
|
e22750))
|
|
(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
|
|
c2723
|
|
(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)))
|
|
step2741)))))))
|
|
tmp2749)
|
|
(syntax-error tmp2742)))
|
|
($syntax-dispatch
|
|
tmp2742
|
|
'(any . each-any)))))
|
|
($syntax-dispatch tmp2742 '())))
|
|
e12724))
|
|
tmp2740)
|
|
(syntax-error tmp2730)))
|
|
($syntax-dispatch tmp2730 'each-any)))
|
|
(map (lambda (v2734 s2733)
|
|
((lambda (tmp2735)
|
|
((lambda (tmp2736)
|
|
(if tmp2736
|
|
(apply (lambda () v2734) tmp2736)
|
|
((lambda (tmp2737)
|
|
(if tmp2737
|
|
(apply
|
|
(lambda (e2738) e2738)
|
|
tmp2737)
|
|
((lambda (_2739)
|
|
(syntax-error orig-x2720))
|
|
tmp2735)))
|
|
($syntax-dispatch tmp2735 '(any)))))
|
|
($syntax-dispatch tmp2735 '())))
|
|
s2733))
|
|
var2728
|
|
step2726)))
|
|
tmp2722)
|
|
(syntax-error tmp2721)))
|
|
($syntax-dispatch
|
|
tmp2721
|
|
'(any #(each (any any . any))
|
|
(any . each-any)
|
|
.
|
|
each-any))))
|
|
orig-x2720))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object quasiquote ((top) #(ribcage #(quasiquote) #((top)) #(quasiquote))))
|
|
(letrec ((isquote?2766 (lambda (x2895)
|
|
(if (identifier? x2895)
|
|
(free-identifier=?
|
|
x2895
|
|
'#(syntax-object quote ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
'#f)))
|
|
(islist?2765 (lambda (x2894)
|
|
(if (identifier? x2894)
|
|
(free-identifier=?
|
|
x2894
|
|
'#(syntax-object list ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
'#f)))
|
|
(iscons?2764 (lambda (x2893)
|
|
(if (identifier? x2893)
|
|
(free-identifier=?
|
|
x2893
|
|
'#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
'#f)))
|
|
(quote-nil?2763 (lambda (x2888)
|
|
((lambda (tmp2889)
|
|
((lambda (tmp2890)
|
|
(if tmp2890
|
|
(apply
|
|
(lambda (quote?2891)
|
|
(isquote?2766 quote?2891))
|
|
tmp2890)
|
|
((lambda (_2892) '#f) tmp2889)))
|
|
($syntax-dispatch tmp2889 '(any ()))))
|
|
x2888)))
|
|
(quasilist*2762 (lambda (x2885 y2884)
|
|
((letrec ((f2886 (lambda (x2887)
|
|
(if (null? x2887)
|
|
y2884
|
|
(quasicons2761
|
|
(car x2887)
|
|
(f2886
|
|
(cdr x2887)))))))
|
|
f2886)
|
|
x2885)))
|
|
(quasicons2761 (lambda (x2860 y2859)
|
|
((lambda (tmp2861)
|
|
((lambda (tmp2862)
|
|
(if tmp2862
|
|
(apply
|
|
(lambda (x2864 y2863)
|
|
((lambda (tmp2865)
|
|
((lambda (tmp2866)
|
|
(if (if tmp2866
|
|
(apply
|
|
(lambda (quote?2868
|
|
dy2867)
|
|
(isquote?2766
|
|
quote?2868))
|
|
tmp2866)
|
|
'#f)
|
|
(apply
|
|
(lambda (quote?2870
|
|
dy2869)
|
|
((lambda (tmp2871)
|
|
((lambda (tmp2872)
|
|
(if (if tmp2872
|
|
(apply
|
|
(lambda (quote?2874
|
|
dx2873)
|
|
(isquote?2766
|
|
quote?2874))
|
|
tmp2872)
|
|
'#f)
|
|
(apply
|
|
(lambda (quote?2876
|
|
dx2875)
|
|
(list
|
|
'#(syntax-object quote ((top) #(ribcage #(quote? dx) #((top) (top)) #("i" "i")) #(ribcage #(quote? dy) #((top) (top)) #("i" "i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
dx2875
|
|
dy2869)))
|
|
tmp2872)
|
|
((lambda (_2877)
|
|
(if (null?
|
|
dy2869)
|
|
(list
|
|
'#(syntax-object list ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(quote? dy) #((top) (top)) #("i" "i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
x2864)
|
|
(list
|
|
'#(syntax-object cons ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(quote? dy) #((top) (top)) #("i" "i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
x2864
|
|
y2863)))
|
|
tmp2871)))
|
|
($syntax-dispatch
|
|
tmp2871
|
|
'(any any))))
|
|
x2864))
|
|
tmp2866)
|
|
((lambda (tmp2878)
|
|
(if (if tmp2878
|
|
(apply
|
|
(lambda (listp2880
|
|
stuff2879)
|
|
(islist?2765
|
|
listp2880))
|
|
tmp2878)
|
|
'#f)
|
|
(apply
|
|
(lambda (listp2882
|
|
stuff2881)
|
|
(cons
|
|
'#(syntax-object list ((top) #(ribcage #(listp stuff) #((top) (top)) #("i" "i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(cons
|
|
x2864
|
|
stuff2881)))
|
|
tmp2878)
|
|
((lambda (else2883)
|
|
(list
|
|
'#(syntax-object cons ((top) #(ribcage #(else) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
x2864
|
|
y2863))
|
|
tmp2865)))
|
|
($syntax-dispatch
|
|
tmp2865
|
|
'(any . any)))))
|
|
($syntax-dispatch
|
|
tmp2865
|
|
'(any any))))
|
|
y2863))
|
|
tmp2862)
|
|
(syntax-error tmp2861)))
|
|
($syntax-dispatch tmp2861 '(any any))))
|
|
(list x2860 y2859))))
|
|
(quasiappend2760 (lambda (x2851 y2850)
|
|
((lambda (ls2852)
|
|
(if (null? ls2852)
|
|
'#(syntax-object (quote ()) ((top) #(ribcage () () ()) #(ribcage #(ls) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(if (null? (cdr ls2852))
|
|
(car ls2852)
|
|
((lambda (tmp2853)
|
|
((lambda (tmp2854)
|
|
(if tmp2854
|
|
(apply
|
|
(lambda (p2855)
|
|
(cons
|
|
'#(syntax-object append ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(ls) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
p2855))
|
|
tmp2854)
|
|
(syntax-error tmp2853)))
|
|
($syntax-dispatch
|
|
tmp2853
|
|
'each-any)))
|
|
ls2852))))
|
|
((letrec ((f2857 (lambda (x2858)
|
|
(if (null? x2858)
|
|
(if (quote-nil?2763
|
|
y2850)
|
|
'()
|
|
(list y2850))
|
|
(if (quote-nil?2763
|
|
(car x2858))
|
|
(f2857
|
|
(cdr x2858))
|
|
(cons
|
|
(car x2858)
|
|
(f2857
|
|
(cdr x2858))))))))
|
|
f2857)
|
|
x2851))))
|
|
(quasivector2759 (lambda (x2813)
|
|
((lambda (tmp2814)
|
|
((lambda (pat-x2815)
|
|
((lambda (tmp2816)
|
|
((lambda (tmp2817)
|
|
(if (if tmp2817
|
|
(apply
|
|
(lambda (quote?2819
|
|
x2818)
|
|
(isquote?2766
|
|
quote?2819))
|
|
tmp2817)
|
|
'#f)
|
|
(apply
|
|
(lambda (quote?2821 x2820)
|
|
(list
|
|
'#(syntax-object quote ((top) #(ribcage #(quote? x) #((top) (top)) #("i" "i")) #(ribcage #(pat-x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(list->vector x2820)))
|
|
tmp2817)
|
|
((lambda (_2823)
|
|
((letrec ((f2824 (lambda (x2826
|
|
k2825)
|
|
((lambda (tmp2827)
|
|
((lambda (tmp2828)
|
|
(if (if tmp2828
|
|
(apply
|
|
(lambda (quote?2830
|
|
x2829)
|
|
(isquote?2766
|
|
quote?2830))
|
|
tmp2828)
|
|
'#f)
|
|
(apply
|
|
(lambda (quote?2832
|
|
x2831)
|
|
(k2825
|
|
(map (lambda (tmp2833)
|
|
(list
|
|
'#(syntax-object quote ((top) #(ribcage #(quote? x) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x k) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage #(pat-x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
tmp2833))
|
|
x2831)))
|
|
tmp2828)
|
|
((lambda (tmp2834)
|
|
(if (if tmp2834
|
|
(apply
|
|
(lambda (listp2836
|
|
x2835)
|
|
(islist?2765
|
|
listp2836))
|
|
tmp2834)
|
|
'#f)
|
|
(apply
|
|
(lambda (listp2838
|
|
x2837)
|
|
(k2825
|
|
x2837))
|
|
tmp2834)
|
|
((lambda (tmp2840)
|
|
(if (if tmp2840
|
|
(apply
|
|
(lambda (cons?2843
|
|
x2842
|
|
y2841)
|
|
(iscons?2764
|
|
cons?2843))
|
|
tmp2840)
|
|
'#f)
|
|
(apply
|
|
(lambda (cons?2846
|
|
x2845
|
|
y2844)
|
|
(f2824
|
|
y2844
|
|
(lambda (ls2847)
|
|
(k2825
|
|
(cons
|
|
x2845
|
|
ls2847)))))
|
|
tmp2840)
|
|
((lambda (else2848)
|
|
(list
|
|
'#(syntax-object list->vector ((top) #(ribcage #(else) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x k) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage #(pat-x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
pat-x2815))
|
|
tmp2827)))
|
|
($syntax-dispatch
|
|
tmp2827
|
|
'(any any
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2827
|
|
'(any .
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2827
|
|
'(any each-any))))
|
|
x2826))))
|
|
f2824)
|
|
x2813
|
|
(lambda (ls2849)
|
|
(cons
|
|
'#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage #(ls) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage #(pat-x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
ls2849))))
|
|
tmp2816)))
|
|
($syntax-dispatch
|
|
tmp2816
|
|
'(any each-any))))
|
|
pat-x2815))
|
|
tmp2814))
|
|
x2813)))
|
|
(vquasi2758 (lambda (p2797 lev2796)
|
|
((lambda (tmp2798)
|
|
((lambda (tmp2799)
|
|
(if tmp2799
|
|
(apply
|
|
(lambda (p2801 q2800)
|
|
((lambda (tmp2802)
|
|
((lambda (tmp2803)
|
|
(if tmp2803
|
|
(apply
|
|
(lambda (p2804)
|
|
(if (fx= lev2796 '0)
|
|
(quasilist*2762
|
|
p2804
|
|
(vquasi2758
|
|
q2800
|
|
lev2796))
|
|
(quasicons2761
|
|
(quasicons2761
|
|
'#(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 #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(quasi2757
|
|
p2804
|
|
(fx- lev2796
|
|
'1)))
|
|
(vquasi2758
|
|
q2800
|
|
lev2796))))
|
|
tmp2803)
|
|
((lambda (tmp2807)
|
|
(if tmp2807
|
|
(apply
|
|
(lambda (p2808)
|
|
(if (fx= lev2796
|
|
'0)
|
|
(quasiappend2760
|
|
p2808
|
|
(vquasi2758
|
|
q2800
|
|
lev2796))
|
|
(quasicons2761
|
|
(quasicons2761
|
|
'#(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 #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(quasi2757
|
|
p2808
|
|
(fx- lev2796
|
|
'1)))
|
|
(vquasi2758
|
|
q2800
|
|
lev2796))))
|
|
tmp2807)
|
|
((lambda (p2811)
|
|
(quasicons2761
|
|
(quasi2757
|
|
p2811
|
|
lev2796)
|
|
(vquasi2758
|
|
q2800
|
|
lev2796)))
|
|
tmp2802)))
|
|
($syntax-dispatch
|
|
tmp2802
|
|
'(#(free-id
|
|
#(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
.
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2802
|
|
'(#(free-id
|
|
#(syntax-object unquote ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
.
|
|
each-any))))
|
|
p2801))
|
|
tmp2799)
|
|
((lambda (tmp2812)
|
|
(if tmp2812
|
|
(apply
|
|
(lambda ()
|
|
'#(syntax-object (quote ()) ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
tmp2812)
|
|
(syntax-error tmp2798)))
|
|
($syntax-dispatch tmp2798 '()))))
|
|
($syntax-dispatch tmp2798 '(any . any))))
|
|
p2797)))
|
|
(quasi2757 (lambda (p2773 lev2772)
|
|
((lambda (tmp2774)
|
|
((lambda (tmp2775)
|
|
(if tmp2775
|
|
(apply
|
|
(lambda (p2776)
|
|
(if (fx= lev2772 '0)
|
|
p2776
|
|
(quasicons2761
|
|
'#(syntax-object (quote unquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(quasi2757
|
|
(list p2776)
|
|
(fx- lev2772 '1)))))
|
|
tmp2775)
|
|
((lambda (tmp2777)
|
|
(if tmp2777
|
|
(apply
|
|
(lambda (p2779 q2778)
|
|
(if (fx= lev2772 '0)
|
|
(quasilist*2762
|
|
p2779
|
|
(quasi2757
|
|
q2778
|
|
lev2772))
|
|
(quasicons2761
|
|
(quasicons2761
|
|
'#(syntax-object (quote unquote) ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(quasi2757
|
|
p2779
|
|
(fx- lev2772 '1)))
|
|
(quasi2757
|
|
q2778
|
|
lev2772))))
|
|
tmp2777)
|
|
((lambda (tmp2782)
|
|
(if tmp2782
|
|
(apply
|
|
(lambda (p2784 q2783)
|
|
(if (fx= lev2772 '0)
|
|
(quasiappend2760
|
|
p2784
|
|
(quasi2757
|
|
q2783
|
|
lev2772))
|
|
(quasicons2761
|
|
(quasicons2761
|
|
'#(syntax-object (quote unquote-splicing) ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(quasi2757
|
|
p2784
|
|
(fx- lev2772
|
|
'1)))
|
|
(quasi2757
|
|
q2783
|
|
lev2772))))
|
|
tmp2782)
|
|
((lambda (tmp2787)
|
|
(if tmp2787
|
|
(apply
|
|
(lambda (p2788)
|
|
(quasicons2761
|
|
'#(syntax-object (quote quasiquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
(quasi2757
|
|
(list p2788)
|
|
(+ lev2772
|
|
'1))))
|
|
tmp2787)
|
|
((lambda (tmp2789)
|
|
(if tmp2789
|
|
(apply
|
|
(lambda (p2791
|
|
q2790)
|
|
(quasicons2761
|
|
(quasi2757
|
|
p2791
|
|
lev2772)
|
|
(quasi2757
|
|
q2790
|
|
lev2772)))
|
|
tmp2789)
|
|
((lambda (tmp2792)
|
|
(if tmp2792
|
|
(apply
|
|
(lambda (x2793)
|
|
(quasivector2759
|
|
(vquasi2758
|
|
x2793
|
|
lev2772)))
|
|
tmp2792)
|
|
((lambda (p2795)
|
|
(list
|
|
'#(syntax-object quote ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
|
|
p2795))
|
|
tmp2774)))
|
|
($syntax-dispatch
|
|
tmp2774
|
|
'#(vector
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2774
|
|
'(any . any)))))
|
|
($syntax-dispatch
|
|
tmp2774
|
|
'(#(free-id
|
|
#(syntax-object quasiquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2774
|
|
'((#(free-id
|
|
#(syntax-object unquote-splicing ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
.
|
|
each-any)
|
|
.
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2774
|
|
'((#(free-id
|
|
#(syntax-object unquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
.
|
|
each-any)
|
|
.
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2774
|
|
'(#(free-id
|
|
#(syntax-object unquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage #(isquote? islist? iscons? quote-nil? quasilist* quasicons quasiappend quasivector vquasi quasi) #((top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
|
|
any))))
|
|
p2773))))
|
|
(lambda (x2767)
|
|
((lambda (tmp2768)
|
|
((lambda (tmp2769)
|
|
(if tmp2769
|
|
(apply (lambda (_2771 e2770) (quasi2757 e2770 '0)) tmp2769)
|
|
(syntax-error tmp2768)))
|
|
($syntax-dispatch tmp2768 '(any any))))
|
|
x2767)))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object unquote ((top) #(ribcage #(unquote) #((top)) #(unquote))))
|
|
(lambda (x2896) (syntax-error x2896 '"misplaced"))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object unquote-splicing ((top) #(ribcage #(unquote-splicing) #((top)) #(unquote-splicing))))
|
|
(lambda (x2897) (syntax-error x2897 '"misplaced"))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object quasisyntax ((top) #(ribcage #(quasisyntax) #((top)) #(quasisyntax))))
|
|
(lambda (x2898)
|
|
(letrec ((qs2899 (lambda (q2950 n2949 b*2948 k2947)
|
|
((lambda (tmp2951)
|
|
((lambda (tmp2952)
|
|
(if tmp2952
|
|
(apply
|
|
(lambda (d2953)
|
|
(qs2899
|
|
d2953
|
|
(+ n2949 '1)
|
|
b*2948
|
|
(lambda (b*2955 dnew2954)
|
|
(k2947
|
|
b*2955
|
|
(if (eq? dnew2954 d2953)
|
|
q2950
|
|
((lambda (tmp2956)
|
|
((lambda (d2957)
|
|
(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)))
|
|
d2957))
|
|
tmp2956))
|
|
dnew2954))))))
|
|
tmp2952)
|
|
((lambda (tmp2958)
|
|
(if (if tmp2958
|
|
(apply
|
|
(lambda (d2959)
|
|
(not (fx= n2949 '0)))
|
|
tmp2958)
|
|
'#f)
|
|
(apply
|
|
(lambda (d2960)
|
|
(qs2899
|
|
d2960
|
|
(fx- n2949 '1)
|
|
b*2948
|
|
(lambda (b*2962 dnew2961)
|
|
(k2947
|
|
b*2962
|
|
(if (eq? dnew2961 d2960)
|
|
q2950
|
|
((lambda (tmp2963)
|
|
((lambda (d2964)
|
|
(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)))
|
|
d2964))
|
|
tmp2963))
|
|
dnew2961))))))
|
|
tmp2958)
|
|
((lambda (tmp2965)
|
|
(if (if tmp2965
|
|
(apply
|
|
(lambda (d2966)
|
|
(not (fx= n2949 '0)))
|
|
tmp2965)
|
|
'#f)
|
|
(apply
|
|
(lambda (d2967)
|
|
(qs2899
|
|
d2967
|
|
(fx- n2949 '1)
|
|
b*2948
|
|
(lambda (b*2969
|
|
dnew2968)
|
|
(k2947
|
|
b*2969
|
|
(if (eq? dnew2968
|
|
d2967)
|
|
q2950
|
|
((lambda (tmp2970)
|
|
((lambda (d2971)
|
|
(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)))
|
|
d2971))
|
|
tmp2970))
|
|
dnew2968))))))
|
|
tmp2965)
|
|
((lambda (tmp2972)
|
|
(if (if tmp2972
|
|
(apply
|
|
(lambda (q2973)
|
|
(fx= n2949 '0))
|
|
tmp2972)
|
|
'#f)
|
|
(apply
|
|
(lambda (q2974)
|
|
((lambda (tmp2975)
|
|
((lambda (tmp2976)
|
|
(if tmp2976
|
|
(apply
|
|
(lambda (t2977)
|
|
(k2947
|
|
(cons
|
|
(list
|
|
t2977
|
|
q2974)
|
|
b*2948)
|
|
t2977))
|
|
tmp2976)
|
|
(syntax-error
|
|
tmp2975)))
|
|
($syntax-dispatch
|
|
tmp2975
|
|
'(any))))
|
|
(generate-temporaries
|
|
(list
|
|
q2974))))
|
|
tmp2972)
|
|
((lambda (tmp2978)
|
|
(if (if tmp2978
|
|
(apply
|
|
(lambda (q2980
|
|
d2979)
|
|
(fx= n2949
|
|
'0))
|
|
tmp2978)
|
|
'#f)
|
|
(apply
|
|
(lambda (q2982
|
|
d2981)
|
|
(qs2899
|
|
d2981
|
|
n2949
|
|
b*2948
|
|
(lambda (b*2984
|
|
dnew2983)
|
|
((lambda (tmp2985)
|
|
((lambda (tmp2987)
|
|
(if tmp2987
|
|
(apply
|
|
(lambda (t2988)
|
|
(k2947
|
|
(append
|
|
(map list
|
|
t2988
|
|
q2982)
|
|
b*2984)
|
|
((lambda (tmp2989)
|
|
((lambda (d2990)
|
|
(append
|
|
t2988
|
|
d2990))
|
|
tmp2989))
|
|
dnew2983)))
|
|
tmp2987)
|
|
(syntax-error
|
|
tmp2985)))
|
|
($syntax-dispatch
|
|
tmp2985
|
|
'each-any)))
|
|
(generate-temporaries
|
|
q2982)))))
|
|
tmp2978)
|
|
((lambda (tmp2994)
|
|
(if (if tmp2994
|
|
(apply
|
|
(lambda (q2996
|
|
d2995)
|
|
(fx= n2949
|
|
'0))
|
|
tmp2994)
|
|
'#f)
|
|
(apply
|
|
(lambda (q2998
|
|
d2997)
|
|
(qs2899
|
|
d2997
|
|
n2949
|
|
b*2948
|
|
(lambda (b*3000
|
|
dnew2999)
|
|
((lambda (tmp3001)
|
|
((lambda (tmp3003)
|
|
(if tmp3003
|
|
(apply
|
|
(lambda (t3004)
|
|
(k2947
|
|
(append
|
|
(map (lambda (tmp3014
|
|
tmp3013)
|
|
(list
|
|
(cons
|
|
tmp3013
|
|
'(#(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)))))
|
|
tmp3014))
|
|
q2998
|
|
t3004)
|
|
b*3000)
|
|
((lambda (tmp3005)
|
|
((lambda (tmp3007)
|
|
(if tmp3007
|
|
(apply
|
|
(lambda (m3008)
|
|
((lambda (tmp3009)
|
|
((lambda (d3010)
|
|
(append
|
|
(apply
|
|
append
|
|
m3008)
|
|
d3010))
|
|
tmp3009))
|
|
dnew2999))
|
|
tmp3007)
|
|
(syntax-error
|
|
tmp3005)))
|
|
($syntax-dispatch
|
|
tmp3005
|
|
'#(each
|
|
each-any))))
|
|
(map (lambda (tmp3006)
|
|
(cons
|
|
tmp3006
|
|
'(#(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))))))
|
|
t3004))))
|
|
tmp3003)
|
|
(syntax-error
|
|
tmp3001)))
|
|
($syntax-dispatch
|
|
tmp3001
|
|
'each-any)))
|
|
(generate-temporaries
|
|
q2998)))))
|
|
tmp2994)
|
|
((lambda (tmp3015)
|
|
(if tmp3015
|
|
(apply
|
|
(lambda (a3017
|
|
d3016)
|
|
(qs2899
|
|
a3017
|
|
n2949
|
|
b*2948
|
|
(lambda (b*3019
|
|
anew3018)
|
|
(qs2899
|
|
d3016
|
|
n2949
|
|
b*3019
|
|
(lambda (b*3021
|
|
dnew3020)
|
|
(k2947
|
|
b*3021
|
|
(if (if (eq? anew3018
|
|
a3017)
|
|
(eq? dnew3020
|
|
d3016)
|
|
'#f)
|
|
q2950
|
|
((lambda (tmp3022)
|
|
((lambda (tmp3023)
|
|
(if tmp3023
|
|
(apply
|
|
(lambda (a3025
|
|
d3024)
|
|
(cons
|
|
a3025
|
|
d3024))
|
|
tmp3023)
|
|
(syntax-error
|
|
tmp3022)))
|
|
($syntax-dispatch
|
|
tmp3022
|
|
'(any any))))
|
|
(list
|
|
anew3018
|
|
dnew3020)))))))))
|
|
tmp3015)
|
|
((lambda (tmp3026)
|
|
(if tmp3026
|
|
(apply
|
|
(lambda (x3027)
|
|
(vqs2900
|
|
x3027
|
|
n2949
|
|
b*2948
|
|
(lambda (b*3029
|
|
xnew*3028)
|
|
(k2947
|
|
b*3029
|
|
(if ((letrec ((same?3030 (lambda (x*3032
|
|
xnew*3031)
|
|
(if (null?
|
|
x*3032)
|
|
(null?
|
|
xnew*3031)
|
|
(if (not (null?
|
|
xnew*3031))
|
|
(if (eq? (car x*3032)
|
|
(car xnew*3031))
|
|
(same?3030
|
|
(cdr x*3032)
|
|
(cdr xnew*3031))
|
|
'#f)
|
|
'#f)))))
|
|
same?3030)
|
|
x3027
|
|
xnew*3028)
|
|
q2950
|
|
((lambda (tmp3034)
|
|
((lambda (tmp3035)
|
|
(if tmp3035
|
|
(apply
|
|
(lambda (x3036)
|
|
(list->vector
|
|
x3036))
|
|
tmp3035)
|
|
(syntax-error
|
|
tmp3034)))
|
|
($syntax-dispatch
|
|
tmp3034
|
|
'each-any)))
|
|
xnew*3028))))))
|
|
tmp3026)
|
|
((lambda (_3039)
|
|
(k2947
|
|
b*2948
|
|
q2950))
|
|
tmp2951)))
|
|
($syntax-dispatch
|
|
tmp2951
|
|
'#(vector
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp2951
|
|
'(any .
|
|
any)))))
|
|
($syntax-dispatch
|
|
tmp2951
|
|
'((#(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
|
|
tmp2951
|
|
'((#(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
|
|
tmp2951
|
|
'(#(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
|
|
tmp2951
|
|
'(#(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
|
|
tmp2951
|
|
'(#(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
|
|
tmp2951
|
|
'(#(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))))
|
|
q2950)))
|
|
(vqs2900 (lambda (x*2915 n2914 b*2913 k2912)
|
|
(if (null? x*2915)
|
|
(k2912 b*2913 '())
|
|
(vqs2900
|
|
(cdr x*2915)
|
|
n2914
|
|
b*2913
|
|
(lambda (b*2917 xnew*2916)
|
|
((lambda (tmp2918)
|
|
((lambda (tmp2919)
|
|
(if (if tmp2919
|
|
(apply
|
|
(lambda (q2920)
|
|
(fx= n2914 '0))
|
|
tmp2919)
|
|
'#f)
|
|
(apply
|
|
(lambda (q2921)
|
|
((lambda (tmp2922)
|
|
((lambda (tmp2924)
|
|
(if tmp2924
|
|
(apply
|
|
(lambda (t2925)
|
|
(k2912
|
|
(append
|
|
(map list
|
|
t2925
|
|
q2921)
|
|
b*2917)
|
|
(append
|
|
t2925
|
|
xnew*2916)))
|
|
tmp2924)
|
|
(syntax-error
|
|
tmp2922)))
|
|
($syntax-dispatch
|
|
tmp2922
|
|
'each-any)))
|
|
(generate-temporaries
|
|
q2921)))
|
|
tmp2919)
|
|
((lambda (tmp2929)
|
|
(if (if tmp2929
|
|
(apply
|
|
(lambda (q2930)
|
|
(fx= n2914 '0))
|
|
tmp2929)
|
|
'#f)
|
|
(apply
|
|
(lambda (q2931)
|
|
((lambda (tmp2932)
|
|
((lambda (tmp2934)
|
|
(if tmp2934
|
|
(apply
|
|
(lambda (t2935)
|
|
(k2912
|
|
(append
|
|
(map (lambda (tmp2943
|
|
tmp2942)
|
|
(list
|
|
(cons
|
|
tmp2942
|
|
'(#(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)))))
|
|
tmp2943))
|
|
q2931
|
|
t2935)
|
|
b*2917)
|
|
((lambda (tmp2936)
|
|
((lambda (tmp2938)
|
|
(if tmp2938
|
|
(apply
|
|
(lambda (m2939)
|
|
(append
|
|
(apply
|
|
append
|
|
m2939)
|
|
xnew*2916))
|
|
tmp2938)
|
|
(syntax-error
|
|
tmp2936)))
|
|
($syntax-dispatch
|
|
tmp2936
|
|
'#(each
|
|
each-any))))
|
|
(map (lambda (tmp2937)
|
|
(cons
|
|
tmp2937
|
|
'(#(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))))))
|
|
t2935))))
|
|
tmp2934)
|
|
(syntax-error
|
|
tmp2932)))
|
|
($syntax-dispatch
|
|
tmp2932
|
|
'each-any)))
|
|
(generate-temporaries
|
|
q2931)))
|
|
tmp2929)
|
|
((lambda (_2944)
|
|
(qs2899
|
|
(car x*2915)
|
|
n2914
|
|
b*2917
|
|
(lambda (b*2946
|
|
xnew2945)
|
|
(k2912
|
|
b*2946
|
|
(cons
|
|
xnew2945
|
|
xnew*2916)))))
|
|
tmp2918)))
|
|
($syntax-dispatch
|
|
tmp2918
|
|
'(#(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
|
|
tmp2918
|
|
'(#(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*2915))))))))
|
|
((lambda (tmp2901)
|
|
((lambda (tmp2902)
|
|
(if tmp2902
|
|
(apply
|
|
(lambda (_2904 x2903)
|
|
(qs2899
|
|
x2903
|
|
'0
|
|
'()
|
|
(lambda (b*2906 xnew2905)
|
|
(if (eq? xnew2905 x2903)
|
|
(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)))
|
|
x2903)
|
|
((lambda (tmp2907)
|
|
((lambda (tmp2908)
|
|
(if tmp2908
|
|
(apply
|
|
(lambda (b2910 x2909)
|
|
(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)))
|
|
b2910
|
|
(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)))
|
|
x2909)))
|
|
tmp2908)
|
|
(syntax-error tmp2907)))
|
|
($syntax-dispatch
|
|
tmp2907
|
|
'(each-any any))))
|
|
(list b*2906 xnew2905))))))
|
|
tmp2902)
|
|
(syntax-error tmp2901)))
|
|
($syntax-dispatch tmp2901 '(any any))))
|
|
x2898)))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object unsyntax ((top) #(ribcage #(unsyntax) #((top)) #(unsyntax))))
|
|
(lambda (x3040) (syntax-error x3040 '"misplaced"))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object unsyntax-splicing ((top) #(ribcage #(unsyntax-splicing) #((top)) #(unsyntax-splicing))))
|
|
(lambda (x3041) (syntax-error x3041 '"misplaced"))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object include ((top) #(ribcage #(include) #((top)) #(include))))
|
|
(lambda (x3042)
|
|
(letrec ((read-file3043 (lambda (fn3054 k3053)
|
|
((lambda (p3055)
|
|
((letrec ((f3056 (lambda ()
|
|
((lambda (x3057)
|
|
(if (eof-object?
|
|
x3057)
|
|
(begin
|
|
(close-input-port
|
|
p3055)
|
|
'())
|
|
(cons
|
|
(datum->syntax-object
|
|
k3053
|
|
x3057)
|
|
(f3056))))
|
|
(read p3055)))))
|
|
f3056)))
|
|
(open-input-file fn3054)))))
|
|
((lambda (tmp3044)
|
|
((lambda (tmp3045)
|
|
(if tmp3045
|
|
(apply
|
|
(lambda (k3047 filename3046)
|
|
((lambda (fn3048)
|
|
((lambda (tmp3049)
|
|
((lambda (tmp3050)
|
|
(if tmp3050
|
|
(apply
|
|
(lambda (exp3051)
|
|
(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)))
|
|
exp3051))
|
|
tmp3050)
|
|
(syntax-error tmp3049)))
|
|
($syntax-dispatch tmp3049 'each-any)))
|
|
(read-file3043 fn3048 k3047)))
|
|
(syntax-object->datum filename3046)))
|
|
tmp3045)
|
|
(syntax-error tmp3044)))
|
|
($syntax-dispatch tmp3044 '(any any))))
|
|
x3042)))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object case ((top) #(ribcage #(case) #((top)) #(case))))
|
|
(lambda (x3058)
|
|
((lambda (tmp3059)
|
|
((lambda (tmp3060)
|
|
(if tmp3060
|
|
(apply
|
|
(lambda (_3064 e3063 m13062 m23061)
|
|
((lambda (tmp3065)
|
|
((lambda (body3092)
|
|
(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)))
|
|
e3063))
|
|
body3092))
|
|
tmp3065))
|
|
((letrec ((f3066 (lambda (clause3068 clauses3067)
|
|
(if (null? clauses3067)
|
|
((lambda (tmp3069)
|
|
((lambda (tmp3070)
|
|
(if tmp3070
|
|
(apply
|
|
(lambda (e13072
|
|
e23071)
|
|
(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
|
|
e13072
|
|
e23071)))
|
|
tmp3070)
|
|
((lambda (tmp3074)
|
|
(if tmp3074
|
|
(apply
|
|
(lambda (k3077
|
|
e13076
|
|
e23075)
|
|
(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)))
|
|
k3077))
|
|
(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
|
|
e13076
|
|
e23075))))
|
|
tmp3074)
|
|
((lambda (_3080)
|
|
(syntax-error
|
|
x3058))
|
|
tmp3069)))
|
|
($syntax-dispatch
|
|
tmp3069
|
|
'(each-any
|
|
any
|
|
.
|
|
each-any)))))
|
|
($syntax-dispatch
|
|
tmp3069
|
|
'(#(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))))
|
|
clause3068)
|
|
((lambda (tmp3081)
|
|
((lambda (rest3082)
|
|
((lambda (tmp3083)
|
|
((lambda (tmp3084)
|
|
(if tmp3084
|
|
(apply
|
|
(lambda (k3087
|
|
e13086
|
|
e23085)
|
|
(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)))
|
|
k3087))
|
|
(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
|
|
e13086
|
|
e23085))
|
|
rest3082))
|
|
tmp3084)
|
|
((lambda (_3090)
|
|
(syntax-error
|
|
x3058))
|
|
tmp3083)))
|
|
($syntax-dispatch
|
|
tmp3083
|
|
'(each-any
|
|
any
|
|
.
|
|
each-any))))
|
|
clause3068))
|
|
tmp3081))
|
|
(f3066
|
|
(car clauses3067)
|
|
(cdr clauses3067)))))))
|
|
f3066)
|
|
m13062
|
|
m23061)))
|
|
tmp3060)
|
|
(syntax-error tmp3059)))
|
|
($syntax-dispatch tmp3059 '(any any any . each-any))))
|
|
x3058))
|
|
'*top*)
|
|
($sc-put-cte
|
|
'#(syntax-object identifier-syntax ((top) #(ribcage #(identifier-syntax) #((top)) #(identifier-syntax))))
|
|
(lambda (x3093)
|
|
((lambda (tmp3094)
|
|
((lambda (tmp3095)
|
|
(if tmp3095
|
|
(apply
|
|
(lambda (dummy3097 e3096)
|
|
(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)))
|
|
e3096))
|
|
(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
|
|
e3096
|
|
'(#(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))))))))))
|
|
tmp3095)
|
|
((lambda (tmp3098)
|
|
(if (if tmp3098
|
|
(apply
|
|
(lambda (dummy3104 id3103 exp13102 var3101
|
|
val3100 exp23099)
|
|
(if (identifier? id3103)
|
|
(identifier? var3101)
|
|
'#f))
|
|
tmp3098)
|
|
'#f)
|
|
(apply
|
|
(lambda (dummy3110 id3109 exp13108 var3107 val3106
|
|
exp23105)
|
|
(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)))
|
|
var3107
|
|
val3106)
|
|
(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)))
|
|
exp23105))
|
|
(list
|
|
(cons
|
|
id3109
|
|
'(#(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
|
|
exp13108
|
|
'(#(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
|
|
id3109
|
|
(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)))
|
|
id3109))
|
|
(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)))
|
|
exp13108))))))
|
|
tmp3098)
|
|
(syntax-error tmp3094)))
|
|
($syntax-dispatch
|
|
tmp3094
|
|
'(any (any any)
|
|
((#(free-id
|
|
#(syntax-object set! ((top) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))))
|
|
any
|
|
any)
|
|
any))))))
|
|
($syntax-dispatch tmp3094 '(any any))))
|
|
x3093))
|
|
'*top*)
|
|
|
|
;(primitive-set! '$syntax-dispatch $syntax-dispatch)
|
|
;(primitive-set! '$sc-put-cte $sc-put-cte)
|
|
;(current-expand
|
|
; (let ([sc-expand sc-expand])
|
|
; (lambda (x)
|
|
; (#%core-expand (sc-expand x)))))
|
|
|