diff options
Diffstat (limited to 'libguile/srfi-13.c')
-rw-r--r-- | libguile/srfi-13.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/srfi-13.c b/libguile/srfi-13.c index eb495af61..eed0fa7cd 100644 --- a/libguile/srfi-13.c +++ b/libguile/srfi-13.c @@ -2253,7 +2253,7 @@ SCM_DEFINE (scm_string_contains, "string-contains", 2, 4, 0, 5, start2, cstart2, 6, end2, cend2); len2 = cend2 - cstart2; - while (cstart1 <= cend1 - len2) + while (cstart1 <= cend1 - len2 && cend1 >= len2) { i = cstart1; j = cstart2; @@ -2299,7 +2299,7 @@ SCM_DEFINE (scm_string_contains_ci, "string-contains-ci", 2, 4, 0, 5, start2, cstart2, 6, end2, cend2); len2 = cend2 - cstart2; - while (cstart1 <= cend1 - len2) + while (cstart1 <= cend1 - len2 && cend1 >= len2) { i = cstart1; j = cstart2; |