From 50b8984e67c7eda229629ecfc444a4031c92d0ec Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 20 Apr 1999 01:09:54 +0000 Subject: [PATCH] Use reasonable default working directory. --- v7/src/runtime/syncproc.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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) -- 2.25.1