help.syntax: whoops, was making extra spaces

mrjbq7 · Aug 18, 2023 · 1a0ff10 · 1a0ff10
1 parent ea8fc78
commit 1a0ff10
Showing 1 changed file with 4 additions and 1 deletion.
diff --git 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