let render ids_to_uris =
let module A = Ast in
let module P = Mpresentation in
- let use_unicode = true in
+(* let use_unicode = true in *)
let lookup_uri id =
(try
let uri = Hashtbl.find ids_to_uris id in
let new_xref = ref [] in
let new_xmlattrs = ref [] in
let new_pos = ref pos in
- let reinit = ref false in
+(* let reinit = ref false in *)
let rec aux_attribute =
function
| A.AttributedTerm (attr, t) ->