let debug = false
let debug_print s = if debug then prerr_endline (Lazy.force s)
-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 loc = Stdpp.make_loc (-1, -1)
let expand_unicode_macro macro =
debug_print (lazy (Printf.sprintf "Expanding macro '%s' ..." macro));