mem

[procedure] mem test xs

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

(def mem (test seq)
  (let f (testify test)
    (reclist [if (f:car _) _] seq)))