From 7a23ce923cd45fedc19a1659c30495d01f21426a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 23 Oct 2016 18:09:37 -0700
Subject: doc: missing plurals in headings, missing .desc.

* checkman.txr (check-func): Check for excess elements in singular
heading. Add exception for headings that have Operator and macro.

* txr.1: Missing plural in chr-ixdigit and chr-xdigit heading.
Same in hash-begin and hash-next, plus missing desc.
---
 checkman.txr | 6 +++++-
 txr.1        | 5 +++--
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/checkman.txr b/checkman.txr
index 024c83f9..af6b4056 100644
--- a/checkman.txr
+++ b/checkman.txr
@@ -51,11 +51,15 @@
 @  (cases)
 .coNP Operator/function @(skip)
 @    (or)
+.coNP Operator @@ @op and macro @@ @mac
+@    (or)
 .coNP @{type /Function|Operator|Macro/}s@(assert bad ln `bad @{type}s heading`)@(rep :gap 0) @@, @{x /\S+/}@(last :mandatory) @@ @y and @@ @{z /\S+/}@(end)
 @      (assert bad ln `no .synb after @{type}s heading`)
 @      (check-synb)
 @    (or)
-.coNP @{type /Function|Operator|Macro/}@(assert bad ln `bad @type heading`) @@ @{x /\S+/}
+.coNP @{type /Function|Operator|Macro/}@(assert bad ln `bad @type heading`) @@ @{x /\S+/}@junk
+@      (assert bad ln `extra elements in singular @type heading`)
+@      (bind junk "")
 @      (assert bad ln `no .synb after @type heading`)
 @      (check-synb)
 @  (end)
diff --git a/txr.1 b/txr.1
index a6065766..3adc7938 100644
--- a/txr.1
+++ b/txr.1
@@ -19266,7 +19266,7 @@ if
 is an ASCII upper case letter. Otherwise it returns
 .codn nil .
 
-.coNP Function @ chr-isxdigit and @ chr-xdigit
+.coNP Functions @ chr-isxdigit and @ chr-xdigit
 .synb
 .mets (chr-isxdigit << char )
 .mets (chr-xdigit << char )
@@ -34302,11 +34302,12 @@ applies
 first, as above. If that is true, and the two hashes have the same number of
 elements, the result is falsified.
 
-.coNP Function @ hash-begin and @ hash-next
+.coNP Functions @ hash-begin and @ hash-next
 .synb
 .mets (hash-begin << hash )
 .mets (hash-next << hash-iter )
 .syne
+.desc
 The
 .code hash-begin
 function returns a an iterator object capable of retrieving the
-- 
cgit v1.2.3