Commit 84a42fab authored by bguillaum's avatar bguillaum

identifier cannot end with a '-' (to avoid syntax error on "A-[x]->B" where...

identifier cannot end with a '-' (to avoid syntax error on "A-[x]->B" where "A-" was considered as a token)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@6810 7838e531-6607-4d57-9587-6c381814729c
parent b9dd0898
......@@ -17,7 +17,9 @@
let digit = ['0'-'9']
let letter = ['a'-'z' 'A'-'Z']
let ident = (letter | '_') (letter | digit | '_' | '\'' | '-')*
(* an identifier is either a single letter or its lenght is >=2 and it doesn't end with a '-' *)
let ident = letter | (letter | '_') (letter | digit | '_' | '\'' | '-')* (letter | digit | '_' | '\'')
rule comment target = parse
| '\n' { incr Parser_global.current_line; Lexing.new_line lexbuf; target lexbuf }
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment