diff options
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index f241b63730..b35955e249 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1034,23 +1034,11 @@ struct let enter f = bind (Proofview.Goal.goals >>= fun l -> Proofview.tclUNIT (Depends l)) - (fun gl -> - (* the global environment of the tactic is changed to that of - the goal *) - Proofview.tclIN_ENV (Proofview.Goal.env gl) ( - Proofview.V82.wrap_exceptions (fun () -> f gl) - ) - ) + (fun gl -> Proofview.V82.wrap_exceptions (fun () -> f gl)) let raw_enter f = bind (Proofview.Goal.raw_goals >>= fun l -> Proofview.tclUNIT (Depends l)) - (fun gl -> - (* the global environment of the tactic is changed to that of - the goal *) - Proofview.tclIN_ENV (Proofview.Goal.env gl) ( - Proofview.V82.wrap_exceptions (fun () -> f gl) - ) - ) + (fun gl -> Proofview.V82.wrap_exceptions (fun () -> f gl)) let lift (type a) (t:a Proofview.tactic) : a t = Proofview.tclBIND t (fun x -> Proofview.tclUNIT (Uniform x)) |