diff options
| author | herbelin | 2003-09-09 11:44:50 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-09 11:44:50 +0000 |
| commit | ce0742280919c8a607937b6b927c62f16485a593 (patch) | |
| tree | 06364ca27c409a96e46b1fc110be2d49394a9a41 | |
| parent | 81cda659854dfd4e37d6aa01bade15fe2b57f38d (diff) | |
Protection traducteur contre meta de Grammar tactic
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4327 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/tacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 2efdabafc1..e7f4fff8b9 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -719,7 +719,7 @@ and intern_tacarg strict ist = function | MetaIdArg (loc,s) -> (* $id can occur in Grammar tactic... *) let id = id_of_string s in - if find_ltacvar id ist + if find_ltacvar id ist or Options.do_translate() then Reference (ArgVar (adjust_loc loc,strip_meta id)) else error_syntactic_metavariables_not_allowed loc | TacCall (loc,f,l) -> |