notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make macros private

Browse Source
This commit is contained in:
oakes
2014-01-18 19:04:17 -05:00
parent a1a6066c99
commit 51547b9968
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/play_clj/g2d_physics.clj
View File

@@ -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!*