diff options
| -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 |