   nil)
 
 ;(on-sync-event :reset :reset-busses reset-busses)
-

     (with-meta {:id id
                 :n-channels n-channels
                 :rate :control}
                {:type :control-bus}))))

(defn audio-bus
  "Allocate one ore more audio busses."

     (with-meta {:id id
                 :n-channels n-channels
                 :rate :audio}
                {:type ::audio-bus}))))

(defn free-bus
  [b]
  (case (type b)
    ::audio-bus   (free-id :audio-bus (:id b))
    ::control-bus (free-id :control-bus (:id b))))

; Reserve the first 11 busses for audio I/O and mixer, forever.
(dotimes [i 11]
