From 1c46d45bdff9d5432eca70f57d671ea1dd6a4cc5 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 11 Feb 1992 20:37:19 +0000
Subject: [PATCH] Close SUBPROCESS-INPUT-CHANNEL when done with it.

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

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index c2ab7e0a1..6a0dc6343 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.18 1992/02/04 04:03:32 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/process.scm,v 1.19 1992/02/11 20:37:19 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-92 Massachusetts Institute of Technology
 ;;;
@@ -551,7 +551,8 @@ after the listing is made.)"
 		  (if (> n 0)
 		      (begin
 			(insert-substring buffer 0 n output-mark)
-			(loop)))))))
+			(loop)))))
+	      (channel-close output-channel)))
 	(subprocess-wait process))))
 
 (define (call-with-output-copier process output-mark receiver)
@@ -569,6 +570,7 @@ after the listing is made.)"
       (let ((status (receiver copy-output)))
 	(channel-blocking channel)
 	(copy-output)
+	(channel-close channel)
 	status))))
 
 (define (call-with-input-copier process input-region receiver)
-- 
2.25.1