Minor cosmetic fixes

diff --git a/basis/debugger/debugger.factor b/basis/debugger/debugger.factor
index 72dea5aeaca7fcc1c483bc37894b8324ac0859aa..5c76216c4fdf402b8402595d189250ba4218ccef 100644 (file)
--- 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 3bcc8151911fb042ccab52becf2966e8c78f743c..e77e7bccad0b13a3be79eb785a7b420c309ad559 100644 (file)
--- 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 ddd6ce23fca8566b1c3689c1708d3c79d5dee7c4..6fb87d7a33a74c35cf61c989c00e2db8dcbeb3d8 100644 (file)
--- 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 d57fbd97074bf1e54548e17b975aac67a619235a..a77ea34c30c8d9230e5ca8de30b881499cff9168 100644 (file)
--- 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