diff --git a/debug/compilation/cyclone-clo.scm b/debug/compilation/cyclone-clo.scm new file mode 100644 index 00000000..4bf9de85 --- /dev/null +++ b/debug/compilation/cyclone-clo.scm @@ -0,0 +1,2771 @@ + +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))))