jasonneylon · August 11, 2017 09:38
diff --git a/timeout.cljs b/timeout.cljs
 (defn timeout [ms]
  (let  [c  (chan)]
    (js/setTimeout  (fn  []  (close! c)) ms)
    c))

 (defn run-kmean
  []
  (go
    (dotimes [iteration 10]
      (<! (timeout 1000))
      (swap! app-state update-kmean)
      ...
      )))
	(defn timeout [ms]
	(let [c (chan)]
	(js/setTimeout (fn [] (close! c)) ms)
	c))

	(defn run-kmean
	[]
	(go
	(dotimes [iteration 10]
	(<! (timeout 1000))
	(swap! app-state update-kmean)
	...
	)))