nmanage.clj

(ns nmanage)

(def running (atom true))

(defn process
  []
  (when @running
    (prn "hi")
    (Thread/sleep 1000))
  (recur))

;;;
(send-off (agent nil) process)

(do
  (prn "this prints now - fixed thanks to Shawn Hoover")
  (Thread/sleep 2000)
  (reset! running false))