In fold-matches, set regexp/notbol unless matching string start.
authorChris K. Jester-Young <cky944@gmail.com>
Sun, 16 Sep 2012 06:27:19 +0000 (02:27 -0400)
committerLudovic Courtès <ludo@gnu.org>
Wed, 26 Sep 2012 21:46:05 +0000 (23:46 +0200)
commitd6e1c8bfdb727f39352c7304c225c05545067f30
tree92e5a71be747062e68eb22d323ef4ec662abee81
parentb6aedd68bcbb07c9c6fd60e10cde314b68b0e1e9
In fold-matches, set regexp/notbol unless matching string start.

* module/ice-9/regex.scm (fold-matches): Set regexp/notbol if the
  starting position is nonzero.
* test-suite/tests/regexp.test (fold-matches): Check that when
  matching /^foo/ against "foofoofoofoo", only one match results.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
module/ice-9/regex.scm
test-suite/tests/regexp.test