naming and doc tweaks

Author: fogus

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

@@ -466,7 +466,7 @@ to catch and handle."
   "Executes f in another thread, returning immediately to the calling
   thread. Returns a channel which will receive the result of calling
   f when completed, then close. workload is a keyword that describes
-  the expected profile of the work performed by f, where:
+  the work performed by f, where:
 
   :io - may do blocking I/O but must not do extended computation
   :compute - must not ever block

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

@@ -71,7 +71,7 @@
   [workflow]
   (Executors/newCachedThreadPool (counted-thread-factory (str "async-" (name workflow) "-%d") true)))
 
-(defn ^:private default-executor-factory
+(defn ^:private create-default-executor
   [workload]
   (case workload
     :compute (make-ctp-named :compute)
@@ -101,9 +101,10 @@
      (let [sysprop-factory (when-let [esf (System/getProperty "clojure.core.async.executor-factory")]
                              (requiring-resolve (symbol esf)))
            sp-exec (and sysprop-factory (sysprop-factory workload))]
-       (if (= workload :core-async-dispatch)
-         (or sp-exec (executor-for :io))
-         (or sp-exec (default-executor-factory workload)))))))
+       (or sp-exec
+           (if (= workload :core-async-dispatch)
+             (executor-for :io)
+             (create-default-executor workload)))))))
 
 (defn exec
   [^Runnable r workload]