fix parallel build location of main executable

This commit is contained in:
Matthew Flatt 2010-07-04 12:42:08 -06:00
parent fb730cb1c2
commit e316fd3bf9

View File

@ -188,12 +188,13 @@ END
(define process-worker-filename
(path->string (build-path (collection-path "setup") "parallel-build-worker.rkt")))
(define executable (find-system-path 'exec-file))
(define executable (parameterize ([current-directory (find-system-path 'orig-dir)])
(find-executable-path (find-system-path 'exec-file) #f)))
(define (send/msg x ch)
(write x ch)
(flush-output ch))
(define (spawn i)
(let-values ([(s o in e) (subprocess #f #f (current-error-port) (path->string executable) process-worker-filename)])
(let-values ([(s o in e) (subprocess #f #f (current-error-port) executable process-worker-filename)])
(send/msg i in)
(list i s o in e)))
(define (kill-worker i nw o in)