steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

help.apropos: remove extra whitespace.

db4
John Benediktsson 2015-04-17 18:04:08 -07:00
parent 9eb365abe0
commit 1ce1e2d27e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/help/apropos/apropos.factor
View File

@ -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 ;