;;;; locale-item.scm
;;;; Kon Lovett, Oct '19

;; Issues
;;

(define (locale-item? x)
  (or (not x) (symbol? x)) )

(define (->locale-item obj)
  (cond
    ((locale-item? obj) obj)
    ((string? obj)      (string->symbol (string-downcase obj)))
    (else               (->symbol obj) ) ) )