diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-07-09 19:37:46 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-07-09 19:37:46 +0000 |
commit | 20af40fb97b108f78433e7450401770d2a376e4b (patch) | |
tree | 8129b30a50c6e2d3de9a2344d07681eb1fbf82d1 /parsing | |
parent | f69390bb24e63d68296db3ea1e41b48c4fa6c7f3 (diff) |
destruct: full compatibility with former _eqn syntax
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15571 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
-rw-r--r-- | parsing/g_tactic.ml4 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index f24c9af63..5a41086e6 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -455,8 +455,11 @@ GEXTEND Gram eqn_ipat: [ [ IDENT "eqn"; ":"; id = naming_intropattern -> Some id | IDENT "_eqn"; ":"; id = naming_intropattern -> - let msg = "Obsolete syntax \"_eqn\" could be replaced by \"eqn\"" in + let msg = "Obsolete syntax \"_eqn:H\" could be replaced by \"eqn:H\"" in msg_warning (strbrk msg); Some id + | IDENT "_eqn" -> + let msg = "Obsolete syntax \"_eqn\" could be replaced by \"eqn:?\"" in + msg_warning (strbrk msg); Some (loc, IntroAnonymous) | -> None ] ] ; as_name: |