;; TODO - rename this to sampler-load-single or something (but check with SB
;; first that it's not gonna break his stuff in the middle of a gig)
(define (load-sample inst filename index . bank)
(if (null? bank)
(sampler-populate-slot inst filename index 0 0 0 0)
(sampler-populate-slot inst filename index 0 0 (car bank) 0)))