diff options
Diffstat (limited to 'tactics/tacinterp.ml')
| -rw-r--r-- | tactics/tacinterp.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 1b770d214..4c0f10342 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1658,8 +1658,9 @@ and interp_atomic ist tac = gl end | TacRevert l -> - Proofview.V82.tactic begin fun gl -> - Tactics.revert (interp_hyp_list ist (pf_env gl) l) gl + Proofview.Goal.raw_enter begin fun gl -> + let env = Proofview.Goal.env gl in + Tactics.revert (interp_hyp_list ist env l) end (* Constructors *) |