From f20dbafa3e49c35414640e01c3549ad1c802d331 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Fri, 3 Dec 1999 09:09:37 +0000
Subject:  - global_reference traite des variables  - construct_reference, avec
 environnement en argument  - link de Class  - Definition et Check au toplevel

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@193 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/tacmach.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'proofs')

diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml
index 49315aba7c..446d70b437 100644
--- a/proofs/tacmach.ml
+++ b/proofs/tacmach.ml
@@ -78,7 +78,7 @@ let pf_constr_of_com_sort gls c =
   let evc = project gls in 
   Astterm.constr_of_com_sort evc (sig_it gls).evar_env c
 
-let pf_global gls id = Declare.global (sig_it gls).evar_env id
+let pf_global gls id = Declare.construct_reference (sig_it gls).evar_env CCI id
 let pf_parse_const gls = compose (pf_global gls) id_of_string
 
 let pf_execute gls =
-- 
cgit v1.2.3