diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-01 13:57:38 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-01 13:57:38 -0800 |
| commit | df9904609a72052b1014f48e4de8fa1baa74fc94 (patch) | |
| tree | 4fd4f17d630ca6baaba4de89757c9de70db07174 /checkman.txr | |
| parent | f9f8b1cc48212450fd200cc517b8f9ed932e1cb9 (diff) | |
| download | txr-df9904609a72052b1014f48e4de8fa1baa74fc94.tar.gz txr-df9904609a72052b1014f48e4de8fa1baa74fc94.tar.bz2 txr-df9904609a72052b1014f48e4de8fa1baa74fc94.zip | |
progn, prog1, prog2: now also functions.
* eval.c (progn_fun, prog1_fun, prog2_fun): New static
functions.
(eval_init): Wire progn, prog1 and prog2 function bindings
to new functions.
* txr.1: Documented.
* checkman.txr (check-func): Recognize Macro/function and
Operators/functions heading.
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 dcbf99e7..cbec82be 100644 --- a/checkman.txr +++ b/checkman.txr @@ -49,15 +49,15 @@ @;; @(define check-func ()) @ (cases) -.coNP Operator/function @(skip) -@ (assert bad ln `no .synb after Operator/function heading`) +.coNP @{type /Operator|Macro/}/function @(skip) +@ (assert bad ln `no .synb after @type/function heading`) @ (check-synb) @ (or) .coNP Operator @@ @op and macro @@ @mac @ (assert bad ln `no .synb after Operator and macro heading`) @ (check-synb) @ (or) -.coNP @{type /Function|Operator|Macro|Accessor|Method|Structure/}s@(assert bad ln `bad @{type}s heading`)@(rep :gap 0) @@, @{x /\S+/}@(last :mandatory) @@ @y and @@ @{z /\S+/}@(end) +.coNP @{type /Function|Operator|Macro|Accessor|Method|Structure|(Operators|Macros)\/function/}s@(assert bad ln `bad @{type}s heading`)@(rep :gap 0) @@, @{x /\S+/}@(last :mandatory) @@ @y and @@ @{z /\S+/}@(end) @ (assert bad ln `no .synb after @{type}s heading`) @ (check-synb) @ (or) |