diff options
| author | Emilio Jesus Gallego Arias | 2018-03-11 03:16:09 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2018-03-11 08:59:58 +0100 |
| commit | 75f569f35fbbbbab5a4629eaf3385335a3024e0b (patch) | |
| tree | 3faa24d7bec202affef352dff09cbbffbd31b26f /vernac | |
| parent | 33c5d8d00cb017c61141ee0d6b7cb8f672a3e691 (diff) | |
[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.
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/vernacentries.ml | 3 | ||||
| -rw-r--r-- | vernac/vernacinterp.ml | 1 |
2 files changed, 0 insertions, 4 deletions
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 |