summaryrefslogtreecommitdiff
path: root/srfi/srfi-13.c
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2004-08-02 00:24:36 +0000
committerKevin Ryde <user42@zip.com.au>2004-08-02 00:24:36 +0000
commit8c0634b7ea420afa4f0b8cbbe8a4fd48c4766591 (patch)
tree3213f1841f610bdce395342ebc216b1d3fcdbe9b /srfi/srfi-13.c
parentc80bab35fbb1fe99f03bea9b35892fef4235926c (diff)
downloadguile-8c0634b7ea420afa4f0b8cbbe8a4fd48c4766591.tar.gz
(scm_string_every): Correction to initial "res" value,
return should be #t for an empty string. Reported by Andreas Vögele.
Diffstat (limited to 'srfi/srfi-13.c')
-rw-r--r--srfi/srfi-13.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/srfi/srfi-13.c b/srfi/srfi-13.c
index bbb20faab..13949b092 100644
--- a/srfi/srfi-13.c
+++ b/srfi/srfi-13.c
@@ -74,7 +74,7 @@ SCM_DEFINE (scm_string_every, "string-every", 2, 2, 0,
SCM_VALIDATE_SUBSTRING_SPEC_COPY (2, s, cstr,
3, start, cstart,
4, end, cend);
- res = SCM_BOOL_F;
+ res = SCM_BOOL_T;
cstr += cstart;
while (cstart < cend)
{