diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-11-29 21:40:05 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-11-29 21:40:05 -0800 |
| commit | 01d25b411c4d98d1cc6e38c287b8e0162ca4f9c5 (patch) | |
| tree | 9ebf13b3263284a2d3b1d960ee81d1acb059562c /share | |
| parent | fd171ca03aa44a304010ca18c3cf1731a514d2df (diff) | |
| download | txr-01d25b411c4d98d1cc6e38c287b8e0162ca4f9c5.tar.gz txr-01d25b411c4d98d1cc6e38c287b8e0162ca4f9c5.tar.bz2 txr-01d25b411c4d98d1cc6e38c287b8e0162ca4f9c5.zip | |
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.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/struct.tl | 4 |
1 files 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))) |