From eee16239f6b00400c8a13b787c310bcb11c37afe Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Fri, 18 Dec 2015 12:06:24 +0100
Subject: Tying the loop in tactic printing API.

---
 tactics/tacinterp.ml | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'tactics')

diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml
index 6ac16bd76a..3295b932b9 100644
--- a/tactics/tacinterp.ml
+++ b/tactics/tacinterp.ml
@@ -60,9 +60,7 @@ let push_appl appl args =
   | UnnamedAppl -> UnnamedAppl
   | GlbAppl l -> GlbAppl (List.map (fun (h,vs) -> (h,vs@args)) l)
 let pr_generic arg =
-  let pr_gtac _ x = Pptactic.pr_glob_tactic (Global.env()) x in
-  try
-    Pptactic.pr_top_generic pr_constr pr_lconstr pr_gtac pr_constr_pattern arg
+  try Pptactic.pr_top_generic (Global.env ()) arg
   with e when Errors.noncritical e -> str"<generic>"
 let pr_appl h vs =
   Pptactic.pr_ltac_constant  h ++ spc () ++
-- 
cgit v1.2.3