refine build options for chicken, etc.

svn: r3869

collects/tests/mzscheme/benchmarks/common/README.txt

@@ -5,8 +5,9 @@ Bechmarks obtained from
 Files that end in ".sch" are supposed to be standard Scheme plus `time'.
 Files that end in ".ss" are MzScheme wrapper modules.
 
-To build <benchmark>.sch with Gambit or Bigloo:
+To build <benchmark>.sch with Gambit, Bigloo, or Chicken:
   mzscheme -qr mk-gambit.ss <banchmark>
   mzscheme -qr mk-bigloo.ss <banchmark>
+  mzscheme -qr mk-chicken.ss <banchmark>
 
 Unpack "dynamic-input.txt.gz" if you want to run the "dynamic" benchmark.

collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss

@@ -11,7 +11,7 @@
     (newline))
   'truncate/replace)
 
-(when (system (format "bigloo -o ~a -Obench ~a.scm"
+(when (system (format "bigloo -o ~a -O6 ~a.scm"
                       name name))
   (delete-file (format "~a.scm" name))
   (delete-file (format "~a.o" name)))

collects/tests/mzscheme/benchmarks/common/mk-chicken.ss

@@ -0,0 +1,6 @@
+(require (lib "process.ss"))
+
+(define name (vector-ref (current-command-line-arguments) 0))
+
+(system (format "csc -no-trace -no-lambda-info -optimize-level 3 -block -lambda-lift ~a.sch" 
+                name))

collects/tests/mzscheme/benchmarks/common/mk-gambit.ss

@@ -3,7 +3,7 @@
 
 (define name (vector-ref (current-command-line-arguments) 0))
 
-(when (system (format "gsc -prelude '(include \"gambit-relude.ss\")' ~a.sch"
+(when (system (format "gsc -prelude '(include \"gambit-prelude.ss\")' ~a.sch"
                name))
  (when (system (format "gcc -o ~a -O2 -D___SINGLE_HOST ~a.c ~a_.c -lgambc"
                 name name name))