In clojure, call continuation passing style function and return a channel with result.

cb.clj

(defn- <cb
  "Call an callback style function and return a channel containing the result of calling the callback"
  [f & args]
  (let [out (a/chan)]
    (apply f (conj (into [] args) (fn [& args]
                                    (a/put! out args)
                                    (a/close! out))))
    out))

(a/<!! (<cb (fn [cb] (cb-style-f 1 2 3 cb))))

(a/<!! (<cb cb-style-f 1 2 3))