From b551721dd9d8973bbdc50bd41536ccc306120138 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 10 Nov 2009 21:48:00 -0600
Subject: [PATCH] Minor cosmetic fixes

---
 basis/debugger/debugger.factor    | 2 ++
 basis/help/apropos/apropos.factor | 2 +-
 basis/help/help.factor            | 2 +-
 core/effects/parser/parser.factor | 2 +-
 4 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/basis/debugger/debugger.factor b/basis/debugger/debugger.factor
index 72dea5aeac..5c76216c4f 100644
--- a/basis/debugger/debugger.factor
+++ b/basis/debugger/debugger.factor
@@ -333,6 +333,8 @@ M: not-found-in-roots summary drop "Cannot resolve vocab: path" ;
 
 M: wrong-values summary drop "Quotation called with wrong stack effect" ;
 
+M: stack-effect-omits-dashes summary drop "Stack effect must contain “--”" ;
+
 {
     { [ os windows? ] [ "debugger.windows" require ] }
     { [ os unix? ] [ "debugger.unix" require ] }
diff --git a/basis/help/apropos/apropos.factor b/basis/help/apropos/apropos.factor
index 3bcc815191..e77e7bccad 100644
--- a/basis/help/apropos/apropos.factor
+++ b/basis/help/apropos/apropos.factor
@@ -73,4 +73,4 @@ M: apropos >link ;
 INSTANCE: apropos topic
 
 : apropos ( str -- )
-    <apropos> print-topic ;
+    <apropos> print-topic nl ;
diff --git a/basis/help/help.factor b/basis/help/help.factor
index ddd6ce23fc..6fb87d7a33 100644
--- a/basis/help/help.factor
+++ b/basis/help/help.factor
@@ -129,7 +129,7 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
 
 SYMBOL: help-hook
 
-help-hook [ [ print-topic ] ] initialize
+help-hook [ [ print-topic nl ] ] initialize
 
 : help ( topic -- )
     help-hook get call( topic -- ) ;
diff --git a/core/effects/parser/parser.factor b/core/effects/parser/parser.factor
index d57fbd9707..a77ea34c30 100644
--- a/core/effects/parser/parser.factor
+++ b/core/effects/parser/parser.factor
@@ -25,7 +25,7 @@ ERROR: bad-effect ;
 : parse-effect-tokens ( end -- tokens )
     [ parse-effect-token dup ] curry [ ] produce nip ;
 
-ERROR: stack-effect-omits-dashes effect ;
+ERROR: stack-effect-omits-dashes tokens ;
 
 : parse-effect ( end -- effect )
     parse-effect-tokens { "--" } split1 dup