Synchronous processes that need a specific working directory must pass

that directory as an argument to start-subprocess.

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index 20dc7884d4306ce36bf0fc51d00024835ca150af..8be49f22ab0baead6e03cb0eca73c7cce9578ee6 100644 (file)
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/process.scm,v 1.21 1992/02/12 02:23:32 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/process.scm,v 1.22 1992/03/02 04:08:37 cph Exp $
 ;;;
 ;;;    Copyright (c) 1991-92 Massachusetts Institute of Technology
 ;;;
@@ -468,17 +468,14 @@ after the listing is made.)"
          (^G-signal))
       (lambda ()
        (set! process
-             (let ((start-process
-                    (lambda ()
-                      (start-subprocess
-                       program
-                       (list->vector
-                        (cons (os/filename-non-directory program) arguments))
-                       false
-                       pty?))))
-               (if directory
-                   (with-working-directory-pathname directory start-process)
-                   (start-process))))
+             (start-subprocess
+              program
+              (list->vector
+               (cons (os/filename-non-directory program) arguments))
+              (if directory
+                  (cons false (->namestring directory))
+                  false)
+              pty?))
        (let* ((output-mark
                (and output-mark (mark-left-inserting-copy output-mark)))
               (status