From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 17 Sep 2013 00:14:10 +0000 (-0700)
Subject: planetarium/mit-snapshot: Allow errors during (load-option 'GTK).
X-Git-Tag: mit-scheme-pucked-9.2.12~464
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3b2a449fb51f15c257dad8e87d06ca386deacdaf;p=mit-scheme.git

planetarium/mit-snapshot: Allow errors during (load-option 'GTK).

Loading GTK does not signal an error when DISPLAY is not set, just a
warning, so ignoring errors is no longer necessary, and hides other
problems (e.g. DISPLAY is set but invalid).
---

diff --git a/src/planetarium/mit-snapshot.scm b/src/planetarium/mit-snapshot.scm
index 6f06be085..0a5dcee92 100644
--- a/src/planetarium/mit-snapshot.scm
+++ b/src/planetarium/mit-snapshot.scm
@@ -23,8 +23,8 @@ USA.
 
 ;;;; Generate snapshots (PNG files).
 
-;; Expect DISPLAY not set.
-(ignore-errors (lambda () (load-option 'gtk)))
+;; Expect warning about DISPLAY not set.
+(load-option 'GTK)
 
 (with-working-directory-pathname
     (directory-pathname (current-load-pathname))