Rename variable.

Author: cristianoc

jscomp/ml/typecore.ml

@@ -2105,7 +2105,7 @@ and type_expect_ ?in_function ?(recarg=Rejected) env sexp ty_expected =
         let lbl_exp_list =
           wrap_disambiguate "This record expression is expected to have" ty_record
             (type_label_a_list loc true env
-               (fun x k -> k (type_label_exp true env loc ty_record (process_optional_label x)))
+               (fun e k -> k (type_label_exp true env loc ty_record (process_optional_label e)))
                opath lid_sexp_list)
             (fun x -> x)
         in
@@ -2175,8 +2175,8 @@ and type_expect_ ?in_function ?(recarg=Rejected) env sexp ty_expected =
       let lbl_exp_list =
         wrap_disambiguate "This record expression is expected to have" ty_record
           (type_label_a_list loc closed env
-             (fun x k ->
-               k (type_label_exp true env loc ty_record (process_optional_label x)))
+             (fun e k ->
+               k (type_label_exp true env loc ty_record (process_optional_label e)))
              opath lid_sexp_list)
           (fun x -> x)
       in