We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent ec840e9 commit 0e22c28Copy full SHA for 0e22c28
HB/common/database.elpi
@@ -188,6 +188,8 @@ toposort-proj.acc Proj ES Acc [A|In] Out :- std.do![
188
pred topo-find-all i:B, o:A.
189
topo-find-all B A :- std.do! [
190
std.findall (topo-find B C_) L,
191
+ % if there were dusplicates, we ensure we keep the most instantiated, eg
192
+ % (triple m [X,Y] t) v.s. (triple m [a,b] t)
193
std.assert! (std.forall L (x\ x = topo-find B A)) "topofind bad",
194
].
195
0 commit comments