From 6f57182633a1970337f09dd0fc555e36caeec93e Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Tue, 15 Oct 2013 15:23:23 +0900
Subject: [PATCH] The final offset was off in regexp-fold for regexps not
 ending in a match. Fixes issue #203.

---
 lib/chibi/regexp.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/chibi/regexp.scm b/lib/chibi/regexp.scm
index d29f3d07..c1df216e 100644
--- a/lib/chibi/regexp.scm
+++ b/lib/chibi/regexp.scm
@@ -708,7 +708,7 @@
                    j
                    (kons (string-offset->index str from) md str acc)))))
        (else
-        (finish (string-offset->index str i) #f str acc))))))
+        (finish (string-offset->index str from) #f str acc))))))
 
 (define (regexp-extract rx str . o)
   (apply regexp-fold