From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Nov 1993 03:51:23 +0000 (+0000)
Subject: POLL-PROCESS-FOR-OUTPUT must check the input channel to see if it is
X-Git-Tag: 20090517-FFI~7433
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fb663ef50b067b80570fc329d897245f50e87fda;p=mit-scheme.git

POLL-PROCESS-FOR-OUTPUT must check the input channel to see if it is
there at all -- SUBPROCESS-DELETE will change the channel to #F.
---

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index 98a2ab9e2..aadb18934 100644
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: process.scm,v 1.32 1993/11/23 01:23:16 cph Exp $
+;;;	$Id: process.scm,v 1.33 1993/11/23 03:51:23 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-93 Massachusetts Institute of Technology
 ;;;
@@ -276,7 +276,8 @@ Initialized from the SHELL environment variable."
 (define (poll-process-for-output process)
   (let ((channel (process-input-channel process))
 	(buffer (make-string 512)))
-    (and (channel-open? channel)
+    (and channel
+	 (channel-open? channel)
 	 (let ((close-input
 		(lambda ()
 		  (deregister-process-input process)