diff options
| -rw-r--r-- | share/txr/stdlib/build.tl | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/share/txr/stdlib/build.tl b/share/txr/stdlib/build.tl index c607571f..76be9f55 100644 --- a/share/txr/stdlib/build.tl +++ b/share/txr/stdlib/build.tl @@ -49,10 +49,7 @@ (let ((st self.tail)) (rplacd st (append (cdr st) nil))) (let* ((tl (last self.tail)) - (cp (let ((ll (car (last lists)))) - (if (consp ll) - (let ((lt (last ll))) - (eq tl lt))))) + (cp (tailp tl (car (last lists)))) (nl [apply append lists])) (usr:rplacd tl (append (cdr tl) (if cp (copy-list nl) nl))) (set self.tail tl)) |