let floc_of_loc (loc_begin, loc_end) =
Stdpp.make_loc (loc_begin, loc_end)
let floc_of_loc (loc_begin, loc_end) =
Stdpp.make_loc (loc_begin, loc_end)
let raise_localized_exception ~offset floc exn =
let x, y = loc_of_floc floc in
let raise_localized_exception ~offset floc exn =
let x, y = loc_of_floc floc in