Change MAKE-SUBPROCESS primitive to accept a working directory

argument for setting the working directory of the subprocess.

diff --git a/v7/src/microcode/uxproc.c b/v7/src/microcode/uxproc.c
index 40287c782898acb6f32531a4faeb1feb07983c43..25f8fbc44e3f9bf5fd22a55479be6004b2ad7a80 100644 (file)
--- a/v7/src/microcode/uxproc.c
+++ b/v7/src/microcode/uxproc.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxproc.c,v 1.12 1992/02/11 23:01:17 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxproc.c,v 1.13 1992/02/11 23:16:50 cph Exp $
 
 Copyright (c) 1990-92 Massachusetts Institute of Technology
 
@@ -233,7 +233,7 @@ DEFUN (OS_process_deallocate, (process), Tprocess process)
 \f
 Tprocess
 DEFUN (OS_make_subprocess,
-       (filename, argv, envp,
+       (filename, argv, envp, working_directory,
        ctty_type, ctty_name,
        channel_in_type, channel_in,
        channel_out_type, channel_out,