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,9 +120,8 @@
(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 f)]) (let-values ([(base file dir?) (split-path file)])
(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)
@ -131,10 +130,10 @@
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])