Add when in place of if

Author: Tko1

src/clojure/core.clj

@@ -25,11 +25,10 @@
 (defn pr [& more]
   (print-string (apply str more)))
 
-"TODO: use when"
 (defn prn [& more]
   (apply pr more)
   (newline)
-  (if *flush-on-newline*
+  (when *flush-on-newline*
     (flush)
     nil))
 
@@ -66,4 +65,4 @@
       result)))
 
 (defn ffirst [x]
-  (first (first x)))
+  (first (first x)))