help.syntax: whoops, was making extra spaces

[factor.git] / basis / help / syntax / syntax.factor

diff --git a/basis/help/syntax/syntax.factor b/basis/help/syntax/syntax.factor
index e4bbdcc6279e3547c80e6981fc585d613136f535..e4af8bddd40db8eaceb27aec9048feeb7f4bb282 100644 (file)
--- a/basis/help/syntax/syntax.factor
+++ b/basis/help/syntax/syntax.factor
@@ -47,7 +47,10 @@ DEFER: HELP{
 : ?push-help-space ( accum sbuf obj -- accum sbuf' obj )
     over empty? [
         pick [ f ] [
-            last dup array? [ ?first ] when help-block? not
+            last {
+                [ string? not ]
+                [ dup array? [ ?first ] when help-block? not ]
+            } 1&&
         ] if-empty
     ] [
         over last " (" member? not