From 937ca7a6dbc1a031b7c4540c665b8774440c1bb9 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 22 Nov 2000 21:32:03 +0000
Subject: Abstraction du type 'qualid' pour les noms qualifiés relatifs
 distinct de 'section_path' pour les noms absolus

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@919 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/tacinterp.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'proofs')

diff --git a/proofs/tacinterp.ml b/proofs/tacinterp.ml
index c2dcf0bec5..29daa7965e 100644
--- a/proofs/tacinterp.ml
+++ b/proofs/tacinterp.ml
@@ -136,14 +136,14 @@ let look_for_interp = Hashtbl.find interp_tab
 
 (* Globalizes the identifier *)
 let glob_const_nvar loc id =
-  let sp = make_path [] id CCI in
+  let qid = make_qualid [] (string_of_id id) in
   try
-    match Nametab.locate sp with
+    match Nametab.locate qid with
       | ConstRef sp -> sp
-      | _ -> error ((string_of_path sp) ^ " does not denote a constant")
+      | _ -> error ((string_of_qualid qid) ^ " does not denote a constant")
   with
     | Not_found ->
-	Pretype_errors.error_global_not_found_loc loc sp
+	Pretype_errors.error_global_not_found_loc loc qid
 
 
 (* Summary and Object declaration *)
-- 
cgit v1.2.3