diff options
author | 2008-06-19 08:27:48 +0000 | |
---|---|---|
committer | 2008-06-19 08:27:48 +0000 | |
commit | b1b5741680e864c6c7d3d6a956e2f3779a52e683 (patch) | |
tree | 845a79177e04f41ac8e4c740c31ba822afe8879f /tactics | |
parent | 29db750b07806b820b53cde7a0caa95a4a8827cb (diff) |
incomplete bugfix for info
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11149 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
-rw-r--r-- | tactics/tacinterp.ml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 836427c43..8b0632c19 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1732,7 +1732,14 @@ and eval_tactic ist = function | TacThens (t1,tl) -> tclTHENS (interp_tactic ist t1) (List.map (interp_tactic ist) tl) | TacDo (n,tac) -> tclDO (interp_int_or_var ist n) (interp_tactic ist tac) | TacTry tac -> tclTRY (interp_tactic ist tac) - | TacInfo tac -> tclINFO (interp_tactic ist tac) + | TacInfo tac -> + let t = (interp_tactic ist tac) in + tclINFO + begin + match tac with + TacAtom (_,_) -> t + | _ -> abstract_tactic_expr (TacArg (Tacexp tac)) t + end | TacRepeat tac -> tclREPEAT (interp_tactic ist tac) | TacOrelse (tac1,tac2) -> tclORELSE (interp_tactic ist tac1) (interp_tactic ist tac2) |