fix larceny clean-up

svn: r4112
2006-08-22 06:07:33 +00:00 · 2006-08-22 06:07:33 +00:00 · 374b5d9ed6
commit 374b5d9ed6
parent 6d48f2d7cc
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/mzscheme/benchmarks/common/auto.ss
+++ b/collects/tests/mzscheme/benchmarks/common/auto.ss
@ -55,7 +55,7 @@ exec mzscheme -qu "$0" ${1+"$@"}
      (system "larceny")))

  (define (clean-up-fasl bm)
-    (delete-file (build-path "compiled" (format "~a.fasl"))))
+    (delete-file (build-path "compiled" (format "~a.fasl" bm))))

  (define (mk-mzc bm)
    (parameterize ([current-output-port (open-output-bytes)])