From 5eb57c5e08f31278dc07e2f98d25c69afbe0c653 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 16 Aug 2022 22:02:05 -0500 Subject: [PATCH] sequences: length-operator-last is not good, remove it --- core/sequences/sequences.factor | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index 3d22801ef4..91fc75e518 100644 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -420,9 +420,6 @@ PRIVATE> : length-operator ( seq quot -- n quot' ) [ length-iterator ] dip compose ; inline -: length-operator-last ( seq quot -- n quot' ) - length-operator [ 1 - ] dip ; inline - : collect-into ( quot into -- quot' ) [ [ keep ] dip set-nth-unsafe ] 2curry ; inline @@ -562,7 +559,7 @@ PRIVATE> index/element ; inline : find-last-from-unsafe ( ... n seq quot: ( ... elt -- ... ? ) -- ... i elt ) - [ length-operator-last nip find-last-integer ] keepd + [ length-operator nip find-last-integer ] keepd index/element ; inline PRIVATE> -- 2.34.1