diff options
| -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 836427c432..8b0632c199 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) |