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 457e149f8173730bb76eb7cb0d2769e80e3a0f98..b42998894ad4c2159ba383b202b41a02864c4426 100644 (file)
--- 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