elisp @@ macro

[bpt/guile.git] / benchmark / measure.scm

diff --git a/benchmark/measure.scm b/benchmark/measure.scm
index f100397..517fb53 100755 (executable)
--- a/benchmark/measure.scm
+++ b/benchmark/measure.scm
@@ -10,7 +10,6 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 (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))
 
@@ -44,11 +43,8 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
         (& (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