From a8c4dee491fdd2426c623ad458ed15310295c93b Mon Sep 17 00:00:00 2001 From: Gaëtan Gilbert Date: Mon, 18 Jun 2018 14:05:09 +0200 Subject: [env.env_rel_context.env_rel_ctx] -> [rel_context env] It's a bit shorter and more direct. --- kernel/clambda.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'kernel/clambda.ml') diff --git a/kernel/clambda.ml b/kernel/clambda.ml index b722e4200..f1b6f3dff 100644 --- a/kernel/clambda.ml +++ b/kernel/clambda.ml @@ -814,7 +814,7 @@ let optimize_lambda lam = let lambda_of_constr ~optimize genv c = let env = Renv.make genv in - let ids = List.rev_map Context.Rel.Declaration.get_name genv.env_rel_context.env_rel_ctx in + let ids = List.rev_map Context.Rel.Declaration.get_name (rel_context genv) in Renv.push_rels env (Array.of_list ids); let lam = lambda_of_constr env c in let lam = if optimize then optimize_lambda lam else lam in -- cgit v1.2.3