diff options
| author | herbelin | 1999-12-02 22:58:48 +0000 |
|---|---|---|
| committer | herbelin | 1999-12-02 22:58:48 +0000 |
| commit | 4318eefacae280fed3a159acfede35c568b2942b (patch) | |
| tree | fcbec538a568a7cc75af45fec579e121f84e2c77 /library | |
| parent | 8404c8cd83aa8c802b628afe0c222b87bc7956ef (diff) | |
Modifs suite à intégration de class.ml
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@192 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/declare.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/library/declare.ml b/library/declare.ml index 2305f31ffa..ed63983f71 100644 --- a/library/declare.ml +++ b/library/declare.ml @@ -243,7 +243,9 @@ let global_reference_imps kind id = c, list_of_implicits (constructor_implicits ((sp,i),j)) | _ -> assert false -let global env id = global_reference CCI id +let global env id = + try let _ = lookup_glob id (Environ.context env) in VAR id + with Not_found -> global_reference CCI id let is_global id = try |