diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-10-25 18:50:32 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-10-25 18:50:32 -0700 |
| commit | bde25e195a88a78c12d3cdac820bcfdc8a01bbca (patch) | |
| tree | 7332a9786900c798fb6dbbd99f4b2416e820f69e /share | |
| parent | ddd9073c71ea80702a0c3d67ebd644b5f93ce07e (diff) | |
| download | txr-bde25e195a88a78c12d3cdac820bcfdc8a01bbca.tar.gz txr-bde25e195a88a78c12d3cdac820bcfdc8a01bbca.tar.bz2 txr-bde25e195a88a78c12d3cdac820bcfdc8a01bbca.zip | |
Bugfix: incompletely implemented zap macro.
* share/txr/stdlib/place.tl (zap): Missing second argument.
Diffstat (limited to 'share')
| -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 14cb87b6..b1452225 100644 --- a/share/txr/stdlib/place.tl +++ b/share/txr/stdlib/place.tl @@ -196,9 +196,9 @@ place env accum-form)) pvtgs body-form)))))) -(defmacro zap (place :env env) +(defmacro zap (place : (new-val nil) :env env) (with-update-expander (getter setter) place env - ^(prog1 (,getter) (,setter nil)))) + ^(prog1 (,getter) (,setter ,new-val)))) (defmacro flip (place :env env) (with-update-expander (getter setter) place env |