From 9b97f22b9212ee2b9f355bc0d45118c2adf3d326 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 10 Apr 2011 14:18:35 -0500
Subject: [PATCH] Make print-topic print a newline and adjust usages elsewhere.
 Reported by mrjbq7.

---
 basis/help/apropos/apropos.factor | 2 +-
 basis/help/help.factor            | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/help/apropos/apropos.factor b/basis/help/apropos/apropos.factor
index 9377f0a656..0d40122088 100644
--- 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 27ce7a1435..501c5f01ea 100644
--- 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 -- ) ;