Commit 5f56ebfd authored by bguillaum's avatar bguillaum

improve error message for non functional lexical parameters

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@9221 7838e531-6607-4d57-9587-6c381814729c
parent 4d9d9d44
......@@ -166,7 +166,7 @@ module Lex_par = struct
| t -> Some t
let get_param_value index = function
| [] -> Error.bug "[Lex_par.get_command_value] empty parameter"
| [] -> Error.bug "[Lex_par.get_param_value] empty parameter"
| (params,_)::_ -> List.nth params index
let get_command_value index = function
......@@ -181,7 +181,10 @@ module Lex_par = struct
| _ -> Error.bug "[Lex_par.get_command_value] inconsistent param"
) "/" tail
)
| l -> Error.run "Lexical parameter are not functionnal"
| (left,_)::_ ->
Error.run "Lexical parameter are not functional, input parameter%s: %s"
(if (List.length left) > 1 then "s" else "")
(String.concat ", " left)
end (* module Lex_par *)
(* ================================================================================ *)
......
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