let get_next_filter proj =
  match proj.T.actions with
    | [] -> SlicingParameters.debug ~level:2 "[SlicingProject.get_next_filter] No more filter";
            raise Not_found
    | f :: tail -> proj.T.actions <- tail; f