diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-17 22:00:33 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-17 22:00:33 +0000 |
commit | 70d582a7e191420661506a0e71fa022d1160626e (patch) | |
tree | 963ecb59798131ba9250f01354443b46316a42f8 /checker/checker.ml | |
parent | 60902645ba29f967883fdfe8aa46ef6f4a80ac7d (diff) |
Checker: simplify a bit its exception handler
We use Errors.print for anomalies and other uncaught exceptions
in the checker: this should print the same message, it is shorter
this way, and we avoid using Errors.is_anomaly.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16310 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/checker.ml')
-rw-r--r-- | checker/checker.ml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index 10a3089ed..6b76b6b32 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -278,11 +278,7 @@ let rec explain_exn = function str ", characters " ++ int e ++ str "-" ++ int (e+6) ++ str ")")) ++ report ()) - | e when is_anomaly e -> - print_anomaly e - | e -> - hov 0 (anomaly_string () ++ str "Uncaught exception " ++ - str (Printexc.to_string e)++report()) + | e -> Errors.print e (* for anomalies and other uncaught exceptions *) let parse_args argv = let rec parse = function |