From 627db8b548107ae08a2c81ffe5fe21cef41ef4d5 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Fri, 11 May 2001 07:37:17 +0000
Subject: 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
---
 library/declare.ml | 4 ++--
 1 file 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
-- 
cgit v1.2.3