snapshot

[helm.git] / helm / ocaml / cic_notation / test_parser.ml

diff --git a/helm/ocaml/cic_notation/test_parser.ml b/helm/ocaml/cic_notation/test_parser.ml
index 0ff7c558e119e3435d461e382998e727d5cbe1e0..1585f43e28df6f1da4f06bee1e2be4bb2dcd943f 100644 (file)
--- a/helm/ocaml/cic_notation/test_parser.ml
+++ b/helm/ocaml/cic_notation/test_parser.ml
@@ -41,8 +41,7 @@ let dump_xml t id_to_uri fname =
   print_endline (sprintf "dumping MathML to %s ..." fname);
   flush stdout;
   let oc = open_out fname in
-  let markup = CicNotationPres.render id_to_uri t in
-  Xml.pp_to_outchan (xml_stream_of_markup markup) oc;
+  Xml.pp_to_outchan (CicNotationPres.render_to_boxml id_to_uri t) oc;
   close_out oc
 
 let _ =
@@ -116,7 +115,7 @@ let _ =
                 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";
+                dump_xml t' id_to_uri "out.xml";
                 print_endline (CicNotationPp.pp_term t'); flush stdout
                 )
 (*                 CicNotationParser.print_l2_pattern ()) *)