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

fixed call/cc -> call-with-current-continuation typo.

This commit is contained in:
frese 2001-07-16 13:06:20 +00:00
parent 37a4d6ac46
commit d198d95710
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
scheme/xlib/color-type.scm
View File

@ -54,14 +54,15 @@
r))) r)))
(define (color-list-find* r g b) ;; r,g,b as integers (define (color-list-find* r g b) ;; r,g,b as integers
(call/cc (lambda (return) (call-with-current-continuation
(table-walk (lambda (key value) (lambda (return)
(let ((color (weak-pointer-ref value))) (table-walk (lambda (key value)
(if (equal? (list r g b) (let ((color (weak-pointer-ref value)))
(extract-rgb-values color)) (if (equal? (list r g b)
(return key)))) (extract-rgb-values color))
*weak-color-list*) (return key))))
#f))) *weak-color-list*)
#f)))
(define (color-list-set! Xcolor color) (define (color-list-set! Xcolor color)
(let ((p (make-weak-pointer color))) (let ((p (make-weak-pointer color)))