diff options
| author | Andy Wingo <wingo@pobox.com> | 2009-02-01 11:29:43 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2009-02-01 11:29:43 +0100 |
| commit | 89bbf355960302175bffb14790adedf0eebb672f (patch) | |
| tree | a3184f055b6e7fec4ddf89549924d67371afc01a /benchmark | |
| parent | 5338b62b86f0158176ace6f0f96bc5796f6f17cd (diff) | |
| download | guile-89bbf355960302175bffb14790adedf0eebb672f.tar.gz | |
no disasm in measure.scm
* benchmark/measure.scm: Don't use (system vm disasm).
Diffstat (limited to 'benchmark')
| -rwxr-xr-x | benchmark/measure.scm | 2 |
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 |