diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-10-26 22:21:51 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-10-26 22:21:51 -0700 |
| commit | baad47e4514d8b976669ba71671cc2eccdf2d7e7 (patch) | |
| tree | 49b5c3dbe03430914964735a9c589c61a102b2c4 | |
| parent | 7ac825c0d2ce608c8836d78910a92889b52be9f8 (diff) | |
| download | txr-baad47e4514d8b976669ba71671cc2eccdf2d7e7.tar.gz txr-baad47e4514d8b976669ba71671cc2eccdf2d7e7.tar.bz2 txr-baad47e4514d8b976669ba71671cc2eccdf2d7e7.zip | |
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.
| -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 |