factor: words -> split-words, lines -> split-lines, fix errors

[factor.git] / basis / help / search / search.factor

diff --git a/basis/help/search/search.factor b/basis/help/search/search.factor
index 0dab4860ac8195218aaff672093e81202c2c688f..f6cc8071f676024ea2311dde0c97bcad3b411b4d 100644 (file)
--- a/basis/help/search/search.factor
+++ b/basis/help/search/search.factor
@@ -21,16 +21,16 @@ IN: help.search
             { \ $vocab-link [ second ] }
             { \ $emphasis [ second ] }
             { \ $subsection [ second article-name ] }
-            { \ $subsections [ rest [ article-name ] map unwords ] }
-            { \ $description [ rest [ element-value ] map unwords ] }
-            { \ $notes [ rest [ element-value ] map unwords ] }
-            { \ $snippet [ rest [ element-value ] map unwords ] }
+            { \ $subsections [ rest [ article-name ] map join-words ] }
+            { \ $description [ rest [ element-value ] map join-words ] }
+            { \ $notes [ rest [ element-value ] map join-words ] }
+            { \ $snippet [ rest [ element-value ] map join-words ] }
             [ 2drop f ]
         } case
     ] [ dup string? [ drop f ] unless ] if ;
 
 MEMO: article-words ( name -- words )
-    article-content [ element-value ] map unwords search-words
+    article-content [ element-value ] map join-words search-words
     [ [ digit? ] all? ] reject
     [ [ { [ letter? ] [ digit? ] } 1|| not ] trim ] map! harvest  ;