Get rid of U functions (#191)

* Get rid of U functions * Add changelog entry
rescript-lang · Feb 15, 2024 · 154f9f2 · 154f9f2
1 parent dd05215
commit 154f9f2
Show file tree

Hide file tree

Showing 5 changed files with 171 additions and 334 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -3,6 +3,7 @@
 ## Next version
 
 - Add `Dict.forEach`, `Dict.forEachWithKey` and `Dict.mapValues` https://github.com/rescript-association/rescript-core/pull/181
+- Remove internal xxxU helper functions that are not needed anymore in uncurried mode. https://github.com/rescript-association/rescript-core/pull/191
 
 ## 1.0.0
 

diff --git a/src/Core__Array.mjs b/src/Core__Array.mjs
@@ -127,15 +127,12 @@ function toShuffled(xs) {
 }
 
 function filterMap(a, f) {
-  var f$1 = function (a) {
-    return f(a);
-  };
   var l = a.length;
   var r = new Array(l);
   var j = 0;
   for(var i = 0; i < l; ++i){
     var v = a[i];
-    var v$1 = f$1(v);
+    var v$1 = f(v);
     if (v$1 !== undefined) {
       r[j] = Caml_option.valFromOption(v$1);
       j = j + 1 | 0;

diff --git a/src/Core__Array.res b/src/Core__Array.res
@@ -210,7 +210,7 @@ let toShuffled = xs => {
   result
 }
 
-let filterMapU = (a, f) => {
+let filterMap = (a, f) => {
   let l = length(a)
   let r = makeUninitializedUnsafe(l)
   let j = ref(0)
@@ -227,8 +227,6 @@ let filterMapU = (a, f) => {
   r
 }
 
-let filterMap = (a, f) => filterMapU(a, a => f(a))
-
 let keepSome = filterMap(_, x => x)
 
 @send external flatMap: (array<'a>, 'a => array<'b>) => array<'b> = "flatMap"