From 51547b9968beab667677f45fff3509f48517e572 Mon Sep 17 00:00:00 2001
From: oakes <zsoakes@gmail.com>
Date: Sat, 18 Jan 2014 19:04:17 -0500
Subject: [PATCH] Make macros private

---
 src/play_clj/g2d_physics.clj | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/play_clj/g2d_physics.clj b/src/play_clj/g2d_physics.clj
index ee7b71f..e306e08 100644
--- a/src/play_clj/g2d_physics.clj
+++ b/src/play_clj/g2d_physics.clj
@@ -27,15 +27,15 @@
 
 ; bodies
 
-(defmacro body-type
+(defmacro ^:private body-type
   [k]
-  `~(symbol (str u/main-package ".physics.box2d.BodyDef$BodyType/"
-                 (u/key->pascal k) "Body")))
+  `(symbol (str u/main-package ".physics.box2d.BodyDef$BodyType/"
+                (u/key->pascal ~k) "Body")))
 
 (defmacro body-def
   [k & options]
   `(let [^BodyDef object# (BodyDef.)]
-     (set! (. object# type) (body-type ~k))
+     (set! (. object# type) ~(body-type k))
      (u/fields! object# ~@options)))
 
 (defmacro body!
@@ -83,14 +83,14 @@
 
 ; joints
 
-(defmacro joint-init
+(defmacro ^:private joint-init
   [k]
-  `(~(symbol (str u/main-package ".physics.box2d.joints."
-                  (u/key->pascal k) "JointDef."))))
+  `(symbol (str u/main-package ".physics.box2d.joints."
+                (u/key->pascal ~k) "JointDef.")))
 
 (defmacro joint-def
   [k & options]
-  `(let [object# (joint-init ~k)]
+  `(let [object# (~(joint-init k))]
      (u/fields! object# ~@options)))
 
 (defn create-joint!*