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

Make the entities list a vector

Browse Source
This commit is contained in:
oakes
2014-02-06 20:42:06 -05:00
parent 0eb846360a
commit 99a69f5d47
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/play_clj/core.clj
View File

@@ -39,7 +39,7 @@
[{:keys [on-show on-render on-hide on-pause on-resize on-resume] [{:keys [on-show on-render on-hide on-pause on-resize on-resume]
:as options}] :as options}]
(let [screen (atom {}) (let [screen (atom {})
entities (atom '()) entities (atom [])
execute-fn! (fn [func & {:keys [] :as options}] execute-fn! (fn [func & {:keys [] :as options}]
(when func (when func
(let [old-entities @entities] (let [old-entities @entities]
@@ -47,6 +47,7 @@
list list
flatten flatten
(remove nil?) (remove nil?)
vec
(reset-changed! entities old-entities)))))] (reset-changed! entities old-entities)))))]
; update screen when either the screen or entities are changed ; update screen when either the screen or entities are changed
(add-watch screen :changed (fn [_ _ _ new-screen] (add-watch screen :changed (fn [_ _ _ new-screen]