 
 (defmacro ear-clipping-triangulator
   [& options]
-  `(u/calls! ^EarClippingTriangulator (ear-clipping-triangulator*) ~@options))
+  `(let [^EarClippingTriangulator object# (ear-clipping-triangulator*)]
+     (u/calls! object# ~@options)))
 
 (defmacro ear-clipping-triangulator!
   [object k & options]


(defmacro polygon
  [vertices & options]
  `(u/calls! ^Polygon (polygon* ~vertices) ~@options))

(defmacro polygon!
  [object k & options]


(defmacro vector-2
  [x y & options]
  `(let [^Vector2 object# (vector-2* ~x ~y)]
     (u/calls! object# ~@options)))

(defmacro vector-2!
  [object k & options]
