- bug in make-gcontext-getter fixed

2003-01-17 16:42:14 +00:00 · 2003-01-17 16:42:14 +00:00 · 6984e99ccc
parent acc76aa869
commit 6984e99ccc
1 changed files with 2 additions and 1 deletions
--- a/scheme/xlib/gcontext.scm
+++ b/scheme/xlib/gcontext.scm
@ -276,7 +276,8 @@

 (define (make-gcontext-getter name)
  (lambda (gcontext)
-    (cdr (assq name (get-gcontext-values gcontext)))))
+    (let ((values (get-gcontext-values gcontext)))
+      (and values (cdr (assq name values))))))

 (define gcontext-function (make-gcontext-getter (gc-value function)))
 (define gcontext-plane-mask (make-gcontext-getter (gc-value plane-mask)))