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/include         | 1 +
 dev/top_printers.ml | 2 ++
 2 files changed, 3 insertions(+)

(limited to 'dev')

diff --git a/dev/include b/dev/include
index 84f45fb2ae..830e5cb5e7 100644
--- a/dev/include
+++ b/dev/include
@@ -28,3 +28,4 @@
 
 #install_printer  (* tactic *) pptac;;
 #install_printer  (* object *) pr_obj;;
+#install_printer  (* global_reference *) prglobal;;
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