From cd9acfec55378cfe1651b910b93387724efe251d Mon Sep 17 00:00:00 2001
From: filliatr
Date: Thu, 5 Jul 2001 14:41:37 +0000
Subject: correction bug Omega

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1826 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/declare.ml | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'library')

diff --git a/library/declare.ml b/library/declare.ml
index 5cdc2daa21..81021d1be5 100644
--- a/library/declare.ml
+++ b/library/declare.ml
@@ -426,9 +426,15 @@ let dirpath_of_global = function
   | IndRef (sp,_) -> dirpath sp
   | ConstructRef ((sp,_),_) -> dirpath sp
 
+let is_section_variable = function
+  | VarRef _ -> true
+  | _ -> false
+
 let is_global id =
   try 
     let osp = Nametab.locate (make_qualid [] id) in
+    (* Compatibilité V6.3: Les variables de section de sont pas globales
+    not (is_section_variable osp) && *)
     list_prefix_of (dirpath_of_global osp) (Lib.cwd())
   with Not_found -> 
     false
-- 
cgit v1.2.3