From 1ce1e2d27ec96181388652692a922bbbf72dc56d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 17 Apr 2015 18:04:08 -0700 Subject: [PATCH] help.apropos: remove extra whitespace. --- basis/help/apropos/apropos.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/help/apropos/apropos.factor b/basis/help/apropos/apropos.factor index 65e7f19798..6c48041537 100644 --- a/basis/help/apropos/apropos.factor +++ b/basis/help/apropos/apropos.factor @@ -24,7 +24,7 @@ SYMBOLS: word-result vocabulary-result article-result ; { vocabulary-result [ "Vocabularies" ] } { article-result [ "Help articles" ] } } case ; - + : category>name ( category -- name ) { { word-result [ "word" ] } @@ -43,9 +43,9 @@ M: more-completions article-title "All " % [ seq>> length # " " % ] [ category>> category>name % ] - [ " results for “" % search>> % "”" % ] tri + [ " results for “" % search>> % "”" % ] tri ] "" make ; - + M: more-completions article-content seq>> [ second >lower ] sort-with keys \ $completions prefix ;