From 9c308ac4c5bc724820812dc4cac9175951b9a5fd Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 8 Aug 2010 10:34:19 -0500
Subject: [PATCH] Make suffix arrays prune repeated members before construction

---
 basis/suffix-arrays/suffix-arrays.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/basis/suffix-arrays/suffix-arrays.factor b/basis/suffix-arrays/suffix-arrays.factor
index 8f728c1eda..9e111ed2e2 100644
--- 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 ;