Revert "Revert "sequences: faster iteration over slices""

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

diff --git a/basis/grouping/grouping.factor b/basis/grouping/grouping.factor
index 750c8eea1eae15341b474a3878619e31ed49b6ce..49890180e03d166d1227714629ca84c7cb94f05e 100644 (file)
--- a/basis/grouping/grouping.factor
+++ b/basis/grouping/grouping.factor
@@ -74,7 +74,7 @@ PRIVATE>
         2 = [
             [ first2-unsafe ] dip call
         ] [
-            [ [ first-unsafe 1 ] [ setup-each ] bi ] dip
+            [ [ first-unsafe 1 ] [ setup-each [ + ] 2dip ] bi ] dip
             '[ @ _ keep swap ] (all-integers?) nip
         ] if
     ] if ; inline