diff --git a/tests/debug/compilation/cyclone-clo.scm b/tests/debug/compilation/cyclone-clo.scm deleted file mode 100644 index 4bf9de85..00000000 --- a/tests/debug/compilation/cyclone-clo.scm +++ /dev/null @@ -1,2771 +0,0 @@ - -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)))) diff --git a/tests/debug/compilation/cyclone-cps.scm b/tests/debug/compilation/cyclone-cps.scm deleted file mode 100644 index ce207905..00000000 --- a/tests/debug/compilation/cyclone-cps.scm +++ /dev/null @@ -1,686 +0,0 @@ -; may need to look at closure output, but consider __lambda_229 -; seems like it is unnecessary. could it have been optimized out? - -CHICKEN -(c)2008-2011 The Chicken Team -(c)2000-2007 Felix L. Winkelmann -Version 4.7.0 -linux-unix-gnu-x86 [ manyargs dload ptables ] -compiled 2011-10-17 on roseapple (Linux) - -; loading tmp2.scm ... -((define c-compile-and-emit - (lambda (k$178 input-program$73 lib-deps$72 src-file$71) - ((lambda (globals$80 - imported-vars$79 - imports$78 - lib-exports$77 - lib-name$76 - module-globals$75 - program?$74) - ((lambda (r$179) (call/cc k$178 r$179)) - (lambda (k$180 return$81) - ((lambda (globals$88 - module-globals$87 - program?$86 - imports$85 - imported-vars$84 - lib-name$83 - lib-exports$82) - ((lambda (r$329) - ((lambda (r$181) - ((lambda (r$328) - ((lambda (r$182) - ((lambda (r$183) - ((lambda (r$327) - ((lambda (r$184) - ((lambda (r$326) - ((lambda (r$185) - ((lambda (r$325) - ((lambda (r$186) - ((lambda (r$324) - ((lambda (r$187) - (emit (lambda (r$188) - (trace:info - (lambda (r$189) - (trace:info - (lambda (r$190) - ((lambda (k$290) - ((lambda (r$323) - (library? - (lambda (r$291) - (if r$291 - ((lambda () - ((lambda (r$316) - (lib:includes - (lambda (r$292) - ((lambda (includes$97) - ((lambda (r$293) - ((lambda (r$315) - (lib:name - (lambda (r$314) - ((lambda (r$294) - (lib:name->symbol - (lambda (r$311) - ((lambda (r$313) - (lib:exports - (lambda (r$312) - ((lambda (r$310) - ((lambda (r$295) - ((lambda (r$309) - (lib:imports - (lambda (r$308) - ((lambda (r$296) - ((lambda (r$307) - (lib:body - (lambda (r$306) - ((lambda (r$297) - ((lambda (r$305) - (not (lambda (r$298) - (if r$298 - ((lambda (r$299) - (for-each k$290 r$299 includes$97)) - (lambda (k$300 include$98) - (lib:import->path - (lambda (r$304) - ((lambda (r$303) - (read-file - (lambda (r$302) - (append - (lambda (r$301) - (k$300 (set! input-program$73 r$301))) - r$302 - input-program$73)) - r$303)) - (string-append r$304 include$98))) - lib-name$83))) - (k$290 #f))) - r$305)) - (null? includes$97))) - (set! input-program$73 r$306))) - r$307)) - (car input-program$73))) - (set! imports$85 r$308))) - r$309)) - (car input-program$73))) - (set! lib-exports$82 r$310))) - (cons r$311 r$312))) - r$313)) - (car input-program$73))) - lib-name$83)) - (set! lib-name$83 r$314))) - r$315)) - (car input-program$73))) - (set! program?$86 #f))) - r$292)) - r$316)) - (car input-program$73)))) - ((lambda (r$321) - ((lambda (r$322) - (tagged-list? - (lambda (r$317) - (if r$317 - ((lambda () - ((lambda (r$320) - ((lambda (r$318) - ((lambda (r$319) - (k$290 (set! input-program$73 r$319))) - (cdr input-program$73))) - (set! imports$85 r$320))) - (cdar input-program$73)))) - (k$290 #f))) - r$321 - r$322)) - (car input-program$73))) - 'import))) - r$323)) - (car input-program$73))) - (lambda (r$191) - (trace:info - (lambda (r$192) - (trace:info - (lambda (r$193) - (lib:resolve-imports - (lambda (r$289) - ((lambda (r$194) - (trace:info - (lambda (r$195) - (trace:info - (lambda (r$196) - (lib:resolve-meta - (lambda (r$285) - ((lambda (meta$96) - (append - (lambda (r$288) - ((lambda (r$286) - (trace:info - (lambda (r$287) - (trace:info - (lambda (r$197) - ((lambda (r$280) - ((lambda (r$281) - (filter - (lambda (r$278) - ((lambda (macros$95) - (append - (lambda (r$279) - ((lambda (r$198) - ((lambda (r$276) - ((lambda (r$277) - (create-environment - (lambda (r$275) - (macro:load-env! - (lambda (r$199) - ((lambda (k$274) - (if program?$86 - (k$274 expand-lambda-body) - (k$274 expand))) - (lambda (r$272) - (macro:get-env - (lambda (r$273) - (r$272 (lambda (r$271) - ((lambda (r$200) - (trace:info - (lambda (r$201) - (trace:info - (lambda (r$202) - (isolate-globals - (lambda (r$270) - ((lambda (r$203) - ((lambda (k$265) - ((lambda (r$269) - (has-global? - (lambda (r$268) - (not (lambda (r$266) - (if r$266 - (filter-unused-variables - (lambda (r$267) - (k$265 (set! input-program$73 r$267))) - input-program$73 - lib-exports$82) - (k$265 #f))) - r$268)) - input-program$73 - r$269)) - 'eval)) - (lambda (r$204) - (trace:info - (lambda (r$205) - (trace:info - (lambda (r$206) - (global-vars - (lambda (r$264) - ((lambda (r$207) - (append - (lambda (r$263) - ((lambda (r$208) - ((lambda (r$261) - (map (lambda (r$260) - ((lambda (r$209) - (trace:info - (lambda (r$210) - (trace:info - (lambda (r$211) - ((lambda (r$258) - (map (lambda (r$245) - ((lambda (cps$92) - ((lambda (k$246) - ((lambda (k$256) - (if library? - ((lambda (r$257) - (k$256 (equal? lib-name$83 r$257))) - '(scheme base)) - (k$256 #f))) - (lambda (r$247) - (if r$247 - ((lambda () - ((lambda (r$255) - (append - (lambda (r$254) - ((lambda (r$248) - ((lambda (r$253) - (append - (lambda (r$252) - ((lambda (r$249) - ((lambda (r$251) - ((lambda (r$250) - (k$246 (set! input-program$73 r$250))) - (cons r$251 cps$92))) - '(define call/cc - (lambda (k f) - (f k (lambda (_ result) (k result))))))) - (set! module-globals$87 r$252))) - r$253 - module-globals$87)) - '(call/cc))) - (set! globals$88 r$254))) - r$255 - globals$88)) - '(call/cc)))) - ((lambda () - (k$246 (set! input-program$73 cps$92)))))))) - (lambda (r$212) - (trace:info - (lambda (r$213) - (trace:info - (lambda (r$214) - ((lambda (r$241) - (map (lambda (r$240) - ((lambda (r$215) - (trace:info - (lambda (r$216) - (trace:info - (lambda (r$217) - ((lambda (r$229) - (map (lambda (r$228) - ((lambda (r$218) - (trace:info - (lambda (r$219) - (trace:info - (lambda (r$220) - ((lambda (k$225) - (not (lambda (r$226) - (if r$226 - ((lambda () - (trace:error - (lambda (r$227) (k$225 (exit 0))) - "DEBUG, existing program"))) - (k$225 #f))) - *do-code-gen*)) - (lambda (r$221) - (trace:info - (lambda (r$222) - (mta:code-gen - (lambda (r$223) - ((lambda (r$224) (return$81 k$180 r$224)) '())) - input-program$73 - program?$86 - lib-name$83 - lib-exports$82 - imported-vars$84 - module-globals$87 - lib-deps$72 - src-file$71)) - "---------------- C code:")))) - input-program$73)) - "---------------- after closure-convert:")) - (set! input-program$73 r$228))) - r$229 - input-program$73)) - (lambda (k$230 expr$89) - (define? - (lambda (r$231) - (if r$231 - ((lambda () - ((lambda (r$232) - (define->var - (lambda (r$234) - (define->exp - (lambda (r$237) - (closure-convert - (lambda (r$236) - ((lambda (r$235) - ((lambda (r$233) (k$230 (cons r$232 r$233))) - (cons r$234 r$235))) - (caddr r$236))) - r$237 - globals$88)) - expr$89)) - expr$89)) - 'define))) - (define-c? - (lambda (r$238) - (if r$238 - ((lambda () (k$230 expr$89))) - ((lambda () - (closure-convert - (lambda (r$239) (k$230 (caddr r$239))) - expr$89 - globals$88))))) - expr$89))) - expr$89)))) - input-program$73)) - "---------------- after wrap-mutables:")) - (set! input-program$73 r$240))) - r$241 - input-program$73)) - (lambda (k$242 expr$90) - (clear-mutables - (lambda (r$243) - (analyze-mutable-variables - (lambda (r$244) - (wrap-mutables k$242 expr$90 globals$88)) - expr$90)))))) - input-program$73)) - "---------------- after CPS:")))) - r$245)) - r$258 - input-program$73)) - (lambda (k$259 expr$91) - (cps-convert k$259 expr$91)))) - input-program$73)) - "---------------- after alpha conversion:")) - (set! input-program$73 r$260))) - r$261 - input-program$73)) - (lambda (k$262 expr$93) - (alpha-convert - k$262 - expr$93 - globals$88 - return$81)))) - (set! globals$88 r$263))) - imported-vars$84 - module-globals$87)) - (set! module-globals$87 r$264))) - input-program$73)) - input-program$73)) - "---------------- after processing globals")))) - (set! input-program$73 r$270))) - input-program$73 - program?$86 - lib-name$83)) - input-program$73)) - "---------------- after macro expansion:")) - (set! input-program$73 r$271))) - input-program$73 - r$273)))))) - *defined-macros* - r$275)) - r$276 - r$277)) - '())) - '())) - (set! *defined-macros* r$279))) - macros$95 - *defined-macros*)) - r$278)) - r$280 - r$281)) - (Cyc-global-vars))) - (lambda (k$282 v$94) - ((lambda (r$284) - ((lambda (r$283) (k$282 (macro? r$283))) - (Cyc-get-cvar r$284))) - (cdr v$94))))) - meta$96)) - "resolved macros:")) - (set! *defined-macros* r$288))) - meta$96 - *defined-macros*)) - r$285)) - imports$85)) - imported-vars$84)) - "resolved imports:")) - (set! imported-vars$84 r$289))) - imports$85)) - imports$85)) - "imports:")))) - input-program$73)) - "---------------- input program:")) - *c-file-header-comment*)) - (set! lib-exports$82 r$324))) - '())) - (set! lib-name$83 r$325))) - '())) - (set! imported-vars$84 r$326))) - '())) - (set! imports$85 r$327))) - '())) - (set! program?$86 #t))) - (set! module-globals$87 r$328))) - '())) - (set! globals$88 r$329))) - '())) - #f - #f - #f - #f - #f - #f - #f)))) - #f - #f - #f - #f - #f - #f - #f))) - (define read-file - (lambda (k$173 filename$69) - ((lambda (r$174) (call-with-input-file k$173 filename$69 r$174)) - (lambda (k$175 port$70) (read-all k$175 port$70))))) - (define run-compiler - (lambda (k$130 args$53 cc?$52) - ((lambda (r$131) - ((lambda (in-file$54) - (read-file - (lambda (r$132) - ((lambda (in-prog$55) - ((lambda (r$170) - (library? - (lambda (r$169) - (not (lambda (r$133) - ((lambda (program?$56) - ((lambda (k$163) - ((lambda (k$166) - (if program?$56 - ((lambda (r$167) - ((lambda (r$168) (tagged-list? k$166 r$167 r$168)) - (car in-prog$55))) - 'import) - (k$166 #f))) - (lambda (r$164) - (if r$164 - ((lambda (r$165) - (lib:get-all-import-deps k$163 r$165)) - (cdar in-prog$55)) - (k$163 '()))))) - (lambda (r$134) - ((lambda (lib-deps$57) - (basename - (lambda (r$135) - ((lambda (exec-file$58) - ((lambda (r$136) - ((lambda (src-file$59) - ((lambda (r$137) - ((lambda (meta-file$60) - ((lambda (r$138) - ((lambda (create-c-file$62) - (create-c-file$62 - (lambda (r$139) - ((lambda (result$63) - ((lambda () - (if program?$56 - ((lambda () - ((lambda (objs-str$67 comp-prog-cmd$66 comp-objs-cmd$65) - ((lambda (r$150) - (map (lambda (r$149) - ((lambda (r$148) - ((lambda (r$140) - ((lambda (r$147) - ((lambda (r$141) - ((lambda (r$146) - ((lambda (r$142) - (if cc?$52 - ((lambda () - ((lambda (r$144) - ((lambda (r$143) - (if r$143 - (k$130 (system comp-objs-cmd$65)) - (k$130 #f))) - (equal? 0 r$144))) - (system comp-prog-cmd$66)))) - ((lambda () - (write (lambda (r$145) (write k$130 comp-objs-cmd$65)) - comp-prog-cmd$66))))) - (set! comp-objs-cmd$65 r$146))) - (string-append - "gcc " - exec-file$58 - ".o " - objs-str$67 - " -pthread -lcyclone -lck -lm -g -o " - exec-file$58))) - (set! comp-prog-cmd$66 r$147))) - (string-append - "gcc " - src-file$59 - " -g -c -o " - exec-file$58 - ".o"))) - (set! objs-str$67 r$148))) - (apply string-append r$149))) - r$150 - lib-deps$57)) - (lambda (k$151 i$68) - (lib:import->filename - (lambda (r$152) - (k$151 (string-append " " r$152 " "))) - i$68 - ".o")))) - #f - #f - #f))) - ((lambda () - ((lambda (r$155) - (with-output-to-file - (lambda (r$153) - ((lambda (r$154) - ((lambda (comp-lib-cmd$64) - (if cc?$52 - ((lambda () (k$130 (system comp-lib-cmd$64)))) - ((lambda () (write k$130 comp-lib-cmd$64))))) - r$154)) - (string-append - "gcc " - src-file$59 - " -g -c -o " - exec-file$58 - ".o"))) - meta-file$60 - r$155)) - (lambda (k$156) - (display - (lambda (r$157) - (newline - (lambda (r$158) - (macro:get-defined-macros - (lambda (r$159) (write k$156 r$159)))))) - ";; This file was automatically generated by the Cyclone Scheme compiler"))))))))) - r$139)) - in-prog$55)) - r$138)) - (lambda (k$160 program$61) - ((lambda (r$161) - (with-output-to-file k$160 src-file$59 r$161)) - (lambda (k$162) - (c-compile-and-emit - k$162 - program$61 - lib-deps$57 - in-file$54)))))) - r$137)) - (string-append exec-file$58 ".meta"))) - r$136)) - (string-append exec-file$58 ".c"))) - r$135)) - in-file$54)) - r$134)))) - r$133)) - r$169)) - r$170)) - (car in-prog$55))) - r$132)) - in-file$54)) - r$131)) - (car args$53)))) - ((lambda () - ((lambda (r$99) - ((lambda (r$100) - ((lambda (r$101) - ((lambda (args$47) - ((lambda (r$121) - (filter - (lambda (r$102) - ((lambda (non-opts$49) - ((lambda (compile?$50) - ((lambda () - ((lambda (k$119) - ((lambda (r$120) - (if r$120 - (k$119 (set! *trace-level* 4)) - (k$119 #f))) - (member "-t" args$47))) - (lambda (r$103) - ((lambda (k$117) - ((lambda (r$118) - (if r$118 - (k$117 (set! compile?$50 #f)) - (k$117 #f))) - (member "-d" args$47))) - (lambda (r$104) - ((lambda (r$116) - ((lambda (r$105) - (if r$105 - ((lambda () - (display - (lambda (r$106) (newline %halt)) - "cyclone: no input file"))) - ((lambda (r$114) - ((lambda (tmp$51) - ((lambda (k$115) - (if tmp$51 - (k$115 tmp$51) - (k$115 (member "--help" args$47)))) - (lambda (r$107) - (if r$107 - ((lambda () - (display - (lambda (r$108) (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"))) - ((lambda (r$109) - (if r$109 - ((lambda () (display %halt *version-banner*))) - ((lambda (r$110) - (if r$110 - ((lambda () - (autogen - (lambda (r$111) (newline %halt)) - "autogen.out"))) - ((lambda (r$112) - (if r$112 - ((lambda () (display %halt *version-banner*))) - ((lambda (r$113) - (if r$113 - ((lambda () (autogen %halt "autogen.out"))) - ((lambda () - (run-compiler %halt non-opts$49 compile?$50))))) - (member "--autogen" args$47)))) - (member "-v" args$47)))) - (member "--autogen" args$47)))) - (member "-v" args$47)))))) - r$114)) - (member "-h" args$47)))) - (< r$116 1))) - (length args$47))))))))) - #t)) - r$102)) - r$121 - args$47)) - (lambda (k$122 arg$48) - ((lambda (k$124) - ((lambda (r$127) - ((lambda (r$125) - (if r$125 - ((lambda (r$126) (k$124 (equal? #\- r$126))) - (string-ref arg$48 0)) - (k$124 #f))) - (> r$127 1))) - (string-length arg$48))) - (lambda (r$123) (not k$122 r$123)))))) - r$101)) - (command-line-arguments))) - #f)) - 0)))) -#;1>