diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-14 15:32:22 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-14 15:32:22 +0000 |
| commit | 2fc8773863326753c25cb1e60918024a0d99e41d (patch) | |
| tree | 6450fc2ab70e572cc1aea6388ed955582e22d2e0 /parsing/astterm.ml | |
| parent | 91ff87e1e60e13bf95784a794b86e6d2661be7c7 (diff) | |
Amélioration message d'erreur
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1108 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/astterm.ml')
| -rw-r--r-- | parsing/astterm.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/parsing/astterm.ml b/parsing/astterm.ml index bfadb0839..8495df242 100644 --- a/parsing/astterm.ml +++ b/parsing/astterm.ml @@ -62,7 +62,9 @@ let mal_formed_mssg () = (* determines if some pattern variable starts with uppercase *) let warning_uppercase loc uplid = (* Comment afficher loc ?? *) let vars = - prlist_with_sep pr_spc (fun v -> [< 'sTR (string_of_id v) >]) uplid in + prlist_with_sep + (fun () -> [< 'sTR ", " >]) (* We avoid 'sPC, else it breaks the line *) + (fun v -> [< 'sTR (string_of_id v) >]) uplid in let (s1,s2) = if List.length uplid = 1 then (" ","s ") else ("s "," ") in wARN [<'sTR ("the variable"^s1); vars; 'sTR (" start"^s2^"with an upper case letter in pattern") >] |