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