           {} :yo))
 
 (defn mk-component
-  "Returns an updated state hashmap with the given component
+  "Returns an updated state hashmap with the given component.
    Wraps each function in fns with mk-component-fn.
 
    The return value of any component function should be the updated


(println "test iter-fns" (iter-fns {} [#(assoc % :yo :dawg)]))

(defn game-loop
  [state scene-id frame-count]
  (if (< frame-count 10)
    (recur (iter-fns state (-> state :scenes scene-id))
           scene-id
           (inc frame-count))
    state))



(defn mk-scene
  "Add or update existing scene in the game state.

   system-ids are a collection of keywords referencing a system by
   their unique ID."
  [state uid system-ids]
  (assoc-in state [:scenes uid] system-ids))

(println "test add-scene" (mk-scene {} :yo [identity]))

