diff options
| author | Emilio Jesus Gallego Arias | 2017-06-07 21:31:40 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2017-06-07 21:31:40 +0200 |
| commit | 168c8db946494694c5c32b9f2345c9a2830f03da (patch) | |
| tree | e737b418b68a2d416de094b2e78eb94a93929d9a | |
| parent | 73fd3afba9e8917dfc0644d1d8d9b22063cfa2fe (diff) | |
[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 a79bf54267..11aca16272 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) | _ -> |