did-you-mean: factor out the word search

diff --git a/extra/did-you-mean/did-you-mean.factor b/extra/did-you-mean/did-you-mean.factor
index ec17d33e236cfbb5704ca04be0d52471e90c82d5..3159ce932c83abfa782159b2c8b702eb435a4acf 100644 (file)
--- a/extra/did-you-mean/did-you-mean.factor
+++ b/extra/did-you-mean/did-you-mean.factor
@@ -20,7 +20,10 @@ IN: did-you-mean
     [ drop \ no-word-error boa ]
     [ did-you-mean-restarts-with-defer ] 2bi ;
 
+: did-you-mean-words ( name -- possibilities )
+    all-words [ [ name>> ] histogram-by corrections ] keep
+    [ name>> swap member? ] with filter ;
+
 : did-you-mean ( name -- word )
-    dup all-words [ [ name>> ] histogram-by corrections ] keep
-    [ name>> swap member? ] with filter
-    <did-you-mean> throw-restarts no-word-restarted ;
+    dup did-you-mean-words <did-you-mean>
+    throw-restarts no-word-restarted ;