             {:line 1 :column 1})
           identity opts)
         (loop []
+          ;; try to let things flush before printing prompt
+          (Thread/sleep 10)
           (print (str "ClojureScript:" ana/*cljs-ns* "> "))
           (flush)
           (let [rdr (readers/source-logging-push-back-reader

       (f)
       (println (:value ret))
       (when-let [st (:stacktrace ret)]
         (println st)))))

(defn evaluate-form
  "Evaluate a ClojureScript form in the JavaScript environment. Returns a

              :success (:value ret)))))
      (catch Throwable ex
        (.printStackTrace ex)
        (println (str ex))
        (flush)))))

(defn load-stream [repl-env filename res]
  (let [env (ana/empty-env)]
