let iter_if p f y =
  let f' x = try f x with Not_found -> () in
    V.iter p.v f' y