diff options
| author | glondu | 2010-11-16 15:35:13 +0000 |
|---|---|---|
| committer | glondu | 2010-11-16 15:35:13 +0000 |
| commit | b9f4f52371fef6c94a0b2de4784aefe95c793a51 (patch) | |
| tree | a47d0e1a36d44dcad23c50b09d43d8f0b886c32c | |
| parent | 0d5a9c97de52f3ba56a9bf54a7177d33aba79ecd (diff) | |
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
| -rw-r--r-- | toplevel/cerrors.ml | 4 |
1 files changed, 0 insertions, 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 ()) |