From 5e496e846b3d46ef986c948676af5dcf2d711631 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 13 Sep 2011 09:13:02 -0700
Subject: [PATCH] tools.completion: speed up apropos by 35%.  Fixes #101.

---
 basis/tools/completion/completion.factor | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/basis/tools/completion/completion.factor b/basis/tools/completion/completion.factor
index abb9ecfe39..ab675c8224 100644
--- a/basis/tools/completion/completion.factor
+++ b/basis/tools/completion/completion.factor
@@ -8,8 +8,14 @@ vocabs.hierarchy words ;
 
 IN: tools.completion
 
+<PRIVATE
+
+: smart-index-from ( obj i seq -- n/f )
+    rot [ ch>lower ] [ ch>upper ] bi
+    [ eq? ] bi-curry@ [ bi or ] 2curry find-from drop ;
+
 :: (fuzzy) ( accum i full ch -- accum i full ? )
-    ch i full index-from [
+    ch i full smart-index-from [
         :> i i accum push
         accum i 1 + full t
     ] [
@@ -64,14 +70,16 @@ IN: tools.completion
     dupd fuzzy score max ;
 
 : completion ( short candidate -- result )
-    [ second >lower swap complete ] keep 2array ;
+    [ second swap complete ] keep 2array ;
 
 : completion, ( short candidate -- )
     completion dup first 0 > [ , ] [ drop ] if ;
 
+PRIVATE>
+
 : completions ( short candidates -- seq )
     [ ] [
-        [ >lower ] dip [ [ completion, ] with each ] { } make
+        [ [ completion, ] with each ] { } make
         rank-completions
     ] bi-curry if-empty ;