core: subseq-index? -> subseq-of?

[factor.git] / core / sequences / sequences.factor

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 3d22801ef4a6d07ecab8ef9e23238d6de7c577aa..91e231b1903cc90498a8998eaeed112834ae2391 100644 (file)
--- 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>
@@ -1056,7 +1053,7 @@ PRIVATE>
 
 : subseq-index ( seq subseq -- i/f ) [ 0 ] 2dip subseq-index-from ; inline
 
-: subseq-index? ( seq subseq -- ? ) subseq-index >boolean ; inline
+: subseq-of? ( seq subseq -- ? ) subseq-index >boolean ; inline
 
 : subseq-start-from ( subseq seq n -- i/f )
     spin subseq-index-from ; inline deprecated