diff --git a/collects/tests/racket/benchmarks/common/auto.rkt b/collects/tests/racket/benchmarks/common/auto.rkt index 13cbbb7430..6385a67aed 100755 --- a/collects/tests/racket/benchmarks/common/auto.rkt +++ b/collects/tests/racket/benchmarks/common/auto.rkt @@ -130,7 +130,7 @@ exec racket -qu "$0" ${1+"$@"} (delete-file (append-extension-suffix (symbol->string bm)))) (define (run-exe bm) - (system (symbol->string bm))) + (system (format "./~a" (symbol->string bm)))) (define (run-exe/time bm) (system (format "time ~a" bm))) diff --git a/collects/tests/racket/benchmarks/common/mk-bigloo.rktl b/collects/tests/racket/benchmarks/common/mk-bigloo.rktl index 700d34ae95..614ebdecfb 100644 --- a/collects/tests/racket/benchmarks/common/mk-bigloo.rktl +++ b/collects/tests/racket/benchmarks/common/mk-bigloo.rktl @@ -11,12 +11,7 @@ (newline)) #:exists 'truncate/replace) -(when (system (format "bigloo -w -o ~a -copt -m32 -call/cc -copt -O3 -copt -fomit-frame-pointer -O6 ~a~a.scm" - name - (if (memq (string->symbol name) - '(ctak)) - "-call/cc " - "") - name)) +(when (system (format "bigloo -static-bigloo -w -o ~a -copt -m32 -call/cc -copt -O3 -copt -fomit-frame-pointer -O6 ~a.scm" + name name)) (delete-file (format "~a.scm" name)) (delete-file (format "~a.o" name)))