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

[factor.git] / extra / boyer-moore / boyer-moore.factor

diff --git a/extra/boyer-moore/boyer-moore.factor b/extra/boyer-moore/boyer-moore.factor
index 922666742505450a3a60d26922669025f4f82a57..34e5e90ad23efb753b8e30dc3314c05cf3322850 100644 (file)
--- a/extra/boyer-moore/boyer-moore.factor
+++ b/extra/boyer-moore/boyer-moore.factor
@@ -46,7 +46,7 @@ TUPLE: boyer-moore pattern bad-char-table good-suffix-table ;
 
 :: mismatch? ( s1 s2 pos len -- i/f )
     len 1 - [ [ pos + s1 ] keep s2 match? not ]
-    find-last-integer ; inline
+    find-last-integer-from ; inline
 
 :: (search-from) ( seq from boyer-moore -- i/f )
     boyer-moore pattern>> :> pat