mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 21:30:29 +02:00
Code Activity

* common-list.scm (delete-if-not!): Bug fix of bug fix: change

Browse source 
label of named let to `delete-if-not'.  Sorry.
This commit is contained in:
Marius Vollmer 2000-05-09 19:43:14 +00:00
parent b54a5b5af5
commit 47678fe3bc
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ice-9/common-list.scm
View file

@ -162,7 +162,7 @@ Returns everything that's left."
(define-public (delete-if-not! pred list) (define-public (delete-if-not! pred list)
"Destructive version of `remove-if-not'." "Destructive version of `remove-if-not'."
(let delete-if ((list list)) (let delete-if-not ((list list))
(cond ((null? list) '()) (cond ((null? list) '())
((not (pred (car list))) (delete-if-not (cdr list))) ((not (pred (car list))) (delete-if-not (cdr list)))
(else (else