1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00

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

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

View file

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