From 80b91aa1e83097efd006cfed5f57e4826a1ab0c8 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Fri, 1 Jun 2012 19:53:57 +0000
Subject: Cleaning Pp.ppnl use

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15413 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/tactic_debug.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'proofs/tactic_debug.ml')

diff --git a/proofs/tactic_debug.ml b/proofs/tactic_debug.ml
index 916bced9eb..6a04963000 100644
--- a/proofs/tactic_debug.ml
+++ b/proofs/tactic_debug.ml
@@ -145,7 +145,7 @@ let debug_prompt lev g tac f =
   with e ->
     skip:=0; skipped:=0;
     if Logic.catchable_exception e then
-      ppnl (str "Level " ++ int lev ++ str ": " ++ !explain_logic_error e);
+      msg_tac_debug (str "Level " ++ int lev ++ str ": " ++ !explain_logic_error e);
     raise e
 
 (* Prints a constr *)
-- 
cgit v1.2.3