From 8da77fc099183c5c79fdb433b3555a63adba820d Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Thu, 28 Jun 2018 19:29:06 +0200 Subject: Classify "Declare Custom" as VtNow for the stm. When parsing of a document shall be possible independently of interpretation, this shall however be indicated as shall be interpreted now so that the notation commands coming next work. --- stm/vernac_classifier.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index a9a27e8100..2170477938 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -155,6 +155,7 @@ let classify_vernac e = | VernacDeclareClass _ | VernacDeclareInstances _ | VernacRegister _ | VernacNameSectionHypSet _ + | VernacDeclareCustomEntry _ | VernacComments _ -> VtSideff [], VtLater (* Who knows *) | VernacLoad _ -> VtSideff [], VtNow @@ -169,7 +170,7 @@ let classify_vernac e = (* These commands alter the parser *) | VernacOpenCloseScope _ | VernacDelimiters _ | VernacBindScope _ | VernacInfix _ | VernacNotation _ | VernacNotationAddFormat _ - | VernacSyntaxExtension _ | VernacDeclareCustomEntry _ + | VernacSyntaxExtension _ | VernacSyntacticDefinition _ | VernacRequire _ | VernacImport _ | VernacInclude _ | VernacDeclareMLModule _ -- cgit v1.2.3