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; var_bump_activity a.var;
history := d :: !history; history := d :: !history;
c := res 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 end
| Bcp None -> L.debug 15 "Decision : %a" St.pp_atom a | Bcp None -> L.debug 15 "Decision : %a" St.pp_atom a
| Semantic _ -> L.debug 15 "Semantic propagation : %a" St.pp_atom a) | Semantic _ -> L.debug 15 "Semantic propagation : %a" St.pp_atom a)