From ff9d3f337f4e0888654d6c5ab467c7a2b41be1c0 Mon Sep 17 00:00:00 2001
From: Antonin Hildebrand <antonin@hildebrand.cz>
Date: Thu, 25 Jun 2015 18:35:15 +0200
Subject: [PATCH] rename run! macro to react!

under [org.clojure/clojurescript "0.0-3308"]
it was shadowing clojure.core/run! and causing warning:
WARNING: run! already refers to: #'clojure.core/run! in namespace: reagent.ratom, being replaced by: #'reagent.ratom/run!
---
 src/reagent/ratom.clj            |  2 +-
 test/reagenttest/testcursor.cljs | 16 ++++++++--------
 test/reagenttest/testratom.cljs  | 20 ++++++++++----------
 3 files changed, 19 insertions(+), 19 deletions(-)

diff --git a/src/reagent/ratom.clj b/src/reagent/ratom.clj
index 11c8770b..08846a41 100644
--- a/src/reagent/ratom.clj
+++ b/src/reagent/ratom.clj
@@ -4,7 +4,7 @@
   `(reagent.ratom/make-reaction
     (fn [] ~@body)))
 
-(defmacro run!
+(defmacro react!
   "Runs body immediately, and runs again whenever atoms deferenced in the body change. Body should side effect."
   [& body]
   `(let [co# (reagent.ratom/make-reaction (fn [] ~@body)
diff --git a/test/reagenttest/testcursor.cljs b/test/reagenttest/testcursor.cljs
index 73f64bd7..72c4cb3b 100644
--- a/test/reagenttest/testcursor.cljs
+++ b/test/reagenttest/testcursor.cljs
@@ -1,6 +1,6 @@
 (ns reagenttest.testcursor
   (:require [cljs.test :as t :refer-macros [is deftest testing]]
-            [reagent.ratom :as rv :refer-macros [run! reaction]]
+            [reagent.ratom :as rv :refer-macros [react! reaction]]
             [reagent.debug :refer-macros [dbg]]
             [reagent.core :as r :refer [atom]]))
 
@@ -23,7 +23,7 @@
         res (reaction
              (swap! count inc)
              @sv @c2 @comp)
-        const (run!
+        const (react!
                (reset! out @res))]
     (is (= @count 1) "constrain ran")
     (is (= @out 2))
@@ -62,7 +62,7 @@
     (let [!ctr-base (rv/atom {:x {:y 0 :z 0}})
           !counter (r/cursor !ctr-base [:x :y])
           !signal (rv/atom "All I do is change")
-          co (run!
+          co (react!
               ;;when I change...
               @!signal
               ;;update the counter
@@ -99,7 +99,7 @@
           c (reaction
              (swap! c-changed inc)
              (+ 10 @a2))
-          res (run!
+          res (react!
                (if (< @a2 1) @b @c))]
       (is (= @res (+ 2 @a)))
       (is (= @b-changed 1))
@@ -144,7 +144,7 @@
           c (reaction (dec @a))
           d (reaction (str @b))
           res (rv/atom 0)
-          cs (run!
+          cs (react!
               (reset! res @d))]
       (is (= @res "1"))
       (dispose cs))
@@ -154,17 +154,17 @@
           a (r/cursor a-base [:a])
           b (reaction (inc @a))
           c (reaction (dec @a))
-          d (run! [@b @c])]
+          d (react! [@b @c])]
       (is (= @d [1 -1]))
       (dispose d))
     (let [a-base (rv/atom 0)
           a (r/cursor a-base [])
           b (reaction (inc @a))
           c (reaction (dec @a))
-          d (run! [@b @c])
+          d (react! [@b @c])
           res (rv/atom 0)]
       (is (= @d [1 -1]))
-      (let [e (run! (reset! res @d))]
+      (let [e (react! (reset! res @d))]
         (is (= @res [1 -1]))
         (dispose e))
       (dispose d))
diff --git a/test/reagenttest/testratom.cljs b/test/reagenttest/testratom.cljs
index f96a8fce..b91f1ee6 100644
--- a/test/reagenttest/testratom.cljs
+++ b/test/reagenttest/testratom.cljs
@@ -1,6 +1,6 @@
 (ns reagenttest.testratom
   (:require [cljs.test :as t :refer-macros [is deftest testing]]
-            [reagent.ratom :as rv :refer-macros [run! reaction]]
+            [reagent.ratom :as rv :refer-macros [react! reaction]]
             [reagent.debug :refer-macros [dbg]]
             [reagent.core :as r]))
 
@@ -15,7 +15,7 @@
   (dbg "ratom-perf")
   (let [a (rv/atom 0)
         mid (reaction (inc @a))
-        res (run!
+        res (react!
              (inc @mid))]
     (time (dotimes [x 100000]
             (swap! a inc)))
@@ -34,7 +34,7 @@
         res (reaction
              (swap! count inc)
              @sv @c2 @comp)
-        const (run!
+        const (react!
                (reset! out @res))]
     (is (= @count 1) "constrain ran")
     (is (= @out 2))
@@ -69,7 +69,7 @@
   (let [runs (running)]
     (let [!counter (rv/atom 0)
           !signal (rv/atom "All I do is change")
-          co (run!
+          co (react!
               ;;when I change...
               @!signal
               ;;update the counter
@@ -102,7 +102,7 @@
           c (reaction
              (swap! c-changed inc)
              (+ 10 @a2))
-          res (run!
+          res (react!
                (if (< @a2 1) @b @c))]
       (is (= @res (+ 2 @a)))
       (is (= @b-changed 1))
@@ -141,7 +141,7 @@
           c (reaction (dec @a))
           d (reaction (str @b))
           res (rv/atom 0)
-          cs (run!
+          cs (react!
               (reset! res @d))]
       (is (= @res "1"))
       (dispose cs))
@@ -150,16 +150,16 @@
     (let [a (rv/atom 0)
           b (reaction (inc @a))
           c (reaction (dec @a))
-          d (run! [@b @c])]
+          d (react! [@b @c])]
       (is (= @d [1 -1]))
       (dispose d))
     (let [a (rv/atom 0)
           b (reaction (inc @a))
           c (reaction (dec @a))
-          d (run! [@b @c])
+          d (react! [@b @c])
           res (rv/atom 0)]
       (is (= @d [1 -1]))
-      (let [e (run! (reset! res @d))]
+      (let [e (react! (reset! res @d))]
         (is (= @res [1 -1]))
         (dispose e))
       (dispose d))
@@ -243,7 +243,7 @@
 ;;         a (rv/atom false)
 ;;         catch-count (atom 0)
 ;;         b (reaction (if @a (throw {})))
-;;         c (run! (try @b (catch js/Object e
+;;         c (react! (try @b (catch js/Object e
 ;;                           (swap! catch-count inc))))]
 ;;     (is (= @catch-count 0))
 ;;     (reset! a false)