From aa6ec1f0cd51ce630c57c2bf343eb6f911077ffc Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 22 Oct 2018 17:14:49 -0600
Subject: [PATCH] comiler/compile-file: adapt to `use-compiled-file-paths`
 setting

---
 racket/collects/compiler/compile-file.rkt | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/racket/collects/compiler/compile-file.rkt b/racket/collects/compiler/compile-file.rkt
index 3e2b945c60..5f28f31c3e 100644
--- 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)