diff options
| author | filliatr | 2001-05-11 07:37:17 +0000 |
|---|---|---|
| committer | filliatr | 2001-05-11 07:37:17 +0000 |
| commit | 627db8b548107ae08a2c81ffe5fe21cef41ef4d5 (patch) | |
| tree | d0012d057af33341e5fcc97332a95d977386611f | |
| 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
| -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 59828c3cc5..5cdc2daa21 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 |