+ fixed scx-xft-font-match

2003-10-27 07:49:20 +00:00 · 2003-10-27 07:49:20 +00:00 · 6097628ca7
parent dd2a4248c3
commit 6097628ca7
1 changed files with 2 additions and 1 deletions
--- a/scheme/libs/xft.scm
+++ b/scheme/libs/xft.scm
@ -227,7 +227,8 @@
  (call-with-values
   (lambda ()
     (let ((screen-number (screen:number screen)))
-       (scx-xft-font-match-internal display screen-number xft-pattern)))
+       (apply values
+	      (scx-xft-font-match-internal display screen-number xft-pattern))))
   (lambda (result xft-pattern)
     (add-finalizer! xft-pattern scx-xft-pattern-destroy)
     (values result xft-pattern))))