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

diff --git a/basis/help/apropos/apropos.factor b/basis/help/apropos/apropos.factor
index 9377f0a656c464d919bc5d2e4b1b2b0bcf3dd5fd..0d4012208805d655b620b10ad61dc9c18975eb22 100644 (file)
--- a/basis/help/apropos/apropos.factor
+++ b/basis/help/apropos/apropos.factor
@@ -71,4 +71,4 @@ M: apropos >link ;
 INSTANCE: apropos topic
 
 : apropos ( str -- )
-    [ blank? ] trim <apropos> print-topic nl ;
+    [ blank? ] trim <apropos> print-topic ;

diff --git a/basis/help/help.factor b/basis/help/help.factor
index 27ce7a14351b76df629f4bf108ce4c6e7bafaa32..501c5f01ea62e76be2576981d595c7c7b0969b52 100644 (file)
--- a/basis/help/help.factor
+++ b/basis/help/help.factor
@@ -127,11 +127,11 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
 : print-topic ( topic -- )
     >link
     last-element off
-    [ $title ] [ ($blank-line) article-content print-content ] bi ;
+    [ $title ] [ ($blank-line) article-content print-content nl ] bi ;
 
 SYMBOL: help-hook
 
-help-hook [ [ print-topic nl ] ] initialize
+help-hook [ [ print-topic ] ] initialize
 
 : help ( topic -- )
     help-hook get call( topic -- ) ;