Commit ffb7f762 authored by bguillaum's avatar bguillaum
Browse files

cosmetic changes

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@8337 7838e531-6607-4d57-9587-6c381814729c
parent 5d3bf2f2
...@@ -213,7 +213,6 @@ module G_deco = struct ...@@ -213,7 +213,6 @@ module G_deco = struct
(G_edge.to_string edge) (G_edge.to_string edge)
(Gid.to_string tar) (Gid.to_string tar)
) t.edges ) t.edges
end (* module G_deco *) end (* module G_deco *)
(* ==================================================================================================== *) (* ==================================================================================================== *)
...@@ -813,6 +812,4 @@ module G_graph = struct ...@@ -813,6 +812,4 @@ module G_graph = struct
) )
snodes; snodes;
Buffer.contents buff Buffer.contents buff
end (* module G_graph *) end (* module G_graph *)
(* ================================================================================ *)
...@@ -56,7 +56,7 @@ module Instance = struct ...@@ -56,7 +56,7 @@ module Instance = struct
{ empty with graph = G_graph.rename mapping t.graph; free_index = new_free } { empty with graph = G_graph.rename mapping t.graph; free_index = new_free }
(* comparison is done on the list of commands *) (* comparison is done on the list of commands *)
(* only graph rewrited from the same init graph can be "compared" *) (* only graph rewritten from the same init graph can be "compared" *)
let compare t1 t2 = Pervasives.compare t1.history t2.history let compare t1 t2 = Pervasives.compare t1.history t2.history
let to_gr t = G_graph.to_gr t.graph let to_gr t = G_graph.to_gr t.graph
......
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