Fixing everything for mandatory stack effects

[factor.git] / extra / help / help.factor

diff --git a/extra/help/help.factor b/extra/help/help.factor
index d3c899ece79bdd38a19d34c9c35730f2cf314e9e..6c921fe0a2cf8fc0c69fdff8305e845c57af2165 100755 (executable)
--- a/extra/help/help.factor
+++ b/extra/help/help.factor
@@ -127,7 +127,7 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
     ":vars - list all variables at error time" print ;
 
 : :help ( -- )
-    error get error-help [ help ] [ "No help for this error. " print ] if
+    error get error-help [ help ] [ "No help for this error. " print ] if*
     :help-debugger ;
 
 : remove-article ( name -- )