(define-module (measure)
:export (measure)
:use-module (system vm vm)
- :use-module (system vm disasm)
:use-module (system base compile)
:use-module (system base language))
(& (if (defined? proc-name)
(eval `(set! ,proc-name #f) (current-module))
(format #t "unbound~%")))
- (objcode (compile-in proc-source
- (current-module) *scheme*))
- (the-program (vm-load (the-vm) objcode))
+ (the-program (compile proc-source))
-; (%%% (disassemble-objcode objcode))
(time-compiled (time-for-eval `(,proc-name ,@(cdr sexp))
(lambda (sexp)
(eval `(begin