no disasm in measure.scm

* benchmark/measure.scm: Don't use (system vm disasm).

1 files changed, 0 insertions, 2 deletions

diff --git a/benchmark/measure.scm b/benchmark/measure.scm
index 6e3717918..517fb53ac 100755
--- 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))
 
@@ -46,7 +45,6 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 		(format #t "unbound~%")))
 	 (the-program (compile proc-source))
 
-;	 (%%% (disassemble-objcode objcode))
 	 (time-compiled (time-for-eval `(,proc-name ,@(cdr sexp))
 				       (lambda (sexp)
 					 (eval `(begin