redux of runtime parking op var conditional

Author: fogus

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

@@ -165,16 +165,16 @@ IOC and vthread code.
   (timers/timeout msecs))
 
 (defn- defparkingop-helper [op doc arglist body]
-  (let [as (mapv #(list 'quote %) arglist)]
-    (list `def (with-meta op {:arglists `(list ~as) :doc doc})
-          (if dispatch/vthreads-available-and-allowed?
-            (let [blockingop (-> op name (str "!") symbol)]
-              `(fn [~'& ~'args] ~(list* apply blockingop '[args])))
-            `(fn ~arglist ~@body)))))
+  (let [as (mapv #(list 'quote %) arglist)
+        blockingop (-> op name (str "!") symbol)]
+    `(def ~(with-meta op {:arglists `(list ~as) :doc doc})
+       (if dispatch/vthreads-available-and-allowed?
+         (fn [~'& ~'args] ~(list* apply blockingop '[args]))
+         (fn ~arglist ~@body)))))
 
 (defmacro defparkingop
-  "Emits either parking op or reimplement as blocking op when vthreads
-  available."
+  "Emits a Var definition that initializes as a parking op or as a
+  blocking op when vthreads available and allowed."
   [op doc arglist & body]
   (defparkingop-helper op doc arglist body))