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 ))