Updated benchmarks/benchall.ss script to use ../src/ikarus instead

of plain ikarus when running bench.ss
This commit is contained in:
Abdulaziz Ghuloum 2007-11-24 04:42:42 -05:00
parent fb804a24f4
commit 5db5efaaf1
1 changed files with 3 additions and 1 deletions

View File

@ -11,13 +11,15 @@
slatex string sum sum1 sumfp sumloop tail tak takl trav1 trav2
triangl wc))
(define cmd
"../src/ikarus -b ../scheme/ikarus.boot --r6rs-script bench.ss ~a")
(for-each
(lambda (x)
(fprintf (standard-error-port) "running ~s\n" x)
(for-each
(lambda (_)
(define cmd "ikarus -b ../scheme/ikarus.boot --r6rs-script bench.ss ~a")
(unless (zero? (system (format cmd x)))
(fprintf (standard-error-port) "ERROR: ~s failed\n" x)))
(make-list 5)))