core: fix stack effect and use new word

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

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 8b3697ab9f488492e26a68448b951dadda0538d2..5e7b01ef5d3c5977ae199c239d47beb138085c57 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -412,7 +412,7 @@ PRIVATE>
 : sequence-operator ( seq quot -- i n quot' )
     [ >underlying< [ nth-unsafe ] curry ] dip compose ; inline
 
-: length-iterator ( seq quot -- n quot' )
+: length-iterator ( seq -- n quot' )
     length-sequence [ nth-unsafe ] curry ; inline
 
 : length-operator ( seq quot -- n quot' )