diff options
| author | filliatr | 1999-12-10 16:26:19 +0000 |
|---|---|---|
| committer | filliatr | 1999-12-10 16:26:19 +0000 |
| commit | af3d481838fdcd27434d2e712a5efc8070dd7ecc (patch) | |
| tree | 5370bc559242ed1c099742a7999f4044a18e8a36 /parsing | |
| parent | 44e644894fef453775bdca2492939f1986e8c5b4 (diff) | |
bug: enregistrement de vartab au lieu de csttab
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@232 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/astterm.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/astterm.ml b/parsing/astterm.ml index dc64fa98b5..1e7b897ad7 100644 --- a/parsing/astterm.ml +++ b/parsing/astterm.ml @@ -45,8 +45,8 @@ let warning_uppercase loc uplid = (* Comment afficher loc ?? *) let vars = 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 ("Warning: the variable"^s1); vars; - 'sTR (" start"^s2^" with upper case in pattern"); 'cUT >] + wARN [<'sTR ("the variable"^s1); vars; + 'sTR (" start"^s2^"with an upper case letter in pattern"); 'cUT >] let is_uppercase_var v = match (string_of_id v).[0] with |