mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

(scm_srfi1_member): Update docstring from manual.

Browse source
This commit is contained in:
Kevin Ryde 2005-01-23 21:27:51 +00:00
parent ac70289c71
commit 4e3cc389f0
1 changed files with 15 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

23
srfi/srfi-1.c
View file

@ -716,14 +716,21 @@ scm_srfi1_for_each (SCM proc, SCM arg1, SCM args)
SCM_DEFINE (scm_srfi1_member, "member", 2, 1, 0, SCM_DEFINE (scm_srfi1_member, "member", 2, 1, 0,
(SCM x, SCM lst, SCM pred), (SCM x, SCM lst, SCM pred),
"Return the first sublist of @var{lst} whose car is\n" "Return the first sublist of @var{lst} whose @sc{car} is equal\n"
"@var{equal?} to @var{x} where the sublists of @var{lst} are\n" "to @var{x}. If @var{x} does not appear in @var{lst}, return\n"
"the non-empty lists returned by @code{(list-tail @var{lst}\n" "@code{#f}.\n"
"@var{k})} for @var{k} less than the length of @var{lst}. If\n" "\n"
"@var{x} does not occur in @var{lst}, then @code{#f} (not the\n" "Equality is determined by @code{equal?}, or by the equality\n"
"empty list) is returned. If optional third argument @var{equal?}\n" "predicate @var{=} if given. @var{=} is called @code{(= @var{x}\n"
"isn't given, @code{equal?} is used for comparison.\n" "elem)}, ie.@: with the given @var{x} first, so for example to\n"
"(Extended from R5RS.)\n") "find the first element greater than 5,\n"
"\n"
"@example\n"
"(member 5 '(3 5 1 7 2 9) <) @result{} (7 2 9)\n"
"@end example\n"
"\n"
"This version of @code{member} extends the core @code{member} by\n"
"accepting an equality predicate.")
#define FUNC_NAME s_scm_srfi1_member #define FUNC_NAME s_scm_srfi1_member
{ {
scm_t_trampoline_2 equal_p; scm_t_trampoline_2 equal_p;