diff options
| author | gareuselesinge | 2013-10-11 09:10:55 +0000 |
|---|---|---|
| committer | gareuselesinge | 2013-10-11 09:10:55 +0000 |
| commit | 6b1bbec0f721306451626538f2f5bb95e153f912 (patch) | |
| tree | 30e6f746e8a418bd442f0dcbb60c35be7c0dc195 | |
| parent | 8a180135842ff098e5c997d711061cf99864d671 (diff) | |
STM: prefix debug messages with slave-id
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16880 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/stm.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/toplevel/stm.ml b/toplevel/stm.ml index 838497da25..7086ff722c 100644 --- a/toplevel/stm.ml +++ b/toplevel/stm.ml @@ -6,7 +6,10 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -let prerr_endline s = if !Flags.debug then prerr_endline s else () +let prerr_endline s = + if !Flags.debug then + prerr_endline (Printf.sprintf "%d] %s" !Flags.coq_slave_mode s) + else () open Vernacexpr open Errors |