Micheline: lexing bug fix

This commit is contained in:
Benjamin Canou 2018-04-30 19:14:11 +02:00 committed by Grégoire Henry
parent bb37e04340
commit f119a9b2a5

View File

@ -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 ;