From bde25e195a88a78c12d3cdac820bcfdc8a01bbca Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 25 Oct 2015 18:50:32 -0700 Subject: Bugfix: incompletely implemented zap macro. * share/txr/stdlib/place.tl (zap): Missing second argument. --- share/txr/stdlib/place.tl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'share') 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 -- cgit v1.2.3