From c79db93e50b56e0abbc5a36b58a1db61a7d512bd Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Wed, 14 Jun 2017 22:21:35 +0200 Subject: Fixing restrict regarding evar_store. --- engine/evd.ml | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'engine/evd.ml') 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 -- cgit v1.2.3