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

raco make -j: avoid changing the current directory

Browse Source 
Make `raco make -j` consistent with `raco make` --- while `raco setup`
continues to set the current directory during compilation.
This commit is contained in:
Matthew Flatt 2016-06-06 17:00:30 -06:00
parent 9ca0513875
commit cc717f1183
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/collects/setup/parallel-build.rkt
View File

@ -321,7 +321,9 @@
(when (member 'very-verbose options) (when (member 'very-verbose options)
(printf " ~a\n" p)))] (printf " ~a\n" p)))]
[current-namespace (make-base-empty-namespace)] [current-namespace (make-base-empty-namespace)]
[current-directory dir] [current-directory (if (memq 'set-directory options)
dir
(current-directory))]
[current-load-relative-directory dir] [current-load-relative-directory dir]
[current-input-port (open-input-string "")] [current-input-port (open-input-string "")]
[current-output-port out-str-port] [current-output-port out-str-port]
@ -359,7 +361,7 @@
(define (parallel-compile worker-count setup-fprintf append-error collects-tree) (define (parallel-compile worker-count setup-fprintf append-error collects-tree)
(setup-fprintf (current-output-port) #f "--- parallel build using ~a jobs ---" worker-count) (setup-fprintf (current-output-port) #f "--- parallel build using ~a jobs ---" worker-count)
(define collects-queue (make-object collects-queue% collects-tree setup-fprintf append-error '())) (define collects-queue (make-object collects-queue% collects-tree setup-fprintf append-error '(set-directory)))
(parallel-build collects-queue worker-count)) (parallel-build collects-queue worker-count))
(define (start-prefetch-thread send/add) (define (start-prefetch-thread send/add)