diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-09-09 06:54:13 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-09-09 06:54:13 -0700 |
| commit | 6faef5e7e7bbfad85d85ab9e29d58070c9d679e0 (patch) | |
| tree | 68a0811409b1f24e7727b0667227492fc6c0dc78 /share/txr | |
| parent | 7d6eb419494d58ce8dba4ab2582793a1c04f3854 (diff) | |
| download | txr-6faef5e7e7bbfad85d85ab9e29d58070c9d679e0.tar.gz txr-6faef5e7e7bbfad85d85ab9e29d58070c9d679e0.tar.bz2 txr-6faef5e7e7bbfad85d85ab9e29d58070c9d679e0.zip | |
awk macro: don't use zap.
* share/txr/stdlib/awk.tl (sys:awk-state rec-to-f): Don't use
zap macro when the return value is not used.
Diffstat (limited to 'share/txr')
| -rw-r--r-- | share/txr/stdlib/awk.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/awk.tl b/share/txr/stdlib/awk.tl index f3b80a79..f9cbc160 100644 --- a/share/txr/stdlib/awk.tl +++ b/share/txr/stdlib/awk.tl @@ -48,7 +48,7 @@ (defmeth sys:awk-state rec-to-f (self) (cond ((equal self.rec "") - (zap self.fields) + (set self.fields nil) (set self.nf 0)) (t (set self.fields (split-str self.rec self.fs)) |