diff options
| author | Enrico Tassi | 2018-04-04 10:09:29 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2018-04-04 10:09:29 +0200 |
| commit | 630cdb53a6ba180f4d67cb1e848978239a0d09ea (patch) | |
| tree | 1c6d3d939391e69476f6a818f78199029b3fb02f /vernac | |
| parent | 9354d282d2b2be59c323778a3e7132a622f07a5d (diff) | |
| parent | 8b15eee6125f7f8596f17e9c982fb944a5e3f9be (diff) | |
Merge PR #7138: [stm] Move VernacBacktrack to the toplevel.
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/vernacentries.ml | 1 | ||||
| -rw-r--r-- | vernac/vernacprop.ml | 1 |
2 files changed, 0 insertions, 2 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 5dcc170b10..0e8ca22899 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -2008,7 +2008,6 @@ let interp ?proof ~atts ~st c = | VernacRestart -> CErrors.user_err (str "Restart cannot be used through the Load command") | VernacUndo _ -> CErrors.user_err (str "Undo cannot be used through the Load command") | 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") (* Resetting *) | VernacResetName _ -> anomaly (str "VernacResetName not handled by Stm.") diff --git a/vernac/vernacprop.ml b/vernac/vernacprop.ml index a837b77a33..0fdd2faafa 100644 --- a/vernac/vernacprop.ml +++ b/vernac/vernacprop.ml @@ -31,7 +31,6 @@ let rec has_Fail = function let is_navigation_vernac_expr = function | VernacResetInitial | VernacResetName _ - | VernacBacktrack _ | VernacBackTo _ | VernacBack _ -> true | _ -> false |