diff options
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) { |