From 1e485645ef6481a856e8a67477f186519fb8ec9d Mon Sep 17 00:00:00 2001
From: coq
Date: Sat, 5 Oct 2002 11:03:20 +0000
Subject: Lazy experimentale temporaire...

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

(limited to 'kernel/modops.ml')

diff --git a/kernel/modops.ml b/kernel/modops.ml
index d4338f0fbc..40a0e84c52 100644
--- a/kernel/modops.ml
+++ b/kernel/modops.ml
@@ -163,7 +163,10 @@ and add_module mp mb env =
 
 let strengthen_const env mp l cb = match cb.const_body with
   | Some _ -> cb
-  | None -> {cb with const_body = Some (mkConst (make_kn mp empty_dirpath l))}
+  | None -> {cb with const_body = 
+	       let const = mkConst (make_kn mp empty_dirpath l) in 
+		 Some (Lazy.lazy_from_val const)
+	    }
 
 let strengthen_mind env mp l mib = match mib.mind_equiv with
   | Some _ -> mib
-- 
cgit v1.2.3