X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_parser%2Ftest_parser.ml;h=9f42238e99da85ac8e16d03643c9ac1b27140c75;hb=7f9e313fe5ae4200f080f481a6b8b795a0618093;hp=76c402c196c757327525aa96e10b552230f10711;hpb=397b5f9d848e63a9703a1f90faf9869092ec8893;p=helm.git

diff --git a/helm/software/components/grafite_parser/test_parser.ml b/helm/software/components/grafite_parser/test_parser.ml
index 76c402c19..9f42238e9 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
@@ -66,7 +67,7 @@ let process_stream istream =
   let module G = GrafiteAst in
   let status =
    ref
-    (CicNotation2.load_notation
+    (CicNotation2.load_notation (new LexiconEngine.status)
       ~include_paths:[] (Helm_registry.get "notation.core_file"))
   in
     try