 (defn game-row [end? x mines states surrounds]
 ;  (println "rending row " x)
   (into [:div.game-row ] 
-        (map cell (repeat end?) (repeat x) (range) mines states surrounds)));
+        (map vector (repeat cell) (repeat end?) (repeat x) (range) mines states surrounds)));
 
 (defn format [n]
   (let [s (str (max 0 n))]

    (= state :hide) "@"))

(defn cell [end? x y mine state surround]
;  (println "rending cell " x y)
  [:span.cell
   { :on-click #(click! x y)
     :on-context-menu  #(do (mark! x y ) false)

        end? (game :end) ] 
    (into 
      [:div.board-panel ] 
      (map vector (repeat game-row) (repeat end? ) (range) (game :board) (game :states) (game :counts)))))

;; Render the root component
(defn ^:export start []
