blob: 9e8bbcf6e72d09c6f2dc67f84884eda85565d5ab (
plain)
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:
|
