Move push_args closer to use

tools/ocamlmklib.ml

@@ -63,26 +63,25 @@ let print_version_num () =
   exit 0;
 ;;
 
-let push_args first arr stk =
-  for i = Array.length arr - 1 downto first do
-    Stack.push arr.(i) stk
-  done
-;;
-
 let parse_arguments argv =
   let args = Stack.create () in
-  push_args 1 argv args;
+  let push_args ~first arr =
+    for i = Array.length arr - 1 downto first do
+      Stack.push arr.(i) args
+    done
+  in
   let next_arg s =
     if Stack.is_empty args
     then raise (Bad_argument("Option " ^ s ^ " expects one argument"));
     Stack.pop args
   in
+  push_args ~first:1 argv;
   while not (Stack.is_empty args) do
     let s = Stack.pop args in
     if s = "-args" then
-      push_args 0 (Arg.read_arg (next_arg s)) args
+      push_args ~first:0 (Arg.read_arg (next_arg s))
     else if s = "-args0" then
-      push_args 0 (Arg.read_arg0 (next_arg s)) args
+      push_args ~first:0 (Arg.read_arg0 (next_arg s))
     else if ends_with s ".cmo" || ends_with s ".cma" then
       bytecode_objs := s :: !bytecode_objs
     else if ends_with s ".cmx" || ends_with s ".cmxa" then