 
 (def *data* nil)
 
-(defn- parse-synth-tree [ctls?]
+(defn- parse-synth-tree 
+  [ctls?]
   (let [sname (first *data*)]
     (if ctls?
       (let [n-ctls (second *data*)

      (.run (Thread. #(wait-for-boot host port)))
      :booting))))

(defn quit
  "Quit the SuperCollider synth process."
  []

  [time-ms & body]
  `(in-osc-bundle @server* ~time-ms ~@body))

(defn debug 
  "Control debug output from both the Overtone and the audio server."
  [& [on-off]]
  (if (or on-off (nil? on-off))
    (do
      (log/level :debug)
