(ns js-compiler.core (:require [cljs.compiler :as c] [cljs.analyzer :as a])) (defn emit-str [cljs] (c/with-core-cljs (let [env (a/empty-env) ast (a/analyze env cljs)] (with-out-str (c/emit ast)))))