suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

actually fix larceny clean-up

Browse Source 
svn: r4113
This commit is contained in:
Matthew Flatt 2006-08-22 06:08:31 +00:00
parent 374b5d9ed6
commit 663786773c
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/tests/mzscheme/benchmarks/common/auto.ss
View File

@ -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"
(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)])