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