blob: 4f6a1a074376a021a14f1748db34b021560334da (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(* $Id$ *)
(*i*)
open Pp
(*i*)
(* Error report. *)
val print_loc : Coqast.loc -> std_ppcmds
val explain_exn : exn -> std_ppcmds
val explain_exn_function : (exn -> std_ppcmds) ref
val explain_exn_default : exn -> std_ppcmds
val raise_if_debug : exn -> unit
|