diff options
Diffstat (limited to 'lib/errors.ml')
| -rw-r--r-- | lib/errors.ml | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/lib/errors.ml b/lib/errors.ml index 9b2e9370d0..9df276465d 100644 --- a/lib/errors.ml +++ b/lib/errors.ml @@ -19,17 +19,9 @@ exception Anomaly of string option * std_ppcmds (* System errors *) let make_anomaly ?label pp = Anomaly (label, pp) -let anomaly_gen label pp = - raise (Anomaly (label, pp)) - -let anomaly ?loc ?label pp = - match loc with +let anomaly ?loc ?label pp = match loc with | None -> raise (Anomaly (label, pp)) - | Some loc -> - Loc.raise loc (Anomaly (label, pp)) - -let anomalylabstrm string pps = - anomaly_gen (Some string) pps + | Some loc -> Loc.raise loc (Anomaly (label, pp)) let is_anomaly = function | Anomaly _ -> true @@ -106,8 +98,6 @@ let print e = isn't printed (used in Ltac debugging). *) let print_no_report e = print_gen (print_anomaly false) !handle_stack e -let print_anomaly e = print_anomaly true e - (** Predefined handlers **) let _ = register_handler begin function |