|
6751 | 6751 |
|
6752 | 6752 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; clojure version number ;;;;;;;;;;;;;;;;;;;;;;
|
6753 | 6753 |
|
6754 |
| -(let [properties (with-open [version-stream (.getResourceAsStream |
6755 |
| - (clojure.lang.RT/baseLoader) |
6756 |
| - "clojure/version.properties")] |
6757 |
| - (doto (new java.util.Properties) |
6758 |
| - (.load version-stream))) |
6759 |
| - version-string (.getProperty properties "version") |
6760 |
| - [_ major minor incremental qualifier snapshot] |
6761 |
| - (re-matches |
6762 |
| - #"(\d+)\.(\d+)\.(\d+)(?:-([a-zA-Z0-9_]+))?(?:-(SNAPSHOT))?" |
6763 |
| - version-string) |
6764 |
| - clojure-version {:major (Integer/valueOf ^String major) |
6765 |
| - :minor (Integer/valueOf ^String minor) |
6766 |
| - :incremental (Integer/valueOf ^String incremental) |
6767 |
| - :qualifier (if (= qualifier "SNAPSHOT") nil qualifier)}] |
6768 |
| - (def ^:dynamic *clojure-version* |
6769 |
| - (if (.contains version-string "SNAPSHOT") |
6770 |
| - (clojure.lang.RT/assoc clojure-version :interim true) |
6771 |
| - clojure-version))) |
| 6754 | +(def ^:dynamic *clojure-version* |
| 6755 | + {:major 1, :minor 7, :incremental 0, :qualifier "beta3-r2"}) |
6772 | 6756 |
|
6773 | 6757 | (add-doc-and-meta *clojure-version*
|
6774 |
| - "The version info for Clojure core, as a map containing :major :minor |
| 6758 | + "The version info for Clojure core, as a map containing :major :minor |
6775 | 6759 | :incremental and :qualifier keys. Feature releases may increment
|
6776 | 6760 | :minor and/or :major, bugfix releases will increment :incremental.
|
6777 | 6761 | Possible values of :qualifier include \"GA\", \"SNAPSHOT\", \"RC-x\" \"BETA-x\""
|
|
0 commit comments