From 9b4eb8f6024a2a6953a9c256e76d7b118ae7d8f6 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 18 May 2000 16:58:54 +0000
Subject: Ajout warning si variable existant par ailleurs

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

diff --git a/parsing/astterm.ml b/parsing/astterm.ml
index 44c9c298a3..dcc0177a2d 100644
--- a/parsing/astterm.ml
+++ b/parsing/astterm.ml
@@ -114,7 +114,8 @@ let maybe_constructor env s =
   try 
     match Declare.global_reference CCI (id_of_string s) with 
       | DOPN(MutConstruct (spi,j),cl) -> Some ((spi,j),ids_of_ctxt cl)
-      | _ -> None
+      | _ -> warning ("Defined identifier "
+		      ^s^" is here considered as a matching variable"); None
   with Not_found -> 
     None
 
-- 
cgit v1.2.3