             (cb res)))))
     (cb {:value nil})))
 
-(defn ns-side-effects
+(defn- ns-side-effects
   ([bound-vars ana-env ast opts cb]
     (ns-side-effects false bound-vars ana-env ast opts cb))
   ([load bound-vars ana-env {:keys [op] :as ast} opts cb]

    (fn [res]
      (println res)))

  (cljs/compile st "(defprotocol IFoo (foo [this]))"
    (fn [{:keys [value]}]
      (println "Source:")
      (println value)))

                       name source sb @comp/*source-map-data* opts))
                   (cb {:value (.toString sb)})))))))))))

(defn compile-str
  "Compile ClojureScript source into JavaScript. The parameters:

   state (atom)
