aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--contrib/interface/centaur.ml43
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/interface/centaur.ml4 b/contrib/interface/centaur.ml4
index 78de2fb02..10fcf37f2 100644
--- a/contrib/interface/centaur.ml4
+++ b/contrib/interface/centaur.ml4
@@ -586,7 +586,8 @@ open Vernacentries
let pcoq_show_goal = function
| Some n -> show_nth n
| None ->
- if !pcoq_started = Some true (* = debug *) then show_open_subgoals ()
+ if !pcoq_started = Some true (* = debug *) then
+ msg (Pfedit.pr_open_subgoals ())
else errorlabstrm "show_goal"
(str "Show must be followed by an integer in Centaur mode");;