From 5a29f44ac94af20780e41a1f3044b62668b558d3 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Tue, 19 Mar 2002 14:20:42 +0000
Subject: bug avec les MLglob vraiment constants

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

diff --git a/contrib/extraction/extraction.ml b/contrib/extraction/extraction.ml
index 74503ce923..489548a472 100644
--- a/contrib/extraction/extraction.ml
+++ b/contrib/extraction/extraction.ml
@@ -261,10 +261,12 @@ let prop_abstract f  =
 (*s Abstraction of an constant. *)
 
 let abstract_constant sp s = 
-  let f a = 
-    if List.mem default s then MLapp (MLglob (ConstRef sp), a)
-    else MLapp (MLglob (ConstRef sp), [MLdummy])
-  in prop_abstract f s
+  if s = [] then MLglob (ConstRef sp) 
+  else 
+    let f a = 
+      if List.mem default s then MLapp (MLglob (ConstRef sp), a)
+      else MLapp (MLglob (ConstRef sp), [MLdummy])
+    in prop_abstract f s
 
 (*S Error messages. *)
 
-- 
cgit v1.2.3