[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/ice-9 common-list.scm
From: |
Marius Vollmer |
Subject: |
guile/guile-core/ice-9 common-list.scm |
Date: |
Tue, 26 Jun 2001 16:51:54 -0700 |
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)))))