factor: remove rest of double paren words.

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

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