From 51104b763a51ad6598462399e568f6ed2fcb008e Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 29 Mar 2004 22:42:56 +0000
Subject: Retrait debogage

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5605 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/xml/xmlcommand.ml | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'contrib/xml/xmlcommand.ml')

diff --git a/contrib/xml/xmlcommand.ml b/contrib/xml/xmlcommand.ml
index ffc4b8c548..651b85b0cf 100644
--- a/contrib/xml/xmlcommand.ml
+++ b/contrib/xml/xmlcommand.ml
@@ -544,11 +544,8 @@ let show_pftreestate fn (kind,pftst) id =
  let kn = Lib.make_kn id in
  let env = Global.env () in
  let obj = mk_current_proof_obj id val0 typ evar_map env in
-print_string "c";
  let uri = Cic2acic.uri_of_kernel_name kn Cic2acic.Constant in
-print_string "b";
   print_object_kind uri (kind_of_goal kind);
-print_string "a";
   print_object uri obj evar_map
    (Some (Tacmach.evc_of_pftreestate pftst,unshared_pf,proof_tree_to_constr,
     proof_tree_to_flattened_proof_tree)) fn
-- 
cgit v1.2.3