From abf94ef33fa88e797790f5de3db40f193d025c03 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Tue, 26 Jun 2001 23:51:54 +0000 Subject: [PATCH] (member-if): Put in docstring for member-if, it was a cut-n-paste error previously. --- ice-9/common-list.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ice-9/common-list.scm b/ice-9/common-list.scm index bc583fdf2..a8b775cef 100644 --- a/ice-9/common-list.scm +++ b/ice-9/common-list.scm @@ -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)))))