The final offset was off in regexp-fold for regexps not ending in a match.

Fixes issue #203.
This commit is contained in:
Alex Shinn 2013-10-15 15:23:23 +09:00
parent 961e5e885b
commit 6f57182633

View file

@ -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