exception Localized of Token.flocation * exn
val loc_of_floc: Token.flocation -> int * int
+val floc_of_loc: int * int -> Token.flocation
+
+val dummy_floc: Lexing.position * Lexing.position
val raise_localized_exception: offset:int -> Token.flocation -> exn -> 'a