From f119a9b2a5b4a44bd35f638097b0501bf01b0eb8 Mon Sep 17 00:00:00 2001
From: Benjamin Canou <benjamin@canou.fr>
Date: Mon, 30 Apr 2018 19:14:11 +0200
Subject: [PATCH] Micheline: lexing bug fix

---
 src/lib_micheline/micheline_parser.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lib_micheline/micheline_parser.ml b/src/lib_micheline/micheline_parser.ml
index b8c01a401..bcaf38927 100644
--- a/src/lib_micheline/micheline_parser.ml
+++ b/src/lib_micheline/micheline_parser.ml
@@ -240,7 +240,7 @@ let tokenize source =
               skip (tok stop :: acc)
         end
     | (`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
         end ;
         back other ;