From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 5 Nov 2013 16:17:28 +0000 (-0700)
Subject: gtk: Warn, do not die, if start_gtk returns 0 (failure).
X-Git-Tag: mit-scheme-pucked-9.2.12~426
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d0af127fa2e9fa47f9b8376ba40de40bc93a1133;p=mit-scheme.git

gtk: Warn, do not die, if start_gtk returns 0 (failure).

(load-option 'gtk) should work when DISPLAY is not set.
---

diff --git a/src/gtk/main.scm b/src/gtk/main.scm
index 457e149f8..b42998894 100644
--- a/src/gtk/main.scm
+++ b/src/gtk/main.scm
@@ -53,7 +53,7 @@ USA.
 	(warn "DISPLAY not set"))))
 
 (define (start-gtk* name args)
-  ;; Call start_gtk.  Signals an error if gtk_init_check returns 0.
+  ;; Call start_gtk.  Warns if gtk_init_check returns 0.
   ;; Returns a list of unused ARGS.
   (let ((arg-count (guarantee-list-of-type->length
 		    args string? "list of commandline arguments (strings)"
@@ -82,7 +82,7 @@ USA.
       (C->= count-var "int" (+ 1 arg-count))
       (C->= vector-var "* * char" vector)
       (if (fix:zero? (C-call "start_gtk" count-var vector-var))
-	  (error "Could not start Gtk.")
+	  (warn "Could not start Gtk.")
 	  (let ((new-argc (C-> count-var "int")))
 	    (C-> vector-var "* * char" vector-scan)
 	    (let ((new-args