From a4436a6a355ecb3fffb52d1ca3f2d983a5bcfefd Mon Sep 17 00:00:00 2001
From: filliatr
Date: Thu, 9 Dec 1999 15:10:08 +0000
Subject:  - constantes avec recettes  - discharge en deux temps, avec état
 remis comme au début de la section (mais c'est toujours buggé)

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

(limited to 'kernel/instantiate.ml')

diff --git a/kernel/instantiate.ml b/kernel/instantiate.ml
index f3634eac5b..e2afdb2a72 100644
--- a/kernel/instantiate.ml
+++ b/kernel/instantiate.ml
@@ -43,7 +43,8 @@ let constant_value env k =
   let cb = lookup_constant sp env in
   if not cb.const_opaque & defined_constant env k then
     match cb.const_body with
-      | Some body -> 
+      | Some v -> 
+	  let body = cook_constant v in
           instantiate_constr 
 	    (ids_of_sign cb.const_hyps) body (Array.to_list args)
       | None -> 
-- 
cgit v1.2.3