mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 13:30:26 +02:00
(scm_string_every): Correction to initial "res" value,
return should be #t for an empty string. Reported by Andreas Vögele.
This commit is contained in:
parent
c80bab35fb
commit
8c0634b7ea
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||
{
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue