Commit c5110182 authored by Kim Nguyễn's avatar Kim Nguyễn
Browse files

Fix handling of unary minus in the lexer.

parent d782e892
...@@ -116,7 +116,7 @@ let rec token lexbuf = ...@@ -116,7 +116,7 @@ let rec token lexbuf =
let s = L.Utf8.sub_lexeme lexbuf 0 (L.lexeme_length lexbuf - 2) in let s = L.Utf8.sub_lexeme lexbuf 0 (L.lexeme_length lexbuf - 2) in
ANY_IN_NS s ANY_IN_NS s
| ".:*" -> ANY_IN_NS "" | ".:*" -> ANY_IN_NS ""
| Opt '-', Plus '0' .. '9' -> INT (L.Utf8.lexeme lexbuf) | Plus '0' .. '9' -> INT (L.Utf8.lexeme lexbuf)
| "(" -> LP | "(" -> LP
| ")" -> RP | ")" -> RP
| "[" -> LSB | "[" -> LSB
......
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