char-upcase

Conformance: R5RS Scheme

Purpose: Convert a char to upper case.

Arguments:
X - char

Implementation:

(define (char-upcase x)
  (cond ((char-lower-case? x)
      (integer->char (- (char->integer x) 32)))
    (else x)))

Example:

(char-upcase #\x) 
=> #\X

See also:
char-downcase, char-upper-case?, char-alphabetic?.