diff options
| author | Pierre-Marie Pédrot | 2016-01-08 20:29:37 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-01-08 21:00:14 +0100 |
| commit | 418dceeea548a40c6e00b09aa99267a82949c70c (patch) | |
| tree | e82a08d96fc453dc3745314c000543703a3fea36 /grammar | |
| parent | 6599e31f04b6e8980de72e9d3913b70c04b6698c (diff) | |
Monotonizing Ftactic.
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 -> |