diff options
author | 2015-04-23 01:14:49 -0400 | |
---|---|---|
committer | 2015-05-04 13:17:23 +0200 | |
commit | 2a295131a1a72dd56e6e7abdeaeca07b1b69ab6d (patch) | |
tree | f23c8dc1ce9238ebf5cb05f61f57aa21dd8ee8ca /toplevel/vernac.ml | |
parent | f19d0c7baf91fb410de77baed391b0a16db9c4e2 (diff) |
Add a [Redirect] vernacular command
The command [Redirect "filename" (...)] redirects all the output of
[(...)] to file "filename.out". This is useful for storing the results of
an [Eval compute], for redirecting the results of a large search, for
automatically generating traces of interesting developments, and so on.
Diffstat (limited to 'toplevel/vernac.ml')
-rw-r--r-- | toplevel/vernac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index b3694d0e9..11cb047e0 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -27,7 +27,7 @@ let rec is_navigation_vernac = function | VernacBacktrack _ | VernacBackTo _ | VernacBack _ -> true - | VernacTime l -> + | VernacRedirect (_, l) | VernacTime l -> List.exists (fun (_,c) -> is_navigation_vernac c) l (* Time Back* is harmless *) | c -> is_deep_navigation_vernac c |