mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

(remove): Rewrite in C, a trivial adaption from scm_filter in the core.

Browse source 
(remove!): Use filter!.
This commit is contained in:
Kevin Ryde 2005-01-28 21:51:15 +00:00
parent 389a4e4715
commit a8109cc0ae
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
srfi/srfi-1.scm
View file

@ -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