From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 20 Apr 1999 01:09:54 +0000 (+0000)
Subject: Use reasonable default working directory.
X-Git-Tag: 20090517-FFI~4564
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=50b8984e67c7eda229629ecfc444a4031c92d0ec;p=mit-scheme.git

Use reasonable default working directory.
---

diff --git a/v7/src/runtime/syncproc.scm b/v7/src/runtime/syncproc.scm
index 7df52ba18..41ece41f4 100644
--- 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)