Micheline: lexing bug fix
This commit is contained in:
parent
bb37e04340
commit
f119a9b2a5
@ -240,7 +240,7 @@ let tokenize source =
|
|||||||
skip (tok stop :: acc)
|
skip (tok stop :: acc)
|
||||||
end
|
end
|
||||||
| (`End, stop) as other ->
|
| (`End, stop) as other ->
|
||||||
if first && base = `bin || base = `hex then begin
|
if first && (base = `bin || base = `hex) then begin
|
||||||
errors := Unterminated_integer { start ; stop } :: !errors
|
errors := Unterminated_integer { start ; stop } :: !errors
|
||||||
end ;
|
end ;
|
||||||
back other ;
|
back other ;
|
||||||
|
Loading…
Reference in New Issue
Block a user