diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-01-28 21:51:15 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-01-28 21:51:15 +0000 |
commit | a8109cc0ae3e7360c9abfc8aa88127daf834fd42 (patch) | |
tree | fa4c85fd9009247d1754a28fa9623c1b761c6609 /srfi | |
parent | 389a4e4715e6ffb82e224f8268b4ce4fcd507d1c (diff) | |
download | guile-a8109cc0ae3e7360c9abfc8aa88127daf834fd42.tar.gz |
(remove): Rewrite in C, a trivial adaption from scm_filter in the core.
(remove!): Use filter!.
Diffstat (limited to 'srfi')
-rw-r--r-- | srfi/srfi-1.scm | 5 |
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 |