Better error message

This commit is contained in:
Guillaume Bury 2015-01-29 15:44:54 +01:00
parent 803b61c7dc
commit 436dc49111

View file

@ -370,7 +370,10 @@ module Make (L : Log_intf.S)(E : Expr_intf.S)
var_bump_activity a.var;
history := d :: !history;
c := res
| _ -> assert false
| _ ->
L.debug 0 "Found %d resolution lits" (List.length tmp);
List.iter (fun c -> L.debug 0 " |- %a" St.pp_atom c) tmp;
assert false
end
| Bcp None -> L.debug 15 "Decision : %a" St.pp_atom a
| Semantic _ -> L.debug 15 "Semantic propagation : %a" St.pp_atom a)