From 7b6ed1e95bef26f4ae85d7471985128c0dfdbc15 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 1 Mar 2001 14:02:59 +0000
Subject: Déplacement de qualid dans Nametab, hors du noyau

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

(limited to 'parsing/printer.ml')

diff --git a/parsing/printer.ml b/parsing/printer.ml
index d0535fbac5..a325f1a8b1 100644
--- a/parsing/printer.ml
+++ b/parsing/printer.ml
@@ -21,8 +21,8 @@ let pr_global ref =
   (* Il est important de laisser le let-in, car les streams s'évaluent
   paresseusement : il faut forcer l'évaluation pour capturer
   l'éventuelle levée d'une exception (le cas échoit dans le debugger) *)
-  let qid = Global.qualid_of_global ref in
-  [< 'sTR (string_of_qualid qid) >]
+  let s = Global.string_of_global ref in
+  [< 'sTR s >]
 
 let global_const_name sp =
   try pr_global (ConstRef sp)
-- 
cgit v1.2.3