From db62ff412d8f5bd5ca569907b795abe44c79ab16 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 11 Nov 2003 06:52:53 +0000
Subject: [PATCH] Fix call to FONT-STRUCT:PROPERTIES in GET-FONT-PROPERTY

---
 scheme/xlib/font.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/xlib/font.scm b/scheme/xlib/font.scm
index ab6bca1..10c1ed7 100644
--- a/scheme/xlib/font.scm
+++ b/scheme/xlib/font.scm
@@ -66,7 +66,7 @@
   "scx_Free_Font")
 
 (define (get-font-property font-struct atom)
-  (let ((a (assq atom (font-struct:properties)))) ;; assq ??
+  (let ((a (assq atom (font-struct:properties font-struct)))) ;; assq ??
     (and a (cdr a))))
 
 ;; *** obtain or free font names and information *********************