diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-07-09 12:58:10 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-07-09 12:58:10 -0700 |
| commit | e7698eff01592fc39953836bbe896444587e7f8b (patch) | |
| tree | b8a68f27b3580506714b6749760a175f7317727b | |
| parent | 73890bf51805d416936b0d1e7ef87e6fe840010e (diff) | |
| download | txr-e7698eff01592fc39953836bbe896444587e7f8b.tar.gz txr-e7698eff01592fc39953836bbe896444587e7f8b.tar.bz2 txr-e7698eff01592fc39953836bbe896444587e7f8b.zip | |
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).
| -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 |