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 | 85dedbe2f240e1c706e7d18d3db21e30a71b8863 (patch) | |
| tree | 9140a64612ac7a7ff78b0bb47456a16e0056cc1d | |
| parent | f7418016db5276c7a0a7443656dbf2be2a898f04 (diff) | |
| download | txr-85dedbe2f240e1c706e7d18d3db21e30a71b8863.tar.gz txr-85dedbe2f240e1c706e7d18d3db21e30a71b8863.tar.bz2 txr-85dedbe2f240e1c706e7d18d3db21e30a71b8863.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.
| -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 |