diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 47abf573..06935a02 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -679,7 +679,7 @@ ,*(caseq each-type (collect-each ^((rplacd ,accum (cons (progn ,*body) nil)) (sys:setq ,accum (cdr ,accum)))) - (append-each ^((rplacd ,accum (progn ,*body)) + (append-each ^((rplacd ,accum (append (cdr ,accum) (progn ,*body))) (sys:setq ,accum (last ,accum)))) (t body))))))) |