From 493b5d18971c8c19eaeccfc992d1212c6479d227 Mon Sep 17 00:00:00 2001
From: Matej Kosik
Date: Wed, 16 Dec 2015 15:38:19 +0100
Subject: CLEANUP: Removing "Vernacexpr.VernacNop" variant to which no
 Vernacular command is mapped.

---
 toplevel/vernac.ml        | 1 -
 toplevel/vernacentries.ml | 1 -
 2 files changed, 2 deletions(-)

(limited to 'toplevel')

diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml
index f61129045b..7b80becda1 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 2f435adfec..010a0afe40 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")
-- 
cgit v1.2.3