Chore

tools/gg/ggcore.ml

@@ -2,6 +2,7 @@ open Sasacore.Topology
 
 type node_ofId_t = (string, node) Hashtbl.t
 
+(* TODO: should be tail-recursive+tmp is a poor name *)
 let rec create_nodes : (string -> int*int -> node_id list) =
   (* Create names from a generic name *)
   fun name (start,finish) ->

tools/gg/ggcore.mli

@@ -3,7 +3,8 @@ open Sasacore.Topology
 (** Create a name (i.d. node ID) list from a generic name *)
 val create_nodes : (string -> int*int -> node_id list)
 
-(** creates a list of nodes, each having an ID from the list given in argument, and no file or init value. *)
+(** creates a list of nodes, each  having an ID from the list given in
+   argument, and no file or init value. *)
 val id_to_empty_nodes : (node_id list -> node list)
 
 (** create a function to get a node from it's ID *)