diff options
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/argextend.ml4 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/grammar/argextend.ml4 b/grammar/argextend.ml4 index 89a1cd8b83..639097afa8 100644 --- a/grammar/argextend.ml4 +++ b/grammar/argextend.ml4 @@ -193,10 +193,10 @@ let declare_tactic_argument loc s (typ, pr, f, g, h) cl = (** Compatibility layer, TODO: remove me *) <:expr< let f = $lid:f$ in - fun ist v -> Ftactic.nf_enter (fun gl -> + fun ist v -> Ftactic.nf_s_enter { Proofview.Goal.s_enter = fun gl -> let (sigma, v) = Tacmach.New.of_old (fun gl -> f ist gl v) gl in - Ftactic.bind (Ftactic.lift (Proofview.Unsafe.tclEVARS sigma)) (fun _ -> Ftactic.return v) - ) + Sigma.Unsafe.of_pair (Ftactic.return v, sigma) + } >> in let subst = match h with | None -> |