+ predicates for Xft return codes

scheme/libs/libs-interfaces.scm

@@ -43,7 +43,12 @@
    scx-xft-draw-colormap
    scx-xft-draw-visual
    (xft-pattern-object :syntax)
-   xft-pattern-object-elements))
+   xft-pattern-object-elements
+   
+   scx-xft-result-match?
+   scx-xft-result-no-match?
+   scx-xft-result-type-mismatch?
+   scx-xft-result-no-id?))
 
 (define-interface xrender-interface
   (export

scheme/libs/xft.scm

@@ -233,21 +233,29 @@
   (shared-binding-ref
    (lookup-imported-binding "scx-xft-version-minor")))
 
-(define scx-xft-result-match
-  (shared-binding-ref
-   (lookup-imported-binding "scx-xft-result-match")))
+(define scx-xft-result-match?
+  (let ((code (shared-binding-ref
+	       (lookup-imported-binding "scx-xft-result-match"))))
+    (lambda (value)
+      (equal? value code))))
 
-(define scx-xft-result-no-match
- (shared-binding-ref
-  (lookup-imported-binding "scx-xft-result-no-match")))
+(define scx-xft-result-no-match?
+  (let ((code (shared-binding-ref
+	       (lookup-imported-binding "scx-xft-result-no-match"))))
+    (lambda (value)
+      (equal? value code))))
 
-(define scx-xft-result-type-mismatch
-  (shared-binding-ref
-   (lookup-imported-binding "scx-xft-result-type-mismatch")))
+(define scx-xft-result-type-mismatch?
+  (let ((code (shared-binding-ref
+	       (lookup-imported-binding "scx-xft-result-type-mismatch"))))
+    (lambda (value)
+      (equal? value code))))
 
-(define scx-xft-result-no-id
-  (shared-binding-ref
-   (lookup-imported-binding "scx-xft-result-no-id")))
+(define scx-xft-result-no-id?
+  (let ((code (shared-binding-ref
+	       (lookup-imported-binding "scx-xft-result-no-id"))))
+    (lambda (value)
+      (equal? value code))))
 
 ;;; import functions from C code