diff options
| author | courtieu | 2010-08-26 11:41:29 +0000 |
|---|---|---|
| committer | courtieu | 2010-08-26 11:41:29 +0000 |
| commit | 8441410351507b7c5888a32d70347a3feb756c08 (patch) | |
| tree | a625a264ab011d6160eac737f290b4d24bb93dfa | |
| parent | 94dc873f932681ead5031ca70ad96f33d8a636a1 (diff) | |
Fix an error message ot having the ERror: prefix.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13373 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/cerrors.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/cerrors.ml b/toplevel/cerrors.ml index 8f9cc45f96..0d2111f8a9 100644 --- a/toplevel/cerrors.ml +++ b/toplevel/cerrors.ml @@ -120,7 +120,7 @@ let rec explain_exn_default_aux anomaly_string report_fn = function int (e+6) ++ str ")")) ++ report_fn ()) | AlreadyDeclared msg -> - hov 0 (msg ++ str ".") + hov 0 (str "Error: " ++ msg ++ str ".") | reraise -> hov 0 (anomaly_string () ++ str "Uncaught exception " ++ str (Printexc.to_string reraise) ++ report_fn ()) |