 
 (defn cell!
   [^Cell cell & args]
-  (let [method-name (first args)
+  (let [method (first args)
         [[a1 a2 a3 a4] rest-args] (split-with #(not (keyword? %)) (rest args))]
-    (when method-name
-      (case method-name
+    (when method
+      (case method
         :width (.width cell ^double a1)
         :height (.height cell ^double a1)
         :size (.size cell ^double a1 ^double a2)

        :uniform-x (.uniformX cell)
        :uniform-y (.uniformY cell)
        :row (.row cell)
        nil)
      (apply cell! cell rest-args))
    cell))


    (keyword? child)
    (case child
      :row (.row ^Table (:object parent))
      (throw (Exception. (str "The keyword " child " is not supported."))))))

(defn ^:private create-tree-node
  [child]
