fix(core): cancel-until 0 before solving

This commit is contained in:
Simon Cruanes 2019-01-19 15:57:18 -06:00 committed by Guillaume Bury
parent a88752759f
commit 4ca441fa38

View file

@ -1950,6 +1950,7 @@ module Make(Plugin : PLUGIN)
add_clause_ st c
let solve (st:t) ?(assumptions=[]) () =
cancel_until st 0;
Vec.clear st.assumptions;
List.iter (Vec.push st.assumptions) assumptions;
try