diff options
| author |  Matej Kosik <m4tej.kosik@gmail.com> | 2016-02-15 11:55:43 +0100 |
|---|---|---|
| committer | Matej Kosik <m4tej.kosik@gmail.com> | 2016-02-15 16:39:27 +0100 |
| commit | 4f041384cb27f0d24fa14b272884b4b7f69cacbe (patch) | |
| tree | 77ec4088715057e5656f0ef04bcf61395658f939 /kernel/nativecode.ml | |
| parent | 5dfb5d5e48c86dabd17ee2167c6fd5304c788474 (diff) | |
CLEANUP: Simplifying the changes done in "kernel/*"
...
...
...
...
...
...
...
...
...
...
...
...
...
...
Diffstat (limited to 'kernel/nativecode.ml')
| -rw-r--r-- | kernel/nativecode.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/kernel/nativecode.ml b/kernel/nativecode.ml index 47274a5cd..dabe905de 100644 --- a/kernel/nativecode.ml +++ b/kernel/nativecode.ml @@ -1832,10 +1832,10 @@ and apply_fv env sigma univ (fv_named,fv_rel) auxdefs ml = auxdefs, MLlet(aux_name, ml, mkMLapp (MLlocal aux_name) (Array.of_list (fv_rel@fv_named))) and compile_rel env sigma univ auxdefs n = - let decl = Context.Rel.lookup n env.env_rel_context in - let n = Context.Rel.length env.env_rel_context - n in - let open Context.Rel.Declaration in - match decl with + let open Context.Rel in + let n = length env.env_rel_context - n in + let open Declaration in + match lookup n env.env_rel_context with | LocalDef (_,t,_) -> let code = lambda_of_constr env sigma t in let auxdefs,code = compile_with_fv env sigma univ auxdefs None code in |