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
commit27eddbdc928494af86398d216caf416d14f0d43a (patch)
treef9062ab0b1a7421a26298da0bf9538b74336d263
parentc362d700cab9f084a84a51066738a4d54f9704dc (diff)
downloadtxr-27eddbdc928494af86398d216caf416d14f0d43a.tar.gz
txr-27eddbdc928494af86398d216caf416d14f0d43a.tar.bz2
txr-27eddbdc928494af86398d216caf416d14f0d43a.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