help.syntax: fix for help blocks

diff --git a/basis/help/syntax/syntax.factor b/basis/help/syntax/syntax.factor
index af81760f71dd40ac2b62afd729b388dbd5667b29..e4bbdcc6279e3547c80e6981fc585d613136f535 100644 (file)
--- a/basis/help/syntax/syntax.factor
+++ b/basis/help/syntax/syntax.factor
@@ -34,10 +34,20 @@ DEFER: HELP{
     [ dup empty? [ >string suffix! SBUF" " clone ] unless ]
     [ [ suffix! ] curry dip ] bi* ;
 
+ 
+: help-block? ( word -- ? )
+    {
+        $description $heading $subheading $syntax
+        $class-description $error-description $var-description
+        $contract $notes $curious $deprecated $errors
+        $side-effects $content $warning $subsections $nl
+        $list $table $example $unchecked-example $code
+    } member-eq? ;
+
 : ?push-help-space ( accum sbuf obj -- accum sbuf' obj )
     over empty? [
         pick [ f ] [
-            last [ string? not ] [ \ $nl = not ] bi and
+            last dup array? [ ?first ] when help-block? not
         ] if-empty
     ] [
         over last " (" member? not