Changeset 13090 in project for chicken


Ignore:
Timestamp:
01/26/09 00:11:34 (11 years ago)
Author:
Ivan Raikov
Message:

Bug fix in string-search-positions; backported fixes to char-upcase and char-downcase.

Location:
chicken/branches/chicken-3
Files:
2 edited

Legend:

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

    r10993 r13090  
    14141414(define (char-upcase c)
    14151415  (##sys#check-char c 'char-upcase)
    1416   (##core#inline "C_make_character"
    1417              (##core#inline toupper (##core#inline "C_character_code" c)) ) )
     1416  (##core#inline "C_u_i_char_upcase" c))
    14181417
    14191418(define (char-downcase c)
    14201419  (##sys#check-char c 'char-downcase)
    1421   (##core#inline "C_make_character"
    1422              (##core#inline tolower (##core#inline "C_character_code" c)) ) )
     1420  (##core#inline "C_u_i_char_downcase" c))
    14231421
    14241422(define char-ci=?)
  • chicken/branches/chicken-3/regex.scm

    r13045 r13090  
    155155  (let ((rx (unregexp rx)))
    156156    (and-let* ((n (string-length str))
    157                (m (irregex-search rx str start (min n (fx+ start (fx- n 1))))))
     157               (m (irregex-search rx str start (min n (fx+ start range)))))
    158158      (let loop ((i (irregex-match-num-submatches m))
    159159                 (res '()))
Note: See TracChangeset for help on using the changeset viewer.