From af3d481838fdcd27434d2e712a5efc8070dd7ecc Mon Sep 17 00:00:00 2001
From: filliatr
Date: Fri, 10 Dec 1999 16:26:19 +0000
Subject: 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
---
 parsing/astterm.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'parsing')

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
-- 
cgit v1.2.3