From 8bc2e0f67b6d0d06cda038ebe3bfb49521fa6aa2 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 19 Jul 2017 06:55:00 -0700 Subject: checkman: verify Special variables sections. * checkman.txr (check-var): This pattern function must handle "Special variable{s,}" sections not only "Variable{s,}". --- checkman.txr | 8 ++++---- 1 file 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) -- cgit v1.2.3