diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-04-26 07:27:59 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-04-26 07:27:59 -0700 |
| commit | 637617fa71cfb05c2d2ab07f3e820b2eb712049c (patch) | |
| tree | ac318eca42741aff6eec3c42a70a6165c28fbb9a /checkman.txr | |
| parent | 7d0f84199ff2b5662f171135cc1f271f5a8b7ec1 (diff) | |
| download | txr-637617fa71cfb05c2d2ab07f3e820b2eb712049c.tar.gz txr-637617fa71cfb05c2d2ab07f3e820b2eb712049c.tar.bz2 txr-637617fa71cfb05c2d2ab07f3e820b2eb712049c.zip | |
Check .metn similarly to .codn and fix.
* checkman.txr: Check .metn using logic shared with .codn.
* txr.1: Numerous errors fixed.
Diffstat (limited to 'checkman.txr')
| -rw-r--r-- | checkman.txr | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/checkman.txr b/checkman.txr index e9c49348..26669fd6 100644 --- a/checkman.txr +++ b/checkman.txr @@ -59,7 +59,7 @@ @ (end) @(end) @;; -@;; .code, .codn, .cod2, .cod3 checks +@;; check .code, .codn, .cod2, .cod3, .meta and .metn. @;; @(define check-code ()) @ (cases) @@ -69,9 +69,9 @@ @ (or) .cod3 @(assert bad ln `.cod3 needs three arguments`)@x @y @{z /\S+/}@(eol) @ (or) -.@{type /codn|cod2/} @(assert bad ln `.@type needs two arguments`)@(cases)"@x"@(or)@{x /\S+/}@(end) @{y /\S+/}@(eol) +.@{type /codn|cod2|metn/} @(assert bad ln `.@type needs two arguments`)@(cases)"@x"@(or)@{x /\S+/}@(end) @{y /\S+/}@(eol) @ (assert bad ln `.codn second argument doesn't begin with punctuation`) -@ (require (or (not (equal type "codn")) +@ (require (or (not (memqual type '("codn" "metn"))) (chr-ispunct [y 0]))) @ (end) @(end) |