[Scsh-checkins] CVS: scx/scheme/xlib gcontext.scm,1.2,1.3

[David Frese <frese@users.sourceforge.net>]

Update of /cvsroot/scsh/scx/scheme/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv22944

Modified Files:
        gcontext.scm 
Log Message:
fixed two typos.


Index: gcontext.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/gcontext.scm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** gcontext.scm        2001/07/09 13:49:38     1.2
--- gcontext.scm        2001/07/16 13:23:39     1.3
***************
*** 3,7 ****
  (define (create-gcontext . args)
    (let ((alist (named-args->alist args)))
!     (receive (drawable rest) (alist-split '((drawable . #f)))
        (let* ((rest (map cons
                        (map car rest)
--- 3,7 ----
  (define (create-gcontext . args)
    (let ((alist (named-args->alist args)))
!     (receive (drawable rest) (alist-split alist '((drawable . #f)))
        (let* ((rest (map cons
                        (map car rest)
***************
*** 120,124 ****
  (define (make-gcontext-setter name)
    (lambda (gcontext value)
!     (change-gcontext gcontext (cons name value))))
  
  (define set-gcontext-function! (make-gcontext-setter 'function))
--- 120,124 ----
  (define (make-gcontext-setter name)
    (lambda (gcontext value)
!     (change-gcontext gcontext (list (cons name value)))))
  
  (define set-gcontext-function! (make-gcontext-setter 'function))