;; Copyright (c) Rich Hickey and contributors. All rights reserved.
;; The use and distribution terms for this software are covered by the
;; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
;; which can be found in the file epl-v10.html at the root of this distribution.
;; By using this software in any fashion, you are agreeing to be bound by
;; the terms of this license.
;; You must not remove this notice, or any other, from this software.
(ns cljs.core.async.test-helpers)
(defn latch [m f]
(let [r (atom 0)]
(add-watch r :latch
(fn [_ _ o n]
(when (== n m) (f))))
r))
(defn inc! [r]
(swap! r inc))