[Scsh-checkins] CVS: scx/scheme/xlib color-type.scm,1.1,1.2

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

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

Modified Files:
        color-type.scm 
Log Message:
fixed call/cc -> call-with-current-continuation typo.


Index: color-type.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/color-type.scm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** color-type.scm      2001/07/09 13:45:36     1.1
--- color-type.scm      2001/07/16 13:06:20     1.2
***************
*** 55,66 ****
  
  (define (color-list-find* r g b) ;; r,g,b as integers
!   (call/cc (lambda (return)
!            (table-walk (lambda (key value)
!                         (let ((color (weak-pointer-ref value)))
!                           (if (equal? (list r g b)
!                                       (extract-rgb-values color))
!                               (return key))))
!                        *weak-color-list*)
!            #f)))
  
  (define (color-list-set! Xcolor color)
--- 55,67 ----
  
  (define (color-list-find* r g b) ;; r,g,b as integers
!   (call-with-current-continuation
!    (lambda (return)
!      (table-walk (lambda (key value)
!                  (let ((color (weak-pointer-ref value)))
!                    (if (equal? (list r g b)
!                                (extract-rgb-values color))
!                        (return key))))
!                *weak-color-list*)
!      #f)))
  
  (define (color-list-set! Xcolor color)