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))))