From befd2a4bf35ee1f19b5705e061daf3320400501d Mon Sep 17 00:00:00 2001
From: letouzey
Date: Fri, 9 Jun 2006 07:43:37 +0000
Subject: oups: il faut penser a fermer la porte en partant (d'un fixpoint)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8931 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/extraction/extraction.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/contrib/extraction/extraction.ml b/contrib/extraction/extraction.ml
index a6565aa872..dae19f7969 100644
--- a/contrib/extraction/extraction.ml
+++ b/contrib/extraction/extraction.ml
@@ -809,6 +809,7 @@ let extract_fixpoint env vkn (fi,ti,ci) =
       types.(i) <- t;
     end 
   done; 
+  current_fixpoints := [];
   Dfix (Array.map (fun kn -> ConstRef kn) vkn, terms, types) 
 		 
 let extract_constant env kn cb = 
-- 
cgit v1.2.3