[pulse][minor] name ~callee argument for readability

Summary: To make sure we don't mix up the order of arguments.

Reviewed By: dulmarod

Differential Revision: D22921348

fbshipit-source-id: 9b5333bf3
master
Jules Villard 4 years ago committed by Facebook GitHub Bot
parent 62e84185b1
commit 934a13a134

@ -176,7 +176,7 @@ let and_citvs_callee subst citvs_caller citvs_callee =
(subst, citvs') (subst, citvs')
let and_formula_callee subst formula_caller formula_callee = let and_formula_callee subst formula_caller ~callee:formula_callee =
(* need to translate callee variables to make sense for the caller, thereby possibly extending (* need to translate callee variables to make sense for the caller, thereby possibly extending
the current substitution *) the current substitution *)
let subst, formula_callee_translated = let subst, formula_callee_translated =
@ -199,7 +199,7 @@ let and_callee subst phi ~callee:phi_callee =
L.d_printfln "contradiction found by concrete intervals" ; L.d_printfln "contradiction found by concrete intervals" ;
(subst, false_) (subst, false_)
| subst, citvs' -> | subst, citvs' ->
let subst, formula' = and_formula_callee subst phi.formula phi_callee.formula in let subst, formula' = and_formula_callee subst phi.formula ~callee:phi_callee.formula in
L.d_printfln "conjoined formula post call: %a@\n" Formula.pp formula' ; L.d_printfln "conjoined formula post call: %a@\n" Formula.pp formula' ;
let formula' = Formula.normalize formula' in let formula' = Formula.normalize formula' in
let is_unsat = Formula.is_literal_false formula' in let is_unsat = Formula.is_literal_false formula' in

Loading…
Cancel
Save