diff options
Diffstat (limited to 'stdlib/getopts.tl')
| -rw-r--r-- | stdlib/getopts.tl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/stdlib/getopts.tl b/stdlib/getopts.tl index 06cc514c..bb3f394b 100644 --- a/stdlib/getopts.tl +++ b/stdlib/getopts.tl @@ -306,12 +306,13 @@ (flatten (mappend (op list @1.short @1.long) undocumented))] ", "}`)) (each ((line (sys:wdwrap undoc-str 75))) - (put-line ` @line`)))))) + (put-line ` @line`))) + (put-line)))) (defun opthelp-conventions (opt-desc-list : (*stdout* *stdout*)) (let ((documented (remove-if (op null @1.helptext) opt-desc-list)) (undocumented (keep-if (op null @1.helptext) opt-desc-list))) - (put-line "Option Conventions:\n") + (put-line "Option conventions:\n") (let* ((have-short (some documented (usl short))) (have-long (some documented (usl long))) (have-arg-p (some documented (usl arg-p))) @@ -355,7 +356,8 @@ arguments which follow are not treated as options\ \ even if they look like options."))) (mapdo (do put-line ` @1`) - (sys:wdwrap `@{(flatten texts)}` 77))))) + (sys:wdwrap `@{(flatten texts)}` 77))) + (put-line))) (defun opthelp-types (opt-desc-list : (*stdout* *stdout*)) (let ((documented (remove-if (op null @1.helptext) opt-desc-list))) |