chickadee » ck-macros » c-any1

Calls the operation on each value in the given list until it finds a result that is not '#f, then yields that result. Yields '#f if the predicate yields '#f for all items in the list, or if the list is empty.

Analogous to any from SRFI 1, but only accepts one list. Prior to version 0.2.0, this was named c-any.

(ck () (c-quote (c-any1 '(c-pair?) '())))
;; ==> '#f
(ck () (c-quote (c-any1 '(c-pair?) '(a b c))))
;; ==> '#f
(ck () (c-quote (c-any1 '(c-pair?) '(a (b . c)))))
;; ==> '#t

(ck () (c-quote (c-any1 '(c-cons 'z) '(a b c))))
;; ==> '(1 . a)
;; Because (c-cons 'z 'a) yields a value that is not '#f.