diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-04-04 07:34:57 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-04-04 07:34:57 -0700 |
commit | d697931dcc4cf2f3888f54d01cd88f0aab21e41b (patch) | |
tree | 4b01be3f55eee017614a7f4b20e09bff388ba3d4 /share | |
parent | 8443adf12598159280366a60d44762e14acc0f1e (diff) | |
download | txr-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.tl | 4 |
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)) |