;;;; Unsafe library character operations


(module (chicken unsafe char)
        (char>=? char<=? char>? char<? char=?
                 char-alphabetic? char-numeric? char-whitespace?
                 char-upper-case? char-lower-case?
                 char-upcase char-downcase)

  (import (except scheme
                  char>=? char<=? char>? char<? char=? 
                   char-alphabetic? char-numeric? char-whitespace?
                   char-upper-case? char-lower-case?
                   char-upcase char-downcase))

(define (char>? x y) (##core#inline "C_u_i_char_greaterp" x y))
(define (char<? x y) (##core#inline "C_u_i_char_lessp" x y))
(define (char>=? x y) (##core#inline "C_u_i_char_greater_or_equal_p" x y))
(define (char<=? x y) (##core#inline "C_u_i_char_less_or_equal_p" x y))
(define (char=? x y) (##core#inline "C_u_i_char_equalp" x y))
(define (char-alphabetic? x) (##core#inline "C_u_i_char_alphabeticp" x))
(define (char-numeric? x) (##core#inline "C_u_i_char_numericp" x))
(define (char-whitespace? x) (##core#inline "C_u_i_char_whitespacep" x))
(define (char-upper-case? x) (##core#inline "C_u_i_char_upper_casep" x))
(define (char-lower-case? x) (##core#inline "C_u_i_char_lower_casep" x))
(define (char-upcase x) (##core#inline "C_u_i_char_upcase" x))
(define (char-downcase x) (##core#inline "C_u_i_char_downcase" x))

)