From 102419f0092e1f384e99718e531266851d79c526 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 16 Nov 2010 14:34:04 -0500 Subject: [PATCH] Fixed command-line options for gambit in benchmarks. --- collects/tests/racket/benchmarks/common/auto.rkt | 3 +-- collects/tests/racket/benchmarks/common/mk-gambit.rktl | 5 ++++- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/tests/racket/benchmarks/common/auto.rkt b/collects/tests/racket/benchmarks/common/auto.rkt index fd86c632fd..13cbbb7430 100755 --- a/collects/tests/racket/benchmarks/common/auto.rkt +++ b/collects/tests/racket/benchmarks/common/auto.rkt @@ -457,8 +457,7 @@ exec racket -qu "$0" ${1+"$@"} run-gambit-exe extract-gambit-times clean-up-o1 - (append '(nucleic2) - racket-specific-progs)) + racket-specific-progs) (make-impl 'larceny setup-larceny mk-larceny diff --git a/collects/tests/racket/benchmarks/common/mk-gambit.rktl b/collects/tests/racket/benchmarks/common/mk-gambit.rktl index addd829c80..335861ecb7 100644 --- a/collects/tests/racket/benchmarks/common/mk-gambit.rktl +++ b/collects/tests/racket/benchmarks/common/mk-gambit.rktl @@ -6,5 +6,8 @@ (when (file-exists? (format "~a.o1" name)) (delete-file (format "~a.o1" name))) -(system (format "gsc -:m10000 -dynamic -prelude '(include \"gambit-prelude.sch\")' ~a.sch" +(system (format "gsc -:m10000~a -dynamic -prelude '(include \"gambit-prelude.sch\")' ~a.sch" + (if (memq (string->symbol name) '(nucleic2)) + ",s" + "") name))