summaryrefslogtreecommitdiffstats
path: root/stdlib/getopts.tl
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/getopts.tl')
-rw-r--r--stdlib/getopts.tl4
1 files changed, 3 insertions, 1 deletions
diff --git a/stdlib/getopts.tl b/stdlib/getopts.tl
index 1d714126..e448c130 100644
--- a/stdlib/getopts.tl
+++ b/stdlib/getopts.tl
@@ -294,7 +294,9 @@
(long long)
(short `@{"" 21} @short`)))
(lines (if od.helptext (sys:wdwrap od.helptext 43))))
- (put-line ` @{ls 34}@(pop lines)` stream)
+ (if (>= (len ls) 34)
+ (put-line ` @ls` stream)
+ (put-line ` @{ls 34}@(pop lines)` stream))
(while lines
(put-line ` @{"" 34}@(pop lines)` stream))))
(put-line : stream)