(defn
clj-compiler-fn
[example forms cb]
(try
(.send
XhrIo
"/eval"
(fn
[e]
(if
(.isSuccess (.-target e))
(->>
(.. e -target getResponseText)
read-string
rest
(mapv
(fn*
[p1__18666#]
(if (vector? p1__18666#) (into-array p1__18666#) p1__18666#)))
cb)
(cb [])))
"POST"
(pr-str
(into
[(str "(in-ns '" (:ns-sym @*state) ")")]
(mapv (partial transform (dissoc example :with-card)) forms))))
(catch js/Error _ (cb []))))