still looking at assembly, which is taking way too long

This commit is contained in:
Danny Yoo 2011-09-03 19:35:29 -04:00
parent 27e3a444b1
commit 4dde2929f4
2 changed files with 1 additions and 4 deletions

View File

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

View File

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