From 8fc2509f354b02ec4e0a3eb6fabc329109686c47 Mon Sep 17 00:00:00 2001
From: Pierre Letouzey
Date: Wed, 5 Mar 2014 16:50:04 +0100
Subject: Remove some dead-code (thanks to ocaml warnings)

 The removed code isn't used locally and isn't exported in the signature
---
 lib/errors.ml | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

(limited to 'lib/errors.ml')

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
-- 
cgit v1.2.3