diff options
| author |  amahboub <amahboub@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-10-31 07:16:52 +0000 |
|---|---|---|
| committer | amahboub <amahboub@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-10-31 07:16:52 +0000 |
| commit | e697a1ee04e201b90bab3783b40f52841ef12fc0 (patch) | |
| tree | 72e81d81e9823d1aba32632910f25569ceb18c31 | |
| parent | 8f2e16b7ef5178ff89a57adca2a3223407a256d6 (diff) | |
allowed patternidents starting with an '_'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11526 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/lexer.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/lexer.ml4 b/parsing/lexer.ml4 index ba128be5f..26377013f 100644 --- a/parsing/lexer.ml4 +++ b/parsing/lexer.ml4 @@ -387,7 +387,7 @@ let parse_after_dot bp c = (* Parse what follows a question mark *) let parse_after_qmark bp s = match Stream.peek s with - |Some ('a'..'z' | 'A'..'Z') -> ("LEFTQMARK", "") + |Some ('a'..'z' | 'A'..'Z' | '_') -> ("LEFTQMARK", "") |None -> ("","?") | _ -> match lookup_utf8 s with |