 
 (defn reflow [text]
   (and text
-    (-> text
-      (s/replace #" \n  " "")
-      (s/replace #"\n  " " "))))
+       (-> text
+         (s/replace #" \n  " "")
+         (s/replace #"\n  " " "))))
 
 ;; Copied from cljs.analyzer.api (which hasn't yet been converted to cljc)
 (defn resolve

(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)))))

  (some
    (fn [quoted-spec-or-kw]
      (and (not (keyword? quoted-spec-or-kw))
           (let [spec (second quoted-spec-or-kw)
                 ns   (if (sequential? spec)
                        (first spec)
                        spec)]
             (= ns @current-ns))))
    specs))

(defn- make-ns-form
