diff options
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) |