let call_exit wenv ~get_pre ~get_exits ~get_assigns stmt e args goals = let wp = W.call_exit wenv ~get_pre ~get_exits ~get_assigns stmt e args in let f p () = wp p in List.map (fun g -> make_goal g.g_id (f g.g_prop) [g.g_descr]) goals