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
---
 contrib/extraction/extraction.ml | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'contrib/extraction')

diff --git a/contrib/extraction/extraction.ml b/contrib/extraction/extraction.ml
index f574cecae3..e1848589d6 100644
--- a/contrib/extraction/extraction.ml
+++ b/contrib/extraction/extraction.ml
@@ -665,20 +665,22 @@ let extract_constant kn r =
 	       DdummyType r
 	   | (Logic,_) -> axiom_warning_message kn;
 	       Dterm (r, MLdummy'))
-    | Some body ->
+    | Some l_body ->
 	(match flag_of_type env typ with
 	   | (Logic, Arity) -> DdummyType r
 	   | (Info, Arity) -> 
 	       let s,vl = type_sign_vl env typ in 
 	       let db = db_from_sign s in 
+	       let body = Lazy.force_val l_body in
 	       let t = extract_type_arity env db body (List.length s)
 	       in Dtype (r, vl, t)
 	   | (Logic, _) -> Dterm (r, MLdummy')
 	   | (Info, _) -> 
-		 let a = extract_term env body in
-		 if a <> MLdummy' then 
-		   Dterm (r, kill_prop_lams_eta a (signature_of_kn kn))
-		 else Dterm (r, a))
+	       let body = Lazy.force_val l_body in
+	       let a = extract_term env body in
+	       if a <> MLdummy' then 
+		 Dterm (r, kill_prop_lams_eta a (signature_of_kn kn))
+	       else Dterm (r, a))
 		   
 let extract_constant_cache kn r = 
   try lookup_constant kn 
-- 
cgit v1.2.3