diff options
| -rw-r--r-- | toplevel/stm.ml | 4 |
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); |