diff options
| author | Maxime Dénès | 2017-09-18 13:27:20 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-09-19 11:43:42 +0200 |
| commit | 84accdaea3ce094cc5d0232107d3e2ea654a76c2 (patch) | |
| tree | eab140c332984b597536d1cabdf9b2ecd474b929 /vernac | |
| parent | d87bc5b9fb353655f8b905d73293abe96b0ad063 (diff) | |
Remove STM vernaculars.
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/vernacentries.ml | 5 | ||||
| -rw-r--r-- | vernac/vernacprop.ml | 3 |
2 files changed, 1 insertions, 7 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 4fd08b42d4..cfdbe43c4f 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -1924,7 +1924,6 @@ let interp ?proof ?loc locality poly c = | VernacTime _ -> assert false | VernacRedirect _ -> assert false | VernacTimeout _ -> assert false - | VernacStm _ -> assert false (* The STM should handle that, but LOAD bypasses the STM... *) | VernacAbortAll -> CErrors.user_err (str "AbortAll cannot be used through the Load command") @@ -2185,10 +2184,6 @@ let interp ?(verbosely=true) ?proof (loc,c) = let orig_program_mode = Flags.is_program_mode () in let rec aux ?locality ?polymorphism isprogcmd = function - (* This assert case will be removed when fake_ide can understand - completion feedback *) - | VernacStm _ -> assert false (* Done by Stm *) - | VernacProgram c when not isprogcmd -> aux ?locality ?polymorphism true c | VernacProgram _ -> user_err Pp.(str "Program mode specified twice") | VernacLocal (b, c) when Option.is_empty locality -> diff --git a/vernac/vernacprop.ml b/vernac/vernacprop.ml index fc11bcf4a0..3cff1f14c0 100644 --- a/vernac/vernacprop.ml +++ b/vernac/vernacprop.ml @@ -17,8 +17,7 @@ let rec is_navigation_vernac = function | VernacResetName _ | VernacBacktrack _ | VernacBackTo _ - | VernacBack _ - | VernacStm _ -> true + | VernacBack _ -> true | VernacRedirect (_, (_,c)) | VernacTime (_,c) -> is_navigation_vernac c (* Time Back* is harmless *) |