diff options
| author | filliatr | 2001-07-05 14:41:37 +0000 |
|---|---|---|
| committer | filliatr | 2001-07-05 14:41:37 +0000 |
| commit | cd9acfec55378cfe1651b910b93387724efe251d (patch) | |
| tree | b7592eb3ed6cd28d2ad3f1ba07a163a1563670b8 /library | |
| parent | 90a916ee7e0c995dd6a402b685656a02de3947d6 (diff) | |
correction bug Omega
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1826 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/declare.ml | 6 |
1 files changed, 6 insertions, 0 deletions
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 |