Use reasonable default working directory.

diff --git a/v7/src/runtime/syncproc.scm b/v7/src/runtime/syncproc.scm
index 7df52ba18d81a27c107cb086e5802b446bf1710c..41ece41f4a876ef5ffa1a525912b04518ac03a17 100644 (file)
--- a/v7/src/runtime/syncproc.scm
+++ b/v7/src/runtime/syncproc.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: syncproc.scm,v 1.7 1999/02/01 05:00:44 cph Exp $
+$Id: syncproc.scm,v 1.8 1999/04/20 01:09:54 cph Exp $
 
 Copyright (c) 1999 Massachusetts Institute of Technology
 
@@ -71,8 +71,9 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 (define (run-synchronous-subprocess-1 program arguments context)
   (let ((directory
         (let ((directory (subprocess-context/working-directory context)))
-          (and directory
-               (merge-pathnames directory))))
+          (if directory
+              (merge-pathnames directory)
+              (working-directory-pathname))))
        (process #f))
     (bind-condition-handler '()
        (lambda (condition)