diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-05-16 00:06:51 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-05-28 15:28:24 +0200 |
commit | 4552729b88058946055dddde1533057e25bfc5a9 (patch) | |
tree | 38c4c1440c9aa03430b63da175663f96bcf668dd /kernel/nativecode.ml | |
parent | b053d98fb17d2f46878f49d7adf4839ae632c10b (diff) |
Unify pre_env and env
We now have only two notions of environments in the kernel: env and
safe_env.
Diffstat (limited to 'kernel/nativecode.ml')
-rw-r--r-- | kernel/nativecode.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/nativecode.ml b/kernel/nativecode.ml index c82d982b4..0cd0ad46c 100644 --- a/kernel/nativecode.ml +++ b/kernel/nativecode.ml @@ -16,7 +16,7 @@ open Util open Nativevalues open Nativeinstr open Nativelambda -open Pre_env +open Environ [@@@ocaml.warning "-32-37"] @@ -1837,7 +1837,7 @@ and apply_fv env sigma univ (fv_named,fv_rel) auxdefs ml = and compile_rel env sigma univ auxdefs n = let open Context.Rel.Declaration in - let decl = Pre_env.lookup_rel n env in + let decl = lookup_rel n env in let n = List.length env.env_rel_context.env_rel_ctx - n in match decl with | LocalDef (_,t,_) -> |