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 =
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)