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

;Include File

(define-type locale-item (or false symbol))

(: ->symbol (* -> symbol))
(: locale-item? (* -> boolean : locale-item))
(: ->locale-item (* -> locale-item))

;;

(define (->symbol obj)
  (string->symbol (->string obj)) )

(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) ) ) )