Commit 9c9f9300 authored by bguillaum's avatar bguillaum

fix bug introduced by rev 7526

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@7535 7838e531-6607-4d57-9587-6c381814729c
parent 01a70f07
VERSION = 0.15
VERSION = 0.15.1
INSTALL_DIR_LIB = @OCAMLLIB@
INSTALL_DIR = @prefix@/bin/
......
......@@ -381,7 +381,6 @@ module G_graph = struct
(* -------------------------------------------------------------------------------- *)
let add_neighbour loc graph node_id label =
let index = match node_id with
| Gid.Old id ->
(match Label.to_int label with
......@@ -396,8 +395,9 @@ module G_graph = struct
let node = Gid_map.find node_id graph.map in
(* put the new node on the right of its "parent" *)
let new_map = Gid_map.add index (G_node.build_neighbour node) graph.map in
match map_add_edge new_map node_id label index with
| Some g -> (index, {graph with map = new_map})
| Some g -> (index, {graph with map = g})
| None -> Log.bug "[Graph.add_neighbour] add_edge must not fail"; exit 1
(* -------------------------------------------------------------------------------- *)
......
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