From 663786773c9f6f81ae0859610794f660bd70677c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 22 Aug 2006 06:08:31 +0000 Subject: [PATCH] actually fix larceny clean-up svn: r4113 --- collects/tests/mzscheme/benchmarks/common/auto.ss | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/collects/tests/mzscheme/benchmarks/common/auto.ss b/collects/tests/mzscheme/benchmarks/common/auto.ss index d80546a862..dc21b21805 100755 --- a/collects/tests/mzscheme/benchmarks/common/auto.ss +++ b/collects/tests/mzscheme/benchmarks/common/auto.ss @@ -48,14 +48,17 @@ exec mzscheme -qu "$0" ${1+"$@"} (delete-file (build-path "compiled" (format "~a.zo" bm)))) (define (mk-larceny bm) - (parameterize ([current-input-port (open-input-string - (format "(compile-file \"~a.sch\")\n" - bm))] + (parameterize ([current-input-port + (open-input-string + (format (string-append + "(compiler-switches 'fast-safe)\n" + "(compile-file \"~a.sch\")\n") + bm))] [current-output-port (open-output-bytes)]) (system "larceny"))) (define (clean-up-fasl bm) - (delete-file (build-path "compiled" (format "~a.fasl" bm)))) + (delete-file (format "~a.fasl" bm))) (define (mk-mzc bm) (parameterize ([current-output-port (open-output-bytes)])