From 8789f537fc3350e3088ac2764c55a9bb11f49082 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 24 Jan 1992 23:13:51 +0000
Subject: [PATCH] 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.

---
 v7/src/edwin/process.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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
-- 
2.25.1