Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
;; $Id: some-mod.scm,v 1.2 2006/01/05 22:24:09 leavens Exp $
(module some-mod (lib "typedscm.ss" "typedscm")
(provide some)
(deftype some (forall (T) (-> ((-> (T) boolean) (list-of T)) boolean)))
(define some
(lambda (pred ls)
(and (not (null? ls))
(or (pred (car ls))
(some pred (cdr ls))))))
) ;; end module