fix dest of mzc --zo (PR 9400)

svn: r9905
This commit is contained in:
Matthew Flatt 2008-05-20 12:15:33 +00:00
parent 054a67fd43
commit 08d15a9be7

View File

@ -120,21 +120,20 @@
(lambda (source-files destination-directory) (lambda (source-files destination-directory)
(define file-bases (define file-bases
(map (lambda (file) (map (lambda (file)
(let ([f (extract-base-filename/ss file 'mzc)]) (if destination-directory
(if destination-directory (let-values ([(base file dir?) (split-path file)])
(let-values ([(base file dir?) (split-path f)])
(build-path (build-path
(if (eq? destination-directory 'auto) (if (eq? destination-directory 'auto)
(let ([d (build-path (if (eq? base 'relative) 'same base) (let ([d (build-path (if (eq? base 'relative) 'same base)
"compiled")]) "compiled")])
(unless (directory-exists? d) (make-directory* d)) (unless (directory-exists? d) (make-directory* d))
d) d)
destination-directory) destination-directory)
file)) file))
f))) file))
source-files)) source-files))
(for ([f source-files] [b file-bases]) (for ([f source-files] [b file-bases])
(let ([zo (append-zo-suffix f)]) (let ([zo (append-zo-suffix b)])
(compile-to-zo f zo n prefix))))) (compile-to-zo f zo n prefix)))))
(define (compile-directory dir info #:verbose [verbose? #t]) (define (compile-directory dir info #:verbose [verbose? #t])