open Printf
let debug = false
-let debug_print s = if debug then prerr_endline s
+let debug_print s = if debug then prerr_endline (Lazy.force s)
(* source files for tables xml parsing (if unmarshall=false) *)
let xml_tables = [
let parse_from_xml () =
let (macro2utf8, utf82macro) = (Hashtbl.create 2000, Hashtbl.create 2000) in
let add_macro macro utf8 =
- debug_print (sprintf "Adding macro %s = '%s'" macro utf8);
+ debug_print (lazy (sprintf "Adding macro %s = '%s'" macro utf8));
Hashtbl.replace macro2utf8 macro utf8;
Hashtbl.replace utf82macro utf8 macro
in