sequences: add index-of-last

[factor.git] / extra / sequences / extras / extras.factor

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index e26bbb2ad787315b54d8299037f264e279c0d8e8..7c6bc05d0cef5e0b543f0129d5a9b601662e1407 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -655,7 +655,7 @@ PRIVATE>
     ] bounds-check-find ; inline
 
 : find-last-index ( ... seq quot: ( ... elt i -- ... ? ) -- ... i elt )
-    [ [ length 1 - ] keep ] dip find-last-index-from ; inline
+    [ index-of-last ] dip find-last-index-from ; inline
 
 : map-find-last-index ( ... seq quot: ( ... elt index -- ... result/f ) -- ... result i elt )
     [ find-last-index ] (map-find-index) ; inline