From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sat, 27 Aug 2016 16:14:13 +0000 (-0700)
Subject: Edwin X/X11: Do NOT halt screen update because of subprocess output.
X-Git-Tag: mit-scheme-pucked-9.2.12~260^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5b75bf1f3048a464a6adbdf7ee6f310a50d96148;p=mit-scheme.git

Edwin X/X11: Do NOT halt screen update because of subprocess output.
---

diff --git a/src/edwin/xterm.scm b/src/edwin/xterm.scm
index 812cd8fdb..4aff3cc6f 100644
--- a/src/edwin/xterm.scm
+++ b/src/edwin/xterm.scm
@@ -466,9 +466,8 @@ USA.
 		     result))))
 	    (values
 	     (lambda ()			;halt-update?
-	       (or pending-result
-		   (fix:< start end)
-		   (probe 0)))
+	       (or (fix:< start end)
+		   (not (queue-empty? queue))))
 	     (lambda (msec)		;peek-no-hang
 	       (or pending-result
 		   (and (fix:< start end)
diff --git a/src/x11-screen/x11-screen.scm b/src/x11-screen/x11-screen.scm
index f82160cca..b4abd92df 100644
--- a/src/x11-screen/x11-screen.scm
+++ b/src/x11-screen/x11-screen.scm
@@ -394,9 +394,8 @@ USA.
 		     result))))
 	    (values
 	     (lambda ()			;halt-update?
-	       (or pending-result
-		   (fix:< start end)
-		   (probe 0)))
+	       (or (fix:< start end)
+		   (not (queue-empty? queue))))
 	     (lambda (msec)		;peek-no-hang
 	       (or pending-result
 		   (and (fix:< start end)