     (keyword? child)
     (case child
       :row (.row ^Table (:object parent))
-      nil)))
+      (throw (Exception. (str "The keyword " child " is not supported."))))))
 
 (defn ^:private create-tree-node
   [child]


(defn cell!
  [^Cell cell & args]
  (let [method-name (first args)
        [[a1 a2 a3 a4] rest-args] (split-with #(not (keyword? %)) (rest args))]
    (when method-name
      (case method-name
        :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)
        (throw (Exception. (str "The keyword " method " is not supported."))))
      (apply cell! cell rest-args))
    cell))

