diff options
| -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 ba128be5f3..26377013f0 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 |