From bc69260e1427d77e5a3faf2f14e4bc9b3acb354f Mon Sep 17 00:00:00 2001
From: Arnaud Spiwack
Date: Fri, 7 Nov 2014 19:15:51 +0100
Subject: Print [uconstr] in genargs.

---
 printing/printer.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'printing/printer.ml')

diff --git a/printing/printer.ml b/printing/printer.ml
index 0fea782974..e21c9a61b9 100644
--- a/printing/printer.ml
+++ b/printing/printer.ml
@@ -124,6 +124,9 @@ let pr_glob_constr c =
 
 let pr_closed_glob_env env sigma c =
   pr_constr_expr (extern_closed_glob false env sigma c)
+let pr_closed_glob c =
+  let (sigma, env) = get_current_context () in
+  pr_closed_glob_env env sigma c
 
 let pr_lconstr_pattern_env env sigma c =
   pr_lconstr_pattern_expr (extern_constr_pattern (Termops.names_of_rel_context env) sigma c)
-- 
cgit v1.2.3