Changeset 30890 in project


Ignore:
Timestamp:
05/18/14 02:09:59 (6 years ago)
Author:
evhan
Message:

r7rs/char: Use downcase for foldcase

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/r7rs/trunk/scheme.char.scm

    r30508 r30890  
    33                     char-alphabetic? char-numeric? char-whitespace?
    44                     char-upper-case? char-lower-case?
    5                      ;; char-foldcase string-foldcase ; TODO
     5                     char-foldcase string-foldcase
    66                     char-upcase char-downcase
    77                     string-upcase string-downcase
     
    1919
    2020(require-library srfi-13)
    21 (import (only srfi-13 string-upcase string-downcase))
     21(import (only srfi-13 string-map string-upcase string-downcase))
    2222
    2323(import chicken)
     
    4848(define-extended-arity-comparator string-ci>=? %string-ci>=? ##sys#check-string)
    4949
    50 (: digit-value (char -> (or fixnum boolean)))
     50(: char-foldcase (char --> char))
     51(define (char-foldcase c) (char-downcase c))
    5152
     53(: string-foldcase (string --> string))
     54(define (string-foldcase s) (string-map char-foldcase s))
     55
     56(: digit-value (char --> (or fixnum boolean)))
    5257(define (digit-value c)
    5358  (let ((i (char->integer c)))
Note: See TracChangeset for help on using the changeset viewer.