diff options
| author | Matthieu Sozeau | 2015-09-23 16:35:07 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-10-02 15:54:11 +0200 |
| commit | 91b1808056602f3e26d1eb1bdf7be1e791cb742d (patch) | |
| tree | 3bdb404bb7b88d8a993c326c4712dfcacaf73d17 /stm | |
| parent | 02aace9f038d579e9cf32dc2f5b21d415e977c03 (diff) | |
Univs: fix many evar_map initializations and leaks.
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/lemmas.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/stm/lemmas.ml b/stm/lemmas.ml index 7679b1a662..2bd1c54519 100644 --- a/stm/lemmas.ml +++ b/stm/lemmas.ml @@ -503,4 +503,5 @@ let save_proof ?proof = function let get_current_context () = try Pfedit.get_current_goal_context () with e when Logic.catchable_exception e -> - (Evd.empty, Global.env()) + let env = Global.env () in + (Evd.from_env env, env) |