diff options
| author | Matej Kosik | 2015-12-16 15:38:19 +0100 |
|---|---|---|
| committer | Matej Kosik | 2015-12-18 15:58:28 +0100 |
| commit | 493b5d18971c8c19eaeccfc992d1212c6479d227 (patch) | |
| tree | d15001319d87e7c9cc1f191b04b1cf7a49b97524 /stm | |
| parent | c429770d4fc36497cfd02874a665c1ff2f1a0496 (diff) | |
CLEANUP: Removing "Vernacexpr.VernacNop" variant to which no Vernacular command is mapped.
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/texmacspp.ml | 1 | ||||
| -rw-r--r-- | stm/vernac_classifier.ml | 1 |
2 files changed, 0 insertions, 2 deletions
diff --git a/stm/texmacspp.ml b/stm/texmacspp.ml index 95aaea6f00..2a09143940 100644 --- a/stm/texmacspp.ml +++ b/stm/texmacspp.ml @@ -724,7 +724,6 @@ let rec tmpp v loc = | VernacRegister _ as x -> xmlTODO loc x | VernacComments (cl) -> xmlComment loc (List.flatten (List.map pp_comment cl)) - | VernacNop as x -> xmlTODO loc x (* Stm backdoor *) | VernacStm _ as x -> xmlTODO loc x diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index 32358c592b..90490c38bd 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -208,7 +208,6 @@ let rec classify_vernac e = | VernacResetName _ | VernacResetInitial | VernacBacktrack _ | VernacBackTo _ | VernacRestart -> !undo_classifier e (* What are these? *) - | VernacNop | VernacToplevelControl _ | VernacRestoreState _ | VernacWriteState _ -> VtUnknown, VtNow |