diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-18 19:45:36 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-18 19:45:36 +0000 |
commit | 4c1ccb9e2a4b219ac5180115bc4267e1b059cdd1 (patch) | |
tree | 9ecfc27037e02802b1e6884517ca930cb8197cbc /checker/checker.ml | |
parent | b101df5536146b9c3cd3569fc3b6334650f2a300 (diff) |
Removing Exc_located and using the new exception enrichement
mechanism to retrieve the same information.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16215 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/checker.ml')
-rw-r--r-- | checker/checker.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index 1daf449d8..5cfd71fbf 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -269,10 +269,6 @@ let rec explain_exn = function (* let ctx = Check.get_env() in hov 0 (str "Error:" ++ spc () ++ Himsg.explain_inductive_error ctx e)*) - | Loc.Exc_located (loc, exc) -> - hov 0 ((if loc = Loc.ghost then (mt ()) - else (str"At location " ++ print_loc loc ++ str":" ++ fnl ())) - ++ explain_exn exc) | Assert_failure (s,b,e) -> hov 0 (anomaly_string () ++ str "assert failure" ++ spc () ++ (if s = "" then mt () |