Commit 8dd64f32 authored by bguillaum's avatar bguillaum

Version 0.34.4 Bug fix introduced in previous version

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@8982 7838e531-6607-4d57-9587-6c381814729c
parent 6757ff42
Version 0.34.4 (2016/05/19)
Bug fix again… introduced in previous version
Version 0.34.3 (2016/05/18)
Bug fix introduced in previous version
......
......@@ -419,26 +419,26 @@ module G_graph = struct
then acc
else Gid_map.add id (G_node.remove_key node_id value) acc
) graph.map Gid_map.empty in
let node = Gid_map.find node_id map_wo_node in
let node = Gid_map.find node_id graph.map in
let new_map =
match (G_node.get_prec node, G_node.get_succ node) with
| (Some id_prec, Some id_succ) ->
begin
let prec = Gid_map.find id_prec graph.map
and succ = Gid_map.find id_succ graph.map in
let prec = Gid_map.find id_prec map_wo_node
and succ = Gid_map.find id_succ map_wo_node in
map_wo_node
|> (Gid_map.add id_prec (G_node.set_succ id_succ prec))
|> (Gid_map.add id_succ (G_node.set_prec id_prec succ))
end
| (Some id_prec, None) ->
begin
let prec = Gid_map.find id_prec graph.map in
let prec = Gid_map.find id_prec map_wo_node in
map_wo_node
|> (Gid_map.add id_prec (G_node.remove_succ prec))
end
| (None, Some id_succ) ->
begin
let succ = Gid_map.find id_succ graph.map in
let succ = Gid_map.find id_succ map_wo_node in
map_wo_node
|> (Gid_map.add id_succ (G_node.remove_prec succ))
end
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment