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

Cast to vector for clarity

Browse Source
This commit is contained in:
oakes
2014-08-01 12:40:39 -04:00
parent 800a0f8e86
commit 7c07912fda
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/play_clj/repl.clj
View File

@@ -24,7 +24,7 @@ function.
([screen-object] ([screen-object]
(-> screen-object :entities deref)) (-> screen-object :entities deref))
([screen-object filter-fn] ([screen-object filter-fn]
(filter filter-fn (e screen-object)))) (vec (filter filter-fn (e screen-object)))))
(defn e! (defn e!
"Resets the entities in `screen-object`, or associates values to the entities "Resets the entities in `screen-object`, or associates values to the entities
@@ -38,8 +38,8 @@ were changed.
([screen-object filter-fn & args] ([screen-object filter-fn & args]
(swap! (:entities screen-object) (swap! (:entities screen-object)
(fn [entities] (fn [entities]
(for [e entities] (vec (for [e entities]
(if (filter-fn e) (if (filter-fn e)
(apply assoc e args) (apply assoc e args)
e)))) e)))))
(e screen-object filter-fn))) (e screen-object filter-fn)))