diff options
| author | Enrico Tassi | 2014-10-15 08:40:13 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2014-10-15 08:40:13 +0200 |
| commit | 4703e70b4086bcc14fdd06b3afd98cad0b45157f (patch) | |
| tree | f2a7b925d48ca6ca71d2ae49c310e5c3d934f8fd /stm | |
| parent | 01fa046646398890e64d6effbefd1d2a792dff4e (diff) | |
Fix -async-proofs-always-delegate (close 3740)
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 450259eec0..705d427f4b 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -1228,8 +1228,7 @@ let collect_proof keep cur hd brkind id = else `Sync (name,proof_using_ast last,`Policy) | `Fork((_, hd', GuaranteesOpacity, ids), _) when has_proof_no_using last && not (State.is_cached (parent last)) && - (!Flags.compilation_mode = Flags.BuildVi || - !Flags.async_proofs_always_delegate) -> + !Flags.compilation_mode = Flags.BuildVi -> (try let name = name ids in let hint, time = get_hint_ctx loc, get_hint_bp_time name in |