Skip entities that don't have bodies

This commit is contained in:
oakes
2014-05-11 15:45:14 -04:00
parent 0bb64820af
commit d85bf4aed4
2 changed files with 2 additions and 2 deletions

View File

@@ -268,7 +268,7 @@ such as :on-begin-contact."
([screen entities]
(step! screen)
(map (fn [e]
(if (u/get-obj e :body)
(if (:body e)
(assoc e
:x (body-x e)
:y (body-y e)

View File

@@ -318,7 +318,7 @@ such as :on-begin-contact."
([screen entities]
(step! screen)
(map (fn [e]
(if (u/get-obj e :body)
(if (:body e)
(assoc e
:x (body-x e)
:y (body-y e)