fix dest of mzc --zo (PR 9400)
svn: r9905
This commit is contained in:
parent
054a67fd43
commit
08d15a9be7
|
@ -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])
|
||||||
|
|
Loading…
Reference in New Issue
Block a user