[bugfix] tag were not properly set when assuming new clauses

This commit is contained in:
Guillaume Bury 2015-02-09 14:01:29 +01:00
parent ce8920bf88
commit 312758ce1b

View file

@ -411,7 +411,7 @@ module Make (L : Log_intf.S)(F : Formula_intf.S)
report_unsat init0;
| a::b::_ ->
let name = fresh_name () in
let clause = make_clause name atoms size (history <> History []) history in
let clause = make_clause ?tag name atoms size (history <> History []) history in
Log.debug 10 "New clause : %a" St.pp_clause init0;
attach_clause clause;
Vec.push env.clauses clause;