let apply_all project ~propagate_to_callers =
assert (not propagate_to_callers) ;
try
while (true)
do
(* Format.printf "@\napply_next_internal@."; *)
!Db.Slicing.Request.apply_next_internal project
done
with Not_found -> ()