fix larceny clean-up
svn: r4112
This commit is contained in:
parent
6d48f2d7cc
commit
374b5d9ed6
|
@ -55,7 +55,7 @@ exec mzscheme -qu "$0" ${1+"$@"}
|
||||||
(system "larceny")))
|
(system "larceny")))
|
||||||
|
|
||||||
(define (clean-up-fasl bm)
|
(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)
|
(define (mk-mzc bm)
|
||||||
(parameterize ([current-output-port (open-output-bytes)])
|
(parameterize ([current-output-port (open-output-bytes)])
|
||||||
|
|
Loading…
Reference in New Issue
Block a user