diff options
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernac.ml | 1 | ||||
| -rw-r--r-- | toplevel/vernacentries.ml | 1 |
2 files changed, 0 insertions, 2 deletions
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") |