diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2011-02-18 10:23:35 -0500 |
|---|---|---|
| committer | Stuart Halloway <stu@Stuart-Halloways-MacBook-Air.local> | 2011-02-25 14:27:50 -0500 |
| commit | 13e7fd760805a50f934b238d2a7fb6e44f5c691b (patch) | |
| tree | 911cf3adf20eec47a155a27542dcb0ad0fa8b236 | |
| parent | e288fcc686f1bf81f15c656a956c5b06a44ac39e (diff) | |
Whitespace cleanup around clojure-version
Signed-off-by: Stuart Halloway <stu@Stuart-Halloways-MacBook-Air.local>
| -rw-r--r-- | src/clj/clojure/core.clj | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index 713a889a..dbef95f7 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -5929,21 +5929,21 @@ #"(\d+)\.(\d+)\.(\d+)(?:-([a-zA-Z0-9_]+))?(?:-(SNAPSHOT))?" version-string) clojure-version {:major (Integer/valueOf ^String major) - :minor (Integer/valueOf ^String minor) - :incremental (Integer/valueOf ^String incremental) - :qualifier (if (= qualifier "SNAPSHOT") nil qualifier)}] + :minor (Integer/valueOf ^String minor) + :incremental (Integer/valueOf ^String incremental) + :qualifier (if (= qualifier "SNAPSHOT") nil qualifier)}] (def ^:dynamic *clojure-version* - (if (.contains version-string "SNAPSHOT") - (clojure.lang.RT/assoc clojure-version :interim true) - clojure-version))) - + (if (.contains version-string "SNAPSHOT") + (clojure.lang.RT/assoc clojure-version :interim true) + clojure-version))) + (add-doc-and-meta *clojure-version* "The version info for Clojure core, as a map containing :major :minor :incremental and :qualifier keys. Feature releases may increment :minor and/or :major, bugfix releases will increment :incremental. Possible values of :qualifier include \"GA\", \"SNAPSHOT\", \"RC-x\" \"BETA-x\"" {:added "1.0"}) - + (defn clojure-version "Returns clojure version as a printable string." @@ -5957,7 +5957,7 @@ (when-let [q (:qualifier *clojure-version*)] (when (pos? (count q)) (str "-" q))) (when (:interim *clojure-version*) - "-SNAPSHOT"))) + "-SNAPSHOT"))) (defn promise "Alpha - subject to change. |