~ chicken-core (chicken-5) e353bbab2c5cba5589082849514b207717aa3a0f

commit e353bbab2c5cba5589082849514b207717aa3a0f
Author:     Peter Bex <Peter.Bex@xs4all.nl>
AuthorDate: Mon Oct 11 21:20:26 2010 +0200
Commit:     Peter Bex <Peter.Bex@xs4all.nl>
CommitDate: Mon Oct 11 21:20:26 2010 +0200

    Correct an oversight in irregex merge of upstream changeset 9c903144d459

diff --git a/irregex-core.scm b/irregex-core.scm
index f688421b..08b94f2a 100644
--- a/irregex-core.scm
+++ b/irregex-core.scm
@@ -218,7 +218,8 @@
      (define (%irregex-match-fail-set! m x) (vector-set! m (- (vector-length m) 1) x))
      (define (irregex-match-valid-numeric-index? m n)
        (and (>= n 0) (< (+ 3 (* n 4)) (vector-length m))
-	    (vector-ref m (+ 4 (* n 4))))))))
+	    (vector-ref m (+ 4 (* n 4)))
+            #t)))))
 
 (define (irregex-match-valid-named-index? m n)
   (and (assq n (irregex-match-names m))