diff options
| author | glondu | 2010-10-26 08:57:05 +0000 |
|---|---|---|
| committer | glondu | 2010-10-26 08:57:05 +0000 |
| commit | 220c14e972a4f46003a4d85496b2f107354b4471 (patch) | |
| tree | 2486bce024b8c075f9925bb50539a9f4f5a41c32 | |
| parent | 348b5346f49db14dc83f93272af06be9cebc9d2c (diff) | |
Fail, when successful, prints something only in verbose mode
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13583 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/vernac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index 57fa29e162..1df58a10ae 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -170,7 +170,7 @@ let rec vernac_com interpfun (loc,com) = | e -> (* if [e] is an anomaly, the next function will re-raise it *) let msg = Cerrors.explain_exn_no_anomaly e in - msgnl (str "The command has indeed failed with message:" ++ + if_verbose msgnl (str "The command has indeed failed with message:" ++ fnl () ++ str "=> " ++ hov 0 msg) end |