summaryrefslogtreecommitdiff
path: root/libguile/strop.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/strop.c')
-rw-r--r--libguile/strop.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/strop.c b/libguile/strop.c
index bd1076a24..4adfed975 100644
--- a/libguile/strop.c
+++ b/libguile/strop.c
@@ -58,7 +58,7 @@ scm_i_index (str, chr, direction, sub_start, sub_end, pos, pos2, pos3, pos4,
SCM_ASSERT (SCM_INUMP (sub_start), sub_start, pos3, why);
lower = SCM_INUM (sub_start);
if (lower < 0
- || lower >= SCM_ROLENGTH (*str))
+ || lower > SCM_ROLENGTH (*str))
scm_out_of_range (why, sub_start);
if (sub_end == SCM_BOOL_F)