diff options
| author | herbelin | 2004-03-17 19:27:13 +0000 |
|---|---|---|
| committer | herbelin | 2004-03-17 19:27:13 +0000 |
| commit | 2144abef8619bcf4fecced328277548cfa663586 (patch) | |
| tree | 7cc653dcc2d6dddd6dcadec837d4a559faf86c75 | |
| parent | 87919fe04edf32b367e8d6229e8f9d695b7e7a2e (diff) | |
Desactivation de la syntaxe v7 de Hint Rewrite en v8
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5527 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/extratactics.ml4 | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tactics/extratactics.ml4 b/tactics/extratactics.ml4 index daf3bb465a..9c04e5aaf8 100644 --- a/tactics/extratactics.ml4 +++ b/tactics/extratactics.ml4 @@ -112,6 +112,10 @@ END (* AutoRewrite *) +let protect forv7 f x = + if !Options.v7 = forv7 then f x + else Util.error (if forv7 then "Use old V7 syntax" else "Use new V8 syntax") + open Autorewrite TACTIC EXTEND AutorewriteV7 [ "AutoRewrite" "[" ne_preident_list(l) "]" ] -> @@ -134,10 +138,10 @@ let add_rewrite_hint name ort t lcsr = (* V7 *) VERNAC COMMAND EXTEND HintRewriteV7 [ "Hint" "Rewrite" orient(o) "[" ne_constr_list(l) "]" "in" preident(b) ] -> - [ add_rewrite_hint b o (Tacexpr.TacId "") l ] + [ protect true (add_rewrite_hint b o (Tacexpr.TacId "")) l ] | [ "Hint" "Rewrite" orient(o) "[" ne_constr_list(l) "]" "in" preident(b) "using" tactic(t) ] -> - [ add_rewrite_hint b o t l ] + [ protect true (add_rewrite_hint b o t) l ] END (* V8 *) |