cache newline system property in a private var #300

Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>

1 files changed, 4 insertions, 1 deletions

diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
index a9e45d92..bd4c05d3 100644
--- a/src/clj/clojure/core.clj
+++ b/src/clj/clojure/core.clj
@@ -3206,12 +3206,15 @@
      (recur (first more) nmore)
      (apply pr more))))
 
+(def ^:private ^String system-newline
+     (System/getProperty "line.separator"))
+
 (defn newline
   "Writes a platform-specific newline to *out*"
   {:added "1.0"
    :static true}
   []
-    (. *out* (append (System/getProperty "line.separator")))
+    (. *out* (append system-newline))
     nil)
 
 (defn flush