                      (prn value)
                      (when-not
                        (or ('#{*1 *2 *3 *e} expression-form)
-                         (ns-form? expression-form))
+                           (ns-form? expression-form))
                        (set! *3 *2)
                        (set! *2 *1)
                        (set! *1 value))

    (when-let [cache (js/REPLETE_LOAD (str path ".cljs.cache.edn"))]
      {:lang   :js
       :source js-source
       :cache (r/read-string cache)})))

(defn- source-callback-data [path extension]
  (when-let [source (js/REPLETE_LOAD (str path extension))]

(defn calc-x-line [text pos line]
  (let [x (s/index-of text "\n")]
    (if (or (nil? x)
            (< pos (inc x)))
      {:cursorX    pos
       :cursorLine line}
      (recur (subs text (inc x)) (- pos (inc x)) (inc line)))))
