From 6a3e5f9413ee5804757f96e097f96793bf24b1d2 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 Sep 1993 19:13:44 +0000
Subject: [PATCH] Check for process status changes before blocking.  No longer
 need to treat INTERRUPT as a possible process status change since the runtime
 system has been modified to reliably produce the right result.

---
 v7/src/edwin/xterm.scm | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/v7/src/edwin/xterm.scm b/v7/src/edwin/xterm.scm
index 03229aa1c..1d3cd7db8 100644
--- a/v7/src/edwin/xterm.scm
+++ b/v7/src/edwin/xterm.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: xterm.scm,v 1.45 1993/09/09 22:40:36 cph Exp $
+;;;	$Id: xterm.scm,v 1.46 1993/09/10 19:13:44 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -496,6 +496,9 @@
 		((process-output-available?)
 		 (set-interrupt-enables! interrupt-mask)
 		 event:process-output)
+		((process-status-changes?)
+		 (set-interrupt-enables! interrupt-mask)
+		 event:process-status)
 		(else
 		 (let ((flag
 			(test-for-input-on-descriptor
@@ -505,14 +508,7 @@
 		   (case flag
 		     ((#F) #f)
 		     ((PROCESS-STATUS-CHANGE) event:process-status)
-		     ((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)))
+		     ((INTERRUPT) (loop))
 		     (else (read-event-1 display block?))))))))))
 
 (define (preview-event-stream)
-- 
2.25.1