   read-eval-call."
   [opts cb source]
   (try
-    (let [expression-form (repl-read-string source)
+    (let [expression-form (read-string {:read-cond :allow :features #{:cljs}} source)
           opts (normalize-opts opts) ;; AR - does the whole user option processing
           data {:form expression-form
                 :ns (:current-ns @app-env)

  [f m]
  (reduce-kv (fn [r k v] (assoc r (f k) v)) {} m))

(defn repl-read-string
  "Try to read a string binding all the standard data readers. This
  function throws if a valid form cannot be found."
  [line]
  (binding [ana/*cljs-ns* (:current-ns @app-env)
            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 ns-form?
  [form]

            [cljs.tagged-literals :as tags]
            [cljs.tools.reader :as r]
            [cljs.tools.reader.reader-types :as rt]
            [cljs.tools.reader.impl.commons :as rc]
            [cljs.analyzer :as ana]
            [cljs.env :as env]
            [cljs.repl :as repl]
