diff options
author | 2018-03-04 16:30:15 +0100 | |
---|---|---|
committer | 2018-03-04 16:30:15 +0100 | |
commit | 346e73cef9e4e89c90f9f6f7011d54e3a0a35d96 (patch) | |
tree | 07ccc997e8e13eac81d2c2a7dc5d63284dfbdf77 /plugins/ltac/extratactics.ml4 | |
parent | ed05111e048e864c63c2e21b8ebac675a80dc464 (diff) | |
parent | a131ebf7b66e31dea7d8ccfb9706ad6d8f4a12e0 (diff) |
Merge PR #6676: [proofview] goals come with a state
Diffstat (limited to 'plugins/ltac/extratactics.ml4')
-rw-r--r-- | plugins/ltac/extratactics.ml4 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/plugins/ltac/extratactics.ml4 b/plugins/ltac/extratactics.ml4 index 10be8a842..b61611145 100644 --- a/plugins/ltac/extratactics.ml4 +++ b/plugins/ltac/extratactics.ml4 @@ -973,6 +973,7 @@ TACTIC EXTEND unshelve | [ "unshelve" tactic1(t) ] -> [ Proofview.with_shelf (Tacinterp.tactic_of_value ist t) >>= fun (gls, ()) -> + let gls = List.map Proofview.with_empty_state gls in Proofview.Unsafe.tclGETGOALS >>= fun ogls -> Proofview.Unsafe.tclSETGOALS (gls @ ogls) ] |