   (.redraw node)
 
   ;; update connections to upper neighbors
-  (doseq [#^GObject c (upper-connections node)]
+  (doseq [^GObject c (upper-connections node)]
     (.redraw c))
 
   ;; update connections to lower neighbors
-  (doseq [#^GObject c (lower-connections node)]
+  (doseq [^GObject c (lower-connections node)]
     (.redraw c))
 
   ;; done

  [node]
  (all-additively-influenced-nodes node lower-neighbors upper-neighbors))


;;;

(defn move-interaction


(defn move-node-unchecked-to
  "Moves node to [new-x new-y]."
  [^GObject node, new-x, new-y]
  ;; update self position
  (dosync
   (alter (.getUserData node) assoc :position [new-x new-y]))
