From 18891a3cbbec467d5872cab4329fa7f6cdb9fe80 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Mon, 4 Nov 2002 01:08:07 +0000
Subject: ajout d'un printer pour les global_reference

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

(limited to 'dev/top_printers.ml')

diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index fb342b221b..b74cd395a0 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -40,6 +40,8 @@ let pprawterm = (fun x -> pp(pr_rawterm x))
 let pppattern = (fun x -> pp(pr_pattern x))
 let pptype = (fun x -> pp(prtype x))
 
+let prglobal = (fun x -> pp(pr_global x))
+
 let prid id = pp (pr_id id)
 let prlab l = pp (pr_lab l)
 
-- 
cgit v1.2.3