diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-06-14 22:21:35 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-06-14 22:21:35 +0200 |
| commit | c79db93e50b56e0abbc5a36b58a1db61a7d512bd (patch) | |
| tree | a9e4c2d1a51174638c9f7531b0ffaad0463291bf /engine/evd.ml | |
| parent | e1d68573015883301cb401861e10233f6442d9ec (diff) | |
Fixing restrict regarding evar_store.
Diffstat (limited to 'engine/evd.ml')
| -rw-r--r-- | engine/evd.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/engine/evd.ml b/engine/evd.ml index 08d26f40d..bf1e052b6 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -659,8 +659,7 @@ let restrict evk filter ?candidates ?src evd = let evar_info' = { evar_info with evar_filter = filter; evar_candidates = candidates; - evar_source = (match src with None -> evar_info.evar_source | Some src -> src); - evar_extra = Store.empty } in + evar_source = (match src with None -> evar_info.evar_source | Some src -> src) } in let last_mods = match evd.conv_pbs with | [] -> evd.last_mods | _ -> Evar.Set.add evk evd.last_mods in |