frpong/src/clj/frpong/core.clj

13 lines
275 B
Clojure

(ns frpong.core)
(defmacro go [& body] `(cljs.core.async.macros/go ~@body))
(defmacro go-loop [& body]
`(cljs.core.async.macros/go
(while true
~@body)))
(defmacro rd [& body] `(cljs.core.async/<! ~@body))
(defmacro wt [& body] `(cljs.core.async/>! ~@body))