       (.printStackTrace e))))
 
 (defn repl*
-  [repl-env {:keys [init need-prompt prompt flush read eval print caught reader
+  [repl-env {:keys [init need-prompt quit-prompt prompt flush read eval print caught reader
                     print-no-newline source-map-inline wrap repl-requires
                     compiler-env]
              :or {need-prompt #(if (readers/indexing-reader? *in*)
                                 (== (readers/get-column-number *in*) 1)
                                 (identity true))
+                  quit-prompt repl-quit-prompt
                   prompt repl-prompt
                   flush flush
                   read repl-read

               (binding [*in* (if (true? (:source-map-inline opts))
                                *in*
                                (reader))]
                 (print "To quit, type:" :cljs/quit)
                 (prompt)
                 (flush)
                 (loop []

      (doseq [file (comp/cljs-files-in src-dir)]
        (ana/analyze-file (str "file://" (.getAbsolutePath file)) opts)))))

(defn repl-quit-prompt []
  (println "To quit, type:" :cljs/quit))

(defn repl-prompt []
  (print (str "ClojureScript:" ana/*cljs-ns* "> ")))

