forgot to pop before assume

This commit is contained in:
Simon Cruanes 2016-07-27 17:58:15 +02:00
parent 563e9027e1
commit 3e9c0d3a1e

View file

@ -1146,6 +1146,7 @@ module Make
with Sat -> ()
let assume ?tag cnf =
if env.base_level > 0 then pop_assumptions ();
List.iter
(fun l ->
let atoms = List.rev_map atom l in