diff options
| author | Maxime Dénès | 2017-12-11 11:30:55 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-12-11 11:30:55 +0100 |
| commit | 98c0c64749b6656df2a6522a3277ca2b96ae58ba (patch) | |
| tree | e8d44694ca9791ddd1c37c27fefac4eccab39992 /stm | |
| parent | 4e6012d60555a22ccd0f0aa408ec47aa0d5de45e (diff) | |
| parent | c78de8b5456fdaf2067b6b2d5c128923b4cda7fc (diff) | |
Merge PR #1150: [stm] Remove all but one use of VtUnknown.
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/vernac_classifier.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index 1ca572a36c..c5ae27a110 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -185,12 +185,12 @@ let rec classify_vernac e = (* These commands alter the parser *) | VernacOpenCloseScope _ | VernacDelimiters _ | VernacBindScope _ | VernacInfix _ | VernacNotation _ | VernacNotationAddFormat _ - | VernacSyntaxExtension _ + | VernacSyntaxExtension _ | VernacSyntacticDefinition _ | VernacRequire _ | VernacImport _ | VernacInclude _ | VernacDeclareMLModule _ | VernacContext _ (* TASSI: unsure *) - | VernacProofMode _ + | VernacProofMode _ -> VtSideff [], VtNow (* These are ambiguous *) | VernacInstance _ -> VtUnknown, VtNow (* Stm will install a new classifier to handle these *) @@ -201,7 +201,7 @@ let rec classify_vernac e = (* What are these? *) | VernacToplevelControl _ | VernacRestoreState _ - | VernacWriteState _ -> VtUnknown, VtNow + | VernacWriteState _ -> VtSideff [], VtNow (* Plugins should classify their commands *) | VernacExtend (s,l) -> try List.assoc s !classifiers l () |