From e316fd3bf98d0ea1ff8ad803e2fe2300d751beac Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 4 Jul 2010 12:42:08 -0600 Subject: [PATCH] fix parallel build location of main executable --- collects/setup/parallel-build.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/setup/parallel-build.rkt b/collects/setup/parallel-build.rkt index 2b20f6d501..72ffd78cf2 100644 --- a/collects/setup/parallel-build.rkt +++ b/collects/setup/parallel-build.rkt @@ -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)