diff options
author | 2017-01-23 22:21:11 +0100 | |
---|---|---|
committer | 2017-02-15 20:45:28 +0100 | |
commit | fc6e78be83cef6e9b249ca146ef749ba90eb802c (patch) | |
tree | 4b5a23fd61588abf4a1bfc30a9a2abbd0fa459d9 /vernac | |
parent | fa9df2efe5666789bf91bb7761567cd53e6c451f (diff) |
[stm] Reenable Show Script command.
We extend `Stm.vernac_interp` so it can handle the commands it should
by level. This reenables `Show Script` handling, and this
interpretation function should handle more commands in the future such
as Load.
However note that we must first refactor the parsing state handling a
bit and remove the legacy `Stm.interp` before that.
Diffstat (limited to 'vernac')
-rw-r--r-- | vernac/vernacentries.ml | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 15f89e4b8..0bf81e7e5 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -515,13 +515,8 @@ let vernac_start_proof locality p kind l lettop = let qed_display_script = ref true let vernac_end_proof ?proof = function - | Admitted -> save_proof ?proof Admitted - | Proved (_,_) as e -> - (* - if is_verbose () && !qed_display_script && !Flags.coqtop_ui then - Stm.show_script ?proof (); - *) - save_proof ?proof e + | Admitted -> save_proof ?proof Admitted + | Proved (_,_) as e -> save_proof ?proof e (* A stupid macro that should be replaced by ``Exact c. Save.'' all along the theories [??] *) @@ -1870,6 +1865,7 @@ let vernac_bullet (bullet:Proof_global.Bullet.t) = Proof_global.Bullet.put p bullet) let vernac_show = let open Feedback in function + | ShowScript -> assert false (* Only the stm knows the script *) | ShowGoal goalref -> let info = match goalref with | OpenSubgoals -> pr_open_subgoals () @@ -1884,7 +1880,6 @@ let vernac_show = let open Feedback in function Constrextern.with_implicits msg_notice (pr_nth_open_subgoal n) | ShowProof -> show_proof () | ShowNode -> show_node () - | ShowScript -> (* Stm.show_script () *) () | ShowExistentials -> show_top_evars () | ShowUniverses -> show_universes () | ShowTree -> show_prooftree () |