find

[procedure] find test seq

scheme:find, except test is testified (see testify).

(def find (test seq)
  (let f (testify test)
    (if (alist seq)
        (reclist   [if (f:car _) (car _)] seq)
        (recstring [if (f:seq _) (seq _)] seq))))

See also reclist, recstring.