Huge commit with several changes:

[helm.git] / helm / software / components / grafite_parser / test_parser.ml

diff --git a/helm/software/components/grafite_parser/test_parser.ml b/helm/software/components/grafite_parser/test_parser.ml
index 76c402c196c757327525aa96e10b552230f10711..c87d41ed582e69613ea5493004dd37838b585190 100644 (file)
--- a/helm/software/components/grafite_parser/test_parser.ml
+++ b/helm/software/components/grafite_parser/test_parser.ml
@@ -41,7 +41,8 @@ let dump_xml t id_to_uri fname =
   prerr_endline (sprintf "dumping MathML to %s ..." fname);
   flush stdout;
   let oc = open_out fname in
-  let markup = CicNotationPres.render id_to_uri t in
+  let markup =
+   CicNotationPres.render ~lookup_uri:(CicNotationPres.lookup_uri id_to_uri)t in
   let xml_stream = CicNotationPres.print_xml markup in
   Xml.pp_to_outchan xml_stream oc;
   close_out oc