diff options
Diffstat (limited to 'srfi/srfi-1.scm')
-rw-r--r-- | srfi/srfi-1.scm | 19 |
1 files changed, 2 insertions, 17 deletions
diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm index 98ffeb46f..9fadee8e2 100644 --- a/srfi/srfi-1.scm +++ b/srfi/srfi-1.scm @@ -174,10 +174,10 @@ filter-map ;;; Filtering & partitioning - filter + ;; filter <= in the core partition remove - filter! + ;; filter! <= in the core partition! remove! @@ -687,18 +687,6 @@ ;;; Filtering & partitioning -(define (filter pred list) - (check-arg-type list? list "filter") ; reject circular lists. - (letrec ((filiter (lambda (pred rest result) - (if (null? rest) - (reverse! result) - (filiter pred (cdr rest) - (cond ((pred (car rest)) - (cons (car rest) result)) - (else - result))))))) - (filiter pred list '()))) - (define (partition pred list) (if (null? list) (values '() '()) @@ -711,9 +699,6 @@ (define (remove pred list) (filter (lambda (x) (not (pred x))) list)) -(define (filter! pred list) - (filter pred list)) ; XXX:optimize - (define (partition! pred list) (partition pred list)) ; XXX:optimize |