diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-26 23:00:58 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-26 23:00:58 +0000 |
| commit | a3b28cad6d5a0cb731c6f2e54980ffec59aed371 (patch) | |
| tree | 0fcd392f271b5b06266ec1b1c1a88dcc91c303a0 /parsing/vernacextend.ml4 | |
| parent | 993b785abefb2c1bcc0428836a601e73bae6a344 (diff) | |
Protection contre les notations vides
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4999 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/vernacextend.ml4')
| -rw-r--r-- | parsing/vernacextend.ml4 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/parsing/vernacextend.ml4 b/parsing/vernacextend.ml4 index 3fad196f9..127b411b5 100644 --- a/parsing/vernacextend.ml4 +++ b/parsing/vernacextend.ml4 @@ -145,7 +145,9 @@ EXTEND ; rule: [ [ "["; s = STRING; l = LIST0 args; "]"; "->"; "["; e = Pcaml.expr; "]" - -> (s,l,<:expr< fun () -> $e$ >>) + -> + if s = "" then Util.user_err_loc (loc,"",Pp.str "Command name is empty"); + (s,l,<:expr< fun () -> $e$ >>) ] ] ; args: |