From 5db5efaaf148b2d38a272465fbce394321a020e0 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Sat, 24 Nov 2007 04:42:42 -0500 Subject: [PATCH] Updated benchmarks/benchall.ss script to use ../src/ikarus instead of plain ikarus when running bench.ss --- benchmarks/benchall.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/benchmarks/benchall.ss b/benchmarks/benchall.ss index 95704f2..2d17542 100755 --- a/benchmarks/benchall.ss +++ b/benchmarks/benchall.ss @@ -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)))