Remove some dead-code (thanks to ocaml warnings)

 The removed code isn't used locally and isn't exported in the signature

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