               :success (:value ret)))))
       (catch Throwable ex
         (.printStackTrace ex)
-        (println (str ex))))))
+        (println (str ex))
+        (flush)))))
 
 (defn load-stream [repl-env filename res]
   (let [env (ana/empty-env)]

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

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

            {: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
