X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_notation%2Ftest_parser.ml;h=b3685232e8e96e3a898e6a361bc9dd940cb63601;hb=97c2d258a5c524eb5c4b85208899d80751a2c82f;hp=dc76884aca4d2d8d69733b6cf1f9f5c9220437eb;hpb=08ecc780b3b0a4cac7ed72cf68c310e4eeffa2c1;p=helm.git

diff --git a/helm/ocaml/cic_notation/test_parser.ml b/helm/ocaml/cic_notation/test_parser.ml
index dc76884ac..b3685232e 100644
--- a/helm/ocaml/cic_notation/test_parser.ml
+++ b/helm/ocaml/cic_notation/test_parser.ml
@@ -39,7 +39,9 @@ let dump_xml t id_to_uri fname =
   prerr_endline (sprintf "dumping MathML to %s ..." fname);
   flush stdout;
   let oc = open_out fname in
-  Xml.pp_to_outchan (CicNotationPres.render_to_boxml id_to_uri t) oc;
+  let markup = CicNotationPres.render id_to_uri t in
+  let xml_stream = CicNotationPres.print_xml markup in
+  Xml.pp_to_outchan xml_stream oc;
   close_out oc
 
 let extract_loc =
@@ -155,5 +157,5 @@ let _ =
   CicNotation.load_notation (Helm_registry.get "notation.core_file");
   print_endline "done.";
   flush stdout;
-  process_stream (Stream.of_channel stdin)
+  process_stream (Ulexing.from_utf8_channel stdin)