<br />
<b>Deprecated</b>:  The each() function is deprecated. This message will be suppressed on further calls in <b>/home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php</b> on line <b>456</b><br />
;; $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