scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- bug in make-gcontext-getter fixed

This commit is contained in:
frese 2003-01-17 16:42:14 +00:00
parent acc76aa869
commit 6984e99ccc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/xlib/gcontext.scm
View File

@ -276,7 +276,8 @@
(define (make-gcontext-getter name) (define (make-gcontext-getter name)
(lambda (gcontext) (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-function (make-gcontext-getter (gc-value function)))
(define gcontext-plane-mask (make-gcontext-getter (gc-value plane-mask))) (define gcontext-plane-mask (make-gcontext-getter (gc-value plane-mask)))