mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-27 23:40:24 +02:00
Code Activity

(member-if): Put in docstring for member-if, it

Browse source 
was a cut-n-paste error previously.
This commit is contained in:
Marius Vollmer 2001-06-26 23:51:54 +00:00
parent e673b80495
commit abf94ef33f
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

@ -196,7 +196,7 @@ If found, return that element, otherwise return #f."
(else (find-if pred (cdr l)))))
(define-public (member-if pred l)
"Return #f iff (PRED element) is not true for any element in L."
"Return the first sublist of L for whose car PRED is true."
(cond ((null? l) #f)
((pred (car l)) l)
(else (member-if pred (cdr l)))))