From 0328f1746b71d8df7580fc9a037c2bccfb6ee846 Mon Sep 17 00:00:00 2001
From: alhimik45 <alhimik45@gmail.com>
Date: Thu, 19 Jun 2014 11:14:14 +0700
Subject: [PATCH] fix UTF-8 bug in repl

---
 src/clooj/utils.clj | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/src/clooj/utils.clj b/src/clooj/utils.clj
index 693c8d7..1d301e2 100644
--- a/src/clooj/utils.clj
+++ b/src/clooj/utils.clj
@@ -546,12 +546,13 @@
 (defn copy-input-stream-to-writer
   "Continuously copies all content from a java InputStream
    to a java Writer. Blocks until InputStream closes."
-  [input-stream writer]
-  (loop []
-    (let [c (.read input-stream)]
-      (when (not= c -1)
-        (.write writer c)
-        (recur)))))
+  [input-stream writer] 
+  (let [reader (InputStreamReader. input-stream)]
+    (loop []
+      (let [c (.read reader)]
+        (when (not= c -1)
+          (.write writer c)
+          (recur))))))
 
 ;; .clj file in current jar