Changeset 874

Timestamp:

01/25/2011 01:09:38 PM (10 years ago)

Author:

dave

Message:

more doalls

File:

• scenarios/GerminationX/oak/src/oak/tile.clj (modified) (1 diff)

scenarios/GerminationX/oak/src/oak/tile.clj

@@ -54 +54 @@
   (modify :entities
           (fn [entities]
-            (map
-             (fn [e]
-               ;; todo dispatch on entity type
-               (plant-update e time delta (tile-get-neighbours tile (:pos e))))
-             (filter
-              (fn [e]
-                (not (= (:state e) 'decayed)))
-              entities)))
+            (doall (map
+                    (fn [e]
+                      ;; todo dispatch on entity type
+                      (plant-update e time delta (tile-get-neighbours tile (:pos e))))
+                    (doall (filter
+                            (fn [e]
+                              (not (= (:state e) 'decayed)))
+                            entities)))))
           tile))