(Nils' Scheme Snippets)

(explode symbol) => list

Purpose

Explode a symbol into a list of single-character symbols.

Arguments

x	symbol to explode

Example

(explode 'supernova) => (s u p e r n o v a)

(define (explode x)
  (map (lambda (x)
         (string->symbol (string x)))
       (string->list (symbol->string x))))