diff options
Diffstat (limited to 'srfi')
-rw-r--r-- | srfi/ChangeLog | 5 | ||||
-rw-r--r-- | srfi/srfi-1.scm | 19 |
2 files changed, 5 insertions, 19 deletions
diff --git a/srfi/ChangeLog b/srfi/ChangeLog index 638bd828e..ee32af7ba 100644 --- a/srfi/ChangeLog +++ b/srfi/ChangeLog @@ -1,7 +1,8 @@ 2003-03-11 Mikael Djurfeldt <djurfeldt@nada.kth.se> - * srfi-1.scm (iota map for-each map-in-order list-index member - delete delete! assoc): Marked as replacements. + * srfi-1.scm (iota, map, for-each, map-in-order, list-index, + member, delete, delete!, assoc): Marked as replacements. + (filter, filter!): Removed. (Now implemented in the core.) 2003-03-06 Mikael Djurfeldt <djurfeldt@nada.kth.se> 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 |