t3x.org / sketchy / library / ceqp.html
SketchyLISP
Reference
  Copyright (C) 2007
Nils M Holm

char=?

Conformance: R5RS Scheme

Purpose: Test whether all chars in a sequence are equal.

Arguments:
X - char
Y... - chars

Model:

(define char=?
  (predicate-iterator
    (lambda (x y)
      (= (char->integer x)
         (char->integer y)))))

Implementation:

; This function is a primitive function.

Example:

(char=? #\c #\c #\c) 
=> #t

See also:
char-ci=?, char<?, char>?, char<=?, char>=?, string=?, equal?.