diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-07-15 07:10:39 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-07-15 07:10:39 -0700 |
| commit | f06b7cfa63a93512e4764cfd424ae2e838f8de4d (patch) | |
| tree | 9140a64612ac7a7ff78b0bb47456a16e0056cc1d /share | |
| parent | 5b71846a6561d20a0c954095f92cf125674ea8f1 (diff) | |
| download | txr-f06b7cfa63a93512e4764cfd424ae2e838f8de4d.tar.gz txr-f06b7cfa63a93512e4764cfd424ae2e838f8de4d.tar.bz2 txr-f06b7cfa63a93512e4764cfd424ae2e838f8de4d.zip | |
Remove unused variable in placelet implementation.
* share/txr/stdlib/place.tl (sys:placelet-1): Remove the
genyms called steal-getter which is not referenced.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/place.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/place.tl b/share/txr/stdlib/place.tl index 07293bef..63d855a9 100644 --- a/share/txr/stdlib/place.tl +++ b/share/txr/stdlib/place.tl @@ -891,7 +891,7 @@ ^(,setter (,',function (,getter) ,,*cleaned-lambda-list))))))) (defmacro sys:placelet-1 (((sym place)) :env env . body) - (with-gensyms (tmp-place pl-getter pl-setter steal-getter) + (with-gensyms (tmp-place pl-getter pl-setter) (unwind-protect (progn (sethash *place-update-expander* tmp-place |