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 88a0190 commit f92dd4cCopy full SHA for f92dd4c
HB/common/database.elpi
@@ -156,6 +156,8 @@ toposort-proj.acc Proj ES Acc [A|In] Out :- std.do![
156
pred topo-find-all i:B, o:A.
157
topo-find-all B A :- std.do! [
158
std.findall (topo-find B C_) L,
159
+ % if there were dusplicates, we ensure we keep the most instantiated, eg
160
+ % (triple m [X,Y] t) v.s. (triple m [a,b] t)
161
std.assert! (std.forall L (x\ x = topo-find B A)) "topofind bad",
162
].
163
0 commit comments