Location: lib, 10 Lines

; Scheme 9 from Empty Space, Function Library
; By Nils M Holm, 2009
; Placed in the Public Domain
; (implode list)  ==>  symbol
; Implode a list of single-character symbols into a symbol.
; Example:   (implode '(b l a c k h o l e))  ==>  blackhole

(define (implode x)
       (lambda (x)
         (let ((str (symbol->string x)))
           (if (= (string-length str) 1)
               (string-ref str 0)
               (error "bad symbol in implode" x))))))
      (list->string (map sym->char x)))))

contact  |  privacy