simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 11:15:43 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

[bugfix] Fix typo following doublon elimination

Browse source 
Following a bugfix for doublon elimination, doublons are now eliminated
in add_clause, and as such, in case no simplification is made, the
clause without doublons should be used (and not init). This was a typo
missed during the refactoring of doublon elimination.
This commit is contained in:
Guillaume Bury 2017-04-12 19:23:46 +02:00
parent 7e95911dd8
commit 0fe8ded071
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/core/internal.ml
View file

@ -768,8 +768,8 @@ module Make
if history = [] if history = []
then ( then (
(* update order of atoms *) (* update order of atoms *)
List.iteri (fun i a -> init.atoms.(i) <- a) atoms; List.iteri (fun i a -> c.atoms.(i) <- a) atoms;
init c
) )
else make_clause ?tag:init.tag (fresh_name ()) atoms (History (c :: history)) else make_clause ?tag:init.tag (fresh_name ()) atoms (History (c :: history))
in in