 
 (defn internal-booter [port]
   (reset! running?* true)
-  (log/debug "booting internal audio server...")
+  (log/info "booting internal audio server listening on port: " port)
   (let [opts (byref sc-jna-startoptions)]
     (set! (. opts udp-port-num) port)
     (set! (. opts tcp-port-num) port)

  "Boot either the internal or external audio server."
  ([] (boot (get @config* :server :internal) SERVER-HOST SERVER-PORT))
  ([which & [host port]]
   (cond
     (= :internal which) (boot-internal port)
     (= :external which) (boot-external host port))))

(defn quit
  "Quit the SuperCollider synth process."

(defn boot-internal
  ([] (boot-internal (+ (rand-int 50000) 2000)))
  ([port]
   (log/info "boot-internal: " port)
   (if (not @running?*)
     (let [sc-thread (Thread. #(internal-booter port))]
       (.setDaemon sc-thread true)
