From 3120e870dc31b2ec753c90ea2ddda2ad9ba44548 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 18 Apr 2002 14:10:43 +0000
Subject: Suppression d'un warning plus surprenant qu'utile

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2658 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/astterm.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/parsing/astterm.ml b/parsing/astterm.ml
index ca911ad4a1..ce79725f35 100644
--- a/parsing/astterm.ml
+++ b/parsing/astterm.ml
@@ -195,8 +195,10 @@ let maybe_constructor env = function
        | _ -> 
 	   (match maybe_variable l with
 	    | Some s -> 
+(* Why a warning since there is no warning when writing [globname:T]... 
 		warning ("Defined reference "^(string_of_qualid qid)
 			 ^" is here considered as a matching variable");
+*)
 		VarPat (loc,s)
 	    | _ -> error ("This reference does not denote a constructor: "
 			  ^(string_of_qualid qid)))
-- 
cgit v1.2.3