From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 22 Jul 2022 20:32:24 +0000 (-0500)
Subject: core: fix stack effect and use new word
X-Git-Tag: 0.99~1305
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=d43bce926a42bfc6f71fa2b6c2fe4c4e990a64eb

core: fix stack effect and use new word
---

diff --git a/basis/grouping/grouping.factor b/basis/grouping/grouping.factor
index 5da027efd6..fdfdcbf04e 100644
--- 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 8b3697ab9f..5e7b01ef5d 100644
--- 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' )