comiler/compile-file: adapt to use-compiled-file-paths setting

2018-10-22 17:14:49 -06:00 · 2018-10-22 17:14:49 -06:00 · aa6ec1f0cd
commit aa6ec1f0cd
parent 33e8ee7786
1 changed files with 4 additions and 1 deletions
--- a/racket/collects/compiler/compile-file.rkt
+++ b/racket/collects/compiler/compile-file.rkt
@ -7,7 +7,10 @@
 (define compile-file
  (case-lambda
    [(src)
-     (define cdir (build-path (path-only src) "compiled"))
+     (define cdir (build-path (path-only src) (let ([l (use-compiled-file-paths)])
+                                                (if (pair? l)
+                                                    (car l)
+                                                    "compiled"))))
     (make-directory* cdir)
     (compile-file src (build-path cdir (path-add-suffix (file-name-from-path src) #".zo")))]
    [(src dest)