diff options
author | 2000-05-03 20:49:18 +0000 | |
---|---|---|
committer | 2000-05-03 20:49:18 +0000 | |
commit | 162c8ec86c428e8de7d3275e39eb5ac3a3413267 (patch) | |
tree | b9995f274aa73a62f829370b8a56e20a9b7f0a81 /tactics/tactics.ml | |
parent | bae7532aaf4fc4ca0f637cb6e53f6b4b80c7cb75 (diff) |
Reparation du bug d'interpretation d'Abstract
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@409 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tactics.ml')
-rw-r--r-- | tactics/tactics.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index b21ac1825..98a732287 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1680,9 +1680,9 @@ let tclABSTRACT name_op tac gls = let dyn_tclABSTRACT = hide_tactic "ABSTRACT" - (function - | [Tacexp tac] -> - tclABSTRACT None (Tacinterp.interp tac) - | [Identifier s; Tacexp tac] -> - tclABSTRACT (Some s) (Tacinterp.interp tac) - | _ -> invalid_arg "tclABSTRACT") + (function + | [Tac tac] -> + tclABSTRACT None tac + | [Identifier s; Tac tac] -> + tclABSTRACT (Some s) tac + | _ -> invalid_arg "tclABSTRACT") |