Changeset 13045 in project for chicken


Ignore:
Timestamp:
01/21/09 02:37:58 (11 years ago)
Author:
Ivan Raikov
Message:

Added optional arguments list to string-match and
string-match-positions.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/chicken-3/regex.scm

    r13033 r13045  
    122122        (else (irregex x))))
    123123
    124 (define (string-match rx str)
     124(define (string-match rx str . rest)
    125125  (let ((rx (unregexp rx)))
    126126    (and-let* ((m (irregex-match rx str)))
     
    131131            (loop (fx- i 1) (cons (irregex-match-substring m i) res)))))))
    132132
    133 (define (string-match-positions rx str)
     133(define (string-match-positions rx str . rest)
    134134  (let ((rx (unregexp rx)))
    135135    (and-let* ((m (irregex-match rx str)))
Note: See TracChangeset for help on using the changeset viewer.