Fix conditional that throws exception

2014-09-24 11:36:24 -04:00
parent c5d105aaf6
commit 84e1359198
1 changed files with 1 additions and 1 deletions
--- a/src/play_clj/g2d_physics.clj
+++ b/src/play_clj/g2d_physics.clj
@@ -184,7 +184,7 @@ 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))
+  (when (some-> (first options) keyword? not)
    (throw (Exception. "Replace (circle-shape radius) with (circle-shape :set-radius radius :set-position (vector-2 radius radius))")))
  `(u/calls! ^CircleShape (circle-shape*) ~@options))