oops, I realized that string-index-right which is introduced in srfi-13 has the same issue too, and patch update here.
>From 9911b0f9b51358d9f96b23c924b4597b8bc5f5e5 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 and string-index-right document * doc/ref/api-data.texi (string-rindex, string-index-right) * libguile/srfi-13.c (string-rindex, string-index-right): fixed the wrong description in document --- doc/ref/api-data.texi | 4 ++-- libguile/srfi-13.c | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/doc/ref/api-data.texi b/doc/ref/api-data.texi index 7603180..ebf3069 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 @@ -3778,7 +3778,7 @@ Is @var{s1} a suffix of @var{s2}, ignoring character case? @deffn {Scheme Procedure} string-index-right s char_pred [start [end]] @deffnx {C Function} scm_string_index_right (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..d979a49 100644 --- a/libguile/srfi-13.c +++ b/libguile/srfi-13.c @@ -1709,7 +1709,7 @@ SCM_DEFINE (scm_string_index, "string-index", 2, 2, 0, SCM_DEFINE (scm_string_index_right, "string-index-right", 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" @@ -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
