diff options
author | Kevin Ryde <user42@zip.com.au> | 2004-08-02 00:24:36 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2004-08-02 00:24:36 +0000 |
commit | 8c0634b7ea420afa4f0b8cbbe8a4fd48c4766591 (patch) | |
tree | 3213f1841f610bdce395342ebc216b1d3fcdbe9b /srfi/srfi-13.c | |
parent | c80bab35fbb1fe99f03bea9b35892fef4235926c (diff) | |
download | guile-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.c | 2 |
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) { |