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 /plugins | |
| parent | 6c179759a5c117b24abe5466ee860f1f7fb29dac (diff) | |
| parent | 7edf54baf92f219e4a5307c4cb2563b0e7bda070 (diff) | |
Merge PR #893: Removing default evar-normalization for ARGUMENT EXTEND.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ltac/tacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/tacinterp.ml b/plugins/ltac/tacinterp.ml index 60a8f75ec7..d3e625e73a 100644 --- a/plugins/ltac/tacinterp.ml +++ b/plugins/ltac/tacinterp.ml @@ -2000,7 +2000,7 @@ let lift f = (); fun ist x -> Ftactic.enter begin fun gl -> Ftactic.return (f ist env sigma x) end -let lifts f = (); fun ist x -> Ftactic.nf_enter begin fun gl -> +let lifts f = (); fun ist x -> Ftactic.enter begin fun gl -> let env = Proofview.Goal.env gl in let sigma = Proofview.Goal.sigma gl in let (sigma, v) = f ist env sigma x in |