diff options
| -rw-r--r-- | share/txr/stdlib/place.tl | 4 |
1 files 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 |