diff options
| author | Enrico Tassi | 2014-07-11 10:34:55 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2014-07-11 10:35:16 +0200 |
| commit | 58270be4668ab87e5f2d0d06c820bd457ae1aa01 (patch) | |
| tree | 42d4e399ef829f45f02d0c496c955d380acb4ab0 /stm | |
| parent | d15b6418d6f7071b6d85b286d60e645dcd0123b5 (diff) | |
STM: flag to turn off branch reopening
This is useful if a UI does not support that
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 8b44e3dbf8..659cfe3c8d 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -1232,7 +1232,7 @@ let collect_proof cur hd brkind id = if is_defined cur then `Sync (no_name,`Transparent) else let rc = collect (Some cur) [] id in - if not (State.is_cached id) then rc + if not (State.is_cached id) || !Flags.async_proofs_always_delegate then rc else (* we already have the proof, no gain in delaying *) match rc with | `Sync(name,_) -> `Sync (name,`AlreadyEvaluated) @@ -1920,7 +1920,7 @@ let edit_at id = | _, Some _, None -> assert false | false, Some qed_id, Some mode -> let tip = VCS.cur_tip () in - if has_failed qed_id then reopen_branch id mode qed_id tip + if has_failed qed_id && not !Flags.async_proofs_never_reopen_branch then reopen_branch id mode qed_id tip else backto id | true, Some qed_id, Some mode -> if on_cur_branch id then begin |