In `shell-command-region', if the region is empty, must close the

input channel of the subprocess.

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index 6342df7b06a924bd07047e1513329a2438a9a28e..9a62fee126b9015bfd7065de6356c91ac6a6ea9a 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.1 1991/03/16 00:03:58 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/process.scm,v 1.2 1991/04/03 00:18:20 cph Exp $
 ;;;
 ;;;    Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -557,7 +557,8 @@ after the listing is made.)"
                               (begin
                                 (set! start-index (+ start-index n))
                                 (if (= start-index end-index)
-                                    (channel-close input-channel))))))))
+                                    (channel-close input-channel)))))))
+                    (channel-close input-channel))
                 (copy-output)
                 (let ((status (subprocess-status process)))
                   (if (eq? status 'RUNNING)