From 6faef5e7e7bbfad85d85ab9e29d58070c9d679e0 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 9 Sep 2016 06:54:13 -0700
Subject: 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.
---
 share/txr/stdlib/awk.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'share')

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))
-- 
cgit v1.2.3