core: fix stack effect and use new word

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

diff --git a/basis/grouping/grouping.factor b/basis/grouping/grouping.factor
index 5da027efd671c241a1140fe3b6a34f823921503c..fdfdcbf04e0b83469fa820a1b6e45648cf3785e8 100644 (file)
--- a/basis/grouping/grouping.factor
+++ b/basis/grouping/grouping.factor
@@ -76,7 +76,7 @@ PRIVATE>
         ] [
             [
                 [ first-unsafe ]
-                [ >range-iterator< [ nth-unsafe ] curry [ 1 + ] 2dip ] bi
+                [ >underlying< [ nth-unsafe ] curry [ 1 + ] 2dip ] bi
             ] dip '[ @ _ keep swap ] all-integers-from? nip
         ] if
     ] if ; inline