From 08d15a9be7b5469d5199553c91626f3b6e3aab4e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 20 May 2008 12:15:33 +0000 Subject: [PATCH] fix dest of mzc --zo (PR 9400) svn: r9905 --- collects/compiler/compiler-unit.ss | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/collects/compiler/compiler-unit.ss b/collects/compiler/compiler-unit.ss index db11456a4b..82bef710d5 100644 --- a/collects/compiler/compiler-unit.ss +++ b/collects/compiler/compiler-unit.ss @@ -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])