* srfi-1.scm (filter, filter!): Removed. (Now implemented in the core.)

[bpt/guile.git] / srfi / srfi-1.scm

diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index 98ffeb4..9fadee8 100644 (file)
--- 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