symbol-append

[procedure] symbol-append symbol ...

Bigloo:

  (string->symbol (apply string-append (map symbol->string (list symbol ...))))