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

string=?

Conformance: R5RS Scheme

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

Arguments:
X - string
Y... - strings

Implementation:

(define string=?
  (predicate-iterator
    (lambda (x y)
      (equal? (string->list x)
              (string->list y)))))

Example:

(string=? "xyz" "xyz" "xyz") 
=> #t

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