(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)))))