gac/guile.scm

(require)

(define keyword? (either ##keyword? uninterned-symbol?))

(define (keyword->symbol k)
  (string->symbol (xcond ((##keyword? k) (##keyword->string k))
                         ((uninterned-symbol? k) (symbol->string k)))))