diff options
| author | Enrico Tassi | 2018-03-26 14:01:52 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2018-03-26 14:01:52 +0200 |
| commit | c1dcb97cf95c10d19f67689108da8726232da4fb (patch) | |
| tree | 54b60698a12d133cccd822f323cec582ac0e9e6a /vernac | |
| parent | e128900aee63c972d7977fd47e3fd21649b63409 (diff) | |
| parent | 75f569f35fbbbbab5a4629eaf3385335a3024e0b (diff) | |
Merge PR #6970: [vernac] Move `Quit` and `Drop` to the toplevel layer.
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 |