Make print-topic print a newline and adjust usages elsewhere. Reporte…

…d by mrjbq7.
janus · Apr 10, 2011 · 9e7e2b9 · 9e7e2b9
1 parent 10260e5
commit 9e7e2b9
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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 -- ) ;