From 4e34b8879ab8449cf925c8a0d760699ad06ea921 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Mon, 2 Aug 2004 00:27:35 +0000
Subject: [PATCH] =?UTF-8?q?(scm=5Fstring=5Fevery):=20Correction=20to=20ini?=
 =?UTF-8?q?tial=20"res"=20value,=20return=20should=20be=20#t=20for=20an=20?=
 =?UTF-8?q?empty=20string.=20=20Reported=20by=20Andreas=20V=C3=B6gele.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 srfi/srfi-13.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/srfi/srfi-13.c b/srfi/srfi-13.c
index d3c9d826d..90dca1d4e 100644
--- a/srfi/srfi-13.c
+++ b/srfi/srfi-13.c
@@ -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)
     {