From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Mon, 16 Sep 2013 17:46:21 +0000 (-0700)
Subject: gtk: Fix `make check` to NOT hang when is DISPLAY not set.
X-Git-Tag: mit-scheme-pucked-9.2.12~470
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6e208c637c0cee335b67eb9c3bc1c8866fc3c9f6;p=mit-scheme.git

gtk: Fix `make check` to NOT hang when is DISPLAY not set.
---

diff --git a/src/gtk/check.scm b/src/gtk/check.scm
index 0dd591901..d9dd90fdc 100644
--- a/src/gtk/check.scm
+++ b/src/gtk/check.scm
@@ -8,5 +8,6 @@
 	(cons dirname (access library-directory-path env)))
   (set! *initial-options-file* (merge-pathnames "check-optiondb" dirname)))
 
-(if (not (warn-errors? (lambda () (load-option 'GTK))))
+(load-option 'GTK)
+(if (gtk-thread-running?)
     (load "gtk-check" (->environment '(GTK))))
\ No newline at end of file