Module Pa_test_lib

module Runtime : sig

val sexp_of_loc : Lexing.position -> Sexplib.Sexp.t

val failwith : string -> Sexplib.Sexp.t -> 'a

val make_location_string : pos_fname:string -> pos_lnum:int -> pos_cnum:int -> pos_bol:int -> string

val string_of_loc : Lexing.position -> string

string_of_loc is used to implement sexp_of_loc, and is exposed at least so it can be rebound in core_kernel.

end