mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

remove a paranoid define; fix bitrot in measure.scm.

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2009-01-12 22:37:29 +01:00
parent 78bae3d6fa
commit 616167fc12
2 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
benchmark/measure.scm
View file

@ -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))