diff --git a/make/make.rkt b/make/make.rkt index d668268..746a332 100644 --- a/make/make.rkt +++ b/make/make.rkt @@ -66,7 +66,7 @@ (define start-time (current-inexact-milliseconds)) (define compiled-code (compile ast 'val next-linkage/drop-multiple)) (define stop-time (current-inexact-milliseconds)) - ;(printf " compile ast: ~a milliseconds\n" (- stop-time start-time)) + (printf " compile ast: ~a milliseconds\n" (- stop-time start-time)) (values ast compiled-code))])) diff --git a/parser/parse-bytecode-5.1.2.rkt b/parser/parse-bytecode-5.1.2.rkt index ede29d0..2a342c3 100644 --- a/parser/parse-bytecode-5.1.2.rkt +++ b/parser/parse-bytecode-5.1.2.rkt @@ -144,10 +144,7 @@ base] [else (error 'parse-bytecode)])]) - (define start-time (current-inexact-milliseconds)) (define module-bytecode (get-module-bytecode normal-path)) - (define stop-time (current-inexact-milliseconds)) - (printf " parse-bytecode get-module-bytecode: ~a milliseconds\n" (- stop-time start-time)) (parse-bytecode (open-input-bytes module-bytecode))))] [else (error 'parse-bytecode "Don't know how to parse from ~e" in)]))