Clojure core.async schedule fixed delay actions

gistfile1.clj

;Print "Hi" every 2 seconds:



(defn t []  

          (go (loop [] (<! (timeout 2000)) (prn "hi") (recur))))


;or as a macro
(defmacro fixdelay [ ms & body]
          `(go (loop [] (<! (timeout ~ms)) ~@body (recur))))


;now we can do
(fixdelay 2000 (prn "hi"))