From 84e1359198a31d93f741f15ed8c1e73870ccc864 Mon Sep 17 00:00:00 2001 From: oakes Date: Wed, 24 Sep 2014 11:36:24 -0400 Subject: [PATCH] Fix conditional that throws exception --- src/play_clj/g2d_physics.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/play_clj/g2d_physics.clj b/src/play_clj/g2d_physics.clj index fa6027a..e27b69d 100644 --- 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))