From 01d25b411c4d98d1cc6e38c287b8e0162ca4f9c5 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 29 Nov 2016 21:40:05 -0800 Subject: Awk: assignment to f doesn't yield new value. * share/txr/stdlib/struct.tl (sys:rslotset): Return the new value that comes out of slotset, rather than the value of the method call. Also, we don't need macro-time wrapping. --- share/txr/stdlib/struct.tl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl index ca764b03..b180a2d5 100644 --- a/share/txr/stdlib/struct.tl +++ b/share/txr/stdlib/struct.tl @@ -259,8 +259,8 @@ slot-specs)) ,*body)))) -(macro-time - (defun sys:rslotset (struct sym meth-sym val) +(defun sys:rslotset (struct sym meth-sym val) + (prog1 (slotset struct sym val) (call (umethod meth-sym) struct))) -- cgit v1.2.3