Commit 5a720a51 authored by bguillaum's avatar bguillaum
Browse files

forget to sort values in the new [Domain.build] function

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@7573 7838e531-6607-4d57-9587-6c381814729c
parent 2494134c
......@@ -39,7 +39,8 @@ module Domain = struct
| _::t -> loop t in
loop d
let build ?loc name values =
let build ?loc name unsorted_values =
let values = List.sort Pervasives.compare unsorted_values in
match (name.[0], !current) with
| ('_', _)
| (_, None) -> List.map (fun s -> String s) values (* no check on feat_name starting with '_' *)
......
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