diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-06-08 22:18:55 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-06-08 22:18:55 -0700 |
| commit | fab97c1888f6fdf32187869d2024770664a10d08 (patch) | |
| tree | f9062ab0b1a7421a26298da0bf9538b74336d263 /share | |
| parent | b428c9f7bc247159349f36d398b535f18e5d0e09 (diff) | |
| download | txr-fab97c1888f6fdf32187869d2024770664a10d08.tar.gz txr-fab97c1888f6fdf32187869d2024770664a10d08.tar.bz2 txr-fab97c1888f6fdf32187869d2024770664a10d08.zip | |
Fix broken place delete semantics of symbol-value.
* share/txr/stdlib/place.tl (defplace symbol-value):
Don't splice body into deleter syntax; must use plain unquote.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/place.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/place.tl b/share/txr/stdlib/place.tl index 68567ed1..d34d03ed 100644 --- a/share/txr/stdlib/place.tl +++ b/share/txr/stdlib/place.tl @@ -637,7 +637,7 @@ : (deleter ^(macrolet ((,deleter () ^(makunbound ,',sym-expr))) - ,*body))) + ,body))) (defplace (slot struct sym) body (getter setter |