From 925f1536938e5d996701a5bb30b876d7757c7441 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 1 Feb 1999 05:00:44 +0000 Subject: [PATCH] Run merge-pathnames on the working directory of a subprocess. --- v7/src/runtime/syncproc.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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))) -- 2.25.1