From cd317b42291871ecae4d0f62e68adf4ace3b4b5b Mon Sep 17 00:00:00 2001 From: Nala Ginrut Date: Tue, 10 Sep 2013 16:17:40 +0800 Subject: [PATCH] Fixed typo of string-rindex document * doc/ref/api-data.texi (string-rindex) * libguile/srfi-13.c (string-rindex): fixed the wrong description in document --- doc/ref/api-data.texi | 2 +- libguile/srfi-13.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/doc/ref/api-data.texi b/doc/ref/api-data.texi index 7603180..f33a3cd 100644 --- a/doc/ref/api-data.texi +++ b/doc/ref/api-data.texi @@ -3715,7 +3715,7 @@ Return @code{#f} if no match is found. @deffn {Scheme Procedure} string-rindex s char_pred [start [end]] @deffnx {C Function} scm_string_rindex (s, char_pred, start, end) Search through the string @var{s} from right to left, returning -the index of the last occurrence of a character which +the index of the first occurrence of a character which @itemize @bullet @item diff --git a/libguile/srfi-13.c b/libguile/srfi-13.c index 4e5d572..62f6e1d 100644 --- a/libguile/srfi-13.c +++ b/libguile/srfi-13.c @@ -1774,7 +1774,7 @@ SCM_DEFINE (scm_string_index_right, "string-index-right", 2, 2, 0, SCM_DEFINE (scm_string_rindex, "string-rindex", 2, 2, 0, (SCM s, SCM char_pred, SCM start, SCM end), "Search through the string @var{s} from right to left, returning\n" - "the index of the last occurrence of a character which\n" + "the index of the first occurrence of a character which\n" "\n" "@itemize @bullet\n" "@item\n" -- 1.7.10.4