frpong/src/clj/frpong/core.clj

13 lines
275 B
Clojure
Raw Normal View History

2013-09-15 03:19:05 +05:30
(ns frpong.core)
2013-10-16 21:48:24 +05:30
(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))