 
 (defn- apply-move
   [game {:keys [winner looser taken] :as move}]
-  {:pre [(move? move)]} 
+  {:pre [(move? move)]}
   (-> game
     (assoc :board (reduce #(assoc-in %1 %2 winner) (:board game) taken))
     (update-in [:scores winner] + (count taken))

(def scores (reagent/cursor app-state [:scores]))
(def current-player (reagent/cursor app-state [:player]))


;; -----------------------------------------
;; DISPLAY

(defn take-empty-cell-move
  "Create a move to take an empty cell" 
  [player point]
  {:move point
   :winner player
   :looser :empty
   :taken [point]})

