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...
---
 user-contrib/Ltac2/g_ltac2.mlg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'user-contrib')

diff --git a/user-contrib/Ltac2/g_ltac2.mlg b/user-contrib/Ltac2/g_ltac2.mlg
index bd1f925486..930be257e3 100644
--- a/user-contrib/Ltac2/g_ltac2.mlg
+++ b/user-contrib/Ltac2/g_ltac2.mlg
@@ -884,7 +884,7 @@ END
 {
 
 let classify_ltac2 = function
-| StrSyn _ -> Vernacextend.(VtSideff [], VtNow)
+| StrSyn _ -> Vernacextend.(VtSideff ([], VtNow))
 | StrMut _ | StrVal _ | StrPrm _  | StrTyp _ -> Vernacextend.classify_as_sideeff
 
 }
-- 
cgit v1.2.3