Sorry I forget to update doc-string.
Here's the correct patch.
>From cd317b42291871ecae4d0f62e68adf4ace3b4b5b Mon Sep 17 00:00:00 2001
From: Nala Ginrut <[email protected]>
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
