CHANGELOGS

CHANGELOG.md

@@ -13,6 +13,8 @@ A preview of the next release can be installed from
 - SCI: implement `declare` as macro
 - #938: drop location metadata from symbols, except top level
 - #1199: support `print-method` impls on records
+- `babashka.fs`: add `windows?` predicate
+-  SCI: add `*clojure-version*` and `(clojure-version)`
 
 ## 0.7.7 (2022-03-04)
 

src/babashka/impl/clojure/core.clj

@@ -32,33 +32,6 @@
 (def warn-on-reflection (core-dynamic-var '*warn-on-reflection* false))
 (def math-context (core-dynamic-var '*math-context*))
 
-;; (def major (:major *clojure-version*))
-;; (def minor (:minor *clojure-version*))
-;; (def incremental (:incremental *clojure-version*))
-;; (def qualifier (str "sci" (when-let [q (:qualifier *clojure-version*)]
-;;                             (str "+" q))))
-
-;; (def clojure-ver {:major       major
-;;                   :minor       minor
-;;                   :incremental incremental
-;;                   :qualifier   qualifier})
-
-;; (defn clojure-version
-;;   "Returns clojure version as a printable string."
-;;   {:added "1.0"}
-;;   []
-;;   (str major
-;;        "."
-;;        minor
-;;        (when-let [i incremental]
-;;          (str "." i))
-;;        (when-let [q qualifier]
-;;          (when (pos? (count q)) (str "-" q)))
-;;        (when incremental
-;;          "-SNAPSHOT")))
-
-;; (def clojure-version-var (sci/new-dynamic-var '*clojure-version* clojure-ver))
-
 (defn read+string
   "Added for compatibility. Must be used with
   clojure.lang.LineNumberingPushbackReader. Does not support all of
@@ -205,8 +178,6 @@
    'sync (sci/copy-var sync clojure-core-ns)
    'ref (sci/copy-var ref clojure-core-ns)
    'ref-set (sci/copy-var ref-set clojure-core-ns)
-   ;;'*clojure-version* clojure-version-var
-   ;;'clojure-version (sci/copy-var clojure-version clojure-core-ns)
    'update-vals (sci/copy-var update-vals clojure-core-ns)
    'update-keys (sci/copy-var update-keys clojure-core-ns)
    'parse-boolean (sci/copy-var parse-boolean clojure-core-ns)