Commit 10b1ea3d authored by bguillaum's avatar bguillaum

take the feature "position" into account when the user chose features to display

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@8449 7838e531-6607-4d57-9587-6c381814729c
parent 18fc3960
......@@ -227,8 +227,8 @@ module G_fs = struct
| [] -> "_"
| l -> String.concat "#" l in
let last = match position with
| Some f when f > 0. -> [G_feature.to_string ("position", Float f)]
let last = match (filter, position) with
| (Some l, Some f) when List.mem "position" l && f > 0. -> [G_feature.to_string ("position", Float f)]
| _ -> [] in
let lines = List.fold_left
......
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