From 95fdf37ed38d64c6358fcf8f5b841a56157db0b8 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 23 Nov 2000 14:07:46 +0000
Subject: Affichage des paths avec des '.', print_id -> pr_id, print_sp ->
 pr_sp

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

(limited to 'parsing/printer.ml')

diff --git a/parsing/printer.ml b/parsing/printer.ml
index 7ee8cbfa5e..9f03ccc1e8 100644
--- a/parsing/printer.ml
+++ b/parsing/printer.ml
@@ -21,7 +21,7 @@ let section_path sl s =
   make_path (List.tl sl) (id_of_string (List.hd sl)) (kind_of_string s)
 
 let pr_global ref =
-  [< 'sTR (string_of_qualid (Nametab.qualid_of_global ref)) >]
+  [< 'sTR (string_of_qualid (Global.qualid_of_global ref)) >]
 
 let global_const_name sp =
   try pr_global (ConstRef sp)
-- 
cgit v1.2.3