diff options
| -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 303548da..20405396 100644 --- a/share/txr/stdlib/place.tl +++ b/share/txr/stdlib/place.tl @@ -275,7 +275,7 @@ (defmacro pop (place :env env) (with-gensyms (tmp) (with-update-expander (getter setter) place env - ^(let ((,tmp (,getter))) + ^(alet ((,tmp (,getter))) (prog1 (car ,tmp) (,setter (cdr ,tmp))))))) (defmacro pushnew (new-item place :env env : |