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 | 421f7d9c4c9d3d19d3e0b1cdffd3c72d32a17c98 (patch) | |
| tree | 49b5c3dbe03430914964735a9c589c61a102b2c4 | |
| parent | a69d1f264c07c331f82c8abfd9fc471bb5de346d (diff) | |
| download | txr-421f7d9c4c9d3d19d3e0b1cdffd3c72d32a17c98.tar.gz txr-421f7d9c4c9d3d19d3e0b1cdffd3c72d32a17c98.tar.bz2 txr-421f7d9c4c9d3d19d3e0b1cdffd3c72d32a17c98.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 |