From e7698eff01592fc39953836bbe896444587e7f8b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 9 Jul 2017 12:58:10 -0700 Subject: places: remove superfluous @1. * share/txr/stdlib/place.tl (sys:get:fun-getter-setter): Remove superfluous @1 from op macro syntax, on the basis that (op function @1) is equivalent to (op function). --- share/txr/stdlib/place.tl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/share/txr/stdlib/place.tl b/share/txr/stdlib/place.tl index 90251726..07293bef 100644 --- a/share/txr/stdlib/place.tl +++ b/share/txr/stdlib/place.tl @@ -817,14 +817,14 @@ (unless cell (sys:eval-err "unbound macro ~s" sym)) (cons (op cdr) - (op sys:rplacd cell @1))) + (op sys:rplacd cell))) :)) (else (let ((cell (gethash sys:top-fb sym))) (unless cell (sys:eval-err "unbound function ~s" sym)) (cons (op cdr) - (op sys:rplacd cell @1)))))) + (op sys:rplacd cell)))))) (defplace (symbol-function sym-expr) body (getter setter -- cgit v1.2.3