diff options
| author |  aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-02 15:36:45 +0000 |
|---|---|---|
| committer | aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-11-02 15:36:45 +0000 |
| commit | 07569af8e7528fc63b93824edd5253e8a92fc2c0 (patch) | |
| tree | 98dc680c84328710e07c4fe6b9780600f01baf1f /printing | |
| 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 'printing')
| -rw-r--r-- | printing/ppvernac.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 5345d40e2..441e362b1 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -538,6 +538,7 @@ let rec pr_vernac = function | VernacTime v -> str"Time" ++ spc() ++ pr_vernac v | VernacTimeout(n,v) -> str"Timeout " ++ int n ++ spc() ++ pr_vernac v | VernacFail v -> str"Fail" ++ spc() ++ pr_vernac v + | VernacError _ -> str"No-parsing-rule for VernacError" (* Syntax *) | VernacTacticNotation (n,r,e) -> |