(define-module (tk short)
  #:export (ss> ss<
            ssa>)
  #:duplicates (warn-override-core warn))

(define ss> string->symbol)
(define ss< symbol->string)

;; Wraps up the common (string->symbol (string-append ...)) form
(define-syntax ssa>
  (syntax-rules ()
    ((ssa> $string . $strings)
     (ss> (string-append $string . $strings)))
    ((ssa>)
     (syntax-error "ssa> needs at least one string argument"))))