Changeset 874


Ignore:
Timestamp:
01/25/2011 01:09:38 PM (10 years ago)
Author:
dave
Message:

more doalls

File:
1 edited

Legend:

Unmodified
Added
Removed
  • scenarios/GerminationX/oak/src/oak/tile.clj

    r871 r874  
    5454  (modify :entities 
    5555          (fn [entities] 
    56             (map 
    57              (fn [e] 
    58                ;; todo dispatch on entity type 
    59                (plant-update e time delta (tile-get-neighbours tile (:pos e)))) 
    60              (filter 
    61               (fn [e] 
    62                 (not (= (:state e) 'decayed))) 
    63               entities))) 
     56            (doall (map 
     57                    (fn [e] 
     58                      ;; todo dispatch on entity type 
     59                      (plant-update e time delta (tile-get-neighbours tile (:pos e)))) 
     60                    (doall (filter 
     61                            (fn [e] 
     62                              (not (= (:state e) 'decayed))) 
     63                            entities))))) 
    6464          tile)) 
Note: See TracChangeset for help on using the changeset viewer.