From 75f569f35fbbbbab5a4629eaf3385335a3024e0b Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Sun, 11 Mar 2018 03:16:09 +0100
Subject: [vernac] Move `Quit` and `Drop` to the toplevel layer.

This is a first step towards moving REPL-specific commands out of the
core layers. In particular, we remove `Quit` and `Drop` from the core
vernacular to specific toplevel-level parsing rules.
---
 vernac/vernacentries.ml | 3 ---
 vernac/vernacinterp.ml  | 1 -
 2 files changed, 4 deletions(-)

(limited to 'vernac')

diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml
index 3dbe8b0c09..9ff4e33020 100644
--- a/vernac/vernacentries.ml
+++ b/vernac/vernacentries.ml
@@ -2010,9 +2010,6 @@ let interp ?proof ~atts ~st c =
   | VernacUndoTo _    -> CErrors.user_err  (str "UndoTo cannot be used through the Load command")
   | VernacBacktrack _ -> CErrors.user_err  (str "Backtrack cannot be used through the Load command")
 
-  (* Toplevel control *)
-  | VernacToplevelControl e -> raise e
-
   (* Resetting *)
   | VernacResetName _  -> anomaly (str "VernacResetName not handled by Stm.")
   | VernacResetInitial -> anomaly (str "VernacResetInitial not handled by Stm.")
diff --git a/vernac/vernacinterp.ml b/vernac/vernacinterp.ml
index 1f2d2e4b42..d4f2a753ff 100644
--- a/vernac/vernacinterp.ml
+++ b/vernac/vernacinterp.ml
@@ -79,7 +79,6 @@ let call opn converted_args ~atts ~st =
     phase := "Executing command";
     hunk ~atts ~st
   with
-    | Drop -> raise Drop
     | reraise ->
         let reraise = CErrors.push reraise in
         if !Flags.debug then
-- 
cgit v1.2.3