progress

Author: bloodyowl

jscomp/others/js_string.res

@@ -704,7 +704,7 @@ Js.String.splitAtMost("/", ~limit=9, "ant/bee/cat/dog/elk") == ["ant", "bee", "c
 */
 external splitAtMost: (t, ~limit: int) => array<t> = "split"
 
-@bs.send.pipe(: t)
+@send.pipe(: t)
 @ocaml.doc("
 `splitByRe(regex, str)` splits the given `str` at every occurrence of `regex`
 and returns an array of the resulting substrings.

jscomp/others/js_typed_array.res

@@ -56,8 +56,10 @@ module ArrayBuffer = {
 
   @get external byteLength: t => int = "byteLength"
 
-  @send.pipe(: t) external slice: (~start: int, ~end_: int) => array_buffer = "slice" /* FIXME */
-  @send.pipe(: t) external sliceFrom: int => array_buffer = "slice"
+  @send external _slice: (t, ~start: int, ~end_: int) => array_buffer = "slice" /* FIXME */
+  let slice = (~start: int, ~end_: int, t) => _slice(t, ~start, ~end_)
+  @send external _sliceFrom: (t, int) => array_buffer = "slice"
+  let sliceFrom = (x, y) => _sliceFrom(y, x)
 }
 module type S = {
   /*** Implements functionality common to all the typed arrays */

jscomp/test/build.ninja

@@ -1,6 +1,6 @@
 let suites: ref<Mt.pair_suites> = ref(list{})
 let test_id = ref(0)
-let eq = f => Mt_global.collect_eq(test_id, suites, f)
+let eq = (f, x, y) => Mt_global.collect_eq(test_id, suites, f, x, y)
 
 let test_strings = Array.init(32, i => String.make(i, Char.chr(i)))