diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-29 11:09:38 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-05-29 11:09:38 +0000 |
| commit | 743bac5fd408f2174def78cfa787e79774deea2d (patch) | |
| tree | 3c65e96dc8ca2c9d2d1584f1c7775fc5b6a24ebb /toplevel/vernac.ml | |
| parent | e9e9b1b8bfbd055e3d422205ab78a486d2026324 (diff) | |
Re-allow Time Back* (cf discussion on coq-club)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15394 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/vernac.ml')
| -rw-r--r-- | toplevel/vernac.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index 3f3453b81..8aaa82a3b 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -35,10 +35,11 @@ let rec is_navigation_vernac = function | VernacBacktrack _ | VernacBackTo _ | VernacBack _ -> true + | VernacTime c -> is_navigation_vernac c (* Time Back* is harmless *) | c -> is_deep_navigation_vernac c and is_deep_navigation_vernac = function - | VernacTime c | VernacTimeout (_,c) | VernacFail c -> is_navigation_vernac c + | VernacTimeout (_,c) | VernacFail c -> is_navigation_vernac c | VernacList l -> List.exists (fun (_,c) -> is_navigation_vernac c) l | _ -> false |