diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-12-15 11:25:54 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-12-15 13:31:30 +0100 |
| commit | 8b15e47a6b3ccae696da8e12dbad81ae0a740782 (patch) | |
| tree | fdad210668e7128acf5631d2ab3180260ca693d5 | |
| parent | 4b197ed247d1f30ff40fa59f85b070766f305bea (diff) | |
Changing the order of the goals generated by unshelve.
| -rw-r--r-- | tactics/extratactics.ml4 | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tactics/extratactics.ml4 b/tactics/extratactics.ml4 index 827d2e25a..35efb0b65 100644 --- a/tactics/extratactics.ml4 +++ b/tactics/extratactics.ml4 @@ -867,10 +867,11 @@ END (* Unshelves the goal shelved by the tactic. *) TACTIC EXTEND unshelve -| [ "unshelve" tactic0(t) ] -> +| [ "unshelve" tactic1(t) ] -> [ Proofview.with_shelf (Tacinterp.eval_tactic t) >>= fun (gls, ()) -> - Proofview.Unsafe.tclNEWGOALS gls + Proofview.Unsafe.tclGETGOALS >>= fun ogls -> + Proofview.Unsafe.tclSETGOALS (gls @ ogls) ] END |