Revert "core: find-last-integer -> find-last-integer-from for symmetry"

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

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 55398ef9822c7b9172c8c685136c73b1f47e487c..81bf964762b59cd8017ab9656a4fb1bfb771a5e0 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -646,7 +646,7 @@ PRIVATE>
     over [ count ] [ length ] bi* / ; inline
 
 : find-last-index ( ... seq quot: ( ... elt i -- ... ? ) -- ... i elt )
-    [ [ 1 - ] dip find-last-integer-from ] (find-index) ; inline
+    [ [ 1 - ] dip find-last-integer ] (find-index) ; inline
 
 : map-find-last-index ( ... seq quot: ( ... elt index -- ... result/f ) -- ... result i elt )
     [ find-last-index ] (map-find-index) ; inline