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 c3dabca334d2216d164b2e9d005bb6c4ec925e45..81b7083e469bb6d07873e0070c8db88c6439cdb7 100644 (file)
--- 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))