From 02ae9a0b28366372c9eaad1c25428c65314e6fcb Mon Sep 17 00:00:00 2001
From: coq
Date: Mon, 7 Oct 2002 16:56:17 +0000
Subject: Lazy manuelles dans le code

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3100 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/safe_typing.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel/safe_typing.ml')

diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml
index 70faa24b4a..663c6b6958 100644
--- a/kernel/safe_typing.ml
+++ b/kernel/safe_typing.ml
@@ -121,8 +121,8 @@ type global_declaration =
 let hcons_constant_body cb =
   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))
+    | Some l_constr -> let constr = Declarations.force l_constr in
+	Some (Declarations.from_val (hcons1_constr constr))
   in
     { cb with
 	const_body = body;
-- 
cgit v1.2.3