Make suffix arrays prune repeated members before construction

diff --git a/basis/suffix-arrays/suffix-arrays.factor b/basis/suffix-arrays/suffix-arrays.factor
index 8f728c1eda0d0541a7b460f266131a2bba7b4c6f..9e111ed2e2203b7e57846791b1841edf740f334d 100644 (file)
--- a/basis/suffix-arrays/suffix-arrays.factor
+++ b/basis/suffix-arrays/suffix-arrays.factor
@@ -29,6 +29,7 @@ IN: suffix-arrays
 PRIVATE>
 
 : >suffix-array ( seq -- array )
+    members
     [ suffixes ] map concat natural-sort ;
 
 SYNTAX: SA{ \ } [ >suffix-array ] parse-literal ;