mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-24 04:25:06 +02:00
2771 lines
624 KiB
Scheme
2771 lines
624 KiB
Scheme
|
|
CHICKEN
|
|
(c) 2008-2013, The Chicken Team
|
|
(c) 2000-2007, Felix L. Winkelmann
|
|
Version 4.8.0.5 (stability/4.8.0) (rev 5bd53ac)
|
|
linux-unix-gnu-x86-64 [ 64bit manyargs dload ptables ]
|
|
compiled 2013-10-03 on aeryn.xorinia.dim (Darwin)
|
|
|
|
; loading cyclone-clo.scm ...
|
|
((define c-compile-and-emit
|
|
(lambda (k$178 input-program$73 lib-deps$72 src-file$71)
|
|
((%closure
|
|
(lambda (self$425 input-program$73)
|
|
((%closure
|
|
(lambda (self$426
|
|
globals$80
|
|
imported-vars$79
|
|
imports$78
|
|
lib-exports$77
|
|
lib-name$76
|
|
module-globals$75
|
|
program?$74)
|
|
((%closure
|
|
(lambda (self$596 r$179)
|
|
((%closure-ref call/cc 0)
|
|
call/cc
|
|
(%closure-ref self$596 1)
|
|
r$179))
|
|
(%closure-ref self$426 2))
|
|
(%closure
|
|
(lambda (self$427 k$180 return$81)
|
|
((%closure
|
|
(lambda (self$428
|
|
globals$88
|
|
module-globals$87
|
|
program?$86
|
|
imports$85
|
|
imported-vars$84
|
|
lib-name$83
|
|
lib-exports$82)
|
|
((%closure
|
|
(lambda (self$429 globals$88)
|
|
((%closure
|
|
(lambda (self$430 module-globals$87)
|
|
((%closure
|
|
(lambda (self$431 program?$86)
|
|
((%closure
|
|
(lambda (self$432 imports$85)
|
|
((%closure
|
|
(lambda (self$433 imported-vars$84)
|
|
((%closure
|
|
(lambda (self$434 lib-name$83)
|
|
((%closure
|
|
(lambda (self$435 lib-exports$82)
|
|
((%closure
|
|
(lambda (self$436 r$329)
|
|
((%closure
|
|
(lambda (self$437 r$181)
|
|
((%closure
|
|
(lambda (self$438 r$328)
|
|
((%closure
|
|
(lambda (self$439 r$182)
|
|
((%closure
|
|
(lambda (self$440 r$183)
|
|
((%closure
|
|
(lambda (self$441 r$327)
|
|
((%closure
|
|
(lambda (self$442 r$184)
|
|
((%closure
|
|
(lambda (self$443 r$326)
|
|
((%closure
|
|
(lambda (self$444 r$185)
|
|
((%closure
|
|
(lambda (self$445 r$325)
|
|
((%closure
|
|
(lambda (self$446 r$186)
|
|
((%closure
|
|
(lambda (self$447 r$324)
|
|
((%closure
|
|
(lambda (self$448 r$187)
|
|
((%closure-ref emit 0)
|
|
emit
|
|
(%closure
|
|
(lambda (self$449 r$188)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$450 r$189)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$451 r$190)
|
|
((%closure
|
|
(lambda (self$559 k$290)
|
|
((%closure
|
|
(lambda (self$560 r$323)
|
|
((%closure-ref library? 0)
|
|
library?
|
|
(%closure
|
|
(lambda (self$561 r$291)
|
|
(if r$291
|
|
((%closure
|
|
(lambda (self$569)
|
|
((%closure
|
|
(lambda (self$570 r$316)
|
|
((%closure-ref lib:includes 0)
|
|
lib:includes
|
|
(%closure
|
|
(lambda (self$571 r$292)
|
|
((%closure
|
|
(lambda (self$572 includes$97)
|
|
((%closure
|
|
(lambda (self$573 r$293)
|
|
((%closure
|
|
(lambda (self$574 r$315)
|
|
((%closure-ref lib:name 0)
|
|
lib:name
|
|
(%closure
|
|
(lambda (self$575 r$314)
|
|
((%closure
|
|
(lambda (self$576 r$294)
|
|
((%closure-ref lib:name->symbol 0)
|
|
lib:name->symbol
|
|
(%closure
|
|
(lambda (self$577 r$311)
|
|
((%closure
|
|
(lambda (self$578 r$313)
|
|
((%closure-ref lib:exports 0)
|
|
lib:exports
|
|
(%closure
|
|
(lambda (self$579 r$312)
|
|
((%closure
|
|
(lambda (self$580 r$310)
|
|
((%closure
|
|
(lambda (self$581 r$295)
|
|
((%closure
|
|
(lambda (self$582 r$309)
|
|
((%closure-ref lib:imports 0)
|
|
lib:imports
|
|
(%closure
|
|
(lambda (self$583 r$308)
|
|
((%closure
|
|
(lambda (self$584 r$296)
|
|
((%closure
|
|
(lambda (self$585 r$307)
|
|
((%closure-ref lib:body 0)
|
|
lib:body
|
|
(%closure
|
|
(lambda (self$586 r$306)
|
|
((%closure
|
|
(lambda (self$587 r$297)
|
|
((%closure
|
|
(lambda (self$588 r$305)
|
|
((%closure-ref not 0)
|
|
not
|
|
(%closure
|
|
(lambda (self$589 r$298)
|
|
(if r$298
|
|
((%closure
|
|
(lambda (self$595 r$299)
|
|
((%closure-ref for-each 0)
|
|
for-each
|
|
(%closure-ref self$595 2)
|
|
r$299
|
|
(%closure-ref self$595 1)))
|
|
(%closure-ref self$589 1)
|
|
(%closure-ref self$589 3))
|
|
(%closure
|
|
(lambda (self$590 k$300 include$98)
|
|
((%closure-ref lib:import->path 0)
|
|
lib:import->path
|
|
(%closure
|
|
(lambda (self$591 r$304)
|
|
((%closure
|
|
(lambda (self$592 r$303)
|
|
((%closure-ref read-file 0)
|
|
read-file
|
|
(%closure
|
|
(lambda (self$593 r$302)
|
|
((%closure-ref append 0)
|
|
append
|
|
(%closure
|
|
(lambda (self$594 r$301)
|
|
((%closure-ref (%closure-ref self$594 2) 0)
|
|
(%closure-ref self$594 2)
|
|
(set-cell! (%closure-ref self$594 1) r$301)))
|
|
(%closure-ref self$593 1)
|
|
(%closure-ref self$593 2))
|
|
r$302
|
|
(cell-get (%closure-ref self$593 1))))
|
|
(%closure-ref self$592 1)
|
|
(%closure-ref self$592 2))
|
|
r$303))
|
|
(%closure-ref self$591 2)
|
|
(%closure-ref self$591 3))
|
|
(string-append r$304 (%closure-ref self$591 1))))
|
|
include$98
|
|
(%closure-ref self$590 1)
|
|
k$300)
|
|
(cell-get (%closure-ref self$590 2))))
|
|
(%closure-ref self$589 2)
|
|
(%closure-ref self$589 4)))
|
|
((%closure-ref (%closure-ref self$589 3) 0)
|
|
(%closure-ref self$589 3)
|
|
#f)))
|
|
(%closure-ref self$588 1)
|
|
(%closure-ref self$588 2)
|
|
(%closure-ref self$588 3)
|
|
(%closure-ref self$588 4))
|
|
r$305))
|
|
(%closure-ref self$587 1)
|
|
(%closure-ref self$587 2)
|
|
(%closure-ref self$587 3)
|
|
(%closure-ref self$587 4))
|
|
(null? (%closure-ref self$587 1))))
|
|
(%closure-ref self$586 1)
|
|
(%closure-ref self$586 2)
|
|
(%closure-ref self$586 3)
|
|
(%closure-ref self$586 4))
|
|
(set-cell! (%closure-ref self$586 2) r$306)))
|
|
(%closure-ref self$585 1)
|
|
(%closure-ref self$585 2)
|
|
(%closure-ref self$585 3)
|
|
(%closure-ref self$585 4))
|
|
r$307))
|
|
(%closure-ref self$584 1)
|
|
(%closure-ref self$584 2)
|
|
(%closure-ref self$584 3)
|
|
(%closure-ref self$584 4))
|
|
(car (cell-get (%closure-ref self$584 2)))))
|
|
(%closure-ref self$583 2)
|
|
(%closure-ref self$583 3)
|
|
(%closure-ref self$583 4)
|
|
(%closure-ref self$583 5))
|
|
(set-cell! (%closure-ref self$583 1) r$308)))
|
|
(%closure-ref self$582 1)
|
|
(%closure-ref self$582 2)
|
|
(%closure-ref self$582 3)
|
|
(%closure-ref self$582 4)
|
|
(%closure-ref self$582 5))
|
|
r$309))
|
|
(%closure-ref self$581 1)
|
|
(%closure-ref self$581 2)
|
|
(%closure-ref self$581 3)
|
|
(%closure-ref self$581 4)
|
|
(%closure-ref self$581 5))
|
|
(car (cell-get (%closure-ref self$581 3)))))
|
|
(%closure-ref self$580 1)
|
|
(%closure-ref self$580 2)
|
|
(%closure-ref self$580 3)
|
|
(%closure-ref self$580 4)
|
|
(%closure-ref self$580 6))
|
|
(set-cell! (%closure-ref self$580 5) r$310)))
|
|
(%closure-ref self$579 1)
|
|
(%closure-ref self$579 2)
|
|
(%closure-ref self$579 3)
|
|
(%closure-ref self$579 4)
|
|
(%closure-ref self$579 5)
|
|
(%closure-ref self$579 6))
|
|
(cons (%closure-ref self$579 7) r$312)))
|
|
(%closure-ref self$578 1)
|
|
(%closure-ref self$578 2)
|
|
(%closure-ref self$578 3)
|
|
(%closure-ref self$578 4)
|
|
(%closure-ref self$578 5)
|
|
(%closure-ref self$578 6)
|
|
(%closure-ref self$578 7))
|
|
r$313))
|
|
(%closure-ref self$577 1)
|
|
(%closure-ref self$577 2)
|
|
(%closure-ref self$577 3)
|
|
(%closure-ref self$577 4)
|
|
(%closure-ref self$577 5)
|
|
(%closure-ref self$577 6)
|
|
r$311)
|
|
(car (cell-get (%closure-ref self$577 3)))))
|
|
(%closure-ref self$576 1)
|
|
(%closure-ref self$576 2)
|
|
(%closure-ref self$576 3)
|
|
(%closure-ref self$576 4)
|
|
(%closure-ref self$576 5)
|
|
(%closure-ref self$576 6))
|
|
(cell-get (%closure-ref self$576 6))))
|
|
(%closure-ref self$575 1)
|
|
(%closure-ref self$575 2)
|
|
(%closure-ref self$575 3)
|
|
(%closure-ref self$575 4)
|
|
(%closure-ref self$575 5)
|
|
(%closure-ref self$575 6))
|
|
(set-cell! (%closure-ref self$575 6) r$314)))
|
|
(%closure-ref self$574 1)
|
|
(%closure-ref self$574 2)
|
|
(%closure-ref self$574 3)
|
|
(%closure-ref self$574 4)
|
|
(%closure-ref self$574 5)
|
|
(%closure-ref self$574 6))
|
|
r$315))
|
|
(%closure-ref self$573 1)
|
|
(%closure-ref self$573 2)
|
|
(%closure-ref self$573 3)
|
|
(%closure-ref self$573 4)
|
|
(%closure-ref self$573 5)
|
|
(%closure-ref self$573 6))
|
|
(car (cell-get (%closure-ref self$573 3)))))
|
|
(%closure-ref self$572 1)
|
|
includes$97
|
|
(%closure-ref self$572 2)
|
|
(%closure-ref self$572 3)
|
|
(%closure-ref self$572 4)
|
|
(%closure-ref self$572 5))
|
|
(set-cell! (%closure-ref self$572 6) #f)))
|
|
(%closure-ref self$571 1)
|
|
(%closure-ref self$571 2)
|
|
(%closure-ref self$571 3)
|
|
(%closure-ref self$571 4)
|
|
(%closure-ref self$571 5)
|
|
(%closure-ref self$571 6))
|
|
r$292))
|
|
(%closure-ref self$570 1)
|
|
(%closure-ref self$570 2)
|
|
(%closure-ref self$570 3)
|
|
(%closure-ref self$570 4)
|
|
(%closure-ref self$570 5)
|
|
(%closure-ref self$570 6))
|
|
r$316))
|
|
(%closure-ref self$569 1)
|
|
(%closure-ref self$569 2)
|
|
(%closure-ref self$569 3)
|
|
(%closure-ref self$569 4)
|
|
(%closure-ref self$569 5)
|
|
(%closure-ref self$569 6))
|
|
(car (cell-get (%closure-ref self$569 2)))))
|
|
(%closure-ref self$561 1)
|
|
(%closure-ref self$561 2)
|
|
(%closure-ref self$561 3)
|
|
(%closure-ref self$561 4)
|
|
(%closure-ref self$561 5)
|
|
(%closure-ref self$561 6)))
|
|
((%closure
|
|
(lambda (self$562 r$321)
|
|
((%closure
|
|
(lambda (self$563 r$322)
|
|
((%closure-ref tagged-list? 0)
|
|
tagged-list?
|
|
(%closure
|
|
(lambda (self$564 r$317)
|
|
(if r$317
|
|
((%closure
|
|
(lambda (self$565)
|
|
((%closure
|
|
(lambda (self$566 r$320)
|
|
((%closure
|
|
(lambda (self$567 r$318)
|
|
((%closure
|
|
(lambda (self$568 r$319)
|
|
((%closure-ref (%closure-ref self$568 2) 0)
|
|
(%closure-ref self$568 2)
|
|
(set-cell! (%closure-ref self$568 1) r$319)))
|
|
(%closure-ref self$567 1)
|
|
(%closure-ref self$567 2))
|
|
(cdr (cell-get (%closure-ref self$567 1)))))
|
|
(%closure-ref self$566 2)
|
|
(%closure-ref self$566 3))
|
|
(set-cell! (%closure-ref self$566 1) r$320)))
|
|
(%closure-ref self$565 1)
|
|
(%closure-ref self$565 2)
|
|
(%closure-ref self$565 3))
|
|
(cdar (cell-get (%closure-ref self$565 2)))))
|
|
(%closure-ref self$564 1)
|
|
(%closure-ref self$564 2)
|
|
(%closure-ref self$564 3)))
|
|
((%closure-ref (%closure-ref self$564 3) 0)
|
|
(%closure-ref self$564 3)
|
|
#f)))
|
|
(%closure-ref self$563 1)
|
|
(%closure-ref self$563 2)
|
|
(%closure-ref self$563 3))
|
|
(%closure-ref self$563 4)
|
|
r$322))
|
|
(%closure-ref self$562 1)
|
|
(%closure-ref self$562 2)
|
|
(%closure-ref self$562 3)
|
|
r$321)
|
|
(car (cell-get (%closure-ref self$562 2)))))
|
|
(%closure-ref self$561 1)
|
|
(%closure-ref self$561 2)
|
|
(%closure-ref self$561 3))
|
|
'import)))
|
|
(%closure-ref self$560 1)
|
|
(%closure-ref self$560 2)
|
|
(%closure-ref self$560 3)
|
|
(%closure-ref self$560 4)
|
|
(%closure-ref self$560 5)
|
|
(%closure-ref self$560 6))
|
|
r$323))
|
|
(%closure-ref self$559 1)
|
|
(%closure-ref self$559 2)
|
|
k$290
|
|
(%closure-ref self$559 3)
|
|
(%closure-ref self$559 4)
|
|
(%closure-ref self$559 5))
|
|
(car (cell-get (%closure-ref self$559 2)))))
|
|
(%closure-ref self$451 3)
|
|
(%closure-ref self$451 4)
|
|
(%closure-ref self$451 7)
|
|
(%closure-ref self$451 8)
|
|
(%closure-ref self$451 10))
|
|
(%closure
|
|
(lambda (self$452 r$191)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$453 r$192)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$454 r$193)
|
|
((%closure-ref lib:resolve-imports 0)
|
|
lib:resolve-imports
|
|
(%closure
|
|
(lambda (self$455 r$289)
|
|
((%closure
|
|
(lambda (self$456 r$194)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$457 r$195)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$458 r$196)
|
|
((%closure-ref lib:resolve-meta 0)
|
|
lib:resolve-meta
|
|
(%closure
|
|
(lambda (self$459 r$285)
|
|
((%closure
|
|
(lambda (self$460 meta$96)
|
|
((%closure-ref append 0)
|
|
append
|
|
(%closure
|
|
(lambda (self$461 r$288)
|
|
((%closure
|
|
(lambda (self$462 r$286)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$463 r$287)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$464 r$197)
|
|
((%closure
|
|
(lambda (self$468 r$280)
|
|
((%closure
|
|
(lambda (self$469 r$281)
|
|
((%closure-ref filter 0)
|
|
filter
|
|
(%closure
|
|
(lambda (self$470 r$278)
|
|
((%closure
|
|
(lambda (self$471 macros$95)
|
|
((%closure-ref append 0)
|
|
append
|
|
(%closure
|
|
(lambda (self$472 r$279)
|
|
((%closure
|
|
(lambda (self$473 r$198)
|
|
((%closure
|
|
(lambda (self$474 r$276)
|
|
((%closure
|
|
(lambda (self$475 r$277)
|
|
((%closure-ref create-environment 0)
|
|
create-environment
|
|
(%closure
|
|
(lambda (self$476 r$275)
|
|
((%closure-ref macro:load-env! 0)
|
|
macro:load-env!
|
|
(%closure
|
|
(lambda (self$477 r$199)
|
|
((%closure
|
|
(lambda (self$558 k$274)
|
|
(if (cell-get (%closure-ref self$558 1))
|
|
((%closure-ref k$274 0) k$274 expand-lambda-body)
|
|
((%closure-ref k$274 0) k$274 expand)))
|
|
(%closure-ref self$477 9))
|
|
(%closure
|
|
(lambda (self$478 r$272)
|
|
((%closure-ref macro:get-env 0)
|
|
macro:get-env
|
|
(%closure
|
|
(lambda (self$479 r$273)
|
|
((%closure-ref (%closure-ref self$479 10) 0)
|
|
(%closure-ref self$479 10)
|
|
(%closure
|
|
(lambda (self$480 r$271)
|
|
((%closure
|
|
(lambda (self$481 r$200)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$482 r$201)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$483 r$202)
|
|
((%closure-ref isolate-globals 0)
|
|
isolate-globals
|
|
(%closure
|
|
(lambda (self$484 r$270)
|
|
((%closure
|
|
(lambda (self$485 r$203)
|
|
((%closure
|
|
(lambda (self$553 k$265)
|
|
((%closure
|
|
(lambda (self$554 r$269)
|
|
((%closure-ref has-global? 0)
|
|
has-global?
|
|
(%closure
|
|
(lambda (self$555 r$268)
|
|
((%closure-ref not 0)
|
|
not
|
|
(%closure
|
|
(lambda (self$556 r$266)
|
|
(if r$266
|
|
((%closure-ref filter-unused-variables 0)
|
|
filter-unused-variables
|
|
(%closure
|
|
(lambda (self$557 r$267)
|
|
((%closure-ref (%closure-ref self$557 2) 0)
|
|
(%closure-ref self$557 2)
|
|
(set-cell! (%closure-ref self$557 1) r$267)))
|
|
(%closure-ref self$556 1)
|
|
(%closure-ref self$556 2))
|
|
(cell-get (%closure-ref self$556 1))
|
|
(cell-get (%closure-ref self$556 3)))
|
|
((%closure-ref (%closure-ref self$556 2) 0)
|
|
(%closure-ref self$556 2)
|
|
#f)))
|
|
(%closure-ref self$555 1)
|
|
(%closure-ref self$555 2)
|
|
(%closure-ref self$555 3))
|
|
r$268))
|
|
(%closure-ref self$554 1)
|
|
(%closure-ref self$554 2)
|
|
(%closure-ref self$554 3))
|
|
(cell-get (%closure-ref self$554 1))
|
|
r$269))
|
|
(%closure-ref self$553 1)
|
|
k$265
|
|
(%closure-ref self$553 2))
|
|
'eval))
|
|
(%closure-ref self$485 3)
|
|
(%closure-ref self$485 6))
|
|
(%closure
|
|
(lambda (self$486 r$204)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$487 r$205)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$488 r$206)
|
|
((%closure-ref global-vars 0)
|
|
global-vars
|
|
(%closure
|
|
(lambda (self$489 r$264)
|
|
((%closure
|
|
(lambda (self$490 r$207)
|
|
((%closure-ref append 0)
|
|
append
|
|
(%closure
|
|
(lambda (self$491 r$263)
|
|
((%closure
|
|
(lambda (self$492 r$208)
|
|
((%closure
|
|
(lambda (self$494 r$261)
|
|
((%closure-ref map 0)
|
|
map
|
|
(%closure
|
|
(lambda (self$495 r$260)
|
|
((%closure
|
|
(lambda (self$496 r$209)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$497 r$210)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$498 r$211)
|
|
((%closure
|
|
(lambda (self$500 r$258)
|
|
((%closure-ref map 0)
|
|
map
|
|
(%closure
|
|
(lambda (self$501 r$245)
|
|
((%closure
|
|
(lambda (self$502 cps$92)
|
|
((%closure
|
|
(lambda (self$539 k$246)
|
|
((%closure
|
|
(lambda (self$551 k$256)
|
|
(if library?
|
|
((%closure
|
|
(lambda (self$552 r$257)
|
|
((%closure-ref (%closure-ref self$552 1) 0)
|
|
(%closure-ref self$552 1)
|
|
(equal?
|
|
(cell-get (%closure-ref self$552 2))
|
|
r$257)))
|
|
k$256
|
|
(%closure-ref self$551 1))
|
|
'(scheme base))
|
|
((%closure-ref k$256 0) k$256 #f)))
|
|
(%closure-ref self$539 4))
|
|
(%closure
|
|
(lambda (self$540 r$247)
|
|
(if r$247
|
|
((%closure
|
|
(lambda (self$542)
|
|
((%closure
|
|
(lambda (self$543 r$255)
|
|
((%closure-ref append 0)
|
|
append
|
|
(%closure
|
|
(lambda (self$544 r$254)
|
|
((%closure
|
|
(lambda (self$545 r$248)
|
|
((%closure
|
|
(lambda (self$546 r$253)
|
|
((%closure-ref append 0)
|
|
append
|
|
(%closure
|
|
(lambda (self$547 r$252)
|
|
((%closure
|
|
(lambda (self$548 r$249)
|
|
((%closure
|
|
(lambda (self$549 r$251)
|
|
((%closure
|
|
(lambda (self$550 r$250)
|
|
((%closure-ref (%closure-ref self$550 2) 0)
|
|
(%closure-ref self$550 2)
|
|
(set-cell! (%closure-ref self$550 1) r$250)))
|
|
(%closure-ref self$549 2)
|
|
(%closure-ref self$549 3))
|
|
(cons r$251 (%closure-ref self$549 1))))
|
|
(%closure-ref self$548 1)
|
|
(%closure-ref self$548 2)
|
|
(%closure-ref self$548 3))
|
|
'(define call/cc
|
|
(lambda (k f)
|
|
(f k (lambda (_ result) (k result)))))))
|
|
(%closure-ref self$547 1)
|
|
(%closure-ref self$547 2)
|
|
(%closure-ref self$547 3))
|
|
(set-cell! (%closure-ref self$547 4) r$252)))
|
|
(%closure-ref self$546 1)
|
|
(%closure-ref self$546 2)
|
|
(%closure-ref self$546 3)
|
|
(%closure-ref self$546 4))
|
|
r$253
|
|
(cell-get (%closure-ref self$546 4))))
|
|
(%closure-ref self$545 1)
|
|
(%closure-ref self$545 2)
|
|
(%closure-ref self$545 3)
|
|
(%closure-ref self$545 4))
|
|
'(call/cc)))
|
|
(%closure-ref self$544 1)
|
|
(%closure-ref self$544 3)
|
|
(%closure-ref self$544 4)
|
|
(%closure-ref self$544 5))
|
|
(set-cell! (%closure-ref self$544 2) r$254)))
|
|
(%closure-ref self$543 1)
|
|
(%closure-ref self$543 2)
|
|
(%closure-ref self$543 3)
|
|
(%closure-ref self$543 4)
|
|
(%closure-ref self$543 5))
|
|
r$255
|
|
(cell-get (%closure-ref self$543 2))))
|
|
(%closure-ref self$542 1)
|
|
(%closure-ref self$542 2)
|
|
(%closure-ref self$542 3)
|
|
(%closure-ref self$542 4)
|
|
(%closure-ref self$542 5))
|
|
'(call/cc)))
|
|
(%closure-ref self$540 1)
|
|
(%closure-ref self$540 2)
|
|
(%closure-ref self$540 3)
|
|
(%closure-ref self$540 4)
|
|
(%closure-ref self$540 5)))
|
|
((%closure
|
|
(lambda (self$541)
|
|
((%closure-ref (%closure-ref self$541 3) 0)
|
|
(%closure-ref self$541 3)
|
|
(set-cell!
|
|
(%closure-ref self$541 2)
|
|
(%closure-ref self$541 1))))
|
|
(%closure-ref self$540 1)
|
|
(%closure-ref self$540 3)
|
|
(%closure-ref self$540 4)))))
|
|
(%closure-ref self$539 1)
|
|
(%closure-ref self$539 2)
|
|
(%closure-ref self$539 3)
|
|
k$246
|
|
(%closure-ref self$539 5))))
|
|
cps$92
|
|
(%closure-ref self$502 1)
|
|
(%closure-ref self$502 3)
|
|
(%closure-ref self$502 7)
|
|
(%closure-ref self$502 8))
|
|
(%closure
|
|
(lambda (self$503 r$212)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$504 r$213)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$505 r$214)
|
|
((%closure
|
|
(lambda (self$509 r$241)
|
|
((%closure-ref map 0)
|
|
map
|
|
(%closure
|
|
(lambda (self$510 r$240)
|
|
((%closure
|
|
(lambda (self$511 r$215)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$512 r$216)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$513 r$217)
|
|
((%closure
|
|
(lambda (self$527 r$229)
|
|
((%closure-ref map 0)
|
|
map
|
|
(%closure
|
|
(lambda (self$528 r$228)
|
|
((%closure
|
|
(lambda (self$529 r$218)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$530 r$219)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$531 r$220)
|
|
((lambda (k$225)
|
|
((%closure-ref not 0)
|
|
not
|
|
(%closure
|
|
(lambda (self$536 r$226)
|
|
(if r$226
|
|
((%closure
|
|
(lambda (self$537)
|
|
((%closure-ref trace:error 0)
|
|
trace:error
|
|
(%closure
|
|
(lambda (self$538 r$227)
|
|
((%closure-ref (%closure-ref self$538 1) 0)
|
|
(%closure-ref self$538 1)
|
|
(exit 0)))
|
|
(%closure-ref self$537 1))
|
|
"DEBUG, existing program"))
|
|
(%closure-ref self$536 1)))
|
|
((%closure-ref (%closure-ref self$536 1) 0)
|
|
(%closure-ref self$536 1)
|
|
#f)))
|
|
k$225)
|
|
*do-code-gen*))
|
|
(%closure
|
|
(lambda (self$532 r$221)
|
|
((%closure-ref trace:info 0)
|
|
trace:info
|
|
(%closure
|
|
(lambda (self$533 r$222)
|
|
((%closure-ref mta:code-gen 0)
|
|
mta:code-gen
|
|
(%closure
|
|
(lambda (self$534 r$223)
|
|
((%closure
|
|
(lambda (self$535 r$224)
|
|
((%closure-ref (%closure-ref self$535 2) 0)
|
|
(%closure-ref self$535 2)
|
|
(%closure-ref self$535 1)
|
|
r$224))
|
|
(%closure-ref self$534 1)
|
|
(%closure-ref self$534 2))
|
|
'()))
|
|
(%closure-ref self$533 3)
|
|
(%closure-ref self$533 9))
|
|
(cell-get (%closure-ref self$533 2))
|
|
(cell-get (%closure-ref self$533 8))
|
|
(cell-get (%closure-ref self$533 6))
|
|
(cell-get (%closure-ref self$533 5))
|
|
(cell-get (%closure-ref self$533 1))
|
|
(cell-get (%closure-ref self$533 7))
|
|
(%closure-ref self$533 4)
|
|
(%closure-ref self$533 10)))
|
|
(%closure-ref self$532 1)
|
|
(%closure-ref self$532 2)
|
|
(%closure-ref self$532 3)
|
|
(%closure-ref self$532 4)
|
|
(%closure-ref self$532 5)
|
|
(%closure-ref self$532 6)
|
|
(%closure-ref self$532 7)
|
|
(%closure-ref self$532 8)
|
|
(%closure-ref self$532 9)
|
|
(%closure-ref self$532 10))
|
|
"---------------- C code:"))
|
|
(%closure-ref self$531 1)
|
|
(%closure-ref self$531 2)
|
|
(%closure-ref self$531 3)
|
|
(%closure-ref self$531 4)
|
|
(%closure-ref self$531 5)
|
|
(%closure-ref self$531 6)
|
|
(%closure-ref self$531 7)
|
|
(%closure-ref self$531 8)
|
|
(%closure-ref self$531 9)
|
|
(%closure-ref self$531 10))))
|
|
(%closure-ref self$530 1)
|
|
(%closure-ref self$530 2)
|
|
(%closure-ref self$530 3)
|
|
(%closure-ref self$530 4)
|
|
(%closure-ref self$530 5)
|
|
(%closure-ref self$530 6)
|
|
(%closure-ref self$530 7)
|
|
(%closure-ref self$530 8)
|
|
(%closure-ref self$530 9)
|
|
(%closure-ref self$530 10))
|
|
(cell-get (%closure-ref self$530 2))))
|
|
(%closure-ref self$529 1)
|
|
(%closure-ref self$529 2)
|
|
(%closure-ref self$529 3)
|
|
(%closure-ref self$529 4)
|
|
(%closure-ref self$529 5)
|
|
(%closure-ref self$529 6)
|
|
(%closure-ref self$529 7)
|
|
(%closure-ref self$529 8)
|
|
(%closure-ref self$529 9)
|
|
(%closure-ref self$529 10))
|
|
"---------------- after closure-convert:"))
|
|
(%closure-ref self$528 1)
|
|
(%closure-ref self$528 2)
|
|
(%closure-ref self$528 3)
|
|
(%closure-ref self$528 4)
|
|
(%closure-ref self$528 5)
|
|
(%closure-ref self$528 6)
|
|
(%closure-ref self$528 7)
|
|
(%closure-ref self$528 8)
|
|
(%closure-ref self$528 9)
|
|
(%closure-ref self$528 10))
|
|
(set-cell! (%closure-ref self$528 2) r$228)))
|
|
(%closure-ref self$527 1)
|
|
(%closure-ref self$527 2)
|
|
(%closure-ref self$527 3)
|
|
(%closure-ref self$527 4)
|
|
(%closure-ref self$527 5)
|
|
(%closure-ref self$527 6)
|
|
(%closure-ref self$527 7)
|
|
(%closure-ref self$527 8)
|
|
(%closure-ref self$527 9)
|
|
(%closure-ref self$527 10))
|
|
r$229
|
|
(cell-get (%closure-ref self$527 2))))
|
|
(%closure-ref self$513 2)
|
|
(%closure-ref self$513 3)
|
|
(%closure-ref self$513 4)
|
|
(%closure-ref self$513 5)
|
|
(%closure-ref self$513 6)
|
|
(%closure-ref self$513 7)
|
|
(%closure-ref self$513 8)
|
|
(%closure-ref self$513 9)
|
|
(%closure-ref self$513 10)
|
|
(%closure-ref self$513 11))
|
|
(%closure
|
|
(lambda (self$514 k$230 expr$89)
|
|
((%closure-ref define? 0)
|
|
define?
|
|
(%closure
|
|
(lambda (self$515 r$231)
|
|
(if r$231
|
|
((%closure
|
|
(lambda (self$520)
|
|
((%closure
|
|
(lambda (self$521 r$232)
|
|
((%closure-ref define->var 0)
|
|
define->var
|
|
(%closure
|
|
(lambda (self$522 r$234)
|
|
((%closure-ref define->exp 0)
|
|
define->exp
|
|
(%closure
|
|
(lambda (self$523 r$237)
|
|
((%closure-ref closure-convert 0)
|
|
closure-convert
|
|
(%closure
|
|
(lambda (self$524 r$236)
|
|
((%closure
|
|
(lambda (self$525 r$235)
|
|
((%closure
|
|
(lambda (self$526 r$233)
|
|
((%closure-ref (%closure-ref self$526 1) 0)
|
|
(%closure-ref self$526 1)
|
|
(cons (%closure-ref self$526 2) r$233)))
|
|
(%closure-ref self$525 1)
|
|
(%closure-ref self$525 2))
|
|
(cons (%closure-ref self$525 3) r$235)))
|
|
(%closure-ref self$524 1)
|
|
(%closure-ref self$524 2)
|
|
(%closure-ref self$524 3))
|
|
(caddr r$236)))
|
|
(%closure-ref self$523 2)
|
|
(%closure-ref self$523 3)
|
|
(%closure-ref self$523 4))
|
|
r$237
|
|
(cell-get (%closure-ref self$523 1))))
|
|
(%closure-ref self$522 2)
|
|
(%closure-ref self$522 3)
|
|
(%closure-ref self$522 4)
|
|
r$234)
|
|
(%closure-ref self$522 1)))
|
|
(%closure-ref self$521 1)
|
|
(%closure-ref self$521 2)
|
|
(%closure-ref self$521 3)
|
|
r$232)
|
|
(%closure-ref self$521 1)))
|
|
(%closure-ref self$520 1)
|
|
(%closure-ref self$520 2)
|
|
(%closure-ref self$520 3))
|
|
'define))
|
|
(%closure-ref self$515 1)
|
|
(%closure-ref self$515 2)
|
|
(%closure-ref self$515 3)))
|
|
((%closure-ref define-c? 0)
|
|
define-c?
|
|
(%closure
|
|
(lambda (self$516 r$238)
|
|
(if r$238
|
|
((%closure
|
|
(lambda (self$519)
|
|
((%closure-ref (%closure-ref self$519 2) 0)
|
|
(%closure-ref self$519 2)
|
|
(%closure-ref self$519 1)))
|
|
(%closure-ref self$516 1)
|
|
(%closure-ref self$516 3)))
|
|
((%closure
|
|
(lambda (self$517)
|
|
((%closure-ref closure-convert 0)
|
|
closure-convert
|
|
(%closure
|
|
(lambda (self$518 r$239)
|
|
((%closure-ref (%closure-ref self$518 1) 0)
|
|
(%closure-ref self$518 1)
|
|
(caddr r$239)))
|
|
(%closure-ref self$517 3))
|
|
(%closure-ref self$517 1)
|
|
(cell-get (%closure-ref self$517 2))))
|
|
(%closure-ref self$516 1)
|
|
(%closure-ref self$516 2)
|
|
(%closure-ref self$516 3)))))
|
|
(%closure-ref self$515 1)
|
|
(%closure-ref self$515 2)
|
|
(%closure-ref self$515 3))
|
|
(%closure-ref self$515 1))))
|
|
expr$89
|
|
(%closure-ref self$514 1)
|
|
k$230)
|
|
expr$89))
|
|
(%closure-ref self$513 1))))
|
|
(%closure-ref self$512 1)
|
|
(%closure-ref self$512 2)
|
|
(%closure-ref self$512 3)
|
|
(%closure-ref self$512 4)
|
|
(%closure-ref self$512 5)
|
|
(%closure-ref self$512 6)
|
|
(%closure-ref self$512 7)
|
|
(%closure-ref self$512 8)
|
|
(%closure-ref self$512 9)
|
|
(%closure-ref self$512 10)
|
|
(%closure-ref self$512 11))
|
|
(cell-get (%closure-ref self$512 3))))
|
|
(%closure-ref self$511 1)
|
|
(%closure-ref self$511 2)
|
|
(%closure-ref self$511 3)
|
|
(%closure-ref self$511 4)
|
|
(%closure-ref self$511 5)
|
|
(%closure-ref self$511 6)
|
|
(%closure-ref self$511 7)
|
|
(%closure-ref self$511 8)
|
|
(%closure-ref self$511 9)
|
|
(%closure-ref self$511 10)
|
|
(%closure-ref self$511 11))
|
|
"---------------- after wrap-mutables:"))
|
|
(%closure-ref self$510 1)
|
|
(%closure-ref self$510 2)
|
|
(%closure-ref self$510 3)
|
|
(%closure-ref self$510 4)
|
|
(%closure-ref self$510 5)
|
|
(%closure-ref self$510 6)
|
|
(%closure-ref self$510 7)
|
|
(%closure-ref self$510 8)
|
|
(%closure-ref self$510 9)
|
|
(%closure-ref self$510 10)
|
|
(%closure-ref self$510 11))
|
|
(set-cell! (%closure-ref self$510 3) r$240)))
|
|
(%closure-ref self$509 1)
|
|
(%closure-ref self$509 2)
|
|
(%closure-ref self$509 3)
|
|
(%closure-ref self$509 4)
|
|
(%closure-ref self$509 5)
|
|
(%closure-ref self$509 6)
|
|
(%closure-ref self$509 7)
|
|
(%closure-ref self$509 8)
|
|
(%closure-ref self$509 9)
|
|
(%closure-ref self$509 10)
|
|
(%closure-ref self$509 11))
|
|
r$241
|
|
(cell-get (%closure-ref self$509 3))))
|
|
(%closure-ref self$505 1)
|
|
(%closure-ref self$505 2)
|
|
(%closure-ref self$505 3)
|
|
(%closure-ref self$505 4)
|
|
(%closure-ref self$505 5)
|
|
(%closure-ref self$505 6)
|
|
(%closure-ref self$505 7)
|
|
(%closure-ref self$505 8)
|
|
(%closure-ref self$505 9)
|
|
(%closure-ref self$505 10)
|
|
(%closure-ref self$505 11))
|
|
(%closure
|
|
(lambda (self$506 k$242 expr$90)
|
|
((%closure-ref clear-mutables 0)
|
|
clear-mutables
|
|
(%closure
|
|
(lambda (self$507 r$243)
|
|
((%closure-ref analyze-mutable-variables 0)
|
|
analyze-mutable-variables
|
|
(%closure
|
|
(lambda (self$508 r$244)
|
|
((%closure-ref wrap-mutables 0)
|
|
wrap-mutables
|
|
(%closure-ref self$508 3)
|
|
(%closure-ref self$508 1)
|
|
(cell-get (%closure-ref self$508 2))))
|
|
(%closure-ref self$507 1)
|
|
(%closure-ref self$507 2)
|
|
(%closure-ref self$507 3))
|
|
(%closure-ref self$507 1)))
|
|
expr$90
|
|
(%closure-ref self$506 1)
|
|
k$242)))
|
|
(%closure-ref self$505 1))))
|
|
(%closure-ref self$504 1)
|
|
(%closure-ref self$504 2)
|
|
(%closure-ref self$504 3)
|
|
(%closure-ref self$504 4)
|
|
(%closure-ref self$504 5)
|
|
(%closure-ref self$504 6)
|
|
(%closure-ref self$504 7)
|
|
(%closure-ref self$504 8)
|
|
(%closure-ref self$504 9)
|
|
(%closure-ref self$504 10)
|
|
(%closure-ref self$504 11))
|
|
(cell-get (%closure-ref self$504 3))))
|
|
(%closure-ref self$503 1)
|
|
(%closure-ref self$503 2)
|
|
(%closure-ref self$503 3)
|
|
(%closure-ref self$503 4)
|
|
(%closure-ref self$503 5)
|
|
(%closure-ref self$503 6)
|
|
(%closure-ref self$503 7)
|
|
(%closure-ref self$503 8)
|
|
(%closure-ref self$503 9)
|
|
(%closure-ref self$503 10)
|
|
(%closure-ref self$503 11))
|
|
"---------------- after CPS:"))
|
|
(%closure-ref self$502 1)
|
|
(%closure-ref self$502 2)
|
|
(%closure-ref self$502 3)
|
|
(%closure-ref self$502 4)
|
|
(%closure-ref self$502 5)
|
|
(%closure-ref self$502 6)
|
|
(%closure-ref self$502 7)
|
|
(%closure-ref self$502 8)
|
|
(%closure-ref self$502 9)
|
|
(%closure-ref self$502 10)
|
|
(%closure-ref self$502 11))))
|
|
(%closure-ref self$501 1)
|
|
(%closure-ref self$501 2)
|
|
(%closure-ref self$501 3)
|
|
(%closure-ref self$501 4)
|
|
(%closure-ref self$501 5)
|
|
(%closure-ref self$501 6)
|
|
(%closure-ref self$501 7)
|
|
(%closure-ref self$501 8)
|
|
(%closure-ref self$501 9)
|
|
(%closure-ref self$501 10)
|
|
(%closure-ref self$501 11))
|
|
r$245))
|
|
(%closure-ref self$500 1)
|
|
(%closure-ref self$500 2)
|
|
(%closure-ref self$500 3)
|
|
(%closure-ref self$500 4)
|
|
(%closure-ref self$500 5)
|
|
(%closure-ref self$500 6)
|
|
(%closure-ref self$500 7)
|
|
(%closure-ref self$500 8)
|
|
(%closure-ref self$500 9)
|
|
(%closure-ref self$500 10)
|
|
(%closure-ref self$500 11))
|
|
r$258
|
|
(cell-get (%closure-ref self$500 3))))
|
|
(%closure-ref self$498 1)
|
|
(%closure-ref self$498 2)
|
|
(%closure-ref self$498 3)
|
|
(%closure-ref self$498 4)
|
|
(%closure-ref self$498 5)
|
|
(%closure-ref self$498 6)
|
|
(%closure-ref self$498 7)
|
|
(%closure-ref self$498 8)
|
|
(%closure-ref self$498 9)
|
|
(%closure-ref self$498 10)
|
|
(%closure-ref self$498 11))
|
|
(%closure
|
|
(lambda (self$499 k$259 expr$91)
|
|
((%closure-ref cps-convert 0)
|
|
cps-convert
|
|
k$259
|
|
expr$91)))))
|
|
(%closure-ref self$497 1)
|
|
(%closure-ref self$497 2)
|
|
(%closure-ref self$497 3)
|
|
(%closure-ref self$497 4)
|
|
(%closure-ref self$497 5)
|
|
(%closure-ref self$497 6)
|
|
(%closure-ref self$497 7)
|
|
(%closure-ref self$497 8)
|
|
(%closure-ref self$497 9)
|
|
(%closure-ref self$497 10)
|
|
(%closure-ref self$497 11))
|
|
(cell-get (%closure-ref self$497 3))))
|
|
(%closure-ref self$496 1)
|
|
(%closure-ref self$496 2)
|
|
(%closure-ref self$496 3)
|
|
(%closure-ref self$496 4)
|
|
(%closure-ref self$496 5)
|
|
(%closure-ref self$496 6)
|
|
(%closure-ref self$496 7)
|
|
(%closure-ref self$496 8)
|
|
(%closure-ref self$496 9)
|
|
(%closure-ref self$496 10)
|
|
(%closure-ref self$496 11))
|
|
"---------------- after alpha conversion:"))
|
|
(%closure-ref self$495 1)
|
|
(%closure-ref self$495 2)
|
|
(%closure-ref self$495 3)
|
|
(%closure-ref self$495 4)
|
|
(%closure-ref self$495 5)
|
|
(%closure-ref self$495 6)
|
|
(%closure-ref self$495 7)
|
|
(%closure-ref self$495 8)
|
|
(%closure-ref self$495 9)
|
|
(%closure-ref self$495 10)
|
|
(%closure-ref self$495 11))
|
|
(set-cell! (%closure-ref self$495 3) r$260)))
|
|
(%closure-ref self$494 1)
|
|
(%closure-ref self$494 2)
|
|
(%closure-ref self$494 3)
|
|
(%closure-ref self$494 4)
|
|
(%closure-ref self$494 5)
|
|
(%closure-ref self$494 6)
|
|
(%closure-ref self$494 7)
|
|
(%closure-ref self$494 8)
|
|
(%closure-ref self$494 9)
|
|
(%closure-ref self$494 10)
|
|
(%closure-ref self$494 11))
|
|
r$261
|
|
(cell-get (%closure-ref self$494 3))))
|
|
(%closure-ref self$492 1)
|
|
(%closure-ref self$492 2)
|
|
(%closure-ref self$492 3)
|
|
(%closure-ref self$492 4)
|
|
(%closure-ref self$492 5)
|
|
(%closure-ref self$492 6)
|
|
(%closure-ref self$492 7)
|
|
(%closure-ref self$492 8)
|
|
(%closure-ref self$492 9)
|
|
(%closure-ref self$492 10)
|
|
(%closure-ref self$492 11))
|
|
(%closure
|
|
(lambda (self$493 k$262 expr$93)
|
|
((%closure-ref alpha-convert 0)
|
|
alpha-convert
|
|
k$262
|
|
expr$93
|
|
(cell-get (%closure-ref self$493 1))
|
|
(%closure-ref self$493 2)))
|
|
(%closure-ref self$492 1)
|
|
(%closure-ref self$492 10))))
|
|
(%closure-ref self$491 1)
|
|
(%closure-ref self$491 2)
|
|
(%closure-ref self$491 3)
|
|
(%closure-ref self$491 4)
|
|
(%closure-ref self$491 5)
|
|
(%closure-ref self$491 6)
|
|
(%closure-ref self$491 7)
|
|
(%closure-ref self$491 8)
|
|
(%closure-ref self$491 9)
|
|
(%closure-ref self$491 10)
|
|
(%closure-ref self$491 11))
|
|
(set-cell! (%closure-ref self$491 1) r$263)))
|
|
(%closure-ref self$490 1)
|
|
(%closure-ref self$490 2)
|
|
(%closure-ref self$490 3)
|
|
(%closure-ref self$490 4)
|
|
(%closure-ref self$490 5)
|
|
(%closure-ref self$490 6)
|
|
(%closure-ref self$490 7)
|
|
(%closure-ref self$490 8)
|
|
(%closure-ref self$490 9)
|
|
(%closure-ref self$490 10)
|
|
(%closure-ref self$490 11))
|
|
(cell-get (%closure-ref self$490 2))
|
|
(cell-get (%closure-ref self$490 8))))
|
|
(%closure-ref self$489 1)
|
|
(%closure-ref self$489 2)
|
|
(%closure-ref self$489 3)
|
|
(%closure-ref self$489 4)
|
|
(%closure-ref self$489 5)
|
|
(%closure-ref self$489 6)
|
|
(%closure-ref self$489 7)
|
|
(%closure-ref self$489 8)
|
|
(%closure-ref self$489 9)
|
|
(%closure-ref self$489 10)
|
|
(%closure-ref self$489 11))
|
|
(set-cell! (%closure-ref self$489 8) r$264)))
|
|
(%closure-ref self$488 1)
|
|
(%closure-ref self$488 2)
|
|
(%closure-ref self$488 3)
|
|
(%closure-ref self$488 4)
|
|
(%closure-ref self$488 5)
|
|
(%closure-ref self$488 6)
|
|
(%closure-ref self$488 7)
|
|
(%closure-ref self$488 8)
|
|
(%closure-ref self$488 9)
|
|
(%closure-ref self$488 10)
|
|
(%closure-ref self$488 11))
|
|
(cell-get (%closure-ref self$488 3))))
|
|
(%closure-ref self$487 1)
|
|
(%closure-ref self$487 2)
|
|
(%closure-ref self$487 3)
|
|
(%closure-ref self$487 4)
|
|
(%closure-ref self$487 5)
|
|
(%closure-ref self$487 6)
|
|
(%closure-ref self$487 7)
|
|
(%closure-ref self$487 8)
|
|
(%closure-ref self$487 9)
|
|
(%closure-ref self$487 10)
|
|
(%closure-ref self$487 11))
|
|
(cell-get (%closure-ref self$487 3))))
|
|
(%closure-ref self$486 1)
|
|
(%closure-ref self$486 2)
|
|
(%closure-ref self$486 3)
|
|
(%closure-ref self$486 4)
|
|
(%closure-ref self$486 5)
|
|
(%closure-ref self$486 6)
|
|
(%closure-ref self$486 7)
|
|
(%closure-ref self$486 8)
|
|
(%closure-ref self$486 9)
|
|
(%closure-ref self$486 10)
|
|
(%closure-ref self$486 11))
|
|
"---------------- after processing globals"))
|
|
(%closure-ref self$485 1)
|
|
(%closure-ref self$485 2)
|
|
(%closure-ref self$485 3)
|
|
(%closure-ref self$485 4)
|
|
(%closure-ref self$485 5)
|
|
(%closure-ref self$485 6)
|
|
(%closure-ref self$485 7)
|
|
(%closure-ref self$485 8)
|
|
(%closure-ref self$485 9)
|
|
(%closure-ref self$485 10)
|
|
(%closure-ref self$485 11))))
|
|
(%closure-ref self$484 1)
|
|
(%closure-ref self$484 2)
|
|
(%closure-ref self$484 3)
|
|
(%closure-ref self$484 4)
|
|
(%closure-ref self$484 5)
|
|
(%closure-ref self$484 6)
|
|
(%closure-ref self$484 7)
|
|
(%closure-ref self$484 8)
|
|
(%closure-ref self$484 9)
|
|
(%closure-ref self$484 10)
|
|
(%closure-ref self$484 11))
|
|
(set-cell! (%closure-ref self$484 3) r$270)))
|
|
(%closure-ref self$483 1)
|
|
(%closure-ref self$483 2)
|
|
(%closure-ref self$483 3)
|
|
(%closure-ref self$483 4)
|
|
(%closure-ref self$483 5)
|
|
(%closure-ref self$483 6)
|
|
(%closure-ref self$483 7)
|
|
(%closure-ref self$483 8)
|
|
(%closure-ref self$483 9)
|
|
(%closure-ref self$483 10)
|
|
(%closure-ref self$483 11))
|
|
(cell-get (%closure-ref self$483 3))
|
|
(cell-get (%closure-ref self$483 9))
|
|
(cell-get (%closure-ref self$483 7))))
|
|
(%closure-ref self$482 1)
|
|
(%closure-ref self$482 2)
|
|
(%closure-ref self$482 3)
|
|
(%closure-ref self$482 4)
|
|
(%closure-ref self$482 5)
|
|
(%closure-ref self$482 6)
|
|
(%closure-ref self$482 7)
|
|
(%closure-ref self$482 8)
|
|
(%closure-ref self$482 9)
|
|
(%closure-ref self$482 10)
|
|
(%closure-ref self$482 11))
|
|
(cell-get (%closure-ref self$482 3))))
|
|
(%closure-ref self$481 1)
|
|
(%closure-ref self$481 2)
|
|
(%closure-ref self$481 3)
|
|
(%closure-ref self$481 4)
|
|
(%closure-ref self$481 5)
|
|
(%closure-ref self$481 6)
|
|
(%closure-ref self$481 7)
|
|
(%closure-ref self$481 8)
|
|
(%closure-ref self$481 9)
|
|
(%closure-ref self$481 10)
|
|
(%closure-ref self$481 11))
|
|
"---------------- after macro expansion:"))
|
|
(%closure-ref self$480 1)
|
|
(%closure-ref self$480 2)
|
|
(%closure-ref self$480 3)
|
|
(%closure-ref self$480 4)
|
|
(%closure-ref self$480 5)
|
|
(%closure-ref self$480 6)
|
|
(%closure-ref self$480 7)
|
|
(%closure-ref self$480 8)
|
|
(%closure-ref self$480 9)
|
|
(%closure-ref self$480 10)
|
|
(%closure-ref self$480 11))
|
|
(set-cell! (%closure-ref self$480 3) r$271)))
|
|
(%closure-ref self$479 1)
|
|
(%closure-ref self$479 2)
|
|
(%closure-ref self$479 3)
|
|
(%closure-ref self$479 4)
|
|
(%closure-ref self$479 5)
|
|
(%closure-ref self$479 6)
|
|
(%closure-ref self$479 7)
|
|
(%closure-ref self$479 8)
|
|
(%closure-ref self$479 9)
|
|
(%closure-ref self$479 11)
|
|
(%closure-ref self$479 12))
|
|
(cell-get (%closure-ref self$479 3))
|
|
r$273))
|
|
(%closure-ref self$478 1)
|
|
(%closure-ref self$478 2)
|
|
(%closure-ref self$478 3)
|
|
(%closure-ref self$478 4)
|
|
(%closure-ref self$478 5)
|
|
(%closure-ref self$478 6)
|
|
(%closure-ref self$478 7)
|
|
(%closure-ref self$478 8)
|
|
(%closure-ref self$478 9)
|
|
r$272
|
|
(%closure-ref self$478 10)
|
|
(%closure-ref self$478 11))))
|
|
(%closure-ref self$477 1)
|
|
(%closure-ref self$477 2)
|
|
(%closure-ref self$477 3)
|
|
(%closure-ref self$477 4)
|
|
(%closure-ref self$477 5)
|
|
(%closure-ref self$477 6)
|
|
(%closure-ref self$477 7)
|
|
(%closure-ref self$477 8)
|
|
(%closure-ref self$477 9)
|
|
(%closure-ref self$477 10)
|
|
(%closure-ref self$477 11))))
|
|
(%closure-ref self$476 1)
|
|
(%closure-ref self$476 2)
|
|
(%closure-ref self$476 3)
|
|
(%closure-ref self$476 4)
|
|
(%closure-ref self$476 5)
|
|
(%closure-ref self$476 6)
|
|
(%closure-ref self$476 7)
|
|
(%closure-ref self$476 8)
|
|
(%closure-ref self$476 9)
|
|
(%closure-ref self$476 10)
|
|
(%closure-ref self$476 11))
|
|
*defined-macros*
|
|
r$275))
|
|
(%closure-ref self$475 1)
|
|
(%closure-ref self$475 2)
|
|
(%closure-ref self$475 3)
|
|
(%closure-ref self$475 4)
|
|
(%closure-ref self$475 5)
|
|
(%closure-ref self$475 6)
|
|
(%closure-ref self$475 7)
|
|
(%closure-ref self$475 8)
|
|
(%closure-ref self$475 9)
|
|
(%closure-ref self$475 11)
|
|
(%closure-ref self$475 12))
|
|
(%closure-ref self$475 10)
|
|
r$277))
|
|
(%closure-ref self$474 1)
|
|
(%closure-ref self$474 2)
|
|
(%closure-ref self$474 3)
|
|
(%closure-ref self$474 4)
|
|
(%closure-ref self$474 5)
|
|
(%closure-ref self$474 6)
|
|
(%closure-ref self$474 7)
|
|
(%closure-ref self$474 8)
|
|
(%closure-ref self$474 9)
|
|
r$276
|
|
(%closure-ref self$474 10)
|
|
(%closure-ref self$474 11))
|
|
'()))
|
|
(%closure-ref self$473 1)
|
|
(%closure-ref self$473 2)
|
|
(%closure-ref self$473 3)
|
|
(%closure-ref self$473 4)
|
|
(%closure-ref self$473 5)
|
|
(%closure-ref self$473 6)
|
|
(%closure-ref self$473 7)
|
|
(%closure-ref self$473 8)
|
|
(%closure-ref self$473 9)
|
|
(%closure-ref self$473 10)
|
|
(%closure-ref self$473 11))
|
|
'()))
|
|
(%closure-ref self$472 1)
|
|
(%closure-ref self$472 2)
|
|
(%closure-ref self$472 3)
|
|
(%closure-ref self$472 4)
|
|
(%closure-ref self$472 5)
|
|
(%closure-ref self$472 6)
|
|
(%closure-ref self$472 7)
|
|
(%closure-ref self$472 8)
|
|
(%closure-ref self$472 9)
|
|
(%closure-ref self$472 10)
|
|
(%closure-ref self$472 11))
|
|
(set-global! *defined-macros* r$279)))
|
|
(%closure-ref self$471 1)
|
|
(%closure-ref self$471 2)
|
|
(%closure-ref self$471 3)
|
|
(%closure-ref self$471 4)
|
|
(%closure-ref self$471 5)
|
|
(%closure-ref self$471 6)
|
|
(%closure-ref self$471 7)
|
|
(%closure-ref self$471 8)
|
|
(%closure-ref self$471 9)
|
|
(%closure-ref self$471 10)
|
|
(%closure-ref self$471 11))
|
|
macros$95
|
|
*defined-macros*))
|
|
(%closure-ref self$470 1)
|
|
(%closure-ref self$470 2)
|
|
(%closure-ref self$470 3)
|
|
(%closure-ref self$470 4)
|
|
(%closure-ref self$470 5)
|
|
(%closure-ref self$470 6)
|
|
(%closure-ref self$470 7)
|
|
(%closure-ref self$470 8)
|
|
(%closure-ref self$470 9)
|
|
(%closure-ref self$470 10)
|
|
(%closure-ref self$470 11))
|
|
r$278))
|
|
(%closure-ref self$469 1)
|
|
(%closure-ref self$469 2)
|
|
(%closure-ref self$469 3)
|
|
(%closure-ref self$469 4)
|
|
(%closure-ref self$469 5)
|
|
(%closure-ref self$469 6)
|
|
(%closure-ref self$469 7)
|
|
(%closure-ref self$469 8)
|
|
(%closure-ref self$469 9)
|
|
(%closure-ref self$469 11)
|
|
(%closure-ref self$469 12))
|
|
(%closure-ref self$469 10)
|
|
r$281))
|
|
(%closure-ref self$468 1)
|
|
(%closure-ref self$468 2)
|
|
(%closure-ref self$468 3)
|
|
(%closure-ref self$468 4)
|
|
(%closure-ref self$468 5)
|
|
(%closure-ref self$468 6)
|
|
(%closure-ref self$468 7)
|
|
(%closure-ref self$468 8)
|
|
(%closure-ref self$468 9)
|
|
r$280
|
|
(%closure-ref self$468 10)
|
|
(%closure-ref self$468 11))
|
|
(Cyc-global-vars)))
|
|
(%closure-ref self$464 1)
|
|
(%closure-ref self$464 2)
|
|
(%closure-ref self$464 3)
|
|
(%closure-ref self$464 4)
|
|
(%closure-ref self$464 5)
|
|
(%closure-ref self$464 6)
|
|
(%closure-ref self$464 7)
|
|
(%closure-ref self$464 8)
|
|
(%closure-ref self$464 9)
|
|
(%closure-ref self$464 10)
|
|
(%closure-ref self$464 11))
|
|
(%closure
|
|
(lambda (self$465 k$282 v$94)
|
|
((%closure
|
|
(lambda (self$466 r$284)
|
|
((%closure
|
|
(lambda (self$467 r$283)
|
|
((%closure-ref (%closure-ref self$467 1) 0)
|
|
(%closure-ref self$467 1)
|
|
(macro? r$283)))
|
|
(%closure-ref self$466 1))
|
|
(Cyc-get-cvar r$284)))
|
|
k$282)
|
|
(cdr v$94))))))
|
|
(%closure-ref self$463 1)
|
|
(%closure-ref self$463 2)
|
|
(%closure-ref self$463 3)
|
|
(%closure-ref self$463 4)
|
|
(%closure-ref self$463 5)
|
|
(%closure-ref self$463 6)
|
|
(%closure-ref self$463 7)
|
|
(%closure-ref self$463 9)
|
|
(%closure-ref self$463 10)
|
|
(%closure-ref self$463 11)
|
|
(%closure-ref self$463 12))
|
|
(%closure-ref self$463 8)))
|
|
(%closure-ref self$462 1)
|
|
(%closure-ref self$462 2)
|
|
(%closure-ref self$462 3)
|
|
(%closure-ref self$462 4)
|
|
(%closure-ref self$462 5)
|
|
(%closure-ref self$462 6)
|
|
(%closure-ref self$462 7)
|
|
(%closure-ref self$462 8)
|
|
(%closure-ref self$462 9)
|
|
(%closure-ref self$462 10)
|
|
(%closure-ref self$462 11)
|
|
(%closure-ref self$462 12))
|
|
"resolved macros:"))
|
|
(%closure-ref self$461 1)
|
|
(%closure-ref self$461 2)
|
|
(%closure-ref self$461 3)
|
|
(%closure-ref self$461 4)
|
|
(%closure-ref self$461 5)
|
|
(%closure-ref self$461 6)
|
|
(%closure-ref self$461 7)
|
|
(%closure-ref self$461 8)
|
|
(%closure-ref self$461 9)
|
|
(%closure-ref self$461 10)
|
|
(%closure-ref self$461 11)
|
|
(%closure-ref self$461 12))
|
|
(set-global! *defined-macros* r$288)))
|
|
(%closure-ref self$460 1)
|
|
(%closure-ref self$460 2)
|
|
(%closure-ref self$460 3)
|
|
(%closure-ref self$460 4)
|
|
(%closure-ref self$460 5)
|
|
(%closure-ref self$460 6)
|
|
(%closure-ref self$460 7)
|
|
meta$96
|
|
(%closure-ref self$460 8)
|
|
(%closure-ref self$460 9)
|
|
(%closure-ref self$460 10)
|
|
(%closure-ref self$460 11))
|
|
meta$96
|
|
*defined-macros*))
|
|
(%closure-ref self$459 1)
|
|
(%closure-ref self$459 2)
|
|
(%closure-ref self$459 3)
|
|
(%closure-ref self$459 4)
|
|
(%closure-ref self$459 5)
|
|
(%closure-ref self$459 6)
|
|
(%closure-ref self$459 7)
|
|
(%closure-ref self$459 8)
|
|
(%closure-ref self$459 9)
|
|
(%closure-ref self$459 10)
|
|
(%closure-ref self$459 11))
|
|
r$285))
|
|
(%closure-ref self$458 1)
|
|
(%closure-ref self$458 2)
|
|
(%closure-ref self$458 4)
|
|
(%closure-ref self$458 5)
|
|
(%closure-ref self$458 6)
|
|
(%closure-ref self$458 7)
|
|
(%closure-ref self$458 8)
|
|
(%closure-ref self$458 9)
|
|
(%closure-ref self$458 10)
|
|
(%closure-ref self$458 11)
|
|
(%closure-ref self$458 12))
|
|
(cell-get (%closure-ref self$458 3))))
|
|
(%closure-ref self$457 1)
|
|
(%closure-ref self$457 2)
|
|
(%closure-ref self$457 3)
|
|
(%closure-ref self$457 4)
|
|
(%closure-ref self$457 5)
|
|
(%closure-ref self$457 6)
|
|
(%closure-ref self$457 7)
|
|
(%closure-ref self$457 8)
|
|
(%closure-ref self$457 9)
|
|
(%closure-ref self$457 10)
|
|
(%closure-ref self$457 11)
|
|
(%closure-ref self$457 12))
|
|
(cell-get (%closure-ref self$457 2))))
|
|
(%closure-ref self$456 1)
|
|
(%closure-ref self$456 2)
|
|
(%closure-ref self$456 3)
|
|
(%closure-ref self$456 4)
|
|
(%closure-ref self$456 5)
|
|
(%closure-ref self$456 6)
|
|
(%closure-ref self$456 7)
|
|
(%closure-ref self$456 8)
|
|
(%closure-ref self$456 9)
|
|
(%closure-ref self$456 10)
|
|
(%closure-ref self$456 11)
|
|
(%closure-ref self$456 12))
|
|
"resolved imports:"))
|
|
(%closure-ref self$455 1)
|
|
(%closure-ref self$455 2)
|
|
(%closure-ref self$455 3)
|
|
(%closure-ref self$455 4)
|
|
(%closure-ref self$455 5)
|
|
(%closure-ref self$455 6)
|
|
(%closure-ref self$455 7)
|
|
(%closure-ref self$455 8)
|
|
(%closure-ref self$455 9)
|
|
(%closure-ref self$455 10)
|
|
(%closure-ref self$455 11)
|
|
(%closure-ref self$455 12))
|
|
(set-cell! (%closure-ref self$455 2) r$289)))
|
|
(%closure-ref self$454 1)
|
|
(%closure-ref self$454 2)
|
|
(%closure-ref self$454 3)
|
|
(%closure-ref self$454 4)
|
|
(%closure-ref self$454 5)
|
|
(%closure-ref self$454 6)
|
|
(%closure-ref self$454 7)
|
|
(%closure-ref self$454 8)
|
|
(%closure-ref self$454 9)
|
|
(%closure-ref self$454 10)
|
|
(%closure-ref self$454 11)
|
|
(%closure-ref self$454 12))
|
|
(cell-get (%closure-ref self$454 3))))
|
|
(%closure-ref self$453 1)
|
|
(%closure-ref self$453 2)
|
|
(%closure-ref self$453 3)
|
|
(%closure-ref self$453 4)
|
|
(%closure-ref self$453 5)
|
|
(%closure-ref self$453 6)
|
|
(%closure-ref self$453 7)
|
|
(%closure-ref self$453 8)
|
|
(%closure-ref self$453 9)
|
|
(%closure-ref self$453 10)
|
|
(%closure-ref self$453 11)
|
|
(%closure-ref self$453 12))
|
|
(cell-get (%closure-ref self$453 3))))
|
|
(%closure-ref self$452 1)
|
|
(%closure-ref self$452 2)
|
|
(%closure-ref self$452 3)
|
|
(%closure-ref self$452 4)
|
|
(%closure-ref self$452 5)
|
|
(%closure-ref self$452 6)
|
|
(%closure-ref self$452 7)
|
|
(%closure-ref self$452 8)
|
|
(%closure-ref self$452 9)
|
|
(%closure-ref self$452 10)
|
|
(%closure-ref self$452 11)
|
|
(%closure-ref self$452 12))
|
|
"imports:"))
|
|
(%closure-ref self$451 1)
|
|
(%closure-ref self$451 2)
|
|
(%closure-ref self$451 3)
|
|
(%closure-ref self$451 4)
|
|
(%closure-ref self$451 5)
|
|
(%closure-ref self$451 6)
|
|
(%closure-ref self$451 7)
|
|
(%closure-ref self$451 8)
|
|
(%closure-ref self$451 9)
|
|
(%closure-ref self$451 10)
|
|
(%closure-ref self$451 11)
|
|
(%closure-ref self$451 12))))
|
|
(%closure-ref self$450 1)
|
|
(%closure-ref self$450 2)
|
|
(%closure-ref self$450 3)
|
|
(%closure-ref self$450 4)
|
|
(%closure-ref self$450 5)
|
|
(%closure-ref self$450 6)
|
|
(%closure-ref self$450 7)
|
|
(%closure-ref self$450 8)
|
|
(%closure-ref self$450 9)
|
|
(%closure-ref self$450 10)
|
|
(%closure-ref self$450 11)
|
|
(%closure-ref self$450 12))
|
|
(cell-get (%closure-ref self$450 4))))
|
|
(%closure-ref self$449 1)
|
|
(%closure-ref self$449 2)
|
|
(%closure-ref self$449 3)
|
|
(%closure-ref self$449 4)
|
|
(%closure-ref self$449 5)
|
|
(%closure-ref self$449 6)
|
|
(%closure-ref self$449 7)
|
|
(%closure-ref self$449 8)
|
|
(%closure-ref self$449 9)
|
|
(%closure-ref self$449 10)
|
|
(%closure-ref self$449 11)
|
|
(%closure-ref self$449 12))
|
|
"---------------- input program:"))
|
|
(%closure-ref self$448 1)
|
|
(%closure-ref self$448 2)
|
|
(%closure-ref self$448 3)
|
|
(%closure-ref self$448 4)
|
|
(%closure-ref self$448 5)
|
|
(%closure-ref self$448 6)
|
|
(%closure-ref self$448 7)
|
|
(%closure-ref self$448 8)
|
|
(%closure-ref self$448 9)
|
|
(%closure-ref self$448 10)
|
|
(%closure-ref self$448 11)
|
|
(%closure-ref self$448 12))
|
|
*c-file-header-comment*))
|
|
(%closure-ref self$447 1)
|
|
(%closure-ref self$447 2)
|
|
(%closure-ref self$447 3)
|
|
(%closure-ref self$447 4)
|
|
(%closure-ref self$447 5)
|
|
(%closure-ref self$447 6)
|
|
(%closure-ref self$447 7)
|
|
(%closure-ref self$447 8)
|
|
(%closure-ref self$447 9)
|
|
(%closure-ref self$447 10)
|
|
(%closure-ref self$447 11)
|
|
(%closure-ref self$447 12))
|
|
(set-cell! (%closure-ref self$447 7) r$324)))
|
|
(%closure-ref self$446 1)
|
|
(%closure-ref self$446 2)
|
|
(%closure-ref self$446 3)
|
|
(%closure-ref self$446 4)
|
|
(%closure-ref self$446 5)
|
|
(%closure-ref self$446 6)
|
|
(%closure-ref self$446 7)
|
|
(%closure-ref self$446 8)
|
|
(%closure-ref self$446 9)
|
|
(%closure-ref self$446 10)
|
|
(%closure-ref self$446 11)
|
|
(%closure-ref self$446 12))
|
|
'()))
|
|
(%closure-ref self$445 1)
|
|
(%closure-ref self$445 2)
|
|
(%closure-ref self$445 3)
|
|
(%closure-ref self$445 4)
|
|
(%closure-ref self$445 5)
|
|
(%closure-ref self$445 6)
|
|
(%closure-ref self$445 7)
|
|
(%closure-ref self$445 8)
|
|
(%closure-ref self$445 9)
|
|
(%closure-ref self$445 10)
|
|
(%closure-ref self$445 11)
|
|
(%closure-ref self$445 12))
|
|
(set-cell! (%closure-ref self$445 8) r$325)))
|
|
(%closure-ref self$444 1)
|
|
(%closure-ref self$444 2)
|
|
(%closure-ref self$444 3)
|
|
(%closure-ref self$444 4)
|
|
(%closure-ref self$444 5)
|
|
(%closure-ref self$444 6)
|
|
(%closure-ref self$444 7)
|
|
(%closure-ref self$444 8)
|
|
(%closure-ref self$444 9)
|
|
(%closure-ref self$444 10)
|
|
(%closure-ref self$444 11)
|
|
(%closure-ref self$444 12))
|
|
'()))
|
|
(%closure-ref self$443 1)
|
|
(%closure-ref self$443 2)
|
|
(%closure-ref self$443 3)
|
|
(%closure-ref self$443 4)
|
|
(%closure-ref self$443 5)
|
|
(%closure-ref self$443 6)
|
|
(%closure-ref self$443 7)
|
|
(%closure-ref self$443 8)
|
|
(%closure-ref self$443 9)
|
|
(%closure-ref self$443 10)
|
|
(%closure-ref self$443 11)
|
|
(%closure-ref self$443 12))
|
|
(set-cell! (%closure-ref self$443 2) r$326)))
|
|
(%closure-ref self$442 1)
|
|
(%closure-ref self$442 2)
|
|
(%closure-ref self$442 3)
|
|
(%closure-ref self$442 4)
|
|
(%closure-ref self$442 5)
|
|
(%closure-ref self$442 6)
|
|
(%closure-ref self$442 7)
|
|
(%closure-ref self$442 8)
|
|
(%closure-ref self$442 9)
|
|
(%closure-ref self$442 10)
|
|
(%closure-ref self$442 11)
|
|
(%closure-ref self$442 12))
|
|
'()))
|
|
(%closure-ref self$441 1)
|
|
(%closure-ref self$441 2)
|
|
(%closure-ref self$441 3)
|
|
(%closure-ref self$441 4)
|
|
(%closure-ref self$441 5)
|
|
(%closure-ref self$441 6)
|
|
(%closure-ref self$441 7)
|
|
(%closure-ref self$441 8)
|
|
(%closure-ref self$441 9)
|
|
(%closure-ref self$441 10)
|
|
(%closure-ref self$441 11)
|
|
(%closure-ref self$441 12))
|
|
(set-cell! (%closure-ref self$441 3) r$327)))
|
|
(%closure-ref self$440 1)
|
|
(%closure-ref self$440 2)
|
|
(%closure-ref self$440 3)
|
|
(%closure-ref self$440 4)
|
|
(%closure-ref self$440 5)
|
|
(%closure-ref self$440 6)
|
|
(%closure-ref self$440 7)
|
|
(%closure-ref self$440 8)
|
|
(%closure-ref self$440 9)
|
|
(%closure-ref self$440 10)
|
|
(%closure-ref self$440 11)
|
|
(%closure-ref self$440 12))
|
|
'()))
|
|
(%closure-ref self$439 1)
|
|
(%closure-ref self$439 2)
|
|
(%closure-ref self$439 3)
|
|
(%closure-ref self$439 4)
|
|
(%closure-ref self$439 5)
|
|
(%closure-ref self$439 6)
|
|
(%closure-ref self$439 7)
|
|
(%closure-ref self$439 8)
|
|
(%closure-ref self$439 9)
|
|
(%closure-ref self$439 10)
|
|
(%closure-ref self$439 11)
|
|
(%closure-ref self$439 12))
|
|
(set-cell! (%closure-ref self$439 10) #t)))
|
|
(%closure-ref self$438 1)
|
|
(%closure-ref self$438 2)
|
|
(%closure-ref self$438 3)
|
|
(%closure-ref self$438 4)
|
|
(%closure-ref self$438 5)
|
|
(%closure-ref self$438 6)
|
|
(%closure-ref self$438 7)
|
|
(%closure-ref self$438 8)
|
|
(%closure-ref self$438 9)
|
|
(%closure-ref self$438 10)
|
|
(%closure-ref self$438 11)
|
|
(%closure-ref self$438 12))
|
|
(set-cell! (%closure-ref self$438 9) r$328)))
|
|
(%closure-ref self$437 1)
|
|
(%closure-ref self$437 2)
|
|
(%closure-ref self$437 3)
|
|
(%closure-ref self$437 4)
|
|
(%closure-ref self$437 5)
|
|
(%closure-ref self$437 6)
|
|
(%closure-ref self$437 7)
|
|
(%closure-ref self$437 8)
|
|
(%closure-ref self$437 9)
|
|
(%closure-ref self$437 10)
|
|
(%closure-ref self$437 11)
|
|
(%closure-ref self$437 12))
|
|
'()))
|
|
(%closure-ref self$436 1)
|
|
(%closure-ref self$436 2)
|
|
(%closure-ref self$436 3)
|
|
(%closure-ref self$436 4)
|
|
(%closure-ref self$436 5)
|
|
(%closure-ref self$436 6)
|
|
(%closure-ref self$436 7)
|
|
(%closure-ref self$436 8)
|
|
(%closure-ref self$436 9)
|
|
(%closure-ref self$436 10)
|
|
(%closure-ref self$436 11)
|
|
(%closure-ref self$436 12))
|
|
(set-cell! (%closure-ref self$436 1) r$329)))
|
|
(%closure-ref self$435 1)
|
|
(%closure-ref self$435 2)
|
|
(%closure-ref self$435 3)
|
|
(%closure-ref self$435 4)
|
|
(%closure-ref self$435 5)
|
|
(%closure-ref self$435 6)
|
|
lib-exports$82
|
|
(%closure-ref self$435 7)
|
|
(%closure-ref self$435 8)
|
|
(%closure-ref self$435 9)
|
|
(%closure-ref self$435 10)
|
|
(%closure-ref self$435 11))
|
|
'()))
|
|
(%closure-ref self$434 1)
|
|
(%closure-ref self$434 2)
|
|
(%closure-ref self$434 3)
|
|
(%closure-ref self$434 4)
|
|
(%closure-ref self$434 5)
|
|
(%closure-ref self$434 6)
|
|
lib-name$83
|
|
(%closure-ref self$434 8)
|
|
(%closure-ref self$434 9)
|
|
(%closure-ref self$434 10)
|
|
(%closure-ref self$434 11))
|
|
(cell (%closure-ref self$434 7))))
|
|
(%closure-ref self$433 1)
|
|
imported-vars$84
|
|
(%closure-ref self$433 2)
|
|
(%closure-ref self$433 3)
|
|
(%closure-ref self$433 4)
|
|
(%closure-ref self$433 5)
|
|
(%closure-ref self$433 6)
|
|
(%closure-ref self$433 8)
|
|
(%closure-ref self$433 9)
|
|
(%closure-ref self$433 10)
|
|
(%closure-ref self$433 11))
|
|
(cell (%closure-ref self$433 7))))
|
|
(%closure-ref self$432 1)
|
|
imports$85
|
|
(%closure-ref self$432 3)
|
|
(%closure-ref self$432 4)
|
|
(%closure-ref self$432 5)
|
|
(%closure-ref self$432 6)
|
|
(%closure-ref self$432 7)
|
|
(%closure-ref self$432 8)
|
|
(%closure-ref self$432 9)
|
|
(%closure-ref self$432 10)
|
|
(%closure-ref self$432 11))
|
|
(cell (%closure-ref self$432 2))))
|
|
(%closure-ref self$431 1)
|
|
(%closure-ref self$431 2)
|
|
(%closure-ref self$431 4)
|
|
(%closure-ref self$431 5)
|
|
(%closure-ref self$431 6)
|
|
(%closure-ref self$431 7)
|
|
(%closure-ref self$431 8)
|
|
(%closure-ref self$431 9)
|
|
program?$86
|
|
(%closure-ref self$431 10)
|
|
(%closure-ref self$431 11))
|
|
(cell (%closure-ref self$431 3))))
|
|
(%closure-ref self$430 1)
|
|
(%closure-ref self$430 2)
|
|
(%closure-ref self$430 3)
|
|
(%closure-ref self$430 4)
|
|
(%closure-ref self$430 5)
|
|
(%closure-ref self$430 6)
|
|
(%closure-ref self$430 7)
|
|
(%closure-ref self$430 8)
|
|
module-globals$87
|
|
(%closure-ref self$430 10)
|
|
(%closure-ref self$430 11))
|
|
(cell (%closure-ref self$430 9))))
|
|
globals$88
|
|
(%closure-ref self$429 1)
|
|
(%closure-ref self$429 2)
|
|
(%closure-ref self$429 3)
|
|
(%closure-ref self$429 4)
|
|
(%closure-ref self$429 5)
|
|
(%closure-ref self$429 6)
|
|
(%closure-ref self$429 7)
|
|
(%closure-ref self$429 9)
|
|
(%closure-ref self$429 10)
|
|
(%closure-ref self$429 11))
|
|
(cell (%closure-ref self$429 8))))
|
|
imported-vars$84
|
|
imports$85
|
|
(%closure-ref self$428 1)
|
|
(%closure-ref self$428 2)
|
|
(%closure-ref self$428 3)
|
|
lib-exports$82
|
|
lib-name$83
|
|
module-globals$87
|
|
program?$86
|
|
(%closure-ref self$428 4)
|
|
(%closure-ref self$428 5))
|
|
(cell globals$88)))
|
|
(%closure-ref self$427 1)
|
|
k$180
|
|
(%closure-ref self$427 2)
|
|
return$81
|
|
(%closure-ref self$427 3))
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))
|
|
(%closure-ref self$426 1)
|
|
(%closure-ref self$426 3)
|
|
(%closure-ref self$426 4))))
|
|
input-program$73
|
|
(%closure-ref self$425 1)
|
|
(%closure-ref self$425 2)
|
|
(%closure-ref self$425 3))
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f
|
|
#f))
|
|
k$178
|
|
lib-deps$72
|
|
src-file$71)
|
|
(cell input-program$73))))
|
|
(define read-file
|
|
(lambda (k$173 filename$69)
|
|
((%closure
|
|
(lambda (self$424 r$174)
|
|
((%closure-ref call-with-input-file 0)
|
|
call-with-input-file
|
|
(%closure-ref self$424 2)
|
|
(%closure-ref self$424 1)
|
|
r$174))
|
|
filename$69
|
|
k$173)
|
|
(%closure
|
|
(lambda (self$423 k$175 port$70)
|
|
((%closure-ref read-all 0) read-all k$175 port$70))))))
|
|
(define run-compiler
|
|
(lambda (k$130 args$53 cc?$52)
|
|
((%closure
|
|
(lambda (self$362 r$131)
|
|
((%closure
|
|
(lambda (self$363 in-file$54)
|
|
((%closure-ref read-file 0)
|
|
read-file
|
|
(%closure
|
|
(lambda (self$364 r$132)
|
|
((%closure
|
|
(lambda (self$365 in-prog$55)
|
|
((%closure
|
|
(lambda (self$366 r$170)
|
|
((%closure-ref library? 0)
|
|
library?
|
|
(%closure
|
|
(lambda (self$367 r$169)
|
|
((%closure-ref not 0)
|
|
not
|
|
(%closure
|
|
(lambda (self$368 r$133)
|
|
((%closure
|
|
(lambda (self$369 program?$56)
|
|
((%closure
|
|
(lambda (self$417 k$163)
|
|
((%closure
|
|
(lambda (self$420 k$166)
|
|
(if (%closure-ref self$420 2)
|
|
((%closure
|
|
(lambda (self$421 r$167)
|
|
((%closure
|
|
(lambda (self$422 r$168)
|
|
((%closure-ref tagged-list? 0)
|
|
tagged-list?
|
|
(%closure-ref self$422 1)
|
|
(%closure-ref self$422 2)
|
|
r$168))
|
|
(%closure-ref self$421 2)
|
|
r$167)
|
|
(car (%closure-ref self$421 1))))
|
|
(%closure-ref self$420 1)
|
|
k$166)
|
|
'import)
|
|
((%closure-ref k$166 0) k$166 #f)))
|
|
(%closure-ref self$417 1)
|
|
(%closure-ref self$417 2))
|
|
(%closure
|
|
(lambda (self$418 r$164)
|
|
(if r$164
|
|
((%closure
|
|
(lambda (self$419 r$165)
|
|
((%closure-ref lib:get-all-import-deps 0)
|
|
lib:get-all-import-deps
|
|
(%closure-ref self$419 1)
|
|
r$165))
|
|
(%closure-ref self$418 2))
|
|
(cdar (%closure-ref self$418 1)))
|
|
((%closure-ref (%closure-ref self$418 2) 0)
|
|
(%closure-ref self$418 2)
|
|
'())))
|
|
(%closure-ref self$417 1)
|
|
k$163)))
|
|
(%closure-ref self$369 3)
|
|
program?$56)
|
|
(%closure
|
|
(lambda (self$370 r$134)
|
|
((%closure
|
|
(lambda (self$371 lib-deps$57)
|
|
((%closure-ref basename 0)
|
|
basename
|
|
(%closure
|
|
(lambda (self$372 r$135)
|
|
((%closure
|
|
(lambda (self$373 exec-file$58)
|
|
((%closure
|
|
(lambda (self$374 r$136)
|
|
((%closure
|
|
(lambda (self$375 src-file$59)
|
|
((%closure
|
|
(lambda (self$376 r$137)
|
|
((%closure
|
|
(lambda (self$377 meta-file$60)
|
|
((%closure
|
|
(lambda (self$381 r$138)
|
|
((%closure
|
|
(lambda (self$382 create-c-file$62)
|
|
((%closure-ref create-c-file$62 0)
|
|
create-c-file$62
|
|
(%closure
|
|
(lambda (self$383 r$139)
|
|
((%closure
|
|
(lambda (self$384 result$63)
|
|
((%closure
|
|
(lambda (self$385)
|
|
(if (%closure-ref self$385 6)
|
|
((%closure
|
|
(lambda (self$397)
|
|
((%closure
|
|
(lambda (self$398
|
|
objs-str$67
|
|
comp-prog-cmd$66
|
|
comp-objs-cmd$65)
|
|
((%closure
|
|
(lambda (self$399 objs-str$67)
|
|
((%closure
|
|
(lambda (self$400 comp-prog-cmd$66)
|
|
((%closure
|
|
(lambda (self$401 comp-objs-cmd$65)
|
|
((%closure
|
|
(lambda (self$404 r$150)
|
|
((%closure-ref map 0)
|
|
map
|
|
(%closure
|
|
(lambda (self$405 r$149)
|
|
((%closure
|
|
(lambda (self$406 r$148)
|
|
((%closure
|
|
(lambda (self$407 r$140)
|
|
((%closure
|
|
(lambda (self$408 r$147)
|
|
((%closure
|
|
(lambda (self$409 r$141)
|
|
((%closure
|
|
(lambda (self$410 r$146)
|
|
((%closure
|
|
(lambda (self$411 r$142)
|
|
(if (%closure-ref self$411 1)
|
|
((%closure
|
|
(lambda (self$414)
|
|
((%closure
|
|
(lambda (self$415 r$144)
|
|
((%closure
|
|
(lambda (self$416 r$143)
|
|
(if r$143
|
|
((%closure-ref (%closure-ref self$416 2) 0)
|
|
(%closure-ref self$416 2)
|
|
(system (cell-get (%closure-ref self$416 1))))
|
|
((%closure-ref (%closure-ref self$416 2) 0)
|
|
(%closure-ref self$416 2)
|
|
#f)))
|
|
(%closure-ref self$415 1)
|
|
(%closure-ref self$415 2))
|
|
(equal? 0 r$144)))
|
|
(%closure-ref self$414 1)
|
|
(%closure-ref self$414 3))
|
|
(system (cell-get (%closure-ref self$414 2)))))
|
|
(%closure-ref self$411 2)
|
|
(%closure-ref self$411 3)
|
|
(%closure-ref self$411 4)))
|
|
((%closure
|
|
(lambda (self$412)
|
|
((%closure-ref write 0)
|
|
write
|
|
(%closure
|
|
(lambda (self$413 r$145)
|
|
((%closure-ref write 0)
|
|
write
|
|
(%closure-ref self$413 2)
|
|
(cell-get (%closure-ref self$413 1))))
|
|
(%closure-ref self$412 1)
|
|
(%closure-ref self$412 3))
|
|
(cell-get (%closure-ref self$412 2))))
|
|
(%closure-ref self$411 2)
|
|
(%closure-ref self$411 3)
|
|
(%closure-ref self$411 4)))))
|
|
(%closure-ref self$410 1)
|
|
(%closure-ref self$410 2)
|
|
(%closure-ref self$410 3)
|
|
(%closure-ref self$410 4))
|
|
(set-cell! (%closure-ref self$410 2) r$146)))
|
|
(%closure-ref self$409 1)
|
|
(%closure-ref self$409 2)
|
|
(%closure-ref self$409 3)
|
|
(%closure-ref self$409 5))
|
|
(string-append
|
|
"gcc "
|
|
(%closure-ref self$409 4)
|
|
".o "
|
|
(cell-get (%closure-ref self$409 6))
|
|
" -pthread -lcyclone -lck -lm -g -o "
|
|
(%closure-ref self$409 4))))
|
|
(%closure-ref self$408 1)
|
|
(%closure-ref self$408 2)
|
|
(%closure-ref self$408 3)
|
|
(%closure-ref self$408 4)
|
|
(%closure-ref self$408 5)
|
|
(%closure-ref self$408 6))
|
|
(set-cell! (%closure-ref self$408 3) r$147)))
|
|
(%closure-ref self$407 1)
|
|
(%closure-ref self$407 2)
|
|
(%closure-ref self$407 3)
|
|
(%closure-ref self$407 4)
|
|
(%closure-ref self$407 5)
|
|
(%closure-ref self$407 6))
|
|
(string-append
|
|
"gcc "
|
|
(%closure-ref self$407 7)
|
|
" -g -c -o "
|
|
(%closure-ref self$407 4)
|
|
".o")))
|
|
(%closure-ref self$406 1)
|
|
(%closure-ref self$406 2)
|
|
(%closure-ref self$406 3)
|
|
(%closure-ref self$406 4)
|
|
(%closure-ref self$406 5)
|
|
(%closure-ref self$406 6)
|
|
(%closure-ref self$406 7))
|
|
(set-cell! (%closure-ref self$406 6) r$148)))
|
|
(%closure-ref self$405 1)
|
|
(%closure-ref self$405 2)
|
|
(%closure-ref self$405 3)
|
|
(%closure-ref self$405 4)
|
|
(%closure-ref self$405 5)
|
|
(%closure-ref self$405 6)
|
|
(%closure-ref self$405 7))
|
|
(apply string-append r$149)))
|
|
(%closure-ref self$404 1)
|
|
(%closure-ref self$404 2)
|
|
(%closure-ref self$404 3)
|
|
(%closure-ref self$404 4)
|
|
(%closure-ref self$404 5)
|
|
(%closure-ref self$404 7)
|
|
(%closure-ref self$404 8))
|
|
r$150
|
|
(%closure-ref self$404 6)))
|
|
(%closure-ref self$401 1)
|
|
comp-objs-cmd$65
|
|
(%closure-ref self$401 2)
|
|
(%closure-ref self$401 3)
|
|
(%closure-ref self$401 4)
|
|
(%closure-ref self$401 5)
|
|
(%closure-ref self$401 6)
|
|
(%closure-ref self$401 7))
|
|
(%closure
|
|
(lambda (self$402 k$151 i$68)
|
|
((%closure-ref lib:import->filename 0)
|
|
lib:import->filename
|
|
(%closure
|
|
(lambda (self$403 r$152)
|
|
((%closure-ref (%closure-ref self$403 1) 0)
|
|
(%closure-ref self$403 1)
|
|
(string-append " " r$152 " ")))
|
|
k$151)
|
|
i$68
|
|
".o")))))
|
|
(%closure-ref self$400 1)
|
|
comp-prog-cmd$66
|
|
(%closure-ref self$400 3)
|
|
(%closure-ref self$400 4)
|
|
(%closure-ref self$400 5)
|
|
(%closure-ref self$400 6)
|
|
(%closure-ref self$400 7))
|
|
(cell (%closure-ref self$400 2))))
|
|
(%closure-ref self$399 1)
|
|
(%closure-ref self$399 2)
|
|
(%closure-ref self$399 4)
|
|
(%closure-ref self$399 5)
|
|
(%closure-ref self$399 6)
|
|
objs-str$67
|
|
(%closure-ref self$399 7))
|
|
(cell (%closure-ref self$399 3))))
|
|
(%closure-ref self$398 1)
|
|
comp-objs-cmd$65
|
|
comp-prog-cmd$66
|
|
(%closure-ref self$398 2)
|
|
(%closure-ref self$398 3)
|
|
(%closure-ref self$398 4)
|
|
(%closure-ref self$398 5))
|
|
(cell objs-str$67)))
|
|
(%closure-ref self$397 1)
|
|
(%closure-ref self$397 2)
|
|
(%closure-ref self$397 3)
|
|
(%closure-ref self$397 4)
|
|
(%closure-ref self$397 5))
|
|
#f
|
|
#f
|
|
#f))
|
|
(%closure-ref self$385 1)
|
|
(%closure-ref self$385 2)
|
|
(%closure-ref self$385 3)
|
|
(%closure-ref self$385 4)
|
|
(%closure-ref self$385 7)))
|
|
((%closure
|
|
(lambda (self$386)
|
|
((%closure
|
|
(lambda (self$391 r$155)
|
|
((%closure-ref with-output-to-file 0)
|
|
with-output-to-file
|
|
(%closure
|
|
(lambda (self$392 r$153)
|
|
((%closure
|
|
(lambda (self$393 r$154)
|
|
((%closure
|
|
(lambda (self$394 comp-lib-cmd$64)
|
|
(if (%closure-ref self$394 1)
|
|
((%closure
|
|
(lambda (self$396)
|
|
((%closure-ref (%closure-ref self$396 2) 0)
|
|
(%closure-ref self$396 2)
|
|
(system (%closure-ref self$396 1))))
|
|
comp-lib-cmd$64
|
|
(%closure-ref self$394 2)))
|
|
((%closure
|
|
(lambda (self$395)
|
|
((%closure-ref write 0)
|
|
write
|
|
(%closure-ref self$395 2)
|
|
(%closure-ref self$395 1)))
|
|
comp-lib-cmd$64
|
|
(%closure-ref self$394 2)))))
|
|
(%closure-ref self$393 1)
|
|
(%closure-ref self$393 2))
|
|
r$154))
|
|
(%closure-ref self$392 1)
|
|
(%closure-ref self$392 3))
|
|
(string-append
|
|
"gcc "
|
|
(%closure-ref self$392 4)
|
|
" -g -c -o "
|
|
(%closure-ref self$392 2)
|
|
".o")))
|
|
(%closure-ref self$391 1)
|
|
(%closure-ref self$391 2)
|
|
(%closure-ref self$391 3)
|
|
(%closure-ref self$391 5))
|
|
(%closure-ref self$391 4)
|
|
r$155))
|
|
(%closure-ref self$386 1)
|
|
(%closure-ref self$386 2)
|
|
(%closure-ref self$386 3)
|
|
(%closure-ref self$386 4)
|
|
(%closure-ref self$386 5))
|
|
(%closure
|
|
(lambda (self$387 k$156)
|
|
((%closure-ref display 0)
|
|
display
|
|
(%closure
|
|
(lambda (self$388 r$157)
|
|
((%closure-ref newline 0)
|
|
newline
|
|
(%closure
|
|
(lambda (self$389 r$158)
|
|
((%closure-ref macro:get-defined-macros 0)
|
|
macro:get-defined-macros
|
|
(%closure
|
|
(lambda (self$390 r$159)
|
|
((%closure-ref write 0)
|
|
write
|
|
(%closure-ref self$390 1)
|
|
r$159))
|
|
(%closure-ref self$389 1))))
|
|
(%closure-ref self$388 1))))
|
|
k$156)
|
|
";; This file was automatically generated by the Cyclone Scheme compiler")))))
|
|
(%closure-ref self$385 1)
|
|
(%closure-ref self$385 2)
|
|
(%closure-ref self$385 3)
|
|
(%closure-ref self$385 5)
|
|
(%closure-ref self$385 7)))))
|
|
(%closure-ref self$384 1)
|
|
(%closure-ref self$384 2)
|
|
(%closure-ref self$384 3)
|
|
(%closure-ref self$384 4)
|
|
(%closure-ref self$384 5)
|
|
(%closure-ref self$384 6)
|
|
(%closure-ref self$384 7))))
|
|
(%closure-ref self$383 1)
|
|
(%closure-ref self$383 2)
|
|
(%closure-ref self$383 3)
|
|
(%closure-ref self$383 4)
|
|
(%closure-ref self$383 5)
|
|
(%closure-ref self$383 6)
|
|
(%closure-ref self$383 7))
|
|
r$139))
|
|
(%closure-ref self$382 1)
|
|
(%closure-ref self$382 2)
|
|
(%closure-ref self$382 4)
|
|
(%closure-ref self$382 5)
|
|
(%closure-ref self$382 6)
|
|
(%closure-ref self$382 7)
|
|
(%closure-ref self$382 8))
|
|
(%closure-ref self$382 3)))
|
|
(%closure-ref self$381 1)
|
|
(%closure-ref self$381 2)
|
|
(%closure-ref self$381 3)
|
|
(%closure-ref self$381 4)
|
|
(%closure-ref self$381 5)
|
|
(%closure-ref self$381 6)
|
|
(%closure-ref self$381 7)
|
|
(%closure-ref self$381 8))
|
|
r$138))
|
|
(%closure-ref self$377 1)
|
|
(%closure-ref self$377 2)
|
|
(%closure-ref self$377 4)
|
|
(%closure-ref self$377 5)
|
|
(%closure-ref self$377 6)
|
|
meta-file$60
|
|
(%closure-ref self$377 7)
|
|
(%closure-ref self$377 8))
|
|
(%closure
|
|
(lambda (self$378 k$160 program$61)
|
|
((%closure
|
|
(lambda (self$380 r$161)
|
|
((%closure-ref with-output-to-file 0)
|
|
with-output-to-file
|
|
(%closure-ref self$380 1)
|
|
(%closure-ref self$380 2)
|
|
r$161))
|
|
k$160
|
|
(%closure-ref self$378 3))
|
|
(%closure
|
|
(lambda (self$379 k$162)
|
|
((%closure-ref c-compile-and-emit 0)
|
|
c-compile-and-emit
|
|
k$162
|
|
(%closure-ref self$379 3)
|
|
(%closure-ref self$379 2)
|
|
(%closure-ref self$379 1)))
|
|
(%closure-ref self$378 1)
|
|
(%closure-ref self$378 2)
|
|
program$61)))
|
|
(%closure-ref self$377 3)
|
|
(%closure-ref self$377 6)
|
|
(%closure-ref self$377 8))))
|
|
(%closure-ref self$376 1)
|
|
(%closure-ref self$376 2)
|
|
(%closure-ref self$376 3)
|
|
(%closure-ref self$376 4)
|
|
(%closure-ref self$376 5)
|
|
(%closure-ref self$376 6)
|
|
(%closure-ref self$376 7)
|
|
(%closure-ref self$376 8))
|
|
r$137))
|
|
(%closure-ref self$375 1)
|
|
(%closure-ref self$375 2)
|
|
(%closure-ref self$375 3)
|
|
(%closure-ref self$375 4)
|
|
(%closure-ref self$375 5)
|
|
(%closure-ref self$375 6)
|
|
(%closure-ref self$375 7)
|
|
src-file$59)
|
|
(string-append (%closure-ref self$375 2) ".meta")))
|
|
(%closure-ref self$374 1)
|
|
(%closure-ref self$374 2)
|
|
(%closure-ref self$374 3)
|
|
(%closure-ref self$374 4)
|
|
(%closure-ref self$374 5)
|
|
(%closure-ref self$374 6)
|
|
(%closure-ref self$374 7))
|
|
r$136))
|
|
(%closure-ref self$373 1)
|
|
exec-file$58
|
|
(%closure-ref self$373 2)
|
|
(%closure-ref self$373 3)
|
|
(%closure-ref self$373 4)
|
|
(%closure-ref self$373 5)
|
|
(%closure-ref self$373 6))
|
|
(string-append exec-file$58 ".c")))
|
|
(%closure-ref self$372 1)
|
|
(%closure-ref self$372 2)
|
|
(%closure-ref self$372 3)
|
|
(%closure-ref self$372 4)
|
|
(%closure-ref self$372 5)
|
|
(%closure-ref self$372 6))
|
|
r$135))
|
|
(%closure-ref self$371 1)
|
|
(%closure-ref self$371 2)
|
|
(%closure-ref self$371 3)
|
|
(%closure-ref self$371 4)
|
|
lib-deps$57
|
|
(%closure-ref self$371 5))
|
|
(%closure-ref self$371 2)))
|
|
(%closure-ref self$370 1)
|
|
(%closure-ref self$370 2)
|
|
(%closure-ref self$370 3)
|
|
(%closure-ref self$370 4)
|
|
(%closure-ref self$370 5))
|
|
r$134))
|
|
(%closure-ref self$369 1)
|
|
(%closure-ref self$369 2)
|
|
(%closure-ref self$369 3)
|
|
(%closure-ref self$369 4)
|
|
program?$56)))
|
|
(%closure-ref self$368 1)
|
|
(%closure-ref self$368 2)
|
|
(%closure-ref self$368 3)
|
|
(%closure-ref self$368 4))
|
|
r$133))
|
|
(%closure-ref self$367 1)
|
|
(%closure-ref self$367 2)
|
|
(%closure-ref self$367 3)
|
|
(%closure-ref self$367 4))
|
|
r$169))
|
|
(%closure-ref self$366 1)
|
|
(%closure-ref self$366 2)
|
|
(%closure-ref self$366 3)
|
|
(%closure-ref self$366 4))
|
|
r$170))
|
|
(%closure-ref self$365 1)
|
|
(%closure-ref self$365 2)
|
|
in-prog$55
|
|
(%closure-ref self$365 3))
|
|
(car in-prog$55)))
|
|
(%closure-ref self$364 1)
|
|
(%closure-ref self$364 2)
|
|
(%closure-ref self$364 3))
|
|
r$132))
|
|
(%closure-ref self$363 1)
|
|
in-file$54
|
|
(%closure-ref self$363 2))
|
|
in-file$54))
|
|
(%closure-ref self$362 1)
|
|
(%closure-ref self$362 2))
|
|
r$131))
|
|
cc?$52
|
|
k$130)
|
|
(car args$53))))
|
|
((lambda ()
|
|
((lambda (r$99)
|
|
((lambda (r$100)
|
|
((lambda (r$101)
|
|
((lambda (args$47)
|
|
((%closure
|
|
(lambda (self$336 r$121)
|
|
((%closure-ref filter 0)
|
|
filter
|
|
(%closure
|
|
(lambda (self$337 r$102)
|
|
((%closure
|
|
(lambda (self$338 non-opts$49)
|
|
((%closure
|
|
(lambda (self$339 compile?$50)
|
|
((%closure
|
|
(lambda (self$340 compile?$50)
|
|
((%closure
|
|
(lambda (self$341)
|
|
((%closure
|
|
(lambda (self$360 k$119)
|
|
((%closure
|
|
(lambda (self$361 r$120)
|
|
(if r$120
|
|
((%closure-ref (%closure-ref self$361 1) 0)
|
|
(%closure-ref self$361 1)
|
|
(set-global! *trace-level* 4))
|
|
((%closure-ref (%closure-ref self$361 1) 0)
|
|
(%closure-ref self$361 1)
|
|
#f)))
|
|
k$119)
|
|
(member "-t" (%closure-ref self$360 1))))
|
|
(%closure-ref self$341 1))
|
|
(%closure
|
|
(lambda (self$342 r$103)
|
|
((%closure
|
|
(lambda (self$358 k$117)
|
|
((%closure
|
|
(lambda (self$359 r$118)
|
|
(if r$118
|
|
((%closure-ref (%closure-ref self$359 2) 0)
|
|
(%closure-ref self$359 2)
|
|
(set-cell! (%closure-ref self$359 1) #f))
|
|
((%closure-ref (%closure-ref self$359 2) 0)
|
|
(%closure-ref self$359 2)
|
|
#f)))
|
|
(%closure-ref self$358 2)
|
|
k$117)
|
|
(member "-d" (%closure-ref self$358 1))))
|
|
(%closure-ref self$342 1)
|
|
(%closure-ref self$342 2))
|
|
(%closure
|
|
(lambda (self$343 r$104)
|
|
((%closure
|
|
(lambda (self$344 r$116)
|
|
((%closure
|
|
(lambda (self$345 r$105)
|
|
(if r$105
|
|
((lambda ()
|
|
((%closure-ref display 0)
|
|
display
|
|
(%closure
|
|
(lambda (self$357 r$106)
|
|
((%closure-ref newline 0) newline %halt)))
|
|
"cyclone: no input file")))
|
|
((%closure
|
|
(lambda (self$346 r$114)
|
|
((%closure
|
|
(lambda (self$347 tmp$51)
|
|
((%closure
|
|
(lambda (self$356 k$115)
|
|
(if (%closure-ref self$356 2)
|
|
((%closure-ref k$115 0)
|
|
k$115
|
|
(%closure-ref self$356 2))
|
|
((%closure-ref k$115 0)
|
|
k$115
|
|
(member "--help" (%closure-ref self$356 1)))))
|
|
(%closure-ref self$347 1)
|
|
tmp$51)
|
|
(%closure
|
|
(lambda (self$348 r$107)
|
|
(if r$107
|
|
((lambda ()
|
|
((%closure-ref display 0)
|
|
display
|
|
(%closure
|
|
(lambda (self$355 r$108)
|
|
((%closure-ref newline 0) newline %halt)))
|
|
"\n -t Show intermediate trace output in generated C files\n -d Only generate intermediate C files, do not compile them\n -h, --help Display usage information\n -v Display version information\n --autogen Cyclone developer use only, create autogen.out file\n")))
|
|
((%closure
|
|
(lambda (self$349 r$109)
|
|
(if r$109
|
|
((lambda ()
|
|
((%closure-ref display 0)
|
|
display
|
|
%halt
|
|
*version-banner*)))
|
|
((%closure
|
|
(lambda (self$350 r$110)
|
|
(if r$110
|
|
((lambda ()
|
|
((%closure-ref autogen 0)
|
|
autogen
|
|
(%closure
|
|
(lambda (self$354 r$111)
|
|
((%closure-ref newline 0) newline %halt)))
|
|
"autogen.out")))
|
|
((%closure
|
|
(lambda (self$351 r$112)
|
|
(if r$112
|
|
((lambda ()
|
|
((%closure-ref display 0)
|
|
display
|
|
%halt
|
|
*version-banner*)))
|
|
((%closure
|
|
(lambda (self$352 r$113)
|
|
(if r$113
|
|
((lambda ()
|
|
((%closure-ref autogen 0)
|
|
autogen
|
|
%halt
|
|
"autogen.out")))
|
|
((%closure
|
|
(lambda (self$353)
|
|
((%closure-ref run-compiler 0)
|
|
run-compiler
|
|
%halt
|
|
(%closure-ref self$353 2)
|
|
(cell-get (%closure-ref self$353 1))))
|
|
(%closure-ref self$352 1)
|
|
(%closure-ref self$352 2)))))
|
|
(%closure-ref self$351 2)
|
|
(%closure-ref self$351 3))
|
|
(member "--autogen" (%closure-ref self$351 1)))))
|
|
(%closure-ref self$350 1)
|
|
(%closure-ref self$350 2)
|
|
(%closure-ref self$350 3))
|
|
(member "-v" (%closure-ref self$350 1)))))
|
|
(%closure-ref self$349 1)
|
|
(%closure-ref self$349 2)
|
|
(%closure-ref self$349 3))
|
|
(member "--autogen" (%closure-ref self$349 1)))))
|
|
(%closure-ref self$348 1)
|
|
(%closure-ref self$348 2)
|
|
(%closure-ref self$348 3))
|
|
(member "-v" (%closure-ref self$348 1)))))
|
|
(%closure-ref self$347 1)
|
|
(%closure-ref self$347 2)
|
|
(%closure-ref self$347 3))))
|
|
(%closure-ref self$346 1)
|
|
(%closure-ref self$346 2)
|
|
(%closure-ref self$346 3))
|
|
r$114))
|
|
(%closure-ref self$345 1)
|
|
(%closure-ref self$345 2)
|
|
(%closure-ref self$345 3))
|
|
(member "-h" (%closure-ref self$345 1)))))
|
|
(%closure-ref self$344 1)
|
|
(%closure-ref self$344 2)
|
|
(%closure-ref self$344 3))
|
|
(< r$116 1)))
|
|
(%closure-ref self$343 1)
|
|
(%closure-ref self$343 2)
|
|
(%closure-ref self$343 3))
|
|
(length (%closure-ref self$343 1))))
|
|
(%closure-ref self$342 1)
|
|
(%closure-ref self$342 2)
|
|
(%closure-ref self$342 3))))
|
|
(%closure-ref self$341 1)
|
|
(%closure-ref self$341 2)
|
|
(%closure-ref self$341 3))))
|
|
(%closure-ref self$340 1)
|
|
compile?$50
|
|
(%closure-ref self$340 2))))
|
|
(%closure-ref self$339 1)
|
|
(%closure-ref self$339 2))
|
|
(cell compile?$50)))
|
|
(%closure-ref self$338 1)
|
|
non-opts$49)
|
|
#t))
|
|
(%closure-ref self$337 1))
|
|
r$102))
|
|
(%closure-ref self$336 1))
|
|
r$121
|
|
(%closure-ref self$336 1)))
|
|
args$47)
|
|
(%closure
|
|
(lambda (self$330 k$122 arg$48)
|
|
((%closure
|
|
(lambda (self$332 k$124)
|
|
((%closure
|
|
(lambda (self$333 r$127)
|
|
((%closure
|
|
(lambda (self$334 r$125)
|
|
(if r$125
|
|
((%closure
|
|
(lambda (self$335 r$126)
|
|
((%closure-ref (%closure-ref self$335 1) 0)
|
|
(%closure-ref self$335 1)
|
|
(equal? #\- r$126)))
|
|
(%closure-ref self$334 2))
|
|
(string-ref (%closure-ref self$334 1) 0))
|
|
((%closure-ref (%closure-ref self$334 2) 0)
|
|
(%closure-ref self$334 2)
|
|
#f)))
|
|
(%closure-ref self$333 1)
|
|
(%closure-ref self$333 2))
|
|
(> r$127 1)))
|
|
(%closure-ref self$332 1)
|
|
k$124)
|
|
(string-length (%closure-ref self$332 1))))
|
|
arg$48)
|
|
(%closure
|
|
(lambda (self$331 r$123)
|
|
((%closure-ref not 0)
|
|
not
|
|
(%closure-ref self$331 1)
|
|
r$123))
|
|
k$122))))))
|
|
r$101))
|
|
(command-line-arguments)))
|
|
#f))
|
|
0))))
|