Skip to content

Commit f92dd4c

Browse files
committed
document toposort bug
1 parent 88a0190 commit f92dd4c

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

HB/common/database.elpi

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -156,6 +156,8 @@ toposort-proj.acc Proj ES Acc [A|In] Out :- std.do![
156156
pred topo-find-all i:B, o:A.
157157
topo-find-all B A :- std.do! [
158158
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)
159161
std.assert! (std.forall L (x\ x = topo-find B A)) "topofind bad",
160162
].
161163

0 commit comments

Comments
 (0)