From 7beec094542563977c442f73c8200bb994753f6b Mon Sep 17 00:00:00 2001
From: dnolen <dnolen@cognitect.com>
Date: Thu, 19 Feb 2015 17:31:04 -0500
Subject: [PATCH] add print-no-newline REPL parameter after feedback from CLJS
 REPL authors

---
 src/clj/cljs/repl.clj | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/clj/cljs/repl.clj b/src/clj/cljs/repl.clj
index 62dee4df7b..f2dbce0c18 100644
--- a/src/clj/cljs/repl.clj
+++ b/src/clj/cljs/repl.clj
@@ -537,7 +537,7 @@
   )
 
 (defn repl*
-  [repl-env {:keys [init need-prompt prompt flush read eval print caught]
+  [repl-env {:keys [init need-prompt prompt flush read eval print print-no-newline caught]
              :or {init        #()
                   need-prompt (if (instance? LineNumberingPushbackReader *in*)
                                 #(.atLineStart ^LineNumberingPushbackReader *in*)
@@ -547,7 +547,8 @@
                   read        repl-read
                   eval        eval-cljs
                   print       println
-                  caught      repl-caught}
+                  caught      repl-caught
+                  print-no-newline print}
              :as opts}]
   (print "To quit, type: " :cljs/quit)
   (let [ups-deps (cljsc/get-upstream-deps)
@@ -555,6 +556,7 @@
          :or   {warn-on-undeclared true}}
         (assoc (merge (-repl-options repl-env) opts)
           :print print
+          :print-no-newline print-no-newline
           :flush flush
           :ups-libs (:libs ups-deps)
           :ups-foreign-libs (:foreign-libs ups-deps))]