From 8ef93edf0909767210b8199ca3732ecfd0fa040b Mon Sep 17 00:00:00 2001
From: gareuselesinge
Date: Thu, 3 Oct 2013 09:10:56 +0000
Subject: 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
---
 toplevel/stm.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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); 
-- 
cgit v1.2.3