From 5d6106a075b79abbb92b03bbca7b13a517cf4925 Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Wed, 24 Dec 2014 14:34:51 +0100
Subject: Term: include a function to print terms

I find it very odd not to have a pretty printer for terms than can
be called from *everywhere*.  This commit sticks in Term a long spaghetti
to let Printer install a printing function.
---
 printing/printer.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'printing/printer.ml')

diff --git a/printing/printer.ml b/printing/printer.ml
index 38b5e0bfdd..1218c49b37 100644
--- a/printing/printer.ml
+++ b/printing/printer.ml
@@ -67,6 +67,8 @@ let pr_constr t =
   let (sigma, env) = get_current_context () in
   pr_constr_env env sigma t
 
+let () = Hook.set Term.print_hook pr_constr
+
 let pr_open_lconstr (_,c) = pr_lconstr c
 let pr_open_constr (_,c) = pr_constr c
 
-- 
cgit v1.2.3