diff options
| -rw-r--r-- | share/txr/stdlib/place.tl | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/share/txr/stdlib/place.tl b/share/txr/stdlib/place.tl index eb827fd4..e3ba6c0f 100644 --- a/share/txr/stdlib/place.tl +++ b/share/txr/stdlib/place.tl @@ -156,10 +156,7 @@ (sys:setq place (macroexpand-1 place env)) (when (or (eq place unex-place) (null place) - (and (atom place) (not (symbolp place))) - (and (consp place) - (consp unex-place) - (eq (car place) (car unex-place)))) + (and (atom place) (not (symbolp place)))) (return place)) (sys:setq unex-place place)))) |