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 | f45cd8e9797e4397b2e8ea9a7928492ba22a1651 (patch) | |
| tree | 68a0811409b1f24e7727b0667227492fc6c0dc78 | |
| parent | 384c23c02dee3d9523b7a60ea367374c88941251 (diff) | |
| download | txr-f45cd8e9797e4397b2e8ea9a7928492ba22a1651.tar.gz txr-f45cd8e9797e4397b2e8ea9a7928492ba22a1651.tar.bz2 txr-f45cd8e9797e4397b2e8ea9a7928492ba22a1651.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.
| -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)) |