diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-06-15 22:08:59 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-06-15 22:08:59 +0200 |
| commit | 1d3703be3ab41d016c776bb29d9f5eff0cdb401d (patch) | |
| tree | 21ad95c6fc06912b14adbd5bd67d16551966cf8f | |
| parent | 481479f4ffe7f130293ab974dc38031ad5ceac58 (diff) | |
| parent | 168c8db946494694c5c32b9f2345c9a2830f03da (diff) | |
Merge PR#748: [stm] More fixes for nested commands [bugzilla 5589]
| -rw-r--r-- | stm/stm.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 1580b451d..8ca50e2d5 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -2046,7 +2046,8 @@ let collect_proof keep cur hd brkind id = | `ASync(_,pua,_,name,_) -> `Sync (name,pua,why) in let check_policy rc = if async_policy () then rc else make_sync `Policy rc in match cur, (VCS.visit id).step, brkind with - | (parent, { expr = VernacExactProof _ }), `Fork _, _ -> + | (parent, { expr = VernacExactProof _ }), `Fork _, _ + | (parent, { expr = VernacTime (_, VernacExactProof _) }), `Fork _, _ -> `Sync (no_name,None,`Immediate) | _, _, { VCS.kind = `Edit _ } -> check_policy (collect (Some cur) [] id) | _ -> |