diff options
Diffstat (limited to 'lib/errors.ml')
-rw-r--r-- | lib/errors.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/errors.ml b/lib/errors.ml index a4ec357ee..13f391647 100644 --- a/lib/errors.ml +++ b/lib/errors.ml @@ -99,6 +99,8 @@ let iprint (e, info) = print ~info e (** Same as [print], except that the "Please report" part of an anomaly isn't printed (used in Ltac debugging). *) let print_no_report e = print_gen (print_anomaly false) !handle_stack e +let iprint_no_report (e, info) = + print_gen (print_anomaly false) !handle_stack e ++ print_backtrace info (** Predefined handlers **) |