diff options
| author | Andy Wingo <wingo@pobox.com> | 2009-01-12 22:37:29 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2009-01-12 22:37:29 +0100 |
| commit | 616167fc12fd42c14e021b5496e91154b3a0e8c0 (patch) | |
| tree | a5a19b050f34a0d22893492bdb45dc8cf64c6b35 /benchmark/measure.scm | |
| parent | 78bae3d6fa7c8aa6951cf9fc31707b06d80a920a (diff) | |
| download | guile-616167fc12fd42c14e021b5496e91154b3a0e8c0.tar.gz | |
remove a paranoid define; fix bitrot in measure.scm.
* benchmark/measure.scm (measure): Fix bitrot.
* libguile/vm.c (VM_ENABLE_STACK_NULLING): Undefine this, as it hasn't
caught any errors in quite a while.
Diffstat (limited to 'benchmark/measure.scm')
| -rwxr-xr-x | benchmark/measure.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/benchmark/measure.scm b/benchmark/measure.scm index f100397cf..6e3717918 100755 --- a/benchmark/measure.scm +++ b/benchmark/measure.scm @@ -44,9 +44,7 @@ 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)) |