From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sat, 16 Jul 2011 00:46:01 +0000 (-0700)
Subject: Allow no runnable threads nor timers.
X-Git-Tag: mit-scheme-pucked-9.2.12~690
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ab5ada42359649f2bb078d0a5d25b7a754594cb6;p=mit-scheme.git

Allow no runnable threads nor timers.

The console thread may be reading from a GInputStream, i.e. waiting
for a callback to make it runnable.
---

diff --git a/src/gtk/thread.scm b/src/gtk/thread.scm
index c3dabca33..81b7083e4 100644
--- a/src/gtk/thread.scm
+++ b/src/gtk/thread.scm
@@ -75,7 +75,8 @@ USA.
   (detach-thread gtk-thread))
 
 (define (no-threads-nor-timers)
-  (error "gtk-thread: no threads, no timers: "next-scheduled-timeout))
+  ;; Wake up once a minute, just to see if you can...
+  (+ (real-time-clock) (* 60 1000)))
 
 (define (exit-gtk-thread)
   (let ((thread gtk-thread))