diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1999-05-15 15:09:35 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1999-05-15 15:09:35 +0000 |
| commit | e7a48b29adef9dd89a70724341e3f4dd4c4fa1e4 (patch) | |
| tree | 6e09ba0d9a61c2b302ed08fdb2377b9b6287d0f6 | |
| parent | ca030d44a0a8ea1d8c3aa8b17d557513aae88173 (diff) | |
Permettre _ en tete des idents
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2369 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | debugger/lexer.mll | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/debugger/lexer.mll b/debugger/lexer.mll index bd3234698..b6a395ea8 100644 --- a/debugger/lexer.mll +++ b/debugger/lexer.mll @@ -51,7 +51,7 @@ and lexeme = (* Read a lexeme *) parse [' ' '\t'] + { lexeme lexbuf } - | ['a'-'z' '\223'-'\246' '\248'-'\255' ] + | ['a'-'z' '\223'-'\246' '\248'-'\255' '_'] (['A'-'Z' 'a'-'z' '_' '\192'-'\214' '\216'-'\246' '\248'-'\255' '\'' '0'-'9' ]) * { LIDENT(Lexing.lexeme lexbuf) } |