   [node name-values]
   (ensure-connected!)
   (let [node-id (to-synth-id node)]
-              (apply snd "/n_set" node-id (floatify (stringify (bus->id name-values))))
-              node-id))
+    (apply snd "/n_set" node-id (floatify (stringify (bus->id name-values))))
+    node-id))
 
 (defn node-get-control
   "Get one or more synth control values by name.  Returns a map of

  (ensure-connected!)
  (let [group-id (to-synth-id group)
        node-id (to-synth-id node)]
  (snd "/g_tail" group-id node-id)))

(defn- group-clear*
  "Free all child synth nodes in a group."

      {:type     :group
       :id       id
       :name     (get-in @active-synth-nodes* [id :group] "Unknown Group")
       :children (doall (map (fn [i] (parse-node-tree-helper ctls?))
                             (range n-children)))})))

(defn- parse-node-tree
  [data]
