 
 (defn repl-read-string
   [line]
-  (r/read-string {:read-cond :allow :features #{:cljs}} line))
+  (binding [ana/*cljs-ns* @current-ns
+            env/*compiler* st
+            r/*data-readers* tags/*cljs-data-readers*
+            r/resolve-symbol ana/resolve-symbol]
+    (r/read-string {:read-cond :allow :features #{:cljs}} line)))
 
 (defn- eof-while-reading?
   [message]


(defn ^:export is-readable?
  [line]
  (binding [r/*data-readers* tags/*cljs-data-readers*]
    (try
      (repl-read-string line)
      true
      (catch :default e
        (let [message (.-message e)]
          (cond
            (eof-while-reading? message) false
            (= "EOF" message) true
            :else (do
                    (print-error e false)
                    (println)
                    true)))))))

(defn ns-form?
  [form]

            [cljs.tools.reader.reader-types :as rt]
            [cljs.tagged-literals :as tags]
            [cljs.source-map :as sm]
            [cljs.env :as env]
            [cljs.js :as cljs]
            [cljs.repl :as repl]
            [cljs.stacktrace :as st]
