diff options
| -rw-r--r-- | checkman.txr | 6 | ||||
| -rw-r--r-- | 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) @@ -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 |