Lazy experimentale temporaire...

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3091 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 8 insertions, 3 deletions

diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml
index d8a00d7b76..70faa24b4a 100644
--- a/kernel/safe_typing.ml
+++ b/kernel/safe_typing.ml
@@ -119,9 +119,14 @@ type global_declaration =
   | GlobalRecipe of Cooking.recipe
 
 let hcons_constant_body cb =
-  { cb with
-    const_body = option_app hcons1_constr cb.const_body;
-    const_type = hcons1_constr cb.const_type }
+  let body = match cb.const_body with
+      None -> None
+    | Some l_constr -> let constr = Lazy.force_val l_constr in
+	Some (Lazy.lazy_from_val (hcons1_constr constr))
+  in
+    { cb with
+	const_body = body;
+	const_type = hcons1_constr cb.const_type }
 
 let add_constant dir l decl senv =
   check_label l senv.labset;