diff options
| -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 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 |