From 3c248785237d8dea037da274f4acc0229894de93 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 16 Feb 2001 15:58:48 +0000
Subject: ident au lieu de string pour le nom de base de qualid

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

(limited to 'library/global.ml')

diff --git a/library/global.ml b/library/global.ml
index c074529888..cdc7fdb18d 100644
--- a/library/global.ml
+++ b/library/global.ml
@@ -63,9 +63,9 @@ let sp_of_global id = Environ.sp_of_global (env_of_safe_env !global_env) id
 
 let qualid_of_global ref =  
   let sp = sp_of_global ref in
-  let s = string_of_id (basename sp) in
+  let id = basename sp in
   let rec find_visible dir qdir =
-    let qid = make_qualid qdir s in
+    let qid = make_qualid qdir id in
     if (try Nametab.locate qid = ref with Not_found -> false) then qid
     else match dir with
       | [] -> qualid_of_sp sp
-- 
cgit v1.2.3