diff options
| author | Maxime Dénès | 2018-01-22 09:33:21 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-01-22 09:33:21 +0100 |
| commit | 314928aa0a430447a2fab30b9ef1235afa77c054 (patch) | |
| tree | b0de77473ca078c9a49cff9ef19589c07de0e578 /kernel/nativelambda.ml | |
| parent | 9aa2464375c1515aa64df7dc910e2f324e34c82f (diff) | |
| parent | 045193aedfd6a262981f06c500af1cc13df2900f (diff) | |
Merge PR #6506: Fast rel lookup
Diffstat (limited to 'kernel/nativelambda.ml')
| -rw-r--r-- | kernel/nativelambda.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/nativelambda.ml b/kernel/nativelambda.ml index 160a90dc2f..b333b0fb9c 100644 --- a/kernel/nativelambda.ml +++ b/kernel/nativelambda.ml @@ -639,7 +639,7 @@ let optimize lam = let lambda_of_constr env sigma c = set_global_env env; let env = Renv.make () in - let ids = List.rev_map RelDecl.get_name !global_env.env_rel_context in + let ids = List.rev_map RelDecl.get_name !global_env.env_rel_context.env_rel_ctx in Renv.push_rels env (Array.of_list ids); let lam = lambda_of_constr env sigma c in (* if Flags.vm_draw_opt () then begin |