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

fix non-in-place install by propagating collects path to subprocesses

Browse Source 
Merge to 5.0.1
This commit is contained in:
Matthew Flatt 2010-07-20 07:15:31 -06:00
parent 310f9ce05a
commit b1efcd1fc2
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/setup/parallel-build.rkt
View File

@ -17,8 +17,7 @@
(initial-queue jobqueue)) (initial-queue jobqueue))
(define (process-comp jobqueue nprocs stopat) (define (process-comp jobqueue nprocs stopat)
(define process-worker-filename (define process-worker-library "setup/parallel-build-worker")
(path->string (build-path (collection-path "setup") "parallel-build-worker.rkt")))
(define executable (parameterize ([current-directory (find-system-path 'orig-dir)]) (define executable (parameterize ([current-directory (find-system-path 'orig-dir)])
(find-executable-path (find-system-path 'exec-file) #f))) (find-executable-path (find-system-path 'exec-file) #f)))
@ -26,7 +25,12 @@
(write x ch) (write x ch)
(flush-output ch)) (flush-output ch))
(define (spawn i) (define (spawn i)
(let-values ([(s o in e) (subprocess #f #f (current-error-port) executable process-worker-filename)]) (let-values ([(s o in e) (subprocess #f #f (current-error-port)
executable
"-X"
(path->string (find-system-path 'collects-dir))
"-l"
process-worker-library)])
(send/msg i in) (send/msg i in)
(list i s o in e))) (list i s o in e)))
(define (kill-worker i nw o in) (define (kill-worker i nw o in)