aboutsummaryrefslogtreecommitdiff
path: root/plugins/ltac
diff options
context:
space:
mode:
authorcoqbot-app[bot]2021-01-28 14:35:31 +0000
committerGitHub2021-01-28 14:35:31 +0000
commit90b79076305d8b9ceb92f81a99bf0a9d423903ee (patch)
tree2fe8c36ec91ab01281e5d22fe972feb3591fd07b /plugins/ltac
parent8d697d8a4fe7165b736736196b167c5dc4725583 (diff)
parent6e41dd8c6ba0279b9c882c02053c4d34eb251971 (diff)
Merge PR #13790: [vernac] Check that no proofs do remain open at section/module closing time
Reviewed-by: SkySkimmer
Diffstat (limited to 'plugins/ltac')
-rw-r--r--plugins/ltac/g_obligations.mlg8
1 files changed, 4 insertions, 4 deletions
diff --git a/plugins/ltac/g_obligations.mlg b/plugins/ltac/g_obligations.mlg
index 6bf330c830..e7902d06eb 100644
--- a/plugins/ltac/g_obligations.mlg
+++ b/plugins/ltac/g_obligations.mlg
@@ -151,13 +151,13 @@ VERNAC COMMAND EXTEND Show_Solver CLASSIFIED AS QUERY
END
VERNAC COMMAND EXTEND Show_Obligations CLASSIFIED AS QUERY STATE read_program
-| [ "Obligations" "of" ident(name) ] -> { show_obligations (Some name) }
-| [ "Obligations" ] -> { show_obligations None }
+| [ "Obligations" "of" ident(name) ] -> { fun ~stack:_ -> show_obligations (Some name) }
+| [ "Obligations" ] -> { fun ~stack:_ -> show_obligations None }
END
VERNAC COMMAND EXTEND Show_Preterm CLASSIFIED AS QUERY STATE read_program
-| [ "Preterm" "of" ident(name) ] -> { fun ~pm -> Feedback.msg_notice (show_term ~pm (Some name)) }
-| [ "Preterm" ] -> { fun ~pm -> Feedback.msg_notice (show_term ~pm None) }
+| [ "Preterm" "of" ident(name) ] -> { fun ~stack:_ ~pm -> Feedback.msg_notice (show_term ~pm (Some name)) }
+| [ "Preterm" ] -> { fun ~stack:_ ~pm -> Feedback.msg_notice (show_term ~pm None) }
END
{