From 6097628ca7cc72754c38e760d213c7f6f5df0383 Mon Sep 17 00:00:00 2001 From: eknauel Date: Mon, 27 Oct 2003 07:49:20 +0000 Subject: [PATCH] + fixed scx-xft-font-match --- scheme/libs/xft.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scheme/libs/xft.scm b/scheme/libs/xft.scm index a3380d6..1eb30cf 100644 --- 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))))