mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

(delete-duplicates): Remove unused extra copy of this routine.

Browse source
This commit is contained in:
Kevin Ryde 2004-12-05 22:51:12 +00:00
parent 6b0fbcf5e5
commit ac5cbc7031
1 changed files with 0 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

14
srfi/srfi-1.scm
View file

@ -908,20 +908,6 @@
(let ((l= (if (pair? rest) (car rest) equal?)))
(delete x list l=))) ; XXX:optimize
(define (delete-duplicates list . rest)
(let ((l= (if (pair? rest) (car rest) equal?)))
(let lp0 ((l1 list))
(if (null? l1)
'()
(if (let lp1 ((l2 (cdr l1)))
(if (null? l2)
#f
(if (l= (car l1) (car l2))
#t
(lp1 (cdr l2)))))
(lp0 (cdr l1))
(cons (car l1) (lp0 (cdr l1))))))))
(define (delete-duplicates list . rest)
(let ((l= (if (pair? rest) (car rest) equal?)))
(let lp ((list list) (rl '()))