when searching don't assume the match started at the search start (fixes

#25)
ashinn · Jul 6, 2021 · 29334af · 29334af
1 parent ff3b5b7
commit 29334af
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/irregex.scm b/irregex.scm
@@ -3827,13 +3827,14 @@
                     matches)))
             (if (not m)
                 (finish from acc)
-                (let ((j (%irregex-match-end-index m 0))
+                (let ((j-start (%irregex-match-start-index m 0))
+                      (j (%irregex-match-end-index m 0))
                       (acc (kons from m acc)))
                   (irregex-reset-matches! matches)
                   (cond
                    ((flag-set? (irregex-flags irx) ~consumer?)
                     (finish j acc))
-                   ((= j i)
+                   ((= j j-start)
                     ;; skip one char forward if we match the empty string
                     (lp (list str j end) j (+ j 1) acc))
                    (else