File tree Expand file tree Collapse file tree
Clojure/Clojure.Source/clojure Expand file tree Collapse file tree Original file line number Diff line number Diff line change 37183718 (apply pr more))))
37193719
37203720(def ^:private ^String system-newline
3721- ( Environment/NewLine ) ) ; ;; (System/getProperty "line.separator")
3721+ Environment /NewLine ) ; ;; (System/getProperty "line.separator")
37223722
37233723(defn newline
37243724 " Writes a platform-specific newline to *out*"
Original file line number Diff line number Diff line change 359359
360360; ; Framework version -- alpha
361361
362- (def framework-description ( System.Runtime.InteropServices.RuntimeInformation/FrameworkDescription ) )
362+ (def framework-description System.Runtime.InteropServices.RuntimeInformation /FrameworkDescription )
363363
364364(defn- parse-framework-description []
365365 (let [descr framework-description
Original file line number Diff line number Diff line change @@ -630,12 +630,12 @@ java -cp clojure.jar clojure.main -i init.clj script.clj args...")
630630 (let [f (FileInfo. (Path/Combine (Path/GetTempPath ) (str " clojure-" (System.Guid/NewGuid ) " .edn" )))] ; ;; (.toFile (Files/createTempFile "clojure-" ".edn" (into-array FileAttribute [])))
631631 (with-open [w (StreamWriter. (.OpenWrite f))] ; ;; [w (BufferedWriter. (FileWriter. f))
632632 (binding [*out* w] (println report-str)))
633- (.FullName f)) ; ;; .getAbsolutePath
634- (catch Exception _)))] ; ; ignore, fallback to stderr ;;; Throwable
633+ (.FullName f)) ; ;; .getAbsolutePath
634+ (catch Exception _)))] ; ; ignore, fallback to stderr ;;; Throwable
635635 (binding [*out* *err*]
636636 (if err-path
637- (println (str message ( Environment/NewLine ) " Full report at:" (Environment/NewLine ) err-path)) ; ;; System/lineSeparator
638- (println (str report-str ( Environment/NewLine ) message))))))) ; ;; System/lineSeparator
637+ (println (str message Environment/NewLine " Full report at:" (Environment/NewLine ) err-path)) ; ;; System/lineSeparator
638+ (println (str report-str Environment/NewLine message))))))) ; ;; System/lineSeparator
639639
640640(defn main
641641 " Usage: java -cp clojure.jar clojure.main [init-opt*] [main-opt] [arg*]
You can’t perform that action at this time.
0 commit comments