Add step! function

2014-01-17 15:18:02 -05:00
parent 6f9c8a4ebd
commit 52ab737a32
2 changed files with 28 additions and 13 deletions
--- a/src/play_clj/g2d_physics.clj
+++ b/src/play_clj/g2d_physics.clj
@@ -18,8 +18,8 @@
     object#))

 (defmacro box-2d!
-  [{:keys [^World world]} k & options]
-  `(u/call! ^World ~world ~k ~@options))
+  [screen k & options]
+  `(u/call! ^World (:world ~screen) ~k ~@options))

 (defn contact-listener
  [{:keys [on-begin-contact on-end-contact on-post-solve on-pre-solve]} execute-fn!]