From 171f40e011921e9e9de3b24a5e8e4f493557cb08 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 6 Oct 2000 13:52:03 +0000
Subject: MAJ pr_uni

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@666 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/top_printers.ml | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'dev')

diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 12e8ed33b5..07f97cbfee 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -66,12 +66,7 @@ let prwc wc = pP(pr_evc wc)
 
 let prclenv clenv = pP(pr_clenv clenv)
 
-let p_uni u = 
-    [< 'sTR(string_of_path u.u_sp) ;
-       'sTR "." ;
-      'iNT u.u_num >]
-
-let print_uni u = (pP (p_uni u))
+let print_uni u = (pP (pr_uni u))
 
 let pp_universes u = pP [< 'sTR"[" ; pr_universes u ; 'sTR"]" >]
 
-- 
cgit v1.2.3