diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-07-19 06:55:00 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-07-19 06:55:00 -0700 |
| commit | 8bc2e0f67b6d0d06cda038ebe3bfb49521fa6aa2 (patch) | |
| tree | 3339adadb463be4ac156e016ce9fbdf87350c100 /checkman.txr | |
| parent | 480a9931c42df358371f2a3ea992157dab29c2a8 (diff) | |
| download | txr-8bc2e0f67b6d0d06cda038ebe3bfb49521fa6aa2.tar.gz txr-8bc2e0f67b6d0d06cda038ebe3bfb49521fa6aa2.tar.bz2 txr-8bc2e0f67b6d0d06cda038ebe3bfb49521fa6aa2.zip | |
checkman: verify Special variables sections.
* checkman.txr (check-var): This pattern function must
handle "Special variable{s,}" sections not only
"Variable{s,}".
Diffstat (limited to 'checkman.txr')
| -rw-r--r-- | checkman.txr | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/checkman.txr b/checkman.txr index c6b11686..dcc126ac 100644 --- a/checkman.txr +++ b/checkman.txr @@ -30,16 +30,16 @@ @(define check-var ()) @ (cases) @; exception -.coNP Variables @@, s-ifmt @(skip) +.coNP @/Variables|Special variables/ @@, s-ifmt @(skip) @ (or) @; exception -.coNP Variables @@, *0 @(skip) +.coNP @/Variables|Special variables/ @@, *0 @(skip) @ (or) -.coNP Variables@(assert bad ln `bad Variables heading`)@(rep :gap 0) @@, @{x /\S+/}@(last :mandatory) @@ @y and @@ @{z /\S+/}@(end) +.coNP @/Variables|Special variables/@(assert bad ln `bad Variables heading`)@(rep :gap 0) @@, @{x /\S+/}@(last :mandatory) @@ @y and @@ @{z /\S+/}@(end) @ (assert bad ln `no .desc after variables heading`) .desc @ (or) -.coNP Variable@(assert bad ln `bad Variable heading`) @{x /\S+/} +.coNP @/Variable|Special variable/@(assert bad ln `bad Variable heading`) @{x /\S+/} @ (assert bad ln `no .desc after variable heading`) .desc @ (end) |