     (set-namespace-edn! compiler-env 'cljs.core core-edn)
     (set-namespace-edn! compiler-env 'cljs.core$macros macros-edn)
     compiler-env))
-
-; this is important - do not even think to removing it
-(defonce bootstrap-result (bootstrap))
-
-(log "ANALYZER INIT DONE")
 
 (def ns-symlinks-dir "/Users/darwin/github/quark/cljs/deps/")
 

  ([source] (analyze-file source nil))
  ([source opts]
   (binding [ana/*file-defs* (atom #{})]
     ;(ensure
     (let [;ns-info (ana/parse-ns res)
           path (or (:atom-path opts) "unknown/file/path.clj?")
           opts (dissoc opts :atom-path)]
       ;(when-not (get-in @env/*compiler* [::namespaces (:ns ns-info) :defs])
       (binding [ana/*cljs-ns* 'cljs.user
                 ana/*cljs-file* path
                 ana/*cljs-warning-handlers* [custom-warning-handler]

                 (if (= (:op ast) :ns)
                   (recur results (:name ast) (next forms))
                   (recur results ns (next forms))))
               [ns results]))))))))

(def clean-compiler-env (prepare-clean-compiler-env))

(defn analyze-full [& args]
  (log "------------------------------------------------------")
  (let [compiler-env (prepare-clean-compiler-env)]
    (log "analyze-full" args "compiler:" compiler-env)
    (with-compiler-env compiler-env
      (apply analyze-file args))))