diff options
| author | Paul A. Patience <paul@apatience.com> | 2022-02-08 11:39:38 +0000 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-02-08 08:08:24 -0800 |
| commit | 1d9195a85f1f745b6bdad46ecadb116f60d0bf0d (patch) | |
| tree | 754da4349a8e77d23ddfc54e6a325b8a586e13c5 | |
| parent | 587194b81ba2da80b5598567914c9ddc9a124208 (diff) | |
| download | txr-1d9195a85f1f745b6bdad46ecadb116f60d0bf0d.tar.gz txr-1d9195a85f1f745b6bdad46ecadb116f60d0bf0d.tar.bz2 txr-1d9195a85f1f745b6bdad46ecadb116f60d0bf0d.zip | |
getopts: conform undocumented opts to documented.
* stdlib/getopts.tl (opthelp): Indent the list of undocumented
options by only two spaces, like the documented options and the
other opthelp sections.
| -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*)) |