Unbreak Graph

This commit is contained in:
Cédric Pasteur 2010-06-23 09:25:47 +02:00 committed by Léonard Gérard
parent 4525f5cfd0
commit b360e56893

View file

@ -32,7 +32,7 @@ let make c =
{ g_containt = c; g_tag = new_tag (); g_visited = false;
g_mark = -1; g_depends_on = []; g_depends_by = [] }
let add_depends node1 node2 =
if not (node1.g_tag = node2.g_tag or linked node1 node2) then (
if not (node1.g_tag = node2.g_tag) then (
node1.g_depends_on <- node2 :: node1.g_depends_on;
node2.g_depends_by <- node1 :: node2.g_depends_by
)