diff options
| -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))) |