gtk: Fix start-gtk to look throughout the system library path.
authorMatt Birkholz <matt@birkholz.chandler.az.us>
Tue, 17 Sep 2013 00:09:53 +0000 (17:09 -0700)
committerMatt Birkholz <matt@birkholz.chandler.az.us>
Tue, 17 Sep 2013 00:09:53 +0000 (17:09 -0700)
System-library-pathname, with a REQUIRED? parameter value of #F, does
not search the library-directory-path.

src/gtk/main.scm

index dd494175a9a91119ee46ded7b3b18c9a44cf4dcc..457e149f8173730bb76eb7cb0d2769e80e3a0f98 100644 (file)
@@ -45,13 +45,12 @@ USA.
                     (list->vector val)))))))))
 
 (define (start-gtk name args)
-  (if (let ((path (system-library-pathname "gtk-shim.so" #f)))
-       (and path (file-loadable? path)))
-      (if (let ((s (get-environment-variable "DISPLAY")))
-           (and (string? s) (not (string-null? s))))
-         (start-gtk* name args)
-         (warn "DISPLAY not set"))
-      (error "Gtk shim not loadable.")))
+  (let ((path (system-library-pathname "gtk-shim.so")))
+    (if (not (file-loadable? path)) (error "Gtk shim not loadable."))
+    (if (let ((s (get-environment-variable "DISPLAY")))
+         (and (string? s) (not (string-null? s))))
+       (start-gtk* name args)
+       (warn "DISPLAY not set"))))
 
 (define (start-gtk* name args)
   ;; Call start_gtk.  Signals an error if gtk_init_check returns 0.