core: Better names for (each) etc

[factor.git] / basis / grouping / grouping.factor

diff --git a/basis/grouping/grouping.factor b/basis/grouping/grouping.factor
index 43916ab8d9a4a2adc48e6763b03fdcbe42c2e5cf..5da027efd671c241a1140fe3b6a34f823921503c 100644 (file)
--- a/basis/grouping/grouping.factor
+++ b/basis/grouping/grouping.factor
@@ -74,8 +74,10 @@ PRIVATE>
         2 = [
             [ first2-unsafe ] dip call
         ] [
-            [ [ first-unsafe 1 ] [ setup-each [ + ] 2dip ] bi ] dip
-            '[ @ _ keep swap ] all-integers-from? nip
+            [
+                [ first-unsafe ]
+                [ >range-iterator< [ nth-unsafe ] curry [ 1 + ] 2dip ] bi
+            ] dip '[ @ _ keep swap ] all-integers-from? nip
         ] if
     ] if ; inline