X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_notation%2Ftest_parser.ml;h=ce87368bf7ae54e8e937db11cbec27a37ba0caa9;hb=08791e80816548121e81e04d3ead8c9a5171d033;hp=1585f43e28df6f1da4f06bee1e2be4bb2dcd943f;hpb=3d63cb9ed38f05c679fc3284a5b3bb4d92e52296;p=helm.git

diff --git a/helm/ocaml/cic_notation/test_parser.ml b/helm/ocaml/cic_notation/test_parser.ml
index 1585f43e2..ce87368bf 100644
--- a/helm/ocaml/cic_notation/test_parser.ml
+++ b/helm/ocaml/cic_notation/test_parser.ml
@@ -107,17 +107,16 @@ let _ =
                   CicNotationRew.ast_of_acic id_to_sort annterm
                 in
                 let time2 = Unix.gettimeofday () in
-                printf "ast creation took %f seconds\n" (time2 -. time1);
-                prerr_endline "====";
-                print_endline (CicNotationPp.pp_term t); flush stdout;
+                prerr_endline (sprintf "ast creation took %f seconds\n" (time2 -. time1));
+                prerr_endline "AST";
+                prerr_endline (CicNotationPp.pp_term t);
                 flush stdout;
                 let time3 = Unix.gettimeofday () in
                 let t' = CicNotationRew.pp_ast t in
                 let time4 = Unix.gettimeofday () in
-                printf "pretty printing took %f seconds\n" (time4 -. time3);
-                dump_xml t' id_to_uri "out.xml";
-                print_endline (CicNotationPp.pp_term t'); flush stdout
-                )
+                prerr_endline (sprintf "pretty printing took %f seconds\n" (time4 -. time3));
+                prerr_endline (CicNotationPp.pp_term t');
+                dump_xml t' id_to_uri "out.xml")
 (*                 CicNotationParser.print_l2_pattern ()) *)
         | 1 -> ignore (CicNotationParser.parse_syntax_pattern istream)
         | 2 ->