diff options
author | 2001-05-11 07:37:17 +0000 | |
---|---|---|
committer | 2001-05-11 07:37:17 +0000 | |
commit | 627db8b548107ae08a2c81ffe5fe21cef41ef4d5 (patch) | |
tree | d0012d057af33341e5fcc97332a95d977386611f /library | |
parent | 9dcc0b08f9d62ab8fd0f20a2c80dc1d5a5d56a26 (diff) |
construct_reference regarde d'abord dans le contexte local, puis les globaux
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1743 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
-rw-r--r-- | library/declare.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/declare.ml b/library/declare.ml index 59828c3cc..5cdc2daa2 100644 --- a/library/declare.ml +++ b/library/declare.ml @@ -402,10 +402,10 @@ let construct_qualified_reference env qid = let construct_reference env kind id = try + mkVar (let _ = Environ.lookup_named id env in id) + with Not_found -> let ref = Nametab.sp_of_id kind id in constr_of_reference Evd.empty env ref - with Not_found -> - mkVar (let _ = Environ.lookup_named id env in id) let global_qualified_reference qid = construct_qualified_reference (Global.env()) qid |