From d43bce926a42bfc6f71fa2b6c2fe4c4e990a64eb Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 22 Jul 2022 15:32:24 -0500 Subject: [PATCH] core: fix stack effect and use new word --- basis/grouping/grouping.factor | 2 +- core/sequences/sequences.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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' ) -- 2.34.1