Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / basis / suffix-arrays / suffix-arrays.factor

diff --git a/basis/suffix-arrays/suffix-arrays.factor b/basis/suffix-arrays/suffix-arrays.factor
index f4bd56348130f88a8b2a3c74ca7d13ef9892075d..931cb36ea949b8c394164e3e85d9bbdaa34b09bb 100755 (executable)
--- a/basis/suffix-arrays/suffix-arrays.factor
+++ b/basis/suffix-arrays/suffix-arrays.factor
@@ -17,7 +17,7 @@ IN: suffix-arrays
 
 : from-to ( index begin suffix-array -- from/f to/f )
     swap '[ _ head? not ]
-    [ find-last-from drop dup [ 1+ ] when ]
+    [ find-last-from drop dup [ 1 + ] when ]
     [ find-from drop ] 3bi ;
 
 : <funky-slice> ( from/f to/f seq -- slice )