diff options
| author | gareuselesinge | 2013-10-07 16:17:52 +0000 |
|---|---|---|
| committer | gareuselesinge | 2013-10-07 16:17:52 +0000 |
| commit | 0cd0c393b12478cbf794f84bed5945f6fa7a8f39 (patch) | |
| tree | c772243daaeb088f19078308b4cfab29db739efc | |
| parent | 3c7971f7587b488ed709443aba8427330ea972b6 (diff) | |
STM: fix verbosity of queries
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16861 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/vernacentries.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 8abac272c0..1cff1aeb83 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1837,7 +1837,7 @@ let interp ?(verbosely=true) ?proof (loc,c) = | HasNotFailed -> errorlabstrm "Fail" (str "The command has not failed!") | HasFailed msg -> - if_verbose msgnl + if_verbose msg_info (str "The command has indeed failed with message:" ++ fnl () ++ str "=> " ++ hov 0 (str msg)) | _ -> assert false @@ -1869,5 +1869,6 @@ let interp ?(verbosely=true) ?proof (loc,c) = Flags.program_mode := orig_program_mode; raise e in - aux false c + if verbosely then Flags.verbosely (aux false) c + else aux false c |