dev-scheme/gauche-gtk/files/gauche-gtk-h2s-gdk-pixbuf.diff


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

--- a/src/h2s-gtk.scm
+++ b/src/h2s-gtk.scm
@@ -50,6 +50,11 @@
 (define pango-directory
   (find-header-dir #`"pango-,|pango-version|/pango/pango.h"
                    *header-search-paths*))
+(define gdk-pixbuf-directory
+  (guard (e [(<error> e)
+             gtk-directory])
+    (find-header-dir #`"gdk-pixbuf-,|gtk-version|/gdk-pixbuf/gdk-pixbuf.h"
+                     *header-search-paths* )))
 
 
 (define (parse-gdk)
@@ -64,7 +69,7 @@
                  (call-with-input-file "PANGOFILES" port->string-list)))
 
 (define (parse-gdk-pixbuf)
-  (parse-headers #`",|gtk-directory|/gdk-pixbuf"
+  (parse-headers #`",|gdk-pixbuf-directory|/gdk-pixbuf"
                  (call-with-input-file "GDKPIXBUFFILES" port->string-list)))
 
 ;; defaults for the gauche-gtk package: