Merge without losing entity type

This commit is contained in:
oakes
2014-06-21 08:28:56 -04:00
parent aefec83bce
commit 6ec283b558

View File

@@ -115,4 +115,4 @@
(defrecord BundleEntity [entities] Entity
(draw-entity! [{:keys [entities] :as entity} screen batch]
(doseq [e entities]
(draw-entity! (merge (dissoc entity :entities) e) screen batch))))
(draw-entity! (merge e (apply dissoc entity (keys e))) screen batch))))