From fcabeee36e799a93af51c41bceea13630f955397 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 9 Dec 2015 14:27:57 -0700 Subject: [PATCH] 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?). --- src/edwin/intmod.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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))) -- 2.25.1