summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.scm
diff options
context:
space:
mode:
Diffstat (limited to 'srfi/srfi-1.scm')
-rw-r--r--srfi/srfi-1.scm19
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