diff options
Diffstat (limited to 'toplevel/cerrors.mli')
-rw-r--r-- | toplevel/cerrors.mli | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/toplevel/cerrors.mli b/toplevel/cerrors.mli index 1236ecf5..6890e73e 100644 --- a/toplevel/cerrors.mli +++ b/toplevel/cerrors.mli @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(*i $Id: cerrors.mli 5920 2004-07-16 20:01:26Z herbelin $ i*) +(*i $Id$ i*) (*i*) open Pp @@ -19,6 +19,12 @@ val print_loc : loc -> std_ppcmds val explain_exn : exn -> std_ppcmds +(** Same, but will re-raise all anomalies instead of explaining them *) + +val explain_exn_no_anomaly : exn -> std_ppcmds + +(** For debugging purpose (?), the explain function can be twicked *) + val explain_exn_function : (exn -> std_ppcmds) ref val explain_exn_default : exn -> std_ppcmds |