     (fn [res]
       (println res)))
 
-  (cljs/compile st "(defn foo\n[a b]\n(+ a b))" 'cljs.foo
+  (cljs/compile-str st "(defn foo\n[a b]\n(+ a b))" 'cljs.foo
     {:verbose true :source-map true}
     (fn [js-source]
       (println "Source:")

               (cb res)))))
       (cb {:value nil})))))

(declare analyze*)

(defn analyze-deps
  ([bound-vars ana-env lib deps cb]
   (analyze-deps bound-vars ana-env lib deps nil cb))
  ([bound-vars ana-env lib deps opts cb]

                       (str "Could not analyze dep " dep) cause))))))
         (cb {:value nil}))))))

(defn- load-macros [bound-vars k macros reload reloads opts cb]
  (if (seq macros)
    (let [nsym (first (vals macros))
          k    (or (k reload)
