Changeset 14988 in project for chicken/trunk


Ignore:
Timestamp:
06/14/09 01:09:20 (11 years ago)
Author:
felix winkelmann
Message:

applied string-substitute patch by zb

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/regex.scm

    r14710 r14988  
    184184    (lambda (rx subst string . flag)
    185185      (##sys#check-string subst 'string-substitute)
     186      (##sys#check-string string 'string-substitute)
    186187      (let* ([which (if (pair? flag) (car flag) 1)]
    187188             [substlen (##sys#size subst)]
Note: See TracChangeset for help on using the changeset viewer.