val profile : ?enable:bool -> string -> profiler
val set_profiling_printings : (unit -> bool) -> unit
+(** {2 Localized exceptions } *)
+
+exception Localized of Token.flocation * exn
+
+val loc_of_floc: Token.flocation -> int * int
+
+val raise_localized_exception: offset:int -> Token.flocation -> exn -> 'a