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 cc3fcb1d3a5c155e3fabb5c7b611a0f53288befb..43c9f22f817baddd5d5f073a661bb147f9482c88 100644 (file)
--- 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