Update Clojure code

Author: bolivier

compiled_starters/clojure/src/http_server/core.clj

@@ -7,17 +7,24 @@
 
 (def port 4221)
 
+(alter-var-root #'*out* (constantly *err*))
+
 (defn serve []
   (let [server-sock (ServerSocket. port)]
     (.setReuseAddress server-sock true)
     (.accept server-sock)
-    (println "accepted new connection")))
+    (binding [*out* (java.io.PrintWriter. System/out true)]
+     (println "accepted new connection"))))
 
 (defn -main [& args]
   ;; You can use print statements as follows for debugging, they'll be visible when running tests.
-  (binding [*out* *err*]
-    (println "Logs from your program will appear here!"))
+  (println "Logs from your program will appear here!")
+
+
+  (alter-var-root #'*out* (constantly (java.io.PrintWriter. System/out true)))
+
 
   ;; Uncomment this block to pass the first stage
   ;;(serve)
+
   )

solutions/clojure/01-at4/code/src/http_server/core.clj

@@ -7,14 +7,20 @@
 
 (def port 4221)
 
+(alter-var-root #'*out* (constantly *err*))
+
 (defn serve []
   (let [server-sock (ServerSocket. port)]
     (.setReuseAddress server-sock true)
     (.accept server-sock)
-    (println "accepted new connection")))
+    (binding [*out* (java.io.PrintWriter. System/out true)]
+     (println "accepted new connection"))))
 
 (defn -main [& args]
-    (println "Logs from your program will appear here!"))
+
+  (alter-var-root #'*out* (constantly (java.io.PrintWriter. System/out true)))
+
 
   (serve)
+
   )

solutions/clojure/01-at4/diff/src/http_server/core.clj.diff

@@ -1,4 +1,4 @@
-@@ -1,23 +1,20 @@
+@@ -1,30 +1,26 @@
  (ns http-server.core
    (:require
     [clojure.java.io :as io])
@@ -8,18 +8,25 @@
 
  (def port 4221)
 
+ (alter-var-root #'*out* (constantly *err*))
+
  (defn serve []
    (let [server-sock (ServerSocket. port)]
      (.setReuseAddress server-sock true)
      (.accept server-sock)
-     (println "accepted new connection")))
+     (binding [*out* (java.io.PrintWriter. System/out true)]
+      (println "accepted new connection"))))
 
  (defn -main [& args]
 -  ;; You can use print statements as follows for debugging, they'll be visible when running tests.
--  (binding [*out* *err*]
-     (println "Logs from your program will appear here!"))
+-  (println "Logs from your program will appear here!")
+-
+
+   (alter-var-root #'*out* (constantly (java.io.PrintWriter. System/out true)))
+
 
 -  ;; Uncomment this block to pass the first stage
 -  ;;(serve)
 +  (serve)
+
    )

starter_templates/clojure/code/src/http_server/core.clj

@@ -7,17 +7,24 @@
 
 (def port 4221)
 
+(alter-var-root #'*out* (constantly *err*))
+
 (defn serve []
   (let [server-sock (ServerSocket. port)]
     (.setReuseAddress server-sock true)
     (.accept server-sock)
-    (println "accepted new connection")))
+    (binding [*out* (java.io.PrintWriter. System/out true)]
+     (println "accepted new connection"))))
 
 (defn -main [& args]
   ;; You can use print statements as follows for debugging, they'll be visible when running tests.
-  (binding [*out* *err*]
-    (println "Logs from your program will appear here!"))
+  (println "Logs from your program will appear here!")
+
+
+  (alter-var-root #'*out* (constantly (java.io.PrintWriter. System/out true)))
+
 
   ;; Uncomment this block to pass the first stage
   ;;(serve)
+
   )