From 7783f13a2994ae144c05e2bafbe8a76eef39b028 Mon Sep 17 00:00:00 2001
From: "Paul A. Patience" <paul@apatience.com>
Date: Tue, 8 Feb 2022 11:39:42 +0000
Subject: getopts: fix de trop descriptions of conventions.

* stdlib/getopts.tl (opthelp-conventions): Describe the --no-
prefix only if we have boolean options, and describe the
long-option argument style only if we have long options.
---
 stdlib/getopts.tl | 38 ++++++++++++++++++++------------------
 1 file changed, 20 insertions(+), 18 deletions(-)

(limited to 'stdlib/getopts.tl')

diff --git a/stdlib/getopts.tl b/stdlib/getopts.tl
index 87b060e4..18bec996 100644
--- a/stdlib/getopts.tl
+++ b/stdlib/getopts.tl
@@ -330,24 +330,26 @@
                               "All options are Boolean:")))
                         (if have-bool
                           "they are true when present, false when absent.")
-                        (if (and have-bool have-arg-p)
-                          "The --no- prefix can explicitly specify \ \
-                           Boolean options as false: if a Boolean option\ \
-                           X exists,\ \
-                           --no-X specifies it as false. This is useful\ \
-                           for making false those options which default\ \
-                           to true. "
-                          "The --no- prefix can explicitly specify \ \
-                           options as false: if an X option exists,\ \
-                           --no-X specifies it as false. This is useful\ \
-                           for making false those options which default\ \
-                           to true. ")
-                        (if (not have-long)
-                          "Note the double dash on --no.")
-                        (if (and have-short have-long)
-                          "The --no- prefix can be applied to a short\ \
-                           or long option name.")
-                        (if have-arg-p
+                        (if have-bool
+                          (if have-arg-p
+                            "The --no- prefix can explicitly specify\ \
+                             Boolean options as false: if a Boolean option\ \
+                             X exists,\ \
+                             --no-X specifies it as false. This is useful\ \
+                             for making false those options which default\ \
+                             to true."
+                            "The --no- prefix can explicitly specify\ \
+                             options as false: if an X option exists,\ \
+                             --no-X specifies it as false. This is useful\ \
+                             for making false those options which default\ \
+                             to true."))
+                        (if have-bool
+                          (if (not have-long)
+                            "Note the double dash on --no."
+                            (if have-short
+                              "The --no- prefix can be applied to a short\ \
+                               or long option name.")))
+                        (if (and have-long have-arg-p)
                           "The argument to a long option can be given in one\ \
                            argument as --option=arg or as a separate\ \
                            argument using --option arg.")
-- 
cgit v1.2.3