(module symbol mzscheme

  (require
   (lib "string.ss" "srfi" "13")
   (file "base.ss")
   )

  (provide
   (all-defined)
   )

  (define (symbol-append . args)
    (string->symbol 
     (string-concatenate 
      (map 
       (lambda (item)
         (cond
           [(symbol? item) 
            (symbol->string item)]
           [else
            (raise-exn/format exn:fail:unlib
              "Expected (list-of (U symbol string)). Received: ~a" args)]))
         args))))
  
  )