Make compiler libs ready for uncurried.

Adapt cases of partial applications.
Following from #6764

Author: cristianoc

jscomp/runtime/caml_obj.res

@@ -283,8 +283,8 @@ and aux_obj_compare = (a: Obj.t, b: Obj.t) => {
       }
     }
 
-  let do_key_a = do_key((a, b, min_key_rhs))
-  let do_key_b = do_key((b, a, min_key_lhs))
+  let do_key_a = key => do_key((a, b, min_key_rhs), key)
+  let do_key_b = key => do_key((b, a, min_key_lhs), key)
   O.for_in(a, do_key_a)
   O.for_in(b, do_key_b)
   let res = switch (min_key_lhs.contents, min_key_rhs.contents) {

jscomp/stdlib-406/arg.res

@@ -109,7 +109,7 @@ let add_help = speclist => {
 
 let usage_b = (buf, speclist, errmsg) => {
   Buffer.add_string(buf, `${errmsg}\n`)
-  List.iter(print_spec(buf), add_help(speclist))
+  List.iter(x => print_spec(buf, x), add_help(speclist))
 }
 
 let usage_string = (speclist, errmsg) => {
@@ -423,5 +423,5 @@ let align = (~limit=max_int, speclist) => {
   let completed = add_help(speclist)
   let len = List.fold_left(max_arg_len, 0, completed)
   let len = min(len, limit)
-  List.map(add_padding(len), completed)
+  List.map(x => add_padding(len, x), completed)
 }

jscomp/stdlib-406/filename.res

@@ -114,9 +114,9 @@ module Unix = {
   let temp_dir_name = try Sys.getenv("TMPDIR") catch {
   | Not_found => "/tmp"
   }
-  let quote = generic_quote("'\\''")
-  let basename = generic_basename(is_dir_sep, current_dir_name)
-  let dirname = generic_dirname(is_dir_sep, current_dir_name)
+  let quote = x => generic_quote("'\\''", x)
+  let basename = x => generic_basename(is_dir_sep, current_dir_name, x)
+  let dirname = x => generic_dirname(is_dir_sep, current_dir_name, x)
 }
 
 module Win32 = {
@@ -221,8 +221,8 @@ module Cygwin = {
   let check_suffix = Win32.check_suffix
   let temp_dir_name = Unix.temp_dir_name
   let quote = Unix.quote
-  let basename = generic_basename(is_dir_sep, current_dir_name)
-  let dirname = generic_dirname(is_dir_sep, current_dir_name)
+  let basename = x => generic_basename(is_dir_sep, current_dir_name, x)
+  let dirname = x => generic_dirname(is_dir_sep, current_dir_name, x)
 }
 
 let (

jscomp/stdlib-406/genlex.resi

@@ -70,4 +70,4 @@ type token =
    Blanks and newlines are skipped. Comments delimited by [(*] and [*)]
    are skipped as well, and can be nested. A {!Stream.Failure} exception
    is raised if end of stream is unexpectedly reached.*/
-let make_lexer: (list<string>, Stream.t<char>) => Stream.t<token>
+let make_lexer: list<string> => (Stream.t<char> => Stream.t<token>)

jscomp/stdlib-406/lexing.res

@@ -161,7 +161,7 @@ let zero_pos = {
 }
 
 let from_function = f => {
-  refill_buff: lex_refill(f, Bytes.create(512)),
+  refill_buff: x => lex_refill(f, Bytes.create(512), x),
   lex_buffer: Bytes.create(1024),
   lex_buffer_len: 0,
   lex_abs_pos: 0,

jscomp/stdlib-406/list.res

@@ -352,7 +352,7 @@ let rec find_opt = (p, param) =>
     }
   }
 
-let find_all = p => {
+let find_all = (p, l) => {
   let rec find = (accu, param) =>
     switch param {
     | list{} => rev(accu)
@@ -363,7 +363,7 @@ let find_all = p => {
         find(accu, l)
       }
     }
-  find(list{})
+  find(list{}, l)
 }
 
 let filter = find_all

jscomp/stdlib-406/listLabels.res

@@ -352,7 +352,7 @@ let rec find_opt = (~f as p, param) =>
     }
   }
 
-let find_all = (~f as p) => {
+let find_all = (~f as p, l) => {
   let rec find = (accu, param) =>
     switch param {
     | list{} => rev(accu)
@@ -363,7 +363,7 @@ let find_all = (~f as p) => {
         find(accu, l)
       }
     }
-  find(list{})
+  find(list{}, l)
 }
 
 let filter = find_all