diff options
-rw-r--r-- | stdlib/getopts.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/getopts.tl b/stdlib/getopts.tl index bb3f394b..87b060e4 100644 --- a/stdlib/getopts.tl +++ b/stdlib/getopts.tl @@ -305,8 +305,8 @@ (let* ((undoc-str `@{[mapcar sys:opt-dash (flatten (mappend (op list @1.short @1.long) undocumented))] ", "}`)) - (each ((line (sys:wdwrap undoc-str 75))) - (put-line ` @line`))) + (each ((line (sys:wdwrap undoc-str 77))) + (put-line ` @line`))) (put-line)))) (defun opthelp-conventions (opt-desc-list : (*stdout* *stdout*)) |