minor fixes

Author: riaqn

ocaml/typing/typecore.ml

@@ -477,9 +477,6 @@ let mode_max =
 let mode_with_position mode position =
   { (mode_default mode) with position }
 
-let mode_with_position mode position =
-  { (mode_default mode) with position }
-
 let mode_max_with_position position =
   { mode_max with position }
 
@@ -553,7 +550,8 @@ let mode_argument ~funct ~index ~position_and_mode ~partial_app marg =
                 Id_prim _, _), 1, Tail ->
      (* RHS of (&&) and (||) is at the tail of function region if the
         application is. The argument mode is not constrained otherwise. *)
-     mode_with_position vmode (RTail (Option.get position_and_mode.region_mode, FTail))
+     mode_with_position vmode (RTail (Option.get position_and_mode.region_mode, FTail)),
+     vmode
   | Texp_ident (_, _, _, Id_prim _, _), _, _ ->
      (* Other primitives cannot be tail-called *)
      mode_default vmode, vmode