diff --git a/src/main/cljs/clojure/browser/repl.cljs b/src/main/cljs/clojure/browser/repl.cljs index bd2469933..abfed75a0 100644 --- a/src/main/cljs/clojure/browser/repl.cljs +++ b/src/main/cljs/clojure/browser/repl.cljs @@ -49,7 +49,7 @@ (garray/clear print-queue)) (defn repl-print [data] - (.push print-queue (pr-str data)) + (.push print-queue data) (when @parent-connected? (flush-print-queue! @xpc-connection))) diff --git a/src/main/clojure/cljs/repl/browser.clj b/src/main/clojure/cljs/repl/browser.clj index 34ae35d60..df8837652 100644 --- a/src/main/clojure/cljs/repl/browser.clj +++ b/src/main/clojure/cljs/repl/browser.clj @@ -306,9 +306,13 @@ [{:keys [repl data order] :as _request-content} conn _] (constrain-order order (fn [] - (binding [*out* (or (and repl (.get outs repl)) *out*)] - (print (edn/read-string data)) - (.flush *out*)))) + (try + (binding [*out* (or (and repl (.get outs repl)) *out*)] + (print data)) + (catch Throwable t + (print t)) + (finally + (.flush *out*))))) (server/send-and-close conn 200 "ignore__")) (defmethod handle-post :result