val to_string : exn -> stringval to_string_default : exn -> stringval print : ('a -> 'b) -> 'a -> 'bval catch : ('a -> 'b) -> 'a -> 'bval get_backtrace : unit -> stringval record_backtrace : bool -> unitval backtrace_status : unit -> boolval register_printer : (exn -> string option) -> unitval use_printers : exn -> string optiontype raw_backtrace_entry = private intval default_uncaught_exception_handler : exn -> raw_backtrace -> unitval set_uncaught_exception_handler : (exn -> raw_backtrace -> unit) -> unittype location = {filename : string;line_number : int;start_char : int;end_char : int;
}module Slot : sig ... endval exn_slot_id : exn -> intval exn_slot_name : exn -> string