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

Make print-topic print a newline and adjust usages elsewhere. Reported by mrjbq7.

db4
Doug Coleman 2011-04-10 14:18:35 -05:00
parent 1e78347643
commit 9b97f22b92
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -71,4 +71,4 @@ M: apropos >link ;
INSTANCE: apropos topic INSTANCE: apropos topic
: apropos ( str -- ) : apropos ( str -- )
[ blank? ] trim <apropos> print-topic nl ; [ blank? ] trim <apropos> print-topic ;

4
basis/help/help.factor
View File

@ -127,11 +127,11 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
: print-topic ( topic -- ) : print-topic ( topic -- )
>link >link
last-element off last-element off
[ $title ] [ ($blank-line) article-content print-content ] bi ; [ $title ] [ ($blank-line) article-content print-content nl ] bi ;
SYMBOL: help-hook SYMBOL: help-hook
help-hook [ [ print-topic nl ] ] initialize help-hook [ [ print-topic ] ] initialize
: help ( topic -- ) : help ( topic -- )
help-hook get call( topic -- ) ; help-hook get call( topic -- ) ;