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)