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

fixed two typos.

This commit is contained in:
frese 2001-07-16 13:23:39 +00:00
parent 120a787447
commit 144ecc85c6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/xlib/gcontext.scm
View File

@ -2,7 +2,7 @@
(define (create-gcontext . args) (define (create-gcontext . args)
(let ((alist (named-args->alist args))) (let ((alist (named-args->alist args)))
(receive (drawable rest) (alist-split '((drawable . #f))) (receive (drawable rest) (alist-split alist '((drawable . #f)))
(let* ((rest (map cons (let* ((rest (map cons
(map car rest) (map car rest)
(map (lambda (obj) (map (lambda (obj)
@ -119,7 +119,7 @@
(define (make-gcontext-setter name) (define (make-gcontext-setter name)
(lambda (gcontext value) (lambda (gcontext value)
(change-gcontext gcontext (cons name value)))) (change-gcontext gcontext (list (cons name value)))))
(define set-gcontext-function! (make-gcontext-setter 'function)) (define set-gcontext-function! (make-gcontext-setter 'function))
(define set-gcontext-plane-mask! (make-gcontext-setter 'plane-mask)) (define set-gcontext-plane-mask! (make-gcontext-setter 'plane-mask))