(defn
create-compiler-fn
[]
(try
(let
[eval-worker (js/Worker. "paren-soup-compiler.js")]
(fn
[coll receive-fn]
(set!
(.-onmessage eval-worker)
(fn* [p1__18511#] (receive-fn (vec (.-data p1__18511#)))))
(.postMessage eval-worker (into-array coll))))
(catch js/Error _ (fn [_ _] (throw js/Error "Can't compile!")))))