let call_normal caller_env ~get_pre ~get_post ~get_assigns
stmt lv fct args wp_normal
=
on_context caller_env "call_normal" wp_normal Close_context Keep_assigns
(fun caller_env p_assigns p_normal ->
let get_exits _kf = [] in
let p_exit = F.p_true in
fst ( call caller_env ~get_pre ~get_post ~get_exits ~get_assigns
stmt lv fct args p_assigns p_normal p_exit ))