From 54635f5c5ddcb26028616745279f0954c2854c8b Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 16 Apr 2016 09:17:05 -0700
Subject: [PATCH] suffix-arrays.words: removing, not that useful.

---
 basis/suffix-arrays/words/words.factor | 19 -------------------
 1 file changed, 19 deletions(-)
 delete mode 100644 basis/suffix-arrays/words/words.factor

diff --git a/basis/suffix-arrays/words/words.factor b/basis/suffix-arrays/words/words.factor
deleted file mode 100644
index 5089986d5d..0000000000
--- a/basis/suffix-arrays/words/words.factor
+++ /dev/null
@@ -1,19 +0,0 @@
-! Copyright (C) 2008 Marc Fauconneau.
-! See http://factorcode.org/license.txt for BSD license.
-USING: kernel arrays math accessors sequences math.vectors
-math.order sorting binary-search sets assocs fry suffix-arrays ;
-IN: suffix-arrays.words
-
-! to search on word names
-
-: new-word-sa ( words -- sa )
-    [ name>> ] map >suffix-array ;
-
-: name>word-map ( words -- map )
-    dup [ name>> V{ } clone ] H{ } map>assoc
-    [ '[ dup name>> _ at push ] each ] keep ;
-
-: query-word-sa ( map begin sa -- matches ) query '[ _ at ] map concat ;
-
-! usage example :
-! clear all-words 100 head dup name>word-map "test" rot new-word-sa query .