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

fix dest of mzc --zo (PR 9400)

Browse Source 
svn: r9905
This commit is contained in:
Matthew Flatt 2008-05-20 12:15:33 +00:00
parent 054a67fd43
commit 08d15a9be7
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/compiler/compiler-unit.ss
View File

@ -120,21 +120,20 @@
(lambda (source-files destination-directory)
(define file-bases
(map (lambda (file)
(let ([f (extract-base-filename/ss file 'mzc)])
(if destination-directory
(let-values ([(base file dir?) (split-path f)])
(if destination-directory
(let-values ([(base file dir?) (split-path file)])
(build-path
(if (eq? destination-directory 'auto)
(let ([d (build-path (if (eq? base 'relative) 'same base)
"compiled")])
(unless (directory-exists? d) (make-directory* d))
d)
destination-directory)
(let ([d (build-path (if (eq? base 'relative) 'same base)
"compiled")])
(unless (directory-exists? d) (make-directory* d))
d)
destination-directory)
file))
f)))
file))
source-files))
(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)))))
(define (compile-directory dir info #:verbose [verbose? #t])