diff options
| author | Maxime Dénès | 2017-08-01 13:01:36 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-08-01 13:01:36 +0200 |
| commit | 23abe7ade3683168e4c7adf2aceb5045e2565e68 (patch) | |
| tree | 12acb5fc56ea3202f45e6172f7a4e71291b80426 /grammar | |
| parent | 6c179759a5c117b24abe5466ee860f1f7fb29dac (diff) | |
| parent | 7edf54baf92f219e4a5307c4cb2563b0e7bda070 (diff) | |
Merge PR #893: Removing default evar-normalization for ARGUMENT EXTEND.
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/argextend.mlp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/grammar/argextend.mlp b/grammar/argextend.mlp index 643b6277ae..12b7b171b7 100644 --- a/grammar/argextend.mlp +++ b/grammar/argextend.mlp @@ -137,7 +137,8 @@ let declare_tactic_argument loc s (typ, f, g, h) cl = let typ = match globtyp with None -> ExtraArgType s | Some typ -> typ in <:expr< let f = $lid:f$ in - fun ist v -> Ftactic.nf_enter (fun gl -> + fun ist v -> Ftactic.enter (fun gl -> + let gl = Proofview.Goal.assume gl in let (sigma, v) = Tacmach.New.of_old (fun gl -> f ist gl v) gl in let v = Geninterp.Val.inject (Geninterp.val_tag $make_topwit loc typ$) v in Proofview.tclTHEN (Proofview.Unsafe.tclEVARS sigma) (Ftactic.return v) |