From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 9 Dec 2015 21:27:57 +0000 (-0700)
Subject: edwin: Fix inferior threads' wait-for-input.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~19
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fcabeee36e799a93af51c41bceea13630f955397;p=mit-scheme.git

edwin: Fix inferior threads' wait-for-input.

Set the run-light BEFORE setting inferior-thread-changes?.  Edwin may
accept-thread-output and clear the flag before it handles the thread
event (which will set the run-light, but not -changes?).
---

diff --git a/src/edwin/intmod.scm b/src/edwin/intmod.scm
index 62ca54d1d..911fa6b2d 100644
--- a/src/edwin/intmod.scm
+++ b/src/edwin/intmod.scm
@@ -225,10 +225,10 @@ evaluated in the specified inferior REPL buffer."
 		   ""
 		   (string-append " [level: " (number->string level) "]")))
 	 buffer)
-	(set-run-light! buffer #f))))
-  ;; This doesn't do any output, but prods the editor to notice that
-  ;; the modeline has changed and a redisplay is needed.
-  (inferior-thread-output! (port/output-registration port))
+	(set-run-light! buffer #f)
+	;; This doesn't do any output, but prods the editor to notice
+	;; that the modeline has changed and a redisplay is needed.
+	(inferior-thread-output! (port/output-registration port)))))
   (do () ((ready? port))
     (suspend-current-thread)))