summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.scm
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-01-28 21:51:15 +0000
committerKevin Ryde <user42@zip.com.au>2005-01-28 21:51:15 +0000
commita8109cc0ae3e7360c9abfc8aa88127daf834fd42 (patch)
treefa4c85fd9009247d1754a28fa9623c1b761c6609 /srfi/srfi-1.scm
parent389a4e4715e6ffb82e224f8268b4ce4fcd507d1c (diff)
downloadguile-a8109cc0ae3e7360c9abfc8aa88127daf834fd42.tar.gz
(remove): Rewrite in C, a trivial adaption from scm_filter in the core.
(remove!): Use filter!.
Diffstat (limited to 'srfi/srfi-1.scm')
-rw-r--r--srfi/srfi-1.scm5
1 files changed, 1 insertions, 4 deletions
diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index ae9160c80..d67b70520 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -567,14 +567,11 @@
;;; Filtering & partitioning
-(define (remove pred list)
- (filter (lambda (x) (not (pred x))) list))
-
(define (partition! pred list)
(partition pred list)) ; XXX:optimize
(define (remove! pred list)
- (remove pred list)) ; XXX:optimize
+ (filter! (lambda (x) (not (pred x))) list))
;;; Searching