                        "logcat"
                        "*:I")
        (binding [leiningen.core.main/*exit-process?* false])
-       (start-thread in out)))
+       (start-thread! in out)))
 
 (defn run-hot-swap!
   [in out path]
   (->> (hot-swap-project-task path (read-project-clj path))
-       (start-thread in out)))
+       (start-thread! in out)))
 
 ; main function for "indirect" processes
 

  [process in out]
  (stop-process! process)
  (->> (start-process-indirectly! process nil "clojure.main")
       (start-thread in out)))

(defn run-logcat!
  [process in out path]

       Thread.
       .start))

(defmacro start-thread!
  [in out & body]
  `(start-thread!* ~in ~out (fn [] ~@body)))

(defn start-process!
  [process path & args]
