Commit 3cff195e authored by bguillaum's avatar bguillaum

add “label” as a potential main_feat

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@9064 7838e531-6607-4d57-9587-6c381814729c
parent b64e2f58
......@@ -241,7 +241,7 @@ module G_fs = struct
(* ---------------------------------------------------------------------- *)
let get_main ?main_feat t =
let main_list = match main_feat with
| None -> ["phon"]
| None -> ["phon";"label"]
| Some string -> Str.split (Str.regexp "\\( *; *\\)\\|#") string in
let rec loop = function
| [] -> (None, t)
......
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