Throw exception for breaking change

2014-09-18 13:16:34 -04:00
parent d1974d5068
commit d38c1fe5ff
1 changed files with 2 additions and 0 deletions
--- a/src/play_clj/g2d_physics.clj
+++ b/src/play_clj/g2d_physics.clj
@@ -184,6 +184,8 @@ such as :on-begin-contact."
 (defmacro circle-shape
  "Returns a [CircleShape](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/physics/box2d/CircleShape.html)."
  [& options]
+  (when-not (keyword? (first options))
+    (throw (Exception. "Replace (circle-shape radius) with (circle-shape :set-radius radius :set-position radius)")))
  `(u/calls! ^CircleShape (circle-shape*) ~@options))

 (defmacro circle-shape!