From fab97c1888f6fdf32187869d2024770664a10d08 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 8 Jun 2016 22:18:55 -0700
Subject: 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.
---
 share/txr/stdlib/place.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'share')

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
-- 
cgit v1.2.3