From d104b50b9c9a589d9fd8e44bdf56794c8aea4e53 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Tue, 17 Jun 2014 14:15:08 +0200
Subject: Safer entry point of primitive projections in the kernel, now it does
 recognize a projection constant only of the form  λ params (r : I params),
 match r with BuildR args => args_i end, without any other user input and
 relies on it being typable (no more primitive projections escaping this).

---
 library/declare.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'library')

diff --git a/library/declare.ml b/library/declare.ml
index dce346782c..7a80d103d0 100644
--- a/library/declare.ml
+++ b/library/declare.ml
@@ -199,7 +199,7 @@ let definition_entry ?(opaque=false) ?(inline=false) ?types
   { const_entry_body = Future.from_val ((body,Univ.ContextSet.empty), eff);
     const_entry_secctx = None;
     const_entry_type = types;
-    const_entry_proj = None;
+    const_entry_proj = false;
     const_entry_polymorphic = poly;
     const_entry_universes = univs;
     const_entry_opaque = opaque;
@@ -237,7 +237,7 @@ let declare_sideff env fix_exn se =
         const_entry_feedback = None;
 	const_entry_polymorphic = cb.const_polymorphic;
 	const_entry_universes = cb.const_universes;
-	const_entry_proj = None;
+	const_entry_proj = false;
     });
     cst_hyps = [] ;
     cst_kind =  Decl_kinds.IsDefinition Decl_kinds.Definition;
-- 
cgit v1.2.3