CLEANUP: Removing "Vernacexpr.VernacNop" variant to which no Vernacular command is mapped.

6 files changed, 0 insertions, 7 deletions

diff --git a/intf/vernacexpr.mli b/intf/vernacexpr.mli
index 32c0f2975..0e659459e 100644
--- a/intf/vernacexpr.mli
+++ b/intf/vernacexpr.mli
@@ -420,7 +420,6 @@ type vernac_expr =
   | VernacLocate of locatable
   | VernacRegister of lident * register_kind
   | VernacComments of comment list
-  | VernacNop
 
   (* Stm backdoor *)
   | VernacStm of vernac_expr stm_vernac
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml
index 0f065e251..5110cf7b2 100644
--- a/printing/ppvernac.ml
+++ b/printing/ppvernac.ml
@@ -1224,8 +1224,6 @@ module Make
               (keyword "Comments" ++ spc()
                ++ prlist_with_sep sep (pr_comment pr_constr) l)
           )
-        | VernacNop ->
-          mt()
 
         (* Toplevel control *)
         | VernacToplevelControl exn ->
diff --git a/stm/texmacspp.ml b/stm/texmacspp.ml
index 95aaea6f0..2a0914394 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 32358c592..90490c38b 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
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml
index f61129045..7b80becda 100644
--- a/toplevel/vernac.ml
+++ b/toplevel/vernac.ml
@@ -150,7 +150,6 @@ let pr_new_syntax loc ocom =
   if !beautify_file then set_formatter_translator();
   let fs = States.freeze ~marshallable:`No in
   let com = match ocom with
-    | Some VernacNop -> mt()
     | Some com -> Ppvernac.pr_vernac com
     | None -> mt() in
   if !beautify_file then
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml
index 2f435adfe..010a0afe4 100644
--- a/toplevel/vernacentries.ml
+++ b/toplevel/vernacentries.ml
@@ -1963,7 +1963,6 @@ let interp ?proof ~loc locality poly c =
   | VernacLocate l -> vernac_locate l
   | VernacRegister (id, r) -> vernac_register id r
   | VernacComments l -> if_verbose msg_info (str "Comments ok\n")
-  | VernacNop -> ()
 
   (* The STM should handle that, but LOAD bypasses the STM... *)
   | VernacAbort id -> msg_warning (str "VernacAbort not handled by Stm")