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 | |
| 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.
| -rw-r--r-- | checkman.txr | 16 | ||||
| -rw-r--r-- | txr.1 | 8 |
2 files changed, 20 insertions, 4 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) @@ -21154,7 +21154,7 @@ This is different from the behavior of .cblk .meti >> [ sequence 0..t] -.cblk +.cble or .cblk .meti (sub < sequence 0 t) @@ -27268,7 +27268,7 @@ evaluated and inserted into the resulting structure. The syntax .cblk .meti (qquote (unquote << form )) -.cblk +.cble is equivalent to .metn form : the @@ -32088,7 +32088,7 @@ Contrast the previous example with: (let ((rest "0")) `rest: @@rest`) -> ;; error: no such function or operator: sys:var -.cblk +.cble Under the .code op @@ -32202,7 +32202,7 @@ according to the following equivalence: (ado form ...) <--> (apf (do form ...)) (ido form ...) <--> (ipf (do form ...)) -.cblk +.cble See also: the .code apf |