From 89bbf355960302175bffb14790adedf0eebb672f Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 1 Feb 2009 11:29:43 +0100 Subject: [PATCH] no disasm in measure.scm * benchmark/measure.scm: Don't use (system vm disasm). --- benchmark/measure.scm | 2 -- 1 file changed, 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