mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

(scm_string_every): Correction to initial "res" value,

Browse source 
return should be #t for an empty string.  Reported by Andreas Vögele.
This commit is contained in:
Kevin Ryde 2004-08-02 00:27:35 +00:00
parent 83b5e25836
commit 4e34b8879a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
srfi/srfi-13.c
View file

@ -100,7 +100,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)
{