(reset-handler abort) (for-each load (command-line-arguments)) (optimize-level 3) (debug-level 0) (commonization-level (commonization-level)) (fasl-compressed #t) (compress-format (compress-format)) (compress-level (compress-level)) (when #f (compile-profile (quote source))) (when #f (compile-profile (quote block))) (when #f (profile-load-data "source.pd")) (when #f (profile-load-data "block.pd")) (generate-inspector-information #f) (generate-allocation-counts #f) (generate-instruction-counts #f) (#%$enable-pass-timing #f) (generate-covin-files #f) (run-cp0 (lambda (cp0 x)            (do ([i 2 (fx- i 1)] [x x (cp0 x)])                ((fx= i 0) x)))) (collect-trip-bytes (expt 2 24)) (collect-request-handler (lambda () (collect 0 1))) (for-each (lambda (x) (delete-file (string-append (path-root (symbol->string x)) ".covin"))) (quote (library.ta6ob prims.ta6ob mathprims.ta6ob record.ta6ob 5_1.ta6ob 5_2.ta6ob 5_3.ta6ob strnum.ta6ob bytevector.ta6ob 5_4.ta6ob 5_6.ta6ob 5_7.ta6ob event.ta6ob 4.ta6ob front.ta6ob foreign.ta6ob 6.ta6ob print.ta6ob newhash.ta6ob format.ta6ob date.ta6ob 7.ta6ob cafe.ta6ob trace.ta6ob engine.ta6ob interpret.ta6ob cprep.ta6ob cpcheck.ta6ob cp0.ta6ob cpvalid.ta6ob cpcommonize.ta6ob cpletrec.ta6ob inspect.ta6ob enum.ta6ob io.ta6ob read.ta6ob primvars.ta6ob syntax.ta6ob costctr.ta6ob expeditor.ta6ob exceptions.ta6ob pretty.ta6ob env.ta6ob fasl.ta6ob reloc.ta6ob pdhtml.ta6ob strip.ta6ob ftype.ta6ob back.ta6ob cpnanopass.ta6ob compile.ta6ob cback.ta6ob))) (time (for-each (lambda (x y)                    (collect 1 2)                    (compile-file (symbol->string x)                                  (symbol->string y)                                  (quote ta6ob)))                 (quote (library.ss prims.ss mathprims.ss record.ss 5_1.ss 5_2.ss 5_3.ss strnum.ss bytevector.ss 5_4.ss 5_6.ss 5_7.ss event.ss 4.ss front.ss foreign.ss 6.ss print.ss newhash.ss format.ss date.ss 7.ss cafe.ss trace.ss engine.ss interpret.ss cprep.ss cpcheck.ss cp0.ss cpvalid.ss cpcommonize.ss cpletrec.ss inspect.ss enum.ss io.ss read.ss primvars.ss syntax.ss costctr.ss expeditor.ss exceptions.ss pretty.ss env.ss fasl.ss reloc.ss pdhtml.ss strip.ss ftype.ss back.ss cpnanopass.ss compile.ss cback.ss))                 (quote (library.ta6ob prims.ta6ob mathprims.ta6ob record.ta6ob 5_1.ta6ob 5_2.ta6ob 5_3.ta6ob strnum.ta6ob bytevector.ta6ob 5_4.ta6ob 5_6.ta6ob 5_7.ta6ob event.ta6ob 4.ta6ob front.ta6ob foreign.ta6ob 6.ta6ob print.ta6ob newhash.ta6ob format.ta6ob date.ta6ob 7.ta6ob cafe.ta6ob trace.ta6ob engine.ta6ob interpret.ta6ob cprep.ta6ob cpcheck.ta6ob cp0.ta6ob cpvalid.ta6ob cpcommonize.ta6ob cpletrec.ta6ob inspect.ta6ob enum.ta6ob io.ta6ob read.ta6ob primvars.ta6ob syntax.ta6ob costctr.ta6ob expeditor.ta6ob exceptions.ta6ob pretty.ta6ob env.ta6ob fasl.ta6ob reloc.ta6ob pdhtml.ta6ob strip.ta6ob ftype.ta6ob back.ta6ob cpnanopass.ta6ob compile.ta6ob cback.ta6ob)))) (when #f (#%$print-pass-stats)) (delete-file (string-append (path-root "../boot/ta6ob/petite.boot") ".covin")) (apply #%$make-boot-file "../boot/ta6ob/petite.boot" (quote ta6ob) (quote ())   (map symbol->string (quote (library.ta6ob prims.ta6ob mathprims.ta6ob record.ta6ob 5_1.ta6ob 5_2.ta6ob 5_3.ta6ob strnum.ta6ob bytevector.ta6ob 5_4.ta6ob 5_6.ta6ob 5_7.ta6ob event.ta6ob 4.ta6ob front.ta6ob foreign.ta6ob 6.ta6ob print.ta6ob newhash.ta6ob format.ta6ob date.ta6ob 7.ta6ob cafe.ta6ob trace.ta6ob engine.ta6ob interpret.ta6ob cprep.ta6ob cpcheck.ta6ob cp0.ta6ob cpvalid.ta6ob cpcommonize.ta6ob cpletrec.ta6ob inspect.ta6ob enum.ta6ob io.ta6ob read.ta6ob primvars.ta6ob syntax.ta6ob costctr.ta6ob expeditor.ta6ob exceptions.ta6ob pretty.ta6ob env.ta6ob fasl.ta6ob reloc.ta6ob pdhtml.ta6ob strip.ta6ob ftype.ta6ob back.ta6ob)))) (delete-file (string-append (path-root "../boot/ta6ob/scheme.boot") ".covin")) (apply #%$make-boot-file "../boot/ta6ob/scheme.boot" (quote ta6ob) (quote ("petite"))   (map symbol->string (quote (cpnanopass.ta6ob compile.ta6ob cback.ta6ob)))) (when #f (profile-dump-html)) (when #f (profile-dump-data "source.pd")) (when #f (profile-dump-data "block.pd"))