STM: if -coq-slaves off really imitate the old CoqIDE

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16843 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 3 insertions, 1 deletions

diff --git a/toplevel/stm.ml b/toplevel/stm.ml
index 22ee2b9c91..24d91a7335 100644
--- a/toplevel/stm.ml
+++ b/toplevel/stm.ml
@@ -941,7 +941,9 @@ end = struct (* {{{ *)
 
 let pstate = ["meta counter"; "evar counter"; "program-tcc-table"]
 
-let delegate_policy_check l = interactive () = `Yes || List.length l > 20
+let delegate_policy_check l =
+  (interactive () = `Yes || List.length l > 20) &&
+  (if interactive () = `Yes then !Flags.coq_slave_mode = 0 else true)
 
 let collect_proof cur hd id =
  prerr_endline ("Collecting proof ending at "^Stateid.to_string id);