guile/guile-core/ice-9 common-list.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/06/26 16:51:54

Modified files:
        guile-core/ice-9: common-list.scm 

Log message:
        (member-if): Put in docstring for member-if, it
        was a cut-n-paste error previously.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/common-list.scm.diff?cvsroot=OldCVS&tr1=1.12&tr2=1.13&r1=text&r2=text

Patches:
Index: guile/guile-core/ice-9/common-list.scm
diff -u guile/guile-core/ice-9/common-list.scm:1.12 
guile/guile-core/ice-9/common-list.scm:1.13
--- guile/guile-core/ice-9/common-list.scm:1.12 Thu Jun 14 11:22:25 2001
+++ guile/guile-core/ice-9/common-list.scm      Tue Jun 26 16:51:54 2001
@@ -196,7 +196,7 @@
        (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)))))