let call_exit caller_env ~get_pre ~get_exits ~get_assigns
stmt fct args wp_exits
=
on_context caller_env "call_exit" wp_exits Close_context Keep_assigns
(fun caller_env p_assigns p_exits ->
let lv = None in
let get_post _kf = [] in
let p_normal = F.p_true in
snd ( call caller_env ~get_pre ~get_post ~get_exits ~get_assigns
stmt lv fct args p_assigns p_normal p_exits ))