From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sun, 17 Jan 2016 20:41:00 +0000 (-0700)
Subject: Merge branch 'Gtk' into Gtk-Screen.
X-Git-Tag: mit-scheme-pucked-9.2.12~366^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a3f98fdffb0c561ab411ee230e21c05dbaa1fbe8;p=mit-scheme.git

Merge branch 'Gtk' into Gtk-Screen.
---

a3f98fdffb0c561ab411ee230e21c05dbaa1fbe8
diff --cc src/edwin/editor.scm
index 72541a5e0,8d13ee660..26fa813de
--- a/src/edwin/editor.scm
+++ b/src/edwin/editor.scm
@@@ -611,13 -611,13 +611,18 @@@ TRANSCRIPT    messages appear in transc
    (if (not inferior-thread-changes?)
        (begin
  	(set! inferior-thread-changes? #t)
 -	(signal-thread-event editor-thread #f))))
 +	(hook/signal-inferior-thread-output!))))
 +
 +(define (signal-inferior-thread-output!)
 +  (signal-thread-event editor-thread #f))
 +
 +(define hook/signal-inferior-thread-output! signal-inferior-thread-output!)
  
+ (define (inferior-thread-run-light! flags)
+   (set-car! flags #t)
+   (if (not inferior-thread-changes?)
+       (set! inferior-thread-changes? #t)))
+ 
  (define (accept-thread-output)
    (with-interrupt-mask interrupt-mask/gc-ok
      (lambda (interrupt-mask)