From ab5ada42359649f2bb078d0a5d25b7a754594cb6 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 15 Jul 2011 17:46:01 -0700 Subject: [PATCH] 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. --- src/gtk/thread.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- 2.25.1