diff options
| author | msozeau | 2008-07-29 13:14:43 +0000 |
|---|---|---|
| committer | msozeau | 2008-07-29 13:14:43 +0000 |
| commit | e14100f74f50b68dded694953bebf097e0ffff0c (patch) | |
| tree | dd2a3a29ecd086b9095e67fd3fd5b55954231e58 | |
| parent | 403fe4d8e7c1adbeefdfe133b554472c7d808d32 (diff) | |
Backport r11289.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11291 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/termops.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/termops.ml b/pretyping/termops.ml index 22090d88cf..c0144cab4b 100644 --- a/pretyping/termops.ml +++ b/pretyping/termops.ml @@ -838,7 +838,8 @@ let is_imported_ref = function let is_global id = try let ref = locate (make_short_qualid id) in - not (is_imported_ref ref) + not (is_imported_ref ref) || + (try ignore(locate (make_qualid (dirpath_of_string "Top") id)); true with _ -> false) with Not_found -> false |