   [id ctls?]
   (let [sname (first *node-tree-data*)]
     (if ctls?
-      (let [n-ctls (second *node-tree-data*)
+      (let [n-ctls              (second *node-tree-data*)
             [ctl-data new-data] (split-at (* 2 n-ctls) (nnext *node-tree-data*))
-            ctls (apply hash-map ctl-data)]
+            ctls                (apply hash-map ctl-data)]
         (set! *node-tree-data* new-data)
         {:type :synth
          :name sname

  "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)

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

