diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-05-28 13:38:23 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-05-28 13:38:23 +0200 |
commit | 81535edc4b21015bd63d23e57ca9d707b4b71f6b (patch) | |
tree | 6a76bc46b66cade1b53d2c878ae2aa7c5e1f5dc5 /vernac/vernacentries.ml | |
parent | b2f746e41abf53fc481f90804ba4d70edd73fc86 (diff) | |
parent | dfaf7e1ca5aebfdfbef5f32d235a948335f7fda0 (diff) |
Merge PR #7419: Remove 100 occurrences of Evd.empty
Diffstat (limited to 'vernac/vernacentries.ml')
-rw-r--r-- | vernac/vernacentries.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index e1ce4e194..f347798c6 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -1651,7 +1651,9 @@ let vernac_check_may_eval ~atts redexp glopt rc = let vernac_declare_reduction ~atts s r = let local = make_locality atts.locality in - declare_red_expr local s (snd (Hook.get f_interp_redexp (Global.env()) Evd.empty r)) + let env = Global.env () in + let sigma = Evd.from_env env in + declare_red_expr local s (snd (Hook.get f_interp_redexp env sigma r)) (* The same but avoiding the current goal context if any *) let vernac_global_check c = |