diff options
| author | aspiwack | 2013-11-02 15:36:45 +0000 |
|---|---|---|
| committer | aspiwack | 2013-11-02 15:36:45 +0000 |
| commit | 07569af8e7528fc63b93824edd5253e8a92fc2c0 (patch) | |
| tree | 98dc680c84328710e07c4fe6b9780600f01baf1f /parsing | |
| parent | 49762f64a3616919dbfc1be09410cf830d168e70 (diff) | |
Fixes parsing of all: followed by a typechecking/evaluation command.
Exceptions raised during parsing are caught by the parser and result in weird
parsing behaviour. Instead I added a special case in vernac_expr which always
raises an error.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16988 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_vernac.ml4 | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index 30c88a11c0..81bd6a1084 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -138,11 +138,7 @@ GEXTEND Gram | Some (SelectNth g) -> c (Some g) | None -> c None | _ -> - (* arnaud: the error is raised bizarely: - "all:Check 0." doesn't do anything, then - inputing anything that ends with a period - (including " .") raises the error. *) - error "Typing and evaluation commands, cannot be used with the \"all:\" selector." + VernacError (UserError ("",str"Typing and evaluation commands, cannot be used with the \"all:\" selector.")) end | tac = Tactic.tactic; use_dft_tac = [ "." -> false | "..." -> true ] -> |