Skip entities that don't have bodies
This commit is contained in:
@@ -268,7 +268,7 @@ such as :on-begin-contact."
|
|||||||
([screen entities]
|
([screen entities]
|
||||||
(step! screen)
|
(step! screen)
|
||||||
(map (fn [e]
|
(map (fn [e]
|
||||||
(if (u/get-obj e :body)
|
(if (:body e)
|
||||||
(assoc e
|
(assoc e
|
||||||
:x (body-x e)
|
:x (body-x e)
|
||||||
:y (body-y e)
|
:y (body-y e)
|
||||||
|
|||||||
@@ -318,7 +318,7 @@ such as :on-begin-contact."
|
|||||||
([screen entities]
|
([screen entities]
|
||||||
(step! screen)
|
(step! screen)
|
||||||
(map (fn [e]
|
(map (fn [e]
|
||||||
(if (u/get-obj e :body)
|
(if (:body e)
|
||||||
(assoc e
|
(assoc e
|
||||||
:x (body-x e)
|
:x (body-x e)
|
||||||
:y (body-y e)
|
:y (body-y e)
|
||||||
|
|||||||
Reference in New Issue
Block a user