   "Connect a node's controls to a control bus."
   [node names-busses]
   (ensure-connected!)
-  (let [node-id (to-synth-id node)
+  (let [node-id      (to-synth-id node)
         names-busses (bussify (stringify names-busses))]
     (apply snd "/n_map" node-id names-busses)))
 

  ([id & [ctls?]]
     (ensure-connected!)
     (let [ctls? (if (or (= 1 ctls?) (= true ctls?)) 1 0)
           id (to-synth-id id)]
       (let [reply-p (recv "/g_queryTree.reply")
             _ (snd "/g_queryTree" id ctls?)
             tree (:args (deref! reply-p))]
         (with-meta (parse-node-tree tree)
           {:type ::node-tree})))))


  "Place a node :before or :after another node."
  [node position target]
  (ensure-connected!)
  (let [node-id   (to-synth-id node)
        target-id (to-synth-id target)]
    (cond
      (= :before position) (snd "/n_before" node-id target-id)
