Xchat plugin, join list of channels

gistfile1.scm

#!/usr/bin/guile -s
!#


(define xchat:plugin-name "Ckoch786's xchat init, join channels") 		
(define xchat:plugin-description "Just my init, join channels")
(define xchat:plugin-version "1.0")		

(define (xchat:plugin-init)
  (format #t "loading plugin\n"))


(define (xchat:plugin-deinit)
  (format #t "unloading plugin\n"))

(define (join-channels channel-ls)
  (for-each join channel-ls))

(define (join channel)
  (format #t "joining ~a\n" channel)
  (let ((ls (list xchat:command (format #f "join ~a" channel))))
    (apply (car ls) (cdr ls))))

(join-channels '("#bedrock" "#emacs" "#lisp" "#guile"))

Joining #bedrock
ERROR: In procedure memoization:
ERROR: Bad binding (append (quote (xchat:command "join")) (quote (channel))) in expression (let ls ((append (quote (xchat:command "join")) (quote (channel)))) (apply (car ls) (cdr ls))).

Updated as per suggestions from mark_weaver.