add print-no-newline REPL parameter after feedback from CLJS REPL aut…

…hors
clojure · Feb 19, 2015 · 7beec09 · 7beec09
1 parent 4e2b1dd
commit 7beec09
Showing 1 changed file with 4 additions and 2 deletions.
diff --git 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,14 +547,16 @@
                   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)
         {:keys [analyze-path repl-verbose warn-on-undeclared special-fns static-fns] :as opts
          :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))]