thread-call-impl

Author: fogus

src/main/clojure/clojure/core/async.clj

@@ -462,7 +462,7 @@ to catch and handle."
   [& body]
   (#'clojure.core.async.impl.go/go-impl &env body))
 
-(defn thread-impl
+(defn thread-call-impl
   [f workload]
   (let [c (chan 1)]
     (let [binds (Var/getThreadBindingFrame)]
@@ -483,22 +483,22 @@ to catch and handle."
   thread. Returns a channel which will receive the result of calling
   f when completed, then close."
   [f]
-  (thread-impl f :mixed))
+  (thread-call-impl f :mixed))
 
 (defmacro thread
   "Executes the body in another thread, returning immediately to the
   calling thread. Returns a channel which will receive the result of
   the body when completed, then close."
   [& body]
-  `(thread-impl (^:once fn* [] ~@body) :mixed))
+  `(thread-call-impl (^:once fn* [] ~@body) :mixed))
 
 (defmacro io-thread
   "Executes the body in a thread intended for blocking I/O workloads,
   returning immediately to the calling thread. The body must not do
   extended computation (if so, use 'thread' instead). Returns a channel
   which will receive the result of the body when completed, then close."
   [& body]
-  `(thread-impl (^:once fn* [] ~@body) :io))
+  `(thread-call-impl (^:once fn* [] ~@body) :io))
 
 ;;;;;;;;;;;;;;;;;;;; ops ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;