From 89d6feed984042987ca71fc1363ff135ded261d4 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Thu, 25 Feb 2021 12:59:56 -0500
Subject: [PATCH] fix

---
 src/core/CCList.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/core/CCList.ml b/src/core/CCList.ml
index ea99afe4..b2f59af8 100644
--- a/src/core/CCList.ml
+++ b/src/core/CCList.ml
@@ -530,7 +530,7 @@ let diagonal l =
   diagonal [1;2;3] |> List.sort Stdlib.compare = [1, 2; 1, 3; 2, 3]
 *)
 
-let partition_filter_either f l =
+let partition_map_either f l =
   let rec iter f l1 l2 l = match l with
     | [] -> List.rev l1, List.rev l2
     | x :: tl ->
@@ -542,7 +542,7 @@ let partition_filter_either f l =
 
 (*$R
   let l1, l2 =
-    partition_filter_either (function
+    partition_map_either (function
       | n when n mod 2 = 0 -> CCEither.Left n
       | n -> CCEither.Right n
     ) [0;1;2;3;4]