mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-31 01:10:24 +02:00
(remove): Rewrite in C, a trivial adaption from scm_filter in the core.
(remove!): Use filter!.
This commit is contained in:
parent
389a4e4715
commit
a8109cc0ae
1 changed files with 1 additions and 4 deletions
|
@ -567,14 +567,11 @@
|
||||||
|
|
||||||
;;; Filtering & partitioning
|
;;; Filtering & partitioning
|
||||||
|
|
||||||
(define (remove pred list)
|
|
||||||
(filter (lambda (x) (not (pred x))) list))
|
|
||||||
|
|
||||||
(define (partition! pred list)
|
(define (partition! pred list)
|
||||||
(partition pred list)) ; XXX:optimize
|
(partition pred list)) ; XXX:optimize
|
||||||
|
|
||||||
(define (remove! pred list)
|
(define (remove! pred list)
|
||||||
(remove pred list)) ; XXX:optimize
|
(filter! (lambda (x) (not (pred x))) list))
|
||||||
|
|
||||||
;;; Searching
|
;;; Searching
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue