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 | 969136c514659bdd7376b92f1495007fd9fe8abd (patch) | |
| tree | b8a68f27b3580506714b6749760a175f7317727b | |
| parent | 149059c81cd845e6707fe61d754eeca6a9812519 (diff) | |
| download | txr-969136c514659bdd7376b92f1495007fd9fe8abd.tar.gz txr-969136c514659bdd7376b92f1495007fd9fe8abd.tar.bz2 txr-969136c514659bdd7376b92f1495007fd9fe8abd.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 |