From 6984e99ccc2b5e0d98c4aa9d3f4b9739a513735b Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Fri, 17 Jan 2003 16:42:14 +0000
Subject: [PATCH] - bug in make-gcontext-getter fixed

---
 scheme/xlib/gcontext.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/xlib/gcontext.scm b/scheme/xlib/gcontext.scm
index 4b3242d..e3c6051 100644
--- 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)))