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 62ca54d1def2c36b71b18869781a444561919d57..911fa6b2dac8c8d11bd5b4c001cd50d107c2d5c8 100644 (file)
--- 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)))