let debug = false
let debug_print s = if debug then prerr_endline s
-let loc = (0, 0)
+let loc =
+ let dummy_pos =
+ { Lexing.pos_fname = ""; Lexing.pos_lnum = -1; Lexing.pos_bol = -1;
+ Lexing.pos_cnum = -1 }
+ in
+ (dummy_pos, dummy_pos)
let expand_unicode_macro macro =
debug_print (Printf.sprintf "Expanding macro '%s' ..." macro);