From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 9 Sep 1993 22:40:36 +0000 (+0000)
Subject: Attempt to detect process status changes more reliably.
X-Git-Tag: 20090517-FFI~7870
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8bdc98166b107c54e0f08a321fd9080047362d02;p=mit-scheme.git

Attempt to detect process status changes more reliably.
---

diff --git a/v7/src/edwin/xterm.scm b/v7/src/edwin/xterm.scm
index 2f5b10a9b..03229aa1c 100644
--- a/v7/src/edwin/xterm.scm
+++ b/v7/src/edwin/xterm.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: xterm.scm,v 1.44 1993/08/20 00:17:32 cph Exp $
+;;;	$Id: xterm.scm,v 1.45 1993/09/09 22:40:36 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -505,7 +505,14 @@
 		   (case flag
 		     ((#F) #f)
 		     ((PROCESS-STATUS-CHANGE) event:process-status)
-		     ((INTERRUPT) (loop))
+		     ((INTERRUPT)
+		      ;; Must independently check for this condition
+		      ;; because TEST-FOR-INPUT-ON-DESCRIPTOR can't
+		      ;; reliably produce the PROCESS-STATUS-CHANGE
+		      ;; result.
+		      (if (process-status-changes?)
+			  event:process-status
+			  (loop)))
 		     (else (read-event-1 display block?))))))))))
 
 (define (preview-event-stream)