diff options
| author | herbelin | 2000-05-18 16:58:54 +0000 |
|---|---|---|
| committer | herbelin | 2000-05-18 16:58:54 +0000 |
| commit | 9b4eb8f6024a2a6953a9c256e76d7b118ae7d8f6 (patch) | |
| tree | 31be705d725c28e0044bcd2b45cdded507831968 | |
| parent | 8cd8d04863acf4e3d4673a62fede16fba1a87435 (diff) | |
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
| -rw-r--r-- | parsing/astterm.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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 |