From 49cedcb231548f50226331e729ed2734d61501c8 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Thu, 6 Jun 2019 09:20:20 +0200
Subject: STM: encode in static types that vernac_when is only used when
 VtSideff

The stm.ml changes show that for the other classifications either the
vernac_when was ignored, or there was an assert on it forcing it to be
Now or Later depending on the vernac_type.

One may also note that the classification used in top_printers
`VtQuery,VtNow` would have failed those asserts...
---
 dev/top_printers.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'dev')

diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index 4ce87faaa1..87b4d31054 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -533,7 +533,7 @@ let _ =
   let ty_constr = Extend.TUentry (get_arg_tag Stdarg.wit_constr) in
   let cmd_sig = TyTerminal("PrintConstr", TyNonTerminal(ty_constr, TyNil)) in
   let cmd_fn c ~atts = VtDefault (fun () -> in_current_context econstr_display c) in
-  let cmd_class _ = VtQuery,VtNow in
+  let cmd_class _ = VtQuery in
   let cmd : ty_ml = TyML (false, cmd_sig, cmd_fn, Some cmd_class) in
   vernac_extend ~command:"PrintConstr" [cmd]
 
@@ -542,7 +542,7 @@ let _ =
   let ty_constr = Extend.TUentry (get_arg_tag Stdarg.wit_constr) in
   let cmd_sig = TyTerminal("PrintPureConstr", TyNonTerminal(ty_constr, TyNil)) in
   let cmd_fn c ~atts = VtDefault (fun () -> in_current_context print_pure_econstr c) in
-  let cmd_class _ = VtQuery,VtNow in
+  let cmd_class _ = VtQuery in
   let cmd : ty_ml = TyML (false, cmd_sig, cmd_fn, Some cmd_class) in
   vernac_extend ~command:"PrintPureConstr" [cmd]
 
-- 
cgit v1.2.3


From 2e371e35b420e2f86f83cdac8b7a2c1816c40ef9 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Thu, 6 Jun 2019 13:37:45 +0200
Subject: Overlays for 10319

---
 dev/ci/user-overlays/10319-SkySkimmer-vernac-when-sideff.sh | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 dev/ci/user-overlays/10319-SkySkimmer-vernac-when-sideff.sh

(limited to 'dev')

diff --git a/dev/ci/user-overlays/10319-SkySkimmer-vernac-when-sideff.sh b/dev/ci/user-overlays/10319-SkySkimmer-vernac-when-sideff.sh
new file mode 100644
index 0000000000..c5f1510357
--- /dev/null
+++ b/dev/ci/user-overlays/10319-SkySkimmer-vernac-when-sideff.sh
@@ -0,0 +1,9 @@
+if [ "$CI_PULL_REQUEST" = "10319" ] || [ "$CI_BRANCH" = "vernac-when-sideff" ]; then
+
+    mtac2_CI_REF=vernac-when-sideff
+    mtac2_CI_GITURL=https://github.com/SkySkimmer/Mtac2
+
+    equations_CI_REF=vernac-when-sideff
+    equations_CI_GITURL=https://github.com/SkySkimmer/Coq-Equations
+
+fi
-- 
cgit v1.2.3