regex-find ignores start position of matcher

[Takashi Kato]

This should return '(#t #t #t)

#!read-macro=sagittarius/regex
(import (sagittarius regex))

(let ((m (regex-matcher #// "abc" 1)))
  (let loop ((r '()))
    (if (regex-find m)
        (loop (cons #t r))
        r)))

[Takashi Kato]

Resetting last match position of matcher with start position (Fixes #197)

→ <<cset d56f830792b7>>