Fix 4.02 build
Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
This commit is contained in:
parent
a5313be3ac
commit
c66a181884
|
@ -44,8 +44,7 @@ let equal_position
|
||||||
{ Lexing.pos_fname = f_b; pos_lnum = l_b
|
{ Lexing.pos_fname = f_b; pos_lnum = l_b
|
||||||
; pos_bol = b_b; pos_cnum = c_b }
|
; pos_bol = b_b; pos_cnum = c_b }
|
||||||
=
|
=
|
||||||
let open Int.Infix in
|
f_a = f_b
|
||||||
Caml.String.equal f_a f_b
|
|
||||||
&& l_a = l_b
|
&& l_a = l_b
|
||||||
&& b_a = b_b
|
&& b_a = b_b
|
||||||
&& c_a = c_b
|
&& c_a = c_b
|
||||||
|
|
Loading…
Reference in New Issue