Changeset 13074 in project for chicken/trunk/irregex.scm


Ignore:
Timestamp:
01/24/09 16:11:27 (11 years ago)
Author:
felix winkelmann
Message:

applied regex patches fixing indices from chicken-3 branch by Ivan to trunk (not tested yet)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/irregex.scm

    r12920 r13074  
    14931493  (let ((irx (irregex x)))
    14941494    (let ((start (if (pair? o) (car o) 0))
    1495           (end (if (and (pair? o) (pair? (cdr o)))
    1496                    (cadr o)
    1497                    (string-length str)))
     1495          (end   (if (and (pair? o) (pair? (cdr o)))
     1496                     (cadr o) (string-length str)))
    14981497          (matches (irregex-new-matches irx)))
    14991498      (irregex-match-string-set! matches str)
Note: See TracChangeset for help on using the changeset viewer.