Remove trailing whitespace from subcommand help

This is trivial but it annoys me since I use the emacs mode that displays
trailing whitespace by default.

Author: cgay

help.dylan

@@ -161,7 +161,11 @@ define function print-help
     if (~empty?(names))
       let name-width = reduce1(max, map(size, names));
       for (name in names, doc in docs)
-        format(stream, "%s  %s\n", pad-right(name, name-width), doc);
+        if (empty?(doc))
+          format(stream, "%s\n", name);
+        else
+          format(stream, "%s  %s\n", pad-right(name, name-width), doc);
+        end;
       end;
     end;
     format(stream, "\n");