From ac5cbc70318802a0af1893b64aa81b363456497a Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Sun, 5 Dec 2004 22:51:12 +0000 Subject: [PATCH] (delete-duplicates): Remove unused extra copy of this routine. --- srfi/srfi-1.scm | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm index ff9be8e2f..889b10029 100644 --- a/srfi/srfi-1.scm +++ b/srfi/srfi-1.scm @@ -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 '()))