From 421f7d9c4c9d3d19d3e0b1cdffd3c72d32a17c98 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 26 Oct 2016 22:21:51 -0700 Subject: Fix unbound variable in seq place update. * share/txr/stdlib/place.tl (defplace sub): Fix unbound variable seq-setter in update expander. Wrong unquoting level. --- share/txr/stdlib/place.tl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/share/txr/stdlib/place.tl b/share/txr/stdlib/place.tl index 72519795..ef1ec132 100644 --- a/share/txr/stdlib/place.tl +++ b/share/txr/stdlib/place.tl @@ -592,8 +592,8 @@ (macrolet ((,getter () ^(sub ,',seq-sym ,',from-sym ,',to-sym)) (,setter (val) ^(alet ((,',v-sym ,val)) - (,seq-setter (replace ,',seq-sym ,',v-sym - ,',from-sym ,',to-sym)) + (,',seq-setter (replace ,',seq-sym ,',v-sym + ,',from-sym ,',to-sym)) ,',v-sym))) ,body))))) (ssetter -- cgit v1.2.3