diff options
| author | herbelin | 2004-03-29 22:42:56 +0000 |
|---|---|---|
| committer | herbelin | 2004-03-29 22:42:56 +0000 |
| commit | 51104b763a51ad6598462399e568f6ed2fcb008e (patch) | |
| tree | 6b6170d3057c0c27ebbd8d6991128cd604f4cae7 /contrib/xml/xmlcommand.ml | |
| parent | 45025a38c4766a4762a7bcec15ec2d5d7537f963 (diff) | |
Retrait debogage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5605 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/xml/xmlcommand.ml')
| -rw-r--r-- | contrib/xml/xmlcommand.ml | 3 |
1 files changed, 0 insertions, 3 deletions
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 |