 (def renderer (:renderer started-system))
 
 (def displayer (:displayer started-system))
-

            (if (= status :running)
              (alt!! command-chan ([command] (execute command state status)) 
                     :default (let [next-frame (render-step state)]
                                (display displayer next-frame)
                                [state :running]))
              (execute (<!! command-chan) state status))]
        (if loop-result

  (component/system-map
   :renderer (component/using (map->Renderer {})
                              [:displayer])
   :displayer (map->ConsoleDisplayer {})))

;;; Below: defs useful for interacting with the running renderer

