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/term_typing.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel/term_typing.ml')

diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml
index aabefe6bf2..1145ee94b0 100644
--- a/kernel/term_typing.ml
+++ b/kernel/term_typing.ml
@@ -81,7 +81,7 @@ let infer_declaration env dcl =
   | DefinitionEntry c ->
       let (j,cst) = infer env c.const_entry_body in
       let (typ,cst) = constrain_type env j cst c.const_entry_type in
-      Some (Lazy.lazy_from_val j.uj_val), typ, cst, c.const_entry_opaque
+      Some (Declarations.from_val j.uj_val), typ, cst, c.const_entry_opaque
   | ParameterEntry t ->
       let (j,cst) = infer env t in
       None, Typeops.assumption_of_judgment env j, cst, false
@@ -91,7 +91,7 @@ let build_constant_declaration env (body,typ,cst,op) =
     | None -> global_vars_set env typ
     | Some b ->
         Idset.union 
-	  (global_vars_set env (Lazy.force_val b)) 
+	  (global_vars_set env (Declarations.force b)) 
 	  (global_vars_set env typ) 
   in
   let hyps = keep_hyps env ids in
-- 
cgit v1.2.3