Changeset 14262 in project


Ignore:
Timestamp:
04/15/09 23:12:51 (11 years ago)
Author:
sjamaan
Message:

And another procedure contains the same bug...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/utf8/trunk/utf8-support.scm

    r14261 r14262  
    569569                    (opt-off str (cdr opt))
    570570                    (- (byte-string-length str) start))))
    571     (byte-string-search (->rx str) str start range)))
     571    (byte-string-search (->rx rx) str start range)))
    572572
    573573(define (string-search-offsets rx str . opt)
Note: See TracChangeset for help on using the changeset viewer.