Changeset 14377 in project for chicken


Ignore:
Timestamp:
04/23/09 02:51:38 (10 years ago)
Author:
Alex Shinn
Message:

Adding bugfix from upstream to irregex-match-data?.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/irregex.scm

    r14273 r14377  
    6363(define (irregex-match-data? obj)
    6464  (and (vector? obj)
    65        (>= 5 (vector-length obj))
     65       (>= (vector-length obj) 5)
    6666       (eq? irregex-match-tag (vector-ref obj 0))))
    6767
Note: See TracChangeset for help on using the changeset viewer.