From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Feb 1999 05:00:44 +0000 (+0000)
Subject: Run merge-pathnames on the working directory of a subprocess.
X-Git-Tag: 20090517-FFI~4644
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=925f1536938e5d996701a5bb30b876d7757c7441;p=mit-scheme.git

Run merge-pathnames on the working directory of a subprocess.
---

diff --git a/v7/src/runtime/syncproc.scm b/v7/src/runtime/syncproc.scm
index 1ea3523dd..7df52ba18 100644
--- a/v7/src/runtime/syncproc.scm
+++ b/v7/src/runtime/syncproc.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: syncproc.scm,v 1.6 1999/02/01 03:28:31 cph Exp $
+$Id: syncproc.scm,v 1.7 1999/02/01 05:00:44 cph Exp $
 
 Copyright (c) 1999 Massachusetts Institute of Technology
 
@@ -69,8 +69,11 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 				(apply make-subprocess-context options)))
 
 (define (run-synchronous-subprocess-1 program arguments context)
-  (let* ((directory (subprocess-context/working-directory context))
-	 (process #f))
+  (let ((directory
+	 (let ((directory (subprocess-context/working-directory context)))
+	   (and directory
+		(merge-pathnames directory))))
+	(process #f))
     (bind-condition-handler '()
 	(lambda (condition)
 	  (if (and process (not (eq? process 'DELETED)))