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:
parent
b54a5b5af5
commit
47678fe3bc
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue