diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-03-02 17:49:38 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-03-02 17:49:38 +0000 |
| commit | dc1f525d12219a43648c449f034fb319bc6c1e7a (patch) | |
| tree | f80b2aee7b517f9987dba10f745a8fa1242e435d /checker/checker.ml | |
| parent | 95dcebe76caf6a93289e484995760ec94111c7c8 (diff) | |
porting r11900 11905 and 11953 to trunk
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11954 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/checker.ml')
| -rw-r--r-- | checker/checker.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index 3d9289334..70e2eb97f 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -256,7 +256,7 @@ let rec explain_exn = function | Not_found -> hov 0 (anomaly_string () ++ str "uncaught exception Not_found" ++ report ()) | Failure s -> - hov 0 (anomaly_string () ++ str "uncaught exception Failure " ++ str (guill s) ++ report ()) + hov 0 (str "Failure: " ++ str s ++ report ()) | Invalid_argument s -> hov 0 (anomaly_string () ++ str "uncaught exception Invalid_argument " ++ str (guill s) ++ report ()) | Sys.Break -> @@ -385,4 +385,4 @@ let run () = flush_all(); exit 1) -let start () = init(); run(); exit 0 +let start () = init(); run(); Check_stat.stats(); exit 0 |