core/basis/extra: use new math.ranges syntax.

[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 57f5d5b446dcd6945c7452a2dd85a82c9e68dfca..2801262fa14610e38281355630589427666cc805 100644 (file)
--- a/extra/boyer-moore/boyer-moore.factor
+++ b/extra/boyer-moore/boyer-moore.factor
@@ -11,7 +11,7 @@ IN: boyer-moore
     [ [ i ] unless* ] change-nth-unsafe ; inline
 
 : normal-suffixes ( zs -- ss )
-    [ length [ f <array> ] [ [1,b) ] bi ] keep pick
+    [ length [ f <array> ] [ [1..b) ] bi ] keep pick
     [ (normal-suffixes) ] 2curry each ; inline
 
 :: (partial-suffixes) ( len old elt i -- len old/new old )