From b9f4f52371fef6c94a0b2de4784aefe95c793a51 Mon Sep 17 00:00:00 2001
From: glondu
Date: Tue, 16 Nov 2010 15:35:13 +0000
Subject: Remove redundant clause (and fix compatibility issue)

This clause should not be needed since Loc.Exc_located = Ploc.Exc is
matched a few lines earlier...

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13638 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/cerrors.ml | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/toplevel/cerrors.ml b/toplevel/cerrors.ml
index a497aad593..8dbeb34491 100644
--- a/toplevel/cerrors.ml
+++ b/toplevel/cerrors.ml
@@ -81,10 +81,6 @@ let rec explain_exn_default_aux anomaly_string report_fn = function
       msg
   | EvaluatedError (msg,Some reraise) ->
       msg ++ explain_exn_default_aux anomaly_string report_fn reraise
-  | Ploc.Exc(loc,exc) -> 
-      hov 0 ((if loc = dummy_loc then (mt ())
-               else (str"At location " ++ print_loc loc ++ str":" ++ fnl ()))
-               ++ explain_exn_default_aux anomaly_string report_fn exc)
   | reraise ->
       hov 0 (anomaly_string () ++ str "Uncaught exception " ++
 	       str (Printexc.to_string reraise) ++ report_fn ())
-- 
cgit v1.2.3