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

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

Browse Source
This commit is contained in:
Matthew Flatt 2018-10-22 17:14:49 -06:00
parent 33e8ee7786
commit aa6ec1f0cd
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/collects/compiler/compile-file.rkt
View File

@ -7,7 +7,10 @@
(define compile-file (define compile-file
(case-lambda (case-lambda
[(src) [(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) (make-directory* cdir)
(compile-file src (build-path cdir (path-add-suffix (file-name-from-path src) #".zo")))] (compile-file src (build-path cdir (path-add-suffix (file-name-from-path src) #".zo")))]
[(src dest) [(src dest)