Fix 4.02 build

Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
This commit is contained in:
Jeremie Dimino 2018-08-22 17:16:12 +01:00 committed by Rudi Grinberg
parent a5313be3ac
commit c66a181884
1 changed files with 1 additions and 2 deletions

View File

@ -44,8 +44,7 @@ let equal_position
{ Lexing.pos_fname = f_b; pos_lnum = l_b
; pos_bol = b_b; pos_cnum = c_b }
=
let open Int.Infix in
Caml.String.equal f_a f_b
f_a = f_b
&& l_a = l_b
&& b_a = b_b
&& c_a = c_b