diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-21 07:00:43 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-21 07:00:43 -0700 |
| commit | 70817a322732eef130dd943ac95d6d9c4b805920 (patch) | |
| tree | ae9e3df3e4a342608b58e274d4b603bafe1630c6 /struct.c | |
| parent | e64bfa71cdb0f3be303ebb872e05540497197a58 (diff) | |
| download | txr-70817a322732eef130dd943ac95d6d9c4b805920.tar.gz txr-70817a322732eef130dd943ac95d6d9c4b805920.tar.bz2 txr-70817a322732eef130dd943ac95d6d9c4b805920.zip | |
compiler: append-each: bugfix for non-lists.
* share/txr/stdlib/compiler.tl: If a non-list sequence like a
string or vector is being accumulated, we must have an append
call, because the accumulation cell is never extended with new
cells. After we replace the cdr of ,accum with a string or
vector atom, (last ,accum) just finds ,accum and so then the
cdr will be clobbered on the next iteration.
Diffstat (limited to 'struct.c')
0 files changed, 0 insertions, 0 deletions