X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_parser%2Ftest_parser.ml;h=c87d41ed582e69613ea5493004dd37838b585190;hb=a9e037fe189335607ab5d10523c836d8c7717245;hp=7e316879bc3415b56d5d74a056ad231ec48f877d;hpb=86cced899859b1730a4789d3ba0db71d21a37604;p=helm.git

diff --git a/helm/software/components/grafite_parser/test_parser.ml b/helm/software/components/grafite_parser/test_parser.ml
index 7e316879b..c87d41ed5 100644
--- 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
@@ -101,6 +102,8 @@ let process_stream istream =
                   prerr_endline
                    ("Unsupported statement: " ^
                      GrafiteAstPp.pp_statement
+                      ~map_unicode_to_tex:(Helm_registry.get_bool
+                        "matita.paste_unicode_as_tex")
                       ~term_pp:CicNotationPp.pp_term
                       ~lazy_term_pp:(fun _ -> "_lazy_term_here_")
                       ~obj_pp:(fun _ -> "_obj_here_")