diff options
Diffstat (limited to 'checker')
| -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 1daf449d86..5cfd71fbf0 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 () |