   [path & [timeout]]
   (osc-recv @server* path timeout))
 
-(defn connect 
+(defn connect
   ([] (connect SERVER-HOST SERVER-PORT))
   ([host port]
    (log/info "(connect " host ":" port)

  a handle for the synth node that was created.
      (let [handle (hit :sin)] ; returns => synth-handle
        (kill (+ 1000 (now)) handle))
  
      ; a single handle without a time kills immediately
      (kill handle) 

      ; or a seq of synth handles can be removed at once
      (kill (+ (now) 1000) [(hit) (hit) (hit)])


(declare boot)

(defn snd
  "Creates an OSC message and either sends it to the server immediately
  or if a bundle is currently being formed it adds it to the list of messages."
  [path & args]
  (if (nil? @server*)
    (throw (Exception. "Not connected to a SuperCollider server.")))
      (osc-snd-msg @server*
                   (apply osc-msg path (osc-type-tag args) args)))

(defmacro at
