From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 24 Jan 1992 23:13:51 +0000 (+0000)
Subject: RUN-SYNCHRONOUS-PROCESS was doing too much work in cases where the
X-Git-Tag: 20090517-FFI~9936
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8789f537fc3350e3088ac2764c55a9bb11f49082;p=mit-scheme.git

RUN-SYNCHRONOUS-PROCESS was doing too much work in cases where the
subprocess was not doing both input and output.  Now it optimizes the
I/O depending on what is needed.
---

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index cc3fcb1d3..43c9f22f8 100644
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/process.scm,v 1.15 1992/01/24 23:05:51 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/process.scm,v 1.16 1992/01/24 23:13:51 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-92 Massachusetts Institute of Technology
 ;;;
@@ -533,9 +533,9 @@ after the listing is made.)"
 				 (loop)
 				 status)))))))
 		 (begin
-		   (group-write-to-channel (region-group region)
-					   (region-start-index region)
-					   (region-end-index region)
+		   (group-write-to-channel (region-group input-region)
+					   (region-start-index input-region)
+					   (region-end-index input-region)
 					   (subprocess-output-channel process))
 		   (subprocess-wait process)))))))
       (begin