summaryrefslogtreecommitdiffstats
path: root/share
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-04-04 07:34:57 -0700
committerKaz Kylheku <kaz@kylheku.com>2021-04-04 07:34:57 -0700
commitd697931dcc4cf2f3888f54d01cd88f0aab21e41b (patch)
tree4b01be3f55eee017614a7f4b20e09bff388ba3d4 /share
parent8443adf12598159280366a60d44762e14acc0f1e (diff)
downloadtxr-d697931dcc4cf2f3888f54d01cd88f0aab21e41b.tar.gz
txr-d697931dcc4cf2f3888f54d01cd88f0aab21e41b.tar.bz2
txr-d697931dcc4cf2f3888f54d01cd88f0aab21e41b.zip
awk: relax restriction on :name.
* share/txr/stdlib/awk.tl (sys:awk-expander): Do not impose stricter restrictions on :name than the block mechanism itself. * txr.1: Documentation updated.
Diffstat (limited to 'share')
-rw-r--r--share/txr/stdlib/awk.tl4
1 files changed, 0 insertions, 4 deletions
diff --git a/share/txr/stdlib/awk.tl b/share/txr/stdlib/awk.tl
index d92bfea8..6c85cb77 100644
--- a/share/txr/stdlib/awk.tl
+++ b/share/txr/stdlib/awk.tl
@@ -314,10 +314,6 @@
(awk-error "duplicate :name clauses"))
(when (or (atom actions) (cdr actions))
(awk-error "bad :name syntax"))
- (unless (car actions)
- (awk-error "null :name not permitted"))
- (unless (symbolp (car actions))
- (awk-error ":name must be a symbol"))
(set awc.name (car actions)))
(:let (push actions awc.lets))
(:begin (push actions awc.begin-actions))