diff options
| author | herbelin | 2000-10-21 10:34:01 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-21 10:34:01 +0000 |
| commit | 1f6bde4f4555d31a107fc9df2ae6e0f010ff38b9 (patch) | |
| tree | b24e0e9180b7c6807cd8edd3f7c26ccfeec4fa73 | |
| parent | c34dfa1d68effbac82592e002b618e61c48999f6 (diff) | |
Pb affichage warning
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@733 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/astterm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/astterm.ml b/parsing/astterm.ml index bdf48ddbb5..3774877101 100644 --- a/parsing/astterm.ml +++ b/parsing/astterm.ml @@ -50,7 +50,7 @@ let warning_uppercase loc uplid = (* Comment afficher loc ?? *) prlist_with_sep pr_spc (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"); 'cUT >] + 'sTR (" start"^s2^"with an upper case letter in pattern") >] let is_uppercase_var v = match (string_of_id v).[0] with |