summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2016-06-08 22:18:55 -0700
committerKaz Kylheku <kaz@kylheku.com>2016-06-08 22:18:55 -0700
commitfab97c1888f6fdf32187869d2024770664a10d08 (patch)
treef9062ab0b1a7421a26298da0bf9538b74336d263
parentb428c9f7bc247159349f36d398b535f18e5d0e09 (diff)
downloadtxr-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.
-rw-r--r--share/txr/stdlib/place.tl2
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