From c7bd285555153294ec077cfa05c36bb420716f3b Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Thu, 12 Apr 2018 21:41:03 +0200
Subject: Reduce circular dependency constants <-> projections

Instead of having the projection data in the constant data we have it
independently in the environment.
---
 kernel/clambda.ml | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'kernel/clambda.ml')

diff --git a/kernel/clambda.ml b/kernel/clambda.ml
index 8389dd3262..b722e42008 100644
--- a/kernel/clambda.ml
+++ b/kernel/clambda.ml
@@ -708,12 +708,10 @@ let rec lambda_of_constr env c =
     Lcofix(init, (names, ltypes, lbodies))
 
   | Proj (p,c) ->
-    let kn = Projection.constant p in
-    let cb = lookup_constant kn env.global_env in
-    let pb = Option.get cb.const_proj in
+    let pb = lookup_projection p env.global_env in
     let n = pb.proj_arg in
     let lc = lambda_of_constr env c in
-    Lproj (n,kn,lc)
+    Lproj (n,Projection.constant p,lc)
 
 and lambda_of_app env f args =
   match Constr.kind f with
-- 
cgit v1.2.3