diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-05-26 06:51:36 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-05-26 06:51:36 -0700 |
| commit | 4809602f3733c84a6b3d671992e8e24560765d53 (patch) | |
| tree | 6437861e5aea2611bc5af95348fcc2c813258b72 /checkman.txr | |
| parent | 72cb19d06e0b9828cace88a6ca923a79fa563dc0 (diff) | |
| download | txr-4809602f3733c84a6b3d671992e8e24560765d53.tar.gz txr-4809602f3733c84a6b3d671992e8e24560765d53.tar.bz2 txr-4809602f3733c84a6b3d671992e8e24560765d53.zip | |
Check manual for .cblk/.cble pairing.
* checkman.txr (check-cblk): New pattern
function, hooked into main scan.
* txr.1: Fixed four instances of .cblk closed
by .cblk instead of .cble.
Diffstat (limited to 'checkman.txr')
| -rw-r--r-- | checkman.txr | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/checkman.txr b/checkman.txr index 9d9a20a9..8d7b8327 100644 --- a/checkman.txr +++ b/checkman.txr @@ -78,6 +78,20 @@ @ (end) @(end) @;; +@;; Check .cblk/.cble pairing +@;; +@(define check-cblk ()) +.cblk +@ (assert bad ln `.cblk not closed`) +@ (repeat :gap 0) +@ (none) +.cblk +@ (end) +@ (until :mandatory) +.cble +@ (end) +@(end) +@;; @;; Main @;; @(bind errors 0) @@ -90,6 +104,8 @@ @ (check-func) @ (or) @ (check-code) +@ (or) +@ (check-cblk) @ (end) @ (catch bad (line msg)) @ (do (inc errors) |